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.37 1998/01/13 22:56:45 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.38 1998/01/16 22:33:04 grubba 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:289:    {    return instrs[n-F_OFFSET].name;    }else{    sprintf(buf, "<OTHER %d>", n);    return buf;    }   }      struct lex lex;    - #define LOOK() (*(lex.pos)) + #define LOOK() (*((unsigned char *)lex.pos))   #define GETC() (*(lex.pos++))   #define GOBBLE(c) (LOOK()==c?(lex.pos++,1):0)   #define SKIPSPACE() do { while(ISSPACE(LOOK()) && LOOK()!='\n') lex.pos++; }while(0)   #define SKIPWHITE() do { while(ISSPACE(LOOK())) lex.pos++; }while(0)   #define SKIPUPTO(X) do { while(LOOK()!=(X) && LOOK()) lex.pos++; }while(0)      #define READBUF(X) { \    register int C; \    buf=lex.pos; \    while((C=LOOK()) && (X)) lex.pos++; \