Copyright (C) 1994, Digital Equipment Corp. INTERFACECstdio ; IMPORT Ctypes; CONST N_STATIC_IOBS = 3; IOEOF = 8_20; TYPE Base = [2..16]; iobuf = RECORD ptr: UNTRACED REF CHAR; cnt: Ctypes.int; base: UNTRACED REF CHAR; bufendp: UNTRACED REF CHAR; flag: Ctypes.short; file: Ctypes.short; unused: ARRAY [0..2] OF INTEGER; 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.