/*=========================================================================
                                                                                
Program:   bbtk
Module:    $RCSfile: bbtkBlackBox.cxx,v $
Language:  C++
Date:      $Date: 2008/02/05 13:23:46 $
Version:   $Revision: 1.2 $
                                                                                
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::BlackBox : abstract black-box interface. 
 */
#include "bbtkBlackBox.h"
#include "bbtkPackage.h"
#include "bbtkMessageManager.h"
#include "bbtkFactory.h"

#include "bbtkConfigurationFile.h"
#include "bbtkWxBlackBox.h"

#include <fstream>
//#include <vector>


namespace bbtk
{
  //=========================================================================
  BlackBox::BlackBox(const std::string &name) 
    : bbmName(name), bbmStatus(MODIFIED), 
      bbmBoxProcessMode("Pipeline"),bbmParent(NULL)
  {
    bbtkDebugMessage("Kernel",7,"BlackBox::BlackBox(\""
		     <<name<<"\")"<<std::endl);
  }
  //=========================================================================


  //=========================================================================
  BlackBox::BlackBox(BlackBox& from, const std::string &name) 
    : bbmName(name), 
      bbmStatus(from.bbmStatus), 
      bbmBoxProcessMode(from.bbmBoxProcessMode),bbmParent(NULL)
  {
    bbtkDebugMessage("Kernel",7,"BlackBox::BlackBox("
		     <<from.bbGetFullName()<<",\""
		     <<name<<"\")"<<std::endl);
  }
  //=========================================================================


  //=========================================================================
  BlackBox::~BlackBox()
  {
    //    std::cout << "EED BlackBox::~BlackBox 01 [" << bbGetName()<<"]\n";
    bbtkDebugMessageInc("Kernel",7,"BlackBox::~BlackBox()"<<std::endl);
    this->bbDesallocateConnectors();
    //printf("EED BlackBox::~BlackBox 02 \n");
    bbtkDebugDecTab("Kernel",7);
  }
  //=========================================================================

  //=========================================================================
  /// Destruction method of a black box
  void BlackBox::bbDelete()
  {
    bbtkDebugMessage("Kernel",5,"BlackBox::bbDelete() ["
		     <<bbGetFullName()<<"]"<<std::endl);    
    this->bbUserDelete();
  }
  //=========================================================================


  //=========================================================================
  /// Main processing method of the box.
  void BlackBox::bbExecute(bool force)
  {
    bbtkDebugMessageInc("Process",1,
			"=> BlackBox::bbExecute() ["
			<<bbGetFullName()<<"]"<<std::endl);

    wx::BeginBusyCursor();

    // If execution frozen : return
    if (bbGlobalGetFreezeExecution()) 
      {
	bbtkDebugMessage("Process",1,
			 " -> FreezeExecution global flag is 'true' : abort execution"<<std::endl);
      }

    // If force is true then update is triggered even if the box is UPTODATE
    if (force) bbSetModifiedStatus();

    // Calls the main recursive update method 
    bbBackwardUpdate(0);

    wx::EndBusyCursor();

    bbtkDebugMessageDec("Process",1,
			"<= BlackBox::bbExecute() ["
			<<bbGetFullName()<<"]"<<std::endl);
  }
  //=========================================================================

  //=========================================================================
  std::string BlackBox::bbGetFullName() const
  { 
    return bbGetNameWithParent()+"<"+this->bbGetDescriptor()->GetTypeName()+">";
  }
  //=========================================================================
     


  //=========================================================================
  /// Returns the name with the name of the parent prepended if any
  std::string BlackBox::bbGetNameWithParent() const
  {
    if (bbmParent) 
      {
	return bbmParent->bbGetNameWithParent() + ":" + bbmName;
      }
    else 
      {
	return bbmName;
      }
  } 
  //=========================================================================

  //=========================================================================
  /// Prints the Help on the BlackBox type 
  void BlackBox::bbGetHelp(bool full) const
  {
    bbGetDescriptor()->GetHelp(full); 
  }
  //=========================================================================


  //=========================================================================
  /// Returns true if the UserBlackBox has an input of name name
  bool BlackBox::bbHasInput(const std::string& name) const
  {
    bbtkDebugMessageInc("Kernel",8,
			"BlackBox::bbHasInput(\""
			<<name<<"\") ["<<bbGetFullName()<<"]"
			<<std::endl);
    bool r = ( bbGetDescriptor()->GetInputDescriptorMap().find(name)
	       != bbGetDescriptor()->GetInputDescriptorMap().end());
    bbtkDebugDecTab("Kernel",8);
    return r;
  }
  //=========================================================================


