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.
37
1998/
03
/
03
22
:
30
:
22
hubbe
Exp $");
+
RCSID("$Id: lex.c,v 1.
38
1998/
05
/
20
16
:
42
:
25
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:1174:
return; case '\\': GETC(); continue; case '\n': if(GOBBLE('#')) { SKIPWHITE();
-
READBUF(C!=' ' && C!='\t' && C!='\n');
+
READBUF(C!=' ' && C!='\t' && C!='\n'
&& C!='\r'
);
switch(buf[0]) { case 'l': if(strcmp("line",buf)) break;
-
READBUF(C!=' ' && C!='\t' && C!='\n');
+
READBUF(C!=' ' && C!='\t' && C!='\n'
&& C!='\r'
);
case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': SKIPWHITE(); READBUF(C!='\n'); if(buf[0]=='"' && buf[strlen(buf)-1]=='2' && ISSPACE(((unsigned char *)buf)[strlen(buf)-2])) { if(lvl)
pike.git/src/lex.c:1294:
} if(GOBBLE('#')) { if(GOBBLE('!')) { SKIPUPTO('\n'); continue; } SKIPWHITE();
-
READBUF(C!=' ' && C!='\t' && C!='\n');
+
READBUF(C!=' ' && C!='\t' && C!='\n'
&& C!='\r'
);
switch(buf[0]) { char *p; case 'l': if(strcmp("line",buf)) goto badhash;
-
READBUF(C!=' ' && C!='\t' && C!='\n');
+
READBUF(C!=' ' && C!='\t' && C!='\n'
&& C!='\r'
);
case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': total_lines+=current_line-old_line; old_line=current_line=atoi(buf)-1; SKIPWHITE(); READBUF(C!='\n'); p=buf; if(*p=='"' && STRCHR(p+1,'"'))
pike.git/src/lex.c:1443:
my_yyerror("Unknown directive #%s.",buf); SKIPUPTO('\n'); continue; } } continue; case ' ': case '\t':
+
case '\r':
continue; case MY_EOF: return 0; case '\'': c=GETC(); if(c=='\\') c=char_const(); if(GETC()!='\'') yyerror("Unterminated character constant.");