Copyright (C) 1994, Digital Equipment Corp. INTERFACECstdio ; CONST N_STATIC_IOBS = 3; IOEOF = 8_20; TYPE Base = [2..16]; iobuf = RECORD cnt: INTEGER; ptr: UNTRACED REF CHAR; base: UNTRACED REF CHAR; bufsiz: INTEGER; flag: [0..16_FFFF]; fileL: [0..16_FF]; fileH: [0..16_FF]; END; <*EXTERNAL "__iob"*> VAR iob: ARRAY [0..N_STATIC_IOBS - 1] OF iobuf; <*EXTERNAL "__flsbuf"*> PROCEDURE flsbuf (c: CHAR; f: UNTRACED REF iobuf); <*EXTERNAL "__filbuf"*> PROCEDURE filbuf (f: UNTRACED REF iobuf): CHAR; <*EXTERNAL "ungetc"*> PROCEDURE ungetc (c: CHAR; f: UNTRACED REF iobuf); <*EXTERNAL "fflush"*> PROCEDURE flush (f: UNTRACED REF iobuf); END Cstdio.