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

⟦bff74f2fb⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Ada, pragma Module_Name 4 2209, pragma Subsystem Command, seg_028421

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 Ada is
    procedure Code_Unit;
    -- Bring the unit corresponding to current image to the coded state.
    -- May involve coding subunits, parent unit, or corresponding visible
    -- part, but no closure operation is performed.  If the operation
    -- succeeds, the unit will be read-only.

    procedure Install_Unit;
    -- Bring the unit corresponding to current image to the installed
    -- state.  Will install no other units; may reduce subunits or parent
    -- unit to installed, but no closure operation is performed.  If the
    -- operation succeeds, the unit will be read-only.

    procedure Source_Unit;
    -- Bring the unit to source state such that its library declaration has
    -- the appropriate name and the image is read-only.

    procedure Withdraw (Name : String := "<IMAGE>");
    -- Edit the indicated unit, removing its declaration from the library.

    procedure Diana_Edit (Name : String := "<CURSOR>");
    -- Show a read-only image of the internal form of the Diana tree
    -- corresponding to the image given.

    procedure Install_Stub;
    -- Make the stub for the current compilation unit have the real name
    -- of the unit rather than its _Ada_nn_ name.

    procedure Make_Inline;
    -- Make a separate subunit body into an inline unit body

    procedure Make_Separate;
    -- Make an inline subunit body be a separate subunit body

    procedure Other_Part (Name : String := "<IMAGE>";
                          In_Place : Boolean := False);
    -- If a new window is required, In_Place indicates that the current
    -- frame should be used.

    procedure Replace_Id (Old_Id : String := ">>OLD NAME<<";
                          New_Id : String := ">>NEW NAME<<");
    -- For the current selection, change all occurrences of Old_ID into
    -- occurrences of New_ID.  Only changes Ada identifier references that
    -- match exactly.

    procedure Show_Usage (Name : String := "<CURSOR>";
                          Global : Boolean := True;
                          Limit : String := "<ALL_WORLDS>";
                          Closure : Boolean := False);
    -- Show uses of the indicated item.
    -- Global => mark units other than the one indicated.
    -- Limit specifies the range of units if Global is true.
    -- Closure causes Show_Usage to find indirect references, e.g. renames.

    procedure Show_Unused (In_Unit : String := "<IMAGE>";
                           Check_Other_Units : Boolean := True);
    -- Show the declarations in a unit that are not referenced

    procedure Create_Body (Name : String := "<IMAGE>");
    -- Create a body declaration corresponding to the indicated
    -- declaration or visible part.

    procedure Create_Private (Name : String := "<IMAGE>");
    -- Create a private part declaration for each private type that still
    -- requires one.

    procedure Get_Errors;
    -- Restore the error underlining from the last compile, semanticize,
    -- etc.

    procedure Insert_Blank_Line (Repeat : Positive := 1);
    -- Insert repeat blank lines before the current line

    procedure Delete_Blank_Line (Repeat : Positive := 1);
    -- Delete repeat blank lines at the current cursor

    procedure Expand_Names (Name : String := "<SELECTION>";
                            Prefix_Standard : Boolean := False;
                            Prefix_Unit : Boolean := False;
                            Expand_Operators : Boolean := False);
    -- Expands names in the named Ada fragment. Prefix_Standard causes
    -- names from Standard to get prefixed.  Prefix_Unit causes names
    -- from the current unit to get prefixed.  Expand_Operators causes
    -- operators (such as "=" and "+") to get prefixed.


    pragma Subsystem (Command);
    pragma Module_Name (4, 2209);
end Ada;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=17 rec1=00 rec2=01 rec3=02e
        [0x01] rec0=18 rec1=00 rec2=02 rec3=056
        [0x02] rec0=16 rec1=00 rec2=03 rec3=042
        [0x03] rec0=16 rec1=00 rec2=04 rec3=001
    tail 0x21520f2ea83c17239fc07 0x42a00088462060003