version 1.65, 2005/01/20 23:47:04 |
version 1.66, 2005/03/02 10:12:15 |
|
|
int ilevel = 0; /* input file stack pointer */ |
int ilevel = 0; /* input file stack pointer */ |
int oindex = 0; /* diversion index.. */ |
int oindex = 0; /* diversion index.. */ |
char *null = ""; /* as it says.. just a null.. */ |
char *null = ""; /* as it says.. just a null.. */ |
char *m4wraps = ""; /* m4wrap string default.. */ |
char **m4wraps = NULL; /* m4wraps array. */ |
|
int maxwraps = 0; /* size of m4wraps array */ |
|
int wrapindex = 0; /* current offset in m4wraps */ |
char lquote[MAXCCHARS+1] = {LQUOTE}; /* left quote character (`) */ |
char lquote[MAXCCHARS+1] = {LQUOTE}; /* left quote character (`) */ |
char rquote[MAXCCHARS+1] = {RQUOTE}; /* right quote character (') */ |
char rquote[MAXCCHARS+1] = {RQUOTE}; /* right quote character (') */ |
char scommt[MAXCCHARS+1] = {SCOMMT}; /* start character for comment */ |
char scommt[MAXCCHARS+1] = {SCOMMT}; /* start character for comment */ |
|
|
release_input(infile); |
release_input(infile); |
} |
} |
|
|
if (*m4wraps) { /* anything for rundown ?? */ |
if (wrapindex) { |
|
int i; |
|
|
ilevel = 0; /* in case m4wrap includes.. */ |
ilevel = 0; /* in case m4wrap includes.. */ |
bufbase = bp = buf; /* use the entire buffer */ |
bufbase = bp = buf; /* use the entire buffer */ |
pbstr(m4wraps); /* user-defined wrapup act */ |
if (mimic_gnu) { |
macro(); /* last will and testament */ |
while (wrapindex != 0) { |
|
for (i = 0; i < wrapindex; i++) |
|
pbstr(m4wraps[i]); |
|
wrapindex =0; |
|
macro(); |
|
} |
|
} else { |
|
for (i = 0; i < wrapindex; i++) { |
|
pbstr(m4wraps[i]); |
|
macro(); |
|
} |
|
} |
} |
} |
|
|
if (active != stdout) |
if (active != stdout) |