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.
43
1998/
02
/
01
04:
01
:
36
hubbe Exp $");
+
RCSID("$Id: lex.c,v 1.
44
1998/
03
/
04
22
:
15
:
40
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:649:
return '>'; case '!': if(GOBBLE('=')) return F_NE; return F_NOT; case '(': if(GOBBLE('<')) return F_MULTISET_START; return '(';
+
case ']':
case '?': case ',': case '~': case '@': case ')': case '[':
-
case ']':
+
case '{': case ';': case '}': return c; case '`': { char *tmp; int offset=2; if(GOBBLE('`')) offset--; if(GOBBLE('`')) offset--;