-- Copyright (C) 1981, 1983, 1984, 1985  by Xerox Corporation. All rights reserved. 
-- Implementing IODefs
-- HGM, 15-Sep-85  4:16:58
-- Brenda Hankins 20-Jan-83 12:06:00	(adding WriteDecimal)
-- Mark Johnson  21-May-81 16:16:13

DIRECTORY
  IODefs,  -- exporting --
  LogPrivateDefs USING [tty],
  TTY USING [PutDecimal, GetChar, PutChar, PutLine, PutString];

IO: PROGRAM IMPORTS LogPrivateDefs, TTY EXPORTS IODefs =

  BEGIN

  ReadChar: PUBLIC PROC RETURNS [CHARACTER] = {
    RETURN[TTY.GetChar[LogPrivateDefs.tty]]};

  WriteChar: PUBLIC PROC [c: CHARACTER] = {
    TTY.PutChar[h: LogPrivateDefs.tty, c: c]};

  WriteString: PUBLIC PROC [s: LONG STRING] = {
    TTY.PutString[h: LogPrivateDefs.tty, s: s]};

  WriteLine: PUBLIC PROC [s: LONG STRING] = {
    TTY.PutLine[h: LogPrivateDefs.tty, s: s]; };

  WriteDecimal: PUBLIC PROCEDURE [c: CARDINAL] = {
    TTY.PutDecimal[h: LogPrivateDefs.tty, n: c]};

  END.