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: ┃ B T ┃

⟦e51d54c39⟧ TextFile

    Length: 1068 (0x42c)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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

package body File_Interface is

    Lookahead   : Boolean;
    Currentchar : Character;

    procedure File_Open (File_Name : String) is
    begin
        Lookahead := False;
    end File_Open;


    function File_At_End (File : Text_Io.File_Type) return Boolean is
    begin
        if (Text_Io.End_Of_File (File)) then
            return True;
        else
            return False;
        end if;
    end File_At_End;


    procedure File_Next (File : Text_Io.File_Type) is
    begin
        if not (Lookahead) then
            Text_Io.Get (File, Currentchar);
        else
            Lookahead := False;
        end if;
    end File_Next;


    function File_Value (File : Text_Io.File_Type) return Character is
    begin
        return Currentchar;
    end File_Value;


    function File_Get (File : Text_Io.File_Type) return Character is
    begin
        File_Next (File);
        return File_Value (File);
    end File_Get;


    procedure File_Unget (File : Text_Io.File_Type) is
    begin
        Lookahead := True;
    end File_Unget;
end File_Interface;