X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=kernel%2Fsrc%2FbbtkPackage.cxx;h=2a1fc8d3772fdf05e8f6aa4c535c05eb6a6e9ddb;hb=2a9b694dca646ad9562f47a5bdb4f209059bd22a;hp=4acb0f16192f8351b1219b8f73e0e2abfba64834;hpb=a26195c366a89795288009cf7e20f11afa494970;p=bbtk.git

diff --git a/kernel/src/bbtkPackage.cxx b/kernel/src/bbtkPackage.cxx
index 4acb0f1..2a1fc8d 100644
--- a/kernel/src/bbtkPackage.cxx
+++ b/kernel/src/bbtkPackage.cxx
@@ -1,25 +1,40 @@
-/*=========================================================================
-                                                                                
+
+/*=========================================================================                                                                               
   Program:   bbtk
   Module:    $RCSfile: bbtkPackage.cxx,v $
   Language:  C++
-  Date:      $Date: 2008/01/22 15:02:00 $
-  Version:   $Revision: 1.1 $
-                                                                                
-  Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
-  l'Image). All rights reserved. See doc/license.txt or
-  http://www.creatis.insa-lyon.fr/Public/bbtk/License.html for details.
-                                                                                
-     This software is distributed WITHOUT ANY WARRANTY; without even
-     the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
-     PURPOSE.  See the above copyright notices for more information.
-                                                                                
+  Date:      $Date: 2009/05/28 12:18:51 $
+  Version:   $Revision: 1.28 $
 =========================================================================*/
+
+/* ---------------------------------------------------------------------
+
+* Copyright (c) CREATIS-LRMN (Centre de Recherche en Imagerie Medicale)
+* Authors : Eduardo Davila, Laurent Guigues, Jean-Pierre Roux
+*
+*  This software is governed by the CeCILL-B license under French law and 
+*  abiding by the rules of distribution of free software. You can  use, 
+*  modify and/ or redistribute the software under the terms of the CeCILL-B 
+*  license as circulated by CEA, CNRS and INRIA at the following URL 
+*  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html 
+*  or in the file LICENSE.txt.
+*
+*  As a counterpart to the access to the source code and  rights to copy,
+*  modify and redistribute granted by the license, users are provided only
+*  with a limited warranty  and the software's author,  the holder of the
+*  economic rights,  and the successive licensors  have only  limited
+*  liability. 
+*
+*  The fact that you are presently reading this means that you have had
+*  knowledge of the CeCILL-B license and that you accept its terms.
+* ------------------------------------------------------------------------ */                                                                         
+
 /**
  *\file
  *\brief Class bbtk::Package : registers black boxes descriptors and is able to create instances of the black boxes registered.
  */
 #include "bbtkPackage.h"
+#include "bbtkComplexBlackBoxDescriptor.h"
 #include "bbtkMessageManager.h"
 #include "bbtkConfigurationFile.h"
 #include <fstream>
@@ -28,24 +43,48 @@
 
 namespace bbtk
 {
+  
+
+
+  //==========================================================================
+  /// Creates a new package
+  Package::Pointer Package::New(const std::string& name,
+				const std::string& author,
+				const std::string& description,
+				const std::string& version) 
+  {
+    bbtkDebugMessage("object",1,"##> Package::New('"<<name<<"',...)"
+		     <<bbtkendl);
+    Package::Pointer p = MakePointer(new Package(name,
+					       author,
+					       description,
+					       version));
+    bbtkDebugMessage("object",2,"<## Package::New('"<<name<<"',...)"
+		     <<bbtkendl);
+    return p;
+  }
+  //==========================================================================
+
   //==========================================================================
   /// Ctor with the name of the package
   Package::Package(const std::string& name,
 		   const std::string& author,
 		   const std::string& description,
-		   const std::string& version,
-		   const std::string& BBTKVersion) 
-    : mName(name),
-      mAuthor(author),
-      mDescription(description),
-      mVersion(version),
-      mBBTKVersion(BBTKVersion)
+		   const std::string& version) 
+    :
+    mDynamicLibraryHandler(0),
+    mName(name),
+    mAuthor(author),
+    mDescription(description),
+    mVersion(version)
   {
-    std::string default_doc_dir = ConfigurationFile::GetInstance().Get_default_doc_tmp();
+    bbtkDebugMessage("object",2,"==> Package('"<<name<<"',...)"
+		     <<bbtkendl);
+    std::string default_doc_dir = ConfigurationFile::GetInstance().Get_default_temp_dir();
     char c = default_doc_dir.c_str()[strlen(default_doc_dir.c_str())-1];
     std::string url = default_doc_dir; 
     if (c != '/' && c !='\\') url = url + "/";
-    url = url +  "doc_tmp/" + name + "/index.html";    
+    url = url +  "temp_dir/" + name + "/index.html";    
     
     SetDocURL(url);
     SetDocRelativeURL("Relative url not set");
@@ -61,7 +100,9 @@ namespace bbtk
 
     //    std::cout  << "   url=["<<url<<"]"<<std::endl;
     //    std::cout  << "relurl=["<<relurl<<"]"<<std::endl;
-    bbtkDebugMessage("Core",7,"Package::Package(\""<<name<<"\")"<<bbtkendl);
+    bbtkDebugMessage("object",2,"<== Package::Package('"<<name<<"',...) OK"
+		     <<bbtkendl);
+
   }
   //==========================================================================
 
