/*=========================================================================
                                                                                
Program:   bbtk
Module:    $RCSfile: bbtkFactory.cxx,v $
Language:  C++

Date:      $Date: 2008/01/30 09:28:15 $
Version:   $Revision: 1.7 $
                                                                                

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.

=========================================================================*/
/**
 *\file
 *\brief  Class bbtk::Factory : can load and unload dynamic libraries containing 
 *        black boxes packages and create instances of the black boxes registered 
 *       in the packages loaded.
 */
#include "bbtkFactory.h"
#include "bbtkMessageManager.h"
#include "bbtkConnection.h"
#include "bbtkConfigurationFile.h"
#include "bbtkUtilities.h"

#include <sys/stat.h> // for struct stat stFileInfo

#if defined(_WIN32)
#include <direct.h> // for getcwd
#endif


// was in gdcm ...
/*
#ifdef _MSC_VER
#   define getcwd _getcwd
#endif

#if defined(_MSC_VER) || defined(__BORLANDC__)
#   include <direct.h>
#else
#   include <unistd.h>
#endif

*/


namespace bbtk
{
  typedef Package* (*PackageAccessor)();
  typedef void (*PackageDeleteFunction)();


  //===================================================================
  /// Default ctor
  Factory::Factory()
  {
    bbtkDebugMessage("Core",7,"Factory::Factory()"<<std::endl);
  }
  //===================================================================

  //===================================================================
  /// Dtor
  Factory::~Factory()
  {
    bbtkDebugMessageInc("Core",7,"Factory::~Factory()"<<std::endl);
    CloseAllPackages();
    bbtkDebugDecTab("Core",7);
  }
  //===================================================================


  //===================================================================
  void Factory::CloseAllPackages()
  {
    bbtkDebugMessageInc("Core",7,"Factory::CloseAllPackages()"<<std::endl);
    while (mPackageMap.begin() != mPackageMap.end())
      {
        PackageMapType::iterator i = mPackageMap.begin();
        ClosePackage(i);
      }
    bbtkDebugDecTab("Core",7);
  }
  //===================================================================

  //===================================================================
  void Factory::Reset()
  {
    bbtkDebugMessageInc("Core",7,"Factory::Reset()"<<std::endl);
    CloseAllPackages();
    bbtkDebugDecTab("Core",7);
  }
  //===================================================================


// ===================================================================================

