DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦fa9110d33⟧ TextFile

    Length: 1296 (0x510)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

separate (Library_Extensions)
procedure Update_Remote_Imports (Host_View : String;
                                 Status : in out Simple_Status.Condition) is
    Referencers : constant Ci.Unit_List :=
       Es.Compute_Reference_Closure (Es.Get_View (Host_View));
    -- Compute the reference closure of the current view
    View_Obj : Directory.Object := Es.Get_View (Host_View);
    Trace_On : constant Boolean := Rsi.Trace_On (View_Obj);
begin  
    Refresh_Imports (Host_View => Host_View,
                     Trace_On => Trace_On,
                     Status => Status);
    -- Refresh imports for the current view

    if Simple_Status.Error (Status) then
        return;
    end if;

    for Index in Referencers.Data'First .. Referencers.Data'Last loop
        Refresh_Imports (Host_View =>
                            Naming.Get_Full_Name (Referencers.Data (Index)),
                         Trace_On => Trace_On,
                         Status => Status);
        if Simple_Status.Error (Status) then
            return;
        end if;
    end loop;
    -- Refresh imports for all the views that are in the reference
    -- closure of the current view

exception
    when others =>
        Log.Put_Line ("Unhandled exception in update_remote_imports");
end Update_Remote_Imports;