From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Thu, 6 Feb 2020 21:10:09 +0000 (+0300)
Subject: move plain text loading to DswDocuments
X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=commitdiff_plain;h=738684e6c2f1f191e6bd359507f0398a66e46868

move plain text loading to DswDocuments
---

diff --git a/src/generic/Dsw/Mod/Compiler486Main.cp b/src/generic/Dsw/Mod/Compiler486Main.cp
index 5461907..ad9c972 100644
--- a/src/generic/Dsw/Mod/Compiler486Main.cp
+++ b/src/generic/Dsw/Mod/Compiler486Main.cp
@@ -279,44 +279,28 @@ MODULE DswCompiler486Main;
 
   PROCEDURE ReadText (s: Elem): POINTER TO ARRAY OF CHAR;
     VAR
-      i, len, res: INTEGER;
-      text: DswDocuments.Text;
-      loc: Files.Locator; f: Files.File; r: Files.Reader;
-      ssrc: POINTER TO ARRAY OF SHORTCHAR;
+      i, res: INTEGER;
+      m: DswDocuments.Model;
+      r: DswDocuments.Reader;
+      loc: Files.Locator;
       src: POINTER TO ARRAY OF CHAR;
-      x: POINTER TO ARRAY OF BYTE;
       num: ARRAY 32 OF CHAR;
   BEGIN
-    src := NIL;
     loc := Files.dir.This(s.dir);
-    DswDocuments.Import(loc, s.name, text, res);
-    Strings.IntToString(res, num);
-    IF res = 0 THEN
-      src := text.t
-    ELSIF res = 2 THEN
-      f := Files.dir.Old(loc, s.name, Files.shared);
-      IF f # NIL THEN
-        len := f.Length();
-        r := f.NewReader(NIL);
-        NEW(x, len + 1);
-        r.ReadBytes(x, 0, len);
-        NEW(ssrc, len + 1);
-        FOR i := 0 TO len - 1 DO
-          ssrc[i] := SHORT(CHR(x[i]))
-        END;
-        ssrc[i] := 0X;
-        x := NIL;
-        NEW(src, len + 1);
-        Kernel.Utf8ToString(ssrc, src, res);
-        ssrc := NIL;
-        f.Close
-      END
-    ELSE
-      IF DevCPM.verbose > 0 THEN
-        Console.WriteStr("document error ");
-        Console.WriteStr(num);
-        Console.WriteLn
+    DswDocuments.Open(loc, s.name, m, res);
+    IF m # NIL THEN
+      r := m.NewReader(NIL);
+      NEW(src, m.Length() + 1);
+      IF src # NIL THEN
+        FOR i := 0 TO m.Length() - 1 DO
+          r.Read; src[i] := r.char
+        END
       END
+    ELSIF DevCPM.verbose > 0 THEN
+      Strings.IntToString(res, num);
+      Console.WriteStr("document error ");
+      Console.WriteStr(num);
+      Console.WriteLn
     END;
     IF src = NIL THEN
       Console.WriteStr("unable to open file ");
diff --git a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
index bf5bb1b..1043752 100644
--- a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
+++ b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
@@ -299,44 +299,28 @@ MODULE DswCompilerCPfrontMain;
 
   PROCEDURE ReadText (s: Elem): POINTER TO ARRAY OF CHAR;
     VAR
-      i, len, res: INTEGER;
-      text: DswDocuments.Text;
-      loc: Files.Locator; f: Files.File; r: Files.Reader;
-      ssrc: POINTER TO ARRAY OF SHORTCHAR;
+      i, res: INTEGER;
+      m: DswDocuments.Model;
+      r: DswDocuments.Reader;
+      loc: Files.Locator;
       src: POINTER TO ARRAY OF CHAR;
-      x: POINTER TO ARRAY OF BYTE;
       num: ARRAY 32 OF CHAR;
   BEGIN
-    src := NIL;
     loc := Files.dir.This(s.dir);
