|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body File, seg_049626
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package body File is
Current_Char : Character;
Look_Ahead : Boolean;
Currentline : Natural;
procedure Init is
begin
Look_Ahead := False;
Currentline := 1;
end Init;
function Get_Line return Natural is
begin
return Currentline;
end Get_Line;
function At_End return Boolean is
begin
if Text_Io.End_Of_File then
return True;
elsif Look_Ahead then
return (Current_Char = Ascii.Eot);
else
return False;
end if;
end At_End;
procedure Next is
begin
if Look_Ahead = False then
if Text_Io.End_Of_File then
Current_Char := Ascii.Eot;
Text_Io.Get (Current_Char);
elsif Text_Io.End_Of_Line then
Text_Io.Skip_Line;
Current_Char := Ascii.Cr;
Currentline := Currentline + 1;
else
Text_Io.Get (Current_Char);
end if;
else
Look_Ahead := False;
end if;
end Next;
function Value return Character is
begin
return Current_Char;
end Value;
function Get return Character is
begin
if At_End = False then
Next;
return Value;
else
return Ascii.Eot;
end if;
end Get;
procedure Unget is
begin
Look_Ahead := True;
end Unget;
end File;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=2f rec1=00 rec2=01 rec3=04e
[0x01] rec0=24 rec1=00 rec2=02 rec3=001
tail 0x21546bed0865e5b2b9753 0x42a00088462060003