  //=========================================================================  
  /// Returns true if the UserBlackBox has an output of name name
  bool BlackBox::bbHasOutput(const std::string& name) const
  {
    bbtkDebugMessageInc("Kernel",8,"BlackBox::bbHasOutput(\""
			<<name<<"\") ["<<bbGetFullName()<<"]"<<std::endl);
    bool r = ( bbGetDescriptor()->GetOutputDescriptorMap().find(name)
	       != bbGetDescriptor()->GetOutputDescriptorMap().end());
    bbtkDebugDecTab("Kernel",8);
    return r;
  }
  //=========================================================================


  //=========================================================================  
  ///  Gets the output type of a given name
  TypeInfo BlackBox::bbGetOutputType( const std::string &name ) const 
  {
    bbtkDebugMessageInc("Kernel",8,
			"BlackBox::bbGetOutputType(\""
			<<name<<"\") ["<<bbGetFullName()<<"]"<<std::endl);
    TypeInfo r = bbGetDescriptor()->GetOutputDescriptor(name)->GetTypeInfo();
    bbtkDebugDecTab("Kernel",8); 
    return r;
  }
  //=========================================================================

  //=========================================================================
  ///  Gets the input type of a given name
  TypeInfo BlackBox::bbGetInputType( const std::string &name ) const
  {
    bbtkDebugMessageInc("Kernel",8,
			"BlackBox::bbGetInputType(\""
			<<name<<"\") ["<<bbGetFullName()<<"]"<<std::endl);
    TypeInfo r = bbGetDescriptor()->GetInputDescriptor(name)->GetTypeInfo();
    bbtkDebugDecTab("Kernel",8);
    return r;
  }
  //=========================================================================


  //=========================================================================
  /// Allocates the i/o connectors of the black box
  void BlackBox::bbAllocateConnectors()
  {  
    bbtkDebugMessageInc("Kernel",8,
			"BlackBox::bbAllocateConnectors() ["
			<<bbGetFullName()<<"]"
			<<std::endl);					
    const BlackBoxDescriptor::InputDescriptorMapType& imap 
      = bbGetDescriptor()->GetInputDescriptorMap(); 
    BlackBoxDescriptor::InputDescriptorMapType::const_iterator i;	
    for ( i = imap.begin(); i != imap.end(); ++i )			
      {									
	bbtkDebugMessage("Kernel",8,"* Allocate \""<<i->first<<"\""<<std::endl);
	bbGetInputConnectorMap()[i->second->GetName()] 
	  = new BlackBoxInputConnector(this);
      }									
    const BlackBoxDescriptor::OutputDescriptorMapType& omap 
      = bbGetDescriptor()->GetOutputDescriptorMap();		       
    BlackBoxDescriptor::OutputDescriptorMapType::const_iterator o; 
    for ( o = omap.begin(); o != omap.end(); ++o )
      {							
	bbtkDebugMessage("Kernel",8,"* Allocate \""<<o->first<<"\""<<std::endl);
	bbGetOutputConnectorMap()[o->second->GetName()] 
	  = new BlackBoxOutputConnector();
      }
    bbtkDebugDecTab("Kernel",8);  
  }
  //=========================================================================


  //=========================================================================
  /// Desallocates the i/o connectors of the black box
  void BlackBox::bbDesallocateConnectors()
  {
    bbtkDebugMessageInc("Kernel",8,
			"BlackBox::bbDesallocateConnectors()"
			<<std::endl);					

    InputConnectorMapType::const_iterator i;
    for ( i = bbGetInputConnectorMap().begin();
	  i != bbGetInputConnectorMap().end(); ++i )		       
      {									
	bbtkDebugMessage("Kernel",8,"* Delete \""<<i->first<<"\""<<std::endl);
	delete (i->second);
      }									
    OutputConnectorMapType::const_iterator o;	
    for ( o = bbGetOutputConnectorMap().begin(); 
	  o != bbGetOutputConnectorMap().end(); ++o )			
      {									
	bbtkDebugMessage("Kernel",8,"* Delete \""<<o->first<<"\""<<std::endl);	       
	delete (o->second);
      }									
   
    bbtkDebugDecTab("Kernel",8);  

  }
  //=========================================================================