  bool Factory::DoLoadPackage(std::string libname,
                              std::string pkgname,
                              std::string path,
                              bool verbose)
  {

#if defined(__GNUC__)

        void *handler;
        handler = dlopen(libname.c_str(),
                                     BBTK_RTLD_TIME | BBTK_RTLD_SCOPE );
        if (!handler)
        {
        // The following is *NOT* a debug time message :
        // It's a user intended message.
        // Please don't remove it.
          if (verbose) {
            std::cout <<"[" <<libname<<"] can't be open" << std::endl;
            std::cout << "   " <<dlerror() << std::endl;
          }
          return false; // try next path
        }

        // The following is *NOT* a debug time message :
        // It's a user intended message.
        // Please don't remove it.
        if (verbose)
          std::cout <<"   -->[" <<libname<<"] found" << std::endl;

      // Loads the Package accessor

        std::string getpackname(pkgname);
        getpackname += "GetPackage";
        void *getpack = dlsym(handler, getpackname.c_str());
        if (!getpack)
        {
          dlclose(handler);
          bbtkError("GetPackage : could not load package \""<<pkgname
                   <<"\" [symbol "<<getpackname<<"] :"<<dlerror());
        }

        // Verifies that the Package delete function is present
        std::string delfname(pkgname);
        delfname += "DeletePackage";
        void *delf = dlsym(handler, delfname.c_str());
        if (!delf)
        {
          dlclose(handler);
          bbtkError("DeletePackage : could not load package \""<<pkgname
                    <<"\" [symbol "<<delfname<<"] :"<<dlerror());
        }

#elif defined(_WIN32)

        HINSTANCE handler;

        SetErrorMode(0);
        handler = LoadLibrary(libname.c_str());
        if (!handler){
          if (verbose)
        // The following is *NOT* a debug time message :
        // It's a user intended message.
        // Please don't remove it.
            std::cout <<"   no handler for [" <<libname<<"];" << std::endl;
          return false;// Problem with the found library
        }
        if (verbose)
          std::cout <<"   --->[" <<libname<<"] found" << std::endl;

    // Loads the Package accessor

        std::string getpackname(pkgname);
        getpackname += "GetPackage";
        void *getpack = GetProcAddress(handler, getpackname.c_str());
        if (!getpack)
        {
          FreeLibrary(handler);
          bbtkError("[1]could not load package \""<<pkgname
          <<"\" : "<<getpackname<<" symbol not found (is it a bbtk package lib ?)");
          // look how to get the error message on win
              //<<dlerror());
        }
        // Verifies that the Package delete function is present
        std::string delfname(pkgname);
        delfname += "DeletePackage";
        void *delf = GetProcAddress(handler, delfname.c_str());
        if (!delf)
        {
          FreeLibrary(handler);
          bbtkError("[2]could not load package \""<<pkgname
                     <<"\" : "<<delfname<<" symbol not found (is it a bbtk package lib ?)");
          // look how to get the error message on win
          //<<dlerror());
        }
#else
        bbtkError("neither __GNUC__ nor _WIN32 ?!? How did you compile ?");
#endif

    // Stores the package
        PackageInfoType pack;
        pack.mDynamicLibraryHandler = handler;
    // Invokes the accessor to the PackageUnit pointer
        pack.mPackage = ((PackageAccessor)getpack)();

        mPackageMap[pkgname] = pack;

    // Test bbtk build version ok
        if ( pack.mPackage->GetBBTKVersion() != bbtk::GetVersion() )
        {
          std::string v(pack.mPackage->GetBBTKVersion());
          UnLoadPackage(pkgname);
          bbtkError(" package build with bbtk version "
                    << v
                    << " whereas application build with version "
                    << bbtk::GetVersion());
        }

        std::string separator =
        ConfigurationFile::GetInstance().Get_file_separator ();
        //BBTK_STRINGIFY_SYMBOL(BBTK_DOC_REL_PATH)
        std::string docreldoc = separator + "packages" + separator + pkgname
         + separator + "bbdoc" + separator + "index.html";
        std::string reldoc = ".." + separator + ".." + separator
         + ".." + docreldoc;
        std::string doc = path + separator + ".." + separator
         + BBTK_STRINGIFY_SYMBOL(BBTK_DOC_REL_PATH)
         + docreldoc;

        pack.mPackage->SetDocURL(doc);
        pack.mPackage->SetDocRelativeURL(reldoc);

    //===================================================================
        bbtkMessage("Output",2,pack.mPackage->GetName()<<" "
           <<pack.mPackage->GetVersion()
           <<" (bbtk "
           <<pack.mPackage->GetBBTKVersion()<<") "
           <<pack.mPackage->GetAuthor()
           <<std::endl);
        bbtkMessage("Output",2,pack.mPackage->GetDescription()<<std::endl);
    //===================================================================

        bbtkDebugDecTab("Core",7);
        return true;
  }

  //===================================================================
  /// \brief Loads a package.
  ///
  /// The name is the system-independant name of the package (the name of the instance of bbtk::Package).
  /// Tries to open the dynamic library :
  /// - "libbb<name>.so" for linux systems,
  /// - "bb<name>.dll" for windows systems.
  /// If it succeeds, then tries to load the symbols "<name>GetPackage" and "<name>DeletePackage".
  /// "<name>GetPackage" is called to get the pointer on the bbtk::Package of the library
  /// ("<name>DeletePackage" is not used, its presence is just checked before loading the package).

  /// now, filename is only the last name (no longer the full name!)
  /// it will be searched within *all* the paths given in bbtk_config.xml

