From: ceriel <none@none>
Date: Mon, 5 Jan 1987 12:51:37 +0000 (+0000)
Subject: Extended for new read_em module.
X-Git-Tag: release-5-5~5076
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=da3976277f2750a31d252ba2d252c9909341e6c3;p=ack.git

Extended for new read_em module.
---

diff --git a/h/em_ptyp.h b/h/em_ptyp.h
index 6cb3da2c6..ad6d500c4 100644
--- a/h/em_ptyp.h
+++ b/h/em_ptyp.h
@@ -1,8 +1,20 @@
 #define	ptyp(x)		(1<<(x-sp_fspec))
 
-#define	cst_ptyp	0000140
-#define	sym_ptyp	0000034
-#define	arg_ptyp	0000574
-#define	con_ptyp	0036000
-#define	val_ptyp	0037777
-#define	any_ptyp	0137777
+#define	cst_ptyp	(ptyp(sp_cst2)|ptyp(sp_cst4))
+#define nof_ptyp	(ptyp(sp_dlb1)|ptyp(sp_dlb2)|ptyp(sp_doff))
+#define sof_ptyp	(ptyp(sp_dnam)|ptyp(sp_doff))
+#define lab_ptyp	(ptyp(sp_dlb1)|ptyp(sp_dlb2)|ptyp(sp_dnam))
+#define ico_ptyp	(ptyp(sp_icon))
+#define uco_ptyp	(ptyp(sp_ucon))
+#define fco_ptyp	(ptyp(sp_fcon))
+#define str_ptyp	(ptyp(sp_scon))
+#define	con_ptyp	(str_ptyp|ico_ptyp|uco_ptyp|fco_ptyp)
+#define ilb_ptyp	(ptyp(sp_ilb1)|ptyp(sp_ilb2))
+#define pro_ptyp	(ptyp(sp_pnam))
+#define off_ptyp	(ptyp(sp_doff))
+#define end_ptyp	(ptyp(sp_cend))
+#define	sym_ptyp	(lab_ptyp)
+#define	arg_ptyp	(nof_ptyp|cst_ptyp|sof_ptyp)
+#define	par_ptyp	(arg_ptyp|ico_ptyp|uco_ptyp|fco_ptyp|pro_ptyp|ilb_ptyp)
+#define val_ptyp	(par_ptyp|str_ptyp)
+#define	any_ptyp	(val_ptyp|end_ptyp)