pike.git/ src/ interpret_functions.h

2001-02-24

2001-02-24 02:38:33 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 4cdb80c452cd4b040149ba910896e4cf4cf3ea58 (36 lines) (+35/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

foreach( x ; y ; z) implemented..

Rev: src/Makefile.in:1.250
Rev: src/docode.c:1.107
Rev: src/interpret_functions.h:1.48
Rev: src/iterators.cmod:1.1
Rev: src/language.yacc:1.228
Rev: src/las.c:1.238
Rev: src/lex.c:1.87
Rev: src/main.c:1.113
Rev: src/mapping_stuff.cmod:1.2(DEAD)
Rev: src/opcodes.h:1.13

1:   /* -  * $Id: interpret_functions.h,v 1.47 2001/02/20 13:02:11 grubba Exp $ +  * $Id: interpret_functions.h,v 1.48 2001/02/24 02:38:31 hubbe Exp $    *    * Opcode definitions for the interpreter.    */
1010:    if(Pike_sp[-1].u.integer < Pike_sp[-4].u.array->size)    {    fast_check_threads_etc(10); + #if 0    index_no_free(Pike_sp,Pike_sp-4,Pike_sp-1);    Pike_sp++;    assign_lvalue(Pike_sp-4, Pike_sp-1);    free_svalue(Pike_sp-1);    Pike_sp--; -  + #else +  if(Pike_sp[-1].u.integer < 0) +  Pike_error("Foreach loop variable is negative!\n"); +  assign_lvalue(Pike_sp-3, Pike_sp[-4].u.array->item + Pike_sp[-1].u.integer); + #endif    pc+=GET_JUMP();    Pike_sp[-1].u.integer++;    }else{ -  + #if 0 +  pop_n_elems(4); + #endif    SKIPJUMP();    }    break;    }    -  + OPCODE0(F_MAKE_ITERATOR,"Iterator") + { +  extern void f_Iterator(INT32); +  f_Iterator(1); + } + BREAK; +  +  +  CASE(F_NEW_FOREACH) /* iterator, lvalue, lvalue */ +  { +  extern int foreach_iterate(struct object *o); +  +  if(Pike_sp[-5].type != PIKE_T_OBJECT) +  PIKE_ERROR("foreach", "Bad argument 1.\n", Pike_sp-3, 1); +  if(foreach_iterate(Pike_sp[-5].u.object)) +  { +  fast_check_threads_etc(10); +  pc+=GET_JUMP(); +  }else{ +  SKIPJUMP(); +  } +  break; +  } +     CASE(F_APPLY_AND_RETURN);    {    INT32 args = DO_NOT_WARN(Pike_sp - *--Pike_mark_sp);