RTIO is a simple low-level interface for I/O used by the runtime. None of its routines do any locking or require any memory allocation. Output is buffered internally until Flush is called or the internal buffer overflows.

Clients beware, this interface may change at any time.

INTERFACE RTIO;

PROCEDURE PutChar (c: CHAR);

Write c.

PROCEDURE PutChars (a: ADDRESS;  n: INTEGER);

Write characters a[0..n-1].

PROCEDURE PutString (s: ADDRESS);

Write the null terminated string beginning at s.

PROCEDURE PutText (t: TEXT);

Write text t.

PROCEDURE PutInt (i: INTEGER;  width := 0);

Convert integer i to decimal digits and write it right-justified in a field of width characters.

PROCEDURE PutHex (i: INTEGER;  width := 0);

Convert unsigned integer i to hexidecimal digits with a 0x prefix and write it right-justified in a field of width characters.

PROCEDURE PutAddr (a: ADDRESS;  width := 0);

== PutHex (LOOPHOLE (a, INTEGER), width)

<* EXTERNAL RTIO__PutE *>
PROCEDURE PutE (a: LONGREAL);

== printf(%e, a)

<* EXTERNAL RTIO__PutF *>
PROCEDURE PutF (a: LONGREAL);

== printf(%f, a)

<* EXTERNAL RTIO__PutG *>
PROCEDURE PutG (a: LONGREAL);

== printf(%g, a)

<* EXTERNAL RTIO__PutBytes *>
PROCEDURE PutBytes(a: ADDRESS; count: INTEGER);

hex

<* EXTERNAL RTIO__PutLong *>
PROCEDURE PutLong (i: LONGINT);

== printf(%I64d or %lld, i)

<* EXTERNAL RTIO__PutLongHex *>
PROCEDURE PutLongHex (i: LONGINT);

== printf(0x%I64x or %llx, i)

PROCEDURE Flush ();

Flush any buffered characters to the operating system.

END RTIO.