Modélisation des systèmes temps-réel répartis embarqués pour la ...

23 begin
Modélisation des systèmes temps-réel répartis embarqués
24 CORBA.ORB.Initialize ("ORB");
25 if Argument_Count /= 1 then
26 Put_Line ("usage : client |-i");
27 return;
28 end if;
29
30 -- Getting the CORBA.Object
31
32 CORBA.ORB.String_To_Object
33 (CORBA.To_CORBA_String (Ada.Command_Line.Argument (1)), myecho);
34
35 -- Checking if it worked
36
37 if Echo.Is_Nil (myecho) then
38 Put_Line ("main : cannot invoke on a nil reference");
39 return;
40 end if;
41
42 -- Sending message
43
44 Put_Line ("Start experiment");
45
46 loop
47 Date_Start := Clock;
48 Sent_Msg := 1;
49
50 for i in 1 .. 10000 loop
51 Rcvd_Msg := Echo.echoInt (myecho, Sent_Msg + 1);
52 end loop;
53
54 Date_End := Clock;
55 Elapsed_Time := Date_End - Date_Start;
56 Put_Line ("Elapsed time is : " & Duration’Image (Elapsed_Time))
;
57 end loop;
58
59 exception
60 when E : CORBA.Transient =>
61 declare
62 Memb : CORBA.System_Exception_Members;
63 begin
64 CORBA.Get_Members (E, Memb);
65 Put ("received exception transient, minor");
66 Put (CORBA.Unsigned_Long’Image (Memb.Minor));
67 Put (", completion status: ");
68 Put_Line (CORBA.Completion_Status’Image (Memb.Completed));
69
70 end;
71 end Client;
Listing VIII.7 – Code source du client CORBA
162 c○ 2007 Thomas Vergnaud