pike.git/ src/ operators.c

1997-03-08

1997-03-08 12:54:09 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 9f6847cc6479f4d6aa15e36b8b50b31c30e7326b (47 lines) (+46/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

type handling bugs fixed (function/program)

Rev: src/ChangeLog:1.84
Rev: src/interpret.c:1.29
Rev: src/lex.c:1.16
Rev: src/opcodes.c:1.4
Rev: src/opcodes.h:1.2
Rev: src/operators.c:1.10
Rev: src/pike_types.c:1.18
Rev: src/testsuite.in:1.33

5:   \*/   #include <math.h>   #include "global.h" - RCSID("$Id: operators.c,v 1.9 1997/02/19 05:04:19 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.10 1997/03/08 12:54:07 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1217:    }   }    + void f_index(INT32 args) + { +  switch(args) +  { +  case 0: +  case 1: +  error("Too few arguments to `[]\n"); +  break; +  case 2: +  if(sp[-1].type==T_STRING) sp[-1].subtype=0; +  o_index(); +  break; +  case 3: +  o_range(); +  break; +  default: +  error("Too manu arguments to `[]\n"); +  } + } +  + void f_arrow(INT32 args) + { +  switch(args) +  { +  case 0: +  case 1: +  error("Too few arguments to `->\n"); +  break; +  case 2: +  if(sp[-1].type==T_STRING) +  sp[-1].subtype=1; +  o_index(); +  break; +  default: +  error("Too manu arguments to `->\n"); +  } + } +    void f_sizeof(INT32 args)   {    INT32 tmp;
1241:      void init_operators()   { +  add_efun2("`[]",f_index, +  "function(string,int:int)|function(object,string:mixed)|function(array,int:mixed)|function(mapping,mixed:mixed)|function(multiset,mixed:int)|function(string,int,int:string)|function(array,int,int:array)",OPT_TRY_OPTIMIZE,0,0); +  +  add_efun2("`->",f_arrow, +  "function(object|mapping|multiset,string:mixed)",OPT_TRY_OPTIMIZE,0,0); +     add_efun2("`==",f_eq,"function(mixed,mixed:int)",OPT_TRY_OPTIMIZE,0,generate_comparison);    add_efun2("`!=",f_ne,"function(mixed,mixed:int)",OPT_TRY_OPTIMIZE,0,generate_comparison);    add_efun2("`!",f_not,"function(mixed:int)",OPT_TRY_OPTIMIZE,0,generate_not);