MBTTY.mesa
last edited by Levin on April 5, 1983 2:34 pm
DIRECTORY
TTY
USING [
Handle, NumberFormat, PutChar, PutCR, PutDecimal, PutLongDecimal, PutLongNumber, PutLongString, UserAbort];
MBTTY: DEFINITIONS IMPORTS TTY =
BEGIN
This interface localizes all the dependencies on a teletype-style
interface with the user.
Handle: TYPE = PRIVATE TTY.Handle;
NumberFormat: TYPE = TTY.NumberFormat;
PutChar: PROC [h: Handle, c: CHARACTER] = INLINE {TTY.PutChar[h, c]};
PutCR: PROC [h: Handle] = INLINE {TTY.PutCR[h]};
PutDecimal: PROC [h: Handle, n: INTEGER] = INLINE {TTY.PutDecimal[h, n]};
PutLongDecimal:
PROC [h: Handle, n:
LONG
INTEGER] =
INLINE
{TTY.PutLongDecimal[h, n]};
PutString:
PROC [h: Handle, s:
LONG
STRING] =
INLINE
{TTY.PutLongString[h, s]};
PutLine:
PROC [h: Handle, s:
LONG
STRING] =
INLINE
{TTY.PutLongString[h, s]; TTY.PutCR[h]};
PutLongNumber:
PROC [
h: Handle, n: LONG UNSPECIFIED, format: NumberFormat] = INLINE
{TTY.PutLongNumber[h, n, format]};
UserAbort:
PROC [h: Handle]
RETURNS [yes:
BOOLEAN] =
INLINE
{RETURN[TTY.UserAbort[]]};
END.