Return to getbinaries CVS log

Up to [LON-CAPA] / capa / capa51

Annotation of capa/capa51/getbinaries, revision 1.1.1.1

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