DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦64383d7a6⟧ TextFile

    Length: 4237 (0x108d)
    Types: TextFile
    Names: »V«

Derivation

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧ 

TextFile

package Cmvc_Hierarchy is


    -- Operations to manipulate Cmvc "Systems".  Each system has some
    -- number of children which may be either subsystems or other
    -- systems.

    -- A system contains "system views".  Each system view contains
    -- an activity called the "release activity" which selects a
    -- released view for each child subsystem of the system.
    -- Thus, a system view describes a complete implementation of the
    -- entire system in much the same way that a load view contains a
    -- complete implementation of a subsystem.

    -- Systems and system views are created by commands in the Cmvc.
    -- Releasing a system view creates a new released system view.


    procedure Add_Child (Child : String := ">>SYSTEM/SUBSYSTEM NAME<<";
                         To_System : String := "<CURSOR>";
                         Comments : String := "";
                         Work_Order : String := "<DEFAULT>";
                         Response : String := "<PROFILE>");

    -- This operation creates a structural link between the designated
    -- system and child.
    -- These links may not form cycles through child systems.


    procedure Remove_Child (Child : String := ">>SYSTEM/SUBSYSTEM NAME<<";
                            From_System : String := "<CURSOR>";
                            Comments : String := "";
                            Work_Order : String := "<DEFAULT>";
                            Response : String := "<PROFILE>");

    -- The opposite of the operation above, this call will sever the
    -- connection between a child and a parent.


    procedure Build_Activity (Working_System_View : String := "<CURSOR>";
                              Views_To_Include : String := "<LATEST>";
                              Update_Imports : Boolean := True;
                              Allow_Code_Views : Boolean := False;
                              Comments : String := "";
                              Work_Order : String := "<DEFAULT>";
                              Response : String := "<PROFILE>");

    -- Builds or updates the "release activity" in the working system view
    -- to include the specified views.  If <LATEST> is specified then
    -- the latest releases of all the children of the system are included.
    -- Spec views or releases are included in the release activity if
    -- the views have been created after the last time that build_activity
    -- was run on the specified working system view.
    -- Path restrictions may be used to control which releases are included.

    -- If Update_Imports is set then the system view is made to import
    -- all of the subsystem views referenced by the release activity.
    -- Note that this importing is subject to the normal compatibility
    -- requirements.

    -- If Allow_Code_Views is true then code-only views are treated like
    -- release in that they can be included in the release activity.
    -- Otherwise, only regular released views will be included in the
    -- release activity.


    procedure Expand_Activity (New_Activity : String := ">>NEW ACTIVITY NAME<<";
                               System_View : String := "<CURSOR>";
                               Response : String := "<PROFILE>");

    -- Make a copy of a release activity which does not contain any
    -- release views - replace all references to releases with the
    -- contents of that release.


    function Contents (Of_System_View : String := "<CURSOR>";
                       Recursive : Boolean := True;
                       Response : String := "<WARN>") return String;

    -- Returns the contents of the release_activity of the system view.


    function Children (Of_System : String := "<CURSOR>";
                       Recursive : Boolean := True;
                       Response : String := "<WARN>") return String;

    -- This subprogram returns a list of the children of a system.


    function Parents (Of_Subsystem : String := "<CURSOR>";
                      Recursive : Boolean := False;
                      Response : String := "<WARN>") return String;

    -- This returns a list of parent Systems.


    pragma Subsystem (Cmvc);
    pragma Module_Name (4, 3702);

end Cmvc_Hierarchy;