fixit.l   [plain text]


%{
/* fixit.l - convert long external names to names of 8-bytes or less */
/* 
 * This program is included to satisfy "dumb" compilers/linkers which 
 * do not know about externals of names longer than 8 bytes.
 *
 *  Steven W. Layten
 *  Chemical Abstracts Service
 *  PO BOX 3012
 *  Columbus, OH 43210
 */
%}
%%
"action_file_name"			printf("actfilnm");
"action_out"				printf("actnout");
"add_accept"				printf("addacpt");
"all_lower"				printf("alllower");
"all_upper"				printf("allupper");
"allocate_array"			printf("allocarr");
"assoc_rule"				printf("asscrule");
"backtrack_file"			printf("bktrkfil");
"backtrack_report"			printf("bktrkrep");
"bol_needed"				printf("bol_nded");
"build_eof_action"			printf("bldeofac");
"cclinstal"				printf("cclnstal");
"ccllookup"				printf("ccllookp");
"cclnegate"				printf("cclnegat");
"cclsorted"				printf("cclsrted");
"check_for_backtracking"		printf("ck4bktrk");
"check_trailing_context"		printf("cktrlcnt");
"continued_action"			printf("cntdactn");
"copy_string"				printf("copystrn");
"copy_unsigned_string"			printf("cpunsstr");
"copyright"				printf("cpyrght");
"copysingl"				printf("copysngl");
"current_max_ccl_tbl_size"		printf("c_mx_ccl");
"current_max_dfa_size"			printf("c_mx_dfa");
"current_max_dfas"			printf("c_mxdfas");
"current_max_rules"			printf("curmxrls");
"current_max_scs"			printf("c_mx_scs");
"current_max_template_xpairs"		printf("c_mx_tmp");
"current_max_xpairs"			printf("c_mx_xpr");
"current_maxccls"			printf("c_mxccls");
"current_mns"				printf("curr_mns");
"current_state_type"			printf("cursttyp");
"dataflush"				printf("datflush");
"dfaacc_union"				printf("dfacunin");
"do_indent"				printf("do_indnt");
"dump_associated_rules"			printf("dmpasrl");
"dump_transitions"			printf("dmptrns");
"dupmachine"				printf("dupmach");
"ecs_from_xlation"			printf("ecsfrmxt");
"end_of_buffer_state"			printf("eobstate");
"epsclosure"				printf("epsclos");
"expand_nxt_chk"			printf("expnxtck");
"find_table_space"			printf("fndtblsp");
"finish_rule"				printf("fnshrule");
"firstfree"				printf("firstfre");
"firstprot"				printf("firstprt");
"flex_gettime"				printf("flxgettm");
"flexerror"				printf("flxerror");
"flexfatal"				printf("flxfatal");
"format_pinpoint_message"		printf("fmtptmsg");
"gen_NUL_trans"				printf("gnNULtrn");
"gen_backtracking"			printf("gnbktrkg");
"gen_bt_action"				printf("gnbtactn");
"gen_find_action"			printf("gnfndact");
"gen_line_dirs"				printf("gnlindir");
"gen_next_compressed_state"		printf("gnnxcste");
"gen_next_match"			printf("gnnxmtch");
"gen_next_state"			printf("gnnxtst");
"gen_start_state"			printf("gnstrtst");
"hash_entry"				printf("hshentry");
"hashfunct"				printf("hshfct");
"increase_max_dfas"			printf("incmxdfa");
"indent_put2s"				printf("indput2s");
"indent_puts"				printf("indputs");
"infilename"				printf("infilnam");
"input_files"				printf("inp_fles");
"interactive"				printf("intractv");
"line_directive_out"			printf("lndirout");
"link_machines"				printf("lnkmchns");
"list_character_set"			printf("lst_cset");
"make_tables"				printf("maketbls");
"mark_beginning_as_normal"		printf("mkbgnorm");
"mktemplate"				printf("mktmplat");
"num_backtracking"			printf("nbktrckg");
"num_input_files"			printf("ninfiles");
"num_reallocs"				printf("numraloc");
"num_rules"				printf("numrules");
"num_xlations"				printf("nuxlatns");
"numsnpairs"				printf("numnpair");
"output_file_name"			printf("outfilnm");
"peakpairs"				printf("peakpair");
"performance_report"			printf("perf_rep");
"pinpoint_message"			printf("pptmsg");
"place_state"				printf("plcstate");
"previous_continued_action"		printf("prvctdan");
"printstats"				printf("prtstats");
"program_name"				printf("pgm_name");
"protcomst"				printf("prtcomst");
"readable_form"				printf("rdblefrm");
"real_reject"				printf("realrjct");
"reallocate_array"			printf("rallocar");
"reject_really_used"			printf("rjctused");
"rule_linenum"				printf("rulelnno");
"rule_type"				printf("ruletype");
"set_input_file"			printf("stinpfle");
"set_up_initial_allocations"		printf("setupia");
"starttime"				printf("startime");
"state_type"				printf("ste_type");
"symfollowset"				printf("symfollo");
"sympartition"				printf("sympartn");
"syntaxerror"				printf("syntxerr");
"temp_action_file"			printf("tmpactfl");
"todo_head"				printf("todohead");
"todo_next"				printf("todonext");
"transchar"				printf("trnschar");
"transition_struct_out"			printf("trnstout");
"trlcontxt"				printf("trlcntxt");
"variable_trail_rule"			printf("vtrailrl");
"variable_trailing_context_rules"	printf("vtrlctrl");
"varlength"				printf("varlngth");
"yy_create_buffer"			printf("yycrbffr");
"yy_delete_buffer"			printf("yydlbffr");
"yy_init_buffer"			printf("yyinbffr");
"yy_load_buffer_state"			printf("yyldbfst");
"yy_switch_to_buffer"			printf("yyswtobf");
"yyerrflag"				printf("yyerrflg");
"yymore_really_used"			printf("yymrreus");
"yymore_used"				printf("yymrused");
"yyrestart"				printf("yyrestrt");
.					ECHO;
%%
main()
{
    yylex();
}