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