File:  [MW Coherent from dump] / coherent / a / usr / src / libl / less.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Wed May 29 04:56:34 2019 UTC (7 years ago) by root
Branches: MarkWilliams, MAIN
CVS tags: relic, HEAD
coherent

/* (-lgl
 * 	COHERENT Version 3.1
 * 	Copyright (c) 1982, 1990 by Mark Williams Company.
 * 	All rights reserved. May not be copied without permission.
 -lgl) */
#include "lexlib.h"
yyless(n)
{
	if (n < 0)
		return;
	if (yyleng-n+qct(ll_tq) > QSIZE)
		error(inpovf);
	while (yyleng > n) {
		qug(ll_tq, yytext[--yyleng]);
		if (ll_tlen)
			--ll_tlen;
	}
	if (yyleng)
		ll_lc = yytext[yyleng-1];
	yytext[yyleng] = '\0';
}

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.