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

⟦86152dcf5⟧ TextFile

    Length: 1191 (0x4a7)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

separate (Check_Consistency)
procedure Check_Section_Node
             (This_Section : in Structure.Section;
              This_State : in out State;
              Control_Result : out Structure.Traversal_Control) is
begin  
    if (Should_Be_Skipped (This_Section, This_State)) then
        Control_Result := Structure.Abandon_Children;
    else
        Log.Put_Line ("Checking section node """ &
                      Structure.Name_Of (This_Section) & """",
                      Profile.Auxiliary_Msg);
        Consistency.Assert_Is_Directory (This_Section);
        if (Located_Objective (This_Section, This_State)) then
            Report_Objective_Located (This_State);
        end if;
        Control_Result := Structure.Continue;
        Log.Put_Line ("Section node checked", Profile.Positive_Msg);
    end if;
    --
exception
    when Consistency.No_Such_Section =>
        Report ("Unable to resolve section", This_State);  
        Control_Result := Structure.Abandon_Children;
        --
    when Consistency.Not_A_Directory =>
        Report ("Section is not a directory", This_State);  
        Control_Result := Structure.Abandon_Children;
        --
end Check_Section_Node;