|
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: 912 (0x390)
Types: TextFile
Names: »B«
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
with Constant_String, Document, Text_Io;
use Constant_String;
procedure Constant_String_Test is
type Access_String is access String;
E1 : Constant_String.Object;
The_Name : String (1 .. 80);
Last_Char : Natural;
Str : String (1 .. 200);
begin
Text_Io.Put (" Donner un nom de document:");
Text_Io.Get_Line (The_Name, Last_Char);
Document.Open (The_Name (1 .. Last_Char));
while not Document.Eof loop
Document.Get_Line (Str, Last_Char);
Text_Io.Put_Line (Str (1 .. Last_Char));
E1 := Value (Str (1 .. Last_Char));
end loop;
Document.Close;
Text_Io.Put_Line ("**** numbre de ligne du fichier : " &
Natural'Image (Document.Number_Of_Lines));
Text_Io.Put_Line ("**** nombre total de conflits : " &
Natural'Image (Constant_String.Conflicts_Number));
end Constant_String_Test;