Copyright (C) 1994, Digital Equipment Corp.
INTERFACE Cstdio;
FROM Ctypes IMPORT int, short, char;
TYPE
char_star = UNTRACED REF char; (* because of the weird def in Ctypes *)
CONST
N_STATIC_IOBS = 3;
IOEOF = 8_20;
TYPE
Base = [2..16];
iobuf = RECORD
cnt: int;
ptr: char_star;
base: char_star;
bufsiz: int;
flag: short;
file: short; 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.