+ //=======================================================================
+ ///
+ void Executer::Print(const std::string &str)
+ {
+ if (GetNoExecMode() && (Current()==mRootCBB) ) return;
+ if (Current()!=mRootCBB) return;
+
+ bbtkDebugMessageInc("Interpreter",9,"Interpreter::Print(\""<<str<<"\")"<<std::endl);
+
+ // TO DO :
+ // InterpretLine ("load std")
+ // InterpretLine("new ConcatStrings _C_ ") -> trouver un nom unique : # commande
+ // InterpretLine("new Print _P_")
+ // InterpretLine("connect _C_.Out _P_.In")
+ // int num = 1
+
+
+ std::vector<std::string> chains;
+ std::string delimiters("$");
+
+ // Skip delimiters at beginning.
+ std::string::size_type lastPos = str.find_first_not_of(delimiters, 0);
+ bool is_text = true;
+ if (lastPos>0) is_text = false;
+
+ // Find first delimiter.
+ std::string::size_type pos = str.find_first_of(delimiters, lastPos);
+
+ while (std::string::npos != pos || std::string::npos != lastPos)
+ {
+ if (is_text)