From: cascade <cascade@opencascade.com>
Date: Fri, 2 Sep 2005 20:41:02 +0000 (+0000)
Subject: OCC8311 Use tcl8.4 instead of current tcl8.3 cxx only
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=e58a5a37279b4778e84baba67cb890684500a48b;p=occt-wok.git

OCC8311 Use tcl8.4 instead of current tcl8.3 cxx only
---

diff --git a/src/WOKTCL/WOKTCL_DefaultCommand.cxx b/src/WOKTCL/WOKTCL_DefaultCommand.cxx
index a2e2468..4fb5b64 100755
--- a/src/WOKTCL/WOKTCL_DefaultCommand.cxx
+++ b/src/WOKTCL/WOKTCL_DefaultCommand.cxx
@@ -44,8 +44,14 @@
 //extern Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp;
 Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp;
 
+// MKV 24.08.05
+#if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
+Standard_Integer DefaultCommand(ClientData clientData, Tcl_Interp *, 
+				Standard_Integer argc, const char* argv[])
+#else
 Standard_Integer DefaultCommand(ClientData clientData, Tcl_Interp *, 
 				Standard_Integer argc, char* argv[])
+#endif
 {
   volatile Standard_Integer status = 0;
 
@@ -68,7 +74,12 @@ Standard_Integer DefaultCommand(ClientData clientData, Tcl_Interp *,
     WOKUtils_ProcessManager::Arm();
 
     // appel de la fonction API
+    // MKV 24.08.05
+#if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
+    if(!(*acmd)(C->i->Session(), argc, (char**)argv, returns))
+#else
     if(!(*acmd)(C->i->Session(), argc, argv, returns))
+#endif
       {
 	if(!C->i->TreatReturn(returns)) 
 	  {
@@ -88,7 +99,12 @@ Standard_Integer DefaultCommand(ClientData clientData, Tcl_Interp *,
     Standard_SStream astream;
     astream << E << ends;
 
+    // MKV 24.08.05
+#if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
+    ErrorMsg << (char*)argv[0] << "Exception was raised : " << GetSString(astream) << endm;
+#else
     ErrorMsg << argv[0] << "Exception was raised : " << GetSString(astream) << endm;
+#endif
 
     WOKAPI_Session* asess = (WOKAPI_Session *) &(C->i->Session());
     asess->GeneralFailure(E);
diff --git a/src/WOKTCL/WOKTCL_DefaultCommand.hxx b/src/WOKTCL/WOKTCL_DefaultCommand.hxx
index 1225a07..5ffc10f 100755
--- a/src/WOKTCL/WOKTCL_DefaultCommand.hxx
+++ b/src/WOKTCL/WOKTCL_DefaultCommand.hxx
@@ -15,8 +15,14 @@ struct CData {
 };
 
 
+// MKV 24.08.05
+#if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
+Standard_Integer DefaultCommand(ClientData , Tcl_Interp *, 
+				Standard_Integer ,const char* []);
+#else
 Standard_Integer DefaultCommand(ClientData , Tcl_Interp *, 
 				Standard_Integer , char* []);
+#endif
 
 void DefaultCommandDelete (ClientData );