Bell 32V release
[unix-history] / usr / src / libln / yyless.c
CommitLineData
2c0d4653
TL
1yyless(x)
2{
3extern char yytext[];
4register char *lastch, *ptr;
5extern int yyleng;
6extern int yyprevious;
7lastch = yytext+yyleng;
8if (x>=0 && x <= yyleng)
9 ptr = x + yytext;
10else
11 ptr = x;
12while (lastch > ptr)
13 yyunput(*--lastch);
14*lastch = 0;
15if (ptr >yytext)
16 yyprevious = *--lastch;
17yyleng = ptr-yytext;
18}