pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.c:6:      #include "global.h"   #include "lex.h"   #include "stuff.h"   #include "bignum.h"   #include "pike_compiler.h"   #include "interpret.h"      #include <ctype.h>    + static FLOAT_TYPE mymy_strtod(const char *nptr, char **endptr) + { + #if SIZEOF_FLOAT_TYPE > SIZEOF_DOUBLE +  FLOAT_TYPE tmp=strtold(nptr,endptr); + #else +  double tmp=strtod(nptr,endptr); + #endif +  if(*endptr>nptr) +  { +  if(endptr[0][-1]=='.') +  endptr[0]--; +  } +  return tmp; + } +    #define LEXDEBUG 0      /* Make lexers for shifts 0, 1 and 2. */      #define SHIFT 0   #include "lexer0.h"   #undef SHIFT   #define SHIFT 1   #include "lexer1.h"   #undef SHIFT