|
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: 639 (0x27f)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Lexical;
with Text_Io;
with Bounded_Strings;
procedure Test_Lexical is
use Lexical;
N : Natural := 0;
Chaine : String (1 .. 50);
begin
Text_Io.Put ("Entrer le nom du fichier a analyser : ");
Text_Io.Get_Line (Chaine, N);
Lexical.Open (Chaine (1 .. N));
while (not Lexical.At_End) loop
Lexical.Next;
Text_Io.Put (Integer'Image (Lexical.Line_Number));
Text_Io.Put (Integer'Image (Lexical.Column_Number) & " ");
Text_Io.Put (Bounded_Strings.Image (Lexical.Value) & " ");
Text_Io.Put_Line (Token'Image (Lexical.Get));
end loop;
Lexical.Close;
end Test_Lexical;