HELP ISCLOSED John Gibson, July 83
isclosed(<device>) -> <boolean>;
or
isclosed(<character_repeater>) -> <boolean>;
Given a device record, or a character-repeater for a device produced by
*DISCIN or *DISCOUT, this procedure returns TRUE if the device (or underlying
device in the procedure case) is closed, e.g.
discin("myfile") -> char_rep;
isclosed(char_rep) =>
** <false>
... (read characters from char_rep until *TERMIN produced)
isclosed(char_rep) =>
** <true>
See also
HELP *ISDEVICE - recogniser procedure for a device record NOT DONE
HELP *DEVICE - on I/O device descriptors in POP-11
HELP *DEVNAME - returns name of file for which device was created
HELP *DISCIN - creates a character repeater for a file or device
HELP *DISCOUT - creates a character consumer for a file or device
HELP *POPDEVERR - returns the device for the standard error channel
HELP *POPDEVIN - returns the device for the standard input channel
HELP *POPDEVOUT - returns the device for the standard output channel
HELP *POPDEVRAW - returns the device for 'raw' terminal input/output