SIORESUL.DEF 746 B

1234567891011121314151617181920212223242526
  1. DEFINITION MODULE SIOResult;
  2. (* Obtain read results on the default channel *)
  3. IMPORT IOConsts;
  4. TYPE
  5. ReadResults = IOConsts.ReadResults;
  6. (* ReadResults = (* This type is used to classify the result of an input
  7. operation *)
  8. (
  9. notKnown, (* no read result is set *)
  10. allRight, (* data is as expected or as required *)
  11. outOfRange, (* data cannot be represented *)
  12. wrongFormat, (* data not in expected form *)
  13. endOfLine, (* end of line seen before expected data *)
  14. endOfInput, (* end of input seen before expected data *)
  15. );
  16. *)
  17. PROCEDURE ReadResult () : ReadResults;
  18. (* Returns the result for the last read operation on the default
  19. input channel *)
  20. END SIOResult.