# following from main global dloadflag ,initflag ,BADflag ,aflag ,yydebug ,ifname ,ofname ,sigfname ,optfname ,actual_ifname ,Mflag ,cflag ,pflag ,Lflag ,Pflag ,Tflag ,Gflag ,Vflag ,Nflag ,fflag ,Fflag ,Rflag ,OOflag ,OOOflag ,Oflag ,Xflag ,xflag ,hflag ,dbgmsg , insrtptr # will not be assigned a value!! global nil # following from pass1/parser/initids # # Initialize the string table to contain various identifiers with # builtin meanings and/or precedences. Then build trees to correspond # to default signatures, as well as certain other standard subtrees. # global indx_assign # precedence 0 global indx_passign global indx_massign # cor precedence 1 # cand precedence 2 # other operators precedence 3 global indx_or # precedence 4 global indx_and # precedence 5 global indx_not # precedence 6 global indx_equals # precedence 7 global indx_less global indx_le global indx_ge global indx_ne global indx_greater global indx_plus # precedence 8 global indx_minus global indx_times # precedence 9 global indx_divide global indx_mod global indx_pconc # precedence 10 global indx_sconc global indx_exp # precedence 11 global indx_deref # precedence 12 global indx_subscr # precedence 13 global indx_New # no precedence global indx_ValueOf global indx_First global indx_Last global indx_Pred global indx_Succ global indx_Ord global indx_OrdInv global indx_Card global indx_In global indx_Out global indx_put global indx_Callcc global indx_size global indx_ptr_New global indx_init_New global indx_empty global indx_standard global indx_inline global pend # pend[n] global last string table entry with precedence # level n global indx_Boolean global indx_Void global indx_true global indx_false global indx_simple global indx_Null global indx_Mk global indx_Integer global indx_Void global indx_Array global sig_assign global sig_equals global sig_less global sig_greater global sig_New global sig_const global sig_ValueOf global sig_pconc global sig_sconc global sig_Signature global val_Boolean global val_Integer global val_Void global var_Void global sel_true # Trees for Boolean$true[] and Boolean$false[] global sel_false global id_Boolean # Note that the last definition field needs to be # set later global id_Integer global id_Void global id_put global id_ValueOf global id_New global id_size global id_Null global id_times global id_plus global appl_Null global yyvline # initialized here since it is incorporated into # the structures created here. global stt_table, stt_unique_cnt, stt_reference_cnt, reverse_stt global errfile, reduce, progress , debug_file, stats, nodes, ccode_file global nodes_created_file, lists_created_file, cons_file global line_cnt, char_cnt, token_cnt, reserved_id_cnt, reserved_op_cnt, stt_unique_cnt, stt_reference_cnt, numeral_cnt, nodes_total_cnt, nodes_made_cnt, lists_total_cnt, lists_made_cnt, yyn_switches_cnt, yyn_compute_cnt, newstate_cnt, setstate_cnt, backup_cnt, default_cnt, reduce_cnt, errlab_cnt, errlab1_cnt global defined_id_cnt, defined_op_cnt, seperator_cnt global RIC_table,RIC_op_code_cnt,RIC_table_entry_cnt, comments_cnt global sing_quoted_cnt, dbl_quoted_cnt # from main global infile, optfile, entry_name, yyinfnm, yyline, addposition, inline_cnvt global Ginline_cnvt, Vinline_cnvt # following for grammar.y #DJDSTOP global paramstop, denseqstop, condstop, declstop #DJDSART global stxtree, yystate , global_fn_count, scanstk, stktop, scansavc global yydescr, has_externs, argcnt_from_kind, parser_actions_cnt # for scanner global linebuf, restab, cctab, tokenlgth # for applinfer/mkappl2 # global cor_cond(); # NODE * cand_cond(); # NODE ** outermost_op(); # for sigio global decl_num, decl_nums, Outer_arg # last number assigned to a declaration global file_sigs, decl_num_in, sig_table # decl_nul & decl_num_in had same name -but static!! global argcnt_from_kind global unique_node_id