  //=========================================================================
  /// Copies the input / output values from another box
  void BlackBox::bbCopyIOValues(BlackBox& from)
  {
    bbtkDebugMessageInc("Kernel",9,
    			"BlackBox::bbCopyIOValues("
			<<from.bbGetFullName()<<") ["
			<<bbGetFullName()<<"]"<<std::endl);
    // copies the input values
    const BlackBoxDescriptor::InputDescriptorMapType& imap 
      = bbGetDescriptor()->GetInputDescriptorMap(); 
    BlackBoxDescriptor::InputDescriptorMapType::const_iterator i;	
    for ( i = imap.begin(); i != imap.end(); ++i )			
      {		
	if (! i->second->GetCopyConstruct() ) continue;
	std::string input = i->second->GetName();
	this->bbSetInput(input, from.bbGetInput(input) );
      }									
    // copies the output values
    const BlackBoxDescriptor::OutputDescriptorMapType& omap 
      = bbGetDescriptor()->GetOutputDescriptorMap();		       
    BlackBoxDescriptor::OutputDescriptorMapType::const_iterator o; 
    for ( o = omap.begin(); o != omap.end(); ++o )
      {							
	if (! o->second->GetCopyConstruct() ) continue;
	std::string output = o->second->GetName();
	this->bbSetOutput(output, from.bbGetOutput(output) );
      }

    bbtkDebugDecTab("Kernel",9);

  }
  //=========================================================================



  //=========================================================================
  bool BlackBox::bbCanReact() const 
  { 
    return ( bbGlobalGetSomeBoxExecuting() 
#ifdef _USE_WXWIDGETS_
	     || WxBlackBox::bbGlobalIsSomeWindowAlive() 
#endif
	     ); 
  }
  //=========================================================================



  //=========================================================================
  /// User overloadable destruction method of a black box
  void BlackBox::bbUserDelete() 
  {   
    bbtkDebugMessage("Process",5,
		     "=> BlackBox::bbUserDelete() ["
		     <<bbGetFullName()<<"]"
		     <<" : not overloaded; using standard deletion"
		     <<std::endl);
    delete this;
  }
  //=========================================================================


  //=========================================================================
  BlackBox::BoxProcessModeValue BlackBox::bbGetBoxProcessModeValue() const
  {
    const std::string& p = bbmBoxProcessMode;
    if ( (p == "0") ||
	 (p == "P") || (p == "p") ||
	 (p == "Pipeline") || (p == "pipeline") ) return Pipeline;
    if ( (p == "1") ||
	 (p == "A") || (p == "a") ||
	 (p == "Always") || (p == "always") ) return Always;
    if ( (p == "2") ||
	 (p == "R") || (p == "r") ||
	 (p == "Reactive") || (p == "reactive") ) return Reactive;
    bbtkError(bbGetFullName()<<" : BoxProcessMode value '"<<p
	      <<"' unknown. Possible values : "
	      <<"'0'/'P'/'p'/'Pipeline'/'pipeline' | "
	      <<"'1'/'A'/'a'/'Always'/'always' | "
	      <<"'2'/'R'/'r'/'Reactive'/'reactive'"<<std::endl);
  }
  //=========================================================================
  
  //=========================================================================
  bool  BlackBox::bbBoxProcessModeIsReactive() const
  {
    return (bbGetBoxProcessModeValue() == Reactive);
  }
  //=========================================================================

  //=========================================================================
  bool  BlackBox::bbBoxProcessModeIsAlways() const
  {
    return (bbGetBoxProcessModeValue() == Always);
  }
  //=========================================================================

  //=========================================================================
  ///  Signals that the BlackBox has been modified
  void BlackBox::bbSetModifiedStatus(BlackBoxInputConnector* c)
  {
    bbtkDebugMessageInc("Process",5,
			"=> BlackBox::bbSetModifiedStatus("<<c<<") ["
			<<bbGetFullName()<<"]"<<std::endl);
   
    if ( (c==bbGetInputConnectorMap().find("WinHide")->second) )
	 //	 && (bbCanReact()))
      {
	bbtkDebugMessage("Process",9,
			 "-> Hide triggered by WinHide input change"
			 <<std::endl);
	this->bbHideWindow();
	this->bbSetStatus(MODIFIED); 
	return;
      }
 
    if ( ( bbBoxProcessModeIsReactive()  ||
	   (c==bbGetInputConnectorMap().find("BoxExecute")->second))
	 && (bbCanReact() ) )
      {
	bbtkDebugMessage("Process",9,
			 "-> Execution triggered by Reactive mode or BoxExecute input change"<<std::endl);
	this->bbSetStatus(MODIFIED); 
        bbGlobalAddToExecutionList( this );
      }
    else if ( bbGetStatus() == MODIFIED ) //! this->bbIsUptodate()) 
      { 
	bbtkDebugMessage("Process",5,"-> Already modified"<<std::endl);
	bbtkDebugDecTab("Process",5);
	return;
      }
    else 
      {
	bbtkDebugMessage("Process",5,"-> Status set to modified"<<std::endl);
	bbtkDebugDecTab("Process",5);
	this->bbSetStatus(MODIFIED); 
      }
 
    this->bbSignalOutputModification(false);

   bbtkDebugMessageDec("Process",5,
			"<= BlackBox::bbSetModifiedStatus("<<c<<") ["
			<<bbGetFullName()<<"]"<<std::endl);
  }  
  //=========================================================================

