Branch: Tag:

1997-01-16

1997-01-16 05:00:48 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

overloading for -> and [] implemented

Rev: src/docode.c:1.7
Rev: src/interpret.c:1.19
Rev: src/language.yacc:1.17
Rev: src/las.c:1.11
Rev: src/lex.c:1.10
Rev: src/object.c:1.8
Rev: src/peep.c:1.4
Rev: src/peep.in:1.2
Rev: src/program.c:1.12
Rev: src/program.h:1.6

4:   ||| 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"
1587:    switch(GETC())    {    case '+': tmp="`+"; break; -  case '-': tmp="`-"; break; +     case '/': tmp="`/"; break;    case '%': tmp="`%"; break;    case '*': tmp="`*"; break;
1595:    case '|': tmp="`|"; break;    case '^': tmp="`^"; break;    case '~': tmp="`~"; break; +  case '-': +  if(GOBBLE('>')) +  { +  tmp="`->"; +  if(GOBBLE('=')) tmp="`->="; +  }else{ +  tmp="`-"; +  } +  break; +     case '[':    if(GOBBLE(']'))    {