pike.git / src / language.yacc

version» Context lines:

pike.git/src/language.yacc:1:   /* -*- c -*-   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: language.yacc,v 1.309 2002/12/02 18:12:14 grubba Exp $ + || $Id: language.yacc,v 1.310 2002/12/10 18:53:15 mast Exp $   */      %pure_parser      %token TOK_ARROW      /*    * Basic value pushing    */   %token TOK_CONSTANT TOK_FLOAT TOK_STRING
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.309 2002/12/02 18:12:14 grubba Exp $"); + RCSID("$Id: language.yacc,v 1.310 2002/12/10 18:53:15 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:3376:    if(($$=lexical_islocal(Pike_compiler->last_identifier)))    {    /* done, nothing to do here */    }else if(!($$=find_module_identifier(Pike_compiler->last_identifier,1)) &&    !($$ = program_magic_identifier (Pike_compiler, 0, 0,    Pike_compiler->last_identifier, 0))) {    if(!Pike_compiler->num_parse_error)    {    if(Pike_compiler->compiler_pass==2)    { -  my_yyerror("'%s' undefined.", Pike_compiler->last_identifier->str); +  my_yyerror("Undefined identifier %s.", Pike_compiler->last_identifier->str);    $$=0;    }else{    $$=mknode(F_UNDEFINED,0,0);    }    }else{    $$=mkintnode(0);    }    }    free_node($1);    }
pike.git/src/language.yacc:3483:    $$=mkidentifiernode(i);    }    }    if(!$$)    {    if (!($$ = program_magic_identifier (Pike_compiler, 0, -1,    $2->u.sval.u.string, 1)))    {    if (Pike_compiler->compiler_pass == 2) {    if (TEST_COMPAT(7,2)) { -  yywarning("No such inherit ::%s.", $2->u.sval.u.string->str); +  yywarning("Undefined identifier ::%s.", $2->u.sval.u.string->str);    } else { -  my_yyerror("No such inherit ::%s.", $2->u.sval.u.string->str); +  my_yyerror("Undefined identifier ::%s.", $2->u.sval.u.string->str);    }    }    $$=mkintnode(0);    }    }else{    if($$->token==F_ARG_LIST) $$=mkefuncallnode("aggregate",$$);    }    free_node($2);    }    | TOK_COLON_COLON bad_identifier