[BACK]Return to awkgram.y CVS log [TXT][DIR] Up to [local] / src / usr.bin / awk

Diff for /src/usr.bin/awk/awkgram.y between version 1.5 and 1.6

version 1.5, 1999/04/20 17:31:29 version 1.6, 1999/12/08 23:09:45
Line 98 
Line 98 
 program:  program:
           pas   { if (errorflag==0)            pas   { if (errorflag==0)
                         winner = (Node *)stat3(PROGRAM, beginloc, $1, endloc); }                          winner = (Node *)stat3(PROGRAM, beginloc, $1, endloc); }
         | error { yyclearin; bracecheck(); ERROR "bailing out" SYNTAX; }          | error { yyclearin; bracecheck(); SYNTAX("bailing out"); }
         ;          ;
   
 and:  and:
Line 240 
Line 240 
         | pattern IN varname            { $$ = op2(INTEST, $1, makearr($3)); }          | pattern IN varname            { $$ = op2(INTEST, $1, makearr($3)); }
         | '(' plist ')' IN varname      { $$ = op2(INTEST, $2, makearr($5)); }          | '(' plist ')' IN varname      { $$ = op2(INTEST, $2, makearr($5)); }
         | pattern '|' GETLINE var       {          | pattern '|' GETLINE var       {
                         if (safe) ERROR "cmd | getline is unsafe" SYNTAX;                          if (safe) SYNTAX("cmd | getline is unsafe");
                         else $$ = op3(GETLINE, $4, itonp($2), $1); }                          else $$ = op3(GETLINE, $4, itonp($2), $1); }
         | pattern '|' GETLINE           {          | pattern '|' GETLINE           {
                         if (safe) ERROR "cmd | getline is unsafe" SYNTAX;                          if (safe) SYNTAX("cmd | getline is unsafe");
                         else $$ = op3(GETLINE, (Node*)0, itonp($2), $1); }                          else $$ = op3(GETLINE, (Node*)0, itonp($2), $1); }
         | pattern term %prec CAT        { $$ = op2(CAT, $1, $2); }          | pattern term %prec CAT        { $$ = op2(CAT, $1, $2); }
         | re          | re
Line 294 
Line 294 
   
 simple_stmt:  simple_stmt:
           print prarg '|' term          {            print prarg '|' term          {
                         if (safe) ERROR "print | is unsafe" SYNTAX;                          if (safe) SYNTAX("print | is unsafe");
                         else $$ = stat3($1, $2, itonp($3), $4); }                          else $$ = stat3($1, $2, itonp($3), $4); }
         | print prarg APPEND term       {          | print prarg APPEND term       {
                         if (safe) ERROR "print >> is unsafe" SYNTAX;                          if (safe) SYNTAX("print >> is unsafe");
                         else $$ = stat3($1, $2, itonp($3), $4); }                          else $$ = stat3($1, $2, itonp($3), $4); }
         | print prarg GT term           {          | print prarg GT term           {
                         if (safe) ERROR "print > is unsafe" SYNTAX;                          if (safe) SYNTAX("print > is unsafe");
                         else $$ = stat3($1, $2, itonp($3), $4); }                          else $$ = stat3($1, $2, itonp($3), $4); }
         | print prarg                   { $$ = stat3($1, $2, NIL, NIL); }          | print prarg                   { $$ = stat3($1, $2, NIL, NIL); }
         | DELETE varname '[' patlist ']' { $$ = stat2(DELETE, makearr($2), $4); }          | DELETE varname '[' patlist ']' { $$ = stat2(DELETE, makearr($2), $4); }
         | DELETE varname                 { $$ = stat2(DELETE, makearr($2), 0); }          | DELETE varname                 { $$ = stat2(DELETE, makearr($2), 0); }
         | pattern                       { $$ = exptostat($1); }          | pattern                       { $$ = exptostat($1); }
         | error                         { yyclearin; ERROR "illegal statement" SYNTAX; }          | error                         { yyclearin; SYNTAX("illegal statement"); }
         ;          ;
   
 st:  st:
