pike.git/ src/ docode.c

2001-02-24

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

• 4cdb80c452cd4b040149ba910896e4cf4cf3ea58 (61 lines) (+55/-6) ^{[ 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

5:   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.106 2001/02/23 14:29:51 grubba Exp $"); + RCSID("$Id: docode.c,v 1.107 2001/02/24 02:38:31 hubbe Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"
883:    {    node *arr;    INT32 *prev_switch_jumptable = current_switch_jumptable; +  arr=CAR(n); +  +  if(CDR(arr) && CDR(arr)->token == ':') +  {    BLOCK_BEGIN; -  +  /* New-style */ +  tmp1=do_docode(CAR(arr), DO_NOT_COPY); +  emit0(F_MAKE_ITERATOR);    -  arr=CAR(n); +  if(CADR(arr)) +  { +  do_docode(CADR(arr), DO_LVALUE); +  }else{ +  emit0(F_CONST0); +  emit0(F_CONST0); +  current_stack_depth+=2; +  }    -  if(arr->token==F_RANGE) +  if(CDDR(arr))    { -  node **a1=my_get_arg(&_CDR(n),0); -  node **a2=my_get_arg(&_CDR(n),1); +  do_docode(CDDR(arr), DO_LVALUE); +  }else{ +  emit0(F_CONST0); +  emit0(F_CONST0); +  current_stack_depth+=2; +  } +  +  PUSH_CLEANUP_FRAME(do_pop, 5); +  +  PUSH_STATEMENT_LABEL; +  current_switch_jumptable=0; +  current_label->break_label=alloc_label(); +  current_label->continue_label=alloc_label(); +  +  tmp3=do_branch(-1); +  tmp1=ins_label(-1); +  DO_CODE_BLOCK(CDR(n)); +  ins_label(current_label->continue_label); +  low_insert_label( DO_NOT_WARN((INT32)tmp3)); +  do_jump(F_NEW_FOREACH, DO_NOT_WARN((INT32)tmp1)); +  ins_label(current_label->break_label); +  +  current_switch_jumptable = prev_switch_jumptable; +  POP_STATEMENT_LABEL; +  POP_AND_DO_CLEANUP; +  BLOCK_END; +  return 0; +  } +  +  +  BLOCK_BEGIN; +  +  if(CAR(arr) && CAR(arr)->token==F_RANGE) +  { +  node **a1=my_get_arg(&_CAR(arr),0); +  node **a2=my_get_arg(&_CAR(arr),1);    if(a1 && a2 && a2[0]->token==F_CONSTANT &&    a2[0]->u.sval.type==T_INT &&    a2[0]->u.sval.type==0x7fffffff &&