|
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: ┃ T V ┃
Length: 818 (0x332)
Types: TextFile
Names: »V«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Sequential_Io;
with Text_Io;
with Bounded_String;
with Object;
package Scanner is
type Token is (Ok, Egal, Inf, Sup, Sup_Egal, Inf_Egal, Start, Reserved,
Avec, Pour, Prendre, Renvoyer, Integer, Binary,
Identifier, Keyword, Special, Unknown, String, Eof, Eol);
type Etat is private;
procedure Open (Name : in Standard.String);
procedure Close;
function At_End return Boolean;
function At_Line return Boolean;
procedure Next;
function Get_Value return Object.Tiny_String;
function Get_Token return Token;
private
type Etat is (Normal, Identifier, Number,
Found_String, String, Sup, Inf, Found);
Fichier_Source : Text_Io.File_Type;
Current_Token : Token;
Current_Value : Object.Tiny_String;
end Scanner;