xref: /csrg-svn/usr.bin/pascal/libpc/BUFF.c (revision 5210)
11640Smckusick /* Copyright (c) 1979 Regents of the University of California */
21640Smckusick 
3*5210Smckusic static char sccsid[] = "@(#)BUFF.c 1.3 12/09/81";
41640Smckusick 
51640Smckusick #include "h00vars.h"
61640Smckusick 
71640Smckusick extern char	_sobuf[];
81640Smckusick 
91640Smckusick BUFF(amount)
101640Smckusick 
112995Smckusic 	long		amount;
121640Smckusick {
131640Smckusick 	struct iorec	*curfile;
141640Smckusick 
151640Smckusick 	curfile = OUTPUT;
161640Smckusick 	if (amount == 0)
17*5210Smckusic 		setbuf(ACTFILE(curfile), 0);
181640Smckusick 	else if (amount == 2)
19*5210Smckusic 		setbuf(ACTFILE(curfile), _sobuf);
201640Smckusick }
21