--------------------------------------------------------------------------------
-- 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;