www.pudn.com > flex_bingle.rar > fixit.l

%{ 
/* 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(); 
}