|
version 1.1, 1999/09/28 21:25:35
|
version 1.3, 2000/07/12 15:37:46
|
|
Line 1
|
Line 1
|
| #!/usr/local/bin/tclsh8.0 |
#!/usr/local/bin/tclsh8.0 |
| |
#!/usr/bin/tclsh |
| |
|
| proc copy { src dest } { |
proc copy { src dest } { |
| if {[file exists $dest]} { |
if {[file exists $dest]} { |
|
Line 6 proc copy { src dest } {
|
Line 7 proc copy { src dest } {
|
| file copy -force $src $dest |
file copy -force $src $dest |
| } else { |
} else { |
| puts "Copying $src to $dest" |
puts "Copying $src to $dest" |
| |
file mkdir [file dirname $dest] |
| file copy $src $dest |
file copy $src $dest |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to getbinaries CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51