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