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.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;