|
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: 1068 (0x42c)
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⟧
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;