#!/usr/bin/wish

proc printProcs file {
	set f [open $file w]
	puts $f #!/usr/bin/tclsh
	puts $f
	puts $f "# Modeline for ViM: ^^^"
	puts $f "# vim:set ts=4:"
	puts $f "# vim600:fdm=marker fdl=0 fdc=3 commentstring=\"#%s\":"
	puts $f "# vim600:foldmarker=^^^,%%%:"
	puts $f "# %%%"
	foreach proc [info procs] {
		set argList {}
		foreach arg [info args $proc] {
			if [info default $proc $arg default] {
				lappend argList [list $arg $default]
			} else {
				lappend argList $arg
			}
		}
		puts $f "# Procedure $proc ^^^"
		puts $f [list proc $proc $argList [info body $proc]]
		puts $f "# %%%"
	}
	close $f
}

C_XGDebug

#puts stderr [list [info procs]]

# Modeline for ViM: {{{
# vim:set ts=4:
# vim600:fdm=marker fdl=0 fdc=3 commentstring="#%s":
# }}}