xref: /original-bsd/usr.bin/pascal/libpc/LLIMIT.c (revision 0b685140)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)LLIMIT.c 1.3 06/10/81";
4 
5 #include "h00vars.h"
6 
7 LLIMIT(curfile, limit)
8 
9 	register struct iorec	*curfile;
10 	long			limit;
11 {
12 	if (limit <= 0)
13 		limit = 0x7fffffff;
14 	curfile->llimit = limit;
15 	if (curfile->lcount >= curfile->llimit) {
16 		ERROR("%s: Line limit exceeded\n", curfile->pfname);
17 		return;
18 	}
19 }
20