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

⟦5a8a7f6ac⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Point, seg_02b0c0

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



with Generic_Class_Implementation;
with Generic_Statement;
package body Point is  
    type Members   is (X, Y);
    type Arguments is (To_X, To_Y);

    package Implementation is
       new Generic_Class_Implementation (Member_Names   => Members,
                                         Selector_Names => Selectors,
                                         Argument_Names => Arguments);

    package Statement is new Generic_Statement (Member_Names   => Members,
                                                Selector_Names => Selectors,
                                                Argument_Names => Arguments);
    use Implementation, Statement;

    procedure Define_Method_For_Home is separate;
    procedure Define_Method_For_Put is separate;
    procedure Define_Method_For_Set is separate;
    procedure Define_Method_For_X is separate;
    procedure Define_Method_For_Y is separate;

    procedure Define_Home is separate;
    procedure Define_Put is separate;
    procedure Define_Set_X_Y is separate;
    procedure Define_X is separate;
    procedure Define_Y is separate;

    function Make return Object.Reference is
        Result : Object.Reference;
    begin
        return Result;
    end Make;

    function Send (To : Object.Reference; The_Message : Message)
                  return Basic_Statement.Object is
        Result : Basic_Statement.Object;
    begin
        -- bla bla bla
        return Result;
    end Send;

begin
    Define_Home;
    Define_Put;
    Define_Set_X_Y;
    Define_X;
    Define_Y;
end Point;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=19 rec1=00 rec2=01 rec3=03c
        [0x01] rec0=1a rec1=00 rec2=02 rec3=001
    tail 0x217242d0683e883e375af 0x42a00088462063c03