DataMuseum.dk

top - download

    Length: 685 (0x2ad)
    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⟧ 

TextFile

with File_Interface;
with Text_Io;
with Token;
package body Lex is
    The_File : Text_Io.File_Type;

    Current_Token : Token.Object;

    function Lex_At_End return Boolean is
    begin
        return File_Interface.File_At_End (The_File);
    end Lex_At_End;


    function Lex_Get_Token return Token.Object is
    begin
        return Current_Token;
    end Lex_Get_Token;


    function Lex_Get_Value return String is
    begin
        [statement]
    end Lex_Get_Value;


    procedure Lex_Open (File : Text_Io.File_Type) is
    begin
        File_Interface.File_Open (File);
    end Lex_Open;


    procedure Lex_Next is
    begin
        [statement]
    end Lex_Next;
end Lex;