DataMuseum.dk

top - download

    Length: 5398 (0x1516)
    Types: TextFile
    Names: »B«

└─⟦5829e5ed5⟧ Bits:30000534 8mm tape, Rational 1000, RCI 2_0_5
    └─ ⟦c9a165082⟧ »DATA« 
        └─⟦c3895f76e⟧ 
            └─⟦this⟧ 

TextFile

with Debug_Tools;
with Directory;
with Io;
with Log;
with Profile;
with String_Utilities;
package body Library_Extensions is
    package Naming renames Directory.Naming;

    Default_Host_List_File : constant String := "alib_list";
    Default_Target_List_File : constant String := "alib.list";
    Default_Program_Library : constant String := "working";

    procedure Make_Path_Preprocess (Host_Path_Name : String;
                                    For_Release : Boolean;
                                    Remote_Machine : String;
                                    Remote_Directory : String;
                                    Remote_Program_Library : String;
                                    Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Make_Path_Preprocess",
                      Kind => Profile.Note_Msg);

    end Make_Path_Preprocess;


    procedure Make_Path_Postprocess (Host_Path_Name : String;
                                     For_Release : Boolean;
                                     Remote_Machine : String;
                                     Remote_Directory : String;
                                     Remote_Program_Library : String;
                                     Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Make_Path_Postprocess",
                      Kind => Profile.Note_Msg);

    end Make_Path_Postprocess;


    procedure Destroy_View_Preprocess
                 (Host_Path_Name : String;  
                  Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Destroy_View_Preprocess",
                      Kind => Profile.Note_Msg);

    end Destroy_View_Preprocess;


    procedure Destroy_View_Postprocess
                 (Host_Path_Name : String;  
                  Remote_Machine : String;
                  Remote_Directory : String;
                  Status : in out Simple_Status.Condition) is

    begin
        Log.Put_Line (Message => "Executing Destroy_View_Postprocess",
                      Kind => Profile.Note_Msg);
    end Destroy_View_Postprocess;


    procedure Import_Postprocess (Views_To_Import : Directory.Naming.Iterator;
                                  Into_View : String;
                                  Status : in out Simple_Status.Condition) is

    begin
        Log.Put_Line (Message => "Executing Import_Postprocess",
                      Kind => Profile.Note_Msg);

    end Import_Postprocess;


    procedure Import_Preprocess (Views_To_Import : Directory.Naming.Iterator;
                                 Into_View : String;
                                 Status : in out Simple_Status.Condition) is

    begin
        Log.Put_Line (Message => "Executing Import_Preprocess",
                      Kind => Profile.Note_Msg);
    end Import_Preprocess;


    procedure Remove_Import_Preprocess
                 (View_To_Remove : Directory.Object;
                  From_View : String;
                  Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Remove_Import_Preprocess",
                      Kind => Profile.Note_Msg);

    end Remove_Import_Preprocess;


    procedure Remove_Import_Postprocess
                 (View_To_Remove : Directory.Object;
                  From_View : String;
                  Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Remove_Import_Postprocess",
                      Kind => Profile.Note_Msg);

    end Remove_Import_Postprocess;


    procedure Release_Preprocess (From_Working_View : String;
                                  Released_View : String;
                                  Remote_Machine : String;
                                  Remote_Directory : String;
                                  Remote_Program_Library : String;
                                  Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Release_Preprocess",
                      Kind => Profile.Note_Msg);
    end Release_Preprocess;


    procedure Release_Postprocess (View_To_Remove : String;
                                   Released_View : String;
                                   Remote_Machine : String;
                                   Remote_Directory : String;
                                   Remote_Program_Library : String;
                                   Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Release_Postprocess",
                      Kind => Profile.Note_Msg);
    end Release_Postprocess;

    procedure Link_Preprocess (Main_Unit : String;
                               Executable_Name : String;
                               Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Link_Preprocess",
                      Kind => Profile.Note_Msg);
    end Link_Preprocess;

    procedure Link_Postprocess (Main_Unit : String;
                                Executable_Name : String;
                                Status : in out Simple_Status.Condition) is
    begin
        Log.Put_Line (Message => "Executing Link_Postprocess",
                      Kind => Profile.Note_Msg);
    end Link_Postprocess;

end Library_Extensions;