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