|
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 - download
Length: 19456 (0x4c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Service_Manager, seg_0560d0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Transport;
package body Service_Manager is
function Add_Service
(Service_Name : in Orb_Defs.Name;
Service_Connection : in Orb_Defs.Connection_Id;
Service_Ip_Adress : in Orb_Defs.Host_Id;
Service_Socket : in Orb_Defs.Socket_Id;
Service_Declaration : in Orb_Defs.Message) return Boolean is
Result_Test : Boolean;
begin
Text_Io.Put_Line ("Add Service : Appel du point d entree de la tache.");
Manager_Task.Add_Service (Service_Name => Service_Name,
Service_Connection => Service_Connection,
Service_Ip => Service_Ip_Adress,
Service_Socket => Service_Socket,
Service_Declaration => Service_Declaration,
Add => Result_Test);
return Result_Test;
end Add_Service;
function Remove_Service
(Service_Ip_Adress : in Orb_Defs.Host_Id;
Service_Socket : in Orb_Defs.Socket_Id) return Boolean is
Result_Test : Boolean;
begin
Manager_Task.Remove_Service (Service_Ip_Adress => Service_Ip_Adress,
Service_Socket => Service_Socket,
Destruct => Result_Test);
return Result_Test;
end Remove_Service;
procedure Ask_Service (Ask_Class : in Orb_Defs.Class;
Ask_Fct : in Orb_Defs.Funct;
Service_Connection : out Orb_Defs.Connection_Id;
Service_Ip : out Orb_Defs.Host_Id;
Service_Socket : out Orb_Defs.Socket_Id;
Service_Delivered : out Boolean) is
begin
Manager_Task.Ask_Service (Ask_Class => Ask_Class,
Ask_Fct => Ask_Fct,
Service_Connection => Service_Connection,
Service_Ip => Service_Ip,
Service_Socket => Service_Socket,
Service_Release => Service_Delivered);
Text_Io.Put_Line ("Procedure Ask_Service : sortie.");
end Ask_Service;
procedure Exist_Service (Ask_Class : in Orb_Defs.Class;
Ask_Fct : in Orb_Defs.Funct;
Service_Connection : out Orb_Defs.Connection_Id;
Service_Ip : in Orb_Defs.Host_Id;
Service_Socket : in Orb_Defs.Socket_Id;
Exist : out Boolean) is
Result_Test : Boolean;
begin
Manager_Task.Exist_Service (Ask_Class => Ask_Class,
Ask_Fct => Ask_Fct,
Service_Connection => Service_Connection,
Service_Ip => Service_Ip,
Service_Socket => Service_Socket,
Service_Release => Exist);
end Exist_Service;
function Add_Filter
(Filter_Name : in Orb_Defs.Name;
Filter_Connection : in Orb_Defs.Connection_Id;
Filter_Ip_Adress : in Orb_Defs.Host_Id;
Filter_Socket : in Orb_Defs.Socket_Id;
Filter_Declaration : in Orb_Defs.Message) return Boolean is
Result_Test : Boolean;
begin
Manager_Task.Add_Filter (Filter_Name => Filter_Name,
Filter_Connection => Filter_Connection,
Filter_Ip_Adress => Filter_Ip_Adress,
Filter_Socket => Filter_Socket,
Filter_Declaration => Filter_Declaration,
Add => Result_Test);
return Result_Test;
end Add_Filter;
function Remove_Filter
(Agent_Ip_Adress : in Orb_Defs.Host_Id;
Agent_Socket : in Orb_Defs.Socket_Id) return Boolean is
Result_Test : Boolean;
begin
Manager_Task.Remove_Filter (Agent_Ip_Adress => Agent_Ip_Adress,
Agent_Socket => Agent_Socket,
Destruct => Result_Test);
return Result_Test;
end Remove_Filter;
procedure Ask_Filter (Ask_Class : in Orb_Defs.Class;
Ask_Fct : in Orb_Defs.Funct;
Filter_Connection : out Orb_Defs.Connection_Id;
Filter_Ip : out Orb_Defs.Host_Id;
Filter_Socket : out Orb_Defs.Socket_Id;
Filter_Delivered : out Boolean) is
begin
Manager_Task.Ask_Filter (Ask_Class => Ask_Class,
Ask_Function => Ask_Fct,
Filter_Connection => Filter_Connection,
Filter_Ip_Adress => Filter_Ip,
Filter_Socket => Filter_Socket,
Filter_Delivered => Filter_Delivered);
end Ask_Filter;
function Add_Spy (Spy_Name : in Orb_Defs.Name;
Spy_Connection : in Orb_Defs.Connection_Id;
Spy_Ip_Adress : in Orb_Defs.Host_Id;
Spy_Socket : in Orb_Defs.Socket_Id;
Spy_Declaration : in Orb_Defs.Message) return Boolean is
Result_Test : Boolean;
begin
Manager_Task.Add_Spy (Spy_Name => Spy_Name,
Spy_Connection => Spy_Connection,
Spy_Ip_Adress => Spy_Ip_Adress,
Spy_Socket => Spy_Socket,
Spy_Declaration => Spy_Declaration,
Add => Result_Test);
return Result_Test;
end Add_Spy;
function Remove_Spy (Spy_Ip_Adress : in Orb_Defs.Host_Id;
Spy_Socket : in Orb_Defs.Socket_Id) return Boolean is
Result_Test : Boolean;
begin
Manager_Task.Remove_Spy (Spy_Ip_Adress => Spy_Ip_Adress,
Spy_Socket => Spy_Socket,
Destruct => Result_Test);
return Result_Test;
end Remove_Spy;
procedure Ask_Spy (Ask_Class : in Orb_Defs.Class;
Ask_Fct : in Orb_Defs.Funct;
Spy_Connection : out Orb_Defs.Connection_Id;
Spy_Ip_Adress : out Orb_Defs.Host_Id;
Spy_Socket : out Orb_Defs.Socket_Id;
Spy_Delivered : out Boolean) is
begin
Manager_Task.Ask_Spy (Ask_Class => Ask_Class,
Ask_Function => Ask_Fct,
Spy_Connection => Spy_Connection,
Spy_Ip_Adress => Spy_Ip_Adress,
Spy_Socket => Spy_Socket,
Spy_Release => Spy_Delivered);
end Ask_Spy;
procedure Ask_Agent_To_Test (Agent_Connection : out Orb_Defs.Connection_Id;
Agent_Ip : out Orb_Defs.Host_Id;
Agent_Socket : out Orb_Defs.Socket_Id;
Error : out Boolean) is
begin
Manager_Task.Ask_Agent_To_Test (Agent_Connection => Agent_Connection,
Agent_Ip_Adress => Agent_Ip,
Agent_Socket => Agent_Socket,
Error => Error);
end Ask_Agent_To_Test;
procedure Set_Agent_To_Failure (Agent_Ip_Adress : in Orb_Defs.Host_Id;
Agent_Socket : in Orb_Defs.Socket_Id) is
begin
Manager_Task.Set_Agent_To_Failure
(Agent_Ip => Agent_Ip_Adress, Agent_Socket => Agent_Socket);
end Set_Agent_To_Failure;
procedure Set_Agent_To_Ok (Agent_Ip_Adress : in Orb_Defs.Host_Id;
Agent_Socket : in Orb_Defs.Socket_Id) is
begin
Manager_Task.Set_Agent_To_Ok (Agent_Ip => Agent_Ip_Adress,
Agent_Socket => Agent_Socket);
end Set_Agent_To_Ok;
task body Manager_Task is separate;
end Service_Manager;
nblk1=12
nid=d
hdr6=16
[0x00] rec0=18 rec1=00 rec2=01 rec3=002
[0x01] rec0=14 rec1=00 rec2=03 rec3=00a
[0x02] rec0=12 rec1=00 rec2=10 rec3=00e
[0x03] rec0=02 rec1=00 rec2=09 rec3=056
[0x04] rec0=17 rec1=00 rec2=04 rec3=02a
[0x05] rec0=13 rec1=00 rec2=0b rec3=07a
[0x06] rec0=16 rec1=00 rec2=0e rec3=068
[0x07] rec0=15 rec1=00 rec2=0a rec3=020
[0x08] rec0=01 rec1=00 rec2=06 rec3=02e
[0x09] rec0=15 rec1=00 rec2=07 rec3=032
[0x0a] rec0=0b rec1=00 rec2=0c rec3=000
[0x0b] rec0=00 rec1=00 rec2=11 rec3=05a
[0x0c] rec0=12 rec1=00 rec2=02 rec3=06a
[0x0d] rec0=13 rec1=00 rec2=08 rec3=022
[0x0e] rec0=02 rec1=00 rec2=12 rec3=02e
[0x0f] rec0=12 rec1=00 rec2=0f rec3=07a
[0x10] rec0=15 rec1=00 rec2=09 rec3=092
[0x11] rec0=0b rec1=00 rec2=06 rec3=000
tail 0x2154d921887c353d7a287 0x42a00088462060003
Free Block Chain:
0xd: 0000 00 0f 03 fc 80 1a 20 53 65 72 76 69 63 65 5f 49 ┆ Service_I┆
0xf: 0000 00 12 03 fc 80 27 41 64 64 5f 53 70 79 20 28 53 ┆ 'Add_Spy (S┆
0x12: 0000 00 08 00 2e 80 0e 6e 64 20 41 73 6b 5f 46 69 6c ┆ . nd Ask_Fil┆
0x8: 0000 00 02 03 fc 80 14 20 4f 72 62 5f 44 65 66 73 2e ┆ Orb_Defs.┆
0x2: 0000 00 11 03 fc 80 12 20 4f 72 62 5f 44 65 66 73 2e ┆ Orb_Defs.┆
0x11: 0000 00 05 00 30 80 2d 20 20 20 20 20 20 20 20 20 20 ┆ 0 - ┆
0x5: 0000 00 00 03 fc 80 03 20 69 6e 03 00 3e 20 20 20 20 ┆ in > ┆