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.44 1998/03/04 22:15:40 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.45 1998/03/22 06:19:37 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:291:    {    return instrs[n-F_OFFSET].name;    }else{    sprintf(buf, "<OTHER %d>", n);    return buf;    }   }      struct lex lex;    - #define LOOK() (*((unsigned char *)lex.pos)) - #define GETC() (*(lex.pos++)) + #define LOOK() EXTRACT_UCHAR(lex.pos) + #define GETC() EXTRACT_UCHAR(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++; \    len=lex.pos - buf; \