DataMuseum.dk

top - download

    Length: 932 (0x3a4)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

package body Broker_Link_Layer is

    -- Create the tasks witch controlled the fifo where are stocked temporary the messages :

    Task_Performing_Fifo_Received_Msg : Fifo_Received_Msg.Access_Task_Fifo :=
       new Fifo_Received_Msg.Task_Fifo;

    Task_Performing_Fifo_Msg_To_Send : Fifo_Msg_To_Send.Access_Task_Fifo :=
       new Fifo_Msg_To_Send.Task_Fifo;


    task body Server is
        Listen_Socket_Port : Socket_Defs.Socket_Port := -1;
        Service_Socket_Id  : Socket_Defs.Socket_Id;
    begin
        accept Start do
            [statement]
        end Start;
        Text_Io.Put_Line ("Broker_Link_Layer : Start Server task V.0.1");

        -- Read "parameters" file to find the Brocker Listen socket port :
        -- TO CHANGE ....
        Listen_Socket_Port := 9876;
        -- .... TO CHANGE !!!
    end Server;


    task body Client is
    begin
        accept Start;
    end Client;
end Broker_Link_Layer;