2 do_aprint(arg,fp,arglast)
7 register STR **st = stack->ary_array;
8 register int sp = arglast[1];
10 register int items = arglast[2] - sp;
14 warn("print to unopened file");
19 if (arg->arg_type == O_PRTF) {
20 do_sprintf(ARGTARG,items,st);
21 retval = do_print(ARGTARG,fp);
24 retval = (items <= 0);
25 for (; items > 0; items--,st++) {
26 if (retval && ofslen) {
27 if (fwrite(ofs, 1, ofslen, fp) == 0 || ferror(fp)) {
32 if (!(retval = do_print(*st, fp)))
36 if (fwrite(ors, 1, orslen, fp) == 0 || ferror(fp))