  //=========================================================================  
  void BlackBox::bbSignalOutputModification(bool reaction)
  {
    bbtkDebugMessageInc("Process",5,
			"=> BlackBox::bbSignalOutputModification() ["
			<<bbGetFullName()<<"]"<<std::endl);
    
    OutputConnectorMapType::iterator change = bbGetOutputConnectorMap().end();
    OutputConnectorMapType::iterator i;
    for ( i  = bbGetOutputConnectorMap().begin(); 
	  i != bbGetOutputConnectorMap().end(); ++i) {
      /*     if ( i->first == "BoxChange" ) 
	{
	  change = i;
	  continue;
	}
      */
      i->second->SetModifiedStatus();
    } 
    //    if (change != bbGetOutputConnectorMap().end()) 
    // change->second->SetModifiedStatus();

    if (reaction) bbGlobalProcessExecutionList();

    bbtkDebugMessageDec("Process",5,
			"<= BlackBox::bbSignalOutputModification() ["
			<<bbGetFullName()<<"]"<<std::endl);
    
  }  
  //=========================================================================   
  //=========================================================================  
  void BlackBox::bbSignalOutputModification(const std::string& output,
	bool reaction)
  {
    bbtkDebugMessageInc("Process",5,
			"=> BlackBox::bbSignalOutputModification("
			<<output<<") ["
			<<bbGetFullName()<<"]"<<std::endl);
    
    OutputConnectorMapType::iterator i = bbGetOutputConnectorMap().find(output);
    if ( i == bbGetOutputConnectorMap().end() ) 
	{
	  bbtkError("BlackBox["<<bbGetFullName()<<"]::bbSignalOutputModification("<<output<<") : unknown output");
	}
    i->second->SetModifiedStatus();
    // Has to notify the output "BoxChange" also
    if (output != "BoxChange") 
      {
	i = bbGetOutputConnectorMap().find("BoxChange");
	if ( i != bbGetOutputConnectorMap().end() ) 
	  {
	    i->second->SetModifiedStatus();
	  }
      }
  if (reaction) bbGlobalProcessExecutionList();

    bbtkDebugMessageDec("Process",5,
			"<= BlackBox::bbSignalOutputModification("
			<<output<<") ["
			<<bbGetFullName()<<"]"<<std::endl);

  }  
  //=========================================================================   
  //=========================================================================  
  void BlackBox::bbSignalOutputModification(const std::vector<std::string>& output,
	bool reaction)
  {
    bbtkDebugMessageInc("Process",5,
			"=> BlackBox::bbSignalOutputModification(vector of outputs) ["
			<<bbGetFullName()<<"]"<<std::endl);
    OutputConnectorMapType::iterator i;
    std::vector<std::string>::const_iterator o;
    for (o=output.begin();o!=output.end();++o) 
      {
	// the output "BoxChange" must be signaled **AFTER** all others
	if (*o == "BoxChange") continue;
	// Look for the connector
	i = bbGetOutputConnectorMap().find(*o);
	if ( i == bbGetOutputConnectorMap().end() ) 
	  {
	    bbtkError("BlackBox["<<bbGetFullName()<<"]::bbSignalOutputModification("<<*o<<") : unknown output");
	  }
	i->second->SetModifiedStatus();
      }
    // Has to notify the output "BoxChange" also
    i = bbGetOutputConnectorMap().find("BoxChange");
    if ( i != bbGetOutputConnectorMap().end() ) 
      {
	i->second->SetModifiedStatus();
      }
  if (reaction) bbGlobalProcessExecutionList();

   bbtkDebugMessageDec("Process",5,
		       "<= BlackBox::bbSignalOutputModification(vector of outputs) ["
			<<bbGetFullName()<<"]"<<std::endl);

  }  
  //=========================================================================   

