begin:
while ((c = input()) == ' ' || c == '\n' || c == '\t')
;
yylval = c;
switch (c) {
case EOF:
ERROR "unexpected end of input inside equation" WARNING;
return(EOF);
case '~':
return(SPACE);
case '^':
return(THIN);
/* case '\t':
return(TAB);
*/
case '{':
return('{');
case '}':
return('}');
case '"':
for (sp = 0; (c=input())!='"' && c != '\n'; ) {
if (c == '\\')
if ((c = input()) != '"')
token[sp++] = '\\';
token[sp++] = c;
if (sp >= SSIZE)
ERROR "quoted string %.20s... too long", token FATAL;
}
token[sp] = '\0';
yylval = (int) &token[0];
if (c == '\n')
ERROR "missing \" in %.20s", token WARNING;
return(QTEXT);
}
if (!display && c == righteq)
return(EOF);
unput(c);
getstr(token, SSIZE);
dprintf(".\tlex token = |%s|\n", token);
if ((tp = lookup(deftbl, token)) != NULL) { /* defined term */
c = input();
unput(c);
if (c == '(') /* macro with args */
dodef(tp);
else { /* no args */
unput(' ');
pbstr(tp->cval);
dprintf(".\tfound %s|=%s|\n", token, tp->cval);
}
goto begin;
}
if ((tp = lookup(keytbl, token)) == NULL) /* not a keyword */
return CONTIG;
switch (tp->ival) { /* some kind of keyword */
case DEFINE: case TDEFINE: case NDEFINE:
define(tp->ival);
break;
case IFDEF:
ifdef();
break;
case DELIM:
delim();
break;
case GSIZE:
globsize();
break;
case GFONT:
globfont();
break;
case INCLUDE:
include();
break;
case SPACE:
space();
break;
case DOTEQ:
/* .EQ inside equation -- should warn if at bottom level */
break;
case DOTEN:
if (curfile == infile)
return EOF;
/* else ignore nested .EN */
break;
default:
return tp->ival;
}
goto begin;
}
void getstr(char *s, int n)
{
register int c;
register char *p;
p = s;
while ((c = input()) == ' ' || c == '\n')
;
if (c == EOF) {
*s = 0;
return;
}
while (c != ' ' && c != '\t' && c != '\n' && c != '{' && c != '}'
&& c != '"' && c != '~' && c != '^') {
if (!display && c == righteq)
break;
if (c == '(' && p > s) { /* might be defined(...) */
*p = '\0';
if (lookup(deftbl, s) != NULL)
break;
}
if (c == '\\')
if ((c = input()) != '"')
*p++ = '\\';
*p++ = c;
if (--n <= 0)
ERROR "token %.20s... too long", s FATAL;
c = input();
}
unput(c);
*p = '\0';
yylval = (int) s;
}
cstr(char *s, int quote, int maxs)
{
int del, c, i;
s[0] = 0;
while ((del=input()) == ' ' || del == '\t')
;
if (quote)
for (i=0; (c=input()) != del && c != EOF;) {
s[i++] = c;
if (i >= maxs)
return(1); /* disaster */
}
else {
if (del == '\n')
return(1);
s[0] = del;
for (i=1; (c=input())!=' ' && c!= '\t' && c!='\n' && c!=EOF;) {
s[i++] = c;
if (i >= maxs)
return(1); /* disaster */
}
}
s[i] = '\0';
if (c == EOF)
ERROR "Unexpected end of input at %.20s", s FATAL;
return(0);
}
getstr(token, SSIZE); /* get name */
if (type != DEFINE) {
cstr(token, 1, SSIZE); /* skip the definition too */
return;
}
p1 = strsave(token);
if (cstr(token, 1, SSIZE))
ERROR "Unterminated definition at %.20s", token FATAL;
if (lookup(ftunetbl, p1) != NULL) { /* double tuning param */
dprintf(".\ttune %s %s\n", p1, token);
ftune(p1, token);
} else {
p2 = strsave(token);
install(deftbl, p1, p2, 0);
dprintf(".\tname %s defined as %s\n", p1, p2);
}
}
void ifdef(void) /* do body if name is defined */
{
char name[100], *p;
getstr(name, sizeof(name)); /* get name */
cstr(token, 1, SSIZE); /* and body */
if (lookup(deftbl, name) != NULL) { /* found it */
p = strsave(token);
pushsrc(Free, p);
pushsrc(String, p);
}
}
char *spaceval = NULL;
void space(void) /* collect line of form "space amt" to replace \x in output */
{
getstr(token, SSIZE);
spaceval = strsave(token);
dprintf(".\tsetting spaceval to %s\n", token);
}
char *strsave(char *s)
{
register char *q;
q = malloc(strlen(s)+1);
if (q == NULL)
ERROR "out of space in strsave on %s", s FATAL;
strcpy(q, s);
return(q);
}
void include(void)
{
char name[100];
FILE *fin;
int c;
extern int errno;
while ((c = input()) == ' ')
;
unput(c);
cstr(name, c == '"', sizeof(name)); /* gets it quoted or not */
if ((fin = fopen(name, "r")) == NULL)
ERROR "can't open file %s", name FATAL;
errno = 0;
curfile++;
curfile->fin = fin;
curfile->fname = strsave(name);
curfile->lineno = 0;
printf(".lf 1 %s\n", curfile->fname);
pushsrc(File, curfile->fname);
}
