pike.git
/
src
/
lex.c
version
»
Context lines:
10
20
40
80
file
none
3
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.
39
1998/01/
16
23
:
02
:
39
hubbe Exp $");
+
RCSID("$Id: lex.c,v 1.
40
1998/01/
25
08
:
25
:
09
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:495:
} goto badhash; case 'p': if(ISWORD("pragma")) { SKIPSPACE(); READBUF(C!='\n'); if (strcmp(buf, "all_inline") == 0) {
-
lex.pragmas |=
PRAGMA
_
ALL_
INLINE;
+
lex.pragmas |=
ID
_INLINE;
}
-
+
else if (strcmp(buf, "all_nomask") == 0)
+
{
+
lex.pragmas |= ID_NOMASK;
+
}
break; } badhash: my_yyerror("Unknown directive #%s.",buf); SKIPUPTO('\n'); continue; } continue;
pike.git/src/lex.c:836:
case TWO_CHAR('s','t'): if(ISWORD("static")) return F_STATIC; if(ISWORD("string")) return F_STRING_ID; break; case TWO_CHAR('s','w'): if(ISWORD("switch")) return F_SWITCH; break; case TWO_CHAR('t','y'): if(ISWORD("typeof")) return F_TYPEOF; break;
-
case TWO_CHAR('v','a'):
-
if(ISWORD("varargs")) return F_VARARGS;
-
break;
+
case TWO_CHAR('v','o'): if(ISWORD("void")) return F_VOID_ID; break; case TWO_CHAR('w','h'): if(ISWORD("while")) return F_WHILE; break; } } yylval->string=make_shared_binary_string(buf,len); return F_IDENTIFIER;