⟦27a8dd70a⟧

E3 Source Code



package Search_List is

    -- Conceptually a search list is a sequence of component names of
    -- libraries.  A component name could have wild characters, and would
    -- therefore resolve to many libraries.  The resolution of a name
    -- depends on the resolution of the libraries, order being important.
    -- Furthermore, the resolution of a component name or an Ada name
    -- depends on the context in which such resolution is done.  For
    -- instance, the component name "$" meaning enclosing library resolves
    -- to different libraries depending on the current context.

    -- A separate image comes up for each Edit with different parameters.
    -- Most commands take in defaulted Session and User parameters.  The
    -- defaults refer to the present user and session.

    procedure Display (Session : String := ""; User : String := "");

    -- Displays the Session Search List Components in a text-io image.

    procedure Display_Libraries;

    -- Displays the resolution of all the Libraries of the Search List
    -- in the present context in a text-io image.

    procedure Show_List (Session : String := ""; User : String := "");

    -- Shows the Session Search List

    procedure Show_Item (Component : String := "<CURSOR>");

    -- Displays the library indicated by a Search List component provided it
    -- resolves to a unique library.  By default, displays the library at
    -- the cursor.

    procedure Set_Up (Component : String := ">>SEARCH LIST<<";
                      Session : String := "";
                      User : String := "");

    -- Initialize Search List.  Replaces entire previous contents.

    procedure Reset_To_System_Default
                 (Session : String := ""; User : String := "");

    -- Resets to system default search list.

    procedure Add (Component : String := ">>LIBRARY NAME<<";
                   Position : Integer := Integer'Last;
                   Session : String := "";
                   User : String := "");

    -- Adds Component in the indicated Position in the Search
    -- List Components image.  If defaulted, and cursor is on the
    -- Search List image, then that is the location of the addition
    -- Otherwise, addition is at end.

    procedure Replace (New_Component : String := ">>LIBRARY NAME<<";
                       Old_Component : String := "<SELECTION>";
                       Session : String := "";
                       User : String := "");

    -- Replace Old_Component (the component indicated by selection is the
    -- default) by New_Component in Search List image.

    procedure Delete (Component : String := "<SELECTION>";
                      Session : String := "";
                      User : String := "");

    -- Remove Component (the component indicated by the current selection is
    -- the default) from the Search List image.

    procedure Release;

    -- Removes current image from the screen

    procedure Save (File_Name : String := ">>FILE NAME<<";
                    Session : String := "";
                    User : String := "");

    -- Save the search list of the given user's session

    procedure Revert (File_Name : String := "";
                      Session : String := "";
                      User : String := "");

    -- Revert the search list for the given user's session from the named
    -- file.  If the file name is defaulted, the search list is reverted
    -- from the permanent search list maintained for this user's session

    pragma Subsystem (Commands);
    pragma Module_Name (4, 3939);

end Search_List;
DataMuseum.dk

Rational R1000/400

⟦27a8dd70a⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
