/* returns: 1 if ".{WS}+EN" found, 0 else */
int
getstr(char *s, register int n) {
register int c;
register char *p;
enum { INI = 0, OTH, SP, C1, C2, PB } st = INI;
p = s;
while ((c = gtc()) == ' ' || c == '\n')
;
if (c == EOF) {
*s = 0;
return 0;
}
while (((c != ' ' && c != '\t') || st == SP) && c != '\n' && c != '{'
&& c != '}' && c != '"' && c != '~' && c != '^' && c != righteq) {
if (c == '\\')
if ((c = gtc()) != '"')
*p++ = '\\';
switch (st) {
case INI:
st = c == '.' ? SP : OTH;
break;
case SP:
if (c == 'E') st = C1;
else if (c != ' ' && c != '\t') st = PB;
break;
case C1:
st = c == 'N' ? C2 : PB;
break;
case C2:
st = PB;
break;
default: ;
}
*p++ = c;
if (st == PB)
goto TF;
else {
if (--n <= 0)
error(FATAL, "token %.20s... too long", s);
c = gtc();
}
}
if (c=='{' || c=='}' || c=='"' || c=='~' || c=='^' || c=='\t' || c==righteq)
putbak(c);
TF:
if (st == SP || st == C1 || st == PB) {
while (--p != s) putbak(*p);
p++;
}
*p = '\0';
yylval.str = s;
return st == C2;
}
void pbstr(char* in) {
int i;
for (i= strlen(in); i > 0; --i) {
putbak(in[i]);
}
}
void
getstr(char *s, int n) {
register int c;
register char *p;
p = s;
while ((c = gtc()) == ' ' || c == '\n')
;
if (c == EOF) {
*s = 0;
return;
}
while (c != ' ' && c != '\t' && c != '\n' && c != '{' && c != '}'
&& c != '"' && c != '~' && c != '^' && c != righteq) {
if (c == '\\')
if ((c = gtc()) != '"')
*p++ = '\\';
*p++ = c;
if (--n <= 0)
error(FATAL, "token %.20s... too long", s);
c = gtc();
}
if (c=='{' || c=='}' || c=='"' || c=='~' || c=='^' || c=='\t' || c==righteq)
putbak(c);
*p = '\0';
yylval.str = s;
}
void
pbstr(wchar_t *str)
{
wchar_t *p;
for (p = str + wcslen(str); --p >= str; )
putbak(*p);
}
void
pbstr(char *str) {
register char *p;
p = str;
while (*p++);
--p;
if (ip >= &ibuf[PUSHBACK])
error( FATAL, "pushback overflow");
while (p > str)
putbak(*--p);
}
void
pbnbr(long nbr, int base, int len)
{
int neg = 0;
if (base <= 0)
return;
if (nbr < 0)
neg = 1;
else
nbr = -nbr;
while (nbr < 0) {
int i;
if (base > 1) {
i = nbr%base;
nbr /= base;
#if (-3 % 2) != -1
while (i > 0) {
i -= base;
++nbr;
}
#endif
i = -i;
} else {
i = 1;
++nbr;
}
putbak(itochr(i));
--len;
}
while (--len >= 0)
putbak('0');
if (neg)
putbak('-');
}
int
yylex(void) {
register int c;
tbl *tp;
extern tbl *keytbl[], *deftbl[];
beg:
while ((c=gtc())==' ' || c=='\n')
;
yylval.token = c;
switch(c) {
case EOF:
return(EOF);
case '~':
return(SPACE);
case '^':
return(THIN);
case '\t':
return(TAB);
case '{':
return('{');
case '}':
return('}');
case '"':
for (sp=0; (c=gtc())!='"' && c != '\n'; ) {
if (c == '\\')
if ((c = gtc()) != '"')
token[sp++] = '\\';
token[sp++] = c;
if (sp>=SSIZE)
error(FATAL, "quoted string %.20s... too long", token);
}
token[sp]='\0';
yylval.str = &token[0];
if (c == '\n')
error(!FATAL, "missing \" in %.20s", token);
return(QTEXT);
}
if (c==righteq)
return(EOF);
putbak(c);
if (getstr(token, SSIZE)) return EOF;
if (dbg)printf(".\tlex token = |%s|\n", token);
if ((tp = lookup(deftbl, token, NULL)) != NULL) {
putbak(' ');
pbstr(tp->defn);
putbak(' ');
if (dbg)
printf(".\tfound %s|=%s|\n", token, tp->defn);
}
else if ((tp = lookup(keytbl, token, NULL)) == NULL) {
if(dbg)printf(".\t%s is not a keyword\n", token);
return(CONTIG);
}
else if ((intptr_t)tp->defn == DEFINE || (intptr_t)tp->defn == NDEFINE || (intptr_t)tp->defn == TDEFINE)
define((intptr_t)tp->defn);
else if (tp->defn == (char *) DELIM)
delim();
else if (tp->defn == (char *) GSIZE)
globsize();
else if (tp->defn == (char *) GFONT)
globfont();
else if (tp->defn == (char *) INCLUDE)
include();
else if (tp->defn == (char *) SPACE)
space();
else {
return((intptr_t) tp->defn);
}
goto beg;
}
int
main(int argc, char **argv)
{
wchar_t t;
int i, opt_end = 0;
int sigs[] = {SIGHUP, SIGINT, SIGPIPE, 0};
#if defined(__lint)
yydebug = 0;
#endif
for (i = 0; sigs[i]; ++i) {
if (signal(sigs[i], SIG_IGN) != SIG_IGN)
(void) signal(sigs[i], catchsig);
}
tempfile = mktemp(tmp_name);
(void) close(creat(tempfile, 0));
(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN) /* Should be defined by cc -D */
#define TEXT_DOMAIN "SYS_TEST"
#endif
(void) textdomain(TEXT_DOMAIN);
if ((mb_cur_max = MB_CUR_MAX) > 1)
wide = 1;
procnam = argv[0];
getflags(&argc, &argv, &opt_end);
initalloc();
setfname("-");
if (argc > 1) {
--argc;
++argv;
if (strcmp(argv[0], "-")) {
ifile[ifx] = m4open(&argv, "r", &argc);
setfname(argv[0]);
}
}
for (;;) {
token[0] = t = getchr();
token[1] = EOS;
if (t == WEOF) {
if (ifx > 0) {
(void) fclose(ifile[ifx]);
ipflr = ipstk[--ifx];
continue;
}
getflags(&argc, &argv, &opt_end);
if (argc <= 1)
/*
* If dowrap() has been called, the m4wrap
* macro has been processed, and a linked
* list of m4wrap strings has been created.
* The list starts at wrapstart.
*/
if (wrapstart) {
/*
* Now that EOF has been processed,
* display the m4wrap strings.
*/
showwrap();
continue;
} else
break;
--argc;
++argv;
if (ifile[ifx] != stdin)
(void) fclose(ifile[ifx]);
if (strcmp(argv[0], "-"))
ifile[ifx] = m4open(&argv, "r", &argc);
else
ifile[ifx] = stdin;
setfname(argv[0]);
continue;
}
if (is_alpha(t) || t == '_') {
wchar_t *tp = token+1;
int tlim = toksize;
struct nlist *macadd; /* temp variable */
while ((*tp = getchr()) != WEOF &&
(is_alnum(*tp) || *tp == '_')) {
tp++;
if (--tlim <= 0)
error2(gettext(
"more than %d chars in word"),
toksize);
}
putbak(*tp);
*tp = EOS;
macadd = lookup(token);
*Ap = (wchar_t *)macadd;
if (macadd->def) {
if ((wchar_t *)(++Ap) >= astklm) {
--Ap;
error2(gettext(
"more than %d items on "
"argument stack"),
stksize);
}
if (Cp++ == NULL)
Cp = callst;
Cp->argp = Ap;
*Ap++ = op;
puttok(token);
stkchr(EOS);
t = getchr();
putbak(t);
if (t != '(')
pbstr(L"()");
else /* try to fix arg count */
*Ap++ = op;
Cp->plev = 0;
} else {
puttok(token);
}
} else if (match(t, lquote)) {
int qlev = 1;
for (;;) {
token[0] = t = getchr();
token[1] = EOS;
if (match(t, rquote)) {
if (--qlev > 0)
puttok(token);
else
break;
} else if (match(t, lquote)) {
++qlev;
puttok(token);
} else {
if (t == WEOF)
error(gettext(
"EOF in quote"));
putchr(t);
}
}
} else if (match(t, lcom) &&
((lcom[0] != L'#' || lcom[1] != L'\0') ||
prev_char != '$')) {
/*
* Don't expand commented macro (between lcom and
* rcom).
* What we know so far is that we have found the
* left comment char (lcom).
* Make sure we haven't found '#' (lcom) immediately
* preceded by '$' because we want to expand "$#".
*/
puttok(token);
for (;;) {
token[0] = t = getchr();
token[1] = EOS;
if (match(t, rcom)) {
puttok(token);
break;
} else {
if (t == WEOF)
error(gettext(
"EOF in comment"));
putchr(t);
}
}
} else if (Cp == NULL) {
putchr(t);
} else if (t == '(') {
if (Cp->plev)
stkchr(t);
else {
/* skip white before arg */
while ((t = getchr()) != WEOF && is_space(t))
;
putbak(t);
}
++Cp->plev;
} else if (t == ')') {
--Cp->plev;
if (Cp->plev == 0) {
stkchr(EOS);
expand(Cp->argp, Ap-Cp->argp-1);
op = *Cp->argp;
Ap = Cp->argp-1;
if (--Cp < callst)
Cp = NULL;
} else
stkchr(t);
} else if (t == ',' && Cp->plev <= 1) {
stkchr(EOS);
*Ap = op;
if ((wchar_t *)(++Ap) >= astklm) {
--Ap;
error2(gettext(
"more than %d items on argument stack"),
stksize);
}
while ((t = getchr()) != WEOF && is_space(t))
;
putbak(t);
} else {
stkchr(t);
}
}
if (Cp != NULL)
error(gettext(
"EOF in argument list"));
delexit(exitstat, 1);
return (0);
}
static void
expand(wchar_t **a1, int c)
{
wchar_t *dp;
struct nlist *sp;
sp = (struct nlist *)a1[-1];
if (sp->tflag || trace) {
#if !defined(__lint) /* lint doesn't grok "%ws" */
int i;
(void) fprintf(stderr,
"Trace(%d): %ws", Cp-callst, a1[0]);
#endif
if (c > 0) {
#if !defined(__lint) /* lint doesn't grok "%ws" */
(void) fprintf(stderr, "(%ws", chkbltin(a1[1]));
for (i = 2; i <= c; ++i)
(void) fprintf(stderr, ",%ws", chkbltin(a1[i]));
#endif
(void) fprintf(stderr, ")");
}
(void) fprintf(stderr, "\n");
}
dp = sp->def;
for (; *dp; ++dp) {
if (is_builtin(*dp)) {
(*barray[builtin_idx(*dp)].bfunc)(a1, c);
} else if (dp[1] == '$') {
if (is_digit(*dp)) {
int n;
if ((n = *dp-'0') <= c)
pbstr(a1[n]);
++dp;
} else if (*dp == '#') {
pbnum((long)c);
++dp;
} else if (*dp == '*' || *dp == '@') {
int i = c;
wchar_t **a = a1;
if (i > 0)
for (;;) {
if (*dp == '@')
pbstr(rquote);
pbstr(a[i--]);
if (*dp == '@')
pbstr(lquote);
if (i <= 0)
break;
pbstr(L",");
}
++dp;
} else
putbak(*dp);
} else
putbak(*dp);
}
}