  //=========================================================================
  /// Updates the BlackBox inputs
  /// \returns UPTODATE if all inputs are in UPTODATE status after update
  ///          else MODIFIED 
  IOStatus BlackBox::bbUpdateInputs(bool excludeParent)
  {
    bbtkDebugMessageInc("Process",4,
			"=> BlackBox::bbUpdateInputs() ["
			<<bbGetFullName()<<"]"
			<<std::endl);	

    IOStatus s = UPTODATE;
    
    InputConnectorMapType::iterator i;
    for ( i = bbGetInputConnectorMap().begin(); 
	  i!= bbGetInputConnectorMap().end(); ++i) 
      {
	if (excludeParent && (i->first=="WinParent")) continue;
	if (i->first=="WinHide") continue;
	// If input type is Void : no recurse
	//if (  bbGetDescriptor()->GetInputDescriptor(i->first)->GetTypeInfo() 
	//      == typeid(Void) ) 
	//  continue;

	IOStatus t = i->second->BackwardUpdate();
	if (t==MODIFIED) s = MODIFIED;
      }
    
   bbtkDebugMessageDec("Process",4,
			"<= BlackBox::bbUpdateInputs() ["
			<<bbGetFullName()<<"]"
			<<std::endl);	


    return s;
  }
  //=========================================================================

 
  //=========================================================================
  /// Connects the input <name> to the connection c
  void BlackBox::bbConnectInput( const std::string& name, Connection* c)
  {
    bbtkDebugMessageInc("Kernel",7,
			"BlackBox::bbConnectInput(\""<<name<<"\","<<c<<") ["
			<<bbGetFullName()<<"]"
			<<std::endl);       
    InputConnectorMapType::iterator i = bbGetInputConnectorMap().find(name);
    if (i==bbGetInputConnectorMap().end())
      {
	bbtkError("no input called '"<<name<<"'");
      }
    i->second->SetConnection(c);
    
    //  bbSetModifiedStatus();

    bbtkDebugDecTab("Kernel",7);
  }
  //=========================================================================


  //=========================================================================  
  /// Connects the output <name> to the connection c
  void BlackBox::bbConnectOutput( const std::string& name, Connection* c)
  {
    bbtkDebugMessageInc("Kernel",7,
			"BlackBox::bbConnectOutput(\""<<name<<"\","<<c<<") ["
			<<bbGetFullName()<<"]"<<std::endl);       

    OutputConnectorMapType::iterator i = bbGetOutputConnectorMap().find(name);
    if (i==bbGetOutputConnectorMap().end())
      {
	bbtkError("no output called '"<<name<<"'");
      }
    i->second->SetConnection(c);

    bbtkDebugDecTab("Kernel",7);
  }
  //=========================================================================


  //=========================================================================
  /// Disconnects the input <name> from the connection c
  void BlackBox::bbDisconnectInput( const std::string& name, Connection* c)
  {
    bbtkDebugMessageInc("Kernel",7,
			"BlackBox::bbDisconnectInput(\""<<name
			<<"\","<<c<<") ["
			<<bbGetFullName()<<"]"
			<<std::endl);      

    InputConnectorMapType::iterator i = bbGetInputConnectorMap().find(name);
    if (i==bbGetInputConnectorMap().end())
      {
	bbtkError("no input called '"<<name<<"'");
      }
    i->second->UnsetConnection(c);

    bbtkDebugDecTab("Kernel",7);
  }
  //=========================================================================


  //=========================================================================
  /// Disconnects the output <name> from the connection c
  void BlackBox::bbDisconnectOutput( const std::string& name, Connection* c)
  {
    bbtkDebugMessageInc("Kernel",7,
			"BlackBox::bbDisconnectOutput(\""<<name
			<<"\","<<c<<") ["
			<<bbGetFullName()<<"]"
			<<std::endl);       

    OutputConnectorMapType::iterator i = bbGetOutputConnectorMap().find(name);
    if (i==bbGetOutputConnectorMap().end())
      {
	bbtkError("no output called '"<<name<<"'");
      }
    i->second->UnsetConnection(c);

    bbtkDebugDecTab("Kernel",7);
  } 
  //=========================================================================
 

  //=========================================================================
  /// Virtual
  void BlackBox::bbWriteDotInputOutputName(FILE *ff,bool inputoutput,int detail, int level)
  {
    fprintf(ff,"%s%p",bbGetTypeName().c_str(),this);
  }
  //=========================================================================


