renamed fe
This commit is contained in:
ceriel
parent
f0d26d1935
commit
6d86200992
2 changed files with 226 additions and 1 deletions
|
|
@ -1,2 +1,2 @@
|
|||
fe.src
|
||||
fe
|
||||
cpm
|
||||
|
|
|
|||
225
lib/descr/fe
Normal file
225
lib/descr/fe
Normal file
|
|
@ -0,0 +1,225 @@
|
|||
# (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||||
# $Header$
|
||||
#
|
||||
# Don't generate line updating code by default (i.e.: -L flag provided to cem).
|
||||
# To put it on again: use -NL
|
||||
var LFLAG=-L
|
||||
var C_INCLUDES=-I{EM}/include/_tail_cc
|
||||
var ANSI_C_INCLUDES=-I{EM}/include/tail_ac
|
||||
|
||||
callname ack
|
||||
name cpp
|
||||
# no from, this is a preprocessor
|
||||
to .i
|
||||
program {EM}/lib/cpp{ANSI_C?}
|
||||
mapflag -I* CPP_F={CPP_F?} -I*
|
||||
mapflag -U* CPP_F={CPP_F?} -U*
|
||||
mapflag -D* CPP_F={CPP_F?} -D*
|
||||
mapflag -P CPP_F={CPP_F?} -P
|
||||
mapflag -C CPP_F={CPP_F?} -C
|
||||
mapflag -wo CPP_F={CPP_F?} -o
|
||||
mapflag -ansi ANSI_C=.ansi
|
||||
args {CPP_F?} ({SUFFIX?}:.ocm=-I{EM}/include/occam) \
|
||||
({ANSI_C?}:.ansi={SYSINCLUDES?} {ANSI_C_INCLUDES} {INCLUDES?}) \
|
||||
({ANSI_C?.c}:{SUFFIX}={SYSINCLUDES?} {C_INCLUDES} {INCLUDES?}) \
|
||||
({ANSI_C?.xx}:.xx=-D{NAME} \
|
||||
-DEM_WSIZE={w} -DEM_PSIZE={p} \
|
||||
-DEM_SSIZE={s} -DEM_LSIZE={l} -DEM_FSIZE={f} -DEM_DSIZE={d}) \
|
||||
-D_EM_WSIZE={w} -D_EM_PSIZE={p} \
|
||||
-D_EM_SSIZE={s} -D_EM_LSIZE={l} -D_EM_FSIZE={f} -D_EM_DSIZE={d} \
|
||||
<
|
||||
stdout
|
||||
prep is
|
||||
end
|
||||
name cem
|
||||
from .c
|
||||
to .k
|
||||
program {EM}/lib/em_cemcom{ANSI_C?}
|
||||
mapflag -ansi ANSI=ansi
|
||||
# mapflag -I* CPP_F={CPP_F?} -I*
|
||||
# mapflag -U* CPP_F={CPP_F?} -U*
|
||||
# mapflag -D* CPP_F={CPP_F?} -D*
|
||||
mapflag -M* CEM_F={CEM_F?} -M*
|
||||
mapflag -L CEM_F={CEM_F?} -L
|
||||
mapflag -A CEM_F={CEM_F?} -A
|
||||
mapflag -NL LFLAG=
|
||||
mapflag -KR CEM_F={CEM_F?} -R
|
||||
mapflag -w CEM_F={CEM_F?} -w
|
||||
mapflag -wa CEM_F={CEM_F?} -a
|
||||
mapflag -wo CEM_F={CEM_F?} -o
|
||||
mapflag -ws CEM_F={CEM_F?} -s
|
||||
mapflag -g CEM_F={CEM_F?} -g
|
||||
mapflag -p CEM_F={CEM_F?} -p
|
||||
mapflag -V* CEM_F={CEM_F?} -V*
|
||||
rts .c
|
||||
need .c
|
||||
args \
|
||||
{CPP_F?} \
|
||||
{SYSINCLUDES?} \
|
||||
({ANSI_C?}:.ansi={ANSI_C_INCLUDES}) \
|
||||
({ANSI_C?.c}:.c={C_INCLUDES}) \
|
||||
{INCLUDES?} \
|
||||
({ANSI_C?.xx}:.xx=-D{NAME}) \
|
||||
-D_EM_WSIZE={w} -D_EM_PSIZE={p} \
|
||||
-D_EM_SSIZE={s} -D_EM_LSIZE={l} -D_EM_FSIZE={f} -D_EM_DSIZE={d} \
|
||||
-Vw{w}.{w}i{w}.{w}p{p}.{w}f{f}.{w}s{s}.{s}l{l}.{w}d{d}.{w} \
|
||||
{CC_ALIGN?} \
|
||||
{CEM_F?} {LFLAG?} < >
|
||||
callname acc
|
||||
callname cc
|
||||
end
|
||||
name pc
|
||||
from .p
|
||||
to .k
|
||||
program {EM}/lib/em_pc
|
||||
mapflag -L PC_F={PC_F?} -L
|
||||
# mapflag -s PC_F={PC_F?} -s
|
||||
mapflag -_ PC_F={PC_F?} -U
|
||||
mapflag -w PC_F={PC_F?} -w
|
||||
mapflag -V* PC_F={PC_F?} -V*
|
||||
mapflag -M* PC_F={PC_F?} -M*
|
||||
# mapflag -i* PC_F={PC_F?} -i*
|
||||
mapflag -A PC_F={PC_F?} -A
|
||||
# mapflag -R PC_F={PC_F?} -R
|
||||
mapflag --* PC_F={PC_F?} -*
|
||||
#range checks can only be disabled through comments
|
||||
args \
|
||||
-Vw{w}.{w}i{w}.{w}l{l}.{w}p{p}.{w}f{d}.{w}S{w}.{w} \
|
||||
{PC_F?} < > {SOURCE}
|
||||
prep cond
|
||||
rts .p
|
||||
need .p
|
||||
callname apc
|
||||
callname pc
|
||||
end
|
||||
name m2
|
||||
from .mod.def
|
||||
to .k
|
||||
program {EM}/lib/em_m2
|
||||
mapflag -I* M2_INCL={M2_INCL?} -I*
|
||||
mapflag -L M2_F={M2_F?} -L
|
||||
mapflag -g M2_F={M2_F?} -g
|
||||
mapflag -w* M2_F={M2_F?} -w*
|
||||
mapflag -W* M2_F={M2_F?} -W*
|
||||
mapflag -_ M2_F={M2_F?} -U
|
||||
mapflag -M* M2_F={M2_F?} -M*
|
||||
mapflag -x M2_F={M2_F?} -x
|
||||
mapflag -Xs M2_F={M2_F?} -s
|
||||
mapflag -V* M2_F={M2_F?} -V*
|
||||
mapflag --* M2_F={M2_F?} -*
|
||||
args \
|
||||
{M2_INCL?} -I{EM}/lib/m2 {M2SYSLIB?} \
|
||||
-Vw{w}.{w}i{w}.{w}p{p}.{w}l{l}.{w}f{f}.{w}d{d}.{w} \
|
||||
{M2_ALIGN?} {M2_F?} < >
|
||||
prep cond
|
||||
rts .mod
|
||||
need .mod
|
||||
callname m2
|
||||
end
|
||||
name ocm
|
||||
from .ocm
|
||||
to .k
|
||||
program {EM}/lib/em_occam
|
||||
mapflag -L OCM_F={OCM_F?} -L
|
||||
mapflag -V* OCM_F={OCM_F?} -V*
|
||||
args -Vw{w}p{p}l{l} {OCM_F?}
|
||||
stdin
|
||||
stdout
|
||||
rts .ocm
|
||||
need .ocm
|
||||
prep cond
|
||||
callname ocm
|
||||
end
|
||||
name abc
|
||||
from .b
|
||||
to .k
|
||||
program {EM}/lib/em_bem
|
||||
mapflag -h ABC_F={ABC_F?} -h
|
||||
mapflag -w ABC_F={ABC_F?} -w
|
||||
mapflag -L ABC_F={ABC_F?} -L
|
||||
mapflag -E ABC_F={ABC_F?} -E
|
||||
# mapflag -d ABC_F={ABC_F?} -d
|
||||
args -Vw{w}p{p}f{d} {ABC_F?} < > {SOURCE}
|
||||
prep cond
|
||||
rts .b
|
||||
need .b
|
||||
callname abc
|
||||
end
|
||||
var A68INIT={EM}/lib/em_a68s_init
|
||||
name a68s
|
||||
from .8.a68
|
||||
to .k
|
||||
program {EM}/lib/em_a68s{w}{p}
|
||||
mapflag -PA* A68INIT=*
|
||||
args < > {SOURCE}.lst {A68INIT}{w}{p} /dev/null
|
||||
prep cond
|
||||
rts .8
|
||||
need .8
|
||||
callname a68s
|
||||
end
|
||||
name encode
|
||||
from .e
|
||||
to .k
|
||||
program {EM}/lib/em_encode
|
||||
args <
|
||||
prep cond
|
||||
stdout
|
||||
end
|
||||
name opt
|
||||
from .k
|
||||
to .m
|
||||
program {EM}/lib/em_opt
|
||||
mapflag -LIB OPT_F={OPT_F?} -L
|
||||
args {OPT_F?} <
|
||||
stdout
|
||||
optimizer
|
||||
end
|
||||
name ego
|
||||
from .m.ma
|
||||
to .gk
|
||||
program {EM}/lib/em_ego
|
||||
mapflag -EGO-* EGO_F={EGO_F?} -*
|
||||
# The following lines are obsolete, but here for backwards compatibility.
|
||||
# They should be removed some day.
|
||||
mapflag -IL* EGO_F={EGO_F?} -IL*
|
||||
mapflag -CS* EGO_F={EGO_F?} -CS*
|
||||
mapflag -SR* EGO_F={EGO_F?} -SR*
|
||||
mapflag -UD* EGO_F={EGO_F?} -UD*
|
||||
mapflag -LV* EGO_F={EGO_F?} -LV*
|
||||
mapflag -SA* EGO_F={EGO_F?} -RA*
|
||||
mapflag -SP* EGO_F={EGO_F?} -SP*
|
||||
mapflag -BO* EGO_F={EGO_F?} -BO*
|
||||
mapflag -CJ* EGO_F={EGO_F?} -CJ*
|
||||
mapflag -EV EGO_F={EGO_F?} -V
|
||||
# End of obsolete lines
|
||||
mapflag -Q* EGO_F={EGO_F?} -Q*
|
||||
mapflag -T* EGO_F={EGO_F?} -T*
|
||||
mapflag -S* EGO_F={EGO_F?} -S*
|
||||
mapflag -s* EGO_F={EGO_F?} -s*
|
||||
mapflag -a EGO_F={EGO_F?} -a
|
||||
mapflag -O* EGO_F={EGO_F?} -O*
|
||||
args \
|
||||
{EGO_F?} -P {EM}/lib/ego \
|
||||
-M{EM}/lib/ego/{M}descr <
|
||||
optimizer 2
|
||||
stdout
|
||||
combiner
|
||||
end
|
||||
name opt2
|
||||
# output of the global optimizer is processed by a stripped version
|
||||
# of the em peephole optimizer
|
||||
from .gk
|
||||
to .g
|
||||
program {EM}/lib/em_opt2
|
||||
# mapflag -LIB OPT_F={OPT_F?} -L
|
||||
args {OPT_F?} <
|
||||
optimizer
|
||||
stdout
|
||||
end
|
||||
name decode
|
||||
from .k.m.g.gk
|
||||
to .e
|
||||
program {EM}/lib/em_decode
|
||||
args <
|
||||
stdout
|
||||
end
|
||||
Loading…
Add table
Reference in a new issue