|
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 - downloadIndex: ┃ B T ┃
Length: 709 (0x2c5)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Profile_Parser;
with Text_Io;
procedure Profile_Parser_Test is
Success : Boolean;
A_Bool : Boolean;
An_Int : Integer;
begin
Profile_Parser.Set_Boolean ("socket1", True);
Profile_Parser.Get_Boolean ("socket1", A_Bool, Success);
if Success then
Text_Io.Put_Line ("a_bool = " & Boolean'Image (A_Bool));
end if;
Profile_Parser.Set_Boolean ("socket2", False);
Profile_Parser.Set_Literal ("host_name", "belladone");
Profile_Parser.Set_Integer ("last", 12);
Profile_Parser.Get_Integer ("last", An_Int, Success);
if Success then
Text_Io.Put_Line ("last = " & Profile_Parser.Integer_Image (An_Int));
end if;
end Profile_Parser_Test;
pragma Main;