Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

1628 lines
43 KiB

/************************************************************************/
/* */
/* RCPP - Resource Compiler Pre-Processor for NT system */
/* */
/* P0MACROS.C - Preprocessor Macros definitions */
/* */
/* 27-Nov-90 w-BrianM Update for NT from PM SDK RCPP */
/* */
/************************************************************************/
#include <windows.h>
#include <string.h>
#include <stdio.h>
#include <ctype.h>
#include <malloc.h>
#include "rcpptype.h"
#include "rcppdecl.h"
#include "rcppext.h"
#include "p0defs.h"
#include "charmap.h"
/************************************************************************
**
** WARNING: gather_chars() depends ELIMIT being the boundary of
** Macro_buffer.
************************************************************************/
#define ACT_BUFFER &Macro_buffer[0]
#define EXP_BUFFER &Macro_buffer[BIG_BUFFER * 2]
#define EXP_PAD 5
#define ALIMIT &Macro_buffer[BIG_BUFFER * 2]
#define ELIMIT (&Macro_buffer[BIG_BUFFER * 4] - EXP_PAD)
/************************************************************************
** actual argument lists are length preceeded strings which are copied
** into ACT_BUFFER. the first argument is pt'd to by exp_actuals in the
** expansion_t construct. the next actual is obtained by adding the length
** of the current actual to the start of the current actual.
************************************************************************/
#define ACTUAL_SIZE(P) (*(short *)(P))
#define ACTUAL_TEXT(P) ((P) + sizeof(short))
#define ACTUAL_NEXT(P) ((P) + ACTUAL_SIZE(P))
/************************************************************************
** the formals are copied into the buffer similar to the actuals, except
** the size is denoted by an unsigned char, instead of short
************************************************************************/
#define FORMAL_SIZE(P) (*(ptext_t)(P))
#define FORMAL_TEXT(P) ((P) + sizeof(UCHAR))
#define FORMAL_NEXT(P) ((P) + FORMAL_SIZE(P))
expansion_t Macro_expansion[LIMIT_MACRO_DEPTH];
ptext_t P_defn_start;
int N_formals;
pdefn_t Defn_level_0[LEVEL_0 + 1];
/************************************************************************
** These are needed by p0scanner (Exp_ptr,Tiny_lexer_nesting)
************************************************************************/
ptext_t Exp_ptr = EXP_BUFFER; /* ptr to free exp space */
int Tiny_lexer_nesting; /* stay in tiny lexer or back to main */
static ptext_t Act_ptr = ACT_BUFFER; /* ptr to free actuals space */
static ptext_t Save_Exp_ptr = EXP_BUFFER; /* for buffering unbal parens */
static ptext_t P_actuals; /* actuals for this (level) macro */
static int N_actuals; /* number of actuals in invocation */
static int Macro_line; /* where we started the macro */
/************************************************************************/
/* Local Function Prototypes */
/************************************************************************/
void chkbuf(ptext_t);
ptext_t do_strformal(void);
ptext_t do_macformal(int *);
void expand_actual(UCHAR);
void expand_definition(void);
void expand_macro(void);
void fatal_in_macro(int);
ptext_t gather_chars(ptext_t, UCHAR);
void get_actuals(pdefn_t, int);
int get_definition(void);
void get_formals(void);
int is_macro_arg(ptext_t);
void move_to_actual(ptext_t, ptext_t);
void move_to_exp(ptext_t);
void move_to_exp_esc(int, ptext_t);
int post_paste(void);
void push_macro(pdefn_t);
int redefn (ptext_t, ptext_t, int);
int rescan_expansion(void);
/************************************************************************
** UNDEFINE - remove a symbol from the symbol table
** No noise is made if the programmer attempts to undefine a predefined
** macro, but it is not done.
************************************************************************/
void undefine(void)
{
pdefn_t pdef;
pdefn_t prev;
prev = NULL;
pdef = Defn_level_0[Reuse_1_hash & LEVEL_0];
while(pdef) {
if(memcmp (Reuse_1, DEFN_IDENT(pdef), Reuse_1_length) == 0) {
if(PRE_DEFINED(pdef)) {
Msg_Temp = GET_MSG (4112);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1, "#undef");
warning(4112);
break;
}
if(prev == NULL) /* match at head of list */
Defn_level_0[Reuse_1_hash & LEVEL_0] = DEFN_NEXT(pdef);
else
DEFN_NEXT(prev) = DEFN_NEXT(pdef);
break;
}
prev = pdef;
pdef = DEFN_NEXT(pdef);
}
}
/************************************************************************
** BEGIN DEFINE A MACRO {
************************************************************************/
void define(void)
{
UCHAR c;
if (! (LX_IS_IDENT(c = skip_cwhite())) ) {
Msg_Temp = GET_MSG (2007);
SET_MSG (Msg_Text, Msg_Temp);
error (2007); /* #define syntax */
skip_cnew();
return;
}
getid(c);
N_formals = 0;
P_defn_start = Macro_buffer;
/*
** the next character must be white space or an open paren
*/
first_switch:
switch(CHARMAP(c = GETCH())) {
case LX_OPAREN: /* we have formal parameters */
get_formals(); /* changes N_formals and fills Macro_buffer */
if(N_formals == 0) {/* empty formal list */
/*
** we must special case this since the expand() reads in the
** actual arguments iff there are formal parameters. thus if we
** #define foo() bar()
** . . .
** foo()
** will expand as
** bar()()
** we put the right paren in to fool the expander into looking
** for actuals.
*/
N_formals = -1;
}
break;
case LX_WHITE:
break;
case LX_CR:
goto first_switch;
case LX_SLASH:
if( ! skip_comment()) {
Msg_Temp = GET_MSG (2008);
SET_MSG (Msg_Text, Msg_Temp, '/');
error (2008);
}
break;
case LX_NL: /* no definition */
UNGETCH();
definstall((ptext_t)0, 0, 0);
return;
break;
case LX_EOS:
if(handle_eos() != BACKSLASH_EOS) {
goto first_switch;
}
/* got BACKSLASH_EOS */
/*
** FALLTHROUGH
*/
default:
Msg_Temp = GET_MSG (2008);
SET_MSG (Msg_Text, Msg_Temp, c);
error (2008); /* unexpected character in macro definition */
}
definstall(P_defn_start, get_definition(), N_formals);
}
/************************************************************************
** get_formals : collect comma separated idents until the first closing paren
** (the openning paren has already been read)
** since we can't be in a macro when we're asked for this, we can be assured
** that we can use a single buffer to collect all the formal names.
************************************************************************/
void get_formals(void)
{
UCHAR c;
ptext_t p_stop;
ptext_t p_id;
p_id = p_stop = FORMAL_TEXT(P_defn_start);
for(;;) {
switch(CHARMAP(c = skip_cwhite())) {
case LX_ID:
if( p_id != p_stop ) {
Msg_Temp = GET_MSG (2010);
SET_MSG (Msg_Text, Msg_Temp, c);
error (2010);
}
*p_stop++ = c;
for(;;) {
while(LXC_IS_IDENT(c = GETCH())) { /* while an id char */
*p_stop++ = c; /* collect it */
} if(c == EOS_CHAR) {
/*
** found end of buffer marker, make sure it is,
** then handle it.
*/
if(io_eob()) { /* end of buffer in here is bad */
Msg_Temp = GET_MSG (1004);
SET_MSG (Msg_Text, Msg_Temp);
fatal (1004);
}
continue;
}
if((c == '\\') && (checknl())) {
continue;
}
UNGETCH();
break;
}
*p_stop++ = '\0';
break;
case LX_COMMA:
case LX_CPAREN:
if( p_stop > p_id ) {
/* make sure an identifier was read */
if((p_stop - p_id) >= TINY_BUFFER) {
p_id[TINY_BUFFER - 1] = '\0';
Msg_Temp = GET_MSG (4111);
SET_MSG (Msg_Text, Msg_Temp, p_id);
warning(4011); /* id truncated */
p_stop = p_id + TINY_BUFFER;
}
if(is_macro_arg(p_id) >= 1) {
Msg_Temp = GET_MSG (2009);
SET_MSG (Msg_Text, Msg_Temp, p_id);
error(2009); /* reuse of formal */
}
else {
FORMAL_SIZE(P_defn_start) = (UCHAR)(p_stop - P_defn_start);
P_defn_start = p_stop;
N_formals++;
}
}
else {
if( (CHARMAP(c) == LX_COMMA) || (N_formals > 0) ) {
Msg_Temp = GET_MSG (2010);
SET_MSG (Msg_Text, Msg_Temp, c);
error(2010);
}
}
if( CHARMAP(c) == LX_CPAREN ) {
return;
}
p_id = p_stop = FORMAL_TEXT(P_defn_start);
break;
default:
Msg_Temp = GET_MSG (2010);
SET_MSG (Msg_Text, Msg_Temp, c);
error(2010); /* unexpected char in formal list */
break;
}
}
}
/************************************************************************
** definstall - Install a new definition. id is in Reuse_1.
** p_text : ptr to the definition
** n : number of bytes in the definition (may contain embedded nulls)
** number : number of formals
************************************************************************/
void definstall(ptext_t p_text, int n, int number)
{
pdefn_t p;
if(n == 0) {
p_text = NULL;
}
if( strcmp (Reuse_1, "defined") == 0) {
Msg_Temp = GET_MSG (4112);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1, "#define");
warning(4112);/* name reserved */
return;
}
if((p = get_defined()) != 0) {
if(PRE_DEFINED(p)) {
Msg_Temp = GET_MSG (4112);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1, "#define");
warning(4112);/* name reserved */
return;
}
else {
if(redefn(p_text, DEFN_TEXT(p), n)) {
Msg_Temp = GET_MSG (4005);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1);
warning(4005);/* redefinition */
}
else {
return;
}
}
}
else {
hln_t ident;
HLN_NAME(ident) = Reuse_1;
HLN_HASH(ident) = Reuse_1_hash;
HLN_LENGTH(ident) = (UCHAR)Reuse_1_length;
p = malloc(sizeof(defn_t));
if (p == NULL) {
Msg_Temp = GET_MSG (1002);
SET_MSG (Msg_Text, Msg_Temp);
error(1002);
return;
}
DEFN_IDENT(p) = HLN_TO_NAME(&ident);
DEFN_NEXT(p) = Defn_level_0[Reuse_1_hash & LEVEL_0];
DEFN_TEXT(p) = (char*)NULL;
DEFN_EXPANDING(p) = 0;
Defn_level_0[Reuse_1_hash & LEVEL_0] = p;
}
if(n != 0) {
DEFN_TEXT(p) = pstrndup(p_text, n);
if(number == FROM_COMMAND) { /* special case from cmd line */
*(DEFN_TEXT(p) + n - 1) = EOS_DEFINITION; /* for handle_eos */
}
}
DEFN_NFORMALS(p) = (char)((number != FROM_COMMAND) ? number : 0);
}
/************************************************************************
** get_defined : is the given id in the macro symbol table?
** return a ptr to it if so, NULL if not.
************************************************************************/
pdefn_t get_defined(void)
{
pdefn_t pdef;
for( pdef = Defn_level_0[Reuse_1_hash & LEVEL_0]; pdef;
pdef = DEFN_NEXT(pdef)) {
if(memcmp (Reuse_1, DEFN_IDENT(pdef), Reuse_1_length) == 0) {
return(pdef);
}
}
return(NULL);
}
/************************************************************************
** redefn : are the two definitions the same?
************************************************************************/
int redefn(REG ptext_t p_new, ptext_t p_old, int n)
{
if(p_old && p_new) {
if(strncmp(p_new, p_old, n) == 0) { /* strings are exact */
return(FALSE);
}
return(TRUE);
}
return((p_old != NULL) || (p_new != NULL));
}
/************************************************************************
** get_definition : accumulate the macro definition, stops when it finds
** a newline (it uses it). returns a ptr to the end of the string it builds.
** builds the string in Macro_buffer. (given the start in P_defn_start)
************************************************************************/
int get_definition(void)
{
REG ptext_t p;
UCHAR c;
int stringize = FALSE;
int charize = FALSE;
p = P_defn_start;
c = skip_cwhite();
for(;;) {
chkbuf(p);
switch(CHARMAP(c)) {
case LX_EOS:
if(handle_eos() == BACKSLASH_EOS) {
/* got backslash EOS */
/* \<anything else> goes out as is. The <anything else>
* character must be emitted now, so that
* #define FOO(name) \name
* . . .
* FOO(bar)
*
* does NOT see occurence of name in the definition as an
* occurence of the formal param and emit \bar when it is
* expanded later,but if the definition is \nname it will
* find name as a formal paramater and emit \nbar
*/
*p++ = c; /* put in backslash, break'll add new char */
c = get_non_eof();
}
else {
c = GETCH();
continue;
}
break;
case LX_NL: /* only way out */
UNGETCH();
if(p == P_defn_start) {
return(0);
}
chkbuf(p);
*p++ = EOS_CHAR;
*p++ = EOS_DEFINITION; /* tells handle_eos defn finished */
return((int)(p - P_defn_start));/* p's last incr counts the 0*/
break;
case LX_DQUOTE:
case LX_SQUOTE:
p = gather_chars(p, c);
c = GETCH();
continue;
break;
case LX_POUND:
split_op:
switch(CHARMAP(GETCH())) {
case LX_POUND:
/*
** handle ## processing. cant be the first or the last.
*/
if(p == P_defn_start) {
Msg_Temp = GET_MSG (2160);
SET_MSG (Msg_Text, Msg_Temp);
error(2160); /* ## not allowed as first entry */
continue;
}
if(*(p - 1) == ' ') { /* hose the last blank */
p--;
}
if(CHARMAP(c = skip_cwhite()) == LX_NL) {
UNGETCH();
Msg_Temp = GET_MSG (2161);
SET_MSG (Msg_Text, Msg_Temp);
error(2161);
continue;
}
/* this case does *not* fall through to LX_ID */
continue;
break;
case LX_EACH:
charize = TRUE;
break;
case LX_EOS:
if( handle_eos() != BACKSLASH_EOS ) {
goto split_op;
}
/*
** FALLTHROUGH
*/
default:
UNGETCH();
stringize = TRUE;
break;
}
if(CHARMAP(c = skip_cwhite()) != LX_ID) {
Msg_Temp = GET_MSG (2162);
SET_MSG (Msg_Text, Msg_Temp);
error(2162); /* must have id following */
continue;
}
/*
** FALLTHROUGH
*/
case LX_ID:
{
/* we have the start of an identifier - check it to see if
* its an occurence of a formal parameter name.
* we gather the id ourselves (instead of getid()) since this
* wil save us from having to copy it to our string if it's
* not a formal parameter.
*/
int n;
ptext_t p_macformal;
p_macformal = p;
do {
chkbuf(p);
*p++ = c;
get_more_id:
c = GETCH();
} while(LXC_IS_IDENT(c));
if(CHARMAP(c) == LX_EOS) {
if(handle_eos() != BACKSLASH_EOS) {
goto get_more_id;
}
}
*p = '\0'; /* term. string, but do not advance ptr */
if((n = is_macro_arg(p_macformal)) >= 1) {
/*
** this is an occurance of formal 'n', replace the id with
** the special MAC character.
*/
p = p_macformal;
if(stringize) {
*p++ = LX_FORMALSTR;
}
else {
if(charize) {
*p++ = LX_FORMALCHAR;
}
else {
*p++ = LX_FORMALMARK;
}
}
*p++ = (UCHAR) n;
}
else if(charize || stringize) {
Msg_Temp = GET_MSG (2162);
SET_MSG (Msg_Text, Msg_Temp);
error(2162);
}
stringize = FALSE;
charize = FALSE;
continue; /* we broke out of the loop with a new char */
}
case LX_SLASH:
if( ! skip_comment() ) { /* really is a slash */
break;
}
/*
** FALLTHROUGH
*/
case LX_CR:
case LX_WHITE:
/*
** this is white space, all contiguous whitespace is transformed
** to 1 blank. (hence the skip_cwhite() and the continue).
*/
if(CHARMAP(c = skip_cwhite()) != LX_NL) {
*p++ = ' ';
}
continue; /* restart loop */
case LX_ILL:
Msg_Temp = GET_MSG (2018);
SET_MSG (Msg_Text, Msg_Temp, c);
error(2018);
c = GETCH();
continue;
}
*p++ = c;
c = GETCH();
}
}
/************************************************************************/
/* is_macro_arg () */
/************************************************************************/
int is_macro_arg(ptext_t name)
{
REG int i;
REG ptext_t p;
p = Macro_buffer;
for(i = 1; i <= N_formals; i++) {
if( strcmp(name, FORMAL_TEXT(p)) == 0) {
return(i);
}
p = FORMAL_NEXT(p);
}
return(-1);
}
/************************************************************************/
/* chkbuf () */
/************************************************************************/
void chkbuf(ptext_t p)
{
if( p >= ELIMIT ) {
Msg_Temp = GET_MSG (1065);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1);
fatal (1065);
}
}
/************************************************************************
** gather_chars : collect chars until a matching one is found.
** skip backslashed chars. moves the chars into the buffer,
** returns a ptr past the last char copied.
************************************************************************/
ptext_t gather_chars(REG ptext_t p, UCHAR match_c)
{
UCHAR c;
*p++ = match_c;
for(;;) {
if(p > ELIMIT) {
return(ELIMIT);
}
switch(CHARMAP(c = GETCH())) {
case LX_NL:
Msg_Temp = GET_MSG (2001);
SET_MSG (Msg_Text, Msg_Temp);
error(2001);
UNGETCH();
c = match_c;
/*
** FALLTHROUGH
*/
case LX_DQUOTE:
case LX_SQUOTE:
if(c == match_c) {
*p++ = c;
return(p); /* only way out */
}
break;
case LX_EOS:
if(handle_eos() != BACKSLASH_EOS) {
continue;
}
else {
/* got backslash */
*p++ = '\\';
c = get_non_eof();
if((c == '\\') && (checknl())) {
continue;
}
}
break;
case LX_LEADBYTE:
*p++ = c;
c = get_non_eof();
break;
}
*p++ = c;
}
}
/************************************************************************
** END DEFINING MACROS }
************************************************************************/
/************************************************************************
** BEGIN EXPANDING MACROS {
************************************************************************/
/************************************************************************
** can_expand: tries to expand the macro passed to it - returns
** true if it succeeded in expanding it. It will only return FALSE
** if a macro name was found, a paren was expected, and a paren was
** not the next non white character.
************************************************************************/
int can_expand(pdefn_t pdef)
{
UCHAR c;
int n_formals;
int return_value = FALSE;
Tiny_lexer_nesting = 0;
Save_Exp_ptr = Exp_ptr; /* not necessarily EXP_BUFFER */
Macro_line = Linenumber;
expand_name:
P_actuals = Act_ptr;
N_actuals = 0;
n_formals = DEFN_NFORMALS(pdef);
if( PRE_DEFINED(pdef) ) {
push_macro(pdef);
DEFN_EXPANDING(CURRENT_MACRO)++;
if(rescan_expansion()) {
return(TRUE); /* could expand macro */
}
}
else if( n_formals == 0 ) {
return_value = TRUE;
if(DEFN_TEXT(pdef)) {
push_macro(pdef);
expand_definition();
}
else {
/*
** Macro expands to nothing (no definition). Since it
** didn't have any actuals, Act_ptr is already correct.
** Exp_ptr must be changed however to delete the
** identifier from the expanded text.
*/
Exp_ptr = Save_Exp_ptr;
}
}
else {
if( n_formals == -1 ) {
n_formals = 0;
}
name_comment_paren:
if( can_get_non_white()) {
if(CHARMAP(CHECKCH()) == LX_SLASH) {
SKIPCH();
if(skip_comment()) {
goto name_comment_paren;
}
else {
UNGETCH();
}
}
if(CHARMAP(CHECKCH())==LX_OPAREN) {
SKIPCH();
return_value = TRUE;
get_actuals(pdef, n_formals);
}
else {
/*
** #define xx(a) a
** xx bar();
** don't lose white space between "xx" and "bar"
*/
ptext_t p = Exp_ptr;
push_macro(pdef);
DEFN_EXPANDING(CURRENT_MACRO)++;
Exp_ptr = p;
if( rescan_expansion() ) {
return(FALSE);
}
}
}
else {
}
}
/*
** makes sure a macro is being worked on. At this point, there will
** be a macro to expand, unless the macro expand_the_named_macro was
** passed had no definition text. If it had no defintion text,
** Tiny_lexer_nesting was not incremented.
*/
while(Tiny_lexer_nesting != 0) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
switch(CHARMAP(c = GETCH())) {
case LX_ID:
case LX_MACFORMAL:
Save_Exp_ptr = Exp_ptr;
if(tl_getid(c) && ((pdef = get_defined())!= 0)) {
if(DEFN_EXPANDING(pdef)) {
/*
** the macro is already being expanded, so just
** write the do not expand marker and the
** identifier to the expand area. The do not
** expand marker is necessary so this macro
** doesn't get expanded on the rescan
*/
int len = Reuse_1_length - 1;
*Exp_ptr++ = LX_NOEXPANDMARK;
*Exp_ptr++ = ((UCHAR)len);
}
else {
/*
** a legal identifier was read, it is defined, and
** it is not currently being expanded. This means
** there is reason to believe it can be expanded.
*/
goto expand_name;
}
}
if(InIf &&(memcmp(Reuse_1, "defined", 8) ==0)) {
do_defined(Reuse_1);
}
continue;
break;
case LX_NUMBER:
/* getnum with Prep on to keep leading 0x on number */
{
int Save_prep = Prep;
Prep = TRUE;
getnum(c);
Prep = Save_prep;
}
continue;
break;
case LX_DOT:
*Exp_ptr++ = '.';
dot_switch:
switch(CHARMAP(c = GETCH())) {
case LX_EOS:
if(handle_eos() != BACKSLASH_EOS) {
if(Tiny_lexer_nesting > 0) {
goto dot_switch;
}
continue;
}
break;
case LX_DOT:
*Exp_ptr++ = '.';
if( ! checkop('.')) {
break; /* error will be caught on rescan */
}
*Exp_ptr++ = '.';
continue;
break;
case LX_NUMBER:
*Exp_ptr++ = c;
get_real(Exp_ptr);
continue;
}
UNGETCH();
continue;
case LX_CHARFORMAL:
move_to_exp_esc('\'', do_strformal());
continue;
break;
case LX_STRFORMAL:
move_to_exp_esc('"', do_strformal());
continue;
break;
case LX_DQUOTE:
case LX_SQUOTE:
/*
** gather_chars is called even though the error reported
** on overflow may need to be changed.
*/
Exp_ptr = gather_chars(Exp_ptr, c);
continue;
break;
case LX_WHITE:
while(LXC_IS_WHITE(GETCH())) {
;
}
UNGETCH();
c = ' ';
break;
case LX_EOS:
if(handle_eos() == BACKSLASH_EOS) {
*Exp_ptr++ = c;
c = GETCH();
break;
}
continue;
break;
}
*Exp_ptr++ = c;
}
return(return_value);
}
/************************************************************************
** get_actuals : Paren must already be found. If all the actuals can
** be read, the macro is pushed and expansion begins. Otherwise,
** this function is quickly exited and lets the tiny lexer take
** care of rescanning.
************************************************************************/
void get_actuals(pdefn_t pdef, int n_formals)
{
/*
** The only concern with this is that a rescan could finish while
** this is trying to collect actuals. When a rescan finishes, it
** may reset Act_ptr and Exp_ptr. Unless these are saved before the
** end of rescan is handled, the part of the actual collected so far
** would be lost.
*/
REG ptext_t start;
UCHAR c;
ptext_t actuals_start;
int paste;
int level;
*Exp_ptr++ = PREVCH(); /* must be oparen */
level = 0;
actuals_start = Act_ptr;
while( level >= 0) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
more_white:
if( ! can_get_non_white()) {
return;
}
if(CHARMAP(CHECKCH()) == LX_SLASH) {
SKIPCH();
if(skip_comment()) {
goto more_white;
}
else {
start = Exp_ptr;
*Exp_ptr++ = '/';
}
}
else {
start = Exp_ptr;
}
paste = FALSE;
for(;;) {
switch(CHARMAP(c = GETCH())) {
case LX_CPAREN:
if(--level < 0) {
goto leave_loop;
}
break;
case LX_COMMA:
/*
** if the comma is not at level == 0, it is part of
** a parenthesized list and not a delimiter
*/
if(level == 0) {
goto leave_loop;
}
break;
case LX_SLASH:
if( ! skip_comment()) {
break;
}
if(*(Exp_ptr - 1) == ' ') {
continue;
}
c = ' ';
break;
case LX_CR:
case LX_NL:
case LX_WHITE:
UNGETCH(); /* This char is valid white space */
if( ! can_get_non_white()) {
return;
}
continue;
break;
case LX_OPAREN:
++level;
break;
case LX_DQUOTE:
case LX_SQUOTE:
Exp_ptr = gather_chars(Exp_ptr, c);
continue;
break;
case LX_ID:
*Exp_ptr++ = c;
while(LXC_IS_IDENT(c = GETCH())) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
*Exp_ptr++ = c;
}
if(CHARMAP(c) != LX_MACFORMAL) {
UNGETCH();
continue;
}
paste = TRUE;
/*
** FALLTHROUGH
*/
case LX_MACFORMAL:
move_to_exp(do_macformal(&paste));
continue;
break;
case LX_STRFORMAL:
move_to_exp_esc('"', do_strformal());
continue;
break;
case LX_CHARFORMAL:
move_to_exp_esc('\'', do_strformal());
continue;
break;
case LX_EOS:
/*
** Will saving this pointers create dead space in the
** buffers? Yes, but only temporarily.
**
** handle_eos() may reset Act_ptr and Exp_ptr to the
** beginning of the buffers if a rescan is finishing
** and Macro_depth is going to be 0. ANSI allows
** actuals to start within a macro defintion and be
** completed (further actuals and closing paren) later
** in the text.
**
** These buffer pointers will eventually be reset to
** the beginnings of their respective buffers when the
** macro for the actuals being collected right now
** finish rescan
**
** This is special handling for folks who use
** unbalanced parens in macro definitions
*/
{
ptext_t Exp_save;
ptext_t Act_save;
int eos_res;
Exp_save = Exp_ptr;
Act_save = Act_ptr;
if((eos_res = handle_eos()) & (ACTUAL_EOS | RESCAN_EOS)) {
return;
}
Act_ptr = Act_save;
Exp_ptr = Exp_save;
if(eos_res == BACKSLASH_EOS) { /* ??? DFP QUESTION */
*Exp_ptr++ = c; /* save the \ */
c = get_non_eof(); /* get char following \ */
break;
}
}
continue;
break;
}
*Exp_ptr++ = c;
}
leave_loop:
/*
** if the last character was whitespace, hose it
*/
if(CHARMAP(*(Exp_ptr - 1)) == LX_WHITE) {
Exp_ptr--;
}
/*
** if Exp_ptr <= start, foo() was read, don't incr N_actuals
*/
if(Exp_ptr > start) {
N_actuals++;
move_to_actual(start, Exp_ptr);
}
*Exp_ptr++ = c;
}
P_actuals = actuals_start;
if(n_formals < N_actuals) {
Msg_Temp = GET_MSG (4002);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1);
warning(4002);
}
else if(n_formals > N_actuals) {
Msg_Temp = GET_MSG (4003);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1);
warning(4003);
}
if(DEFN_TEXT(pdef)) {
push_macro(pdef);
expand_macro();
}
else {
/*
** the macro expands to nothing (no definition)
** This essentially means delete the macro and its actuals
** from the expanded text
*/
Act_ptr = P_actuals; /* reset pointer to get rid of actuals */
Exp_ptr = Save_Exp_ptr; /* delete macro & actuals from exp text */
}
}
/************************************************************************
** rescan_expansion: pops a level off of tiny lexer. If this is the
** original macro called, the rescan is set up, otherwise the MACRO
** (not only the tiny lexer level) is popped.
************************************************************************/
int rescan_expansion(void)
{
if(--Tiny_lexer_nesting == 0) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
*Exp_ptr++ = EOS_CHAR;
*Exp_ptr++ = EOS_RESCAN;
Current_char = CURRENT_TEXT;
return(TRUE); /* rescan the expanded text */
}
else {
/* reset Current_char, pop the macro */
Current_char = CURRENT_STRING;
Act_ptr = CURRENT_ACTUALS; /* don't need its actuals */
DEFN_EXPANDING(CURRENT_MACRO)--;
--Macro_depth;
return(FALSE); /* do not rescan expanded text */
}
}
/************************************************************************
** move_to_actual: moves the string located between start and finish
** inclusive to the current location in ACT_BUFFER as a new actual.
************************************************************************/
void move_to_actual(ptext_t start, ptext_t finish)
{
REG ptext_t p;
REG int len;
len = (int)(finish - start);
if(Act_ptr + len >= ALIMIT - 2) {
fatal_in_macro(10056);
}
strncpy(ACTUAL_TEXT(Act_ptr), start, len);
p = ACTUAL_TEXT(Act_ptr) + len;
if ((((ULONG_PTR)p) & 1) == 0) {
*p++ = EOS_CHAR;
*p++ = EOS_ACTUAL;
}
else {
*p++ = EOS_CHAR;
*p++ = EOS_PAD;
*p++ = EOS_ACTUAL;
}
ACTUAL_SIZE(Act_ptr) = (short)(p - Act_ptr);
Act_ptr = p;
}
/************************************************************************
** move_to_exp_esc: moves zero terminated string starting at source to
** the current position in EXP_BUFFER, with quotes placed around the
** string and interior backslashes and dquotes are escaped with a
** backslash. The terminating null should not be copied. The null
** does not come from the property of a string, but rather is the
** marker used to indicate there is no more actual.
************************************************************************/
void move_to_exp_esc(int quote_char, REG ptext_t source)
{
int mapped_c;
int mapped_quote;
int in_quoted = FALSE;
if( ! source ) {
return;
}
*Exp_ptr++ = (char)quote_char;
for(;;) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
switch(mapped_c = CHARMAP(*source)) {
case LX_EOS:
if(*source == EOS_CHAR) {
goto leave_move_stringize;
}
/* got BACKSLASH */
/* but it can't be backslash-newline combination because
** we are reprocessing text already read in
*/
if(in_quoted) {
*Exp_ptr++ = '\\';
}
break;
break;
case LX_DQUOTE:
if(CHARMAP(quote_char) == LX_DQUOTE) {
*Exp_ptr++ = '\\';
}
/*
** FALLTHROUGH
*/
case LX_SQUOTE:
if(CHARMAP(quote_char) == LX_SQUOTE) {
break;
}
if(in_quoted ) {
if(mapped_c == mapped_quote) {
in_quoted = FALSE;
}
}
else {
in_quoted = TRUE;
mapped_quote = mapped_c;
}
break;
case LX_LEADBYTE:
*Exp_ptr++ = *source++;
break;
}
*Exp_ptr++ = *source++;
}
leave_move_stringize:
*Exp_ptr++ = (char)quote_char;
}
/************************************************************************
** move_to_exp: moves zero terminated string starting at source to
** the current position in EXP_BUFFER. The terminating null should
** not be copied.
************************************************************************/
void move_to_exp(REG ptext_t source)
{
if( ! source ) {
return;
}
while( *source ) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
*Exp_ptr++ = *source++;
}
}
/************************************************************************
** push_macro: pushes macro information onto the macro stack.
** Information such as the current location in the Exp and Act buffers
** will be used by whatever macros this one may call.
************************************************************************/
void push_macro(pdefn_t pdef)
{
/*
** note that increment leaves element 0 of the macro stack unused.
** this element can be reserved for links to dynamically allocated
** macro expansion stacks, if they become desirable
*/
if(++Macro_depth > LIMIT_MACRO_DEPTH) {
Msg_Temp = GET_MSG (1009);
SET_MSG (Msg_Text, Msg_Temp, Reuse_1);
fatal (1009);
}
Tiny_lexer_nesting++;
CURRENT_MACRO = pdef;
CURRENT_ACTUALS = P_actuals;
CURRENT_NACTUALS = (UCHAR)N_actuals;
CURRENT_NACTSEXPANDED = 0;
CURRENT_STRING = Current_char;
CURRENT_TEXT = Exp_ptr = Save_Exp_ptr;
}
/************************************************************************
**expand_definition: sets the input stream to start reading from
** the macro definition. Also marks the macro as in the process of
** expanding so if it eventually invokes itself, it will not expand
** the new occurence.
************************************************************************/
void expand_definition(void)
{
Current_char = DEFN_TEXT(CURRENT_MACRO);
DEFN_EXPANDING(CURRENT_MACRO)++;
}
/************************************************************************
**expand_actual: sets the input stream to start reading from
** the actual specified in actual.
************************************************************************/
void expand_actual(UCHAR actual)
{
ptext_t p;
p = CURRENT_ACTUALS;
while(--actual) {
p = ACTUAL_NEXT(p);
}
Current_char = ACTUAL_TEXT(p);
}
/************************************************************************
** expand_macro: if there are still actuals for this macro to be
** expanded, the next one is set up, otherwise this sets up to
** expand the macro definition
************************************************************************/
void expand_macro(void)
{
if(CURRENT_NACTUALS > CURRENT_NACTSEXPANDED) {
expand_actual(++CURRENT_NACTSEXPANDED);
}
else {
expand_definition();
}
}
/************************************************************************
**post_paste: looks ahead one character to find out if a paste has
** been requested immediately after this identifier. If the next
** character can continue an identifier, or is the macformal marker,
** a paste should be done. This is called after a macformal is found
** to find out if the expanded or unexpanded actual should be used.
************************************************************************/
int post_paste(void)
{
UCHAR c;
if((CHARMAP(c = GETCH()) == LX_MACFORMAL) || (LXC_IS_IDENT(c))) {
UNGETCH();
return(TRUE);
}
UNGETCH();
return(FALSE);
}
/************************************************************************
**do_macformal: This function is called after a macformal marker is
** found. It reads the next character to find out which macformal is
** wanted. Then it checks to see if a paste is wanted, to find out
** if the expanded or unexpanded actual should be used. The return
** value is a pointer to the text of the actual wanted, or NULL if the
** actual asked for was not provided.
************************************************************************/
ptext_t do_macformal(int *pre_paste)
{
UCHAR n;
ptext_t p;
int temp_paste;
p = CURRENT_ACTUALS;
n = GETCH();
if(n > CURRENT_NACTUALS) {
return(NULL); /* already output warning */
}
temp_paste = post_paste();
if(( ! (*pre_paste)) && ( ! temp_paste) ) {
/*
** if the programmer provided x actuals, actuals x+1 to 2x are
** those actuals expanded
*/
n += CURRENT_NACTUALS;
}
*pre_paste = temp_paste;
if (n != 0)
while(--n) {
p = ACTUAL_NEXT(p);
}
return(ACTUAL_TEXT(p));
}
/************************************************************************
**tl_getid: This function reads an identifier for the tiny lexer
** into EXP_BUFFER. if macformal is found, the text of that actual
** (expanded or not) is appended to the identifier. It is possible
** that this text will contain characters that are not legal
** identifiers so return value is whether checking to see if the
** "identifier" is defined is worth the bother.
************************************************************************/
int tl_getid(UCHAR c)
{
UCHAR *p;
int paste;
int legal_identifier;
int length = 0;
p = Exp_ptr;
paste = FALSE;
legal_identifier = TRUE;
do_handle_macformal:
if(CHARMAP(c) == LX_MACFORMAL) {
ptext_t p_buf;
if((p_buf = do_macformal(&paste)) != 0) {
while( *p_buf ) {
if( ! LXC_IS_IDENT(*p_buf)) {
legal_identifier = FALSE;
}
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
*Exp_ptr++ = *p_buf++;
}
}
}
else {
*Exp_ptr++ = c;
}
do_handle_eos:
while(LXC_IS_IDENT(c = GETCH())) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
*Exp_ptr++ = c;
}
if(CHARMAP(c) == LX_NOEXPAND) {
length = (int)GETCH(); /* just skip length */
goto do_handle_eos;
}
if(CHARMAP(c) == LX_MACFORMAL) {
paste = TRUE;
goto do_handle_macformal;
}
UNGETCH();
if(legal_identifier && (length == (Exp_ptr - p))) {
legal_identifier = FALSE;
}
if(legal_identifier) {
if(((Exp_ptr - p) > LIMIT_ID_LENGTH) && ( ! Prep)) {
Exp_ptr = &p[LIMIT_ID_LENGTH];
*Exp_ptr = '\0'; /* terminates identifier for warning */
Msg_Temp = GET_MSG (4011);
SET_MSG (Msg_Text, Msg_Temp, p);
warning(4011); /* id truncated */
}
else {
*Exp_ptr = '\0'; /* terminates identifier for expandable check */
}
/*
** Whether or not we are doing Prep output, we still have to make
** sure the identifier will fit in Reuse_1
*/
if((Exp_ptr - p) > sizeof(Reuse_1)) {
Exp_ptr = &p[LIMIT_ID_LENGTH];
*Exp_ptr = '\0';
Msg_Temp = GET_MSG (4011);
SET_MSG (Msg_Text, Msg_Temp, p);
warning(4011);
}
/*
** copy into Reuse_1 for warnings about mismatched number of
** formals/actuals, and in case it's not expandable
*/
memcpy(Reuse_1, p, (int)((Exp_ptr - p) + 1));
Reuse_1_hash = local_c_hash(Reuse_1);
/*
** the characters from Exp_ptr to p inclusive do not include the
** the hash character, the length character, and the terminating
** null.
*/
Reuse_1_length = (UCHAR)((Exp_ptr - p) + 1);
}
return(legal_identifier);
}
/************************************************************************
** do_strformal: returns pointer to the actual requested without
** checking for paste (a legal token is not possible, so if a paste
** is being done on a strformal, the behavior is undefined
************************************************************************/
ptext_t do_strformal(void)
{
UCHAR n;
ptext_t p;
/* use unexpanded actual */
p = CURRENT_ACTUALS;
n = GETCH();
if(n > CURRENT_NACTUALS) {
return(NULL); /* already output warning */
}
if (n != 0)
while(--n) {
p = ACTUAL_NEXT(p);
}
return(ACTUAL_TEXT(p));
}
/************************************************************************
** can_get_non_white: tries to get the next non white character
** using P1 rules for white space (NL included). If the end of
** an actual, or a rescan is found, this returns FALSE, so control
** can drop into one of the lexers.
************************************************************************/
int can_get_non_white(void)
{
int return_value = FALSE;
int white_found = FALSE;
for(;;) {
switch(CHARMAP(GETCH())) {
case LX_NL:
if(On_pound_line) {
UNGETCH();
goto leave_cgnw;
}
Linenumber++;
/*
** FALLTHROUGH
*/
case LX_WHITE:
case LX_CR:
white_found = TRUE;
break;
case LX_EOS:
{
int eos_res;
if((eos_res = handle_eos()) & (ACTUAL_EOS | RESCAN_EOS)) {
goto leave_cgnw;
}
if(eos_res != BACKSLASH_EOS) {
break;
}
}
/*
** FALLTHROUGH
*/
default:
UNGETCH();
return_value = TRUE;
goto leave_cgnw;
break;
}
}
leave_cgnw:
if(white_found) {
if(Exp_ptr >= ELIMIT) {
fatal_in_macro(10056);
}
if(*(Exp_ptr - 1) != ' ') {
*Exp_ptr++ = ' ';
}
}
return(return_value); /* could you get next non white? */
}
/************************************************************************/
/* fatal_in_macro () */
/************************************************************************/
void fatal_in_macro(int e)
{
Linenumber = Macro_line;
Msg_Temp = GET_MSG(e);
SET_MSG (Msg_Text, Msg_Temp);
fatal (e);
}
/************************************************************************
** handle_eos : handle the end of a string.
************************************************************************/
int handle_eos(void)
{
if(PREVCH() == '\\') {
if(checknl()) {
return(FILE_EOS);
}
else {
return(BACKSLASH_EOS);
}
}
if(Macro_depth == 0) { /* found end of file buffer or backslash */
if(io_eob()) { /* end of buffer in here is bad */
Msg_Temp = GET_MSG(1004);
SET_MSG (Msg_Text, Msg_Temp);
fatal (1004);
}
return(FILE_EOS);
}
again:
switch(GETCH()) {
case EOS_PAD:
goto again;
case EOS_ACTUAL:
/*
** Just finished expanding actual. Check to see if there are
** any more actuals to be expanded. If there are, set up to
** expand them and return. Otherwise, set up to expand defn
*/
/* move expanded text of this actual to act_buffer */
move_to_actual(CURRENT_TEXT, Exp_ptr);
/* reset Exp_ptr for more expansions at this macro depth */
Exp_ptr = CURRENT_TEXT;
/* expand next actual if there, otherwise expand definition */
expand_macro();
return(ACTUAL_EOS);
break;
case EOS_DEFINITION:
if(rescan_expansion()) {
return(RESCAN_EOS);
}
else {
return(DEFINITION_EOS);
}
break;
case EOS_RESCAN:
/*
** Reset Current_char, Exp_ptr and Act_ptr, pop the macro
*/
/* get input from the previous stream */
Current_char = CURRENT_STRING;
/* mark this macro as not expanding */
DEFN_EXPANDING(CURRENT_MACRO)--;
/*
** if looking for the actuals of a macro, these pointers
** should really not be reset, however, it is cleaner to
** save them before calling handle_eos, and restore them
** upon returning, than check a static variable here.
*/
if(Macro_depth == 1) {
Act_ptr = ACT_BUFFER;
Exp_ptr = EXP_BUFFER;
}
--Macro_depth;
return(DEFINITION_EOS);
break;
/* the following conditional compile is so brackets match */
DEFAULT_UNREACHABLE;
}
}
/************************************************************************
** END EXPANDING MACRO }
************************************************************************/