127 lines
4 KiB
C
127 lines
4 KiB
C
|
/************************************************************************/
|
||
|
|
/* */
|
||
|
|
/* RCPP - Resource Compiler Pre-Processor for NT system */
|
||
|
|
/* */
|
||
|
|
/* P0DEFS.H - Defintions for PreProcessor parsing code */
|
||
|
|
/* */
|
||
|
|
/* 06-Dec-90 w-BrianM Update for NT from PM SDK RCPP */
|
||
|
|
/* */
|
||
|
|
/************************************************************************/
|
||
|
|
|
||
|
|
struct s_defn {
|
||
|
|
pdefn_t defn_next; /* pointer to next ident */
|
||
|
|
PUCHAR defn_ident; /* pointer to name */
|
||
|
|
ptext_t defn_text; /* definition substitution string */
|
||
|
|
char defn_nformals;/*number of formal arguments - can be <0*/
|
||
|
|
char defn_expanding; /* are we already expanding this one? */
|
||
|
|
};
|
||
|
|
|
||
|
|
#define DEFN_IDENT(P) ((P)->defn_ident)
|
||
|
|
#define DEFN_NAME(P) (DEFN_IDENT(P))
|
||
|
|
#define DEFN_NEXT(P) ((P)->defn_next)
|
||
|
|
#define DEFN_TEXT(P) ((P)->defn_text)
|
||
|
|
#define DEFN_NFORMALS(P) ((P)->defn_nformals)
|
||
|
|
#define DEFN_EXPANDING(P) ((P)->defn_expanding)
|
||
|
|
|
||
|
|
#define FILE_EOS 0x01
|
||
|
|
#define ACTUAL_EOS 0x02
|
||
|
|
#define DEFINITION_EOS 0x04
|
||
|
|
#define RESCAN_EOS 0x08
|
||
|
|
#define BACKSLASH_EOS 0x10
|
||
|
|
#define ANY_EOS ( FILE_EOS | ACTUAL_EOS | DEFINITION_EOS\
|
||
|
|
| RESCAN_EOS | BACKSLASH_EOS )
|
||
|
|
|
||
|
|
/*
|
||
|
|
** arbitrarily chosen characters that get special treatment when found
|
||
|
|
** after EOS in handle_eos()
|
||
|
|
*/
|
||
|
|
#define EOS_ACTUAL 'A'
|
||
|
|
#define EOS_DEFINITION 'D'
|
||
|
|
#define EOS_RESCAN 'R'
|
||
|
|
#define EOS_PAD 'P'
|
||
|
|
|
||
|
|
#define FROM_COMMAND -2
|
||
|
|
#define PRE_DEFINED(P) (DEFN_NFORMALS(P) < FROM_COMMAND)
|
||
|
|
|
||
|
|
typedef struct s_expstr {
|
||
|
|
ptext_t exp_string; /* ptr to next character in stream aft macro */
|
||
|
|
char *exp_actuals; /* ptr to start of actuals linked list */
|
||
|
|
ptext_t exp_text; /* ptr to expanded text for this macro */
|
||
|
|
pdefn_t exp_macro; /* ptr to macro defn */
|
||
|
|
UCHAR exp_nactuals; /* number of actuals */
|
||
|
|
UCHAR exp_nactsexpanded;/* number of expanded actuals for handle_eos*/
|
||
|
|
} expansion_t;
|
||
|
|
|
||
|
|
/*
|
||
|
|
** note that CURRENT_STRING usually points into an area in the macro
|
||
|
|
** expansion buffer, but the first item used (Macro_depth equals 1) points
|
||
|
|
** to text read from a file. In some versions, the heap is reshuffled
|
||
|
|
** and this pointer must be updated for the first item.
|
||
|
|
*/
|
||
|
|
#define CURRENT_STRING Macro_expansion[Macro_depth].exp_string
|
||
|
|
#define CURRENT_ACTUALS Macro_expansion[Macro_depth].exp_actuals
|
||
|
|
#define CURRENT_TEXT Macro_expansion[Macro_depth].exp_text
|
||
|
|
#define CURRENT_MACRO Macro_expansion[Macro_depth].exp_macro
|
||
|
|
#define CURRENT_NACTUALS Macro_expansion[Macro_depth].exp_nactuals
|
||
|
|
#define CURRENT_NACTSEXPANDED Macro_expansion[Macro_depth].exp_nactsexpanded
|
||
|
|
|
||
|
|
/*
|
||
|
|
** finds address after last element in an array. Used to check for
|
||
|
|
** buffer overflows.
|
||
|
|
*/
|
||
|
|
#define LIMIT(a) &(a)[sizeof(a)]
|
||
|
|
|
||
|
|
#define IS_CHAR(c,uc) (toupper(c) == (uc))
|
||
|
|
#define IS_B(c) IS_CHAR(c, 'B')
|
||
|
|
#define IS_D(c) IS_CHAR(c, 'D')
|
||
|
|
#define IS_E(c) IS_CHAR(c, 'E')
|
||
|
|
#define IS_F(c) IS_CHAR(c, 'F')
|
||
|
|
#define IS_H(c) IS_CHAR(c, 'H')
|
||
|
|
#define IS_EL(c) IS_CHAR(c, 'L')
|
||
|
|
#define IS_O(c) IS_CHAR(c, 'O')
|
||
|
|
#define IS_Q(c) IS_CHAR(c, 'Q')
|
||
|
|
#define IS_U(c) IS_CHAR(c, 'U')
|
||
|
|
#define IS_X(c) IS_CHAR(c, 'X')
|
||
|
|
#define IS_DOT(c) (c == '.')
|
||
|
|
#define IS_SIGN(c) ((c == '+') || (c =='-'))
|
||
|
|
|
||
|
|
#define P0_IF 0
|
||
|
|
#define P0_ELIF 1
|
||
|
|
#define P0_ELSE 2
|
||
|
|
#define P0_ENDIF 3
|
||
|
|
#define P0_IFDEF 4
|
||
|
|
#define P0_IFNDEF 5
|
||
|
|
#define P0_DEFINE 6
|
||
|
|
#define P0_INCLUDE 7
|
||
|
|
#define P0_PRAGMA 8
|
||
|
|
#define P0_UNDEF 9
|
||
|
|
#define P0_LINE 10
|
||
|
|
#define P0_NOTOKEN 11
|
||
|
|
#define P0_ERROR 12
|
||
|
|
#define P0_IDENT 13
|
||
|
|
|
||
|
|
|
||
|
|
#define HLN_NAME(s) ((s).hln_name)
|
||
|
|
#define HLN_HASH(s) ((s).hln_hash)
|
||
|
|
#define HLN_LENGTH(s) ((s).hln_length)
|
||
|
|
#define HLN_IDENT_HASH(p) (HLN_HASH(*(p)))
|
||
|
|
#define HLN_IDENT_LENGTH(p) (HLN_LENGTH(*(p)))
|
||
|
|
#define HLN_IDENTP_NAME(p) (HLN_NAME(*(p)))
|
||
|
|
#define HLN_TO_NAME(S) ((PUCHAR)pstrndup(HLN_IDENTP_NAME(S),HLN_IDENT_LENGTH(S)))
|
||
|
|
|
||
|
|
#define HASH_MASK 0x5f
|
||
|
|
|
||
|
|
#define LIMIT_ID_LENGTH 31
|
||
|
|
#define LIMIT_NESTED_INCLUDES 10
|
||
|
|
#define LIMIT_MACRO_DEPTH 64
|
||
|
|
#define LIMIT_STRING_LENGTH 2043
|
||
|
|
#define LEVEL_0 0xff
|
||
|
|
|
||
|
|
#define MUST_OPEN 1
|
||
|
|
#define MAY_OPEN 0
|
||
|
|
|
||
|
|
/*** The following are defined to use on the Token Table ***/
|
||
|
|
|
||
|
|
#define TS_STR(idx) (Tokstrings[idx-L_NOTOKEN].k_text)
|
||
|
|
#define TS_VALUE(idx) (Tokstrings[idx-L_NOTOKEN].k_token)
|