  //=========================================================================
  std::string BlackBox::bbGetOutputAsString( const std::string &output ) 
  {
    std::string v;
    // Looks for the adaptor
    if (bbGetOutputType(output).name() != typeid(std::string).name() ) 
      {
	BlackBox* a = 0;
	try
	  {
	    a = NewAdaptor(  
			   bbGetOutputType(output),
			   typeid(std::string),
			   "");
	  } catch (bbtk::Exception e) 
	  {
	  }
	if (a!=NULL){
	  //			bbUpdate();
	  a->bbSetInput("In",bbGetOutput(output));
	  a->bbExecute();
	  v = a->bbGetOutput("Out").unsafe_get<std::string>() ;
	} else {
	  v="? (no adaptor found)";
	}
      } else {
      //         bbUpdate();
      v = bbGetOutput(output).unsafe_get<std::string>() ;
    }
    return v;
  }
  //=========================================================================

  //=========================================================================
  std::string BlackBox::bbGetInputAsString( const std::string &input ) 
  {
    std::string v;
    // Looks for the adaptor
    if (bbGetInputType(input) != typeid(std::string)) 
      {
	BlackBox* a = 0;
	try
	  {
	    a = NewAdaptor(  
			   bbGetInputType(input),
			   typeid(std::string),
			   "");
	  }catch (bbtk::Exception e) 
	  {
	  }
	if (a!=NULL)
	  {
	    //			bbUpdate();
	    a->bbSetInput("In",bbGetInput(input));
	    a->bbExecute();
	    v = a->bbGetOutput("Out").unsafe_get<std::string>() ;
	  } 
	else 
	  {
	    v="? (no adaptor found)";
	  }
      } 
    else 
      {
	v = bbGetInput(input).unsafe_get<std::string>() ;
      }
    return v;
  }
  //=======================================================================

  //=======================================================================
  // Replaces substrings "<" by "["
  void SubsBrackets ( std::string& s )
  {
    //   std::cout << "BEFORE=["<<s<<"]"<<std::endl;
    std::string ss("<");
    std::string::size_type pos = 0;
    pos = s.find(ss,0);
    char* cr = "[";
    while ( pos != std::string::npos )
      {
	//	std::cout << "*** find one "<<std::endl;
	s.replace(pos,1,cr,1);
	pos = s.find(ss, pos);
      } 
    ss = ">";
    pos = 0;
    pos = s.find(ss,0);
    cr = "]";
    while ( pos != std::string::npos )
      {
	//	std::cout << "*** find one "<<std::endl;
	s.replace(pos,1,cr,1);
	pos = s.find(ss, pos);
      } 
    ss = ",";
    pos = 0;
    pos = s.find(ss,0);
    cr = "-";
    while ( pos != std::string::npos )
      {
	//	std::cout << "*** find one "<<std::endl;
	s.replace(pos,1,cr,1);
	pos = s.find(ss, pos);
      }     //    std::cout << "AFTER=["<<s<<"]"<<std::endl;
  }
  //=======================================================================

  //=========================================================================
  /// Write Graphviz-dot description in file
  void BlackBox::bbWriteDotFileBlackBox(FILE *ff,
					BlackBox *parentblackbox, 
					int detail, int level,
					bool instanceOrtype,
					bool relative_link )

