Branch: Tag:

2001-02-24

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

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: las.c,v 1.237 2001/02/23 14:46:21 grubba Exp $"); + RCSID("$Id: las.c,v 1.238 2001/02/24 02:38:32 hubbe Exp $");      #include "language.h"   #include "interpret.h"
3447:    if (!CAAR(n) || pike_types_le(CAAR(n)->type, void_type_string)) {    yyerror("foreach(): Looping over a void expression.");    } else { +  if(CDAR(n)->token && CDAR(n)->token == ':') +  { +  /* type checking for new style iterators goes here */ +  }else{    struct pike_type *array_zero;    MAKE_CONSTANT_SHARED_STRING(array_zero, tArr(tZero));   
3481:    free_type(array_zero);    }    } +  }    copy_type(n->type, void_type_string);    break;