@@ -71,45 +112,591 @@ namespace bbtk
   /// Dtor
   Package::~Package()
   {
-    bbtkDebugMessageInc("Core",7,"Package::~Package(\""<<mName<<"\")"<<bbtkendl);
-    BlackBoxMapType::const_iterator i;
-    for (i=mBlackBoxMap.begin();
-	 i!=mBlackBoxMap.end();
-	 ++i) 
+    bbtkDebugMessage("object",2,"==> ~Package(\""<<mName<<"\")"<<bbtkendl);
+  }
+  //==========================================================================
+
+
+  //==========================================================================
+	  void PackageReleaseBlackBoxDescriptorInternal(Package::WeakPointer pack,
+							const std::string& descname)
+	  {
+		// Try to release descriptor
+		std::string packname = pack.lock()->GetName();
+
+		bbtkDebugMessage("package",5,"--- Releasing descriptor '"
+				 <<packname<<"::"<<descname<<"'"<<bbtkendl);
+
+
+		Package::BlackBoxMapType::iterator desc = 
+		  pack.lock()->GetBlackBoxMap().find(descname);
+		if (desc ==  pack.lock()->GetBlackBoxMap().end())
+		  {
+		bbtkDebugMessage("package",5,
+				 "    Descriptor has already been released"
+				 <<bbtkendl);
+		return;
+		  }
+		//    bbtkDebugMessage("package",3,
+		//		     "    Trying unreferencing it ... "<<std::endl);
+		BlackBoxDescriptor::WeakPointer pdesc = desc->second;
+		desc->second.reset();
+		// if it is dead : remove it 
+		if (pdesc.expired()) 
+		{
+		  bbtkDebugMessage("package",2," ==> '"<<packname<<"::"<<descname<<"' Descriptor expired"<<bbtkendl);
+	  	  if (pack.expired()) 
+		  {
+		 	bbtkDebugMessage("package",2,
+					 "     ... and caused its package death"
+					 <<bbtkendl);
+			return;
+		  } // pack.expired
+		  desc = pack.lock()->GetBlackBoxMap().find(descname);
+		  if (desc !=  pack.lock()->GetBlackBoxMap().end())	  pack.lock()->GetBlackBoxMap().erase(desc);
+		}   else    {  //pdesc.expired
+		     bbtkDebugMessage("package",5,"    ... Descriptor still alive ("
+				 <<pdesc.use_count()<<" refs)"
+				 <<bbtkendl);
+	  	     pack.lock()->GetBlackBoxMap()[descname] = pdesc.lock();
+		} // pdesc.expired
+	  }
+  //==========================================================================
+
+
+  //==========================================================================
+  /// Release
+  void Package::Release(Package::WeakPointer pack)
+  {
+    std::string packname = pack.lock()->mName;
+    bbtkDebugMessage("package",1,"==> Package::Release('"<<
+		     packname<<"')"<<bbtkendl);
+
+    long dyn = pack.lock()->mDynamicLibraryHandler ? 1:0; 
+    long ndesc = pack.lock()->GetBlackBoxMap().size();
+    long nrefs = pack.use_count();
+
+    bbtkDebugMessage("package",5," "<<nrefs<<" refs / "
+		     <<ndesc<<" descr / dyn="
+		     <<dyn<<std::endl);
+
+    // A package is "free" from any external reference iff :
+    // i) It is not dynamically loaded and nrefs == ndesc 
+    // (each desc references its package) or
+    // ii) It is dynamically loaded and nrefs == ndesc + 1
+    // (A dynamic library holds a static pointer on the package it contains
+    //  which is allocated when the PACKAGENAMEGetPackage() func is called,
+    //  and descallocated (reset) by PACKAGENAMEDeletePackage())
+    if (nrefs == ndesc + dyn) 
       {
-	delete i->second;
-      } 
-    // Adaptors are also stored in the black box map : hence already deleted
+	bbtkDebugMessage("package",5,
+			 " -> No more external ref : checking descriptors"
+			 <<bbtkendl);
+	// We must take care that removing refs on descriptors 
+	// can lead to their deletion which can in turn unref 
+	// internal boxes which can release their descriptors hence 
+	// call Package::ReleaseBlackBoxDescriptor 
+	// As a consequence during descriptors release :
+	// 1) The map can change dynamically : we cannot iterate over it 
+	//    as any iterator can become invalid
+	// 2) The package can auto-destruct : we must test its existence 
+	//    after each release
+	// We must also take care of not locking the package pointer 
+	// or any ref count check in Package::ReleaseBlackBoxDescriptor
+	// would be wrong
+
+	// The list of descriptors names at start
+	std::vector<std::string> descnamelist;
+	BlackBoxMapType::iterator i;
+	for (i=pack.lock()->mBlackBoxMap.begin();
+	     i!= pack.lock()->mBlackBoxMap.end();
+	     ++i)
+	  descnamelist.push_back(i->first);
+
+	// Iterator over the initial names
+	std::vector<std::string>::iterator descname;
+	for (descname=descnamelist.begin();
+	     descname!=descnamelist.end();
+	     ++descname)
+	  {
+	    // Is package still alive ?
+	    if (pack.expired()) 
+	      {
+		bbtkDebugMessage("package",1,"--- Package::Release('"<<
+				 packname
+				 <<"') : package expired during release : bailing out"<<bbtkendl);
+		break;
+	      }
+	    
+#if defined(MACOSX)
+		  BlackBoxDescriptor::Pointer desc = pack.lock()->mBlackBoxMap[*descname];
+		  if ( (dyn==0) || (boost::dynamic_pointer_cast<ComplexBlackBoxDescriptor>(desc)) )
+			  PackageReleaseBlackBoxDescriptorInternal(pack,*descname);
+#else
+		  PackageReleaseBlackBoxDescriptorInternal(pack,*descname);
+#endif
+
+	  }
+
+	//
+	UnLoadDynamicLibrary(pack);
+	// Unload orphan dl packages 
+	Package::UnLoadReleasedDynamicallyLoadedPackages();
+	
+
+	
+	
+      }
+    
+#ifdef BBTK_COMPILE_DEBUG_MESSAGES
+
+    bbtkDebugMessage("package",2,"<== Package::Release('"<<
+		     packname<<"')"<<bbtkendl);
+
+    if (!pack.expired())
+      {
+	long dyn = pack.lock()->mDynamicLibraryHandler ? 1:0; 
+	long ndesc = pack.lock()->GetBlackBoxMap().size();
+	long nrefs = pack.use_count();
+	
+	bbtkDebugMessage("package",1," ... Package still alive ("
+			 <<nrefs<<" refs / "
+			 <<ndesc<<" descr / dyn="
+			 <<dyn<<")"<<std::endl);
+      }
+    else 
+      {
+	bbtkDebugMessage("package",1," ... Package has been released"
+			 <<std::endl);
+      }
+#endif
+  }
+  //==========================================================================
+
+  //==========================================================================
+  /// "Releases" the package
+  /// Signals the package that it can free the given descriptor
+  /// if they are no more used and free itself if it is no
+  /// more used
+  /// Note : Any non-weak pointer on the package must have been freed
+  void Package::ReleaseBlackBoxDescriptor(Package::WeakPointer pack,
+					  BlackBoxDescriptor::WeakPointer descr)
+  {
+    std::string packname = pack.lock()->mName;
+    std::string dname = descr.lock()->GetTypeName();    
+    bbtkDebugMessage("package",3,"==> Package::ReleaseBlackBoxDescriptor('"<<
+		     packname<<"','"<<dname<<"') : refs="
+		     <<descr.use_count()<<bbtkendl);
+
+    long dyn = pack.lock()->mDynamicLibraryHandler ? 1:0; 
+    long ndesc = pack.lock()->GetBlackBoxMap().size();
+    long nrefs = pack.use_count();
+
+    bbtkDebugMessage("package",5," "<<nrefs<<" refs / "
+		     <<ndesc<<" descr / dynamically loaded = "
+		     <<dyn<<std::endl);
+
+    // A package is "free" from any external reference iff :
+    // i) It is not dynamically loaded and nrefs == ndesc 
+    // (each desc references its package) or
+    // ii) It is dynamically loaded and nrefs == ndesc + 1
+    // (A dynamic library holds a static pointer on the package it contains
+    //  which is allocated when the PACKAGENAMEGetPackage() func is called,
+    //  and descallocated (reset) by PACKAGENAMEDeletePackage())
+    if (nrefs == ndesc + dyn) 
+      {
+#if defined(MACOSX)
+		  //
+		  if (dyn==0)
+			  PackageReleaseBlackBoxDescriptorInternal(pack,dname);
+#else
+		  PackageReleaseBlackBoxDescriptorInternal(pack,dname);
+#endif	
+      }
+    
+    // If the package is released and dynamically loaded 
+    // then put it in the static list mReleasedDynamicallyLoadedPackages
+    UnLoadDynamicLibrary(pack,false);
+        
+    bbtkDebugMessage("package",4,"<== Package::ReleaseBlackBoxDescriptor('"<<
+		     packname<<"','"<<dname<<"'): refs="
+		     <<descr.use_count()<<bbtkendl);
     /*
-    AdaptorMapType::const_iterator j;
-    for (j=mAdaptorMap.begin();
-	 j!=mAdaptorMap.end();
-	 ++j) 
+    if (!pack.expired())
+      {
+	long dyn = pack.lock()->mDynamicLibraryHandler ? 1:0; 
+	long ndesc = pack.lock()->GetBlackBoxMap().size();
+	long nrefs = pack.use_count();
+	
+	bbtkDebugMessage("package",3," ... Package still alive ("
+			 <<nrefs<<" refs / "
+			 <<ndesc<<" descr / dyn="
+			 <<dyn<<")"<<std::endl);
+      }
+    else 
+      {
+	bbtkDebugMessage("package",3,"   ... Package has been released"
+			 <<std::endl);
+      }  
+    */
+  }
+  //==========================================================================    
+
+  //==========================================================================
+  /// Opens a dynamic library which contains a bbtk package
+  /// Returns the handler 
+  /// Load the package management symbols from the lib
+  /// returns false if a problem occured hence can be used 
+  /// to test that a dyn lib is a valid bbtk package lib
+  /// NB : The BBTK version exported from the library 
+  ///      is tested against the current bbtk version
+  DynamicLibraryHandler Package::OpenDynamicLibrary
+  ( const std::string& libname,
+    const std::string& package_name,
+    DLGetPackageFunction& getpack,
+    DLDeletePackageFunction& delpack)
+  {
+    bbtkDebugMessage("package",3,"==> Package::OpenDynamicLibrary("
+		     <<libname<<")"<<std::endl);
+#if defined(__GNUC__)
+
+    // Open shared lib
+    void *handler;
+    handler = dlopen(libname.c_str(), BBTK_RTLD_TIME | BBTK_RTLD_SCOPE );
+//EED     handler = dlopen(libname.c_str(), RTLD_LAZY | RTLD_LOCAL );
+	  
+    if (!handler)
       {
-	delete j->second;
+	bbtkMessage("package",2,
+		    "Could not open shared library [" <<libname<<"] : "
+		    <<dlerror() << std::endl);
+	return 0;
+      }
+
+    bbtkDebugMessage("package",3,"* Shared lib ["<<libname<<"] open"<<std::endl);
+
+    // Loads the Package bbtk version function 
+    std::string getvername(package_name);
+    getvername += 
+      BBTK_STRINGIFY_SYMBOL(BBTK_GET_PACKAGE_BBTK_VERSION_FUNCTION_NAME);
+    DLGetPackageBBTKVersionFunction getbbtkversion 
+      = (DLGetPackageBBTKVersionFunction)(dlsym(handler,getvername.c_str()));
+    if (!getbbtkversion)
+      {
+	bbtkDebugMessage("package",3,"***"<<std::endl);
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] is not a valid bbtk package."
+		    <<" Symbol ["<<getvername<<"] :"<<dlerror()<< std::endl);
+ 	dlclose(handler);
+	return 0;
+      }
+
+    bbtkDebugMessage("package",3,"* Symbol ["<<getvername
+		     <<"] found"<<std::endl);
+    // version matches ?
+    if (getbbtkversion() != bbtk::GetVersion())
+      {
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] was build with bbtk version "
+		    <<getbbtkversion()
+		    <<" but the current program runs with version "
+		    <<bbtk::GetVersion()<<" : cannot load it"<<std::endl);
+	dlclose(handler);
+	return 0;
+	
+      }
+
+    bbtkDebugMessage("package",3,"* Package bbtk version '"<<getbbtkversion()<<"' matches"<<std::endl);
+	    // Loads the Package get function
+    std::string getpackname(package_name);
+    getpackname += BBTK_STRINGIFY_SYMBOL(BBTK_GET_PACKAGE_FUNCTION_NAME);
+    getpack = (DLGetPackageFunction)(dlsym(handler, getpackname.c_str()));
+    if (!getpack)
+      {
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] is not a valid bbtk package."
+		    <<" Symbol ["<<getpackname<<"] :"<<dlerror()<< std::endl);
+	dlclose(handler);
+	return 0;
+      }
+  
+    bbtkDebugMessage("package",3,"* Symbol ["<<getpackname<<"] found"<<std::endl);
+    // Loads the Package delete function
+					  
+    std::string delpackname(package_name);
+    delpackname += BBTK_STRINGIFY_SYMBOL(BBTK_DEL_PACKAGE_FUNCTION_NAME);
+    delpack = (DLDeletePackageFunction)(dlsym(handler, delpackname.c_str()));
+    if (!delpack)
+      {
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] is not a valid bbtk package."
+		    <<" Symbol ["<<delpackname<<"] :"<<dlerror()<< std::endl);
+	dlclose(handler);
+	return 0;
+      }
+    bbtkDebugMessage("package",3,"* Symbol ["<<delpackname<<"] found"<<std::endl);		  
+#elif defined(_WIN32)
+    
+    HINSTANCE handler;
+    
+    SetErrorMode(0);
+    // Open shared lib
+    handler = LoadLibrary(libname.c_str());
+    if (!handler)
+      {
+	bbtkMessage("package",2,
+		    "Could not open shared library [" <<libname<<"]"
+		    << std::endl);
+	DWORD dwErrorCode = 0;
+	dwErrorCode = GetLastError();
+	bbtkMessage("package",2,
+		"Windows Error: [" << dwErrorCode <<"]"
+		<< std::endl);
+	 
+	return 0;
+      }
+    
+    // Loads the Package bbtk version function 
+    std::string getvername(package_name);
+    getvername += 
+      BBTK_STRINGIFY_SYMBOL(BBTK_GET_PACKAGE_BBTK_VERSION_FUNCTION_NAME);
+    DLGetPackageBBTKVersionFunction getbbtkversion 
+      = (DLGetPackageBBTKVersionFunction)(GetProcAddress(handler,
+							getvername.c_str()));
+    if (!getbbtkversion)
+      {
+	FreeLibrary(handler);
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] is not a valid bbtk package."
+		    <<" Symbol ["<<getbbtkversion<<"] not found"<< std::endl);
+	return 0;
+      }
+    
+    // version matches ?
+    if (getbbtkversion() != bbtk::GetVersion())
+      {
+	FreeLibrary(handler);
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] was build with bbtk version "
+		    <<getbbtkversion()
+		    <<" but the current program runs with version "
+		    <<bbtk::GetVersion()<<" : cannot load it"<<std::endl);
+	return 0;
+	
+      }
+
+     // Loads the Package get function
+    std::string getpackname(package_name);
+    getpackname += BBTK_STRINGIFY_SYMBOL(BBTK_GET_PACKAGE_FUNCTION_NAME);
+    getpack = (DLGetPackageFunction)(GetProcAddress(handler, getpackname.c_str()));
+    if (!getpack)
+      {
+	FreeLibrary(handler);
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] is not a valid bbtk package."
+		    <<" Symbol ["<<getpackname<<"] not found"<< std::endl);
+	return 0;
+      }
+    
+    // Loads the Package delete function
+    std::string delpackname(package_name);
+    delpackname += BBTK_STRINGIFY_SYMBOL(BBTK_DEL_PACKAGE_FUNCTION_NAME);
+    delpack = (DLDeletePackageFunction)(GetProcAddress(handler, delpackname.c_str()));
+    if (!delpack)
+      {
+	FreeLibrary(handler);
+	bbtkMessage("package",2,
+		    "Shared library ["<<libname
+		    <<"] is not a valid bbtk package."
+		    <<" Symbol ["<<delpackname<<"] not found"<< std::endl);
+	return 0;
+      }
+					 
+#else
+    bbtkError("neither __GNUC__ nor _WIN32 ?!? How did you compile ?");
+#endif
+    
+    return handler;
+  }
+  //==========================================================================
+  
+  //==========================================================================
+  /// Loads a package from a dynamic library
+  Package::Pointer Package::CreateFromDynamicLibrary(const std::string& libname,
+						     const std::string& pkgname,
+						     const std::string& path)
+  {
+    bbtkDebugMessage("package",1,"==> Package::CreateFromDynamicLibrary("
+		     <<libname<<")"<<std::endl);
+
+    DLGetPackageFunction gf;
+    DLDeletePackageFunction df;
+    DynamicLibraryHandler h = Package::OpenDynamicLibrary(libname,
+							  pkgname,
+							  gf,df);
+    if (h==0) return Package::Pointer(); 
+    Package::Pointer p = gf();
+    p->mDynamicLibraryHandler = h;
+    p->mDLDeletePackageFunction = df;
+    
+    std::string separator =
+      ConfigurationFile::GetInstance().Get_file_separator ();
+    //BBTK_STRINGIFY_SYMBOL(BBTK_DOC_REL_PATH)
+    std::string docreldoc = 
+      separator + "bbdoc" + separator + pkgname + separator + "index.html";
+    std::string reldoc = 
+      ".." + separator + ".." + docreldoc;
+    std::string doc = path + separator + ".." + separator
+      + BBTK_STRINGIFY_SYMBOL(BBTK_DOC_REL_PATH)
+      + docreldoc;
+    
+    p->SetDocURL(doc);
+    p->SetDocRelativeURL(reldoc);
+    
+    bbtkDebugMessage("package",2,"<== Package::CreateFromDynamicLibrary("
+		     <<libname<<") .. OK"<<std::endl);
+    return p;
+  }
+  //==========================================================================
+
+
+
+
+  //==========================================================================
+  /// UnLoads the package dynamic library (if any)
+  void Package::UnLoadDynamicLibrary(Package::WeakPointer pack, bool doit)
+  {
+    if (pack.expired() || (!pack.lock()->mDynamicLibraryHandler))
+      return;
+    
+    
+    std::string packname = pack.lock()->GetName();
+    bbtkDebugMessage("package",5,"==> Package::UnLoadDynamicLibrary('"
+		     <<packname<<"')"
+		     <<std::endl);
+    
+    if (!pack.lock()->GetBlackBoxMap().empty())
+      {
+	
+	bbtkDebugMessage("package",5,"   Package not empty ... abort"
+			 <<std::endl);
+	return;
+	/*
+	bbtkGlobalError("Package::UnLoadDynamicLibrary('"<<packname<<") : "
+			<<"BlackBoxMap not empty "
+			<<BBTK_INTERNAL_ERROR_MESSAGE);
+	*/
+	
+      }
+
+    if (pack.use_count()!=1)
+      {
+	bbtkGlobalError("Package::UnLoadDynamicLibrary('"<<packname<<") : "
+			<<"empty dl package with external refs"
+			<<BBTK_INTERNAL_ERROR_MESSAGE);
+      } 
+
+    if (doit) 
+      {
+	UnLoad(pack);
+	bbtkDebugMessage("package",5,"==> dynamic library for package '"
+			 <<packname<<"' closed"
+			 <<std::endl);    
+      }
+    else 
+      {
+	mReleasedDynamicallyLoadedPackages.insert(pack);
+	bbtkDebugMessage("package",1,"==> package '"<<packname
+			 <<"' put in the 'to unload' list"
+			 <<std::endl);
+
+      }
+
+    bbtkDebugMessage("package",5,"<== Package::UnLoadDynamicLibrary('"
+		     <<packname<<"')"
+		     <<std::endl);
+    
+  }
+  //==========================================================================
+
+  //==========================================================================
+  /// UnLoads released packages that were loaded dynamically
+  /// see UnLoadDynamicLibrary and ReleaseBlackBoxDescriptor
+  void Package::UnLoadReleasedDynamicallyLoadedPackages()
+  {
+    bbtkDebugMessage("package",5,"==> Package::UnLoadReleasedDynamicallyLoadedPackages()"<<std::endl);
+
+    std::set<Package::WeakPointer>::iterator i;
+
+//JCP- 21-04-09
+	if(mReleasedDynamicallyLoadedPackages.size()>0){
+		for (i=mReleasedDynamicallyLoadedPackages.begin();
+		i!=mReleasedDynamicallyLoadedPackages.end();
+		++i)
+		{
+		if (!i->expired()) UnLoad(*i);
+		}
 	}
-    */ 
-    bbtkDebugDecTab("Core",7);
+//JCP- 21-04-09
+    bbtkDebugMessage("package",5,"<== Package::UnLoadReleasedDynamicallyLoadedPackages()"<<std::endl);
   }
   //==========================================================================
 