  {
    InputConnectorMapType::iterator i;
    // label
    std::string labelStr;
    std::string valueStr("");
    if (detail==0)
      {
	labelStr = bbGetName() ; 
      } else {
      labelStr = bbGetName();
      labelStr = labelStr + "   [" +this->bbGetDescriptor()->GetPackage()->GetName()+"::"+ bbGetTypeName() + "]  ";
    }

    SubsBrackets(labelStr);
    if (detail==1)
      {
	labelStr = labelStr + " | {{ "; 
	std::string tempStrTypeName;
	bool tmp; 
	tmp=false;
	for ( i = mInputConnectorMap.begin(); i != mInputConnectorMap.end(); ++i ) 
	  {
	    if (tmp==true)
	      {
		labelStr=labelStr+" | ";
	      }
	    tmp=true;
	    if (instanceOrtype==true)
	      {
		valueStr = this->bbGetInputAsString(i->first) + " = ";
	      } 
	    const BlackBoxInputDescriptor* id = bbGetDescriptor()->GetInputDescriptor(i->first);
	    tempStrTypeName=id->GetTypeName();
	    SubsBrackets(tempStrTypeName);
	    std::string Name(i->first);
	    SubsBrackets(Name);
	    labelStr=labelStr + "<"+i->first.c_str()+"> "  + valueStr +  Name.c_str() + "  [" + tempStrTypeName.c_str() + "]";
	  }
	labelStr=labelStr+ " } | {";
	tmp = false;
	OutputConnectorMapType::iterator ii;
	for ( ii = mOutputConnectorMap.begin(); ii != mOutputConnectorMap.end(); ++ii ) 
	{
	   if (tmp==true)
	   {
		   labelStr=labelStr+" | ";
	   }
	   tmp = true;
	   if (instanceOrtype==true)
	   {
		   valueStr = this->bbGetOutputAsString(ii->first) + " = ";
	   }
	   const BlackBoxOutputDescriptor* id = bbGetDescriptor()->GetOutputDescriptor(ii->first); 
	   tempStrTypeName=id->GetTypeName();
	   SubsBrackets(tempStrTypeName);
	    std::string Name(ii->first);
	    SubsBrackets(Name);
	   labelStr=labelStr+"<"+ii->first.c_str()+"> " + valueStr + Name.c_str() + "  ["+tempStrTypeName+"]";
	}
	labelStr = labelStr+ "      } }" ;
} // detail

    fprintf(ff,"  " );
    bbWriteDotInputOutputName(ff,true,detail,level);
    std::string tmp ( bbGetTypeName() );
    SubsBrackets(tmp);
    std::string url;
    if (relative_link) 
      url = this->bbGetDescriptor()->GetPackage()->GetDocRelativeURL() + "#" + tmp;
    else 
      url = this->bbGetDescriptor()->GetPackage()->GetDocURL() + "#" + tmp;
  
    fprintf( ff , " [shape=record, URL=\"%s\",label=\"%s\"]%s\n",url.c_str(),labelStr.c_str(),";" );
    //    std::cout  << labelStr << std::endl;

    // Relation Input
    if (this!=parentblackbox){
      for ( i = mInputConnectorMap.begin(); i != mInputConnectorMap.end(); ++i ) 
	{
	  if (i->second)
	    {
	      Connection* con = i->second->GetConnection();
	      if (con!=NULL){
		BlackBox *a=con->GetBlackBoxFrom();
		BlackBox *b=con->GetBlackBoxTo();
		fprintf(ff,"  ");
		a->bbWriteDotInputOutputName(ff,false,detail,level);
		if (detail==1)
		  {
		    fprintf(ff,":%s",con->GetBlackBoxFromOutput().c_str());
		  }
		fprintf(ff,"->");
		b->bbWriteDotInputOutputName(ff,true,detail,level);
		if (detail==1)
		  {
		    fprintf(ff,":%s",con->GetBlackBoxToInput().c_str());
		  }
		fprintf(ff,"%s\n",";");
	      }  // if con
	    } // if second
	} // for
    } // if parentblackbox
  }
  //=========================================================================




