ack/lang/basic/lib/write.c

#include "bc_string.h"
#include "bc_io.h"

/* $Id$ */

/* assume that the channel has been set */

void _wrnl(void)
{
	if (fputc('\n', _chanwr) == EOF)
		error(29);
}
void _wrcomma(void)
{
	if (fputc(',', _chanwr) == EOF)
		error(29);
}
void _wrint(int i)
{
	if (i > 0)
		if (fputc(' ', _chanwr) == EOF)
			error(29);
	fprintf(_chanwr, "%d", i);
	if (ferror(_chanwr))
		error(29);
}
void _wrflt(double f)
{
	fprintf(_chanwr, "%f", f);
	if (ferror(_chanwr))
		error(29);
}
void _wrstr(String* s)
{
	fprintf(_chanwr, "\"%s\"", s->strval);
	if (ferror(_chanwr))
		error(29);
}