+  //==========================================================================
+  void Package::UnLoad(Package::WeakPointer pack)
+  {
+    std::string packname = pack.lock()->GetName();
+    bbtkDebugMessage("package",6,"==> Package::UnLoad("<<packname<<")"<<std::endl);
 
+    Package* p = pack.lock().get();
+    
+    DynamicLibraryHandler h = p->mDynamicLibraryHandler;
+    
+    // deletes the package
+    p->mDLDeletePackageFunction();
+    
+    // closes the dl handler
+#if defined(__GNUC__)  
+	  if (dlclose(h)!=0)
+	  {
+		  printf("EED Package::UnLoad ERROR %s\n", packname.c_str() );
+		  bbtkWarning("Failed to close dynamic library for package '"<<packname
+					  <<"'"<<std::endl);
+	  }  
+	  
+#elif defined(_WIN32)
+    FreeLibrary(h);
+#endif
+
+    bbtkDebugMessage("package",1,"==> dynamic library for package '"
+		     <<packname<<"' closed"
+		     <<std::endl);    
+    bbtkDebugMessage("package",6,"   ... dynamic library unloaded"<<std::endl);
+  }
+  //==========================================================================
 
   //==========================================================================
   /// Creates an instance of a black box of type <type> with name <name>
-  BlackBox* Package::NewBlackBox(const std::string& type, 
-				    const std::string& name) const
+  BlackBox::Pointer Package::NewBlackBox(const std::string& type, 
+					 const std::string& name) const
   {
-    bbtkDebugMessageInc("Core",8,"Package<"<<GetName()<<">::NewBlackBox(\""<<type<<"\",\""<<name<<"\")"<<bbtkendl);
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<">::NewBlackBox(\""<<type<<"\",\""<<name<<"\")"<<bbtkendl);
     
     BlackBoxMapType::const_iterator i = mBlackBoxMap.find(type);
     if (i == mBlackBoxMap.end())  
