diff options
Diffstat (limited to 'do/print')
-rw-r--r-- | do/print | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/do/print b/do/print deleted file mode 100644 index ea3acc6e76..0000000000 --- a/do/print +++ /dev/null @@ -1,37 +0,0 @@ -bool -do_print(TARG,fp) -register STR *TARG; -FILE *fp; -{ - register char *tmps; - - if (!fp) { - if (dowarn) - warn("print to unopened file"); - errno = EBADF; - return FALSE; - } - if (!TARG) - return TRUE; - if (ofmt && - ((TARG->str_nok && TARG->str_u.str_nval != 0.0) - || (looks_like_number(TARG) && str_gnum(TARG) != 0.0) ) ) { - fprintf(fp, ofmt, TARG->str_u.str_nval); - return !ferror(fp); - } - else { - tmps = str_get(TARG); - if (*tmps == 'S' && tmps[1] == 't' && tmps[2] == 'B' && tmps[3] == '\0' - && TARG->str_cur == sizeof(STBP) && strlen(tmps) < TARG->str_cur) { - STR *tmpstr = str_mortal(&str_undef); - stab_efullname(tmpstr,((STAB*)TARG));/* a stab value, be nice */ - TARG = tmpstr; - tmps = TARG->str_ptr; - putc('*',fp); - } - if (TARG->str_cur && (fwrite(tmps,1,TARG->str_cur,fp) == 0 || ferror(fp))) - return FALSE; - } - return TRUE; -} - |