  /// verbose = true (set by "config v") displays the loading process

  void Factory::LoadPackage( const std::string& name,
                             bool use_configuration_file, bool verbose)
  {
  // Note : in the following :
  // name : the user supplied name
  //      - abreviated name    e.g.       pkg   pkg.so   libbpkg   libbbpkg.so
  //      - relative full name e.g.       ./libbbpkg.so   ../../libbbpkg.so
  //      - absolute full name e.g.       /home/usrname/proj/lib/libbbpkg.so
  //          same for Windows, with      c:, d: ...
  //
  // lastname : string before the last / (if any), or user supplied name

    bbtkDebugMessageInc("Core",7,"Factory::LoadPackage(\""<<name<<"\")"<<std::endl);
    bbtkMessage("Debug",1,"Factory::LoadPackage(\""<<name<<"\")"<<std::endl);
    bbtkMessage("Debug",1,"use_configuration_file ["
                 << use_configuration_file << "]" << std::endl);

    std::vector<std::string> package_paths;
    std::string libname;  // full path library name
    std::string pkgname;  // e.g. libbb<pkgname>.so

    std::string upath;
    pkgname = Utilities::ExtractPackageName(name,upath);

    bbtkMessage("Debug",1,"Package name ["<<pkgname<<"]"<<std::endl);
    bbtkMessage("Debug",1,"Package path ["<<upath<<"]"<<std::endl);

    // no loading package if already loaded
    PackageMapType::iterator iUnload;
    iUnload = mPackageMap.find(pkgname);
    if (iUnload != mPackageMap.end())
    {
      bbtkMessage("Output",2,"["<< pkgname <<"] already loaded" << std::endl);
      return;
    }

// =================================================
// The following structure was checked to work
// with any type of relative/absolute path.
// Please don't modify it without checking
// *all* the cases. JP
//==================================================

//std::cout << "upath [" << upath << "]" << std::endl;

    bool ok = false;
    bool foundFile = false;

    // If path provided by user will be the first scanned :
    // push it into vector of paths
    if (upath.length()>0)   // ------------------------------------- check user supplied location
    {
       if (name[0] != '.' && name[0] != '/' && name[1]!= ':')
       {
          bbtkError("Use absolute or relative path name! ["<<name<<"] is an illegal name");
          return;
       }

      // std::string path = Utilities::ExpandLibName(upath, verbose);
       std::string path = Utilities::ExpandLibName(name, verbose); // keep last item, here.
         
       if (path != "")
       {
          std::string p2;
          Utilities::ExtractPackageName(path,p2);
          //libname = Utilities::MakeLibnameFromPath(path, pkgname);
          libname = Utilities::MakeLibnameFromPath(p2, pkgname); // remove last item
          // Check if library exists
          if ( !Utilities::FileExists(libname) )
          {
          // The following is *NOT* a debug time message :
          // It's a user intended message.
          // Please don't remove it.
             if (verbose)
                std::cout <<"   [" <<libname <<"] : doesn't exist" <<std::endl;
          }
          else
          {
             ok = DoLoadPackage( libname, pkgname, path, verbose);         
          }
       }
       else
       {
          bbtkError("Path ["<<upath<<"] doesn't exist");
          return;
       }
    }
    else     // ----------------------------------------------------- iterate on the paths  
    {

    std::string path;
    package_paths = ConfigurationFile::GetInstance().Get_package_paths();
    std::vector<std::string>::iterator i;
    for (i=package_paths.begin();i!=package_paths.end();++i)
    {
        foundFile = false;
        path = *i;

        // we *really* want '.' to be the current working directory
        if (path == ".")
        {
          char buf[2048]; // for getcwd
          char * currentDir = getcwd(buf, 2048);
          std::string cwd(currentDir);
          path = currentDir;
        }

        libname = Utilities::MakeLibnameFromPath(path, pkgname);

        bbtkMessage("Debug",2,"-> Trying to load [" << libname << "]" <<std::endl);

      // Check if library exists           
        if ( !Utilities::FileExists(libname) )
        {
        // The following is *NOT* a debug time message :
        // It's a user intended message.
        // Please don't remove it.
           if (verbose)
              std::cout <<"   [" <<libname <<"] : doesn't exist" <<std::endl;
           continue;  // try next path
        }
        foundFile = true; 

      // Try to Load the library

        ok = DoLoadPackage( libname, pkgname, path, verbose);
        if (ok)
        {
           bbtkMessage("Debug",2,"   OK"<<std::endl);
           break; // a package was found; we stop iterating
        }
    } //------------------ // end for ( package_paths.begin();i!=package_paths.end() )

}

    if( !ok )  // nothing was loaded
    {
      if (!foundFile)
      {
        bbtkError("could not find package ["<<pkgname<< "]");
      }
      else
      {
#if defined(__GNUC__)
        bbtkError("could not load package ["<< pkgname
                  <<"] :" << std::endl << "   " << dlerror());
#elif defined(_WIN32)
        bbtkError("could not load package ["<<pkgname
                 <<"] : " << std::endl << "   " <<libname<<" not found");

    // look how to get the error message on win
    //<<dlerror());
    // it is the bordel !! (the bloody fucking bordel, you mean?)
    // look : http://msdn2.microsoft.com/en-us/library/ms680582.aspx
#endif
      }
    }
    bbtkMessage("Output",2,"[" << libname << "] loaded" << std::endl);

  }

