pike.git/ src/ language.yacc

1999-03-04

1999-03-04 06:05:14 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• a5787d3087105ee645752e4a507435290a718443 (18 lines) (+16/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

::`() and ::`-> implemented

Rev: src/language.yacc:1.112
Rev: src/las.c:1.76
Rev: src/las.h:1.19
Rev: src/main.c:1.65
Rev: src/object.c:1.58
Rev: src/object.h:1.24
Rev: src/program.c:1.113
Rev: src/stralloc.c:1.56
Rev: src/stralloc.h:1.34
Rev: src/testsuite.in:1.153

181:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.111 1999/03/02 03:13:19 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.112 1999/03/04 06:04:59 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
1757:    }    if(!$$)    { +  if(ISCONSTSTR($2->u.sval.u.string,"`->") || +  ISCONSTSTR($2->u.sval.u.string,"`[]") ) +  { +  $$=mkapplynode(mkprgnode(magic_index_program),mkintnode(0)); +  } +  else if(ISCONSTSTR($2->u.sval.u.string,"`->=") || +  ISCONSTSTR($2->u.sval.u.string,"`[]=") ) +  { +  $$=mkapplynode(mkprgnode(magic_set_index_program),mkintnode(0)); +  } +  else +  {    $$=mkintnode(0); -  +  }    }else{    if($$->token==F_ARG_LIST) $$=mkefuncallnode("aggregate",$$);    }