-      {
-	bbtkDebugDecTab("Core",8);
-	return 0;
-      }
-    BlackBox* bb =i->second->CreateInstance(name);
-    bbtkDebugDecTab("Core",8);
+    {
+	   bbtkDebugDecTab("Kernel",8);
+	   return BlackBox::Pointer();
+    }
+    BlackBox::Pointer bb =i->second->NewBlackBox(name);
+    bbtkDebugDecTab("Kernel",8);
     return bb;   
 
   }
@@ -120,137 +707,249 @@ namespace bbtk
   //==========================================================================
   /// Creates an instance of an adaptor of input type <typein> and 
   /// output type <typeout>  with name <name>
-  BlackBox* Package::NewAdaptor(TypeInfo typein,
-				   TypeInfo typeout,
-				   const std::string& name) const
+  BlackBox::Pointer Package::NewAdaptor(const DataInfo& typein,
+				const DataInfo& typeout,
+				const std::string& name) const
   {
-    bbtkDebugMessageInc("Core",8,"Package<"<<GetName()<<
-			">::NewAdaptor(<"
-			<<TypeName(typein)<<">,<"
-			<<TypeName(typeout)<<">,\""
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<
+			">::NewAdaptor("
+			<<typein<<","
+			<<typeout<<",\""
 			<<name<<"\")"<<bbtkendl);
 
-    AdaptorKey key(typein,typeout);
+    AdaptorKey key(typein,typeout,
+		   BlackBoxDescriptor::DEFAULT_ADAPTOR);
     AdaptorMapType::const_iterator i = mAdaptorMap.find(key);
     if (i == mAdaptorMap.end())  
       {
-	bbtkDebugDecTab("Core",8);
-	return 0;
+	bbtkDebugDecTab("Kernel",8);
+	return BlackBox::Pointer();
       }
-    BlackBox* bb =i->second->CreateInstance(name);
-    bbtkDebugDecTab("Core",8);
+    BlackBox::Pointer bb =i->second.lock()->NewBlackBox(name);
+    bbtkDebugDecTab("Kernel",8);
     return bb;   
 
   }
   //==========================================================================
 
