C/src/DS3100/Cstdio.i3


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.

Cstdio's implementation is in: