/yylex()/
/nstr/
.a
	lexbase->tokenseg = lexbase->stsegptr;
	lexbase->tokenchar = lexbase->inptr;
.
$r reject.c
1p
/# define YYLMAX 200/
d
/# define input()/
d
/# define unput(c)/
d
/# define output(c) putc(c,yyout)/
.c
# define output(c) return(yytext[0])
.
/int yyleng; extern char yytext\[\];/
d
/int yymorfg;/
d
/extern char \*yysptr, yysbuf\[\];/
d
/int yytchar;/
d
/extern int yylineno;/
d
/struct yysvf \*yyestate;/
d
/extern struct yysvf yysvec\[\], \*yybgin;/
d
/int yylineno =1;/
d
/char yytext\[YYLMAX\];/
d
/struct yysvf \*yylstate \[YYLMAX\], \*\*yylsp, \*\*yyolsp;/
d
/char yysbuf\[YYLMAX\];/
d
/char \*yysptr = yysbuf;/
d
/int \*yyfnd;/
d
/extern struct yysvf \*yyestate;/
d
/int yyprevious = YYNEWLINE;/
d
1,$s/extern int yyprevious;//p
1,$s/yyleng/(lexbase->yyleng)/g
p
1,$s/yymorfg/(lexbase->yymorfg)/g
p
1,$s/yyestate/(lexbase->yyestate)/g
p
1,$s/yytext/(lexbase->yytext)/g
p
1,$s/yysbuf/(lexbase->yysbuf)/g
p
1,$s/yylstate/(lexbase->yylstate)/g
p
1,$s/yylsp/(lexbase->yylsp)/g
p
1,$s/yyolsp/(lexbase->yyolsp)/g
p
1,$s/yysptr/(lexbase->yysptr)/g
p
1,$s/yyfnd/(lexbase->yyfnd)/g
p
1,$s/yyprevious/(lexbase->yyprevious)/g
p
w lex.c
q
