pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.c:269:   {    static char buf[30];       if (n<F_MAX_OPCODE && instrs[n-F_OFFSET].name)    {    return instrs[n-F_OFFSET].name;    }else if(n >= F_MAX_OPCODE) {    if(p &&    (int)p->num_constants > (int)(n-F_MAX_OPCODE) &&    p->constants[n-F_MAX_OPCODE].type==T_FUNCTION && -  p->constants[n-F_MAX_OPCODE].subtype == -1 && +  (p->constants[n-F_MAX_OPCODE].subtype == -1) &&    p->constants[n-F_MAX_OPCODE].u.efun)    {    return p->constants[n-F_MAX_OPCODE].u.efun->name->str;    }else{    sprintf(buf, "Call efun %d", n - F_MAX_OPCODE);    return buf;    }    }else{    sprintf(buf, "<OTHER %d>", n);    return buf;
pike.git/src/lex.c:347:    INT32 pos;    int dont_free_data;       int (*my_getc)();    int (*gobble)(int);    int (*look)();    void (*my_ungetc)(int);    void (*ungetstr)(char *,INT32);   };    + #define MY_EOF 4711 +    struct inputstate *istate=NULL;      static void link_inputstate(struct inputstate *i)   {    i->next=istate;    istate=i;   }      static void free_inputstate(struct inputstate *i)   {
pike.git/src/lex.c:419:    i->data=NULL;    i->next=NULL;    i->dont_free_data=0;    i->gobble=default_gobble;    i->ungetstr=default_ungetstr;    i->my_ungetc=default_ungetc;    i->look=default_look;    return i;   }    - /*** EOF input ***/ - static int end_getc() { return EOF; } - static int end_gobble(int c) { return c==EOF; } + /*** end of file input ***/ + static int end_getc() { return MY_EOF; } + static int end_gobble(int c) { return c==MY_EOF; }   static void end_ungetc(int c)   { -  if(c==EOF) return; +  if(c==MY_EOF) return;    default_ungetc(c);   }      static struct inputstate *end_inputstate()   {    struct inputstate *i;    i=new_inputstate();    i->gobble=end_gobble;    i->look=end_getc;    i->my_getc=end_getc;
pike.git/src/lex.c:626:    {    if(c=='\n') current_line++;    return 1;    }else{    return 0;    }   }      #define LOOK() (istate->look())   #define SKIPWHITE() { int c; while(isspace(c=GETC())); UNGETC(c); } - #define SKIPTO(X) { int c; while((c=GETC())!=(X) && (c!=EOF)); } - #define SKIPUPTO(X) { int c; while((c=GETC())!=(X) && (c!=EOF)); UNGETC(c); } + #define SKIPTO(X) { int c; while((c=GETC())!=(X) && (c!=MY_EOF)); } + #define SKIPUPTO(X) { int c; while((c=GETC())!=(X) && (c!=MY_EOF)); UNGETC(c); }   #define READBUF(X) { \    register unsigned INT32 p; \    register int C; \ -  for(p=0;(C=GETC())!=EOF && p<sizeof(buf) && (X);p++) \ +  for(p=0;(C=GETC())!=MY_EOF && p<sizeof(buf) && (X);p++) \    buf[p]=C; \    if(p==sizeof(buf)) { \    yyerror("Internal buffer overflow.\n"); p--; \    } \    UNGETC(C); \    buf[p]=0; \   }      static char buf[1024];   
pike.git/src/lex.c:784:    init_buf();    t=0;    sp->type=T_STRING;    sp->u.string=make_shared_string("");    sp++;       while(1)    {    c=GETC();    if(c=='\\') if(GOBBLE('\n')) continue; -  if( (t!=!!isidchar(c) && argc>0) || c=='\n' || c==EOF) +  if( (t!=!!isidchar(c) && argc>0) || c=='\n' || c==MY_EOF)    {    s2=free_buf();    for(e=0;e<argc;e++)    {    if(save_sp[e].u.string==s2)    {    free_string(s2);    push_int(e);    break;    }    }    if(e==argc)    {    push_string(s2);    if(sp[-2].type==T_STRING) f_add();    } -  if(c=='\n' || c==EOF) +  if(c=='\n' || c==MY_EOF)    {    push_string(make_shared_string(" "));    if(sp[-2].type==T_STRING) f_add();    break;    }    t=!!isidchar(c);    init_buf();    }    my_putchar(c);    }
pike.git/src/lex.c:860:    args=0;       SKIPWHITE();    init_buf();    parlvl=1;    quote=0;    while(parlvl)    {    switch(c=GETC())    { -  case EOF: +  case MY_EOF:    yyerror("Unexpected end of file.");    while(sp>save_sp) pop_stack();    return 0;    case '"': if(!(quote&2)) quote^=1; break;    case '\'': if(!(quote&1)) quote^=2; break;    case '(': if(!quote) parlvl++; break;    case ')': if(!quote) parlvl--; break;    case '\\': my_putchar(c); c=GETC(); break;    case ',':    if(!quote && parlvl==1)
pike.git/src/lex.c:1018:    {    case '/':    if(GOBBLE('*'))    {    do{    SKIPTO('*');    }while(!GOBBLE('/'));    }    continue;    -  case EOF: +  case MY_EOF:    yyerror("Unexpected end of file while skipping.");    return;       case '\\':    GETC();    continue;       case '\n':    if(GOBBLE('#'))    {
pike.git/src/lex.c:1303:    continue;       }    }    continue;       case ' ':    case '\t':    continue;    -  case EOF: +  case MY_EOF:    return 0;       case '\'':    c=GETC();    if(c=='\\') c=char_const();    if(GETC()!='\'') -  yyerror("Unterminated character constant.\n"); +  yyerror("Unterminated character constant.");    yylval->number=c;    return F_NUMBER;       case '"':    init_buf();    while(1)    {    c=GETC();       switch(c)    { -  case -1: -  yyerror("End of file in string.\n"); +  case MY_EOF: +  yyerror("End of file in string.");    free(simple_free_buf());    return 0;       case '\n':    yyerror("Newline in string.\n");    free(simple_free_buf());    return 0;       case '\\':    my_putchar(char_const());