HELP OUTCHARITEM Barrett et al, 1984
outcharitem(<character_consumer>) -> <item_consumer>;
outcharitem(discout<filename>) -> <item_consumer>;
OUTCHARITEM is applied to a character consumer and returns an item consumer,
which behaves exactly like *PR, except that instead of printing the characters
to the terminal via *CHAROUT, it feeds them to the specified character
consumer. Thus, using OUTCHARITEM, the user can direct output to a file and
the screen in the same procedure since *CUCHAROUT has not been redefined.
The procedure MIXOUTPUT outputs items to both the terminal and a file:
define mixoutput(file);
vars outchar outitem list1 list2;
[this is list1] -> list1;
[this is list2] -> list2;
discout(file) -> outchar; ;;; OUTCHAR is a character consumer
outcharitem(outchar) -> outitem; ;;; OUTITEM is an item consumer
outitem(list1); ;;; output to the file
pr('list1 is filed'); ;;; printed on the screen via CHAROUT
pr(newline);
outitem(list2);
pr('list2 is filed');
pr(newline);
outitem(newline);
outitem(termin); ;;; needed to close the file
enddefine;
To call MIXOUTPUT, directing some output to the file called MIX, do:
mixoutput('mix');
list1 is filed
list2 is filed
The file MIX contains: [this is list1] [this is list2]
See also
HELP *CUCHAROUT - holds the character consumer currently in use
HELP *DISCOUT - creates a character consumer for a file or device
HELP *CHAROUT - outputs a character to the terminal
HELP *PR - a variable which holds a printing procedure
HELP *INCHARITEM - converts character repeater procedure into item repeater
REF *ITEMISE - for more on itemisation of input
REF *SYSIO - for details of I/O procedures
HELP *CHAROUT - outputs a character to the terminal
HELP *PRINT - for a list of files on printing procedures