|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 953 (0x3b9)
Types: TextFile
Names: »B«
└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
└─⟦9a14c9417⟧ »DATA«
└─⟦this⟧
separate (Library_Extensions)
procedure Import_Preprocess
(Views_To_Import : Directory.Naming.Iterator;
Into_View : String;
Status : in out Simple_Status.Condition) is
Views_2_Import : Naming.Iterator := Views_To_Import;
begin
Log.Put_Line (Message => "Import_Preprocess ( Views_To_Import =>",
Kind => Profile.Sharp_Msg);
Naming.Reset (Views_2_Import);
while not Naming.Done (Views_2_Import) loop
Log.Put_Line (Message => Naming.Source_Name (Views_2_Import),
Kind => Profile.Sharp_Msg);
Naming.Next (Views_2_Import);
end loop;
Log.Put_Line (Message => "into_view => " & Into_View & ")",
Kind => Profile.Sharp_Msg);
Simple_Status.Initialize (Status);
exception
when others =>
Unhandled_Exception (Status, "Import_Preprocess");
end Import_Preprocess;