Extended for new read_em module.

This commit is contained in:
ceriel 1987-01-05 12:51:37 +00:00
parent 0329b9ef9a
commit da3976277f

View file

@ -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)