Pieper: New page:

 #!/bin/sh # the next line restarts using tclsh \     exec wish "$0" "$@"  wm withdraw .  set ::tkdiff "c:/Program Files (x86)/TkDiff/tkdiff.exe"  proc diffcopy {fileName} {   puts "c...

2009-02-03T17:53:35Z

New page: <pre> #!/bin/sh # the next line restarts using tclsh \ exec wish "$0" "$@" wm withdraw . set ::tkdiff "c:/Program Files (x86)/TkDiff/tkdiff.exe" proc diffcopy {fileName} { puts "c...

New page

<pre>
#!/bin/sh
# the next line restarts using tclsh \
exec wish "$0" "$@"

wm withdraw .

set ::tkdiff "c:/Program Files (x86)/TkDiff/tkdiff.exe"

proc diffcopy {fileName} {
puts "checking $fileName"
set dest $fileName
set src c:/pieper/bwh/slicer3/EventBroker/Slicer3/$fileName

if { [file isdirectory $src] } {
puts "skipping directory $fileName"
return
}

if { ![file exists $src] } {
puts "no source file $fileName"
return
}

set ret [catch [list exec diff $src $dest] res]
if { $res == "" } {
puts "no changes in $fileName"
return
}

set ret [catch [list exec $::tkdiff $src $dest] res]

set resp [tk_messageBox -message "copy \n\t$src \nto\n\t$dest\n?" -type yesno]

if { $resp == "yes" } {
puts "copying $src to $dest"
file copy -force $src $dest
}
}

foreach fileName $argv {
diffcopy $fileName
}

exit

</pre>

User:Pieper:differ - Revision history

Pieper: New page:
#!/bin/sh # the next line restarts using tclsh \ exec wish "$0" "$@" wm withdraw . set ::tkdiff "c:/Program Files (x86)/TkDiff/tkdiff.exe" proc diffcopy {fileName} { puts "c...