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.12 1997/01/19 09:08:01 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.13 1997/01/27 01:20:04 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 "memory.h"   #include "interpret.h"
pike.git/src/lex.c:1591:    switch(GETC())    {    case '+': tmp="`+"; break;    case '/': tmp="`/"; break;    case '%': tmp="`%"; break;    case '*': tmp="`*"; break;    case '&': tmp="`&"; break;    case '|': tmp="`|"; break;    case '^': tmp="`^"; break;    case '~': tmp="`~"; break; +  case '<': +  if(GOBBLE('<')) { tmp="`<<"; break; } +  if(GOBBLE('=')) { tmp="`<="; break; } +  tmp="`<"; +  break; +  +  case '>': +  if(GOBBLE('>')) { tmp="`>>"; break; } +  if(GOBBLE('=')) { tmp="`>="; break; } +  tmp="`>"; +  break; +  +  case '!': +  if(GOBBLE('=')) { tmp="`!="; break; } +  tmp="`!"; +  break; +  +  case '=': +  if(GOBBLE('=')) { tmp="`=="; break; } +  tmp="`="; +  break; +  +  case '(': +  if(GOBBLE(')')) +  { +  tmp="`()"; +  break; +  } +  yyerror("Illegal ` identifier."); +  tmp=""; +  break; +     case '-':    if(GOBBLE('>'))    {    tmp="`->";    if(GOBBLE('=')) tmp="`->=";    }else{    tmp="`-";    }    break;   
pike.git/src/lex.c:1614:    tmp="`[]";    if(GOBBLE('=')) tmp="`[]=";    break;    }       default:    yyerror("Illegal ` identifier.");    tmp="";    break;    -  case '<': -  if(GOBBLE('<')) { tmp="`<<"; break; } -  if(GOBBLE('=')) { tmp="`<="; break; } -  tmp="`<"; -  break; -  -  case '>': -  if(GOBBLE('>')) { tmp="`>>"; break; } -  if(GOBBLE('=')) { tmp="`>="; break; } -  tmp="`>"; -  break; -  -  case '!': -  if(GOBBLE('=')) { tmp="`!="; break; } -  tmp="`!"; -  break; -  -  case '=': -  if(GOBBLE('=')) { tmp="`=="; break; } -  tmp="`="; -  break; +     }       if(literal)    {    yylval->str=buf;    }else{    yylval->string=make_shared_string(tmp);    }    return F_IDENTIFIER;    }
pike.git/src/lex.c:1754:    return;    }    READBUF(isidchar(C));    if(!GOBBLE(')'))    {    yyerror("Missing ')' in #if constant().\n");    return;    }    s=findstring(buf);    -  if(s && lookup_efun(s)) +  if(s && low_mapping_string_lookup(get_builtin_constants(), s))    UNGETSTR(" 1 ",3);    else    UNGETSTR(" 0 ",3);       continue;    }       s=findstring(my_yylval.str);    if(!s || !expand_define(s,1))    UNGETSTR(" 0 ",3);