Line 315 
Line 315 
         ;          ;
   
 stmt:  stmt:
           BREAK st              { if (!inloop) ERROR "break illegal outside of loops" SYNTAX;            BREAK st              { if (!inloop) SYNTAX("break illegal outside of loops");
                                   $$ = stat1(BREAK, NIL); }                                    $$ = stat1(BREAK, NIL); }
         | CLOSE pattern st      { $$ = stat1(CLOSE, $2); }          | CLOSE pattern st      { $$ = stat1(CLOSE, $2); }
         | CONTINUE st           {  if (!inloop) ERROR "continue illegal outside of loops" SYNTAX;          | CONTINUE st           {  if (!inloop) SYNTAX("continue illegal outside of loops");
                                   $$ = stat1(CONTINUE, NIL); }                                    $$ = stat1(CONTINUE, NIL); }
         | do {inloop++;} stmt {--inloop;} WHILE '(' pattern ')' st          | do {inloop++;} stmt {--inloop;} WHILE '(' pattern ')' st
                 { $$ = stat2(DO, $3, notnull($7)); }                  { $$ = stat2(DO, $3, notnull($7)); }
Line 329 
Line 329 
         | if stmt               { $$ = stat3(IF, $1, $2, NIL); }          | if stmt               { $$ = stat3(IF, $1, $2, NIL); }
         | lbrace stmtlist rbrace { $$ = $2; }          | lbrace stmtlist rbrace { $$ = $2; }
         | NEXT st       { if (infunc)          | NEXT st       { if (infunc)
                                 ERROR "next is illegal inside a function" SYNTAX;                                  SYNTAX("next is illegal inside a function");
                           $$ = stat1(NEXT, NIL); }                            $$ = stat1(NEXT, NIL); }
         | NEXTFILE st   { if (infunc)          | NEXTFILE st   { if (infunc)
                                 ERROR "nextfile is illegal inside a function" SYNTAX;                                  SYNTAX("nextfile is illegal inside a function");
                           $$ = stat1(NEXTFILE, NIL); }                            $$ = stat1(NEXTFILE, NIL); }
         | RETURN pattern st     { $$ = stat1(RETURN, $2); }          | RETURN pattern st     { $$ = stat1(RETURN, $2); }
         | RETURN st             { $$ = stat1(RETURN, NIL); }          | RETURN st             { $$ = stat1(RETURN, NIL); }
Line 377 
Line 377 
         | INDEX '(' pattern comma pattern ')'          | INDEX '(' pattern comma pattern ')'
                 { $$ = op2(INDEX, $3, $5); }                  { $$ = op2(INDEX, $3, $5); }
         | INDEX '(' pattern comma reg_expr ')'          | INDEX '(' pattern comma reg_expr ')'
                 { ERROR "index() doesn't permit regular expressions" SYNTAX;                  { SYNTAX("index() doesn't permit regular expressions");
                   $$ = op2(INDEX, $3, (Node*)$5); }                    $$ = op2(INDEX, $3, (Node*)$5); }
         | '(' pattern ')'               { $$ = $2; }          | '(' pattern ')'               { $$ = $2; }
         | MATCHFCN '(' pattern comma reg_expr ')'          | MATCHFCN '(' pattern comma reg_expr ')'
Line 448 
Line 448 
 void setfname(Cell *p)  void setfname(Cell *p)
 {  {
         if (isarr(p))          if (isarr(p))
                 ERROR "%s is an array, not a function", p->nval SYNTAX;                  SYNTAX("%s is an array, not a function", p->nval);
         else if (isfcn(p))          else if (isfcn(p))
                 ERROR "you can't define function %s more than once", p->nval SYNTAX;                  SYNTAX("you can't define function %s more than once", p->nval);
         curfname = p->nval;          curfname = p->nval;
 }  }
   
Line 480 
Line 480 
         char *s = cp->nval;          char *s = cp->nval;
         for ( ; vl; vl = vl->nnext) {          for ( ; vl; vl = vl->nnext) {
                 if (strcmp(s, ((Cell *)(vl->narg[0]))->nval) == 0) {                  if (strcmp(s, ((Cell *)(vl->narg[0]))->nval) == 0) {
                         ERROR "duplicate argument %s", s SYNTAX;                          SYNTAX("duplicate argument %s", s);
                         break;                          break;
                 }                  }
         }          }
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6