-    DswDocuments.Import(loc, s.name, text, res);
-    Strings.IntToString(res, num);
-    IF res = 0 THEN
-      src := text.t
-    ELSIF res = 2 THEN
-      f := Files.dir.Old(loc, s.name, Files.shared);
-      IF f # NIL THEN
-        len := f.Length();
-        r := f.NewReader(NIL);
-        NEW(x, len + 1);
-        r.ReadBytes(x, 0, len);
-        NEW(ssrc, len + 1);
-        FOR i := 0 TO len - 1 DO
-          ssrc[i] := SHORT(CHR(x[i]))
-        END;
-        ssrc[i] := 0X;
-        x := NIL;
-        NEW(src, len + 1);
-        Kernel.Utf8ToString(ssrc, src, res);
-        ssrc := NIL;
-        f.Close
-      END
-    ELSE
-      IF DevCPM.verbose > 0 THEN
-        Console.WriteStr("document error ");
-        Console.WriteStr(num);
-        Console.WriteLn
+    DswDocuments.Open(loc, s.name, m, res);
+    IF m # NIL THEN
+      r := m.NewReader(NIL);
+      NEW(src, m.Length() + 1);
+      IF src # NIL THEN
+        FOR i := 0 TO m.Length() - 1 DO
+          r.Read; src[i] := r.char
+        END
       END
+    ELSIF DevCPM.verbose > 0 THEN
+      Strings.IntToString(res, num);
+      Console.WriteStr("document error ");
+      Console.WriteStr(num);
+      Console.WriteLn
     END;
     IF src = NIL THEN
       Console.WriteStr("unable to open file ");
diff --git a/src/generic/Dsw/Mod/Documents.cp b/src/generic/Dsw/Mod/Documents.cp
index 12cb6b5..8ebfa3a 100644
--- a/src/generic/Dsw/Mod/Documents.cp
+++ b/src/generic/Dsw/Mod/Documents.cp
@@ -1,12 +1,15 @@
 MODULE DswDocuments;
 
-  IMPORT Files;
+  IMPORT SYSTEM, Kernel, Files;
 
   (* !!! make better store type and version checking *)
 
   TYPE
     Name = ARRAY 256 OF SHORTCHAR;
 
+    ShortString = POINTER TO ARRAY OF SHORTCHAR;
+    String = POINTER TO ARRAY OF CHAR;
+
     Store = RECORD
       (* type: Name; *)
       next, down, len: INTEGER;
@@ -14,32 +17,104 @@ MODULE DswDocuments;
       isElem: BOOLEAN;
     END;
 
-    Text* = POINTER TO RECORD
-      t*: POINTER TO ARRAY OF CHAR;
+    Model* = POINTER TO ABSTRACT RECORD END;
+
+    Reader* = POINTER TO ABSTRACT RECORD
+      eot*: BOOLEAN;
+      char*: CHAR;
+    END;
+
+    StdModel = POINTER TO RECORD (Model)
+      str: String;
+      len: INTEGER
+    END;
+
+    StdReader = POINTER TO RECORD (Reader)
+      base: StdModel;
+      i: INTEGER
     END;
 
