OberonCore

v := Views.Old(Views.dontAsk, loc, name, conv);
text := v(TextViews.View).ThisModel()

Converters.Import(loc, name, conv, store);
text := store(TextViews.View).ThisModel()

f := Files.dir.Old(...);
HostTextConv.ImportDosText(f, store)

PROCEDURE WriteLine (line: ARRAY OF CHAR);
BEGIN
   Log.String (line); Log.Ln
END WriteLine;

PROCEDURE Do*;
   VAR
      f: Files.File;
      res: INTEGER;
      t: TextModels.Model;
      rd: TextModels.Reader;
      line: ARRAY 1024 OF CHAR;
BEGIN
   res := TestAscii.TextOpen (Files.dir.This("e:/"), "hello.txt", f);
   IF f # NIL THEN
      t := TestAscii.TextConnectTo (f);
      rd := t.NewReader(NIL);
      WHILE ~rd.eot DO
         TestAscii.ReadLine (rd, line);
         WriteLine (line)
      END;
      TestAscii.TextClose (f)
   ELSE
      IF res # 0 THEN Error (res) END
   END;
END Do;

MODULE TestAscii;

   IMPORT Files, Stores, TextModels, TextViews, HostTextConv;

CONST
   LineBreak = 0DX;

PROCEDURE TextOpen* (loc: Files.Locator; name: ARRAY OF CHAR; OUT f: Files.File): INTEGER;
BEGIN
   f := Files.dir.Old (loc, name$, Files.shared);
   RETURN loc.res
END TextOpen;

PROCEDURE TextClose* (VAR f: Files.File);
BEGIN
   f.Close(); f := NIL
END TextClose;

PROCEDURE TextConnectTo* (f: Files.File): TextModels.Model;
   VAR store: Stores.Store;
BEGIN
   HostTextConv.ImportText (f, store);
   RETURN store(TextViews.View).ThisModel()
END TextConnectTo;

PROCEDURE ReadLine* (rd: TextModels.Reader; OUT S: ARRAY OF CHAR);
   VAR len: INTEGER; lineend: BOOLEAN;
BEGIN
   S[0] := 0X; len := 0; lineend := FALSE;
   REPEAT
      rd.Read;
      IF rd.char # LineBreak THEN
         S[len] := rd.char;
         INC (len)
      ELSE
         S[len] := 0X;
         lineend := TRUE
      END
   UNTIL lineend OR rd.eot
END ReadLine;

END TestAscii.

PROCEDURE StringToSString(IN str: ARRAY OF CHAR; OUT sstr: ARRAY OF SHORTCHAR);
   VAR
      i : INTEGER;
   BEGIN
      i := 0;
      WHILE str[i] # 0X DO
         sstr[i] := SHORT(str[i]);
         INC(i);
      END;
      sstr[i] := SHORT(str[i]);      
END StringToSString;

...

w: Stores.Writer;
res, i, j: INTEGER;
s : Dialog.String;
ss : ARRAY 255 OF SHORTCHAR;
...
StringToSString(s,ss);
w.WriteSString(ss);
...

 (* пример *)
   PROCEDURE WriteTextFile*;
      VAR
         text: TextModels.Model; fmt: TextMappers.Formatter;
         loc: Files.Locator; conv: Converters.Converter;
         i: INTEGER;
   BEGIN
      text := TextModels.dir.New(); fmt.ConnectTo(text);
      fmt.WriteString("x"); fmt.WriteTab; fmt.WriteString("sqrt(x)"); fmt.WriteLn;
      i := 0;
      WHILE i <= 10 DO
         fmt.WriteInt(i); fmt.WriteTab;
         fmt.WriteReal(Math.Sqrt(i)); fmt.WriteLn;
         INC(i)
      END;
      conv := Converters.list;
      WHILE (conv # NIL) & ~(conv.exp = "HostTextConv.ExportText") DO
         conv := conv.next
      END;
      ASSERT(conv # NIL, 100); (* вместо обр. ошибки АВОСТ *)
      loc := Files.dir.This("");
      Converters.Export(loc, "abc.txt", conv, TextViews.dir.New(text));
      ASSERT(loc.res = 0, 101) (* вместо обр. ошибки АВОСТ *)
   END WriteTextFile;

END PrivFiles.

^Q PrivFiles.WriteTextFile