for {set i $first} {$i <= $last} {incr i} {		update_define_menu$i		if {$allow_update == 1} then update	}}## Next set up the particulars for the top level menu, and define a few# buttons which we will stick down at the bottom.#frame .f0 frame .f0.leftframe .f0.middleframe .f0.rightset active_menus [list]set processed_top_level 0set ARCH sparcset menus_per_column 4set total_menus 23proc toplevel_menu {num} {	if {$num == 4} then {return 3}	if {$num == 5} then {return 3}	if {$num == 6} then {return 3}	if {$num == 7} then {return 3}	if {$num == 8} then {return 3}	if {$num == 9} then {return 3}	if {$num == 13} then {return 12}	if {$num == 14} then {return 13}	if {$num == 15} then {return 13}	if {$num == 16} then {return 13}	if {$num == 17} then {return 12}	if {$num == 18} then {return 12}	if {$num == 19} then {return 12}	if {$num == 20} then {return 12}	if {$num == 21} then {return 12}	if {$num == 22} then {return 12}	return $num}mainmenu_name "LEON3MP Design Configuration"menu_option menu1 1 "Synthesis      "proc menu1 {w title} {	set oldFocus [focus]	catch {destroy $w; unregister_active 1}	toplevel $w -class Dialog	wm withdraw $w	global active_menus	set active_menus [lsort -integer [linsert $active_menus end 1]]	message $w.m -width 400 -aspect 300 -text \		"Synthesis      "  -relief raised	pack $w.m -pady 10 -side top -padx 10	wm title $w "Synthesis      " 	bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 1; break"	set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 1; menu2 .menu2 \"$title\""	frame $w.f	button $w.f.back -text "Main Menu" \		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 1"	button $w.f.next -text "Next" -underline 0\		-width 15 -command $nextscript	bind all <Alt-n> $nextscript	button $w.f.prev -text "Prev" -underline 0\		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 1; menu0 .menu0 \"$title\""	$w.f.prev configure -state disabled	pack $w.f.back $w.f.next $w.f.prev -side left -expand on	pack $w.f -pady 10 -side bottom -anchor w -fill x	frame $w.topline -relief ridge -borderwidth 2 -height 2	pack $w.topline -side top -fill x	frame $w.botline -relief ridge -borderwidth 2 -height 2	pack $w.botline -side bottom -fill x	frame $w.config	pack $w.config -fill y -expand on	scrollbar $w.config.vscroll -command "$w.config.canvas yview"	pack $w.config.vscroll -side right -fill y	canvas $w.config.canvas -height 1\		-relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \		-width [expr [winfo screenwidth .] * 1 / 2] 	frame $w.config.f	bind $w <Key-Down> "$w.config.canvas yview scroll  1 unit;break;"	bind $w <Key-Up> "$w.config.canvas yview scroll  -1 unit;break;"	bind $w <Key-Next> "$w.config.canvas yview scroll  1 page;break;"	bind $w <Key-Prior> "$w.config.canvas yview scroll  -1 page;break;"	bind $w <Key-Home> "$w.config.canvas yview moveto 0;break;"	bind $w <Key-End> "$w.config.canvas yview moveto 1 ;break;"	pack $w.config.canvas -side right -fill y	global tmpvar_0	minimenu $w.config.f 1 0 "Target technology                           " tmpvar_0 CONFIG_SYN_INFERRED	menu $w.config.f.x0.x.menu -tearoffcommand "menutitle \"Target technology                           \""	$w.config.f.x0.x.menu add radiobutton -label "Inferred" -variable tmpvar_0 -value "Inferred" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Altera-all" -variable tmpvar_0 -value "Altera-all" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Actel-Axcelerator" -variable tmpvar_0 -value "Actel-Axcelerator" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Actel-Proasic" -variable tmpvar_0 -value "Actel-Proasic" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Actel-ProasicPlus" -variable tmpvar_0 -value "Actel-ProasicPlus" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Actel-Proasic3" -variable tmpvar_0 -value "Actel-Proasic3" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Atmel-ATC18" -variable tmpvar_0 -value "Atmel-ATC18" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "IHP25" -variable tmpvar_0 -value "IHP25" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Lattice-EC/ECP/XP" -variable tmpvar_0 -value "Lattice-EC/ECP/XP" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Peregrine" -variable tmpvar_0 -value "Peregrine" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "RH-LIB18T" -variable tmpvar_0 -value "RH-LIB18T" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "RH-UMC" -variable tmpvar_0 -value "RH-UMC" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-Spartan2" -variable tmpvar_0 -value "Xilinx-Spartan2" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-Spartan3" -variable tmpvar_0 -value "Xilinx-Spartan3" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-Spartan3E" -variable tmpvar_0 -value "Xilinx-Spartan3E" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-Virtex" -variable tmpvar_0 -value "Xilinx-Virtex" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-VirtexE" -variable tmpvar_0 -value "Xilinx-VirtexE" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-Virtex2" -variable tmpvar_0 -value "Xilinx-Virtex2" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-Virtex4" -variable tmpvar_0 -value "Xilinx-Virtex4" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Aeroflex-UT025CRH" -variable tmpvar_0 -value "Aeroflex-UT025CRH" -command "update_active"	menusplit $w $w.config.f.x0.x.menu 20	global tmpvar_1	minimenu $w.config.f 1 1 "Memory Library                           " tmpvar_1 CONFIG_MEM_INFERRED	menu $w.config.f.x1.x.menu -tearoffcommand "menutitle \"Memory Library                           \""	$w.config.f.x1.x.menu add radiobutton -label "Inferred" -variable tmpvar_1 -value "Inferred" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "IHP25" -variable tmpvar_1 -value "IHP25" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "RH-LIB18T" -variable tmpvar_1 -value "RH-LIB18T" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "RH-UMC" -variable tmpvar_1 -value "RH-UMC" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "Artisan" -variable tmpvar_1 -value "Artisan" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "Virage" -variable tmpvar_1 -value "Virage" -command "update_active"	menusplit $w $w.config.f.x1.x.menu 6	bool $w.config.f 1 2 "Infer RAM" CONFIG_SYN_INFER_RAM	bool $w.config.f 1 3 "Infer pads" CONFIG_SYN_INFER_PADS	bool $w.config.f 1 4 "Disable asynchronous reset" CONFIG_SYN_NO_ASYNC	focus $w	update_active	global winx; global winy	set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]	if {[winfo exists $w]} then {wm geometry $w +$winx+$winy}	update idletasks	if {[winfo exists $w]} then  {$w.config.canvas create window 0 0 -anchor nw -window $w.config.f	$w.config.canvas configure \		-width [expr [winfo reqwidth $w.config.f] + 1]\		-scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \			 [expr [winfo reqheight $w.config.f] + 1]"	set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]	set scry [expr [winfo screenh $w] / 2]	set maxy [expr [winfo screenh $w] * 3 / 4]	set canvtotal [expr [winfo reqh $w.config.f] + 2]	if [expr $winy + $canvtotal < $maxy] {		$w.config.canvas configure -height $canvtotal	} else {		$w.config.canvas configure -height [expr $scry - $winy]		}	}	update idletasks	if {[winfo exists $w]} then {	wm maxsize $w [winfo width $w] [winfo screenheight $w]	wm minsize $w [winfo width $w] 100	wm deiconify $w}}proc update_menu1 {} {	global CONFIG_SYN_ATC18	global CONFIG_SYN_INFERRED	global CONFIG_SYN_RHUMC	global CONFIG_SYN_IHP25	if {($CONFIG_SYN_ATC18 == 1 || $CONFIG_SYN_INFERRED == 1 || $CONFIG_SYN_RHUMC == 1 || $CONFIG_SYN_IHP25 == 1)} then {configure_entry .menu1.config.f.x1 normal {x l}} else {configure_entry .menu1.config.f.x1 disabled {x l}}	global CONFIG_SYN_INFER_RAM	if {($CONFIG_SYN_INFERRED != 1)} then {	configure_entry .menu1.config.f.x2 normal {n l y}} else {configure_entry .menu1.config.f.x2 disabled {y n l}}	global CONFIG_SYN_INFER_PADS	if {($CONFIG_SYN_INFERRED != 1)} then {	configure_entry .menu1.config.f.x3 normal {n l y}} else {configure_entry .menu1.config.f.x3 disabled {y n l}}}proc update_define_menu1 {} {	update_define_mainmenu	global CONFIG_MODULES	global tmpvar_0	global CONFIG_SYN_INFERRED	if {$tmpvar_0 == "Inferred"} then {set CONFIG_SYN_INFERRED 1} else {set CONFIG_SYN_INFERRED 0}	global CONFIG_SYN_ALTERA	if {$tmpvar_0 == "Altera-all"} then {set CONFIG_SYN_ALTERA 1} else {set CONFIG_SYN_ALTERA 0}	global CONFIG_SYN_AXCEL	if {$tmpvar_0 == "Actel-Axcelerator"} then {set CONFIG_SYN_AXCEL 1} else {set CONFIG_SYN_AXCEL 0}	global CONFIG_SYN_PROASIC	if {$tmpvar_0 == "Actel-Proasic"} then {set CONFIG_SYN_PROASIC 1} else {set CONFIG_SYN_PROASIC 0}	global CONFIG_SYN_PROASICPLUS	if {$tmpvar_0 == "Actel-ProasicPlus"} then {set CONFIG_SYN_PROASICPLUS 1} else {set CONFIG_SYN_PROASICPLUS 0}	global CONFIG_SYN_PROASIC3	if {$tmpvar_0 == "Actel-Proasic3"} then {set CONFIG_SYN_PROASIC3 1} else {set CONFIG_SYN_PROASIC3 0}	global CONFIG_SYN_ATC18	if {$tmpvar_0 == "Atmel-ATC18"} then {set CONFIG_SYN_ATC18 1} else {set CONFIG_SYN_ATC18 0}	global CONFIG_SYN_IHP25	if {$tmpvar_0 == "IHP25"} then {set CONFIG_SYN_IHP25 1} else {set CONFIG_SYN_IHP25 0}	global CONFIG_SYN_LATTICE	if {$tmpvar_0 == "Lattice-EC/ECP/XP"} then {set CONFIG_SYN_LATTICE 1} else {set CONFIG_SYN_LATTICE 0}	global CONFIG_SYN_PEREGRINE	if {$tmpvar_0 == "Peregrine"} then {set CONFIG_SYN_PEREGRINE 1} else {set CONFIG_SYN_PEREGRINE 0}	global CONFIG_SYN_RH_LIB18T	if {$tmpvar_0 == "RH-LIB18T"} then {set CONFIG_SYN_RH_LIB18T 1} else {set CONFIG_SYN_RH_LIB18T 0}	global CONFIG_SYN_RHUMC	if {$tmpvar_0 == "RH-UMC"} then {set CONFIG_SYN_RHUMC 1} else {set CONFIG_SYN_RHUMC 0}	global CONFIG_SYN_SPARTAN2	if {$tmpvar_0 == "Xilinx-Spartan2"} then {set CONFIG_SYN_SPARTAN2 1} else {set CONFIG_SYN_SPARTAN2 0}	global CONFIG_SYN_SPARTAN3	if {$tmpvar_0 == "Xilinx-Spartan3"} then {set CONFIG_SYN_SPARTAN3 1} else {set CONFIG_SYN_SPARTAN3 0}	global CONFIG_SYN_SPARTAN3E	if {$tmpvar_0 == "Xilinx-Spartan3E"} then {set CONFIG_SYN_SPARTAN3E 1} else {set CONFIG_SYN_SPARTAN3E 0}	global CONFIG_SYN_VIRTEX	if {$tmpvar_0 == "Xilinx-Virtex"} then {set CONFIG_SYN_VIRTEX 1} else {set CONFIG_SYN_VIRTEX 0}	global CONFIG_SYN_VIRTEXE	if {$tmpvar_0 == "Xilinx-VirtexE"} then {set CONFIG_SYN_VIRTEXE 1} else {set CONFIG_SYN_VIRTEXE 0}	global CONFIG_SYN_VIRTEX2	if {$tmpvar_0 == "Xilinx-Virtex2"} then {set CONFIG_SYN_VIRTEX2 1} else {set CONFIG_SYN_VIRTEX2 0}	global CONFIG_SYN_VIRTEX4	if {$tmpvar_0 == "Xilinx-Virtex4"} then {set CONFIG_SYN_VIRTEX4 1} else {set CONFIG_SYN_VIRTEX4 0}	global CONFIG_SYN_UT025CRH	if {$tmpvar_0 == "Aeroflex-UT025CRH"} then {set CONFIG_SYN_UT025CRH 1} else {set CONFIG_SYN_UT025CRH 0}	global tmpvar_1	global CONFIG_MEM_INFERRED	if {$tmpvar_1 == "Inferred"} then {set CONFIG_MEM_INFERRED 1} else {set CONFIG_MEM_INFERRED 0}	global CONFIG_MEM_IHP25	if {$tmpvar_1 == "IHP25"} then {set CONFIG_MEM_IHP25 1} else {set CONFIG_MEM_IHP25 0}	global CONFIG_MEM_RH_LIB18T	if {$tmpvar_1 == "RH-LIB18T"} then {set CONFIG_MEM_RH_LIB18T 1} else {set CONFIG_MEM_RH_LIB18T 0}	global CONFIG_MEM_RHUMC	if {$tmpvar_1 == "RH-UMC"} then {set CONFIG_MEM_RHUMC 1} else {set CONFIG_MEM_RHUMC 0}	global CONFIG_MEM_ARTISAN	if {$tmpvar_1 == "Artisan"} then {set CONFIG_MEM_ARTISAN 1} else {set CONFIG_MEM_ARTISAN 0}	global CONFIG_MEM_VIRAGE	if {$tmpvar_1 == "Virage"} then {set CONFIG_MEM_VIRAGE 1} else {set CONFIG_MEM_VIRAGE 0}	global CONFIG_SYN_INFER_RAM	if {($CONFIG_SYN_INFERRED != 1)} then {	set CONFIG_SYN_INFER_RAM [expr $CONFIG_SYN_INFER_RAM&15]} else {set CONFIG_SYN_INFER_RAM [expr $CONFIG_SYN_INFER_RAM|16]}	global CONFIG_SYN_INFER_PADS	if {($CONFIG_SYN_INFERRED != 1)} then {	set CONFIG_SYN_INFER_PADS [expr $CONFIG_SYN_INFER_PADS&15]} else {set CONFIG_SYN_INFER_PADS [expr $CONFIG_SYN_INFER_PADS|16]}}menu_option menu2 2 "Clock generation"proc menu2 {w title} {	set oldFocus [focus]	catch {destroy $w; unregister_active 2}	toplevel $w -class Dialog	wm withdraw $w	global active_menus	set active_menus [lsort -integer [linsert $active_menus end 2]]	message $w.m -width 400 -aspect 300 -text \		"Clock generation"  -relief raised	pack $w.m -pady 10 -side top -padx 10	wm title $w "Clock generation" 	bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 2; break"	set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 2; menu3 .menu3 \"$title\""	frame $w.f	button $w.f.back -text "Main Menu" \		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 2"	button $w.f.next -text "Next" -underline 0\		-width 15 -command $nextscript	bind all <Alt-n> $nextscript	button $w.f.prev -text "Prev" -underline 0\		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 2; menu1 .menu1 \"$title\""	bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 2; menu1 .menu1 \"$title\";break"	pack $w.f.back $w.f.next $w.f.prev -side left -expand on	pack $w.f -pady 10 -side bottom -anchor w -fill x	frame $w.topline -relief ridge -borderwidth 2 -height 2	pack $w.topline -side top -fill x	frame $w.botline -relief ridge -borderwidth 2 -height 2	pack $w.botline -side bottom -fill x	frame $w.config	pack $w.config -fill y -expand on	scrollbar $w.config.vscroll -command "$w.config.canvas yview"	pack $w.config.vscroll -side right -fill y	canvas $w.config.canvas -height 1\		-relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \		-width [expr [winfo screenwidth .] * 1 / 2] 	frame $w.config.f	bind $w <Key-Down> "$w.config.canvas yview scroll  1 unit;break;"	bind $w <Key-Up> "$w.config.canvas yview scroll  -1 unit;break;"	bind $w <Key-Next> "$w.config.canvas yview scroll  1 page;break;"	bind $w <Key-Prior> "$w.config.canvas yview scroll  -1 page;break;"	bind $w <Key-Home> "$w.config.canvas yview moveto 0;break;"	bind $w <Key-End> "$w.config.canvas yview moveto 1 ;break;"	pack $w.config.canvas -side right -fill y	global tmpvar_2	minimenu $w.config.f 2 0 "Clock generator                     " tmpvar_2 CONFIG_CLK_INFERRED	menu $w.config.f.x0.x.menu -tearoffcommand "menutitle \"Clock generator                     \""	$w.config.f.x0.x.menu add radiobutton -label "Inferred" -variable tmpvar_2 -value "Inferred" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Actel-HCLKBUF" -variable tmpvar_2 -value "Actel-HCLKBUF" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Altera-ALTPLL" -variable tmpvar_2 -value "Altera-ALTPLL" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Lattice-EXPLL" -variable tmpvar_2 -value "Lattice-EXPLL" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "RH-LIB18T-PLL" -variable tmpvar_2 -value "RH-LIB18T-PLL" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-CLKDLL" -variable tmpvar_2 -value "Xilinx-CLKDLL" -command "update_active"	$w.config.f.x0.x.menu add radiobutton -label "Xilinx-DCM" -variable tmpvar_2 -value "Xilinx-DCM" -command "update_active"	menusplit $w $w.config.f.x0.x.menu 7	int $w.config.f 2 1 "Clock multiplication factor (2 - 32)" CONFIG_CLK_MUL	int $w.config.f 2 2 "Clock division factor (2 - 32)" CONFIG_CLK_DIV	bool $w.config.f 2 3 "Enable Xilinx CLKDLL for PCI clock" CONFIG_PCI_CLKDLL	bool $w.config.f 2 4 "Disable external feedback for SDRAM clock" CONFIG_CLK_NOFB