![[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|
Return to getbinaries CVS log | Up to [LON-CAPA] / capa / capa51 |
| version 1.2, 2000/03/22 21:08:02 | version 1.3, 2000/07/12 15:37:46 |
|---|---|
| Line 7 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 |
| } | } |
| } | } |