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