DataMuseum.dk

top - download

    Length: 1028 (0x404)
    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 Text_Io;
package body File is
    procedure Fileopen (Afile : in out Integer) is
    begin
        Lookahead := False;
    end Fileopen;
    function Fileatend (Afile : in Integer) return Boolean is
    begin
        return Text_Io.End_Of_File;   -- sur le fichier standart
    end Fileatend;
    procedure Filenext (Afile : in Integer) is
    begin
        if not Lookahead then
            Text_Io.Get (Currentchar);
        else
            Lookahead := False;
        end if;
    end Filenext;
    function Filevalue (Afile : in Integer) return Character is
    begin
        return Currentchar;
    end Filevalue;
    function Fileget (Afile : in Integer) return Character is
    begin
        Filenext (Afile);
        return Filevalue (Afile);
    end Fileget;
    procedure Fileunget (Afile : in out Integer) is
    begin
        Lookahead := True;
    end Fileunget;
end File;
-- fichier : file_spe.ada
-- specification du package FILE utilise par lex.ada
-- auteur : Sebastien BROCHET
-- date   : 29 octobre 1993