  //===================================================================
  /// \brief UnLoads a package.
  ///
  /// The package must have been previously loaded by LoadPackage.
  /// If the entry is found in the map, calls ClosePackage
 void Factory::UnLoadPackage( const std::string& name )
 {
    bbtkDebugMessageInc("Core",7,"Factory::UnLoadPackage(\""
                       <<name<<"\")"<<std::endl);
  
    PackageMapType::iterator i;
    i = mPackageMap.find(name);
    if (i == mPackageMap.end()) 
    {
      bbtkError("cannot unload package \""<<name
                <<"\" : package not loaded !");
    }
    ClosePackage(i);
    bbtkDebugDecTab("Core",7);
  }
  //===================================================================


  //===================================================================
  /// \brief Close the package referenced by the iterator 
  ///
  /// If it is a dynamically loaded package 
  /// - Loads and calls the function "<name>DeletePackage" of the dynamic library (responsible for package desallocation)
  /// - Closes the dynamic library
  /// - Erases the package entry in the packages map
  ///
  /// Else simply erases the package entry in the packages map
  void Factory::ClosePackage(PackageMapType::iterator& i) 
  {   
     bbtkDebugMessageInc("Core",7,"Factory::ClosePackage(\""
                         <<i->second.mPackage->GetName()
                        <<"\")"<<std::endl);

     if (i->second.mDynamicLibraryHandler) 
     {
 
      // If it is a dynamically loaded package
      // Loads the Package delete function

        std::string delfname(i->second.mPackage->GetName());
        delfname += "DeletePackage";
#if defined(__GNUC__)     
        void *delf = dlsym(i->second.mDynamicLibraryHandler, delfname.c_str());
        if (!delf)
        {
           bbtkError("could not close package \""
                     <<i->second.mPackage->GetName()
                     <<"\" :"<<dlerror());
        }    
#elif defined(_WIN32)
   void *delf = GetProcAddress(i->second.mDynamicLibraryHandler, 
                                 delfname.c_str());
     if (!delf)
     {  
       bbtkError("could not close package \""
                <<i->second.mPackage->GetName()
                <<"\" : "<<delfname
                <<" symbol not found (how did you open it ???");
               //<<"\" :"<<dlerror());
     }    
#endif     

   // deletes the package
   ((PackageDeleteFunction)delf)();

   // closes the dl handler
#if defined(__GNUC__)  
    dlclose(i->second.mDynamicLibraryHandler);  
#elif defined(_WIN32)

    FreeLibrary(i->second.mDynamicLibraryHandler);
#endif
    }
    else 
    {  
       // If it is a manually inserted package 
       delete i->second.mPackage;
    }

    // remove the entry in the map
    mPackageMap.erase(i);
    bbtkDebugDecTab("Core",7);
 }
  //===================================================================



