From: cas <cas@opencascade.com>
Date: Fri, 5 Nov 1999 18:28:10 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=e794705ec68c6375ebc485d999e6aa1baababc90;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclTools/FILES b/src/WOKTclTools/FILES
index 6d8baea..b30d4b1 100755
--- 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 a4ec975..2bda3ab 100755
--- 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 d64587c..2fc5f17 100755
--- 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 2c3dbf5..d2927cc 100755
--- 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 d5ed65c..4436211 100755
--- 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;
+