OberonCore

MODULE TestAsciiRead;

IMPORT a := ObxAscii, Files, StdLog;

PROCEDURE Do*;
VAR
   T: a.Text;
   c: CHAR;
BEGIN
   T := a.Open (Files.dir.This("e:\"), "hello.txt");
   WHILE ~a.Eot (T) DO
      a.ReadChar (T, c);
      IF T.done THEN StdLog.Char (c) END
   END;
END Do;

END TestAsciiRead.

MODULE TestAsciiRead;

IMPORT Dialog, Files, Stores, Log := StdLog;

PROCEDURE Error (res: INTEGER);
(*
res = 1   invalid parameter (name or locator)
res = 2   location or file not found
res = 3   file already exists
res = 4   write-protection
res = 5   io error
res = 6   access denied
*)
VAR
   c: CHAR;
   rc, s: Dialog.String;
BEGIN
   c := CHR (48 + res); rc[0] := c; rc[1] := 0X; (* translate res into corresponding char value *)
   Dialog.MapString ("#Test:res" + rc, s); (* Get resource string *)
   Log.String ("Error: "+ s); Log.Ln
END Error;

PROCEDURE WriteCh (c: CHAR);
BEGIN
   Log.Char (c)
END WriteCh;

PROCEDURE TextRead (loc: Files.Locator; name: ARRAY OF CHAR);
VAR
   f: Files.File;
   rd: Stores.Reader;
   c: CHAR;
BEGIN
   f := Files.dir.Old (loc, name$, TRUE);
   IF f # NIL THEN
      rd.ConnectTo(f);
      WHILE ~rd.rider.eof DO
         rd.ReadChar (c);
         WriteCh (c)
      END;
      f.Close(); f := NIL
   ELSE
      IF loc.res # 0 THEN Error (loc.res) END
   END;
END TextRead;

PROCEDURE Do*;
BEGIN
   TextRead (Files.dir.This("e:/"), "hello.txt");
END Do;

END TestAsciiRead.

STRINGS
res1   invalid parameter (name or locator)
res2   location or file not found
res3   file already exists
res4   write-protection
res5   io error
res6   access denied