WebSVN – planix.SVN – Blame – /os/branches/feature_posix/sys/src/cmd/8a/lex.c

Rev	Author	Line No.	Line
2	-	1	`#include <ctype.h>`
		2	`#define EXTERN`
		3	`#include "a.h"`
		4	`#include "y.tab.h"`
		5
		6	`void`
		7	`main(int argc, char *argv[])`
		8	`{`
		9	`char *p;`
		10	`int nout, nproc, status, i, c;`
		11
		12	`thechar = '8';`
		13	`thestring = "386";`
		14	`memset(debug, 0, sizeof(debug));`
		15	`cinit();`
		16	`outfile = 0;`
		17	`include[ninclude++] = ".";`
		18	`ARGBEGIN {`
		19	`default:`
		20	`c = ARGC();`
		21	`if(c >= 0 \|\| c < sizeof(debug))`
		22	`debug[c] = 1;`
		23	`break;`
		24
		25	`case 'o':`
		26	`outfile = ARGF();`
		27	`break;`
		28
		29	`case 'D':`
		30	`p = ARGF();`
		31	`if(p)`
		32	`Dlist[nDlist++] = p;`
		33	`break;`
		34
		35	`case 'I':`
		36	`p = ARGF();`
		37	`setinclude(p);`
		38	`break;`
		39	`} ARGEND`
		40	`if(*argv == 0) {`
		41	`print("usage: %ca [-options] file.s\n", thechar);`
		42	`errorexit();`
		43	`}`
		44	`if(argc > 1 && systemtype(Windows)){`
		45	`print("can't assemble multiple files on windows\n");`
		46	`errorexit();`
		47	`}`
		48	`if(argc > 1 && !systemtype(Windows)) {`
		49	`nproc = 1;`
		50	`if(p = getenv("NPROC"))`
		51	`nproc = atol(p); /* */`
		52	`c = 0;`
		53	`nout = 0;`
		54	`for(;;) {`
		55	`while(nout < nproc && argc > 0) {`
		56	`i = myfork();`
		57	`if(i < 0) {`
		58	`i = mywait(&status);`
		59	`if(i < 0)`
		60	`errorexit();`
		61	`if(status)`
		62	`c++;`
		63	`nout--;`
		64	`continue;`
		65	`}`
		66	`if(i == 0) {`
		67	`print("%s:\n", *argv);`
		68	`if(assemble(*argv))`
		69	`errorexit();`
		70	`exits(0);`
		71	`}`
		72	`nout++;`
		73	`argc--;`
		74	`argv++;`
		75	`}`
		76	`i = mywait(&status);`
		77	`if(i < 0) {`
		78	`if(c)`
		79	`errorexit();`
		80	`exits(0);`
		81	`}`
		82	`if(status)`
		83	`c++;`
		84	`nout--;`
		85	`}`
		86	`}`
		87	`if(assemble(argv[0]))`
		88	`errorexit();`
		89	`exits(0);`
		90	`}`
		91
		92	`int`
		93	`assemble(char *file)`
		94	`{`
		95	`char ofile[100], incfile[20], *p;`
		96	`int i, of;`
		97
		98	`strcpy(ofile, file);`
		99	`p = utfrrune(ofile, pathchar());`
		100	`if(p) {`
		101	`include[0] = ofile;`
		102	`*p++ = 0;`
		103	`} else`
		104	`p = ofile;`
		105	`if(outfile == 0) {`
		106	`outfile = p;`
		107	`if(outfile){`
		108	`p = utfrrune(outfile, '.');`
		109	`if(p)`
		110	`if(p[1] == 's' && p[2] == 0)`
		111	`p[0] = 0;`
		112	`p = utfrune(outfile, 0);`
		113	`p[0] = '.';`
		114	`p[1] = thechar;`
		115	`p[2] = 0;`
		116	`} else`
		117	`outfile = "/dev/null";`
		118	`}`
		119	`p = getenv("INCLUDE");`
		120	`if(p) {`
		121	`setinclude(p);`
		122	`} else {`
		123	`if(systemtype(Plan9)) {`
		124	`sprint(incfile,"/%s/include", thestring);`
		125	`setinclude(strdup(incfile));`
		126	`}`
		127	`}`
		128
		129	`of = mycreat(outfile, 0664);`
		130	`if(of < 0) {`
		131	`yyerror("%ca: cannot create %s", thechar, outfile);`
		132	`errorexit();`
		133	`}`
		134	`Binit(&obuf, of, OWRITE);`
		135
		136	`pass = 1;`
		137	`pinit(file);`
		138	`for(i=0; i<nDlist; i++)`
		139	`dodefine(Dlist[i]);`
		140	`yyparse();`
		141	`if(nerrors) {`
		142	`cclean();`
		143	`return nerrors;`
		144	`}`
		145
		146	`pass = 2;`
		147	`outhist();`
		148	`pinit(file);`
		149	`for(i=0; i<nDlist; i++)`
		150	`dodefine(Dlist[i]);`
		151	`yyparse();`
		152	`cclean();`
		153	`return nerrors;`
		154	`}`
		155
		156	`struct`
		157	`{`
		158	`char *name;`
		159	`ushort type;`
		160	`ushort value;`
		161	`} itab[] =`
		162	`{`
		163	`"SP", LSP, D_AUTO,`
		164	`"SB", LSB, D_EXTERN,`
		165	`"FP", LFP, D_PARAM,`
		166	`"PC", LPC, D_BRANCH,`
		167
		168	`"AL", LBREG, D_AL,`
		169	`"CL", LBREG, D_CL,`
		170	`"DL", LBREG, D_DL,`
		171	`"BL", LBREG, D_BL,`
		172	`"AH", LBREG, D_AH,`
		173	`"CH", LBREG, D_CH,`
		174	`"DH", LBREG, D_DH,`
		175	`"BH", LBREG, D_BH,`
		176
		177	`"AX", LLREG, D_AX,`
		178	`"CX", LLREG, D_CX,`
		179	`"DX", LLREG, D_DX,`
		180	`"BX", LLREG, D_BX,`
		181	`/* "SP", LLREG, D_SP, */`
		182	`"BP", LLREG, D_BP,`
		183	`"SI", LLREG, D_SI,`
		184	`"DI", LLREG, D_DI,`
		185
		186	`"F0", LFREG, D_F0+0,`
		187	`"F1", LFREG, D_F0+1,`
		188	`"F2", LFREG, D_F0+2,`
		189	`"F3", LFREG, D_F0+3,`
		190	`"F4", LFREG, D_F0+4,`
		191	`"F5", LFREG, D_F0+5,`
		192	`"F6", LFREG, D_F0+6,`
		193	`"F7", LFREG, D_F0+7,`
		194
		195	`"CS", LSREG, D_CS,`
		196	`"SS", LSREG, D_SS,`
		197	`"DS", LSREG, D_DS,`
		198	`"ES", LSREG, D_ES,`
		199	`"FS", LSREG, D_FS,`
		200	`"GS", LSREG, D_GS,`
		201
		202	`"GDTR", LBREG, D_GDTR,`
		203	`"IDTR", LBREG, D_IDTR,`
		204	`"LDTR", LBREG, D_LDTR,`
		205	`"MSW", LBREG, D_MSW,`
		206	`"TASK", LBREG, D_TASK,`
		207
		208	`"CR0", LBREG, D_CR+0,`
		209	`"CR1", LBREG, D_CR+1,`
		210	`"CR2", LBREG, D_CR+2,`
		211	`"CR3", LBREG, D_CR+3,`
		212	`"CR4", LBREG, D_CR+4,`
		213	`"CR5", LBREG, D_CR+5,`
		214	`"CR6", LBREG, D_CR+6,`
		215	`"CR7", LBREG, D_CR+7,`
		216
		217	`"DR0", LBREG, D_DR+0,`
		218	`"DR1", LBREG, D_DR+1,`
		219	`"DR2", LBREG, D_DR+2,`
		220	`"DR3", LBREG, D_DR+3,`
		221	`"DR4", LBREG, D_DR+4,`
		222	`"DR5", LBREG, D_DR+5,`
		223	`"DR6", LBREG, D_DR+6,`
		224	`"DR7", LBREG, D_DR+7,`
		225
		226	`"TR0", LBREG, D_TR+0,`
		227	`"TR1", LBREG, D_TR+1,`
		228	`"TR2", LBREG, D_TR+2,`
		229	`"TR3", LBREG, D_TR+3,`
		230	`"TR4", LBREG, D_TR+4,`
		231	`"TR5", LBREG, D_TR+5,`
		232	`"TR6", LBREG, D_TR+6,`
		233	`"TR7", LBREG, D_TR+7,`
		234
		235	`"AAA", LTYPE0, AAAA,`
		236	`"AAD", LTYPE0, AAAD,`
		237	`"AAM", LTYPE0, AAAM,`
		238	`"AAS", LTYPE0, AAAS,`
		239	`"ADCB", LTYPE3, AADCB,`
		240	`"ADCL", LTYPE3, AADCL,`
		241	`"ADCW", LTYPE3, AADCW,`
		242	`"ADDB", LTYPE3, AADDB,`
		243	`"ADDL", LTYPE3, AADDL,`
		244	`"ADDW", LTYPE3, AADDW,`
		245	`"ADJSP", LTYPE2, AADJSP,`
		246	`"ANDB", LTYPE3, AANDB,`
		247	`"ANDL", LTYPE3, AANDL,`
		248	`"ANDW", LTYPE3, AANDW,`
		249	`"ARPL", LTYPE3, AARPL,`
		250	`"BOUNDL", LTYPE3, ABOUNDL,`
		251	`"BOUNDW", LTYPE3, ABOUNDW,`
		252	`"BSFL", LTYPE3, ABSFL,`
		253	`"BSFW", LTYPE3, ABSFW,`
		254	`"BSRL", LTYPE3, ABSRL,`
		255	`"BSRW", LTYPE3, ABSRW,`
		256	`"BTCL", LTYPE3, ABTCL,`
		257	`"BTCW", LTYPE3, ABTCW,`
		258	`"BTL", LTYPE3, ABTL,`
		259	`"BTRL", LTYPE3, ABTRL,`
		260	`"BTRW", LTYPE3, ABTRW,`
		261	`"BTSL", LTYPE3, ABTSL,`
		262	`"BTSW", LTYPE3, ABTSW,`
		263	`"BTW", LTYPE3, ABTW,`
		264	`"BYTE", LTYPE2, ABYTE,`
		265	`"CALL", LTYPEC, ACALL,`
		266	`"CLC", LTYPE0, ACLC,`
		267	`"CLD", LTYPE0, ACLD,`
		268	`"CLI", LTYPE0, ACLI,`
		269	`"CLTS", LTYPE0, ACLTS,`
		270	`"CMC", LTYPE0, ACMC,`
		271	`"CMPB", LTYPE4, ACMPB,`
		272	`"CMPL", LTYPE4, ACMPL,`
		273	`"CMPW", LTYPE4, ACMPW,`
		274	`"CMPSB", LTYPE0, ACMPSB,`
		275	`"CMPSL", LTYPE0, ACMPSL,`
		276	`"CMPSW", LTYPE0, ACMPSW,`
		277	`"CMPXCHGB", LTYPE3, ACMPXCHGB,`
		278	`"CMPXCHGL", LTYPE3, ACMPXCHGL,`
		279	`"CMPXCHGW", LTYPE3, ACMPXCHGW,`
		280	`"DAA", LTYPE0, ADAA,`
		281	`"DAS", LTYPE0, ADAS,`
		282	`"DATA", LTYPED, ADATA,`
		283	`"DECB", LTYPE1, ADECB,`
		284	`"DECL", LTYPE1, ADECL,`
		285	`"DECW", LTYPE1, ADECW,`
		286	`"DIVB", LTYPE2, ADIVB,`
		287	`"DIVL", LTYPE2, ADIVL,`
		288	`"DIVW", LTYPE2, ADIVW,`
		289	`"END", LTYPE0, AEND,`
		290	`"ENTER", LTYPE2, AENTER,`
		291	`"GLOBL", LTYPEG, AGLOBL,`
		292	`"HLT", LTYPE0, AHLT,`
		293	`"IDIVB", LTYPE2, AIDIVB,`
		294	`"IDIVL", LTYPE2, AIDIVL,`
		295	`"IDIVW", LTYPE2, AIDIVW,`
		296	`"IMULB", LTYPEI, AIMULB,`
		297	`"IMULL", LTYPEI, AIMULL,`
		298	`"IMULW", LTYPEI, AIMULW,`
		299	`"INB", LTYPE0, AINB,`
		300	`"INL", LTYPE0, AINL,`
		301	`"INW", LTYPE0, AINW,`
		302	`"INCB", LTYPE1, AINCB,`
		303	`"INCL", LTYPE1, AINCL,`
		304	`"INCW", LTYPE1, AINCW,`
		305	`"INSB", LTYPE0, AINSB,`
		306	`"INSL", LTYPE0, AINSL,`
		307	`"INSW", LTYPE0, AINSW,`
		308	`"INT", LTYPE2, AINT,`
		309	`"INTO", LTYPE0, AINTO,`
		310	`"IRETL", LTYPE0, AIRETL,`
		311	`"IRETW", LTYPE0, AIRETW,`
		312
		313	`"JOS", LTYPER, AJOS,`
		314	`"JO", LTYPER, AJOS, /* alternate */`
		315	`"JOC", LTYPER, AJOC,`
		316	`"JNO", LTYPER, AJOC, /* alternate */`
		317	`"JCS", LTYPER, AJCS,`
		318	`"JB", LTYPER, AJCS, /* alternate */`
		319	`"JC", LTYPER, AJCS, /* alternate */`
		320	`"JNAE", LTYPER, AJCS, /* alternate */`
		321	`"JLO", LTYPER, AJCS, /* alternate */`
		322	`"JCC", LTYPER, AJCC,`
		323	`"JAE", LTYPER, AJCC, /* alternate */`
		324	`"JNB", LTYPER, AJCC, /* alternate */`
		325	`"JNC", LTYPER, AJCC, /* alternate */`
		326	`"JHS", LTYPER, AJCC, /* alternate */`
		327	`"JEQ", LTYPER, AJEQ,`
		328	`"JE", LTYPER, AJEQ, /* alternate */`
		329	`"JZ", LTYPER, AJEQ, /* alternate */`
		330	`"JNE", LTYPER, AJNE,`
		331	`"JNZ", LTYPER, AJNE, /* alternate */`
		332	`"JLS", LTYPER, AJLS,`
		333	`"JBE", LTYPER, AJLS, /* alternate */`
		334	`"JNA", LTYPER, AJLS, /* alternate */`
		335	`"JHI", LTYPER, AJHI,`
		336	`"JA", LTYPER, AJHI, /* alternate */`
		337	`"JNBE", LTYPER, AJHI, /* alternate */`
		338	`"JMI", LTYPER, AJMI,`
		339	`"JS", LTYPER, AJMI, /* alternate */`
		340	`"JPL", LTYPER, AJPL,`
		341	`"JNS", LTYPER, AJPL, /* alternate */`
		342	`"JPS", LTYPER, AJPS,`
		343	`"JP", LTYPER, AJPS, /* alternate */`
		344	`"JPE", LTYPER, AJPS, /* alternate */`
		345	`"JPC", LTYPER, AJPC,`
		346	`"JNP", LTYPER, AJPC, /* alternate */`
		347	`"JPO", LTYPER, AJPC, /* alternate */`
		348	`"JLT", LTYPER, AJLT,`
		349	`"JL", LTYPER, AJLT, /* alternate */`
		350	`"JNGE", LTYPER, AJLT, /* alternate */`
		351	`"JGE", LTYPER, AJGE,`
		352	`"JNL", LTYPER, AJGE, /* alternate */`
		353	`"JLE", LTYPER, AJLE,`
		354	`"JNG", LTYPER, AJLE, /* alternate */`
		355	`"JGT", LTYPER, AJGT,`
		356	`"JG", LTYPER, AJGT, /* alternate */`
		357	`"JNLE", LTYPER, AJGT, /* alternate */`
		358
		359	`"JCXZ", LTYPER, AJCXZ,`
		360	`"JMP", LTYPEC, AJMP,`
		361	`"LAHF", LTYPE0, ALAHF,`
		362	`"LARL", LTYPE3, ALARL,`
		363	`"LARW", LTYPE3, ALARW,`
		364	`"LEAL", LTYPE3, ALEAL,`
		365	`"LEAW", LTYPE3, ALEAW,`
		366	`"LEAVEL", LTYPE0, ALEAVEL,`
		367	`"LEAVEW", LTYPE0, ALEAVEW,`
		368	`"LOCK", LTYPE0, ALOCK,`
		369	`"LODSB", LTYPE0, ALODSB,`
		370	`"LODSL", LTYPE0, ALODSL,`
		371	`"LODSW", LTYPE0, ALODSW,`
		372	`"LONG", LTYPE2, ALONG,`
		373	`"LOOP", LTYPER, ALOOP,`
		374	`"LOOPEQ", LTYPER, ALOOPEQ,`
		375	`"LOOPNE", LTYPER, ALOOPNE,`
		376	`"LSLL", LTYPE3, ALSLL,`
		377	`"LSLW", LTYPE3, ALSLW,`
		378	`"MOVB", LTYPE3, AMOVB,`
		379	`"MOVL", LTYPEM, AMOVL,`
		380	`"MOVW", LTYPEM, AMOVW,`
		381	`"MOVBLSX", LTYPE3, AMOVBLSX,`
		382	`"MOVBLZX", LTYPE3, AMOVBLZX,`
		383	`"MOVBWSX", LTYPE3, AMOVBWSX,`
		384	`"MOVBWZX", LTYPE3, AMOVBWZX,`
		385	`"MOVWLSX", LTYPE3, AMOVWLSX,`
		386	`"MOVWLZX", LTYPE3, AMOVWLZX,`
		387	`"MOVSB", LTYPE0, AMOVSB,`
		388	`"MOVSL", LTYPE0, AMOVSL,`
		389	`"MOVSW", LTYPE0, AMOVSW,`
		390	`"MULB", LTYPE2, AMULB,`
		391	`"MULL", LTYPE2, AMULL,`
		392	`"MULW", LTYPE2, AMULW,`
		393	`"NEGB", LTYPE1, ANEGB,`
		394	`"NEGL", LTYPE1, ANEGL,`
		395	`"NEGW", LTYPE1, ANEGW,`
		396	`"NOP", LTYPEN, ANOP,`
		397	`"NOTB", LTYPE1, ANOTB,`
		398	`"NOTL", LTYPE1, ANOTL,`
		399	`"NOTW", LTYPE1, ANOTW,`
		400	`"ORB", LTYPE3, AORB,`
		401	`"ORL", LTYPE3, AORL,`
		402	`"ORW", LTYPE3, AORW,`
		403	`"OUTB", LTYPE0, AOUTB,`
		404	`"OUTL", LTYPE0, AOUTL,`
		405	`"OUTW", LTYPE0, AOUTW,`
		406	`"OUTSB", LTYPE0, AOUTSB,`
		407	`"OUTSL", LTYPE0, AOUTSL,`
		408	`"OUTSW", LTYPE0, AOUTSW,`
		409	`"POPAL", LTYPE0, APOPAL,`
		410	`"POPAW", LTYPE0, APOPAW,`
		411	`"POPFL", LTYPE0, APOPFL,`
		412	`"POPFW", LTYPE0, APOPFW,`
		413	`"POPL", LTYPE1, APOPL,`
		414	`"POPW", LTYPE1, APOPW,`
		415	`"PUSHAL", LTYPE0, APUSHAL,`
		416	`"PUSHAW", LTYPE0, APUSHAW,`
		417	`"PUSHFL", LTYPE0, APUSHFL,`
		418	`"PUSHFW", LTYPE0, APUSHFW,`
		419	`"PUSHL", LTYPE2, APUSHL,`
		420	`"PUSHW", LTYPE2, APUSHW,`
		421	`"RCLB", LTYPE3, ARCLB,`
		422	`"RCLL", LTYPE3, ARCLL,`
		423	`"RCLW", LTYPE3, ARCLW,`
		424	`"RCRB", LTYPE3, ARCRB,`
		425	`"RCRL", LTYPE3, ARCRL,`
		426	`"RCRW", LTYPE3, ARCRW,`
		427	`"REP", LTYPE0, AREP,`
		428	`"REPN", LTYPE0, AREPN,`
		429	`"RET", LTYPE0, ARET,`
		430	`"ROLB", LTYPE3, AROLB,`
		431	`"ROLL", LTYPE3, AROLL,`
		432	`"ROLW", LTYPE3, AROLW,`
		433	`"RORB", LTYPE3, ARORB,`
		434	`"RORL", LTYPE3, ARORL,`
		435	`"RORW", LTYPE3, ARORW,`
		436	`"SAHF", LTYPE0, ASAHF,`
		437	`"SALB", LTYPE3, ASALB,`
		438	`"SALL", LTYPE3, ASALL,`
		439	`"SALW", LTYPE3, ASALW,`
		440	`"SARB", LTYPE3, ASARB,`
		441	`"SARL", LTYPE3, ASARL,`
		442	`"SARW", LTYPE3, ASARW,`
		443	`"SBBB", LTYPE3, ASBBB,`
		444	`"SBBL", LTYPE3, ASBBL,`
		445	`"SBBW", LTYPE3, ASBBW,`
		446	`"SCASB", LTYPE0, ASCASB,`
		447	`"SCASL", LTYPE0, ASCASL,`
		448	`"SCASW", LTYPE0, ASCASW,`
		449	`"SETCC", LTYPE1, ASETCC,`
		450	`"SETCS", LTYPE1, ASETCS,`
		451	`"SETEQ", LTYPE1, ASETEQ,`
		452	`"SETGE", LTYPE1, ASETGE,`
		453	`"SETGT", LTYPE1, ASETGT,`
		454	`"SETHI", LTYPE1, ASETHI,`
		455	`"SETLE", LTYPE1, ASETLE,`
		456	`"SETLS", LTYPE1, ASETLS,`
		457	`"SETLT", LTYPE1, ASETLT,`
		458	`"SETMI", LTYPE1, ASETMI,`
		459	`"SETNE", LTYPE1, ASETNE,`
		460	`"SETOC", LTYPE1, ASETOC,`
		461	`"SETOS", LTYPE1, ASETOS,`
		462	`"SETPC", LTYPE1, ASETPC,`
		463	`"SETPL", LTYPE1, ASETPL,`
		464	`"SETPS", LTYPE1, ASETPS,`
		465	`"CDQ", LTYPE0, ACDQ,`
		466	`"CWD", LTYPE0, ACWD,`
		467	`"SHLB", LTYPE3, ASHLB,`
		468	`"SHLL", LTYPES, ASHLL,`
		469	`"SHLW", LTYPES, ASHLW,`
		470	`"SHRB", LTYPE3, ASHRB,`
		471	`"SHRL", LTYPES, ASHRL,`
		472	`"SHRW", LTYPES, ASHRW,`
		473	`"STC", LTYPE0, ASTC,`
		474	`"STD", LTYPE0, ASTD,`
		475	`"STI", LTYPE0, ASTI,`
		476	`"STOSB", LTYPE0, ASTOSB,`
		477	`"STOSL", LTYPE0, ASTOSL,`
		478	`"STOSW", LTYPE0, ASTOSW,`
		479	`"SUBB", LTYPE3, ASUBB,`
		480	`"SUBL", LTYPE3, ASUBL,`
		481	`"SUBW", LTYPE3, ASUBW,`
		482	`"SYSCALL", LTYPE0, ASYSCALL,`
		483	`"TESTB", LTYPE3, ATESTB,`
		484	`"TESTL", LTYPE3, ATESTL,`
		485	`"TESTW", LTYPE3, ATESTW,`
		486	`"TEXT", LTYPET, ATEXT,`
		487	`"VERR", LTYPE2, AVERR,`
		488	`"VERW", LTYPE2, AVERW,`
		489	`"WAIT", LTYPE0, AWAIT,`
		490	`"WORD", LTYPE2, AWORD,`
		491	`"XCHGB", LTYPE3, AXCHGB,`
		492	`"XCHGL", LTYPE3, AXCHGL,`
		493	`"XCHGW", LTYPE3, AXCHGW,`
		494	`"XLAT", LTYPE2, AXLAT,`
		495	`"XORB", LTYPE3, AXORB,`
		496	`"XORL", LTYPE3, AXORL,`
		497	`"XORW", LTYPE3, AXORW,`
		498
		499	`"CMOVLCC", LTYPE3, ACMOVLCC,`
		500	`"CMOVLCS", LTYPE3, ACMOVLCS,`
		501	`"CMOVLEQ", LTYPE3, ACMOVLEQ,`
		502	`"CMOVLGE", LTYPE3, ACMOVLGE,`
		503	`"CMOVLGT", LTYPE3, ACMOVLGT,`
		504	`"CMOVLHI", LTYPE3, ACMOVLHI,`
		505	`"CMOVLLE", LTYPE3, ACMOVLLE,`
		506	`"CMOVLLS", LTYPE3, ACMOVLLS,`
		507	`"CMOVLLT", LTYPE3, ACMOVLLT,`
		508	`"CMOVLMI", LTYPE3, ACMOVLMI,`
		509	`"CMOVLNE", LTYPE3, ACMOVLNE,`
		510	`"CMOVLOC", LTYPE3, ACMOVLOC,`
		511	`"CMOVLOS", LTYPE3, ACMOVLOS,`
		512	`"CMOVLPC", LTYPE3, ACMOVLPC,`
		513	`"CMOVLPL", LTYPE3, ACMOVLPL,`
		514	`"CMOVLPS", LTYPE3, ACMOVLPS,`
		515	`"CMOVWCC", LTYPE3, ACMOVWCC,`
		516	`"CMOVWCS", LTYPE3, ACMOVWCS,`
		517	`"CMOVWEQ", LTYPE3, ACMOVWEQ,`
		518	`"CMOVWGE", LTYPE3, ACMOVWGE,`
		519	`"CMOVWGT", LTYPE3, ACMOVWGT,`
		520	`"CMOVWHI", LTYPE3, ACMOVWHI,`
		521	`"CMOVWLE", LTYPE3, ACMOVWLE,`
		522	`"CMOVWLS", LTYPE3, ACMOVWLS,`
		523	`"CMOVWLT", LTYPE3, ACMOVWLT,`
		524	`"CMOVWMI", LTYPE3, ACMOVWMI,`
		525	`"CMOVWNE", LTYPE3, ACMOVWNE,`
		526	`"CMOVWOC", LTYPE3, ACMOVWOC,`
		527	`"CMOVWOS", LTYPE3, ACMOVWOS,`
		528	`"CMOVWPC", LTYPE3, ACMOVWPC,`
		529	`"CMOVWPL", LTYPE3, ACMOVWPL,`
		530	`"CMOVWPS", LTYPE3, ACMOVWPS,`
		531
		532	`"FMOVB", LTYPE3, AFMOVB,`
		533	`"FMOVBP", LTYPE3, AFMOVBP,`
		534	`"FMOVD", LTYPE3, AFMOVD,`
		535	`"FMOVDP", LTYPE3, AFMOVDP,`
		536	`"FMOVF", LTYPE3, AFMOVF,`
		537	`"FMOVFP", LTYPE3, AFMOVFP,`
		538	`"FMOVL", LTYPE3, AFMOVL,`
		539	`"FMOVLP", LTYPE3, AFMOVLP,`
		540	`"FMOVV", LTYPE3, AFMOVV,`
		541	`"FMOVVP", LTYPE3, AFMOVVP,`
		542	`"FMOVW", LTYPE3, AFMOVW,`
		543	`"FMOVWP", LTYPE3, AFMOVWP,`
		544	`"FMOVX", LTYPE3, AFMOVX,`
		545	`"FMOVXP", LTYPE3, AFMOVXP,`
		546	`"FCMOVCC", LTYPE3, AFCMOVCC,`
		547	`"FCMOVCS", LTYPE3, AFCMOVCS,`
		548	`"FCMOVEQ", LTYPE3, AFCMOVEQ,`
		549	`"FCMOVHI", LTYPE3, AFCMOVHI,`
		550	`"FCMOVLS", LTYPE3, AFCMOVLS,`
		551	`"FCMOVNE", LTYPE3, AFCMOVNE,`
		552	`"FCMOVNU", LTYPE3, AFCMOVNU,`
		553	`"FCMOVUN", LTYPE3, AFCMOVUN,`
		554	`"FCOMB", LTYPE3, AFCOMB,`
		555	`"FCOMBP", LTYPE3, AFCOMBP,`
		556	`"FCOMD", LTYPE3, AFCOMD,`
		557	`"FCOMDP", LTYPE3, AFCOMDP,`
		558	`"FCOMDPP", LTYPE3, AFCOMDPP,`
		559	`"FCOMF", LTYPE3, AFCOMF,`
		560	`"FCOMFP", LTYPE3, AFCOMFP,`
		561	`"FCOMI", LTYPE3, AFCOMI,`
		562	`"FCOMIP", LTYPE3, AFCOMIP,`
		563	`"FCOML", LTYPE3, AFCOML,`
		564	`"FCOMLP", LTYPE3, AFCOMLP,`
		565	`"FCOMW", LTYPE3, AFCOMW,`
		566	`"FCOMWP", LTYPE3, AFCOMWP,`
		567	`"FUCOM", LTYPE3, AFUCOM,`
		568	`"FUCOMI", LTYPE3, AFUCOMI,`
		569	`"FUCOMIP", LTYPE3, AFUCOMIP,`
		570	`"FUCOMP", LTYPE3, AFUCOMP,`
		571	`"FUCOMPP", LTYPE3, AFUCOMPP,`
		572	`"FADDW", LTYPE3, AFADDW,`
		573	`"FADDL", LTYPE3, AFADDL,`
		574	`"FADDF", LTYPE3, AFADDF,`
		575	`"FADDD", LTYPE3, AFADDD,`
		576	`"FADDDP", LTYPE3, AFADDDP,`
		577	`"FSUBDP", LTYPE3, AFSUBDP,`
		578	`"FSUBW", LTYPE3, AFSUBW,`
		579	`"FSUBL", LTYPE3, AFSUBL,`
		580	`"FSUBF", LTYPE3, AFSUBF,`
		581	`"FSUBD", LTYPE3, AFSUBD,`
		582	`"FSUBRDP", LTYPE3, AFSUBRDP,`
		583	`"FSUBRW", LTYPE3, AFSUBRW,`
		584	`"FSUBRL", LTYPE3, AFSUBRL,`
		585	`"FSUBRF", LTYPE3, AFSUBRF,`
		586	`"FSUBRD", LTYPE3, AFSUBRD,`
		587	`"FMULDP", LTYPE3, AFMULDP,`
		588	`"FMULW", LTYPE3, AFMULW,`
		589	`"FMULL", LTYPE3, AFMULL,`
		590	`"FMULF", LTYPE3, AFMULF,`
		591	`"FMULD", LTYPE3, AFMULD,`
		592	`"FDIVDP", LTYPE3, AFDIVDP,`
		593	`"FDIVW", LTYPE3, AFDIVW,`
		594	`"FDIVL", LTYPE3, AFDIVL,`
		595	`"FDIVF", LTYPE3, AFDIVF,`
		596	`"FDIVD", LTYPE3, AFDIVD,`
		597	`"FDIVRDP", LTYPE3, AFDIVRDP,`
		598	`"FDIVRW", LTYPE3, AFDIVRW,`
		599	`"FDIVRL", LTYPE3, AFDIVRL,`
		600	`"FDIVRF", LTYPE3, AFDIVRF,`
		601	`"FDIVRD", LTYPE3, AFDIVRD,`
		602	`"FXCHD", LTYPE3, AFXCHD,`
		603	`"FFREE", LTYPE1, AFFREE,`
		604	`"FLDCW", LTYPE2, AFLDCW,`
		605	`"FLDENV", LTYPE1, AFLDENV,`
		606	`"FRSTOR", LTYPE2, AFRSTOR,`
		607	`"FSAVE", LTYPE1, AFSAVE,`
		608	`"FSTCW", LTYPE1, AFSTCW,`
		609	`"FSTENV", LTYPE1, AFSTENV,`
		610	`"FSTSW", LTYPE1, AFSTSW,`
		611	`"F2XM1", LTYPE0, AF2XM1,`
		612	`"FABS", LTYPE0, AFABS,`
		613	`"FCHS", LTYPE0, AFCHS,`
		614	`"FCLEX", LTYPE0, AFCLEX,`
		615	`"FCOS", LTYPE0, AFCOS,`
		616	`"FDECSTP", LTYPE0, AFDECSTP,`
		617	`"FINCSTP", LTYPE0, AFINCSTP,`
		618	`"FINIT", LTYPE0, AFINIT,`
		619	`"FLD1", LTYPE0, AFLD1,`
		620	`"FLDL2E", LTYPE0, AFLDL2E,`
		621	`"FLDL2T", LTYPE0, AFLDL2T,`
		622	`"FLDLG2", LTYPE0, AFLDLG2,`
		623	`"FLDLN2", LTYPE0, AFLDLN2,`
		624	`"FLDPI", LTYPE0, AFLDPI,`
		625	`"FLDZ", LTYPE0, AFLDZ,`
		626	`"FNOP", LTYPE0, AFNOP,`
		627	`"FPATAN", LTYPE0, AFPATAN,`
		628	`"FPREM", LTYPE0, AFPREM,`
		629	`"FPREM1", LTYPE0, AFPREM1,`
		630	`"FPTAN", LTYPE0, AFPTAN,`
		631	`"FRNDINT", LTYPE0, AFRNDINT,`
		632	`"FSCALE", LTYPE0, AFSCALE,`
		633	`"FSIN", LTYPE0, AFSIN,`
		634	`"FSINCOS", LTYPE0, AFSINCOS,`
		635	`"FSQRT", LTYPE0, AFSQRT,`
		636	`"FTST", LTYPE0, AFTST,`
		637	`"FXAM", LTYPE0, AFXAM,`
		638	`"FXTRACT", LTYPE0, AFXTRACT,`
		639	`"FYL2X", LTYPE0, AFYL2X,`
		640	`"FYL2XP1", LTYPE0, AFYL2XP1,`
		641
		642
		643	`};`
		644
		645	`void`
		646	`cinit(void)`
		647	`{`
		648	`Sym *s;`
		649	`int i;`
		650
		651	`nullgen.sym = S;`
		652	`nullgen.offset = 0;`
		653	`if(FPCHIP)`
		654	`nullgen.dval = 0;`
		655	`for(i=0; i<sizeof(nullgen.sval); i++)`
		656	`nullgen.sval[i] = 0;`
		657	`nullgen.type = D_NONE;`
		658	`nullgen.index = D_NONE;`
		659	`nullgen.scale = 0;`
		660
		661	`nerrors = 0;`
		662	`iostack = I;`
		663	`iofree = I;`
		664	`peekc = IGN;`
		665	`nhunk = 0;`
		666	`for(i=0; i<NHASH; i++)`
		667	`hash[i] = S;`
		668	`for(i=0; itab[i].name; i++) {`
		669	`s = slookup(itab[i].name);`
		670	`if(s->type != LNAME)`
		671	`yyerror("double initialization %s", itab[i].name);`
		672	`s->type = itab[i].type;`
		673	`s->value = itab[i].value;`
		674	`}`
		675
		676	`pathname = allocn(pathname, 0, 100);`
		677	`if(mygetwd(pathname, 99) == 0) {`
		678	`pathname = allocn(pathname, 100, 900);`
		679	`if(mygetwd(pathname, 999) == 0)`
		680	`strcpy(pathname, "/???");`
		681	`}`
		682	`}`
		683
		684	`void`
		685	`checkscale(int scale)`
		686	`{`
		687
		688	`switch(scale) {`
		689	`case 1:`
		690	`case 2:`
		691	`case 4:`
		692	`case 8:`
		693	`return;`
		694	`}`
		695	`yyerror("scale must be 1248: %d", scale);`
		696	`}`
		697
		698	`void`
		699	`syminit(Sym *s)`
		700	`{`
		701
		702	`s->type = LNAME;`
		703	`s->value = 0;`
		704	`}`
		705
		706	`void`
		707	`cclean(void)`
		708	`{`
		709	`Gen2 g2;`
		710
		711	`g2.from = nullgen;`
		712	`g2.to = nullgen;`
		713	`outcode(AEND, &g2);`
		714	`Bflush(&obuf);`
		715	`}`
		716
		717	`void`
		718	`zname(char *n, int t, int s)`
		719	`{`
		720
		721	`Bputc(&obuf, ANAME); /* as(2) */`
		722	`Bputc(&obuf, ANAME>>8);`
		723	`Bputc(&obuf, t); /* type */`
		724	`Bputc(&obuf, s); /* sym */`
		725	`while(*n) {`
		726	`Bputc(&obuf, *n);`
		727	`n++;`
		728	`}`
		729	`Bputc(&obuf, 0);`
		730	`}`
		731
		732	`void`
		733	`zaddr(Gen *a, int s)`
		734	`{`
		735	`long l;`
		736	`int i, t;`
		737	`char *n;`
		738	`Ieee e;`
		739
		740	`t = 0;`
		741	`if(a->index != D_NONE \|\| a->scale != 0)`
		742	`t \|= T_INDEX;`
		743	`if(a->offset != 0)`
		744	`t \|= T_OFFSET;`
		745	`if(s != 0)`
		746	`t \|= T_SYM;`
		747
		748	`switch(a->type) {`
		749	`default:`
		750	`t \|= T_TYPE;`
		751	`break;`
		752	`case D_FCONST:`
		753	`t \|= T_FCONST;`
		754	`break;`
		755	`case D_CONST2:`
		756	`t \|= T_OFFSET\|T_OFFSET2;`
		757	`break;`
		758	`case D_SCONST:`
		759	`t \|= T_SCONST;`
		760	`break;`
		761	`case D_NONE:`
		762	`break;`
		763	`}`
		764	`Bputc(&obuf, t);`
		765
		766	`if(t & T_INDEX) { /* implies index, scale */`
		767	`Bputc(&obuf, a->index);`
		768	`Bputc(&obuf, a->scale);`
		769	`}`
		770	`if(t & T_OFFSET) { /* implies offset */`
		771	`l = a->offset;`
		772	`Bputc(&obuf, l);`
		773	`Bputc(&obuf, l>>8);`
		774	`Bputc(&obuf, l>>16);`
		775	`Bputc(&obuf, l>>24);`
		776	`}`
		777	`if(t & T_OFFSET2) {`
		778	`l = a->offset2;`
		779	`Bputc(&obuf, l);`
		780	`Bputc(&obuf, l>>8);`
		781	`Bputc(&obuf, l>>16);`
		782	`Bputc(&obuf, l>>24);`
		783	`}`
		784	`if(t & T_SYM) /* implies sym */`
		785	`Bputc(&obuf, s);`
		786	`if(t & T_FCONST) {`
		787	`ieeedtod(&e, a->dval);`
		788	`l = e.l;`
		789	`Bputc(&obuf, l);`
		790	`Bputc(&obuf, l>>8);`
		791	`Bputc(&obuf, l>>16);`
		792	`Bputc(&obuf, l>>24);`
		793	`l = e.h;`
		794	`Bputc(&obuf, l);`
		795	`Bputc(&obuf, l>>8);`
		796	`Bputc(&obuf, l>>16);`
		797	`Bputc(&obuf, l>>24);`
		798	`return;`
		799	`}`
		800	`if(t & T_SCONST) {`
		801	`n = a->sval;`
		802	`for(i=0; i<NSNAME; i++) {`
		803	`Bputc(&obuf, *n);`
		804	`n++;`
		805	`}`
		806	`return;`
		807	`}`
		808	`if(t & T_TYPE)`
		809	`Bputc(&obuf, a->type);`
		810	`}`
		811
		812	`void`
		813	`outcode(int a, Gen2 *g2)`
		814	`{`
		815	`int sf, st, t;`
		816	`Sym *s;`
		817
		818	`if(pass == 1)`
		819	`goto out;`
		820
		821	`jackpot:`
		822	`sf = 0;`
		823	`s = g2->from.sym;`
		824	`while(s != S) {`
		825	`sf = s->sym;`
		826	`if(sf < 0 \|\| sf >= NSYM)`
		827	`sf = 0;`
		828	`t = g2->from.type;`
		829	`if(t == D_ADDR)`
		830	`t = g2->from.index;`
		831	`if(h[sf].type == t)`
		832	`if(h[sf].sym == s)`
		833	`break;`
		834	`zname(s->name, t, sym);`
		835	`s->sym = sym;`
		836	`h[sym].sym = s;`
		837	`h[sym].type = t;`
		838	`sf = sym;`
		839	`sym++;`
		840	`if(sym >= NSYM)`
		841	`sym = 1;`
		842	`break;`
		843	`}`
		844	`st = 0;`
		845	`s = g2->to.sym;`
		846	`while(s != S) {`
		847	`st = s->sym;`
		848	`if(st < 0 \|\| st >= NSYM)`
		849	`st = 0;`
		850	`t = g2->to.type;`
		851	`if(t == D_ADDR)`
		852	`t = g2->to.index;`
		853	`if(h[st].type == t)`
		854	`if(h[st].sym == s)`
		855	`break;`
		856	`zname(s->name, t, sym);`
		857	`s->sym = sym;`
		858	`h[sym].sym = s;`
		859	`h[sym].type = t;`
		860	`st = sym;`
		861	`sym++;`
		862	`if(sym >= NSYM)`
		863	`sym = 1;`
		864	`if(st == sf)`
		865	`goto jackpot;`
		866	`break;`
		867	`}`
		868	`Bputc(&obuf, a);`
		869	`Bputc(&obuf, a>>8);`
		870	`Bputc(&obuf, lineno);`
		871	`Bputc(&obuf, lineno>>8);`
		872	`Bputc(&obuf, lineno>>16);`
		873	`Bputc(&obuf, lineno>>24);`
		874	`zaddr(&g2->from, sf);`
		875	`zaddr(&g2->to, st);`
		876
		877	`out:`
		878	`if(a != AGLOBL && a != ADATA)`
		879	`pc++;`
		880	`}`
		881
		882	`void`
		883	`outhist(void)`
		884	`{`
		885	`Gen g;`
		886	`Hist *h;`
		887	`char p, q, *op, c;`
		888	`int n;`
		889
		890	`g = nullgen;`
		891	`c = pathchar();`
		892	`for(h = hist; h != H; h = h->link) {`
		893	`p = h->name;`
		894	`op = 0;`
		895	`/* on windows skip drive specifier in pathname */`
		896	`if(systemtype(Windows) && p && p[1] == ':'){`
		897	`p += 2;`
		898	`c = *p;`
		899	`}`
		900	`if(p && p[0] != c && h->offset == 0 && pathname){`
		901	`/* on windows skip drive specifier in pathname */`
		902	`if(systemtype(Windows) && pathname[1] == ':') {`
		903	`op = p;`
		904	`p = pathname+2;`
		905	`c = *p;`
		906	`} else if(pathname[0] == c){`
		907	`op = p;`
		908	`p = pathname;`
		909	`}`
		910	`}`
		911	`while(p) {`
		912	`q = strchr(p, c);`
		913	`if(q) {`
		914	`n = q-p;`
		915	`if(n == 0){`
		916	`n = 1; /* leading "/" */`
		917	`p = '/'; / don't emit "\" on windows */`
		918	`}`
		919	`q++;`
		920	`} else {`
		921	`n = strlen(p);`
		922	`q = 0;`
		923	`}`
		924	`if(n) {`
		925	`Bputc(&obuf, ANAME);`
		926	`Bputc(&obuf, ANAME>>8);`
		927	`Bputc(&obuf, D_FILE); /* type */`
		928	`Bputc(&obuf, 1); /* sym */`
		929	`Bputc(&obuf, '<');`
		930	`Bwrite(&obuf, p, n);`
		931	`Bputc(&obuf, 0);`
		932	`}`
		933	`p = q;`
		934	`if(p == 0 && op) {`
		935	`p = op;`
		936	`op = 0;`
		937	`}`
		938	`}`
		939	`g.offset = h->offset;`
		940
		941	`Bputc(&obuf, AHISTORY);`
		942	`Bputc(&obuf, AHISTORY>>8);`
		943	`Bputc(&obuf, h->line);`
		944	`Bputc(&obuf, h->line>>8);`
		945	`Bputc(&obuf, h->line>>16);`
		946	`Bputc(&obuf, h->line>>24);`
		947	`zaddr(&nullgen, 0);`
		948	`zaddr(&g, 0);`
		949	`}`
		950	`}`
		951
		952	`#include "../cc/lexbody"`
		953	`#include "../cc/macbody"`
		954	`#include "../cc/compat"`

Subversion Repositories planix.SVN

(root)/os/branches/feature_posix/sys/src/cmd/8a/lex.c – Rev 42