C/src/IBMR2/Cstdio.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE Cstdio;

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.

Cstdio's implementation is in: