|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Main, seg_054447
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Text_Io;
with Byte_Defs;
with Transport;
with Utils;
with Orb_Defs;
with Service_Toolbox;
with Service_Manager;
with Service_Toolbox;
with Agent_Toolbox;
with Service_Manager_Defs;
procedure Main is
Thestrbyte : Byte_Defs.Byte_String (1 .. 7);
The_Connection : Orb_Defs.Connection_Id;
The_Host : Orb_Defs.Host_Id;
The_Socket : Orb_Defs.Socket_Id;
Service_Ok : Boolean;
Error : Boolean;
begin
Text_Io.Put_Line ("Bonjour le Monde !!!");
Text_Io.Put_Line ("Hello");
Text_Io.Put_Line ("ask_agent_to_test");
Error := Service_Manager.Add_Service
(Service_Name => "Boboulet",
Service_Connection => Transport.Null_Connection_Id,
Service_Ip_Adress => (123, 45, 67, 89),
Service_Socket => Orb_Defs.Default_Orb_Socket,
Service_Declaration =>
"0001FBAL0005PROGMNGRRALRDRMIBOIR" & (33 .. 256 => '*')); Error := Service_Manager.Add_Service
(Service_Name => "Boboulet",
Service_Connection => Transport.Null_Connection_Id,
Service_Ip_Adress => (123, 45, 67, 89),
Service_Socket => Orb_Defs.Default_Orb_Socket,
Service_Declaration =>
"0001FBOB0005PROGMNGRRALRDRMIBOIR" & (33 .. 256 => '*'));
Error := Service_Manager.Add_Service
(Service_Name => "Boboulet",
Service_Connection => Transport.Null_Connection_Id,
Service_Ip_Adress => (123, 45, 67, 89),
Service_Socket => Orb_Defs.Default_Orb_Socket,
Service_Declaration =>
"0001FLES0005PROGMNGRRALRDRMIBOIR" & (33 .. 256 => '*'));
Error := Service_Manager.Add_Filter
(Filter_Name => "Boboulet",
Filter_Connection => Transport.Null_Connection_Id,
Filter_Ip_Adress => (123, 45, 67, 89),
Filter_Socket => Orb_Defs.Default_Orb_Socket,
Filter_Declaration =>
"0001FBOB0005PROGMNGRRALRDRMIBOIR" & (33 .. 256 => '*'));
Error := Service_Manager.Add_Filter
(Filter_Name => "Boboulet",
Filter_Connection => Transport.Null_Connection_Id,
Filter_Ip_Adress => (123, 45, 67, 89),
Filter_Socket => Orb_Defs.Default_Orb_Socket,
Filter_Declaration =>
"0001FBOB0005PROGMNGRRALRDRMIBOIR" & (33 .. 256 => '*'));
Error := Service_Manager.Add_Spy
(Spy_Name => "Boboulet",
Spy_Connection => Transport.Null_Connection_Id,
Spy_Ip_Adress => (123, 45, 67, 89),
Spy_Socket => Orb_Defs.Default_Orb_Socket,
Spy_Declaration => "0001FBOB0005PROGMNGRRALRDRMIBOIR" &
(33 .. 256 => '*'));
Text_Io.Put_Line ("Service Ajouter.");
Text_Io.Put_Line (Boolean'Image (Error));
if Error then
Text_Io.Put_Line ("Add_Service : A ajoute un service.");
Service_Manager.Ask_Service (Ask_Class => "FBOB",
Ask_Fct => "DRMI",
Service_Connection => The_Connection,
Service_Ip => The_Host,
Service_Socket => The_Socket,
Service_Delivered => Service_Ok);
Service_Manager.Ask_Spy (Ask_Class => "FBOB",
Ask_Fct => "DRMI",
Spy_Connection => The_Connection,
Spy_Ip_Adress => The_Host,
Spy_Socket => The_Socket,
Spy_Delivered => Service_Ok);
Service_Manager.Ask_Filter (Ask_Class => "FBOB",
Ask_Fct => "DRMI",
Filter_Connection => The_Connection,
Filter_Ip => The_Host,
Filter_Socket => The_Socket,
Filter_Delivered => Service_Ok);
Text_Io.Put_Line ("Ask_Service : A delivre un service.");
Text_Io.Put_Line (Boolean'Image (Service_Ok));
end if;
end Main;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=21 rec1=00 rec2=01 rec3=002
[0x01] rec0=11 rec1=00 rec2=03 rec3=054
[0x02] rec0=13 rec1=00 rec2=04 rec3=00e
[0x03] rec0=11 rec1=00 rec2=02 rec3=024
[0x04] rec0=09 rec1=00 rec2=05 rec3=000
tail 0x2154d045c87b66d52a69d 0x42a00088462060003