32 lines
467 B
C
32 lines
467 B
C
#include "string.h"
|
|
#include "io.h"
|
|
|
|
/* $Header $ */
|
|
|
|
/* assume that the channel has been set */
|
|
|
|
_wrnl()
|
|
{
|
|
if( fputc('\n',_chanwr) == EOF) error(29);
|
|
}
|
|
_wrcomma()
|
|
{
|
|
if( fputc(',',_chanwr) == EOF) error(29);
|
|
}
|
|
_wrint(i)
|
|
int i;
|
|
{
|
|
if(i>0)
|
|
if( fputc(' ',_chanwr)==EOF) error(29);
|
|
fprintf(_chanwr,"%d",i);
|
|
}
|
|
_wrflt(f)
|
|
double f;
|
|
{
|
|
if( fprintf(_chanwr,"%f",f)== EOF) error(29);
|
|
}
|
|
_wrstr(s)
|
|
String *s;
|
|
{
|
|
if( fprintf(_chanwr,"\"%s\"",s->strval)== EOF) error(29);
|
|
}
|