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

⟦8d8ec7b42⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Message, seg_0569c5

Derivation

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

with V_String;
with Byte_Defs;  
with Transport;
with Transport_Defs;

package Message is

    type Objet is private;

    type Type_Message is (Registration, Unregistration, Answer_Unregistration,
                          Request, Publication, Your_Answer,
                          Service_Result, Subscription,
                          Unsubscription, Filtration, Unfiltration,
                          Answer_Registration, Service_Not_Available,
                          Service_Added, Message_For_Server);

    procedure Enregistrement (O : out Objet);

    procedure Ajout_Service (O : in out Objet;
                             Service : V_String.Variable_String);

    procedure Demande (O : in out Objet; Service : V_String.Variable_String);


    procedure Construire (Dest : Integer;
                          Exp : Integer;  
                          Ordre : Integer;
                          Typ : Type_Message;
                          Donnee : V_String.Variable_String;
                          O : out Objet);

    function Image (O : Objet) return Byte_Defs.Byte_String;

    procedure Afficher (O : Objet);

    procedure Value (Trame_In : Byte_Defs.Byte_String; O : out Objet);

    procedure Emission (O : Objet;
                        Connection_Emission : Transport.Connection_Id;
                        Connection_Reception : Transport.Connection_Id);

    procedure Emission_Orb (O : Objet;
                            Connection : Transport.Connection_Id;
                            Socket : Transport_Defs.Socket_Id;
                            Host : Transport_Defs.Host_Id);

    procedure Reception (O : in out Objet;
                         Connection : Transport.Connection_Id);

    procedure Reception_Orb (O : out Objet;
                             Connection : Transport.Connection_Id;
                             Socket : out Transport_Defs.Socket_Id;
                             Host : out Transport_Defs.Host_Id);

    function Consulter_Destinataire (O : Objet) return Integer;

    function Consulter_Expediteur (O : Objet) return Integer;

    function Consulter_Ordre (O : Objet) return Integer;

    function Consulter_Typ (O : Objet) return Type_Message;

    function Consulter_Donnee (O : Objet) return V_String.Variable_String;

    procedure Modifier_Destinataire (O : in out Objet; D : Integer);

    procedure Modifier_Expediteur (O : in out Objet; E : Integer);

    procedure Modifier_Ordre (O : in out Objet; R : Integer);

    procedure Incrementer_Ordre (O : in out Objet);

    procedure Modifier_Typ (O : in out Objet; T : Type_Message);

    procedure Modifier_Donnee (O : in out Objet; D : V_String.Variable_String);

    procedure Copy (Source : Objet; Target : in out Objet);

private
    type Objet is
        record
            Destinataire : Integer := 0;
            Expediteur : Integer := 0;
            Ordre : Integer := 0;
            Typ : Type_Message := Registration;
            Donnee : V_String.Variable_String := V_String.Value ("");
        end record;

end Message;

    nblk1=6
    nid=3
    hdr6=a
        [0x00] rec0=1e rec1=00 rec2=01 rec3=036
        [0x01] rec0=00 rec1=00 rec2=06 rec3=026
        [0x02] rec0=18 rec1=00 rec2=04 rec3=058
        [0x03] rec0=1f rec1=00 rec2=02 rec3=036
        [0x04] rec0=06 rec1=00 rec2=05 rec3=000
        [0x05] rec0=04 rec1=00 rec2=03 rec3=000
    tail 0x21762e8fa87c49230018d 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 2b 00 13 20 20 20 20 20 20 20 20 65 6e  ┆   +          en┆