d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Use awk program to generate distinct C_xxx routines in separate files.

Browse source
This commit is contained in:
bruce 1987-02-06 14:13:22 +00:00
parent 102790400d
commit d5e9250405
3 changed files with 97 additions and 147 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
modules/src/em_opt/Makefile
View file

@ -4,17 +4,38 @@ INSTALL = $(EMHOME)/modules/install
COMPARE = $(EMHOME)/modules/compare
LIBOPT = libopt.a
CSRC = nopt.c aux.c mkcalls.c pseudo.c outputdfa.c outcalls.c\
# set HOWMUCH to head -20 to limit number of patterns used
#HOWMUCH = head -20
HOWMUCH = cat
LEXLIB = -ll
INCLDIR = -I$(EMHOME)/h -I$(EMHOME)/modules/h -I$(EMHOME)/modules/pkg
PREFLAGS = $(INCLDIR) -DPRIVATE=static
# Enable the next line to produce a version that output's the line number
# from the patterns file each time an optimization is performed.
#PREFLAG = $(PREFLAGS) -DSTATS
PROFFLAG = -O
CFLAGS = $(PREFLAGS) $(PROFFLAG)
LLOPT =
CMD = '$(CC) -c $(CFLAGS)'
.SUFFIXES: .d .r
.r.d:; CMD=$(CMD); export CMD; awk -f makefuns.awk $*.r | sh
touch $@
CSRC = nopt.c aux.c mkcalls.c outputdfa.c outcalls.c\
findworst.c initlex.c
SRCS = Makefile nopt.h parser.h parser.g syntax.l patterns $(CSRC)
SRCS = Makefile nopt.h parser.h parser.g syntax.l pseudo.r patterns $(CSRC)
NOFILES = nopt.o dfa.o trans.o incalls.o pseudo.o aux.o mkcalls.o
NOFILES = nopt.o dfa.o trans.o aux.o mkcalls.o
POFILES = parser.o syntax.o outputdfa.o outcalls.o findworst.o initlex.o Lpars.o
GENFILES = Lpars.h Lpars.c parserdummy parser.c syntax.c dfadummy\
dfa.c dfa.c.save trans.c trans.c.save incalls.c incalls.c.save
dfa.c dfa.c.save trans.c trans.c.save incalls.d incalls.r\
incalls.r.save pseudo.d
all: $(LIBOPT)
@ -31,37 +52,25 @@ opr:
make pr | opr
clean:
rm -f C_*.o
rm -f C_*.c
rm -f $(NOFILES) $(POFILES) $(GENFILES) parser libopt.a
# set HOWMUCH to head -20 to limit number of patterns used
#HOWMUCH = head -20
HOWMUCH = cat
LEXLIB = -ll
INCLDIR = -I$(EMHOME)/h -I$(EMHOME)/modules/h -I$(EMHOME)/modules/pkg
PREFLAGS = $(INCLDIR) -DPRIVATE=static
# Enable the next line to produce a version that output's the line number
# from the patterns file each time an optimization is performed.
#PREFLAGS = $(PREFLAGS) -DSTATS
PROFFLAG = -O
CFLAGS = $(PREFLAGS) $(PROFFLAG)
LLOPT =
$(LIBOPT): dfadummy $(NOFILES)
$(LIBOPT): dfadummy $(NOFILES) pseudo.d incalls.d
rm -f $(LIBOPT)
ar rc $(LIBOPT) $(NOFILES)
ar rc $(LIBOPT) C_*.o $(NOFILES)
-sh -c 'ranlib $(LIBOPT)'
dfadummy: patterns parser
-mv dfa.c dfa.c.save
-mv trans.c trans.c.save
-mv incalls.c incalls.c.save
-mv incalls.r incalls.r.save
-/lib/cpp patterns | $(HOWMUCH) >/tmp/patts
parser </tmp/patts
-rm /tmp/patts
-if cmp -s dfa.c dfa.c.save; then mv dfa.c.save dfa.c; else exit 0; fi
-if cmp -s trans.c trans.c.save; then mv trans.c.save trans.c; else exit 0; fi
-if cmp -s incalls.c incalls.c.save; then mv incalls.c.save incalls.c; else exit 0; fi
-if cmp -s incalls.r incalls.r.save; then mv incalls.r.save incalls.r; else exit 0; fi
touch dfadummy
# How to build program to parse patterns table and build c files.
@ -80,12 +89,13 @@ parserdummy: parser.g
touch parserdummy
nopt.o: nopt.h
dfa.o: nopt.h
aux.o: nopt.h
trans.o: nopt.h
pseudo.o: nopt.h
incalls.o: nopt.h
pseudo.d: nopt.h
mkcalls.o: nopt.h
dfa.o: nopt.h dfadummy
trans.o: nopt.h dfadummy
incalls.d: nopt.h
incalls.r: dfadummy
parser.o: Lpars.h parser.h
Lpars.o: Lpars.h

