|
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: 1869 (0x74d)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Lexical, Text_Io, Bounded_String;
procedure Test_Lexical is
use Lexical;
begin
Lexical.Open ("");
while (not Lexical.At_End) loop
Lexical.Next;
Text_Io.Put (Bounded_String.Image (Lexical.Value));
case Lexical.Get is
when L_Open =>
Text_Io.Put_Line (" is OPEN ");
when L_Close =>
Text_Io.Put_Line (" is CLOSE ");
when L_Comma =>
Text_Io.Put_Line (" is COMMA ");
when L_Point =>
Text_Io.Put_Line (" is POINT ");
when L_Affect =>
Text_Io.Put_Line (" is AFFECT ");
when L_Plus =>
Text_Io.Put_Line (" is PLUS ");
when L_Minus =>
Text_Io.Put_Line (" is MINUS");
when L_Star =>
Text_Io.Put_Line (" is STAR ");
when L_Slash =>
Text_Io.Put_Line (" is SLASH ");
when L_Equ =>
Text_Io.Put_Line (" is EQU ");
when L_Neq =>
Text_Io.Put_Line (" is NEQ ");
when L_Gt =>
Text_Io.Put_Line (" is GT ");
when L_Lt =>
Text_Io.Put_Line (" is LT ");
when L_Geq =>
Text_Io.Put_Line (" is GEQ ");
when L_Leq =>
Text_Io.Put_Line (" is LEQ ");
when L_Nbr =>
Text_Io.Put_Line (" is NBR ");
when L_Id =>
Text_Io.Put_Line (" is ID ");
when L_Activer =>
Text_Io.Put_Line (" is ACTIVER ");
when L_Alors .. L_Temporel =>
Text_Io.Put_Line (" is KEYW ");
when L_Unk =>
Text_Io.Put_Line (" is UNK ");
when others =>
null;
end case;
end loop;
end Test_Lexical;