From 164d5f7735894704455bf9f425fe3622a64c85e2 Mon Sep 17 00:00:00 2001 From: cas Date: Wed, 24 Nov 1999 18:03:07 +0000 Subject: [PATCH] No comments --- src/WOKUtils/WOKUtils_Replace.tcl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/WOKUtils/WOKUtils_Replace.tcl b/src/WOKUtils/WOKUtils_Replace.tcl index ca96067..61ee6f0 100755 --- a/src/WOKUtils/WOKUtils_Replace.tcl +++ b/src/WOKUtils/WOKUtils_Replace.tcl @@ -1,15 +1,15 @@ -proc WOKUtils_Replace:AdmFileType {} { +proc WOKUtils_Replace::AdmFileType {} { return "dbadmfile"; } -proc WOKUtils_Replace:OutputDirTypeName {} { +proc WOKUtils_Replace::OutputDirTypeName {} { return "dbtmpfile"; } -proc WOKUtils_Replace:HandleInputFile { ID } { +proc WOKUtils_Replace::HandleInputFile { ID } { scan $ID "%\[^:\]:%\[^:\]:%\[^:\]" unit type name @@ -34,7 +34,7 @@ proc WOKUtils_Replace:HandleInputFile { ID } { } } -proc WOKUtils_Replace:Execute { unit args } { +proc WOKUtils_Replace::Execute { unit args } { global tcl_interactive @@ -62,9 +62,9 @@ proc WOKUtils_Replace:Execute { unit args } { regsub -all "/" " $source $target" $replstr TheArgs - set A [catch {eval "wokcmp $TheArgs"} result ] + set A [catch {eval exec "cmp $TheArgs"} result ] - if { [wokparam -e %Station $unit] == "wnt" && $result != "" } { + if { $result != "" } { set result 0 } else { set result 1 } -- 2.39.5