No comments

diff --git a/src/WOKTclTools/FILES b/src/WOKTclTools/FILES
index 6d8baea387deda01b702565c3205ef6322a07b72..b30d4b1b682121f754a6936b125f0f60b2ad4406 100755 (executable)
--- a/src/WOKTclTools/FILES
+++ b/src/WOKTclTools/FILES
@@ -11,4 +11,3 @@ WOKTclTools_WOKSteps.edl
 WOKTclTools_Replace.tcl
 WOKTclTools_Interpretor_proto.hxx
 ENV.edl
-EXTERNLIB

diff --git a/src/WOKTclTools/WOKTclTools_Interpretor.cxx b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
index a4ec975447d8753d1bf3abee21be367910ed2ff0..2bda3aba61aa2329b00d17ac247dc2a35aea6fbc 100755 (executable)
--- a/src/WOKTclTools/WOKTclTools_Interpretor.cxx
+++ b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
@@ -664,7 +664,7 @@ void WOKTclTools_Interpretor::TreatMessage(const Standard_Boolean newline,
                                           const Standard_CString astr) const
 {
   Tcl_CmdInfo infoPtr;
-  Standard_Integer status;
+  Standard_Integer status = 0;
 
   if(EndMessageProc() != NULL)
     {

diff --git a/src/WOKTclTools/WOKTclTools_MsgAPI.cxx b/src/WOKTclTools/WOKTclTools_MsgAPI.cxx
index d64587c02ec1b98107eeb95c9401dd4744e6fc1f..2fc5f1726df083b8433afd095af7d3049f94928b 100755 (executable)
--- a/src/WOKTclTools/WOKTclTools_MsgAPI.cxx
+++ b/src/WOKTclTools/WOKTclTools_MsgAPI.cxx
@@ -40,7 +40,6 @@ Standard_Integer WOKTclTools_MsgAPI::Set(const Standard_Integer argc, const WOKT
   Standard_Boolean error     = Standard_False;
   Standard_Boolean verbose   = Standard_False;
   Standard_Boolean Verbose   = Standard_False;
-  Standard_Boolean LogToFile = Standard_False;
   Handle(TCollection_HAsciiString) logfile;
   Handle(TCollection_HAsciiString) VClass;
 

diff --git a/src/WOKTclTools/WOKTclTools_Replace.tcl b/src/WOKTclTools/WOKTclTools_Replace.tcl
index 2c3dbf51c2886266a7febdcfac2b513d58858a78..d2927ccd5b4d2706aed028e30b6f2b208f7b9ef1 100755 (executable)
--- a/src/WOKTclTools/WOKTclTools_Replace.tcl
+++ b/src/WOKTclTools/WOKTclTools_Replace.tcl
@@ -1,15 +1,15 @@
 
 
-proc WOKTclTools_Replace::AdmFileType {} {
+proc WOKTclTools_Replace:AdmFileType {} {
     return "dbadmfile";
 }
 
-proc WOKTclTools_Replace::OutputDirTypeName {} {
+proc WOKTclTools_Replace:OutputDirTypeName {} {
     return "dbtmpfile";
 }
 
 
-proc WOKTclTools_Replace::HandleInputFile { ID } { 
+proc WOKTclTools_Replace:HandleInputFile { ID } { 
 
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
 
@@ -21,14 +21,14 @@ proc WOKTclTools_Replace::HandleInputFile { ID } {
     }
 }
 
-proc WOKTclTools_Replace::Execute { unit args } {
+proc WOKTclTools_Replace:Execute { unit args } {
     
     global tcl_interactive
 
     set tcl_interactive 1
     package require Wokutils
 
-    msgprint -i -c "WOKTclTools_Replace::Execute" "Copying of WOKTclTools includes"
+    msgprint -i -c "WOKTclTools_Replace:Execute" "Copying of WOKTclTools includes"
 
     if { [wokparam -e %Station $unit] != "wnt" } {
        set copycmd "cp -p "
@@ -56,13 +56,13 @@ proc WOKTclTools_Replace::Execute { unit args } {
        }
        
        if { ! $result } {
-           msgprint -i -c "WOKTclTools_Replace::Execute" "Copy $source to $target"
+           msgprint -i -c "WOKTclTools_Replace:Execute" "Copy $source to $target"
            if { [wokparam -e %Station $unit] != "wnt" } {
                eval exec "chmod u+w $target"
            }
            eval exec "$copycmd $TheArgs"
        } else {
-           msgprint -i -c "WOKTclTools_Replace::Execute" "No change in $source"
+           msgprint -i -c "WOKTclTools_Replace:Execute" "No change in $source"
        }
     }
     return 0;

diff --git a/src/WOKTclTools/WOKTclTools_WOKSteps.edl b/src/WOKTclTools/WOKTclTools_WOKSteps.edl
index d5ed65ca512b41cdae5a5109ba3274e855d4a3f5..443621175a68aebd471d85c963ed4a9d8edd4120 100755 (executable)
--- a/src/WOKTclTools/WOKTclTools_WOKSteps.edl
+++ b/src/WOKTclTools/WOKTclTools_WOKSteps.edl
@@ -1,8 +1,6 @@
-
-@ifnotdefined ( %WOKTclTools_WOKUMake_EDL) then
-@set %WOKTclTools_WOKUMake_EDL = "";
-
-@string %WOKSteps_XcppGroup += " xcpp.repl ";
-@set %WOKSteps_xcpp_repl = "*WOKTclTools_Replace(xcpp.header)";
-
+@ifnotdefined ( %MS_WOKSteps_EDL ) then
+ @set %MS_WOKSteps_EDL        = "";
+ @string %WOKSteps_XcppGroup += " xcpp.repl ";
+ @set %WOKSteps_xcpp_repl     = "*WOKTclTools_Replace(xcpp.header)";
 @endif;
+