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

⟦1f82a49e8⟧ Ada Source

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

Derivation

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

with Lex;
with List_Generic;
package Object is

    type Class_Id is (Tiny_Bloc, Tiny_Boolean, Tiny_Integer,
                      Tiny_Turtle, Tiny_String, Tiny_Pen, Tiny_Void);

    Max : constant := 10;  
    type Index is range 0 .. Max;

    type Reference is
        record
            Class : Class_Id;
            Identity : Integer;
        end record;
    Void_Reference : constant Reference := (Tiny_Void, 0);
    subtype Message is Lex.Lex_String;  
    package Parameters is
        type List is private;
        procedure Add (Keyword : Message;
                       Obj : Reference;
                       To_List : in out List);
        procedure Get (From_List : in out List; Head : out Reference);
        function Selector (From_List : List) return Message;


    private
        package Parameters_List is new List_Generic (Reference);
        type Para_List is new Parameters_List.List;  
        type List is
            record
                Param : Para_List;
                Selector : Message;
            end record;

    end Parameters;

    function Create (Token : Lex.Token; Value : Lex.Lex_String)
                    return Reference;

    --function Create (Value : Integer) return Reference;
    function Send (To_Object : Object.Reference; The_Message : Object.Message)
                  return Object.Reference;

    function Send (To_Object : Object.Reference;
                   The_Message : Object.Message;
                   The_Argument : Object.Reference) return Object.Reference;

    function Send (To_Object : Object.Reference;
                   The_Argument : Object.Parameters.List)
                  return Object.Reference;

    function Send (To_Object : Object.Reference; The_Message : Object.Message)
                  return String;


end Object;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=20 rec1=00 rec2=01 rec3=024
        [0x01] rec0=1b rec1=00 rec2=02 rec3=001
    tail 0x2152e93be84d99cb9f6e0 0x42a00088462060003