|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Object, seg_036e64
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Bounded_String;
package Object is
Max_Integer : constant := 65536;
Max_String : constant := 300;
Max_Block : constant := 100;
Max_Turtle : constant := 20;
Max_Pen : constant := 20;
Max_Window : constant := 20;
type E_Class is (Integer_Class, Boolean_Class, String_Class, Turtle_Class,
Pen_Class, Block_Class, Window_Class, Void_Class);
subtype Tiny_String is Bounded_String.Variable_String (80);
type Index is range -Max_Integer .. Max_Integer;
type Reference is private;
Void_Reference : constant Reference;
function Create (Class : E_Class; Object : Index) return Reference;
function Get (Class_From : Reference) return E_Class;
function Get (Index_From : Reference) return Index;
procedure Put (This_Class : E_Class; Into : out Reference);
procedure Put (This_Index : Index; Into : out Reference);
private
type Reference is
record
Id_Class : E_Class := Void_Class;
Id_Object : Index := 0;
end record;
Void_Reference : constant Reference :=
(Id_Class => Void_Class, Id_Object => 0);
end Object;
nblk1=6
nid=3
hdr6=4
[0x00] rec0=27 rec1=00 rec2=01 rec3=02a
[0x01] rec0=0b rec1=00 rec2=04 rec3=000
[0x02] rec0=17 rec1=00 rec2=06 rec3=04e
[0x03] rec0=21 rec1=00 rec2=04 rec3=008
[0x04] rec0=17 rec1=00 rec2=03 rec3=000
[0x05] rec0=42 rec1=5e rec2=48 rec3=48d
tail 0x2153061b084e155e50d8c 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 06 00 2d 00 13 20 20 20 20 20 20 20 20 65 6e ┆ - en┆
0x6: 0000 00 02 00 0a 80 07 74 72 69 6e 67 3b 20 07 6e 20 ┆ tring; n ┆
0x2: 0000 00 05 00 10 00 0d 20 20 20 20 66 75 6e 63 74 69 ┆ functi┆
0x5: 0000 00 00 00 2c 00 0e 20 20 20 20 20 20 20 20 72 65 ┆ , re┆