|
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, package body Server_Object, seg_05664e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Answers_Array;
with Bal;
with Bls_Constant;
with Parametre_Defs;
with Parametre;
with Bounded_String;
with Liste_Parametre;
with Message;
with Channel_Operator;
with My_Channel_User;
with String_Utilities;
with Task_Io;
package body Server_Object is
My_Channel : My_Channel_User.Object;
task T_Server_Object is
entry Dispose;
end T_Server_Object;
procedure Dispose is
begin
T_Server_Object.Dispose;
end Dispose;
task body T_Server_Object is
Mess : Message.Object;
Mess_Ret : Message.Object;
Typ : Parametre_Defs.Message_Type;
My_List : Liste_Parametre.List;
My_List_Ret : Liste_Parametre.List;
My_Index : Parametre_Defs.Message_Number;
My_Class : Parametre.Variable_String;
My_Method : Parametre.Variable_String;
Result : Boolean;
Continue : Boolean := True;
begin
Task_Io.Put_Line ("debut de la partie serveur de l objet");
loop
select
accept Dispose do
Continue := False;
end Dispose;
else
if not Bal.Is_Empty then
Task_Io.Put_Line ("il ya quelque chose dans la bal");
Bal.Get (Mess);
Typ := Message.Get_Type (Mess);
My_List := Message.Get_Containt (Mess);
My_Class := Liste_Parametre.First (My_List);
My_List := Liste_Parametre.Rest (My_List);
My_Method := Liste_Parametre.First (My_List);
My_List := Liste_Parametre.Rest (My_List);
My_Index := Message.Get_Number (Mess);
case Typ is
when Parametre_Defs.Answe =>
Answers_Array.Put
(Answers_Array.Index
(Integer'Value (String (My_Index))),
Message.Get_Emet (Mess), My_List);
when Parametre_Defs.Subsc =>
Subscription_Treatement
(Message.Get_Emet (Mess),
Bounded_String.Image (My_Class),
Bounded_String.Image (My_Method), My_List);
when Parametre_Defs.Reque =>
My_List_Ret := Liste_Parametre.Make
(My_Class, My_List_Ret);
My_List_Ret := Liste_Parametre.Make
(My_Method, My_List_Ret);
Server_Work (Bounded_String.Image (My_Method),
My_List, My_List_Ret);
Message.Create (Mess_Ret, Message.Get_Dest (Mess),
Message.Get_Emet (Mess),
Parametre_Defs.Answe,
My_Index, My_List_Ret);
My_Channel_User.Init
(My_Channel, Bls_Constant.Orb_Socket,
Bls_Constant.Orb_Host, Result);
if Result then
Message.Send (Mess_Ret, My_Channel);
end if;
Task_Io.Put_Line ("reponse est envoyee");
My_Channel_User.Close (My_Channel);
when others =>
null;
end case;
end if;
end select;
exit when not Continue;
end loop;
end T_Server_Object;
end Server_Object;
nblk1=8
nid=5
hdr6=8
[0x00] rec0=26 rec1=00 rec2=01 rec3=04e
[0x01] rec0=14 rec1=00 rec2=06 rec3=01a
[0x02] rec0=0f rec1=00 rec2=07 rec3=052
[0x03] rec0=1a rec1=00 rec2=08 rec3=000
[0x04] rec0=07 rec1=00 rec2=05 rec3=000
[0x05] rec0=0f rec1=00 rec2=08 rec3=064
[0x06] rec0=16 rec1=00 rec2=05 rec3=000
[0x07] rec0=02 rec1=40 rec2=01 rec3=37b
tail 0x21762632887c44b6971d2 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 03 00 3f 00 00 00 00 18 20 20 20 20 65 6e 64 ┆ ? end┆
0x3: 0000 00 04 00 7f 80 1d 69 6e 65 20 28 22 69 6e 64 65 ┆ ine ("inde┆
0x4: 0000 00 02 00 4d 80 30 20 20 20 20 20 20 20 20 20 20 ┆ M 0 ┆
0x2: 0000 00 00 01 6b 80 09 6e 76 6f 79 65 65 22 29 3b 09 ┆ k nvoyee"); ┆