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.9 1996/12/06 04:26:57 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.10 1997/01/16 05:00:46 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:1580:    case '{':    case ';':    case '}': return c;       case '`':    {    char *tmp;    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 '~': tmp="`~"; break; -  +  case '-': +  if(GOBBLE('>')) +  { +  tmp="`->"; +  if(GOBBLE('=')) tmp="`->="; +  }else{ +  tmp="`-"; +  } +  break; +     case '[':    if(GOBBLE(']'))    {    tmp="`[]";    if(GOBBLE('=')) tmp="`[]=";    break;    }       default:    yyerror("Illegal ` identifier.");