⟦d2c980a87⟧

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;
DataMuseum.dk

Rational R1000/400

⟦d2c980a87⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
