From 0abe5e195ee79ecbffd5a89474a44854203afd0a Mon Sep 17 00:00:00 2001
From: keie <none@none>
Date: Thu, 4 Oct 1984 10:47:03 +0000
Subject: [PATCH] 1- Added RCS identification. 2- The pathnames of the Pascal
 compiler and Compile time-error file    are now always explicitly passed to
 em_pc.

---
 lib/descr/fe.src | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

diff --git a/lib/descr/fe.src b/lib/descr/fe.src
index 03e9cd59a..bada90642 100644
--- a/lib/descr/fe.src
+++ b/lib/descr/fe.src
@@ -1,7 +1,8 @@
 # (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+# $Header$
 callname ack
 name cpp
-	# no from, it's governed by the P property
+	# no from, this is a preprocessor
 	to .i
 	program {EM}/lib/cpp
 	mapflag -I* CPP_F={CPP_F?} -I*
@@ -9,7 +10,8 @@ name cpp
 	mapflag -D* CPP_F={CPP_F?} -D*
 	args {CPP_F?} {INCLUDES?} -D{NAME} -DEM_WSIZE={w} -DEM_PSIZE={p} \
 -DEM_SSIZE={s} -DEM_LSIZE={l} -DEM_FSIZE={f} -DEM_DSIZE={d} <
-	prop >P
+	stdout
+	prep is
 end
 name cem
 	from .c
@@ -18,12 +20,16 @@ name cem
 	mapflag -p CEM_F={CEM_F?} -Xp
 	mapflag -L CEM_F={CEM_F?} -l
 	args -Vw{w}i{w}p{p}f{f}s{s}l{l}d{d} {CEM_F?}
-	prop <>p
+	stdin
+	stdout
+	prep always
 	rts .c
 	need .c
 	callname acc
 	callname cc
 end
+var PC_PCPATH={EM}/lib/pc_pem
+var PC_ERRPATH={EM}/etc/pc_rt_errors
 name pc
 	from .p
 	to .k
@@ -34,8 +40,10 @@ name pc
 	mapflag -e PC_F={PC_F?} -e
 	mapflag -{*} PC_F={PC_F?} -\{*}
 	mapflag -L PC_F={PC_F?} -\{l-}
-	args -Vw{w}p{p}f{d}l{l} {PC_F?} < > {SOURCE}
-	prop m
+	mapflag -Pr* PC_ERRPATH=*
+	mapflag -Pr* PC_PCPATH=*
+	args -Vw{w}p{p}f{d}l{l} -R{PC_PCPATH} -r{PC_ERRPATH} {PC_F?} < > {SOURCE}
+	prep cond
 	rts .p
 	need .p
 	callname apc
@@ -49,9 +57,9 @@ name pc
 	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
+#	mapflag -d ABC_F={ABC_F?} -d
 	args {ABC_F?} < > {SOURCE}
-	prop p
+	prep always
 	rts .b
 	need .b
 	callname abc
@@ -61,7 +69,8 @@ name encode
 	to .k
 	program {EM}/lib/em_encode
 	args <
-	prop >m
+	prep cond
+	stdout
 end
 name opt
 	from .k
@@ -69,21 +78,13 @@ name opt
 	program {EM}/lib/em_opt
 	mapflag -LIB OPT_F={OPT_F?} -L
 	args {OPT_F?} <
-	prop >O
-end
-name ego
-	from .m.ma
-	to .g
-	program /bin/sh
-	mapflag -Q* EGO_F={EGO_F?} -Q*
-	args {EM}/lib/em_ego {EGO_F?} -P {EM}/util/ego \
--M{EM}/lib/ego/{M}descr <
-	prop OC>
+	stdout
+	optimizer
 end
 name decode
 	from .k.m.g
 	to .e
 	program {EM}/lib/em_decode
 	args <
-	prop >
+	stdout
 end
-- 
2.34.1