Branch: Tag:

1997-01-27

1997-01-27 01:20:04 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

`() added, efuns are now stored in mapping

Rev: src/lex.c:1.13

4:   ||| 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"
1598:    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('>'))    {
1621:    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)
1761:    }    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);