j2ada_1.4.2_79a46634/src/objpar.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
--------------------------------------------------------------------------------
-- NOM DU CSU (spécification)       : ObjPar.ads
-- AUTEUR DU CSU                    : P. Pignard
-- VERSION DU CSU                   : 1.4a
-- DATE DE LA DERNIERE MISE A JOUR  : 23 décembre 2008
-- ROLE DU CSU                      : Unité des objets partagés de l'automate.
--
--
-- FONCTIONS EXPORTEES DU CSU       :
--
--
-- FONCTIONS LOCALES DU CSU         :
--
--
-- NOTES                            :
--
-- COPYRIGHT                        : (c) Pascal Pignard 2008
-- LICENCE                          : CeCILL V2 (http://www.cecill.info)
-- CONTACT                          : http://blady.pagesperso-orange.fr
--------------------------------------------------------------------------------

with BasicDef;                           use BasicDef;
with OutSrc;                             use OutSrc;
with ObjSrc;                             use ObjSrc;
with ImportMgr;
with Ada.Containers.Doubly_Linked_Lists;

package ObjPar is

   -- Variables utilisées dans l'automate :

   -- Référence de l'objet assurant la gestion du nom des clauses de contexte
   WithList : PEnumListMgr := new TEnumListMgr;

   -- Référence de l'objet assurant la gestion du texte spé de l'unité Ada
   ObjectSpecList : PTextListMgr := new TTextListMgr;

   -- Référence de l'objet assurant la gestion du texte corps de l'unité Ada
   ObjectBodyList : PTextListMgr := new TTextListMgr;

   -- Référence de l'objet assurant la gestion d'un texte temporaire
   TempList : PTextListMgr := new TTextListMgr;

   -- Référence de l'objet texte courant
   OutputList, SavedOutputList : PTextListMgr := ObjectSpecList;

   -- Objet assurant la gestion du nom des unités importées
   ImportUnit : TText;

   -- Référence de l'objet assurant la gestion des classes des unités importées
   ImportClassList : ImportMgr.TImportUnit;

   -- Référence de l'objet assurant la gestion du nom des paquetages pères
   PackageList : PTextListMgr := new TTextListMgr;

   -- Référence de l'objet assurant la gestion du nom des classes
   package ClassLists is new Ada.Containers.Doubly_Linked_Lists (ObjSrc.PJavaClass);
   ClassList : ClassLists.List;

   -- Référence de l'objet assurant la gestion du nom des champs ou var locales
   FieldList : access TTextListMgr'Class;

   -- Référence de l'objet assurant la gestion du nom des variables
   VarObj : PJavaVar := new TJavaVar;

   -- Référence de l'objet assurant la gestion du nom des paramètres
   ParaObj : PJavaPara := new TJavaPara;

   -- Référence de l'objet assurant la gestion du nom des methodes
   MethObj : PJavaMeth := new TJavaMeth;

   -- Utilisées en mode débug
   NomFich   : TText;
   LigneFich : Natural;

end ObjPar;