DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦b30f8aa2e⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Library_Extensions, seg_0219ca

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

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;

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=1c rec1=00 rec2=01 rec3=06c
        [0x01] rec0=1a rec1=00 rec2=02 rec3=02c
        [0x02] rec0=1b rec1=00 rec2=03 rec3=018
        [0x03] rec0=1c rec1=00 rec2=04 rec3=058
        [0x04] rec0=16 rec1=00 rec2=05 rec3=00c
        [0x05] rec0=0f rec1=00 rec2=06 rec3=000
    tail 0x2151cf206838f46dec03a 0x42a00088462060003