-  PROCEDURE Import* (loc: Files.Locator; IN name: Files.Name; OUT text: Text; OUT res: INTEGER);
+  VAR
+    oldReader: Files.Reader;
+
+  PROCEDURE (m: Model) NewReader* (old: Reader): Reader, NEW, ABSTRACT;
+  PROCEDURE (m: Model) Length* (): INTEGER, NEW, ABSTRACT;
+
+  PROCEDURE (r: Reader) Base* (): Model, NEW, ABSTRACT;
+  PROCEDURE (r: Reader) Pos* (): INTEGER, NEW, ABSTRACT;
+  PROCEDURE (r: Reader) SetPos* (pos: INTEGER), NEW, ABSTRACT;
+  PROCEDURE (r: Reader) Read*, NEW, ABSTRACT;
+  PROCEDURE (r: Reader) ReadPrev*, NEW, ABSTRACT;
+
+  PROCEDURE (m: StdModel) NewReader (old: Reader): StdReader;
+    VAR r: StdReader;
+  BEGIN
+    IF (old # NIL) & (old IS StdReader) THEN r := old(StdReader) ELSE NEW(r) END;
+    r.eot := FALSE; r.char := 0X; r.base := m; r.i := 0;
+    RETURN r
+  END NewReader;
+
+  PROCEDURE (m: StdModel) Length (): INTEGER;
+  BEGIN
+    RETURN m.len
+  END Length;
+
+
+  PROCEDURE (r: StdReader) Base (): StdModel;
+  BEGIN
+    RETURN r.base
+  END Base;
+
+  PROCEDURE (r: StdReader) Pos (): INTEGER;
+  BEGIN
+    RETURN r.i
+  END Pos; 
+
+  PROCEDURE (r: StdReader) SetPos (pos: INTEGER);
+  BEGIN
+    ASSERT(pos >= 0, 20);
+    ASSERT(pos <= r.base.len, 21);
+    r.i := pos
+  END SetPos;
+
+  PROCEDURE (r: StdReader) Read;
+  BEGIN
+    IF r.i < r.base.len THEN
+      r.char := r.base.str[r.i]; r.eot := FALSE; INC(r.i)
+    ELSE
+      r.char := 0X; r.eot := TRUE
+    END
+  END Read;
+
+  PROCEDURE (r: StdReader) ReadPrev;
+  BEGIN
+    IF r.i > 0 THEN
+      DEC(r.i); r.char := r.base.str[r.i]; r.eot := FALSE
+    ELSE
+      r.char := 0X; r.eot := TRUE
+    END
+  END ReadPrev;
+
+
+  PROCEDURE Import* (loc: Files.Locator; IN name: Files.Name; OUT m: Model; OUT res: INTEGER);
     CONST
       docTag = 6F4F4443H; docVersion = 0;
       Step = 256;
-    VAR f: Files.File; r: Files.Reader; tag, version, chid: INTEGER; s: Store;
+    VAR f: Files.File; r: Files.Reader; tag, version, chid: INTEGER; s: Store; text: StdModel;
 
     PROCEDURE AddChar (ch: CHAR);
-      VAR i, len: INTEGER; t: POINTER TO ARRAY OF CHAR;
+      VAR i, len: INTEGER; t: String;
     BEGIN
       IF text = NIL THEN
-        NEW(text); NEW(text.t, Step); chid := 0
+        NEW(text); NEW(text.str, Step); chid := 0
       END;
-      len := LEN(text.t);
+      len := LEN(text.str);
       IF chid + 1 >= len THEN
-        NEW(t, len + Step);
-        FOR i := 0 TO len - 1 DO
-          t[i] := text.t[i]
-        END;
-        text.t := t
+        NEW(t, len + Step); t^ := text.str$; text.str := t;
       END;
-      text.t[chid] := ch; INC(chid);
-      text.t[chid] := 0X;
+      text.str[chid] := ch; INC(chid);
+      text.str[chid] := 0X;
+      text.len := chid
     END AddChar;
 
     PROCEDURE ReadSChar (OUT x: SHORTCHAR);
@@ -137,6 +212,7 @@ MODULE DswDocuments;
           END;
           r.ReadByte(ano)
         END;
+        m := text;
         res := 0 (* ok *)
       ELSE
         res := 4 (* unsupported text model version *)
@@ -202,7 +278,7 @@ MODULE DswDocuments;
   BEGIN
     ASSERT(loc # NIL, 20);
     ASSERT(name # "", 21);
-    text := NIL;
+    m := NIL; res := 0;
     f := Files.dir.Old(loc, name, Files.shared);
     IF f # NIL THEN
       IF f.Length() > 8 THEN (* !!! calculate minimal document size *)
@@ -230,4 +306,28 @@ MODULE DswDocuments;
     END
   END Import;
 
+  PROCEDURE Open* (loc: Files.Locator; IN name: Files.Name; OUT m: Model; OUT res: INTEGER);
+    VAR f: Files.File; r: Files.Reader; len: INTEGER; s: ShortString; l: String; text: StdModel;
+  BEGIN
+    m := NIL; res := 0;
+    Import(loc, name, m, res);
+    IF res = 2 THEN
+      f := Files.dir.Old(loc, name, Files.shared);
+      IF f # NIL THEN
+        len := f.Length();
+        r := f.NewReader(oldReader); oldReader := r; r.SetPos(0);
+        NEW(s, len + 1); r.ReadBytes(SYSTEM.THISARRAY(SYSTEM.ADR(s[0]), len + 1), 0, len);
+        NEW(l, len + 1); Kernel.Utf8ToString(s, l, res);
+        IF res = 0 THEN
+          NEW(text); text.str := l; text.len := LEN(text.str$); m := text; res := 0 (* ok *)
+        ELSE
+          res := 5 (* broken encoding *)
+        END;
+        f.Close
+      ELSE
+        res := 1 (* unable to open *)
+      END
+    END
+  END Open;
+
 END DswDocuments.