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 - download

⟦ddcad11d6⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Library_Extensions, seg_03be4d

Derivation

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

E3 Source Code



with Directory;
with Simple_Status;
package Library_Extensions is


    procedure Make_Path_Preprocess  
                 (Host_Path_Name         :        String;
                  Remote_Machine         :        String;
                  Remote_Directory       :        String;
                  Remote_Program_Library :        String;
                  Status                 : in out Simple_Status.Condition);


    procedure Make_Path_Postprocess  
                 (Host_Path_Name         :        String;
                  Remote_Machine         :        String;
                  Remote_Directory       :        String;
                  Remote_Program_Library :        String;
                  Status                 : in out Simple_Status.Condition);


    procedure Destroy_View_Preprocess  
                 (Host_Path_Name :        String;  
                  Status         : in out Simple_Status.Condition);


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


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


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


    procedure Remove_Import_Preprocess
                 (View_To_Remove :        Directory.Object;
                  From_View      :        String;
                  Status         : in out Simple_Status.Condition);


    procedure Remove_Import_Postprocess
                 (View_To_Remove :        Directory.Object;
                  From_View      :        String;
                  Status         : in out Simple_Status.Condition);


    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);


    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);


    procedure Link_Preprocess  
                 (Main_Unit       :        String;
                  Executable_Name :        String;
                  Status          : in out Simple_Status.Condition);


    procedure Link_Postprocess  
                 (Main_Unit       :        String;
                  Executable_Name :        String;
                  Status          : in out Simple_Status.Condition);


    procedure Download_File  
                 (Host_File_Name   :        String;
                  Target_File_Name :        String;
                  Remote_Directory :        String;
                  Remote_Machine   :        String;
                  Status           : in out Simple_Status.Condition);


    procedure Upload_File  
                 (Host_File_Name   :        String;
                  Target_File_Name :        String;
                  Remote_Directory :        String;
                  Remote_Machine   :        String;
                  Status           : in out Simple_Status.Condition);


    procedure Build_List_File  
                 (Host_View              :        String;
                  Remote_Machine         :        String;
                  Remote_Directory       :        String;
                  Remote_Program_Library :        String;
                  List_File_Name         :        String;
                  Status                 : in out Simple_Status.Condition);


    procedure Create_Remote_Directory  
                 (Remote_Directory :        String;
                  Remote_Machine   :        String;
                  Status           : in out Simple_Status.Condition);


    procedure Create_Program_Library  
                 (Host_View              :        String;
                  Remote_Directory       :        String;
                  Remote_Program_Library :        String;
                  Remote_Machine         :        String;
                  Status                 : in out Simple_Status.Condition);

end Library_Extensions;

E3 Meta Data

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1c rec1=00 rec2=01 rec3=04a
        [0x01] rec0=1a rec1=00 rec2=02 rec3=026
        [0x02] rec0=17 rec1=00 rec2=03 rec3=03c
        [0x03] rec0=1b rec1=00 rec2=04 rec3=01e
        [0x04] rec0=16 rec1=00 rec2=05 rec3=000
    tail 0x215348174856575011ffe 0x42a00088462062803