#include	"defs.h"

/*
 * input output library
 *
 * S. R. Bourne
 * Bell Telephone Laboratories
 *
 */

setin(f) FILEPTR f;
{
	if(f)
		standin = f;
	else
		standin = &_infile;
}

setout(f) FILEPTR f;
{
	if(f)
		standout = f;
	else
		standout = &_outfile;
}

seterr(f) FILEPTR f;
{
	if(f)
		standerr = f;
	else
		standerr = &_errfile;
}

newline()
{
	printc(NL);
}


setpos(f, n)
	FILEPTR f;
{
	IF n>=F_BUFSIZ
	THEN	f->fnxt=f->fbuf+F_BUFSIZ;
	ELIF n<charpos(f)
	THEN	IF n<0 THEN n=0; FI
		f->fnxt = f->fbuf+n;
	ELSE	WHILE f->fnxt<f->fbuf+n
		DO	printc(' ');
		OD
	FI
}

movpos(f, n)
	FILEPTR f;
{
	setpos(f, charpos(f)+n);
}

flushbuf(f)
	REG FILEPTR f;
{
	IF f->fnxt!=f->fbuf
	THEN	printc(-1);
	FI
}