--------------------------------------------------------------------------------
-- NOM DU CSU (spécification) : ImportMgr.ads
-- AUTEUR DU CSU : P. Pignard
-- VERSION DU CSU : 1.0a
-- DATE DE LA DERNIERE MISE A JOUR : 8 octobre 2008
-- ROLE DU CSU : Unité de gestion des unités importées.
--
--
-- 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 Ada.Containers.Doubly_Linked_Lists;
package ImportMgr is
-- Objet assurant la gestion des unités importées
type TImportUnit is tagged private;
type PImportUnit is access TImportUnit;
-- Positionne le chemin de la bibliothèque Java en Ada
procedure SetAPILocation (O : in out TImportUnit; JavaAPILocation : TText);
-- Ajout une unité externe
procedure Add (O : in out TImportUnit; Unit : TText);
-- Ajout d'une série d'unités externes
procedure AddAll (O : in out TImportUnit; Unit : TText);
-- Recherche d'une classe
function Search (O : TImportUnit; Class : TText) return Boolean;
-- Renvoie la dernière classe trouvée
function GetLast (O : TImportUnit) return TText;
private
package DirectoryLists is new Ada.Containers.Doubly_Linked_Lists (TText);
type TClass is record
PackageName : TText := NullTText;
ClassName : TText := NullTText;
end record;
package ClassLists is new Ada.Containers.Doubly_Linked_Lists (TClass);
type TImportUnit is tagged record
Directories : DirectoryLists.List;
Classes : ClassLists.List;
APIPath : TText := +".";
end record;
end ImportMgr;