pike.git / src / language.yacc

version» Context lines:

pike.git/src/language.yacc:106:   %left TOK_LSH TOK_RSH   %left '+' '-'   %left '*' '%' '/'   %right TOK_NOT '~'   %nonassoc TOK_INC TOK_DEC      %{   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.276 2002/05/05 13:03:42 mast Exp $"); + RCSID("$Id: language.yacc,v 1.277 2002/05/05 16:31:06 mast Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif      #include "interpret.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "las.h"   #include "interpret.h"
pike.git/src/language.yacc:3251:    $$=index_node(tmp, ".", $2->u.sval.u.string);    free_node(tmp);    }    else    $$=mknewintnode(0);    free_string(dot);    if(Pike_compiler->last_identifier) free_string(Pike_compiler->last_identifier);    copy_shared_string(Pike_compiler->last_identifier, $2->u.sval.u.string);    free_node($2);    } +  | TOK_GLOBAL '.' TOK_IDENTIFIER +  { +  $$ = resolve_identifier ($3->u.sval.u.string); +  if(Pike_compiler->last_identifier) free_string(Pike_compiler->last_identifier); +  copy_shared_string(Pike_compiler->last_identifier, $3->u.sval.u.string); +  free_node ($3); +  }    | idents '.' bad_identifier {}    | idents '.' error {}    ;      inherit_specifier: TOK_IDENTIFIER TOK_COLON_COLON    {    int e = -1;       inherit_state = Pike_compiler;