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: }