Copyright (C) 1994, Digital Equipment Corp.
INTERFACE Cstdio;
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.