  //===================================================================  
  /// Displays the list of packages loaded
  void Factory::PrintPackages(bool details, bool adaptors) const
  {
    bbtkDebugMessageInc("Core",9,"Factory::PrintPackages"<<std::endl);

    PackageMapType::const_iterator i;
    for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
    {
      bbtkMessage("Help",1, i->first << std::endl);
      if (details) {
         i->second.mPackage->PrintBlackBoxes(false,adaptors);
      }
    }

    bbtkDebugDecTab("Core",9);
  }
  //===================================================================

  //===================================================================  
  /// Displays help on a package
  void Factory::HelpPackage(const std::string& name, bool adaptors) const
  {
    bbtkDebugMessageInc("Core",9,"Factory::HelpPackage(\""<<name<<"\")"
                        <<std::endl);

    PackageMapType::const_iterator i = mPackageMap.find(name);
    if ( i != mPackageMap.end() ) 
      {
      bbtkMessage("Help",1, "Package "<<i->first<<" ");
      if (i->second.mPackage->GetVersion().length()>0)
        bbtkMessageCont("Help",1,"v" <<i->second.mPackage->GetVersion());
      if (i->second.mPackage->GetAuthor().length()>0)
        bbtkMessageCont("Help",1,"- "<<i->second.mPackage->GetAuthor());
      bbtkMessageCont("Help",1,std::endl);
      bbtkIncTab("Help",1);
      bbtkMessage("Help",1,i->second.mPackage->GetDescription()<<std::endl);
      if (i->second.mPackage->GetNumberOfBlackBoxes()>0) 
        {
          bbtkMessage("Help",1, "Black boxes : "<<std::endl);
          i->second.mPackage->PrintBlackBoxes(true,adaptors);
        }
      else 
        {
          bbtkMessage("Help",1, "No black boxes"<<std::endl);
        }
      bbtkDecTab("Help",1);
      }
    else 
      {
      bbtkDebugDecTab("Core",9);
      bbtkError("package \""<<name<<"\" unknown");
      }
    
    bbtkDebugDecTab("Core",9);
  }
  //===================================================================

  //===================================================================
  /// Prints help on the black box of type <name>
  void Factory::HelpBlackBox(const std::string& name, bool full) const
  {
    bbtkDebugMessageInc("Core",9,"Factory::HelpBlackBox(\""<<name<<"\")"
                        <<std::endl);

    bool found = false;
    PackageMapType::const_iterator i;
    for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
      {
      if (i->second.mPackage->ContainsBlackBox(name)) 
        {
          i->second.mPackage->HelpBlackBox(name,full);
          found = true;
        }
      }
    
    bbtkDebugDecTab("Core",9);
    if (!found) 
      {
      bbtkError("No package of the factory contains any black box <"
                 <<name<<">");
      }
  }  
  //===================================================================


  //=================================================================== 
  /// Inserts a package in the factory
  void Factory::InsertPackage( Package* p )
  {
    bbtkDebugMessageInc("Core",9,"Factory::InsertPackage(\""<<
                        p->GetName()<<"\")"<<std::endl);

    PackageInfoType pack;
    pack.mDynamicLibraryHandler = 0;
    
    pack.mPackage = p;

    mPackageMap[p->GetName()] = pack;
    bbtkDebugDecTab("Core",9);
  }
  //===================================================================
  
  //=================================================================== 
  /// Removes a package from the factory (and deletes it)
  void Factory::RemovePackage( Package* p )
  {
    bbtkDebugMessageInc("Core",9,"Factory::RemovePackage(\""<<
                        p->GetName()<<"\")"<<std::endl);

    PackageMapType::iterator i;
    for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
      {
         if (i->second.mPackage == p) break;
      };
    
    if (i!=mPackageMap.end())
      {
      ClosePackage(i);
      }
    else 
      {
      bbtkError("Factory::RemovePackage(\""<<
                 p->GetName()<<"\") : package absent from factory");
      }

    bbtkDebugDecTab("Core",9);
  }
  //===================================================================
  

