DataMuseum.dk

top - download

    Length: 2508 (0x9cc)
    Types: TextFile
    Names: »B«

└─⟦25882cbde⟧ Bits:30000536 8mm tape, Rational 1000, RCI_RS6000_AIX_IBM 2_0_2
    └─ ⟦b8efda8ac⟧ »DATA« 
        └─⟦7061b4ee8⟧ 
            └─⟦this⟧ 

TextFile

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;