|
|
1.1 ! root 1: /* (-lgl ! 2: * COHERENT Version 3.1 ! 3: * Copyright (c) 1982, 1990 by Mark Williams Company. ! 4: * All rights reserved. May not be copied without permission. ! 5: -lgl) */ ! 6: #include "lexlib.h" ! 7: yyless(n) ! 8: { ! 9: if (n < 0) ! 10: return; ! 11: if (yyleng-n+qct(ll_tq) > QSIZE) ! 12: error(inpovf); ! 13: while (yyleng > n) { ! 14: qug(ll_tq, yytext[--yyleng]); ! 15: if (ll_tlen) ! 16: --ll_tlen; ! 17: } ! 18: if (yyleng) ! 19: ll_lc = yytext[yyleng-1]; ! 20: yytext[yyleng] = '\0'; ! 21: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.