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

⟦f4c718f5c⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Serveur_Orb1, seg_058395

Derivation

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

with Client_Orb;
with Agent_Nb;
with Var_String;
with Text_Io;
with Communication;
with Message;  
with Trame_Request;
with Com_Chanel;

procedure Test_Serveur_Orb1 is  
    V : Var_String.V_String;
    S : Communication.Status_Code;
    M : Message.Object;
    Trame : Trame_Request.Object;
    use Communication;
    use Message;
    My_Agent_Nb : Agent_Nb.T_Agent_Nb;

begin
    My_Agent_Nb := Client_Orb.Register (Var_String.Value ("class_montre"));
    Text_Io.Put_Line (" My agent nb is :" &
                      Var_String.Image (Agent_Nb.Image (My_Agent_Nb)));

    Client_Orb.Publication (Agent => My_Agent_Nb,
                            Methode => Var_String.Value ("date"),
                            Parameter => Var_String.Value ("out date"));

    loop
        delay (15.0);

        Communication.Receive (Message => V, Status => S);
        Text_Io.Put_Line ("resultat:" & Var_String.Image (V) & " status :" &
                          Communication.Status_Code'Image (S));

        if S = Communication.Ok then
            M := Message.Value (Message => V);
            if Message.Get_Class (M) = Message.Request then
                Message.Set_Class (M, Message.Replay);
                Message.Set_Destination (M, Message.Get_Source (M));

                Trame := Trame_Request.Value (Message.Get_Donnees (M));
                Trame := Trame_Request.Create
                            (Trame_Request.Get_Methode (Trame),
                             Var_String.Value ("abcdef"));

                Message.Set_Donnees (M, Trame_Request.Image (Trame));

                Communication.Send
                   (Message => Message.Image (Message => M),
                    Remote_Host =>
                       Com_Chanel.Get_Host_Id (Com_Chanel.Get_Orb_Chanel),
                    Remote_Socket =>
                       Com_Chanel.Get_Socket_Id (Com_Chanel.Get_Orb_Chanel),
                    Status => S);
            end if;
        end if;
    end loop;


    Client_Orb.Unpublication (Agent => My_Agent_Nb,
                              Methode => Var_String.Value ("date"));

    Client_Orb.Unregister (My_Agent_Nb);
end Test_Serveur_Orb1;

    nblk1=4
    nid=3
    hdr6=6
        [0x00] rec0=22 rec1=00 rec2=01 rec3=02a
        [0x01] rec0=15 rec1=00 rec2=04 rec3=03a
        [0x02] rec0=0b rec1=00 rec2=02 rec3=000
        [0x03] rec0=11 rec1=00 rec2=03 rec3=000
    tail 0x217659bde87e305b3b618 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 01 cf 00 3e 20 20 20 20 20 20 20 20 20 20  ┆     >          ┆