char id_putc[] = "@(#)putc_.c 1.1";
* write a character to the standard output
* char will be sent to the standard output, usually the terminal
* ierror will be 0 if successful; a system error code otherwise.
#include "../libI77/f_errno.h"
#include "../libI77/fiodefs.h"
extern unit units
[]; /* logical units table from iolib */
return((long)(errno
=F_ERNOPEN
));
putc (*c
, units
[STDOUT
].ufd
);
if (ferror(units
[STDOUT
].ufd
))
clearerr(units
[STDOUT
].ufd
);