summaryrefslogtreecommitdiff
path: root/do/aprint
diff options
context:
space:
mode:
Diffstat (limited to 'do/aprint')
-rw-r--r--do/aprint41
1 files changed, 0 insertions, 41 deletions
diff --git a/do/aprint b/do/aprint
deleted file mode 100644
index bda86c8b2c..0000000000
--- a/do/aprint
+++ /dev/null
@@ -1,41 +0,0 @@
-bool
-do_aprint(arg,fp,arglast)
-register ARG *arg;
-register FILE *fp;
-int *arglast;
-{
- register STR **st = stack->ary_array;
- register int sp = arglast[1];
- register int retval;
- register int items = arglast[2] - sp;
-
- if (!fp) {
- if (dowarn)
- warn("print to unopened file");
- errno = EBADF;
- return FALSE;
- }
- st += ++sp;
- if (arg->arg_type == O_PRTF) {
- do_sprintf(ARGTARG,items,st);
- retval = do_print(ARGTARG,fp);
- }
- else {
- retval = (items <= 0);
- for (; items > 0; items--,st++) {
- if (retval && ofslen) {
- if (fwrite(ofs, 1, ofslen, fp) == 0 || ferror(fp)) {
- retval = FALSE;
- break;
- }
- }
- if (!(retval = do_print(*st, fp)))
- break;
- }
- if (retval && orslen)
- if (fwrite(ors, 1, orslen, fp) == 0 || ferror(fp))
- retval = FALSE;
- }
- return retval;
-}
-