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

⟦8f887576c⟧ Ada Source

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

Derivation

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

E3 Source Code



--| @SUMMARY Messages sent by the first (A) producer.
with Mail;
package Producer_A_Messages is

    -- exciting new message type
    type Message is new Integer;

    Message_Kind : constant Mail.Kind := 0;

    package Op is new Mail.Operations (Message, Message_Kind);

    -------------------------------------------------------

    -- response type to a TYPE_A message
    type Reply is new Integer;

    Reply_Kind : constant Mail.Kind := 1;

    -- allow one to send a TYPE_A and responding with
    -- TYPE_A_RESPONSE
    package Reply_Op is new Op.Reply_Operations (Reply, Reply_Kind);


    -------------------------------------------------------

    package Predefined_Ops is
        function "=" (L, R : Message) return Boolean
            renames Producer_A_Messages."=";
        function "+" (L, R : Message) return Message
            renames Producer_A_Messages."+";
        function "+" (L, R : Reply) return Reply
            renames Producer_A_Messages."+";
    end Predefined_Ops;
end Producer_A_Messages;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=024
        [0x01] rec0=03 rec1=00 rec2=02 rec3=000
    tail 0x2151c7de0838d446f9c4f 0x42a00088462060003