pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: lex.c,v 1.59 1998/12/20 09:22:53 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.60 1999/01/29 12:27:45 hubbe Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "constants.h"   #include "hashtable.h"   #include "stuff.h"   #include "pike_memory.h"   #include "interpret.h"
pike.git/src/lex.c:605:    return F_NUMBER;    }       case '1': case '2': case '3': case '4':    case '5': case '6': case '7': case '8': case '9':    {    char *p1, *p2;    double f;    long l;    lex.pos--; +  if(lex.pos[0]=='0') +  for(l=1;lex.pos[l]<='9' && lex.pos[l]>='0';l++) +  if(lex.pos[l]>='8') +  yyerror("Illegal octal number."); +     f=my_strtod(lex.pos, &p1);    l=STRTOL(lex.pos, &p2, 0);       if(p1>p2)    {    lex.pos=p1;    yylval->fnum=(FLOAT_TYPE)f;    return F_FLOAT;    }else{    lex.pos=p2;