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/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.");