[Oberon] HOW2 get output of ORTool.DecSym and ORTool.DecObj in a file.

[Jörg]

Paul

In a much earlier version (1993), Edit.Store looked like this:

PROCEDURE Store*;
  VAR V: Viewers.Viewer; S: Texts.Scanner; T: Texts.Text;
  BEGIN
    IF Oberon.Par.frame = Oberon.Par.vwr.dsc THEN V := Oberon.Par.vwr
    ELSIF Oberon.Pointer.on THEN                  V := Oberon.MarkedViewer()
    END;
    IF (V # NIL) & (V IS MenuViewers.Viewer) &
       (V.dsc IS TextFrames.Frame) & (V.dsc.next IS TextFrames.Frame)
    THEN
      Texts.OpenScanner(S, V.dsc(TextFrames.Frame).text, 0); Texts.Scan(S);
      IF (S.class = Texts.Name) OR (S.class = Texts.String) THEN
        Str("Edit.Store "); Str(S.s); T :=
V.dsc.next(TextFrames.Frame).text;
        Texts.Close(T, S.s); Int(T.len); Ln;
      END
    END
  END Store;

Back then "Edit.Store *" was possible and it stored the text of the marked
viewer.
But basically the * was ignored...

br
Jörg

-----Original Message-----
From: Oberon [mailto:oberon-bounces at lists.inf.ethz.ch] On Behalf Of Paul
Reed
Sent: Mittwoch, 13. Juli 2016 11:04
To: ETH Oberon and related systems <oberon at lists.inf.ethz.ch>
Subject: Re: [Oberon] HOW2 get output of ORTool.DecSym and ORTool.DecObj in
a file.

No.  I'm pretty sure Edit.Store * won't do anything useful.

The procedure works out a viewer to save and then sets up a scanner to
parse the filename to save under - these two things come from the same
place when the command is executed from a viewer menu, and from (usually)
different places when the name (or selection) is specified explicitly in
the command.

(Strange, because I seem to remember something like an Edit.Store * as
well - but I checked in the code in the original book, and it's similar to
the 2013 version.)

> Yes. This is the other method Paul described in an earlier mail.
> Jörg
>
>> Am 13.07.2016 um 00:04 schrieb <Aubrey.McIntosh at alumni.utexas.net>
>> <Aubrey.McIntosh at alumni.utexas.net>:
>>
>> Can you type "Edit.Store *" anywhere, star mark the System.Log, and save
>> it that way as well?
>>


--
Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
https://lists.inf.ethz.ch/mailman/listinfo/oberon