Return to getbinaries CVS log

Up to [LON-CAPA] / capa / capa51

Annotation of capa/capa51/getbinaries, revision 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: }