#!/usr/local/bin/tclsh8.0
#!/usr/bin/tclsh

proc copy {  src dest } {
	if {[file exists $dest]} {
		puts "Overwriting $dest with $src"
		file copy -force $src $dest
	} else {
		puts "Copying $src to $dest"
                file mkdir [file dirname $dest]
		file copy $src $dest
	}
}

set GUITools "grader.ppm manager.ppm menu.tcl quizzer.ppm"
set GUIToolstrip "answers grader.2 manager.2 quizzer.2 webpage.2"
set pProj "allcapaid capahtml capalogin capasbin qzparse"
set arch [exec uname]

catch {exec mkdir  DIST/$arch}
foreach a $GUITools { copy GUITools/$a DIST/$arch/$a }
foreach a $pProj { copy pProj/$arch/$a DIST/$arch/$a }
foreach a $GUIToolstrip {
	set b [file rootname $a]
	copy GUITools/$arch/$a DIST/$arch/$b
}