  //=========================================================================
  void BlackBox::bbShowRelations(BlackBox *parentblackbox, 
				 int detail, int level
				 /*,Factory *factory*/ )
  {
     
    if (this->bbGetDescriptor()->GetPackage()) 
      {
	bbtkMessage("Help",1,"Black Box '"<<bbGetName()<<"' <"<<
		    this->bbGetDescriptor()->GetPackage()->GetName()
		    <<"::"<<this->bbGetDescriptor()->GetTypeName()<<">"<<std::endl);
      }
    else 
      {
	bbtkMessage("Help",1,"Black Box <::"<<this->bbGetDescriptor()->GetTypeName()<<">"<<std::endl);
      }
    //    bbtkMessage("Help",1," "<<GetDescription()<<std::endl);
    //    bbtkMessage("Help",1," By : "<<GetAuthor()<<std::endl);

    std::vector<std::string> iname;
    std::vector<std::string> ivalue;
    std::vector<std::string> iconn;

    InputConnectorMapType::iterator i;
    unsigned int namelmax = 0;
    unsigned int valuelmax = 0;
    unsigned int connlmax = 0;
    for ( i = mInputConnectorMap.begin(); i != mInputConnectorMap.end(); ++i ) 
      {
	iname.push_back(i->first);
	if (iname.back().size()>namelmax) namelmax = iname.back().size();
	ivalue.push_back(bbGetInputAsString(i->first));
	if (ivalue.back().size()>valuelmax) valuelmax = ivalue.back().size();
	std::string s("");
	Connection* con = i->second->GetConnection();
	if (con!=0){
	  s = con->GetBlackBoxFrom()->bbGetName();
	  s += ".";
	  s += con->GetBlackBoxFromOutput();
	}  // if con
	iconn.push_back(s);
      }
    OutputConnectorMapType::iterator o;
    std::vector<std::string> oname;
    std::vector<std::string> ovalue;
    std::vector<std::vector<std::string> > oconn;
    for ( o = mOutputConnectorMap.begin(); o != mOutputConnectorMap.end(); ++o ) 
      {
	oname.push_back(o->first);
	if (oname.back().size()>namelmax) namelmax = oname.back().size();
	ovalue.push_back(bbGetOutputAsString(o->first));
	if (ovalue.back().size()>valuelmax) valuelmax = ovalue.back().size();
	std::vector<std::string> ss;
	const std::vector<Connection*>& con = o->second->GetConnectionVector();
	std::vector<Connection*>::const_iterator c;
	for (c=con.begin();c!=con.end();++c) 
	  {
	    std::string s;
	    s = (*c)->GetBlackBoxTo()->bbGetName();
	    s += ".";
	    s += (*c)->GetBlackBoxToInput();
	    ss.push_back(s);
	}  // if con
	oconn.push_back(ss);
      }

    if (iname.size()) 
      bbtkMessage("Help",1," * Inputs : "<<std::endl);
    else 
      bbtkMessage("Help",1," * No inputs"<<std::endl);

    std::vector<std::string>::iterator i1,i2,i3;
    for (i1=iname.begin(),i2=ivalue.begin(),i3=iconn.begin();
	 i1!=iname.end(),i2!=ivalue.end(),i3!=iconn.end();
	 ++i1,++i2,++i3)
      {
	std::string name(*i1);
	name += "'";
	name.append(1+namelmax-name.size(),' ');
	std::string value(*i2);
	value += "'";
	value.append(1+valuelmax-value.size(),' ');
	if (i3->size()) 
	  bbtkMessage("Help",1,"    '"<<name<<" = '"<<value<<" <-- '"<<*i3<<"'"<<std::endl);
	else 
	  bbtkMessage("Help",1,"    '"<<name<<" = '"<<value<<std::endl);
      }

    if (oname.size()) 
      bbtkMessage("Help",1," * Outputs : "<<std::endl);
    else 
      bbtkMessage("Help",1," * No outputs"<<std::endl);

    std::vector<std::vector<std::string> >::iterator i4;

    for (i1=oname.begin(),i2=ovalue.begin(),i4=oconn.begin();
	 i1!=oname.end(),i2!=ovalue.end(),i4!=oconn.end();
	 ++i1,++i2,++i4)
      {
	std::string name(*i1);
	name += "'";
	name.append(1+namelmax-name.size(),' ');
	std::string value(*i2);
	value += "'";
	value.append(1+valuelmax-value.size(),' ');
	if (!(*i4).size())
	  bbtkMessage("Help",1,"    '"<<name<<" = '"<<value<<std::endl);
	else 
	  {
	    std::string pref = "    '"+name+" = '"+value;
	    for (i3=i4->begin();i3!=i4->end();++i3)
	      {
		bbtkMessage("Help",1,pref<<" --> '"<<*i3<<"'"<<std::endl);
		pref.replace(0,pref.size(),pref.size(),' ');
	      }
	  }
      }

   }
  //=========================================================================


  //=========================================================================
   void BlackBox::bbGlobalProcessExecutionList()
   {   
     bbtkDebugMessageInc("Process",1,
			 "=> BlackBox::bbGlobalProcessExecutionList()"
			 <<std::endl);     
     
     std::set<BlackBox*>::iterator i;
     for (i=bbmgExecutionList.begin();
	  i!=bbmgExecutionList.end();
	  ++i)
       {
	 bbtkDebugMessage("Process",2,
			  " -> Executing "<<(*i)->bbGetFullName()<<std::endl);
	 (*i)->bbExecute(true);
       }
     
     bbmgExecutionList.clear();
     bbtkDebugMessageDec("Process",1,
			 "<= BlackBox::bbGlobalProcessExecutionList()"
			 <<std::endl);     
     
     
   }
  //=========================================================================

  //=========================================================================
  // Static members initialization
  bool BlackBox::bbmgSomeBoxExecuting = false;
  bool BlackBox::bbmgFreezeExecution = false;
  std::set<BlackBox*> BlackBox::bbmgExecutionList;
   //=========================================================================


}  // EO namespace bbtk

// EOF