|
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: 9216 (0x2400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Request, seg_056713, separate Orb_Service
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Parametre_Defs;
separate (Orb_Service)
procedure Request (Mess : in out Message.Object) is
Containt : Liste_Parametre.List;
Iter : Liste_Parametre.Iterator;
Method_N, Class : Parametre.Variable_String;
Id_List : Object_Manager.Objects_Id.S_List;
Id_Iter : Object_Manager.Objects_Id.S_Iterator;
The_Object : Registrated_Object.Object := Registrated_Object.Null_Object;
The_Object_Id : Object_Manager.Object_Id;
New_Mess : Message.Object;
Result : Boolean;
procedure Get_Message_Containt is separate;
procedure Treat_A_Client_Which_Do_Not_Know_The_Requested_Object_Id is separate;
procedure Treat_A_Client_Which_Know_The_Requested_Object_Id is separate;
begin
Get_Message_Containt;
if Object_Manager.Is_Equal
(Object_Manager.Object_Id (Message.Get_Dest (Mess)),
Object_Manager.Object_Id (Parametre_Defs.Orb)) then
-- the client do not know which agent is doing the wanted method
Task_Io.Put_Line ("le client ne connait pas l'id de l'object");
Treat_A_Client_Which_Do_Not_Know_The_Requested_Object_Id;
else
-- the client knows the object_id in which is the requested method
Task_Io.Put_Line ("le client connait le destinataire de la requete");
Treat_A_Client_Which_Know_The_Requested_Object_Id;
end if;
Task_Io.Put_Line ("after request " & Object_Manager.Image (Data_Base));
end Request;
nblk1=8
nid=3
hdr6=4
[0x00] rec0=17 rec1=00 rec2=01 rec3=090
[0x01] rec0=0d rec1=00 rec2=02 rec3=000
[0x02] rec0=16 rec1=00 rec2=06 rec3=014
[0x03] rec0=17 rec1=00 rec2=03 rec3=070
[0x04] rec0=05 rec1=00 rec2=02 rec3=000
[0x05] rec0=17 rec1=00 rec2=03 rec3=070
[0x06] rec0=05 rec1=00 rec2=02 rec3=000
[0x07] rec0=28 rec1=7b rec2=c8 rec3=0b2
tail 0x217627e9a87c455609e95 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 06 03 fc 80 14 20 20 69 66 20 6e 6f 74 20 52 ┆ if not R┆
0x6: 0000 00 08 03 fc 80 22 54 6f 5f 4f 62 6a 65 63 74 20 ┆ "To_Object ┆
0x8: 0000 00 05 03 33 80 1a 54 68 65 5f 52 65 71 75 65 73 ┆ 3 The_Reques┆
0x5: 0000 00 04 03 fc 80 0f 5f 45 6d 65 74 20 28 4d 65 73 ┆ _Emet (Mes┆
0x4: 0000 00 07 03 fc 80 22 20 20 20 20 20 20 20 20 20 20 ┆ " ┆
0x7: 0000 00 00 03 fc 80 18 61 72 63 68 5f 4f 62 6a 65 63 ┆ arch_Objec┆