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

Chapitre VIII – Mise en pratique
Par rapport à l’application AADL, nous émettons moitié moins de communications ; en effet,
chaque communication est un couple requête/réponse alors que les communications AADL sont
unidirectionnelles.
Une grande partie du code du client est consacrée à la mise en place de l’ORB ; la partie
applicative elle-même est relativement restreinte en comparaison.
Nous exécutons le client et le serveur sur la même machine, afin de limiter les perturbations
liées à une éventuelle activité sur la réseau. Ce choix de déploiement se fait à l’exécution du client
et du serveur, en fournissant l’IOR du serveur au client.
VIII-2.2.2 Application CORBA basée sur des méthodes oneway
L’utilisation de méthodes oneway nous permet de mettre en place un mécanisme de passage
de messages. Nous pouvons alors adopter une architecture semblable à celle utilisée pour l’application
AADL, basée sur trois nœuds.
La description des interfaces des nœuds en IDL est représentée sur le listing VIII.8.
1 interface Addition {
2 oneway void Add (in long Mesg);
3 };
Listing VIII.8 – Interfaces de l’application-témoin basée sur des méthodes oneway CORBA
Le code des deux nœuds applicatifs est comparable à l’implantation que nous avons réalisée
pour l’application AADL ; il est représenté sur le listing VIII.9.
1 with Ada.Text_IO;
2 with CORBA;
3 with CORBA.ORB;
4 with Ada.Calendar;
5
6 with Addition.Skel;
7 pragma Warnings (Off, Addition.Skel);
8 -- No entity from Echo.Skel is referenced.
9
10 package body Addition.Impl is
11
12 myadd : Addition.Ref;
13 Date_Start, Date_End : Ada.Calendar.Time;
14 Elapsed_Time : Duration;
15
16 procedure Add
17 (Self : access Object;
18 Mesg : in CORBA.Long)
19 is
20 use CORBA;
21 use Ada.Calendar;
22 pragma Warnings (Off);
23 pragma Unreferenced (Self);
24 pragma Warnings (On);
25
26 Elapsed_Time : Duration;
27 begin
28 if Mesg = 1 then
c○ 2007 Thomas Vergnaud 163