From: cascade <cascade@opencascade.com>
Date: Fri, 30 Jan 2009 17:32:05 +0000 (+0000)
Subject: OCC20515 OCC parallelization
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=4eeecc3b8371aed56d6208db619291529cc83030;p=occt-wok.git

OCC20515 OCC parallelization
---

diff --git a/src/WOKTclTools/FILES b/src/WOKTclTools/FILES
index 6d8baea..117b31b 100755
--- a/src/WOKTclTools/FILES
+++ b/src/WOKTclTools/FILES
@@ -7,8 +7,5 @@ WOKTclTools_WokCommand.hxx
 WOKTclTools_ExitHandler.hxx
 WOKTclTools_TriggerHandler.cxx
 WOKTclTools_TriggerHandler.hxx
-WOKTclTools_WOKSteps.edl
-WOKTclTools_Replace.tcl
-WOKTclTools_Interpretor_proto.hxx
 ENV.edl
 EXTERNLIB
diff --git a/src/WOKTclTools/WOKTclTools.cdl b/src/WOKTclTools/WOKTclTools.cdl
index ec4899d..7e7d8da 100755
--- a/src/WOKTclTools/WOKTclTools.cdl
+++ b/src/WOKTclTools/WOKTclTools.cdl
@@ -16,11 +16,11 @@ uses
 
 is
 
-    imported CommandFunction;
+    primitive CommandFunction;
     imported PInterp;
-    imported ExitHandler;
+    primitive ExitHandler;
 
-    imported WokCommand;
+    primitive WokCommand;
     
     class Package;
 
diff --git a/src/WOKTclTools/WOKTclTools_Interpretor.cxx b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
index d8b9ff1..003b8fa 100755
--- a/src/WOKTclTools/WOKTclTools_Interpretor.cxx
+++ b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
@@ -555,8 +555,9 @@ void WOKTclTools_Interpretor::Append(const Standard_Real i)
 //function : AppendElement
 //purpose  : 
 //=======================================================================
-void WOKTclTools_Interpretor::AppendElement(Standard_CString s)
+void WOKTclTools_Interpretor::AppendElement(const Standard_CString s)
 {
+
 #ifdef IRIX
   //AppendElement is declared as (Tcl_Interp *interp, char *string)
   //on SGI 32