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

⟦3e4f366d2⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Task_Orb, seg_054cc6

Derivation

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

with The_Orb_Package2;
with Text_Io;
--with Print_To_Screen;
--with Communication;
with Com_Functions;
with Message;
with Our_Constantes;

procedure Task_Orb is

    The_Connection_Data : Com_Functions.Connection_Data;

    task Essai_Orb is
    end Essai_Orb;

    task body Essai_Orb is
        The_Message : Message.Type_Of_Message;
        Not_Already_Done : Boolean := True;
    begin
        Text_Io.Put_Line ("debut de Essai_Orb");
        --Print_To_Screen.Print_Data.Data_Receive ("debut de Essai_Orb");

        -- Communication.Receiver ();
        Com_Functions.Connection_Receiver ((2, 6, 0, 4), The_Connection_Data);
        Com_Functions.Receiver (The_Message, The_Connection_Data);
        Text_Io.Put_Line ("Subscription recue par ORB");
        --Print_To_Screen.Print_Data.Data_Receive ("debut de Essai_Orb");


        case The_Message.The_Command is

            when Our_Constantes.Registration =>
                null;

            when Our_Constantes.Unregistration =>
                null;

            when Our_Constantes.Query =>
                null;

            when Our_Constantes.Request =>
                null;

            when Our_Constantes.Notification =>
                null;

            when Our_Constantes.Forward =>
                The_Orb_Package2.Orb_Forward (The_Message, The_Connection_Data);

            when Our_Constantes.Publication =>
                null;

            when Our_Constantes.Unpublication =>
                null;

            when Our_Constantes.Subscription =>
                Text_Io.Put_Line ("Passage dans le case");
                --Print_To_Screen.Print_Data.Data_Receive
                --("Passage dans le case");
                Not_Already_Done :=
                   The_Orb_Package2.Orb_Subscription
                      (The_Message.The_Host_Machine_Send,
                       The_Message.The_Socket_Send,
                       The_Message.The_Id_User_Send, The_Message.Data);
                Text_Io.Put_Line ("On est toujours dans le case");
                -- Print_To_Screen.Print_Data.Data_Receive
                -- ("On est toujours dans le case");
                The_Orb_Package2.Send_Answer
                   (The_Message.Number_Of_The_Question,
                    The_Message.The_Host_Machine_Send,
                    The_Message.The_Socket_Send,
                    The_Message.The_Id_User_Send, The_Connection_Data);


            when Our_Constantes.Unsubscription =>
                Not_Already_Done :=
                   The_Orb_Package2.Orb_Unsubscription
                      (The_Message.The_Host_Machine_Send,
                       The_Message.The_Socket_Send,
                       The_Message.The_Id_User_Send, The_Message.Data);
                The_Orb_Package2.Send_Answer
                   (The_Message.Number_Of_The_Question,
                    The_Message.The_Host_Machine_Send,
                    The_Message.The_Socket_Send,
                    The_Message.The_Id_User_Send, The_Connection_Data);

            when Our_Constantes.Filtration =>
                null;

            when Our_Constantes.Unfiltration =>
                null;

            when Our_Constantes.None =>
                null;

        end case;

    end Essai_Orb;

begin
    null;  
end Task_Orb;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=24 rec1=00 rec2=01 rec3=006
        [0x01] rec0=1d rec1=00 rec2=03 rec3=01a
        [0x02] rec0=00 rec1=00 rec2=05 rec3=074
        [0x03] rec0=14 rec1=00 rec2=02 rec3=054
        [0x04] rec0=13 rec1=00 rec2=04 rec3=000
    tail 0x2154d159487b946a29d6a 0x42a00088462060003