M2compiler-V3/stdlib/swholeio.mod

IMPLEMENTATION MODULE SWholeIO;
IMPORT IOConsts, SIOResult;
FROM IOConsts IMPORT allRight;

PROCEDURE m2writeintwidth (v : INTEGER; wid : CARDINAL);
  EXTERNAL;
PROCEDURE m2readint () : INTEGER;
  EXTERNAL;

PROCEDURE WriteInt (int : INTEGER; width : CARDINAL);
BEGIN
  m2writeintwidth(int, width)
END WriteInt;

PROCEDURE WriteCard (card : CARDINAL; width : CARDINAL);
BEGIN
  m2writeintwidth(VAL(INTEGER, card), width)
END WriteCard;

PROCEDURE ReadInt (VAR int : INTEGER);
BEGIN
  int := m2readint();
  SIOResult.SetReadResult(allRight)
END ReadInt;

PROCEDURE ReadCard (VAR card : CARDINAL);
BEGIN
  card := VAL(CARDINAL, m2readint());
  SIOResult.SetReadResult(allRight)
END ReadCard;

END SWholeIO.