+  //==========================================================================
+  /// Creates an instance of an adaptor of input type <typein> and 
+  /// output type <typeout>  with name <name>
+  BlackBox::Pointer Package::NewWidgetAdaptor(const DataInfo& typein,
+				      const DataInfo& typeout,
+				      const std::string& name) const
+  {
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<
+			">::NewWidgetAdaptor("
+			<<typein<<","
+			<<typeout<<",\""
+			<<name<<"\")"<<bbtkendl);
+
+    AdaptorKey key(typein,typeout,
+		   BlackBoxDescriptor::DEFAULT_GUI);
+    AdaptorMapType::const_iterator i = mAdaptorMap.find(key);
+    if (i == mAdaptorMap.end())  
+      {
+	bbtkDebugDecTab("Kernel",8);
+	return BlackBox::Pointer();
+      }
+    BlackBox::Pointer bb =i->second.lock()->NewBlackBox(name);
+    bbtkDebugDecTab("Kernel",8);
+    return bb;   
+
+  }
+  //==========================================================================
+
+
+
+  //==========================================================================
+  /// Returns true is the package contains 
+  /// an adaptor of input type <typein> and 
+  /// output type <typeout>
+  /// If successfull then adaptor contains the black box type name
+  bool Package::FindWidgetAdaptor(const DataInfo& typein,
+				  const DataInfo& typeout,
+				  std::string& adaptor) const
+  {
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<
+			">::FindWidgetAdaptor("
+			<<typein<<","
+			<<typeout<<")"<<bbtkendl);
+   
+    AdaptorKey key(/*typein*/
+		   DataInfo(typeid(void),""),
+		   typeout,
+		   BlackBoxDescriptor::DEFAULT_GUI);
+    // First try to find a single widget adaptor
+    AdaptorMapType::const_iterator i = mAdaptorMap.find(key);
+    if (i == mAdaptorMap.end())  
+      {
+	bbtkDebugDecTab("Kernel",8);
+	return false;
+      }
+    adaptor = i->second.lock()->GetTypeName();
+    bbtkDebugDecTab("Kernel",8);
+    return true;   
+
+  }
+  //==========================================================================
+
 
 
+  //==========================================================================
+  /// Returns true is the package contains 
+  /// an adaptor of input type <typein> and 
+  /// output type <typeout>
+  /// If successfull then adaptor contains the black box type name
+  bool Package::FindAdaptor(const DataInfo& typein,
+			    const DataInfo& typeout,
+			    std::string& adaptor) const
+  {
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<
+			">::FindAdaptor("
+			<<typein<<","
+			<<typeout<<")"<<bbtkendl);
+    
+    AdaptorKey key(typein,typeout,
+		   BlackBoxDescriptor::DEFAULT_ADAPTOR);
+    AdaptorMapType::const_iterator i = mAdaptorMap.find(key);
+    if (i == mAdaptorMap.end())  
+      {
+	bbtkDebugDecTab("Kernel",8);
+	return false;
+      }
+    adaptor = i->second.lock()->GetTypeName();
+    bbtkDebugDecTab("Kernel",8);
+    return true;   
+
+  }
+  //==========================================================================
+
 
   //==========================================================================
   /// Registers a black box descriptor in the package
-  bool Package::RegisterBlackBox(BlackBoxDescriptor* d) 
+  bool Package::RegisterBlackBox(BlackBoxDescriptor::Pointer d) 
   {
-    bbtkDebugMessageInc("Core",8,"Package<"<<GetName()<<">::RegisterBlackBox(\""<<d->GetTypeName()<<"\")"<<std::endl);
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<">::RegisterBlackBox(\""<<d->GetTypeName()<<"\")"<<std::endl);
     
+    BlackBoxMapType::iterator i = mBlackBoxMap.find(d->GetTypeName());
+    if (i!=mBlackBoxMap.end())
+      {
+	bbtkWarning("Package<"<<GetName()<<"> : Trying to register box type <"
+		    <<d->GetTypeName()<<"> which is already in the package");
+	return false;
+      }
+
     mBlackBoxMap[d->GetTypeName()] = d;
-    d->SetPackage(this);
+    //    d->Reference();
+    d->SetPackage(GetThisPointer<Package>());
     
     // If it is a default adaptor, also register it in the adaptors map
