Home | History | Annotate | Download | only in MVS
      1 %{
      2 /* unfixit.l - convert shortened external names to names back to their
      3  *             original names.  (See fixit.l)
      4  */
      5 
      6 /*
      7  * This program is included to satisfy "dumb" compilers/linkers which
      8  * do not know about externals of names longer than 8 bytes.
      9  *
     10  *  Steven W. Layten
     11  *  Chemical Abstracts Service
     12  *  PO BOX 3012
     13  *  Columbus, OH 43210
     14  */
     15 %}
     16 %%
     17 "actfilnm"		printf("action_file_name");
     18 "actnout"		printf("action_out");
     19 "addacpt"		printf("add_accept");
     20 "alllower"		printf("all_lower");
     21 "allupper"		printf("all_upper");
     22 "allocarr"		printf("allocate_array");
     23 "asscrule"		printf("assoc_rule");
     24 "bktrkfil"		printf("backtrack_file");
     25 "bktrkrep"		printf("backtrack_report");
     26 "bol_nded"		printf("bol_needed");
     27 "bldeofac"		printf("build_eof_action");
     28 "cclnstal"		printf("cclinstal");
     29 "ccllookp"		printf("ccllookup");
     30 "cclnegat"		printf("cclnegate");
     31 "cclsrted"		printf("cclsorted");
     32 "ck4bktrk"		printf("check_for_backtracking");
     33 "cktrlcnt"		printf("check_trailing_context");
     34 "cntdactn"		printf("continued_action");
     35 "copystrn"		printf("copy_string");
     36 "cpunsstr"		printf("copy_unsigned_string");
     37 "cpyrght"		printf("copyright");
     38 "copysngl"		printf("copysingl");
     39 "c_mx_ccl"		printf("current_max_ccl_tbl_size");
     40 "c_mx_dfa"		printf("current_max_dfa_size");
     41 "c_mxdfas"		printf("current_max_dfas");
     42 "curmxrls"		printf("current_max_rules");
     43 "c_mx_scs"		printf("current_max_scs");
     44 "c_mx_tmp"		printf("current_max_template_xpairs");
     45 "c_mx_xpr"		printf("current_max_xpairs");
     46 "c_mxccls"		printf("current_maxccls");
     47 "curr_mns"		printf("current_mns");
     48 "cursttyp"		printf("current_state_type");
     49 "datflush"		printf("dataflush");
     50 "dfacunin"		printf("dfaacc_union");
     51 "do_indnt"		printf("do_indent");
     52 "dmpasrl"		printf("dump_associated_rules");
     53 "dmptrns"		printf("dump_transitions");
     54 "dupmach"		printf("dupmachine");
     55 "ecsfrmxt"		printf("ecs_from_xlation");
     56 "eobstate"		printf("end_of_buffer_state");
     57 "epsclos"		printf("epsclosure");
     58 "expnxtck"		printf("expand_nxt_chk");
     59 "fndtblsp"		printf("find_table_space");
     60 "fnshrule"		printf("finish_rule");
     61 "firstfre"		printf("firstfree");
     62 "firstprt"		printf("firstprot");
     63 "flxgettm"		printf("flex_gettime");
     64 "flxerror"		printf("flexerror");
     65 "flxfatal"		printf("flexfatal");
     66 "fmtptmsg"		printf("format_pinpoint_message");
     67 "gnNULtrn"		printf("gen_NUL_trans");
     68 "gnbktrkg"		printf("gen_backtracking");
     69 "gnbtactn"		printf("gen_bt_action");
     70 "gnfndact"		printf("gen_find_action");
     71 "gnlindir"		printf("gen_line_dirs");
     72 "gnnxcste"		printf("gen_next_compressed_state");
     73 "gnnxmtch"		printf("gen_next_match");
     74 "gnnxtst"		printf("gen_next_state");
     75 "gnstrtst"		printf("gen_start_state");
     76 "hshentry"		printf("hash_entry");
     77 "hshfct"			printf("hashfunct");
     78 "incmxdfa"		printf("increase_max_dfas");
     79 "indput2s"		printf("indent_put2s");
     80 "indputs"		printf("indent_puts");
     81 "infilnam"		printf("infilename");
     82 "inp_fles"		printf("input_files");
     83 "intractv"		printf("interactive");
     84 "lndirout"		printf("line_directive_out");
     85 "lnkmchns"		printf("link_machines");
     86 "lst_cset"		printf("list_character_set");
     87 "maketbls"		printf("make_tables");
     88 "mkbgnorm"		printf("mark_beginning_as_normal");
     89 "mktmplat"		printf("mktemplate");
     90 "nbktrckg"		printf("num_backtracking");
     91 "ninfiles"		printf("num_input_files");
     92 "numraloc"		printf("num_reallocs");
     93 "numrules"		printf("num_rules");
     94 "nuxlatns"		printf("num_xlations");
     95 "numnpair"		printf("numsnpairs");
     96 "outfilnm"		printf("output_file_name");
     97 "peakpair"		printf("peakpairs");
     98 "perf_rep"		printf("performance_report");
     99 "pptmsg"		printf("pinpoint_message");
    100 "plcstate"		printf("place_state");
    101 "prvctdan"		printf("previous_continued_action");
    102 "prtstats"		printf("printstats");
    103 "pgm_name"		printf("program_name");
    104 "prtcomst"		printf("protcomst");
    105 "rdblefrm"		printf("readable_form");
    106 "realrjct"		printf("real_reject");
    107 "rallocar"		printf("reallocate_array");
    108 "rjctused"		printf("reject_really_used");
    109 "rulelnno"		printf("rule_linenum");
    110 "ruletype"		printf("rule_type");
    111 "stinpfle"		printf("set_input_file");
    112 "setupia"		printf("set_up_initial_allocations");
    113 "startime"		printf("starttime");
    114 "ste_type"		printf("state_type");
    115 "symfollo"		printf("symfollowset");
    116 "sympartn"		printf("sympartition");
    117 "syntxerr"		printf("syntaxerror");
    118 "tmpactfl"		printf("temp_action_file");
    119 "todohead"		printf("todo_head");
    120 "todonext"		printf("todo_next");
    121 "trnschar"		printf("transchar");
    122 "trnstout"		printf("transition_struct_out");
    123 "trlcntxt"		printf("trlcontxt");
    124 "vtrailrl"		printf("variable_trail_rule");
    125 "vtrlctrl"		printf("variable_trailing_context_rules");
    126 "varlngth"		printf("varlength");
    127 "yycrbffr"		printf("yy_create_buffer");
    128 "yydlbffr"		printf("yy_delete_buffer");
    129 "yyinbffr"		printf("yy_init_buffer");
    130 "yyldbfst"		printf("yy_load_buffer_state");
    131 "yyswtobf"		printf("yy_switch_to_buffer");
    132 "yyerrflg"		printf("yyerrflag");
    133 "yymrreus"		printf("yymore_really_used");
    134 "yymrused"		printf("yymore_used");
    135 "yyrestrt"		printf("yyrestart");
    136 . ECHO;
    137 %%
    138 main()
    139 {
    140     yylex();
    141 }
    142