int tputs(const char *str, int affcnt, int (*putc_)(int)) { while (*str) { putc_(*str); str++; } return 0; }
int pathf90_fput(char *c, int *status, int clen) { int junk; status = (status == 0) ? (&junk) : status; return *status = putc_(c, clen); }
int tputs(const char *str, int affcnt, int (*putc_)(int)) { while (*str) { putc_(*str); str++; } return 0; }
int pathf90_fput(char *c, int *status, int clen) { int junk; status = (status == 0) ? (&junk) : status; return *status = putc_(c, clen); }