|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
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⟧
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