Extended for new read_em module.

diff --git a/h/em_ptyp.h b/h/em_ptyp.h
index 6cb3da2..ad6d500 100644 (file)
--- 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)