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 - metrics - download

⟦fa28ad545⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Notification, seg_05259d, separate Date_Test

Derivation

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

separate (Date_Test)
procedure Notification (M : Message_New.Object;
                        S : Message_Transport.Stream_Id;
                        Address : in out Natural) is
--    Addresse : Natural;
    Found : Boolean := False;
    Connection : Transport.Connection_Id;
    The_Found_1 : Message_Transport.Stream_Id;
    Iter : Transport.Connection_Id_Iterator;
    Status : Message_Transport.Status_Code;
begin
--    null;
    Text_Io.Put_Line (" ENTRER DANS NOTIFICATION ");
    Address := Message_New.Get_Addressee (M);
    Text_Io.Put_Line (" ADDRESS ID => " & Natural'Image (Address));

    Transport.Init (Iter);
    Text_Io.Put_Line (" INITIALISATION DE L'ITERATEUR ");

    while not Transport.Done (Iter) and not Found loop
        Connection := Transport.Value (Iter);

        if Transport_Defs.Hash (Transport.Local_Socket (Connection)) =
           Transport_Defs.Hash
              (Transport.Remote_Socket
                  (Message_Transport.Identifie_Connection (S))) then
            Found := True;
            Text_Io.Put_Line
               ("SOCKET FOUND => " &
                Natural'Image (Transport_Defs.Hash
                                  (Transport.Local_Socket (Connection))));
            The_Found_1 := Message_Transport.Create (Connection);
            Put_Line ("+++ STR FOUND 1 => " &
                      Natural'Image (Message_Transport.Hash (The_Found_1)));

        end if;
        Transport.Next (Iter);
    end loop;


    Message_Transport.Put
       (Stream => The_Found_1,
        Message => Message_New.Image
                      (Message_New =>
                          Message_New.Create
                             (Class => Message_New.Publication,
                              Addressee => Identifier.Hash
                                              (Id => Identifier.Broker),
                              Sender => Address,
                              Request => 0,                             Method => "date",
                              Parameter_Name => "date",
                              Parameter_Class => "string",
                              Parameter_Value => Parameter.Void)),
        Status => Status);
exception
    when others =>
        Put_Line ("ca a foire");
        --end;

        loop
            delay Duration'Last;
        end loop;
--         null;
end Notification;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1b rec1=00 rec2=01 rec3=048
        [0x01] rec0=00 rec1=00 rec2=03 rec3=00a
        [0x02] rec0=19 rec1=00 rec2=02 rec3=002
        [0x03] rec0=11 rec1=00 rec2=04 rec3=000
    tail 0x2154baeda87a072ff80f4 0x42a00088462060003