DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦3dbff137b⟧ TextFile

    Length: 1048 (0x418)
    Types: TextFile
    Names: »V«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Text_Io;

package Tiny_File is

    type Tab_Reserved is array (1 .. 4) of String (1 .. 20);
    Reserved : Tab_Reserved := ("avec", "pour", "prendre", "renvoyer");
    type Token is (L_Int, L_Str, L_Id, L_Keyw, L_Obra, L_Cbra,
                   L_Dot, L_Opar, L_Cpar, L_Binm, L_Avec,
                   L_Pour, L_Pren, L_Renv, L_Unk, L_Eof);
    function At_End (File_Input : in Text_Io.File_Type) return Boolean;
    function Get_Token (File_Input : in Text_Io.File_Type) return Character;
    procedure Close (File_Input : in out Text_Io.File_Type);
    procedure Open (File_Input : in out Text_Io.File_Type; Name : in String);
    procedure Unget (File_Input : in Text_Io.File_Type);
    function Same_Token (Token_1, Token_2 : Token) return Boolean;

private
    Symbol : Token;  
    Current_Lexeme : String (1 .. 256);

    Current_Char : Character;
    Look_Ahead : Boolean := False;
    procedure Next_Token (File_Input : in Text_Io.File_Type);
    function Value (File_Input : in Text_Io.File_Type) return Character;

end Tiny_File;