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 ┃

⟦7571ea8c0⟧ TextFile

    Length: 521 (0x209)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

package Lex_File is

    -- ouverture du fichier a analyser
    procedure Open (File_Name : String);


    -- renvoi VRAI si fin de fichier atteinte
    function At_End return Boolean;


    -- avance dans le fichier
    procedure Next;


    -- retourne le caractere courant du fichier
    function Value return Character;


    -- avance d'un caractere dans le fichier et retourne le caractere courant
    function Get return Character;


    -- recule d'un caractere dans le fichier
    procedure Unget;

end Lex_File;