|
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: ┃ L T ┃
Length: 767 (0x2ff)
Types: TextFile
Names: »L«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Text_Io;
with Scanner;
procedure Test_Scanner is
Receive_Token : Scanner.Token;
Receive_Value : String (1 .. 80);
begin
Scanner.Open ("essai.lex");
Scanner.Next;
Receive_Token := Scanner.Get_Token;
Text_Io.Put (" Token = '); ");
Text_Io.Put (Scanner.Token'Image (Receive_Token));
while (Receive_Token /= Scanner.Tokenl_Unknowm) or
(Receive_Token /= L_Eof) loop
Receive_Value := Scanner.Get_Value;
Text_Io.Put (" , Value = '); ");
Text_Io.Put (Receive_Value);
Text_Io.New_Line;
Scanner.Next;
Receive_Token := Scanner.Get_Token;
Text_Io.Put (" Token = '); ");
Text_Io.Put (Scanner.Token'Image (Receive_Token));
end loop;
end Test_Scanner;