-    if ( d->GetCategory() == BlackBoxDescriptor::DEFAULT_ADAPTOR) 
+    if ( d->GetKind() == BlackBoxDescriptor::DEFAULT_ADAPTOR )
       {
+	bbtkDebugMessage("Kernel",8,"Package<"<<GetName()<<">::RegisterBlackBox(\""<<d->GetTypeName()<<"\") : The box is an adaptor, inserting it in adaptors map ..."<<std::endl);   
+	
 	TypeInfo typein = d->GetInputDescriptor("In")->GetTypeInfo();
 	TypeInfo typeout = d->GetOutputDescriptor("Out")->GetTypeInfo();
-	AdaptorKey key(typein,typeout);
-	AdaptorMapType::const_iterator i = mAdaptorMap.find(key);
+	DataInfo infoin(typein,d->GetInputDescriptor("In")->GetNature());
+	DataInfo infoout(typeout,d->GetOutputDescriptor("Out")->GetNature());
+	AdaptorKey key(infoin,infoout,d->GetKind());
+	
+	AdaptorMapType::const_iterator i;
+	i = mAdaptorMap.find(key);	  
 	if (i == mAdaptorMap.end())  
 	  {
-	    bbtkDebugMessage("Core",8,"The box is an adaptor, inserting it in adaptors map ..."<<std::endl);	   
 	    mAdaptorMap[key] = d;
 	  }
 	// If already an adaptor registered : error
 	else 
 	  {
-	    bbtkError("Package <"<<GetName()<<
-		      "> : trying to register black box <"
-		      <<d->GetTypeName()
-		      <<"> as default adaptor but there is already a default adaptor registered (<"
-		      <<i->second->GetTypeName()<<">)");
+	    if (i->second.lock()->GetTypeName() != d->GetTypeName()) 
+	      {
+		bbtkError("Package <"<<GetName()<<
+			  "> : trying to register black box <"
+			  <<d->GetTypeName()
+			  <<"> as default adaptor but there is already a default adaptor registered (<"
+			  <<i->second.lock()->GetTypeName()<<">)");
+	      }
 	  }
+      }
+    // If it is a default adaptor, also register it in the adaptors map
+    else if ( d->GetKind() == BlackBoxDescriptor::DEFAULT_GUI)
+      {
+	bbtkDebugMessage("Kernel",8,"Package<"<<GetName()<<">::RegisterBlackBox(\""<<d->GetTypeName()<<"\") : The box is a widget adaptor, inserting it in adaptors map ..."<<std::endl);   
 	
+	TypeInfo typeout = d->GetOutputDescriptor("Out")->GetTypeInfo();
+	DataInfo infoin(typeid(void),"");
+	DataInfo infoout(typeout,d->GetOutputDescriptor("Out")->GetNature());
+	AdaptorKey key(infoin,infoout,d->GetKind());
 
+	AdaptorMapType::const_iterator i;
+	i = mAdaptorMap.find(key);	  
+	if (i == mAdaptorMap.end())  
+	  {
+	    mAdaptorMap[key] = d;
+	  }
+	// If already an adaptor registered : error
+	else 
+	  {
+	    if (i->second.lock()->GetTypeName() != d->GetTypeName()) 
+	      {
+		bbtkError("Package <"<<GetName()<<
+			  "> : trying to register black box <"
+			  <<d->GetTypeName()
+			  <<"> as default widget adaptor but there is already a default adaptor registered (<"
+			  <<i->second.lock()->GetTypeName()<<">)");
+	      }
+	  }
       }
     
-    bbtkDebugDecTab("Core",8);
+
+    bbtkDebugDecTab("Kernel",8);
    
     return true;
   }
   //==========================================================================
   
-
-  //==========================================================================
-  /// UnRegisters a black box descriptor from the package
-  void Package::UnRegisterBlackBox(const std::string& name) 
+  //===================================================================
+  void Package::CheckBoxes() const
   {
-    bbtkDebugMessageInc("Core",8,"Package<"<<GetName()<<">::UnRegisterBlackBox(\""<<name<<"\")"<<std::endl);
-    // Looking into the bb map
-    BlackBoxMapType::iterator i = mBlackBoxMap.find(name);
-    if (i == mBlackBoxMap.end())  
-      {
-	bbtkDebugDecTab("Core",8);
-	bbtkError("UnRegister : The package <"<<GetName()<<"> does not contains the black box <"<<name<<">");
-      }
-    mBlackBoxMap.erase(i);
-    // Is it also in the adaptors map ?
-    /*
-    AdaptorMapType::iterator j = mAdaptorMap.find(name);
-    if (j != mAdaptorMap.end())  
+    bbtkMessage("debug",1,"****** Checking Package "<<(void*)this
+		<<" ["<<GetName()<<"]"<<std::endl);
+    BlackBoxMapType::const_iterator i;
+    for (i=mBlackBoxMap.begin();
+	 i!=mBlackBoxMap.end();
+	 ++i) 
       {
-	mAdaptorMap.erase(j);
+	i->second->Check(true);
       }
-    */    
-    bbtkDebugDecTab("Core",8);    
+    bbtkMessage("debug",1,"****** Checking Package "<<(void*)this
+		<<" ["<<GetName()<<"] ... OK"<<std::endl);
   }
-  //==========================================================================
+  //===================================================================
+
 
   //==========================================================================
   /// Changes the name of a black box type
   void Package::ChangeBlackBoxName( const std::string& oldname, const std::string& newname )
   { 
-    bbtkDebugMessageInc("Core",8,"Package<"<<GetName()<<">::ChangeBlackBoxName(\""<<oldname<<"\",\""<<newname<<"\")"<<std::endl);
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<">::ChangeBlackBoxName(\""<<oldname<<"\",\""<<newname<<"\")"<<std::endl);
     // Looking into the bb map
     BlackBoxMapType::iterator i = mBlackBoxMap.find(oldname);
     if (i == mBlackBoxMap.end())  
       {
-	bbtkDebugDecTab("Core",8);
-	bbtkError("ChangeBlackBoxName : The package <"<<GetName()<<"> does not contains the black box <"<<oldname<<">");
+         bbtkDebugDecTab("Kernel",8);
+         bbtkError("ChangeBlackBoxName : The package <"<<GetName()<<"> does not contains the black box <"<<oldname<<">");
       }
 
     i->second->SetTypeName(newname);
     mBlackBoxMap[newname] = i->second;
     mBlackBoxMap.erase(i);
 
-    bbtkDebugDecTab("Core",8);    
+    bbtkDebugDecTab("Kernel",8);    
   }
   //==========================================================================
 
-  /*
-
-  //==========================================================================
-  /// Registers an adaptor descriptor in the package
-  bool Package::RegisterAdaptor(BlackBoxDescriptor* d) 
-  {
-    bbtkDebugMessage("Core",8,"Package<"<<GetName()<<">::RegisterAdaptor(\""<<d->GetTypeName()<<"\")"<<std::endl);
-    
-    TypeInfo typein = d->GetInputDescriptor("In")->GetTypeInfo();
-    TypeInfo typeout = d->GetOutputDescriptor("Out")->GetTypeInfo();
-    AdaptorKey key(typein,typeout);
-    
-    mAdaptorMap[key] = d;
-    return true;
-  }
-  //==========================================================================
-  */
 
 
   //==========================================================================
