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: ┃ B T

⟦2bbda441f⟧ TextFile

    Length: 12194 (0x2fa2)
    Types: TextFile
    Names: »B«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Log;
with Profile;

package body Compilation_Extensions is

    package Naming renames Directory.Naming;
    package Ss     renames Simple_Status;
    package Tdi    renames Target_Dependent_Interface;


    function Qt (Str : String) return String is
    begin
        return " => """ & Str & """";
    end Qt;


    procedure Promote_Preprocess
                 (Host_Unit         :        Directory.Object;
                  Remote_Unit_Name  :        String;
                  Remote_Library    :        String;
                  Remote_Machine    :        String;
                  Remote_Directory  :        String;
                  Pre_Options       :        String;
                  Post_Options      :        String;
                  Options_Separator :        String;  
                  Remote_Connection :        Remote_Command_Interface.Context;
                  Is_Secondary      :        Boolean;
                  Status            : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Promote_Preprocess called for Host_Unit => " &
        --                             Naming.Get_Simple_Name (Host_Unit),
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message =>
                         "Promote_Preprocess (Host_Unit => " &
                            Qt (Naming.Get_Simple_Name (Host_Unit)) &
                            ", Remote_Unit_Name" & Qt (Remote_Unit_Name) &
                            ", Remote_Library" & Qt (Remote_Library) &
                            ", Remote_Machine" & Qt (Remote_Machine) &
                            ", Remote_Directory" & Qt (Remote_Directory) &
                            ", Pre_Options" & Qt (Pre_Options) &
                            ", Post_Options" & Qt (Post_Options) &
                            ", Options_Separator" &
                            Qt (Options_Separator) & ", Is_Secondary => " &
                            Boolean'Image (Is_Secondary) & ")",
                      Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Promote_Preprocess;


    procedure Promote_Postprocess
                 (Host_Unit         :        Directory.Object;
                  Remote_Unit_Name  :        String;
                  Remote_Library    :        String;
                  Remote_Machine    :        String;
                  Remote_Directory  :        String;
                  Pre_Options       :        String;
                  Post_Options      :        String;
                  Options_Separator :        String;  
                  Remote_Connection :        Remote_Command_Interface.Context;
                  Is_Secondary      :        Boolean;
                  Status            : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Promote_Postprocess called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message =>
                         "Promote_Postprocess (Host_Unit => " &
                            Qt (Naming.Get_Simple_Name (Host_Unit)) &
                            ", Remote_Unit_Name" & Qt (Remote_Unit_Name) &
                            ", Remote_Library" & Qt (Remote_Library) &
                            ", Remote_Machine" & Qt (Remote_Machine) &
                            ", Remote_Directory" & Qt (Remote_Directory) &
                            ", Pre_Options" & Qt (Pre_Options) &
                            ", Post_Options" & Qt (Post_Options) &
                            ", Options_Separator" &
                            Qt (Options_Separator) & ", Is_Secondary => " &
                            Boolean'Image (Is_Secondary) & ")",
                      Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Promote_Postprocess;


    procedure Demote_Preprocess (Host_Unit : Directory.Object;
                                 Remote_Unit_Name : String;
                                 Remote_Library : String;
                                 Remote_Machine : String;
                                 Remote_Directory : String;
                                 Status : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Demote_Preprocess called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message =>
                         "Demote_Preprocess (Host_Unit => " &
                            Qt (Naming.Get_Simple_Name (Host_Unit)) &
                            ", Remote_Unit_Name" & Qt (Remote_Unit_Name) &
                            ", Remote_Library" & Qt (Remote_Library) &
                            ", Remote_Machine" & Qt (Remote_Machine) &
                            ", Remote_Directory" & Qt (Remote_Directory) & ")",
                      Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Demote_Preprocess;


    procedure Demote_Postprocess (Host_Unit : Directory.Object;
                                  Remote_Unit_Name : String;
                                  Remote_Library : String;
                                  Remote_Machine : String;
                                  Remote_Directory : String;
                                  Status : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Demote_Postprocess called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message =>
                         "Demote_Postprocess (Host_Unit => " &
                            Qt (Naming.Get_Simple_Name (Host_Unit)) &
                            ", Remote_Unit_Name" & Qt (Remote_Unit_Name) &
                            ", Remote_Library" & Qt (Remote_Library) &
                            ", Remote_Machine" & Qt (Remote_Machine) &
                            ", Remote_Directory" & Qt (Remote_Directory) & ")",
                      Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Demote_Postprocess;


    procedure Retrieve_Associated_Files_Preprocess
                 (Host_Unit              : Directory.Object;  
                  Remote_Unit_Name       : String;
                  Remote_Library         : String;
                  Remote_Machine         : String;
                  Remote_Directory       : String;
                  Remote_Connection      : Remote_Command_Interface.Context;
                  The_Retrieve_Condition :
                     Target_Dependent_Interface.Retrieve_Condition;
                  Phases                 : Target_Dependent_Interface.Phase_Map;
                  Status                 : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Retrieve_Associated_Files_Preprocess called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message =>
                         "Retrieve_Associated_Files_Preprocess (Host_Unit => " &
                            Qt (Naming.Get_Simple_Name (Host_Unit)) &
                            ", Remote_Unit_Name" & Qt (Remote_Unit_Name) &
                            ", Remote_Library" & Qt (Remote_Library) &
                            ", Remote_Machine" & Qt (Remote_Machine) &
                            ", Remote_Directory" & Qt (Remote_Directory) &
                            ", The_Retrieve_Condition => " &
                            Tdi.Retrieve_Condition'Image
                               (The_Retrieve_Condition) & ", Phases => " &
                            Boolean'Image (Phases (Tdi.Promote)) & ")",
                      Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Retrieve_Associated_Files_Preprocess;


    procedure Retrieve_Associated_Files_Postprocess
                 (Host_Unit              : Directory.Object;  
                  Remote_Unit_Name       : String;
                  Remote_Library         : String;
                  Remote_Machine         : String;
                  Remote_Directory       : String;  
                  Remote_Connection      : Remote_Command_Interface.Context;
                  The_Retrieve_Condition :
                     Target_Dependent_Interface.Retrieve_Condition;
                  Phases                 : Target_Dependent_Interface.Phase_Map;
                  Status                 : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Retrieve_Associated_Files_Postprocess called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line
           (Message => "Retrieve_Associated_Files_Postprocess (Host_Unit => " &
                          Qt (Naming.Get_Simple_Name (Host_Unit)) &
                          ", Remote_Unit_Name" & Qt (Remote_Unit_Name) &
                          ", Remote_Library" & Qt (Remote_Library) &
                          ", Remote_Machine" & Qt (Remote_Machine) &
                          ", Remote_Directory" & Qt (Remote_Directory) &
                          ", The_Retrieve_Condition => " &
                          Tdi.Retrieve_Condition'Image
                             (The_Retrieve_Condition) & ", Phases => " &
                          Boolean'Image (Phases (Tdi.Promote)) & ")",
            Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Retrieve_Associated_Files_Postprocess;


    function Build_Default_Target_Name
                (Host_Unit     : Directory.Object;
                 Suffix_Type   : Target_Dependent_Interface.Suffix_Type;
                 Serial_Number : Positive) return String is
    begin
        -- Log.Put_Line (Message => "Build_Default_Target_Name called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message => "Build_Default_Target_Name (Host_Unit => " &
                                    Qt (Naming.Get_Simple_Name (Host_Unit)) &
                                    ", Suffix_Type => " &
                                    Tdi.Suffix_Type'Image (Suffix_Type) &
                                    ", Serial_Number =>" &
                                    Integer'Image (Serial_Number) & ")",
                      Kind    => Profile.Debug_Msg);
        return "";
    end Build_Default_Target_Name;


    procedure Change_Remote_Context_Preprocess
                 (Remote_Directory  :        String;
                  Remote_Library    :        String;
                  Remote_Connection :        Remote_Command_Interface.Context;
                  Status            : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Change_Remote_Context_Preprocess called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message =>
                         "Change_Remote_Context_Preprocess (Remote_Directory" &
                            Qt (Remote_Directory) & ", Remote_Library" &
                            Qt (Remote_Library) & ")",
                      Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Change_Remote_Context_Preprocess;


    procedure Change_Remote_Context_Postprocess
                 (Remote_Directory  :        String;
                  Remote_Library    :        String;
                  Remote_Connection :        Remote_Command_Interface.Context;
                  Status            : in out Simple_Status.Condition) is
    begin
        -- Log.Put_Line (Message => "Change_Remote_Context_Postprocess called",
        --               Kind    => Profile.Note_Msg);
        --
        Log.Put_Line (Message =>
                         "Change_Remote_Context_Postprocess (Remote_Directory" &
                            Qt (Remote_Directory) & ", Remote_Library" &
                            Qt (Remote_Library) & ")",
                      Kind    => Profile.Debug_Msg);

        Ss.Create_Condition (Status, "", "", Ss.Normal);
    end Change_Remote_Context_Postprocess;

end Compilation_Extensions;