Return to getbinaries CVS log

Up to [LON-CAPA] / capa / capa51

Initial revision

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