xref: /csrg-svn/usr.bin/pascal/libpc/BUFF.c (revision 34623)
11640Smckusick /* Copyright (c) 1979 Regents of the University of California */
21640Smckusick 
3*34623Smckusick static char sccsid[] = "@(#)BUFF.c 1.4 06/02/88";
41640Smckusick 
51640Smckusick #include "h00vars.h"
61640Smckusick 
71640Smckusick BUFF(amount)
81640Smckusick 
92995Smckusic 	long		amount;
101640Smckusick {
111640Smckusick 	struct iorec	*curfile;
12*34623Smckusick 	static char	sobuf[BUFSIZ];
131640Smckusick 
141640Smckusick 	curfile = OUTPUT;
151640Smckusick 	if (amount == 0)
165210Smckusic 		setbuf(ACTFILE(curfile), 0);
171640Smckusick 	else if (amount == 2)
18*34623Smckusick 		setbuf(ACTFILE(curfile), sobuf);
191640Smckusick }
20