150
modules/src/em_opt/mkcalls.c
View file

@ -9,30 +9,23 @@ OO_mkcalls(p)
{
switch(p->opcode) {
case op_aar:
if(p->argtype!=none_ptyp) O_aar(p->acst);
else O_aar_narg(); break;
O_aar(p->acst); break;
case op_adf:
if(p->argtype!=none_ptyp) O_adf(p->acst);
else O_adf_narg(); break;
O_adf(p->acst); break;
case op_adi:
if(p->argtype!=none_ptyp) O_adi(p->acst);
else O_adi_narg(); break;
O_adi(p->acst); break;
case op_adp:
O_adp(p->acst); break;
case op_ads:
if(p->argtype!=none_ptyp) O_ads(p->acst);
else O_ads_narg(); break;
O_ads(p->acst); break;
case op_adu:
if(p->argtype!=none_ptyp) O_adu(p->acst);
else O_adu_narg(); break;
O_adu(p->acst); break;
case op_and:
if(p->argtype!=none_ptyp) O_and(p->acst);
else O_and_narg(); break;
O_and(p->acst); break;
case op_asp:
O_asp(p->acst); break;
case op_ass:
if(p->argtype!=none_ptyp) O_ass(p->acst);
else O_ass_narg(); break;
O_ass(p->acst); break;
case op_beq:
O_beq((label)p->acst); break;
case op_bge:
@ -44,8 +37,7 @@ OO_mkcalls(p)
case op_blm:
O_blm(p->acst); break;
case op_bls:
if(p->argtype!=none_ptyp) O_bls(p->acst);
else O_bls_narg(); break;
O_bls(p->acst); break;
case op_blt:
O_blt((label)p->acst); break;
case op_bne:
@ -69,28 +61,21 @@ OO_mkcalls(p)
case op_ciu:
O_ciu(); break;
case op_cmf:
if(p->argtype!=none_ptyp) O_cmf(p->acst);
else O_cmf_narg(); break;
O_cmf(p->acst); break;
case op_cmi:
if(p->argtype!=none_ptyp) O_cmi(p->acst);
else O_cmi_narg(); break;
O_cmi(p->acst); break;
case op_cmp:
O_cmp(); break;
case op_cms:
if(p->argtype!=none_ptyp) O_cms(p->acst);
else O_cms_narg(); break;
O_cms(p->acst); break;
case op_cmu:
if(p->argtype!=none_ptyp) O_cmu(p->acst);
else O_cmu_narg(); break;
O_cmu(p->acst); break;
case op_com:
if(p->argtype!=none_ptyp) O_com(p->acst);
else O_com_narg(); break;
O_com(p->acst); break;
case op_csa:
if(p->argtype!=none_ptyp) O_csa(p->acst);
else O_csa_narg(); break;
O_csa(p->acst); break;
case op_csb:
if(p->argtype!=none_ptyp) O_csb(p->acst);
else O_csb_narg(); break;
O_csb(p->acst); break;
case op_cuf:
O_cuf(); break;
case op_cui:
@ -109,26 +94,19 @@ OO_mkcalls(p)
case op_dup:
O_dup(p->acst); break;
case op_dus:
if(p->argtype!=none_ptyp) O_dus(p->acst);
else O_dus_narg(); break;
O_dus(p->acst); break;
case op_dvf:
if(p->argtype!=none_ptyp) O_dvf(p->acst);
else O_dvf_narg(); break;
O_dvf(p->acst); break;
case op_dvi:
if(p->argtype!=none_ptyp) O_dvi(p->acst);
else O_dvi_narg(); break;
O_dvi(p->acst); break;
case op_dvu:
if(p->argtype!=none_ptyp) O_dvu(p->acst);
else O_dvu_narg(); break;
O_dvu(p->acst); break;
case op_exg:
if(p->argtype!=none_ptyp) O_exg(p->acst);
else O_exg_narg(); break;
O_exg(p->acst); break;
case op_fef:
if(p->argtype!=none_ptyp) O_fef(p->acst);
else O_fef_narg(); break;
O_fef(p->acst); break;
case op_fif:
if(p->argtype!=none_ptyp) O_fif(p->acst);
else O_fif_narg(); break;
O_fif(p->acst); break;
case op_fil:
if(p->argtype==nof_ptyp) O_fil_dlb(p->adlb, p->anoff);
else O_fil_dnam(p->adnam, p->asoff); break;
@ -143,11 +121,9 @@ OO_mkcalls(p)
case op_inl:
O_inl(p->acst); break;
case op_inn:
if(p->argtype!=none_ptyp) O_inn(p->acst);
else O_inn_narg(); break;
O_inn(p->acst); break;
case op_ior:
if(p->argtype!=none_ptyp) O_ior(p->acst);
else O_ior_narg(); break;
O_ior(p->acst); break;
case op_lab:
O_df_ilb(p->alab); break;
case op_lae:
@ -156,8 +132,7 @@ OO_mkcalls(p)
case op_lal:
O_lal(p->acst); break;
case op_lar:
if(p->argtype!=none_ptyp) O_lar(p->acst);
else O_lar_narg(); break;
O_lar(p->acst); break;
case op_ldc:
O_ldc(p->acst); break;
case op_lde:
@ -191,8 +166,7 @@ OO_mkcalls(p)
case op_lor:
O_lor(p->acst); break;
case op_los:
if(p->argtype!=none_ptyp) O_los(p->acst);
else O_los_narg(); break;
O_los(p->acst); break;
case op_lpb:
O_lpb(); break;
case op_lpi:
@ -202,58 +176,43 @@ OO_mkcalls(p)
case op_lxl:
O_lxl(p->acst); break;
case op_mlf:
if(p->argtype!=none_ptyp) O_mlf(p->acst);
else O_mlf_narg(); break;
O_mlf(p->acst); break;
case op_mli:
if(p->argtype!=none_ptyp) O_mli(p->acst);
else O_mli_narg(); break;
O_mli(p->acst); break;
case op_mlu:
if(p->argtype!=none_ptyp) O_mlu(p->acst);
else O_mlu_narg(); break;
O_mlu(p->acst); break;
case op_mon:
O_mon(); break;
case op_ngf:
if(p->argtype!=none_ptyp) O_ngf(p->acst);
else O_ngf_narg(); break;
O_ngf(p->acst); break;
case op_ngi:
if(p->argtype!=none_ptyp) O_ngi(p->acst);
else O_ngi_narg(); break;
O_ngi(p->acst); break;
case op_nop:
O_nop(); break;
case op_rck:
if(p->argtype!=none_ptyp) O_rck(p->acst);
else O_rck_narg(); break;
O_rck(p->acst); break;
case op_ret:
O_ret(p->acst); break;
case op_rmi:
if(p->argtype!=none_ptyp) O_rmi(p->acst);
else O_rmi_narg(); break;
O_rmi(p->acst); break;
case op_rmu:
if(p->argtype!=none_ptyp) O_rmu(p->acst);
else O_rmu_narg(); break;
O_rmu(p->acst); break;
case op_rol:
if(p->argtype!=none_ptyp) O_rol(p->acst);
else O_rol_narg(); break;
O_rol(p->acst); break;
case op_ror:
if(p->argtype!=none_ptyp) O_ror(p->acst);
else O_ror_narg(); break;
O_ror(p->acst); break;
case op_rtt:
O_rtt(); break;
case op_sar:
if(p->argtype!=none_ptyp) O_sar(p->acst);
else O_sar_narg(); break;
O_sar(p->acst); break;
case op_sbf:
if(p->argtype!=none_ptyp) O_sbf(p->acst);
else O_sbf_narg(); break;
O_sbf(p->acst); break;
case op_sbi:
if(p->argtype!=none_ptyp) O_sbi(p->acst);
else O_sbi_narg(); break;
O_sbi(p->acst); break;
case op_sbs:
if(p->argtype!=none_ptyp) O_sbs(p->acst);
else O_sbs_narg(); break;
O_sbs(p->acst); break;
case op_sbu:
if(p->argtype!=none_ptyp) O_sbu(p->acst);
else O_sbu_narg(); break;
O_sbu(p->acst); break;
case op_sde:
if(p->argtype==nof_ptyp) O_sde_dlb(p->adlb, p->anoff);
else O_sde_dnam(p->adnam, p->asoff); break;
@ -262,8 +221,7 @@ OO_mkcalls(p)
case op_sdl:
O_sdl(p->acst); break;
case op_set:
if(p->argtype!=none_ptyp) O_set(p->acst);
else O_set_narg(); break;
O_set(p->acst); break;
case op_sig:
O_sig(); break;
case op_sil:
@ -271,17 +229,13 @@ OO_mkcalls(p)
case op_sim:
O_sim(); break;
case op_sli:
if(p->argtype!=none_ptyp) O_sli(p->acst);
else O_sli_narg(); break;
O_sli(p->acst); break;
case op_slu:
if(p->argtype!=none_ptyp) O_slu(p->acst);
else O_slu_narg(); break;
O_slu(p->acst); break;
case op_sri:
if(p->argtype!=none_ptyp) O_sri(p->acst);
else O_sri_narg(); break;
O_sri(p->acst); break;
case op_sru:
if(p->argtype!=none_ptyp) O_sru(p->acst);
else O_sru_narg(); break;
O_sru(p->acst); break;
case op_ste:
if(p->argtype==nof_ptyp) O_ste_dlb(p->adlb, p->anoff);
else O_ste_dnam(p->adnam, p->asoff); break;
@ -294,8 +248,7 @@ OO_mkcalls(p)
case op_str:
O_str(p->acst); break;
case op_sts:
if(p->argtype!=none_ptyp) O_sts(p->acst);
else O_sts_narg(); break;
O_sts(p->acst); break;
case op_teq:
O_teq(); break;
case op_tge:
@ -311,13 +264,11 @@ OO_mkcalls(p)
case op_trp:
O_trp(); break;
case op_xor:
if(p->argtype!=none_ptyp) O_xor(p->acst);
else O_xor_narg(); break;
O_xor(p->acst); break;
case op_zeq:
O_zeq((label)p->acst); break;
case op_zer:
if(p->argtype!=none_ptyp) O_zer(p->acst);
else O_zer_narg(); break;
O_zer(p->acst); break;
case op_zge:
O_zge((label)p->acst); break;
case op_zgt:
@ -332,8 +283,7 @@ OO_mkcalls(p)
if(p->argtype==nof_ptyp) O_zre_dlb(p->adlb, p->anoff);
else O_zre_dnam(p->adnam, p->asoff); break;
case op_zrf:
if(p->argtype!=none_ptyp) O_zrf(p->acst);
else O_zrf_narg(); break;
O_zrf(p->acst); break;
case op_zrl:
O_zrl(p->acst); break;
}

32
modules/src/em_opt/outcalls.c
View file

@ -9,17 +9,16 @@ outputincalls()
struct idf *op;
int opcode;
char *s;
if(!sys_open("incalls.c",OP_WRITE,&ofile)) {
fprint(STDERR,"Fatal Error: cannot open output file incalls.c\n");
if(!sys_open("incalls.r",OP_WRITE,&ofile)) {
fprint(STDERR,"Fatal Error: cannot open output file incalls.r\n");
sys_stop(S_EXIT);
}
fprint(ofile,"#include \"nopt.h\"\n\n");
for(op=ops;op!=(struct idf *)NULL;op=op->id_nextidf) {
opcode = op->id_opcode;
s = op->id_text;
switch(op->id_argfmt) {
case NOARG:
fprint(ofile,"\nC_%s() {\n",s);
fprint(ofile,"%s\t|\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inop(op_%s);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -28,10 +27,9 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s();\n",s);
}
fprint(ofile,"}\n",s);
break;
case CSTOPT:
fprint(ofile,"\nC_%s_narg() {\n",s);
fprint(ofile,"%s_narg\t|\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inop(op_%s);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -40,10 +38,9 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s_narg();\n",s);
}
fprint(ofile,"}\n",s);
/* fall thru */
case CST:
fprint(ofile,"\nC_%s(n) int n; {\n",s);
fprint(ofile,"%s\t| int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_incst(op_%s,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -52,10 +49,9 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(n);\n",s);
}
fprint(ofile,"}\n",s);
break;
case DEFILB:
fprint(ofile,"\nC_df_ilb(l) label l; {\n");
fprint(ofile,"df_ilb\t| label:l\t|\n");
if(op->id_used) {
fprint(ofile,"\tOO_indefilb(op_%s,l);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -64,10 +60,9 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_df_ilb(l);\n",s);
}
fprint(ofile,"}\n",s);
break;
case PNAM:
fprint(ofile,"\nC_%s(s) char *s; {\n",s);
fprint(ofile,"%s\t| char *:s\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inpnam(op_%s,s);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -76,10 +71,9 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(s);\n",s);
}
fprint(ofile,"}\n",s);
break;
case LAB:
fprint(ofile,"\nC_%s(l) label l; {\n",s);
fprint(ofile,"%s\t| label:l\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inlab(op_%s,l);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -88,10 +82,9 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(l);\n",s);
}
fprint(ofile,"}\n",s);
break;
case EXT:
fprint(ofile,"\nC_%s(n) int n; {\n",s);
fprint(ofile,"%s\t| int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_incst(op_%s,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -100,8 +93,7 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(n);\n",s);
}
fprint(ofile,"}\n",s);
fprint(ofile,"\nC_%s_dnam(s,n) char *s; int n; {\n",s);
fprint(ofile,"%s_dnam\t| char *:s int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_indnam(op_%s,s,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -110,8 +102,7 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s_dnam(s,n);\n",s);
}
fprint(ofile,"}\n",s);
fprint(ofile,"\nC_%s_dlb(l,n) label l; int n; {\n",s);
fprint(ofile,"%s_dlb\t| label:l int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_indlb(op_%s,l,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
@ -120,7 +111,6 @@ outputincalls()
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s_dlb(l,n);\n",s);
}
fprint(ofile,"}\n",s);
break;
}
}