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

⟦a9dc0d913⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Import_Postprocess, seg_01c381, separate Library_Extensions

Derivation

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

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

    Machine_Result : constant Library_Interface.String_Result :=
       Library_Interface.Remote_Machine (View => Into_View);
    Directory_Result : constant Library_Interface.String_Result :=
       Library_Interface.Remote_Directory (View => Into_View);
    Library_Result : constant Library_Interface.String_Result :=
       Library_Interface.Remote_Library (View => Into_View);

    Remote_Machine : constant String :=
       Machine_Result.Result (1 .. Machine_Result.Size);
    Remote_Directory : constant String :=
       Directory_Result.Result (1 .. Directory_Result.Size);
    Remote_Library : constant String :=
       Library_Result.Result (1 .. Library_Result.Size);

    Old_Context : Directory.Naming.Context;

    Into_View_Name : constant String :=
       Naming.Get_Full_Name (Es.Get_View (Into_View));

    procedure Display_Information is
    begin
        if Remote_Machine = "" then
            Log.Put_Line (Message => "A null remote machine name was provided.",
                          Kind => Profile.Warning_Msg);
        end if;

        if Remote_Directory = "" then
            Log.Put_Line (Message =>
                             "A null remote directory name was provided.",
                          Kind => Profile.Warning_Msg);
        end if;


    end Display_Information;

begin

    if Rci_Switch_Implementation.Is_Host_Only (Get_View (Into_View_Name)) then
        Log.Put_Line (Message => "Not executing Import_Postprocess.  " &
                                    Into_View_Name & " is a Host_Only View.  ",
                      Kind => Profile.Note_Msg);
        Simple_Status.Initialize (Status);
        return;
    else
        Log.Put_Line (Message => "Executing Import_Postprocess",
                      Kind => Profile.Note_Msg);

    end if;
    if Remote_Machine = "" or else Remote_Directory = "" then
        Display_Information;

        Set_Status
           (Status => Status,
            Message => "Insufficient remote program library information.",
            Severity => Simple_Status.Problem);
        return;
    end if;
    Update_Remote_Imports (Host_View => Into_View_Name, Status => Status);
exception
    when others =>
        Unhandled_Exception (Status, "Import_Postprocess");
end Import_Postprocess;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=17 rec1=00 rec2=01 rec3=020
        [0x01] rec0=1c rec1=00 rec2=02 rec3=044
        [0x02] rec0=15 rec1=00 rec2=03 rec3=000
    tail 0x2171977888365728868b6 0x42a00088462060003