DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦741d645a1⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Common, pragma Module_Name 4 2215, pragma Subsystem Object_Editor, seg_00636e

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



package Common is

    procedure Abandon (Window : String := "<IMAGE>");
    -- Release all locks, and delete the associated window.
    -- This causes the loss of any editing changes.

    procedure Clear_Underlining;
    -- Remove underlining marks left on the image by previous commands.

    procedure Commit;
    -- Make changes to the image permanent

    procedure Complete (Menu : Boolean := True);
    -- Make the current image complete.  Provides syntactic and semantic
    -- completion, as possible.
    -- Menu => bring up a menu window for ambiguous references

    procedure Create_Command;
    -- Go to the command window for the current image, creating one if
    -- necessary.

    procedure Definition (Name : String := "<CURSOR>";
                          In_Place : Boolean := False;
                          Visible : Boolean := True);
    -- Bring up the appropriate image to show the designated object.
    -- Do not make the image modifiable.  If a new window is required
    -- In_Place indicates that the current frame should be used.  Visible
    -- controls how names that resolve to both a visible part and a body
    -- should be resolved.  Visible causes the visible part to be pre-
    -- ferred; not Visible brings up the body if that is possible

    procedure Edit (Name : String := "<IMAGE>";
                    In_Place : Boolean := False;
                    Visible : Boolean := True);
    -- Bring up the appropriate image to show the designated object.
    -- Attempt to make the image modifiable.
    -- In_Place and Visible are as in Definition.

    procedure Enclosing (In_Place : Boolean := False;
                         Library : Boolean := False);
    -- Bring up the image for the object enclosing this one.
    -- In_Place is as in Definition.
    -- Library => the resulting image should be a Library; e.g. for Ada
    -- subunits, go to the enclosing directory rather than parent body.

    procedure Elide (Repeat : Positive := 1);
    -- Reduce the level of detail presented by the number of levels
    -- specified.  Attempts to expand beyond maximum level have no effect.
    -- It is not expected that Elide will reorder the presentation.

    procedure Expand (Repeat : Positive := 1);
    -- Increase the level of detail presented by the number of levels
    -- specified.  Attempts to expand beyond maximum level have no effect.
    -- It is not expected that Expand will reorder the presentation.

    procedure Explain;
    -- Provide additional information about the indicated object.
    -- The additional information may take the form of more detailed
    -- display or error message explanation.  If more detailed infor-
    -- mation is supplied, repeated applications cause the display to
    -- cycle through the available presentations.  For Ada, provides
    -- text of messages associated with underlinings.

    procedure Format;
    -- Format the current image appropriately for its image type.

    procedure Revert;
    -- Restore the image to the reflect the state of the underlying object.
    -- This causes the loss of any editing changes.

    procedure Release (Window : String := "<IMAGE>");
    -- Make changes to the designated image permanent (if applicable),
    -- release all locks, and delete the associated window

    procedure Semanticize;
    -- Perform semantic checking on the image.

    procedure Sort_Image (Format : Integer := 1);
    -- Sort the display according to the given format.  Format numbering is
    -- specific to the object type.  It is assume that if format 1 sorts by
    -- increasing values that format -1 will sort by decreasing values of
    -- the same key.  Clearly not relevant to all object types.

    procedure Demote;
    -- Bring the image to the next lower state.

    procedure Promote;
    -- Bring image to the next higher state.

    procedure Redo (Repeat : Positive := 1);
    -- Inverse of Undo

    procedure Undo (Repeat : Positive := 1);
    -- restore the contents of the image to the previous consistent state

    procedure Insert_File (Name : String := "<REGION>");
    -- Insert the contents of the indicated file into the current image

    procedure Write_File (Name : String := ">>FILE NAME<<");
    -- Write the contents to the named text file


    package Object is
        procedure Insert;
        procedure Copy;
        procedure Delete;
        procedure Move;
        procedure Previous (Repeat : Positive := 1);
        procedure Next (Repeat : Positive := 1);
        procedure Parent (Repeat : Positive := 1);
        procedure Child (Repeat : Positive := 1);
        procedure First_Child (Repeat : Positive := 1);
        procedure Last_Child (Repeat : Positive := 1);
    end Object;
    pragma Subsystem (Object_Editor);
    pragma Module_Name (4, 2215);
end Common;

E3 Meta Data

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1b rec1=00 rec2=01 rec3=046
        [0x01] rec0=12 rec1=00 rec2=02 rec3=08e
        [0x02] rec0=15 rec1=00 rec2=03 rec3=018
        [0x03] rec0=19 rec1=00 rec2=04 rec3=028
        [0x04] rec0=1c rec1=00 rec2=05 rec3=000
    tail 0x215013dcc81bf8025e5d3 0x42a00088462060003