xref: /original-bsd/usr.bin/pascal/libpc/BUFF.c (revision fbb2a877)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)BUFF.c 1.4 06/02/88";
4 
5 #include "h00vars.h"
6 
7 BUFF(amount)
8 
9 	long		amount;
10 {
11 	struct iorec	*curfile;
12 	static char	sobuf[BUFSIZ];
13 
14 	curfile = OUTPUT;
15 	if (amount == 0)
16 		setbuf(ACTFILE(curfile), 0);
17 	else if (amount == 2)
18 		setbuf(ACTFILE(curfile), sobuf);
19 }
20