?? lconfig.tk
字號(hào):
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 19proc 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 12} if {$num == 17} then {return 12} if {$num == 18} then {return 12} return $num}mainmenu_name "LEON3 Altera EP1C20 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 "Aeroflex-UT025CRH" -variable tmpvar_0 -value "Aeroflex-UT025CRH" -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 "Custom1" -variable tmpvar_0 -value "Custom1" -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 "IHP25RH" -variable tmpvar_0 -value "IHP25RH" -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 "Xilinx-Virtex5" -variable tmpvar_0 -value "Xilinx-Virtex5" -command "update_active" menusplit $w $w.config.f.x0.x.menu 23 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 "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 "Custom1" -variable tmpvar_1 -value "Custom1" -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 5 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_INFERRED global CONFIG_SYN_CUSTOM1 global CONFIG_SYN_ATC18 global CONFIG_SYN_RHUMC global CONFIG_SYN_ARTISAN if {($CONFIG_SYN_INFERRED == 1 || $CONFIG_SYN_CUSTOM1 == 1 || $CONFIG_SYN_ATC18 == 1 || $CONFIG_SYN_RHUMC == 1 || $CONFIG_SYN_ARTISAN == 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_UT025CRH if {$tmpvar_0 == "Aeroflex-UT025CRH"} then {set CONFIG_SYN_UT025CRH 1} else {set CONFIG_SYN_UT025CRH 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_CUSTOM1 if {$tmpvar_0 == "Custom1"} then {set CONFIG_SYN_CUSTOM1 1} else {set CONFIG_SYN_CUSTOM1 0} global CONFIG_SYN_IHP25 if {$tmpvar_0 == "IHP25"} then {set CONFIG_SYN_IHP25 1} else {set CONFIG_SYN_IHP25 0} global CONFIG_SYN_IHP25RH if {$tmpvar_0 == "IHP25RH"} then {set CONFIG_SYN_IHP25RH 1} else {set CONFIG_SYN_IHP25RH 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_VIRTEX5 if {$tmpvar_0 == "Xilinx-Virtex5"} then {set CONFIG_SYN_VIRTEX5 1} else {set CONFIG_SYN_VIRTEX5 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_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_CUSTOM1 if {$tmpvar_1 == "Custom1"} then {set CONFIG_MEM_CUSTOM1 1} else {set CONFIG_MEM_CUSTOM1 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?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -