Return to getbinaries CVS log

Up to [LON-CAPA] / capa / capa51

Annotation of capa/capa51/getbinaries, revision 1.2

1.1       albertel    1: #!/usr/local/bin/tclsh8.0
1.2     ! albertel    2: #!/usr/bin/tclsh
1.1       albertel    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: }