OberonCore

(*************************************************)
PROCEDURE AReadFile* (IN Path:ARRAY OF CHAR);
VAR
 rfloc:Files.Locator;
 rd:Stores.Reader;
 rfFile:Files.File;
 s:ARRAY(200) OF CHAR;
BEGIN
 StdLog.String(Path);
 StdLog.Ln;
 (**********************)
   rfloc:=Files.dir.This(Path);
   rfFile:=Files.dir.New(rfloc,FALSE);
   rd.ConnectTo(rfFile);
    HALT(0);
   rd.ReadString(s);
 StdLog.String("Строка"+s);
 StdLog.Ln;
   rfFile.Close();
 (**********************)
END AReadFile;

result # NIL
   loc.res = 0   no error
result = NIL
   loc.res = 1   invalid name
   loc.res = 2   location not found
   loc.res = 4   write-protection
   loc.res = 5   io error
   loc.res = 8   cancelled

   CONST
      tempName = "odcxxxxx.tmp";
      docType = "odc";

      serverVersion = TRUE;

      pathLen* = 260;

      nofbufs = 4;   (* max number of buffers per file *)
      bufsize = 2 * 1024;   (* size of each buffer *)

      invalid = KERNEL32.InvalidHandle;

      temp = 0; new = 1; shared = 2; hidden = 3; exclusive = 4; closed = 5;   (* file states *)
      create = -1;

      ok = 0;
      invalidName = 1;   invalidNameErr = 123;
      notFound = 2;   fileNotFoundErr = 2; pathNotFoundErr = 3;
      existsAlready = 3;   fileExistsErr = 80; alreadyExistsErr = 183;
      writeProtected = 4;   writeProtectedErr = 19;
      ioError = 5;
      accessDenied = 6;   accessDeniedErr = 5; sharingErr = 32; netAccessDeniedErr = 65;
      notEnoughMem = 80;   notEnoughMemoryErr = 8;
      notEnoughDisk = 81;   diskFullErr = 39; tooManyOpenFilesErr = 4; noSystemResourcesErr = 1450;

      noMoreFilesErr = 18;

      cancel = -8; retry = -9;