  //===================================================================
  /// Creates an instance of a black box of type <type> with name <name>
  BlackBox* Factory::NewBlackBox(const std::string& type, 
                                 const std::string& name) const
  {
    bbtkDebugMessageInc("Core",7,"Factory::NewBlackBox(\""
                        <<type<<"\",\""<<name<<"\")"<<std::endl);

    BlackBox* b = 0; 
    PackageMapType::const_iterator i;
    for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
      {
      b = i->second.mPackage->NewBlackBox(type,name);
      if (b) break; 
      }
    if (!b) 
      {
       bbtkError("black box type \""<<type<<"\" unknown");
      } 

    bbtkDebugDecTab("Core",7);
    return b;
  }
  //===================================================================

  //===================================================================
  /// Creates an instance of a black box of type <type> with name <name>
  BlackBox* Factory::NewAdaptor(TypeInfo typein,
                     TypeInfo typeout,
                     const std::string& name) const
  {
    bbtkDebugMessageInc("Core",8,"Factory::NewAdaptor(<"
                        <<TypeName(typein)<<">,<"
                        <<TypeName(typeout)<<">,\""
                        <<name<<"\")"<<bbtkendl);


    BlackBox* b = 0; 
    PackageMapType::const_iterator i;
    for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
      {
      b = i->second.mPackage->NewAdaptor(typein,typeout,name);
      if (b) break; 
      }
    if (!b) 
      {
      bbtkError("no <"
          <<TypeName(typein)<<"> to <"
          <<TypeName(typeout)
          <<"> adaptor available");
      } 
    
    bbtkDebugDecTab("Core",7);
    return b; 
  }
  //===================================================================

  //===================================================================
  /// Creates an instance of a connection
  Connection* Factory::NewConnection(BlackBox* from,
                                     const std::string& output,
                                     BlackBox* to,
                                     const std::string& input) const
  {
    bbtkDebugMessage("Core",7,"Factory::NewConnection(\""
                      <<from->bbGetName()<<"\",\""<<output<<"\",\""
                      <<to->bbGetName()<<"\",\""<<input
                      <<"\")"<<std::endl);
    
    return new Connection(from,output,to,input);
    /*  
       Connection* c;
    // !!! WARNING : WE NEED TO TEST THE TYPE NAME EQUALITY 
    // BECAUSE IN DIFFERENT DYN LIBS THE type_info EQUALITY CAN 
    // BE FALSE (DIFFERENT INSTANCES !)
  
    std::string t1 ( from->bbGetOutputType(output).name() );
    std::string t2 ( to->bbGetInputType(input).name() );


    if ( t1 == t2 ) 
       //from->bbGetOutputType(output) ==
       // to->bbGetInputType(input) )
      {
         c = new Connection(from,output,to,input);
      }
    else 
      {
         //   std::cout << "Adaptive connection "<<std::endl;
         std::string name;
         name = from->bbGetName() + "." + output + "-" 
                                  + to->bbGetName() + "." + input; 

         BlackBox* b = 0; 
         PackageMapType::const_iterator i;
         for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
         {
             b = i->second.mPackage->NewAdaptor(from->bbGetOutputType(output),
                                                  to->bbGetInputType(input),
                                                  name);
             if (b) break; 
         } 
         if (!b)  
         {  
            bbtkError("did not find any <"
                       <<TypeName(from->bbGetOutputType(output))
                       <<"> to <"
                       <<TypeName(to->bbGetInputType(input))
                       <<"> adaptor");
         } 
         c = new AdaptiveConnection(from,output,to,input,b);
      }
      bbtkDebugDecTab("Core",7);
    
      return c;
    */
  }
  //===================================================================



