ianr@cogs.susx.ac.uk (Ian Rogers) blithers (without checking first):
> pop_charout_col and company will work for these "disk" devices
> as well as for "terminals". Ie., from REF * CHARIO:
>
> pop_charout_col -> int [variable]
> int -> pop_charout_col
> pop_charerr_col -> int [variable]
> int -> pop_charerr_col
> These variables contain integers representing the number of
> columns filled by charout and charerr respectively in their
^^^^^^^ ^^^^^^^
Pah! That's what I get for not reading the documentation properly :-(
charout is the default value of cucharout, so reassigning cucharout will
stop pop_charout_col from being updated.
But, the standard pretty printers in Pop *will* work (honest, I've
actually checked this time :-), and printf and so one will also work.
define print_big;
[oh freddled [gruntbuggly, thy] micturations are to me as plurdled
gabbleblotchets [on a [lurged] bee] [groop [I implore you [my
footing turlingdrome [and] hooptiously drangle] me in crinkly]
bindle wurgles]] ==>
enddefine;
define big_to_disk;
dlocal cucharout = discout('hrummph');
print_big();
cucharout(termin);
enddefine;
big_to_disk();
Ian.
|