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

⟦a7245ea4e⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Acquire_Visibility, seg_03be07, 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⟧

E3 Source Code



separate (Library_Extensions)
procedure Acquire_Visibility  
             (Imported_View     :        String;
              Into_View         :        String;
              Remote_Connection :        Rci.Context;
              Status            : in out Simple_Status.Condition) is

    Directory_Result : constant Library_Interface.String_Result :=
       Library_Interface.Remote_Directory (View => Into_View);

    View_Directory : constant String :=
       Su.Lower_Case (Directory_Result.Result (1 .. Directory_Result.Size));

    Imported_Directory_Result : constant Library_Interface.String_Result :=
       Library_Interface.Remote_Directory (View => Imported_View);

    Imported_View_Directory : constant String :=
       Su.Lower_Case (Imported_Directory_Result.Result
                         (1 .. Imported_Directory_Result.Size));

    Import_Command : constant String :=
       "a.path -L " & View_Directory & " -i " & Imported_View_Directory;

begin
    Simple_Status.Initialize (Status);

    -- Sanity check
    -- Don't try and import a view into itself!  VADS allows it but I don't
    -- know what will happen if you do it.  Sounds like a possible infinite
    -- loop when searching the paths????
    --
    if View_Directory = Imported_View_Directory then
        return;
    end if;

    Log.Put_Line  
       (Message => "Executing remote procedure: Acquire_Visibility",
        Kind    => Profile.Sharp_Msg);

    Log.Put_Line  
       (Message => "Executing remote command: " & Import_Command,
        Kind    => Profile.Sharp_Msg);

    Rci.Execute_Command  
       (Command_Line          => Import_Command,
        Remote_Connection     => Remote_Connection,
        Status                => Status,
        Error_Pattern         => "",
        Parse_Error_Output    => False,
        Parse_Standard_Output => False,
        Show_Parsed_Output    => True,
        Trace_Command         => Trace_Rci_Commands);

    if Simple_Status.Error (Status) then
        Log.Put_Line  
           (Message => Simple_Status.Message (Status),
            Kind    => Profile.Negative_Msg);

        Set_Status  
           (Status  => Status,  
            Message => "");
        return;
    end if;

end Acquire_Visibility;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=000
        [0x01] rec0=1c rec1=00 rec2=02 rec3=058
        [0x02] rec0=0f rec1=00 rec2=03 rec3=000
    tail 0x21739bbce856574ad72aa 0x42a00088462062803