[BACK]Return to tokenizer.l CVS log [TXT][DIR] Up to [local] / src / usr.bin / m4

Diff for /src/usr.bin/m4/tokenizer.l between version 1.3 and 1.4

version 1.3, 2006/01/20 23:10:19 version 1.4, 2008/08/16 12:21:46
Line 21 
Line 21 
 #include <stdint.h>  #include <stdint.h>
 #include <limits.h>  #include <limits.h>
   
   extern int mimic_gnu;
 extern int32_t yylval;  extern int32_t yylval;
   
 int32_t number(void);  int32_t number(void);
   int32_t parse_radix(void);
 %}  %}
   
 delim   [ \t\n]  delim   [ \t\n]
Line 31 
Line 33 
 hex     0[xX][0-9a-fA-F]+  hex     0[xX][0-9a-fA-F]+
 oct     0[0-7]*  oct     0[0-7]*
 dec     [1-9][0-9]*  dec     [1-9][0-9]*
   radix   0[rR][0-9]+:[0-9a-zA-Z]+
   
 %%  %%
 {ws}                    {/* just skip it */}  {ws}                    {/* just skip it */}
 {hex}|{oct}|{dec}       { yylval = number(); return(NUMBER); }  {hex}|{oct}|{dec}       { yylval = number(); return(NUMBER); }
   {radix}                 { if (mimic_gnu) {
                                   yylval = parse_radix(); return(NUMBER);
                             } else {
                                   return(ERROR);
                             }
                           }
 "<="                    { return(LE); }  "<="                    { return(LE); }
 ">="                    { return(GE); }  ">="                    { return(GE); }
 "<<"                    { return(LSHIFT); }  "<<"                    { return(LSHIFT); }
Line 58 
Line 67 
                 fprintf(stderr, "m4: numeric overflow in expr: %s\n", yytext);                  fprintf(stderr, "m4: numeric overflow in expr: %s\n", yytext);
         }          }
         return l;          return l;
   }
   
   int32_t
   parse_radix()
   {
           long base;
           char *next;
           long l;
   
           l = 0;
           base = strtol(yytext+2, &next, 0);
           if (base > 36 || next == NULL) {
                   fprintf(stderr, "m4: error in number %s\n", yytext);
           } else {
                   next++;
                   while (*next != 0) {
                           if (*next >= '0' && *next <= '9')
                                   l = base * l + *next - '0';
                           else if (*next >= 'a' && *next <= 'z')
                                   l = base * l + *next - 'a' + 10;
                           else if (*next >= 'A' && *next <= 'Z')
                                   l = base * l + *next - 'A' + 10;
                           next++;
                   }
           }
           return l;
 }  }
   
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4