  //===================================================================
  const Package* Factory::GetPackage(const std::string& name) const
  {
    bbtkDebugMessageInc("Core",9,"Factory::GetPackage(\""<<name<<"\")"
                         <<std::endl);

    PackageMapType::const_iterator i = mPackageMap.find(name);
    if ( i != mPackageMap.end() ) 
    {
      bbtkDebugDecTab("Core",9); 
      return i->second.mPackage;
    }
    else 
    {
       bbtkDebugDecTab("Core",9);
       bbtkError("package \""<<name<<"\" unknown");
    }
    
    bbtkDebugDecTab("Core",9);  
  }
  //===================================================================
  
  //===================================================================
  Package* Factory::GetPackage(const std::string& name) 
  {
    bbtkDebugMessageInc("Core",9,"Factory::GetPackage(\""<<name<<"\")"
                         <<std::endl);

    PackageMapType::const_iterator i = mPackageMap.find(name);
    if ( i != mPackageMap.end() ) 
    {
      bbtkDebugDecTab("Core",9); 
      return i->second.mPackage;
    }
    else 
    {
       bbtkDebugDecTab("Core",9);
       bbtkError("package \""<<name<<"\" unknown");
    }
    
    bbtkDebugDecTab("Core",9);  
  }
  //===================================================================

  //===================================================================
  void Factory::WriteDotFilePackagesList(FILE *ff)
  {
    bbtkDebugMessageInc("Core",9,"Factory::WriteDotFilePackagesList()"
                         <<std::endl);

    fprintf( ff , "\n");
    fprintf( ff , "subgraph cluster_FACTORY {\n");
    fprintf( ff , "  label = \"PACKAGES\"%s\n",  ";");
    fprintf( ff , "  style=filled%s\n",";");
    fprintf( ff , "  color=lightgrey%s\n",";");
    fprintf( ff , "  rankdir=TB%s\n",";");

    std::string url;
    PackageMapType::const_iterator i;
    for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
    {
       url=GetPackage(i->first)->GetDocURL();
       fprintf(ff,"  %s [shape=ellipse, URL=\"%s\"]%s\n",i->first.c_str(),url.c_str(),";" );
    }
    fprintf( ff , "}\n\n");
    bbtkDebugDecTab("Core",9);
  }
  //===================================================================


 void Factory::ShowGraphTypes(const std::string& name) const
 {
   bool found = false;
   PackageMapType::const_iterator i;
   for (i = mPackageMap.begin(); i!=mPackageMap.end(); ++i )
   {
      if (i->second.mPackage->ContainsBlackBox(name)) 
      {
         std::string separator = ConfigurationFile::GetInstance().Get_file_separator ();

            // Don't pollute the file store with  "doc_tmp" directories ...    
         std::string default_doc_dir = ConfigurationFile::GetInstance().Get_default_doc_tmp();
         std::string directory = "\"" + default_doc_dir + separator + "doc_tmp"  +separator + "\"";
         std::string filename2 =  default_doc_dir + separator + "doc_tmp" + separator + "tmp.html"; 

#if defined(_WIN32)  
        std::string command("start \"Titre\" /D ");
#else 
        std::string command("gnome-open ");
#endif
        command=command + directory +" tmp.html";
        FILE *ff;
        ff=fopen(filename2.c_str(),"w");

        fprintf(ff,"<html><head><title>TMP</title> <script type=\"text/javascript\"> <!--\n");
        fprintf(ff,"  window.location=\"%s#%s\";\n" , i->second.mPackage->GetDocURL().c_str(),name.c_str() );
        fprintf(ff,"//--></script></head><body></body></html>\n");


        //fprintf(ff, "<a  href=\"%s#%s\">Link</a>\n", i->second.mPackage->GetDocURL().c_str(),name.c_str() );
        fclose(ff);
        system( command.c_str() );      
        found = true;
     }
   }
    
   bbtkDebugDecTab("Core",9);
   if (!found) 
   {
      bbtkError("No package of the factory contains any black box <"
                <<name<<">");
   }
 }

}