DIRECTORY TTY USING [ Handle, NumberFormat, PutChar, PutCR, PutDecimal, PutLongDecimal, PutLongNumber, PutLongString, UserAbort]; MBTTY: DEFINITIONS IMPORTS TTY = BEGIN 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. žMBTTY.mesa last edited by Levin on April 5, 1983 2:34 pm This interface localizes all the dependencies on a teletype-style interface with the user. ÊØJšœ ™ Jšœ-™-J˜šÏk ˜ šœœ˜ J˜kJ˜——Jšœ œœœ˜ J˜Jš˜J˜JšœA™AJšœ™J˜Jšœœœœ˜"Jšœœœ˜&J˜Jš Ïnœœ œœœ˜EJ˜Jšžœœœœ ˜0J˜Jš ž œœœœœ˜Iš žœœœœ˜:Jšœœ˜J˜—š ž œœœœ˜4Jšœœ˜—š žœœœœ˜2Jšœœœ ˜(J˜—šž œœ˜Jšœœ œ˜>Jšœœ˜"J˜—š ž œœ œœ˜;Jšœœœ˜J˜—Jšœ˜J˜—…—šû