32 lines
551 B
C
32 lines
551 B
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);
|
|
}
|