eval.c

这是一个Linux下的集成开发环境

/*

Copyright (c) 2000, Red Hat, Inc.

This file is part of Source-Navigator.

Source-Navigator is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as published
by the Free Software Foundation; either version 2, or (at your option)
any later version.

Source-Navigator is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
General Public License for more details.

You should have received a copy of the GNU General Public License along
with Source-Navigator; see the file COPYING.  If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, Boston,
MA 02111-1307, USA.



*/

#define DEP(a, b) a
#define SELF yyt
#include "Eval.h"
/* line 245 "java.ast" */

#include "Errors.h"
#include "Trafo.h"
#include "deftab.h"



static char * yyCheck1 = & Tree_module_does_not_match_evaluator_module_30586066;
static char * yyCheck2 = & generate_Tree_module_without_option_0;

static void yyVisit1 ARGS ((register tTree yyt));

void Eval
#if defined __STDC__ | defined __cplusplus
 (tTree yyt)
#else
 (yyt) tTree yyt;
#endif
{ yyVisit1 (yyt); }

static void yyVisit1
#if defined __STDC__ | defined __cplusplus
 (register tTree yyt)
#else
 (yyt) register tTree yyt;
#endif
{

yyRecursion:
 switch (yyt->Kind) {

case kcompilation_unit:
/* line 291 "java.ast" */

		    yyt->compilation_unit.package->qualified_symbol.env		= NoTree;
yyVisit1 (yyt->compilation_unit.package);
/* line 293 "java.ast" */

		    yyt->compilation_unit.field_list->field_list.env	= mEnv (get_objects (yyt->compilation_unit.field_list,
		       get_objects (yyt->compilation_unit.import_list, NoTree)), NoTree, SELF);
yyVisit1 (yyt->compilation_unit.field_list);
/* line 292 "java.ast" */

		    yyt->compilation_unit.import_list->import_list.env	= NoTree;
yyt = yyt->compilation_unit.import_list; goto yyRecursion;

case kimport:
yyt->import.next->import_list.env=yyt->import.env;
yyVisit1 (yyt->import.next);
yyt->import.qualified_symbol->qualified_symbol.env=yyt->import.env;
yyt = yyt->import.qualified_symbol; goto yyRecursion;

case kimport_asterisk:
yyt->import_asterisk.next->import_list.env=yyt->import_asterisk.env;
yyVisit1 (yyt->import_asterisk.next);
yyt->import_asterisk.qualified_symbol->qualified_symbol.env=yyt->import_asterisk.env;
yyt = yyt->import_asterisk.qualified_symbol; goto yyRecursion;

case kfield:
yyt->field.next->field_list.env=yyt->field.env;
yyt = yyt->field.next; goto yyRecursion;

case kfunction:
yyt->function.next->field_list.env=yyt->function.env;
yyVisit1 (yyt->function.next);
yyt->function.block->statement_c.env=yyt->function.env;
yyVisit1 (yyt->function.block);
yyt->function.throws->type_name_list.env=yyt->function.env;
yyVisit1 (yyt->function.throws);
yyt->function.decl_list->decl_list.env=yyt->function.env;
yyt = yyt->function.decl_list; goto yyRecursion;

case kmethod:
yyt->method.next->field_list.env=yyt->method.env;
yyVisit1 (yyt->method.next);
yyt->method.array->type.env=yyt->method.env;
yyVisit1 (yyt->method.array);
yyt->method.type->type.env=yyt->method.env;
yyVisit1 (yyt->method.type);
/* line 299 "java.ast" */
 yyt->method.block->statement_c.env = mEnv (get_objects (yyt->method.decl_list, NoTree), yyt->method.env, SELF);
yyVisit1 (yyt->method.block);
yyt->method.throws->type_name_list.env=yyt->method.env;
yyVisit1 (yyt->method.throws);
yyt->method.decl_list->decl_list.env=yyt->method.env;
yyt = yyt->method.decl_list; goto yyRecursion;

case kconstructor:
yyt->constructor.next->field_list.env=yyt->constructor.env;
yyVisit1 (yyt->constructor.next);
/* line 300 "java.ast" */
 yyt->constructor.block->statement_c.env = mEnv (get_objects (yyt->constructor.decl_list, NoTree), yyt->constructor.env, SELF);
yyVisit1 (yyt->constructor.block);
yyt->constructor.throws->type_name_list.env=yyt->constructor.env;
yyVisit1 (yyt->constructor.throws);
yyt->constructor.decl_list->decl_list.env=yyt->constructor.env;
yyt = yyt->constructor.decl_list; goto yyRecursion;

case kvar_decl:
yyt->var_decl.next->field_list.env=yyt->var_decl.env;
yyVisit1 (yyt->var_decl.next);
yyt->var_decl.decl_list->decl_list.env=yyt->var_decl.env;
yyVisit1 (yyt->var_decl.decl_list);
yyt->var_decl.type->type.env=yyt->var_decl.env;
yyt = yyt->var_decl.type; goto yyRecursion;

case kstatic_initializer:
yyt->static_initializer.next->field_list.env=yyt->static_initializer.env;
yyVisit1 (yyt->static_initializer.next);
yyt->static_initializer.statement_c->statement_c.env=yyt->static_initializer.env;
yyt = yyt->static_initializer.statement_c; goto yyRecursion;

case kinitializer:
yyt->initializer.next->field_list.env=yyt->initializer.env;
yyVisit1 (yyt->initializer.next);
yyt->initializer.statement_c->statement_c.env=yyt->initializer.env;
yyt = yyt->initializer.statement_c; goto yyRecursion;

case ktype_decl:
yyt->type_decl.next->field_list.env=yyt->type_decl.env;
yyVisit1 (yyt->type_decl.next);
yyt->type_decl.block->field_list.env=yyt->type_decl.env;
yyt = yyt->type_decl.block; goto yyRecursion;

case kclass:
yyt->class.next->field_list.env=yyt->class.env;
yyVisit1 (yyt->class.next);
yyt->class.interfaces->type_name_list.env=yyt->class.env;
yyVisit1 (yyt->class.interfaces);
yyt->class.extends->type.env=yyt->class.env;
yyVisit1 (yyt->class.extends);
/* line 296 "java.ast" */
 yyt->class.block->field_list.env = menv2 (mEnv (get_objects (yyt->class.block, NoTree), NoTree, SELF), yyt->class.env);
yyt = yyt->class.block; goto yyRecursion;

case kinterface:
yyt->my_interface.next->field_list.env=yyt->my_interface.env;
yyVisit1 (yyt->my_interface.next);
yyt->my_interface.extends->type_name_list.env=yyt->my_interface.env;
yyVisit1 (yyt->my_interface.extends);
/* line 297 "java.ast" */
 yyt->my_interface.block->field_list.env = menv2 (mEnv (get_objects (yyt->my_interface.block, NoTree), NoTree, SELF), yyt->my_interface.env);
yyt = yyt->my_interface.block; goto yyRecursion;

case kdecl_list:
/* line 326 "java.ast" */
 yyt->decl_list.no_of_args	= 0;
break;

case knodecl:
/* line 326 "java.ast" */
 yyt->nodecl.no_of_args	= 0;
break;

case kdecl:
yyt->decl.next->decl_list.env=yyt->decl.env;
yyt->decl.array->type.env=yyt->decl.env;
yyVisit1 (yyt->decl.array);
yyt->decl.type->type.env=yyt->decl.env;
yyVisit1 (yyt->decl.type);
yyVisit1 (yyt->decl.next);
/* line 327 "java.ast" */
 yyt->decl.no_of_args	= yyt->decl.next->decl_list.no_of_args + 1;
break;

case kvariable:
yyt->variable.next->decl_list.env=yyt->variable.env;
yyt->variable.expression->expression_c.env=yyt->variable.env;
yyVisit1 (yyt->variable.expression);
yyt->variable.array->type.env=yyt->variable.env;
yyVisit1 (yyt->variable.array);
yyt->variable.type->type.env=yyt->variable.env;
yyVisit1 (yyt->variable.type);
yyVisit1 (yyt->variable.next);
/* line 327 "java.ast" */
 yyt->variable.no_of_args	= yyt->variable.next->decl_list.no_of_args + 1;
break;

case kparameter:
yyt->parameter.next->decl_list.env=yyt->parameter.env;
yyt->parameter.array->type.env=yyt->parameter.env;
yyVisit1 (yyt->parameter.array);
yyt->parameter.type->type.env=yyt->parameter.env;
yyVisit1 (yyt->parameter.type);
yyVisit1 (yyt->parameter.next);
/* line 327 "java.ast" */
 yyt->parameter.no_of_args	= yyt->parameter.next->decl_list.no_of_args + 1;
break;

case kstatement:
yyt->statement.next->statement_list.env=yyt->statement.env;
yyVisit1 (yyt->statement.next);
yyt->statement.statement->statement_c.env=yyt->statement.env;
yyt = yyt->statement.statement; goto yyRecursion;

case kcompound_stmt:
/* line 301 "java.ast" */
 yyt->compound_stmt.statement_list->statement_list.env = mEnv (get_objects (yyt->compound_stmt.statement_list, NoTree), yyt->compound_stmt.env, SELF);
yyt = yyt->compound_stmt.statement_list; goto yyRecursion;

case kexpression_stmt:
yyt->expression_stmt.expression->expression_c.env=yyt->expression_stmt.env;
yyt = yyt->expression_stmt.expression; goto yyRecursion;

case kvar_decl_stmt:
yyt->var_decl_stmt.type->type.env=yyt->var_decl_stmt.env;
yyVisit1 (yyt->var_decl_stmt.type);
yyt->var_decl_stmt.decl_list->decl_list.env=yyt->var_decl_stmt.env;
yyt = yyt->var_decl_stmt.decl_list; goto yyRecursion;

case ktype_decl_stmt:
yyt->type_decl_stmt.type_decl->type_decl.env=yyt->type_decl_stmt.env;
yyt = yyt->type_decl_stmt.type_decl; goto yyRecursion;

case kif_stmt:
yyt->if_stmt.expression->expression_c.env=yyt->if_stmt.env;
yyVisit1 (yyt->if_stmt.expression);
yyt->if_stmt.then->statement_c.env=yyt->if_stmt.env;
yyt = yyt->if_stmt.then; goto yyRecursion;

case kif_else_stmt:
yyt->if_else_stmt.expression->expression_c.env=yyt->if_else_stmt.env;
yyVisit1 (yyt->if_else_stmt.expression);
yyt->if_else_stmt.Else->statement_c.env=yyt->if_else_stmt.env;