@@ -259,7 +958,7 @@ namespace bbtk
   {
     unsigned int lmax = 0;
     std::vector<std::string> names;
-    std::vector<std::string> categs;
+    std::vector<std::string> kinds;
     std::vector<std::string> descrs;
 
     BlackBoxMapType::const_iterator i;
@@ -268,25 +967,25 @@ namespace bbtk
 	 ++i) 
       {
 	if ( adaptors || 
-	     ( i->second->GetCategory() == BlackBoxDescriptor::STANDARD) ) 
+	     ( i->second->GetKind() == BlackBoxDescriptor::STANDARD) ) 
 	  {
 	    std::string name("  ");
 	    name += i->second->GetTypeName();
 	    names.push_back(name);
 
-	    std::string categ;
-	    if ( i->second->GetCategory() == BlackBoxDescriptor::ADAPTOR )
+	    std::string kind;
+	    if ( i->second->GetKind() == BlackBoxDescriptor::ADAPTOR )
 	      {
-		categ = std::string("[A]");
+		kind = std::string("[A]");
 	      }
-	    else if ( i->second->GetCategory() == 
+	    else if ( i->second->GetKind() == 
 		      BlackBoxDescriptor::DEFAULT_ADAPTOR )
 	      {
-		categ = std::string("[DA]");
+		kind = std::string("[DA]");
 	      }
-	    categs.push_back(categ);
+	    kinds.push_back(kind);
 
-	    unsigned int l = name.size()+categ.size();
+	    unsigned int l = name.size()+kind.size();
 	    if (l>lmax) lmax = l;
 
 	    std::string descr;
@@ -303,7 +1002,7 @@ namespace bbtk
     std::string offs;
     offs.append(lmax+3,' ');
     std::vector<std::string>::iterator ni,ci,di;
-    for (ni = names.begin(), ci = categs.begin(), di = descrs.begin();
+    for (ni = names.begin(), ci = kinds.begin(), di = descrs.begin();
 	 ni != names.end(); ++ni, ++ci, ++di)
       {
 	std::string space;
@@ -318,7 +1017,7 @@ namespace bbtk
 	else 
 	  bbtkMessage("Help",1,d << std::endl);
 	//    d = d.substr(dmax,d.size());
-	//  }	
+	//  }
       }
 
   }
@@ -333,11 +1032,11 @@ namespace bbtk
 	 i!=mBlackBoxMap.end();
 	 ++i) 
       {
-	if ( i->second->GetCategory() != BlackBoxDescriptor::STANDARD ) 
+	if ( i->second->GetKind() != BlackBoxDescriptor::STANDARD ) 
 	  {
 	    bbtkMessage("Help",1,
 			"  "<<i->second->GetTypeName());
-	    if ( i->second->GetCategory() == 
+	    if ( i->second->GetKind() == 
 		 BlackBoxDescriptor::DEFAULT_ADAPTOR )
 	      {
 		bbtkMessage("Help",1,
@@ -347,7 +1046,7 @@ namespace bbtk
 	      {
 		bbtkMessage("Help",1,
 			    " : "<<i->second->GetDescription());
-		
+
 	      } 
 	    bbtkMessage("Help",1,std::endl);
 	  }
@@ -364,7 +1063,7 @@ namespace bbtk
 	  {
 	    bbtkMessage("Help",1,
 			" : "<<i->second->GetDescription());
-	  
+  
 	  } 
 	bbtkMessage("Help",1,std::endl);
       }
@@ -376,18 +1075,18 @@ namespace bbtk
   /// Prints help on a black box
   void Package::HelpBlackBox(const std::string& name, bool full) const
   {
-    bbtkDebugMessageInc("Core",8,"Package<"<<GetName()<<">::HelpBlackBox(\""
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<">::HelpBlackBox(\""
 			<<name<<"\")"<<bbtkendl);
 
     BlackBoxMapType::const_iterator i = mBlackBoxMap.find(name);
     if (i == mBlackBoxMap.end())  
       {
-	bbtkDebugDecTab("Core",8);
+	bbtkDebugDecTab("Kernel",8);
 	bbtkError("The package <"<<GetName()<<"> does not contains the black box <"<<name<<">");
       }
     //    bbtkMessage("Help",1,"["<<GetName()<<"] ");
     i->second->GetHelp(full);
-    bbtkDebugDecTab("Core",8);
+    bbtkDebugDecTab("Kernel",8);
 
   }
   //==========================================================================
@@ -397,16 +1096,16 @@ namespace bbtk
   /// Returns true iff the package contains the box of name boxname
   bool Package::ContainsBlackBox(const std::string& name) const 
   {
-    bbtkDebugMessageInc("Core",8,"Package<"<<GetName()<<">::HelpBlackBox(\""
+    bbtkDebugMessageInc("Kernel",8,"Package<"<<GetName()<<">::HelpBlackBox(\""
 			<<name<<"\")"<<bbtkendl);
     
     BlackBoxMapType::const_iterator i = mBlackBoxMap.find(name);
     if (i == mBlackBoxMap.end())  
-      {
-	bbtkDebugDecTab("Core",8);
-	return false;
-      }
-    bbtkDebugDecTab("Core",8);
+    {
+      bbtkDebugDecTab("Kernel",8);
+      return false;
+    }
+    bbtkDebugDecTab("Kernel",8);
     return true;
   }
   //==========================================================================
@@ -416,14 +1115,14 @@ namespace bbtk
   //==========================================================================
   void Package::CreateHtmlPage(const std::string& filename,
 			       const std::string& caller,
-			       const std::string& source,	
+			       const std::string& source,
 			       const std::string& custom_header,
 			       const std::string& custom_title,
 			       int detail, 
 			       int level,
 			       bool relative_link ) const
   {
-    bbtkDebugMessageInc("Core",9,"Package<"<<GetName()<<">::CreateHtmlPage(\""
+    bbtkDebugMessageInc("Kernel",9,"Package<"<<GetName()<<">::CreateHtmlPage(\""
 			<<filename<<"\")"<<bbtkendl);
 
     //---------------------
@@ -431,9 +1130,9 @@ namespace bbtk
     std::ofstream s;
     s.open(filename.c_str());
     if (!s.good()) 
-      {
-	bbtkError("Package "<<GetName()<<" : CreateHtmlPage : could not open file '"<<filename<<"'");
-      }
+    {
+       bbtkError("Package "<<GetName()<<" : CreateHtmlPage : could not open file '"<<filename<<"'");
+    }
     
     //----------------------
     // Html head
@@ -508,10 +1207,12 @@ namespace bbtk
 	  << GetDescription() << "</TD></TR>\n";
 	s << "<TR><TD style='vertical-align: top;'><b> Author(s) </b></TD><TD style='vertical-align: top;'> : </TD><TD style='vertical-align: top;'>  " 
 	  << GetAuthor() << "</TD></TR>\n";
-	s << "<TR><TD style='vertical-align: top;'><b> Version </b></TD><TD style='vertical-align: top;'> : </TD><TD style='vertical-align: top;'> " 
+	s << "<TR><TD style='vertical-align: top;'><b> Author(s) </b></TD><TD style='vertical-align: top;'> : </TD><TD style='vertical-align: top;'>  " 
+	  << GetCategory() << "</TD></TR>\n";
+  	s << "<TR><TD style='vertical-align: top;'><b> Version </b></TD><TD style='vertical-align: top;'> : </TD><TD style='vertical-align: top;'> " 
 	  << GetVersion() << "</TD></TR>\n";
 	s << "<TR><TD style='vertical-align: top;'><b> bbtk Version </b></TD><TD style='vertical-align: top;'> : </TD><TD style='vertical-align: top;'> " 
-	  << GetBBTKVersion() << "</TD></TR>\n";
+	  << bbtk::GetVersion() << "</TD></TR>\n";
 	s << "</TABLE>\n";
       }
 
@@ -527,16 +1228,17 @@ namespace bbtk
     BlackBoxMapType::const_iterator i;
     for (i=mBlackBoxMap.begin(); i!=mBlackBoxMap.end(); ++i) 
       {
-	if ( i->second->GetCategory() != BlackBoxDescriptor::STANDARD) 
+	if ( i->second->GetKind() != BlackBoxDescriptor::STANDARD) 
 	  continue;
 	
 	std::string name = i->second->GetTypeName();
 	Utilities::html_format(name);
 	std::string descr = i->second->GetDescription();
-	
+	//Utilities::html_format(descr);
+
         s << "<TR>";
 	s << "<TD style='vertical-align: top;'>";
-	s << "<li><a name=\"toc_"<<name
+	s << "&nbsp;&nbsp;&nbsp;<a name=\"toc_"<<name
 	  <<"\" href=\"#"<<name<<"\">"
 	  <<name<<"</a>";
 	s << "</TD> ";
@@ -546,7 +1248,7 @@ namespace bbtk
     s << "</TABLE>\n";
     
     
-    s << "</li></ul>\n";
+    s << "</ul>\n";
     s << "</div>\n";
     
     //-------------------
@@ -556,21 +1258,21 @@ namespace bbtk
 	//  s << "<div class=\"contents\">\n";
 	s << "<p><b> Adaptors : </b>\n";
 	s << "<ul>\n";
-	
+
 	//    BlackBoxMapType::const_iterator i;
 	s << "<p><TABLE cellspacing=0  cellpadding=3>\n";
 	for (i=mBlackBoxMap.begin(); i!=mBlackBoxMap.end();++i) 
 	  {
-	    if ( i->second->GetCategory() == BlackBoxDescriptor::STANDARD) 
+	    if ( i->second->GetKind() == BlackBoxDescriptor::STANDARD) 
 	      continue;
-	    
+    
 	    std::string name = i->second->GetTypeName();
 	    Utilities::html_format(name);
 	    std::string descr = i->second->GetDescription();
-	    
+    
 	    s << "<TR>";
 	    s << "<TD style='vertical-align: top;'>";
-	    s << "<li><a name=\"toc_"<<name
+	    s << "&nbsp;&nbsp;&nbsp;<a name=\"toc_"<<name
 	      <<"\" href=\"#"<<name<<"\">"
 	      <<name<<"</a>";
 	    s << "</TD> ";
@@ -578,8 +1280,8 @@ namespace bbtk
 	    s << "</TR>\n";
 	  }    
 	s << "</TABLE>\n";
-	
-	s << "</li></ul>\n";
+
+	s << "</ul>\n";
 	s << "</div>\n";
       }
     
@@ -601,11 +1303,13 @@ namespace bbtk
     // Computes output directory from filename to pass it to 
     // BlackBoxDescriptor::InsertHtmlHelp
     std::string dir;
-    std::string::size_type slash_position = 
-      filename.find_last_of(ConfigurationFile::GetInstance().Get_file_separator ());
-    if (slash_position != std::string::npos) {
+
+    std::string::size_type slash_position = filename.find_last_of("/\\");
+
+
+	if (slash_position != std::string::npos) {
       if (slash_position == 0)
-	slash_position = 1;  
+         slash_position = 1;  
       dir = filename.substr(0,slash_position);
     }
 
@@ -624,8 +1328,9 @@ namespace bbtk
     ptm = gmtime ( &rawtime );
 
     s << "<p><hr>\n";
-    s << "Automatically generated by <b>"<<caller<<"</b> from <b>"
-      <<source<<"</b> on "
+    s << "Automatically generated by <b>"<<caller<<"</b> "//from <b>"
+      //      <<source<<"</b>
+      <<"on "
       << ptm->tm_mday << "/" << ptm->tm_mon << "/" << ptm->tm_year+1900 
       << " - " << ptm->tm_hour << ":" << ptm->tm_min << " GMT\n";
     s << "</body></html>\n"; 
@@ -633,8 +1338,64 @@ namespace bbtk
     //----------------------
 
     // End
-    bbtkDebugDecTab("Core",9);
+    bbtkDebugDecTab("Kernel",9);
+  }
+  //==========================================================================
+  
+  //==========================================================================
+  std::string  Package::GetObjectName() const 
+  { 
+    return std::string("Package '")+mName+std::string("'"); 
+  }
+  //==========================================================================
+
+  //==========================================================================
+  std::string Package::GetObjectInfo() const 
+  {
+    std::stringstream i;
+    i << "  - "<<mBlackBoxMap.size() << " boxes" << std::endl;
+    if (mDynamicLibraryHandler) 
+      {
+	i<< "  - Loaded from dynamic library"<<std::endl;
+      }
+    return i.str();
+  }
+  //==========================================================================
+
+
+  //==========================================================================
+  size_t  Package::GetObjectSize() const 
+  {
+    size_t s = Superclass::GetObjectSize();
+    s += Package::GetObjectInternalSize();
+    return s;
+  }
+  //==========================================================================
+  //==========================================================================
+  size_t  Package::GetObjectInternalSize() const 
+  {
+    size_t s = sizeof(Package);
+    return s;
+  }
+  //==========================================================================
+  //==========================================================================
+  size_t  Package::GetObjectRecursiveSize() const 
+  {
+    size_t s = Superclass::GetObjectRecursiveSize();
+    s += Package::GetObjectInternalSize();
+    
+    BlackBoxMapType::const_iterator i;
+    for (i = mBlackBoxMap.begin(); i!=mBlackBoxMap.end(); ++i )
+      {
+	s += i->second->GetObjectRecursiveSize();
+      }
+    return s;
   }
   //==========================================================================
+  
+  //==========================================================================
+  std::set<Package::WeakPointer> 
+  Package::mReleasedDynamicallyLoadedPackages;
+  //==========================================================================
 }