|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Master_Orb, seg_0549d1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with String_Utilities;
package body Master_Orb is
-- ***************************************************************************
procedure Message_Treatment (The_Frame_To_Treat : in The_Message.T_Frame;
The_Registered_Client : in out
My_Set_Of_Adress.Set_Of_Adress.Set;
The_Registered_Server : in out
My_Set_Of_Adress.Set_Of_Adress.Set) is
Incomplete_Source_Adress, Incomplete_Destinataire_Adress,
Incomplete_Client_Adress : All_String.Adress_String_And_Apply_Number;
begin
Text_Io.Put_Line ("traitement !!");
null;
end Message_Treatment;
-- ***************************************************************************
task body Object_Request_Broker is
Set_Of_Client : My_Set_Of_Adress.Set_Of_Adress.Set;
Set_Of_Server : My_Set_Of_Adress.Set_Of_Adress.Set;
My_Receive_Frame : The_Message.T_Frame;
My_Send_Frame : The_Message.T_Frame;
My_Status : Boolean;
My_Appli_Number : Com_Defs.Com_Number;
My_Quest_Number : Com_Defs.Com_Number;
My_Adress_String_And_Apply_Number :
All_String.Adress_String_And_Apply_Number;
My_Adress_String : All_String.Adress_String;
My_Type_Of_Message : Integer;
My_Type_Of_Status : Integer;
My_Integer : Integer := 3;
begin
My_Set_Of_Adress.Initialize (The_Set => Set_Of_Client);
My_Set_Of_Adress.Initialize (The_Set => Set_Of_Server);
--*********************************************************
-- loop
loop
The_Message.Receive (My_Appli_Number, My_Quest_Number,
My_Receive_Frame, My_Status);
exit when My_Status = True;
end loop;
My_Type_Of_Message :=
The_Message.Read_Type_Of_Message (My_Receive_Frame);
case My_Type_Of_Message is
when T_Message.T_Mess'Pos (T_Message.Registration) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Unregistration) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Query) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Request) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Notification) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Forwa) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Publication) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Unpublication) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Subscription) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Unsubscription) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Filtration) =>
begin
null;
end;
when T_Message.T_Mess'Pos (T_Message.Unfiltration) =>
begin
null;
end;
when others =>
Text_Io.Put_Line ("type of message is unknown");
end case;
-- Message_Treatment (The_Frame_To_Treat => My_Receive_Frame,
-- The_Registered_Client => Set_Of_Client,
-- The_Registered_Server => Set_Of_Server);
-- -- decompactage de la trame
-- -- traitement de la trame recue
-- -- construction de la trame a emettre et emission
-- end loop;
--*********************************************************
end Object_Request_Broker;
end Master_Orb;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=18 rec1=00 rec2=01 rec3=070
[0x01] rec0=1f rec1=00 rec2=02 rec3=012
[0x02] rec0=1c rec1=00 rec2=03 rec3=018
[0x03] rec0=1b rec1=00 rec2=04 rec3=05c
[0x04] rec0=0a rec1=00 rec2=05 rec3=000
tail 0x2175db1cc87b8884b91ba 0x42a00088462060003