Return to getbinaries CVS log | Up to [LON-CAPA] / capa / capa51 |
- Lots of little changes
1: #!/usr/local/bin/tclsh8.0 2: #!/usr/bin/tclsh 3: 4: proc copy { src dest } { 5: if {[file exists $dest]} { 6: puts "Overwriting $dest with $src" 7: file copy -force $src $dest 8: } else { 9: puts "Copying $src to $dest" 10: file copy $src $dest 11: } 12: } 13: 14: set GUITools "grader.ppm manager.ppm menu.tcl quizzer.ppm" 15: set GUIToolstrip "answers grader.2 manager.2 quizzer.2 webpage.2" 16: set pProj "allcapaid capahtml capalogin capasbin qzparse" 17: set arch [exec uname] 18: 19: catch {exec mkdir DIST/$arch} 20: foreach a $GUITools { copy GUITools/$a DIST/$arch/$a } 21: foreach a $pProj { copy pProj/$arch/$a DIST/$arch/$a } 22: foreach a $GUIToolstrip { 23: set b [file rootname $a] 24: copy GUITools/$arch/$a DIST/$arch/$b 25: }