parser.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.



*/

#include "Parser.h"

#ifdef __cplusplus
extern "C" {
#include "Reuse.h"
#include "rMemory.h"
#include "General.h"
#include "DynArray.h"
#ifndef NO_RECOVER
#include "Sets.h"
#endif
#if ! defined NO_RECOVER | defined YYReParse
#include "Errors.h"
#endif
#if defined YYDEBUG | defined lex_interface
#include "Position.h"
#endif
#include <stdio.h>
#include <string.h>
}
#else
#include "Reuse.h"
#include "rMemory.h"
#include "General.h"
#include "DynArray.h"
#ifndef NO_RECOVER
#include "Sets.h"
#endif
#if ! defined NO_RECOVER | defined YYReParse
#include "Errors.h"
#endif
#if defined YYDEBUG | defined lex_interface
#include "Position.h"
#endif
#include <stdio.h>
#endif

#ifdef lex_interface
#define GetToken	yylex
     extern int yylex ARGS ((void));
#ifndef AttributeDef
#include "Position.h"
	   typedef struct { tPosition Position; } tScanAttribute;
	   tScanAttribute	Attribute = {{ 0, 0 }};
#endif
#ifndef ErrorAttributeDef
#define ErrorAttribute(Token, RepairAttribute)
#endif
#ifndef yyGetAttribute
#define yyGetAttribute(yyAttrStackPtr, a) * yyAttrStackPtr = yylval
#endif
#else
#include "Scanner.h"
#ifndef yyGetAttribute
#define yyGetAttribute(yyAttrStackPtr, a) (yyAttrStackPtr)->Scan = a
#endif
#endif

