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

90 end Processeur;
91
92 system Client_Serveur
93 end Client_Serveur;
94
Chapitre VIII – Mise en pratique
95 system implementation Client_Serveur.i
96 subcomponents
97 lanceur : process Processus_Lanceur.i {Arao::Port_Number =>
10000;};
98 noeud1 : process Processus_Applicatif.i {Arao::Port_Number =>
10002;};
99 noeud2 : process Processus_Applicatif.i {Arao::Port_Number =>
10003;};
100 processeur : processor Processeur;
101 connections
102 event data port lanceur.s -> noeud1.e;
103 event data port noeud1.s -> noeud2.e;
104 event data port noeud2.s -> noeud1.e;
105 properties
106 Actual_Processor_Binding => reference processeur applies to
lanceur;
107 Actual_Processor_Binding => reference processeur applies to
noeud1;
108 Actual_Processor_Binding => reference processeur applies to
noeud2;
109 end Client_Serveur.i;
Listing VIII.3 – Déploiement de l’application de test
L’implantation des sous-programmes des nœuds applicatifs effectue une addition. L’essentiel
du temps de traitement correspond donc à l’exécution des mécanismes de la couche applicative
AADL et des composants de PolyORB. Les deux nœuds principaux de l’application sont symétriques
; nous n’avons pas la notion de client et de serveur. Une seule description comportementale
est donc nécessaire (listing VIII.4).
1 with Partition;
2 with Ada.Text_IO;
3 with Ada.Calendar;
4
5 package body Repository is
6
7 Date_Start, Date_End : Ada.Calendar.Time;
8
9 procedure Initiateur (s : out Partition.Donnee) is
10 use Ada.Text_IO;
11 begin
12 Put_Line ("initiation");
13 s := 1;
14 end Initiateur;
15
16 procedure Application (e : in Partition.Donnee; s : out
Partition.Donnee) is
17 use Ada.Calendar;
18 use Ada.Text_IO;
c○ 2007 Thomas Vergnaud 159