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

⟦447c77360⟧ Ada Source

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

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=17 rec1=00 rec2=01 rec3=004
        [0x01] rec0=15 rec1=00 rec2=02 rec3=06c
        [0x02] rec0=13 rec1=00 rec2=03 rec3=040
        [0x03] rec0=14 rec1=00 rec2=04 rec3=004
        [0x04] rec0=0b rec1=00 rec2=05 rec3=000
    tail 0x21507495081f94db1f36f 0x42a00088462060003