DataMuseum.dk

top - metrics - download

    Length: 5541 (0x15a5)
    Types: TextFile
    Names: »V«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

with Mvs_Builder_Instantiation;  
with Profile;  
package Mvs_Builder is

    Use_Ftp_Default : constant String :=  
       Mvs_Builder_Instantiation.Use_Ftp_Default;

    Beginning_Of_Time : constant String := "1/1/85";  
    procedure Initialize  
                 (World_Or_View : String := "$$";  
                  Dataset_Name : String;  
                  Download_Times_Retention_Count : Positive := 5;  
                  Response : Profile.Response_Profile := Profile.Get);
    -- Initializes the world or the view. Dataset_name refers to the
    -- dataset on the MVS machine where a single file containing all
    -- of the downloaded units will be sent.

    procedure Display_Dataset_Name  
                 (World_Or_View : String := "$$";  
                  Response : Profile.Response_Profile := Profile.Get);
    -- Display the corresponding dataset for this world or view.


    procedure Add_Buddy  
                 (World_Or_View : String := "$$";  
                  Unit_Name, Buddy_Name : String;  
                  Response : Profile.Response_Profile := Profile.Get);  
    procedure Remove_Buddy  
                 (World_Or_View : String := "$$";  
                  Unit_Name : String;  
                  Response : Profile.Response_Profile := Profile.Get);  
    procedure Has_Buddy  
                 (World_Or_View : String := "$$";  
                  Unit_Name : String;  
                  Response : Profile.Response_Profile := Profile.Get);
    -- The above procedures are used to establish buddy file associations
    -- for maintaining source required in the target build process
    -- which can'nt be compiled/executed on the r1000.

    procedure Set_Unit_Target_Name  
                 (World_Or_View : String := "$$";  
                  Unit_Name, Unit_Target_Name : String;  
                  Response : Profile.Response_Profile := Profile.Get);  
    procedure Set_Unit_Target_Names  
                 (World_Or_View : String := "$$";  
                  Unit_Names : String;  
                  Response : Profile.Response_Profile := Profile.Get);

    procedure Add_New_Unit_Target_Names  
                 (World_Or_View : String := "$$";  
                  Unit_Names : String;  
                  Response : Profile.Response_Profile := Profile.Get);  
    procedure Display_Unit_Target_Name  
                 (World_Or_View : String := "$$";  
                  Unit_Name : String;  
                  Response : Profile.Response_Profile := Profile.Get);
    -- The above procedures can be used to force a particular name mapping
    -- of r1000 units to names on the target.  Setting the Unit_Target_Name
    -- to the null string reverts to automatically assigned defaults.
    -- Set_Units_Target_Names uses an mvs name translation to set unit target
    -- names for units named by Unit_Names.  Add_New_Unit_Target_Names will
    -- set the unit target names for those units named by Unit_Names that
    -- have not been previously set.

    procedure Display_Download_Times  
                 (World_Or_View : String := "$$";  
                  Response : Profile.Response_Profile := Profile.Get);  
    procedure Go_Back_Steps  
                 (Libraries : String := "$$";  
                  Number : Positive := 1;  
                  Response : Profile.Response_Profile := Profile.Get);  
    procedure Go_Back_In_Time  
                 (Libraries : String := "$$";  
                  Last_Download_Before : String :=
                     Mvs_Builder.Beginning_Of_Time;  
                  Response : Profile.Response_Profile := Profile.Get);
    -- Display and set the recent download times which are maintained in
    -- the state for the libraries with their corresponding index.
    -- Go_Back_In_Time to beginning_of_time (1/1/85) ensures that all the units
    -- will get downloaded during the next Move operation.  Libraries is either
    -- an activity or a set of worlds reffered to using directory naming.

    procedure Show_Instructions  
                 (Libraries : String := "$$";  
                  Downloaded_Units : Boolean := True;  
                  Recompilation : Boolean := True;  
                  Target_Names : Boolean := True;  
                  Response : Profile.Response_Profile := Profile.Get);
    -- Show the set of units that have changed and the required compilation
    -- on the target which will be performed in the next Move operation.

    procedure Move_Via_Network  
                 (Libraries : String := "$$";  
                  Uninstalled_Units : Boolean := False;  
                  Compute_Recompilation : Boolean := True;  
                  Remote_Dataset_Name : String;  
                  Remote_Machine : String := Mvs_Builder.Use_Ftp_Default;  
                  Remote_User : String := Mvs_Builder.Use_Ftp_Default;  
                  Remote_Password : String := Mvs_Builder.Use_Ftp_Default;  
                  Script_Log : String := Mvs_Builder_Instantiation.Default_Log;  
                  Response : Profile.Response_Profile := Profile.Get);

    procedure Move_Via_Tape  
                 (Libraries : String := "$$";  
                  Uninstalled_Units : Boolean := False;  
                  Compute_Recompilation : Boolean := True;  
                  Tape_Filename : String;  
                  Tape_Volume_Id : String;  
                  Script_Log : String := Mvs_Builder_Instantiation.Default_Log;  
                  Response : Profile.Response_Profile := Profile.Get);

end Mvs_Builder;