typedef unsigned short	yyStateRange	;
typedef unsigned short	yySymbolRange	;
typedef struct { yyStateRange Check, Next; } yytComb;
typedef enum {
yyNT0_intern	= 463,
yyNTprograms	= 464,
yyNTprogram_end_o	= 465,
yyNTprogram_end	= 466,
yyNTprogram_l	= 467,
yyNTprogram	= 468,
yyNTsce	= 469,
yyNTidentification_division	= 470,
yyNTenvironment_division_o	= 471,
yyNTdata_division_o	= 472,
yyNTprocedure_division_o	= 473,
yyNTidentification_o	= 474,
yyNTprogram_id_o	= 475,
yyNTprogram_o	= 476,
yyNTidentification_l	= 477,
yyNTenvironment_division	= 478,
yyNTenvironment_o	= 479,
yyNTconfiguration_section_o	= 480,
yyNTinput_output_section_o	= 481,
yyNTconfiguration_o	= 482,
yyNTconfiguration_l	= 483,
yyNTsource_computer_o	= 484,
yyNTobject_computer_o	= 485,
yyNTmemory_o	= 486,
yyNTmemory_unit	= 487,
yyNTprogram_sequence_o	= 488,
yyNTsegment_limit_o	= 489,
yyNTspecial_names_o	= 490,
yyNTspecial_names_l	= 491,
yyNTimplementor_name_l	= 492,
yyNTimplementor_name_e	= 493,
yyNTimplementor_name	= 494,
yyNTbuiltin_name	= 495,
yyNTon_off	= 496,
yyNTon_status	= 497,
yyNToff_status	= 498,
yyNTalphabet_names	= 499,
yyNTalphabet_entry	= 500,
yyNTalphabet_name	= 501,
yyNTalphabet_l	= 502,
yyNTalphabet_e	= 503,
yyNTalso_l	= 504,
yyNTalphabet_or_class_literal	= 505,
yyNTsymbolic_characters	= 506,
yyNTsymbolic_entry	= 507,
yyNTsymbolic_l	= 508,
yyNTsymbolic_e	= 509,
yyNTsymbolic_character_l	= 510,
yyNTinteger_l	= 511,
yyNTclass_names	= 512,
yyNTclass	= 513,
yyNTclass_l	= 514,
yyNTclass_e	= 515,
yyNTcurrency_o	= 516,
yyNTdecimal_point_o	= 517,
yyNTnumeric_sign_o	= 518,
yyNTcall_convention_o	= 519,
yyNTconsole_o	= 520,
yyNTcursor_o	= 521,
yyNTcrt_status_o	= 522,
yyNTinput_output_o	= 523,
yyNTfile_control	= 524,
yyNTfile_control_o	= 525,
yyNTfile_control_entry_l	= 526,
yyNTfile_control_entry	= 527,
yyNTselect_clause_l	= 528,
yyNTselect_clause	= 529,
yyNTassign_o	= 530,
yyNTassign_l	= 531,
yyNTassign_e	= 532,
yyNTexternal_o	= 533,
yyNTinteger_or_no	= 534,
yyNTorganization_is_o	= 535,
yyNTalternate_l	= 536,
yyNTalternate_e	= 537,
yyNTduplicates_o_2	= 538,
yyNTpassword_o	= 539,
yyNTsuppress_o	= 540,
yyNTlock_o	= 541,
yyNTi_o_control_o	= 542,
yyNTi_o_control_l	= 543,
yyNTi_o_control_e	= 544,
yyNTrerun_e	= 545,
yyNTsame	= 546,
yyNTmultiple_l	= 547,
yyNTmultiple_e	= 548,
yyNTdata_division	= 549,
yyNTdata_o	= 550,
yyNTfile_section_o	= 551,
yyNTfile_o	= 552,
yyNTfile_description_l	= 553,
yyNTfile_description_e	= 554,
yyNTworking_storage_section_o	= 555,
yyNTxx_working_storage_section_o_1_4	= 556,
yyNTlocal_storage_section_o	= 557,
yyNTxx_local_storage_section_o_1_4	= 558,
yyNTlinkage_section_o	= 559,
yyNTxx_linkage_section_o_1_4	= 560,
yyNTcommunication_section_o	= 561,
yyNTxx_communication_section_o_1_4	= 562,
yyNTcommunication_description_l	= 563,
yyNTreport_section_o	= 564,
yyNTxx_report_section_o_1_4	= 565,
yyNTscreen_section_o	= 566,
yyNTxx_screen_section_o_1_4	= 567,
yyNTreport_description_entry_l	= 568,
yyNTreport_group_description_entry_l	= 569,
yyNTfile_description_entry	= 570,
yyNTsort_merge_file_description_entry	= 571,
yyNTfile_clause_l	= 572,
yyNTfile_clause	= 573,
yyNTsort_merge_clause_l	= 574,
yyNTsort_merge_clause	= 575,
yyNTvalue_l	= 576,
yyNTvalue_e	= 577,
yyNTfrom_o	= 578,
yyNTto_o	= 579,
yyNTdepending_o	= 580,
yyNTbottom_o	= 581,
yyNTfooting	= 582,
yyNTtop	= 583,
yyNTbottom	= 584,
yyNTlinage	= 585,
yyNTdata_description_entry_l	= 586,
yyNTdata_description_entry	= 587,
yyNTperiod_o	= 588,
yyNTrenames_tail	= 589,
yyNTredefines_o	= 590,
yyNTname_or_Filler	= 591,
yyNTdata_clause_l	= 592,
yyNTdata_clause	= 593,
yyNTusage	= 594,
yyNTsign_1	= 595,
yyNTseparate_o	= 596,
yyNTa_de_scending_l	= 597,
yyNTindexed_o	= 598,
yyNTindexed_l	= 599,
yyNTcondition_l	= 600,
yyNTdd_condition_e	= 601,
yyNTfalse_o	= 602,
yyNTconst_expression	= 603,
yyNTconst_primary	= 604,
yyNToperator	= 605,
yyNTcommunication_description_entry	= 606,
yyNTcd_input_o	= 607,
yyNTcd_input_l	= 608,
yyNTcd_input_e	= 609,
yyNTcd_output_l	= 610,
yyNTcd_output_e	= 611,
yyNTcd_i_o_o	= 612,
yyNTcd_i_o_l	= 613,
yyNTcd_i_o_e	= 614,
yyNTname_or_filler	= 615,
yyNTreport_description_entry	= 616,
yyNTreport_clause_l	= 617,
yyNTreport_clause	= 618,
yyNTlimit_o	= 619,
yyNTline_o	= 620,
yyNTpage_l	= 621,
yyNTpage_e	= 622,
yyNTreport_group_description_entry	= 623,
yyNTreport_group_clause_l	= 624,
yyNTreport_group_clause	= 625,
yyNTtype	= 626,
yyNTname_or_final	= 627,
yyNTsign_2	= 628,
yyNTreset_o	= 629,
yyNTscreen_description_entry_l	= 630,
yyNTscreen_description_entry	= 631,
yyNTscreen_clause_l	= 632,
yyNTscreen_clause	= 633,
yyNTsign_line_o	= 634,
yyNTprocedure_division	= 635,
yyNTprocedure_head	= 636,
yyNTmnemonic_name_o	= 637,
yyNTusing_o	= 638,
yyNTusing_l	= 639,
yyNTusing_1_e	= 640,
yyNTusing_2_e	= 641,
yyNTdeclaratives_o	= 642,
yyNTd_section_l	= 643,
yyNTsection_l	= 644,
yyNTsection_e	= 645,
yyNTsection_head	= 646,
yyNTsegment_number_o	= 647,
yyNTuse_o	= 648,
yyNTparagraph_l	= 649,
yyNTparagraph_e	= 650,
yyNTparagraph_head	= 651,
yyNTsentence_l	= 652,
yyNTstatement_l	= 653,
yyNTstatement	= 654,
yyNTimperative_statement	= 655,
yyNTstatement_i	= 656,
yyNTaccept	= 657,
yyNTaccept_i	= 658,
yyNTexception_2	= 659,
yyNTaccept_name	= 660,
yyNTaccept_from	= 661,
yyNTescape	= 662,
yyNTexception_or_escape	= 663,
yyNTline_column	= 664,
yyNTfrom_crt_o	= 665,
yyNTfrom_crt	= 666,
yyNTmode_block_o	= 667,
yyNTmode_block	= 668,
yyNTwith_o	= 669,
yyNTwith	= 670,
yyNTwith_l	= 671,
yyNTadd	= 672,
yyNTadd_i	= 673,
yyNTsize_error	= 674,
yyNTgiving	= 675,
yyNTalter	= 676,
yyNTalter_l	= 677,
yyNTalter_e	= 678,
yyNTcall	= 679,
yyNTcall_i	= 680,
yyNTcall_name	= 681,
yyNTcall_using_o	= 682,
yyNTcall_using_l	= 683,
yyNTcall_using_1_e	= 684,
yyNTcall_using_2_e	= 685,
yyNTcall_chain_l	= 686,
yyNTcall_chain_e	= 687,
yyNTgiving_o	= 688,
yyNToverflow	= 689,
yyNTon_overflow	= 690,
yyNTexception	= 691,
yyNTcancel	= 692,
yyNTchain	= 693,
yyNTchain_l	= 694,
yyNTchain_1_e	= 695,
yyNTchain_2_e	= 696,
yyNTclose	= 697,
yyNTclose_l	= 698,
yyNTclose_e	= 699,
yyNTcommit	= 700,
yyNTcompute	= 701,
yyNTcompute_i	= 702,
yyNTequal_2	= 703,
yyNTcontinue	= 704,
yyNTdelete	= 705,
yyNTdelete_i	= 706,
yyNTinvalid	= 707,
yyNTdisable	= 708,
yyNTdevice	= 709,
yyNTdisplay	= 710,
yyNTdisplay_i	= 711,
yyNTdisplay_l	= 712,
yyNTdisplay_2_l	= 713,
yyNTdisplay_2_e	= 714,
yyNTupon_o	= 715,
yyNTdisplay_advancing_o	= 716,
yyNTdisplay_3_l	= 717,
yyNTdisplay_3_e	= 718,
yyNTwith_display_l	= 719,
yyNTdivide	= 720,
yyNTdivide_i	= 721,
yyNTenable	= 722,
yyNTenter	= 723,
yyNTentry	= 724,
yyNTentry_l	= 725,
yyNTentry_1_e	= 726,
yyNTentry_2_e	= 727,
yyNTevaluate	= 728,
yyNTevaluate_i	= 729,
yyNTevaluate_expression_l	= 730,
yyNTevaluate_expression	= 731,
yyNTcase_l	= 732,
yyNTwhen_other_o	= 733,
yyNTwhen_l	= 734,
yyNTwhen_label_l	= 735,
yyNTwhen_label	= 736,
yyNTexpression_or_literal	= 737,
yyNTexamine	= 738,
yyNTexamine_repl	= 739,
yyNTexamine_repl_o	= 740,
yyNTexamine_tally_o	= 741,
yyNTexecute	= 742,
yyNTexhibit	= 743,
yyNTexhibit_o	= 744,
yyNTexit	= 745,
yyNTgiving_2_o	= 746,
yyNTgiving_or_returning	= 747,
yyNTgenerate	= 748,
yyNTgoback	= 749,
yyNTgoto	= 750,
yyNTprocedure_name_l	= 751,
yyNTif	= 752,
yyNTif_i	= 753,
yyNTthen	= 754,
yyNTelse	= 755,