char trigConf_roc_tcl_proc[]=
"#!/usr/bin/wish\n"
"#\n"
"# These routines display (and undisplay) the ROC branch settings\n"
"# controls.\n"
"#\n"
"\n"
"set show_roc_programmer 0\n"
"set numberofrocs 0\n"
"set enablereg \"0x0\"\n"
"\n"
"# this is an unfortunate kludge to avoid a tcl crash due to this\n"
"# not being defined before the first call to UpdateBranchStatistics\n"
"set roc_enable_b5r0 1\n"
"\n"
"proc ROCProgrammer {path} {\n"
"\n"
"	global smallfont mediumfont largefont hugefont\n"
"	global rocprogrammerpath\n"
"	\n"
"	set rocprogrammerpath $path\n"
"	\n"
"	# ROC label\n"
"	label $path.lab -text \"ROC Branch Settings\" -font $hugefont\n"
"	pack $path.lab -side top -fill x\n"
"\n"
"	frame $path.roc\n"
"	pack $path.roc -side top -fill both\n"
"\n"
"	# Branch Enables\n"
"	set w $path.roc.be\n"
"	frame $w\n"
"	pack $w -side left -fill both\n"
"	AddBranch 1 $w 8\n"
"	AddBranch 2 $w 8\n"
"	AddBranch 3 $w 8\n"
"	AddBranch 4 $w 8\n"
"	AddBranch 5 $w 1\n"
"	\n"
"	# Branch Statistics\n"
"	set w $path.roc.bs\n"
"	frame $w\n"
"	pack $w -side left -fill both\n"
"	\n"
"	# columns to hold name/value pairs\n"
"	set wnames $w.names\n"
"	frame $wnames\n"
"	pack $wnames -side left -fill y\n"
"	set wvals $w.vals\n"
"	frame $wvals\n"
"	pack $wvals -side left -fill y\n"
"	\n"
"	label $wnames.nrocs -text \"Number of ROCs:\" -anchor e\n"
"	label $wvals.nrocs -textvariable numberofrocs -anchor w\n"
"	pack $wnames.nrocs $wvals.nrocs -side top -fill x\n"
"\n"
"	label $wnames.enablereg -text \"ROC Enable Register:\" -anchor e\n"
"	label $wvals.enablereg -textvariable enablereg -anchor w\n"
"	pack $wnames.enablereg $wvals.enablereg -side top -fill x\n"
"	\n"
"	# ROC Lock Mode\n"
"	set w $path.roc.rl\n"
"	frame $w -relief groove -borderwidth 2\n"
"	pack $w -side right -fill both\n"
"	label $w.lab -text \"ROC Lock Mode\" -font $largefont\n"
"	pack $w.lab -side top\n"
"	for {set branch 1} {[expr $branch<=5]} {incr branch} {\n"
"		checkbutton $w.branch$branch -text [format \"branch %d\" $branch] -variable roc_lock$branch\n"
"		pack $w.branch$branch -side top\n"
"	}\n"
"	\n"
"}\n"
"\n"
"proc AddBranch {branch path maxrocs} {\n"
"	global smallfont mediumfont largefont hugefont\n"
"\n"
"	# frame\n"
"	set f $path.branch$branch\n"
"	frame $f -relief groove -borderwidth 2\n"
"	pack $f -side left -fill y\n"
"\n"
"	# label\n"
"	label $f.lab -text [format \"Branch %d\" $branch] -font $largefont\n"
"	pack $f.lab -side top\n"
"\n"
"	# rocs\n"
"	for {set i 0} {[expr $i<$maxrocs]} {incr i} {\n"
"		checkbutton $f.roc$i -text $i -variable roc_enable_b${branch}r$i -command {UpdateBranchStatistics}\n"
"		pack $f.roc$i -side top\n"
"	}\n"
"}\n"
"\n"
"proc ShowHideROCProgrammer {} {\n"
"	global show_roc_programmer\n"
"	global rocprogrammerpath\n"
"	\n"
"	if {[expr $show_roc_programmer==1]} then {\n"
"		pack forget $rocprogrammerpath\n"
"		set show_roc_programmer 0\n"
"	} else {\n"
"		pack $rocprogrammerpath -side bottom -fill both\n"
"		set show_roc_programmer 1\n"
"	}\n"
"}\n"
"\n"
"proc UpdateBranchStatistics {} {\n"
"	global numberofrocs\n"
"	global enablereg\n"
"	\n"
"	set nrocs 0\n"
"	set register 0\n"
"	for {set branch 1} {[expr $branch<=5]} {incr branch} {\n"
"		for {set roc 0} {[expr $roc<($branch==5 ? 1:8)]} {incr roc} {\n"
"			global roc_enable_b${branch}r$roc\n"
"			set cmd [format \"set enabled \\$%s\" roc_enable_b${branch}r$roc]\n"
"			eval $cmd\n"
"			if {[expr $enabled==1]} then {\n"
"				incr nrocs\n"
"				if {[expr $branch!=5]} then {\n"
"					set register [expr $register+(1<<(($branch-1)*8+$roc))]\n"
"				}\n"
"			}\n"
"		}\n"
"	}\n"
"	set numberofrocs $nrocs\n"
"	set enablereg [format \"0x%x\" $register]\n"
"}\n"
"\n"
"\n"

;