DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦b8752c407⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Object, seg_035799, seg_0358c8, seg_035d29

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



package Object is
    type Class is (Void_Class, Integer_Class, Boolean_Class, String_Class,
                   Turtle_Class, Pen_Class, Block_Class, Date_Class);
    type Reference is private;
    Void_Reference : constant Reference;
    function Create (Ident_Class : Class; Ident_Object : Integer)
                    return Reference;
    procedure Copy (Source : Reference; Target : in out Reference);
    function Get_Value (From_Object : Reference) return Integer;  
    function Get_Class (From_Object : Reference) return Class;  
    function Equal (A, B : Object.Reference) return Standard.Boolean;
    procedure In_Text (The_Object : Reference);
private  
    type Reference is
        record
            Id_Class : Class;
            Id_Object : Standard.Integer;
        end record;
    Void_Reference : constant Reference :=
       (Id_Class => Void_Class, Id_Object => 0);
end Object;

E3 Meta Data

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=18 rec1=00 rec2=01 rec3=000
        [0x01] rec0=04 rec1=00 rec2=02 rec3=001
    tail 0x2173248e684d98c9b56de 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 32 80 1b 69 64 5f 43 6c 61 73 73 65 2c  ┆   2  id_Classe,┆