另一版的词法分析器

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