Return to getbinaries CVS log

Up to [LON-CAPA] / capa / capa51

Annotation of capa/capa51/getbinaries, revision 1.3

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"
1.3     ! albertel   10:                 file mkdir [file dirname $dest]
1.1       albertel   11: 		file copy $src $dest
                     12: 	}
                     13: }
                     14: 
                     15: set GUITools "grader.ppm manager.ppm menu.tcl quizzer.ppm"
                     16: set GUIToolstrip "answers grader.2 manager.2 quizzer.2 webpage.2"
                     17: set pProj "allcapaid capahtml capalogin capasbin qzparse"
                     18: set arch [exec uname]
                     19: 
                     20: catch {exec mkdir  DIST/$arch}
                     21: foreach a $GUITools { copy GUITools/$a DIST/$arch/$a }
                     22: foreach a $pProj { copy pProj/$arch/$a DIST/$arch/$a }
                     23: foreach a $GUIToolstrip {
                     24: 	set b [file rootname $a]
                     25: 	copy GUITools/$arch/$a DIST/$arch/$b
                     26: }