Subversion Repositories mips_enhanced

# FILE: header.tk
# This file is boilerplate TCL/TK function definitions for 'make xconfig'.
#
# CHANGES
# =======
#
# 8 January 1999, Michael Elizabeth Chastain, <mec@shout.net>
# - Remove unused do_cmd function (part of the 2.0 sound support).
# - Arrange buttons in three columns for better screen fitting.
# - Add CONSTANT_Y, CONSTANT_M, CONSTANT_N for commands like:
#     dep_tristate 'foo' CONFIG_FOO m
#
# 23 January 1999, Michael Elizabeth Chastain, <mec@shout.net>
# - Shut vfix the hell up.
#
# 24 January 1999, Michael Elizabeth Chastain, <mec@shout.net>
# - Improve the exit message (Jeff Ronne).

#
# This is a handy replacement for ".widget cget" that requires neither tk4
# nor additional source code uglification.
#
proc cget { w option } {
        return "[lindex [$w configure $option] 4]"
}

#
# Function to compensate for broken config.in scripts like the sound driver,
# which make dependencies on variables that are never even conditionally
# defined.
#
proc vfix { var } {
        global $var
        if [ catch {eval concat $$var} ] {
                set $var 4
        }
}

#
# Constant values used by certain dep_tristate commands.
#
set CONSTANT_Y 1
set CONSTANT_M 2
set CONSTANT_N 0
set CONSTANT_E 4

#
# Create a "reference" object to steal colors from.
#
button .ref

#
# On monochrome displays, -disabledforeground is blank by default; that's
# bad.  Fill it with -foreground instead.
#
if { [cget .ref -disabledforeground] == "" } {
        .ref configure -disabledforeground [cget .ref -foreground]
}


#
# Define some macros we will need to parse the config.in file.
#

proc mainmenu_name { text } {
        wm title . "$text"
}

proc menu_option { w menu_num text } {
        global menus_per_column
        global processed_top_level
        set processed_top_level [expr $processed_top_level + 1]
        if { $processed_top_level <= $menus_per_column } then {
            set myframe left
        } elseif { $processed_top_level <= [expr 2 * $menus_per_column] } then {
            set myframe middle
        } else {
            set myframe right
        } 
        button .f0.x$menu_num -anchor w -text "$text" \
            -command "$w .$w \"$text\""
        pack .f0.x$menu_num -pady 0 -side top -fill x -in .f0.$myframe
}

proc load_configfile { w title func } {
        catch {destroy $w}
        toplevel $w -class Dialog
        global loadfile
        frame $w.x
        label $w.bm -bitmap questhead
        pack  $w.bm -pady 10 -side top -padx 10
        label $w.x.l -text "Enter filename:" -relief raised
        entry $w.x.x -width 35 -relief sunken -borderwidth 2 \
                -textvariable loadfile
        pack $w.x.l $w.x.x -anchor w -side left
        pack $w.x -side top -pady 10
        wm title $w "$title" 

        set oldFocus [focus]
        frame $w.f
        button $w.f.back -text "OK" -width 20 \
                -command "destroy $w; focus $oldFocus;$func .fileio"
        button $w.f.canc -text "Cancel" \
                -width 20 -command "destroy $w; focus $oldFocus"
        pack $w.f.back $w.f.canc -side left -pady 10 -padx 45
        pack $w.f -pady 10 -side bottom -padx 10 -anchor w
        focus $w
        global winx; global winy
        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]
        wm geometry $w +$winx+$winy
}

bind all <Alt-q> {maybe_exit .maybe}

proc maybe_exit { w } {
        catch {destroy $w}
        toplevel $w -class Dialog
        label $w.bm -bitmap questhead
        pack  $w.bm -pady 10 -side top -padx 10
        message $w.m -width 400 -aspect 300 \
                -text "Changes will be lost.  Are you sure?" -relief flat
        pack  $w.m -pady 10 -side top -padx 10
        wm title $w "Are you sure?" 

        set oldFocus [focus]
        frame $w.f
        button $w.f.back -text "OK" -width 20 \
                -command "exit 1"
        button $w.f.canc -text "Cancel" \
                -width 20 -command "destroy $w; focus $oldFocus"
        pack $w.f.back $w.f.canc -side left -pady 10 -padx 45
        pack $w.f -pady 10 -side bottom -padx 10 -anchor w
        bind $w <Return> "exit 1"
        bind $w <Escape> "destroy $w; focus $oldFocus"
        focus $w
        global winx; global winy
        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]
        wm geometry $w +$winx+$winy
}

proc read_config_file { w } {
        global loadfile
        if { [string length $loadfile] != 0 && [file readable $loadfile] == 1 } then {
                read_config $loadfile
        } else {
                catch {destroy $w}
                toplevel $w -class Dialog
                message $w.m -width 400 -aspect 300 -text \
                        "Unable to read file $loadfile" \
                         -relief raised 
                label $w.bm -bitmap error
                pack $w.bm $w.m -pady 10 -side top -padx 10
                wm title $w "Xconfig Internal Error" 

                set oldFocus [focus]
                frame $w.f
                button $w.f.back -text "Bummer" \
                        -width 10 -command "destroy $w; focus $oldFocus"
                pack $w.f.back -side bottom -pady 10 -anchor s
                pack $w.f -pady 10 -side top -padx 10 -anchor s
                focus $w
                global winx; global winy
                set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]
                wm geometry $w +$winx+$winy
        }
}

proc write_config_file  { w } {
        global loadfile
        if { [string length $loadfile] != 0 
                && ([file writable $loadfile] == 1 || ([file exists $loadfile] == 0 && [file writable [file dirname $loadfile]] == 1)) } then {
                writeconfig $loadfile .null
        } else {
                catch {destroy $w}
                toplevel $w -class Dialog
                message $w.m -width 400 -aspect 300 -text \
                        "Unable to write file $loadfile" \
                         -relief raised 
                label $w.bm -bitmap error
                pack $w.bm $w.m -pady 10 -side top -padx 10
                wm title $w "Xconfig Internal Error" 

                set oldFocus [focus]
                frame $w.f
                button $w.f.back -text "OK" \
                        -width 10 -command "destroy $w; focus $oldFocus"
                pack $w.f.back -side bottom -pady 10 -anchor s
                pack $w.f -pady 10 -side top -padx 10 -anchor s
                focus $w
                global winx; global winy
                set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]
                wm geometry $w +$winx+$winy
        }
}

proc read_config { filename } {
        set file1 [open $filename r]
        clear_choices
        while { [gets $file1 line] >= 0} {
                if [regexp {([0-9A-Za-z_]+)=([ynm])} $line foo var value] {
                        if { $value == "y" } then { set cmd "global $var; set $var 1" }
                        if { $value == "n" } then { set cmd "global $var; set $var 0" }
                        if { $value == "m" } then { set cmd "global $var; set $var 2" }
                        eval $cmd
                }
                if [regexp {# ([0-9A-Za-z_]+) is not set} $line foo var] {
                        set cmd "global $var; set $var 0"
                        eval $cmd
                }
                if [regexp {([0-9A-Za-z_]+)=([0-9A-Fa-f]+)} $line foo var value] {
                        set cmd "global $var; set $var $value"
                        eval $cmd
                }
                if [regexp {([0-9A-Za-z_]+)="([^"]*)"} $line foo var value] {
                        set cmd "global $var; set $var \"$value\""
                        eval $cmd
                }
        }
        close $file1
        update_choices
        update_mainmenu
}
proc write_comment { file1 file2 text } {
        puts $file1 ""
        puts $file1 "#"
        puts $file1 "# $text"
        puts $file1 "#"
        puts $file2 "/*"
        puts $file2 " * $text"
        puts $file2 " */"
}

proc effective_dep { deplist } {
        global CONFIG_MODULES
        set depend 1
        foreach i $deplist {
                if {$i == 0} then {set depend 0}
                if {$i == 2 && $depend == 1} then {set depend 2}
        }
        if {$depend == 2 && $CONFIG_MODULES == 0} then {set depend 0}
        return $depend
}

proc sync_tristate { var dep } {
        global CONFIG_MODULES
        if {$dep == 0 && ($var == 1 || $var == 2)} then {
                set var 0
        } elseif {$dep == 2 && $var == 1} then {
                set var 2
        } elseif {$var == 2 && $CONFIG_MODULES == 0} then {
                if {$dep == 1} then {set var 1} else {set var 0}
        }
        return $var
}

proc sync_bool { var dep modset } {
        set var [sync_tristate $var $dep]
        if {$dep == 2 && $var == 2} then {
                set var $modset
        }
        return $var
}

proc write_tristate { file1 file2 varname variable deplist modset } {
        set variable [sync_tristate $variable [effective_dep $deplist]]
        if { $variable == 2 } \
                then { set variable $modset }
        if { $variable == 1 } \
                then { puts $file1 "$varname=y"; \
                       puts $file2 "#define $varname 1" } \
        elseif { $variable == 2 } \
                then { puts $file1 "$varname=m"; \
                       puts $file2 "#undef  $varname"; \
                       puts $file2 "#define ${varname}_MODULE 1" } \
        elseif { $variable == 0 } \
                then { puts $file1 "# $varname is not set"; \
                       puts $file2 "#undef  $varname"} \
        else { \
            puts stdout "ERROR - Attempting to write value for unconfigured variable ($varname)." \
        }
}

proc write_int { file1 file2 varname variable dep } {
        if { $dep == 0 } \
                then { puts $file1 "# $varname is not set"; \
                       puts $file2 "#undef  $varname"} \
        else {
                puts $file1 "$varname=$variable"; \
                puts $file2 "#define $varname ($variable)"; \
        }
}

proc write_hex { file1 file2 varname variable dep } {
        if { $dep == 0 } \
                then { puts $file1 "# $varname is not set"; \
                       puts $file2 "#undef  $varname"} \
        else {
                puts $file1 "$varname=$variable"; \
                puts -nonewline $file2 "#define $varname "; \
                puts $file2 [exec echo $variable | sed s/^0\[xX\]//]; \
        }
}

proc write_string { file1 file2 varname variable dep } {
        if { $dep == 0 } \
                then { puts $file1 "# $varname is not set"; \
                       puts $file2 "#undef  $varname"} \
        else {
                puts $file1 "$varname=\"$variable\""; \
                puts $file2 "#define $varname \"$variable\""; \
        }
}

proc option_name {w mnum line text helpidx} {
        button $w.x$line.l -text "$text" -relief groove -anchor w
        $w.x$line.l configure -activefore [cget $w.x$line.l -fg] \
                                -activeback [cget $w.x$line.l -bg]
        button $w.x$line.help -text "Help" -relief raised \
                -command "dohelp .dohelp $helpidx .menu$mnum"
        pack $w.x$line.help -side right -fill y
        pack $w.x$line.l -side right -fill both -expand on
}

proc toggle_switch2 {w mnum line text variable} {
        frame $w.x$line -relief sunken
        radiobutton $w.x$line.y -text "y" -variable $variable -value 1 \
                -relief groove -width 2 -command "update_active"
#       radiobutton $w.x$line.m -text "-"  -variable $variable -value 2 \
#               -relief groove -width 2 -command "update_active"
        radiobutton $w.x$line.n -text "n"  -variable $variable -value 0 \
                -relief groove -width 2 -command "update_active"

        option_name $w $mnum $line $text $variable

        pack $w.x$line.n $w.x$line.y -side right -fill y
}

proc toggle_switch3 {w mnum line text variable} {
        frame $w.x$line -relief sunken
        radiobutton $w.x$line.y -text "y" -variable $variable -value 1 \
                -relief groove -width 2 -command "update_active"
        radiobutton $w.x$line.m -text "m"  -variable $variable -value 2 \
                -relief groove -width 2 -command "update_active"
        radiobutton $w.x$line.n -text "n"  -variable $variable -value 0 \
                -relief groove -width 2 -command "update_active"

        option_name $w $mnum $line $text $variable

        global CONFIG_MODULES
        if {($CONFIG_MODULES == 0)} then {
                $w.x$line.m configure -state disabled
        }
        pack $w.x$line.n $w.x$line.m $w.x$line.y -side right -fill y
}

proc bool {w mnum line text variable} {
        toggle_switch2 $w $mnum $line $text $variable
#       $w.x$line.m configure -state disabled
        pack $w.x$line -anchor w -fill both -expand on
}

proc tristate {w mnum line text variable } {
        toggle_switch3 $w $mnum $line $text $variable
        pack $w.x$line -anchor w -fill both -expand on
}

proc dep_tristate {w mnum line text variable } {
        tristate $w $mnum $line $text $variable
}

proc dep_bool {w mnum line text variable } {
        bool $w $mnum $line $text $variable
}

proc int { w mnum line text variable } {
        frame $w.x$line
        entry $w.x$line.x -width 11 -relief sunken -borderwidth 2 \
                -textvariable $variable
        option_name $w $mnum $line $text $variable
        pack $w.x$line.x -anchor w -side right -fill y
        pack $w.x$line -anchor w -fill both -expand on
}

proc hex { w mnum line text variable } {
        int $w $mnum $line $text $variable
}

proc istring { w mnum line text variable } {
        frame $w.x$line
        entry $w.x$line.x -width 18 -relief sunken -borderwidth 2 \
                -textvariable $variable
        option_name $w $mnum $line $text $variable
        pack $w.x$line.x -anchor w -side right -fill y
        pack $w.x$line -anchor w -fill both -expand on
}

proc minimenu { w mnum line text variable helpidx } {
        frame $w.x$line
        menubutton $w.x$line.x -textvariable $variable -menu \
                $w.x$line.x.menu -relief raised \
                -anchor w
        option_name $w $mnum $line $text $helpidx
        pack $w.x$line.x -anchor w -side right -fill y
        pack $w.x$line -anchor w -fill both -expand on
}

proc menusplit {w m n} {
        if { $n > 2 } then {
                update idletasks
                set menuoptsize [expr [$m yposition 2] - [$m yposition 1]]   
                set maxsize [winfo screenheight $w]
                set splitpoint [expr $maxsize * 4 / 5 / $menuoptsize - 1]
                for {set i [expr $splitpoint + 1]} {$i <= $n} {incr i $splitpoint} {
                        $m entryconfigure $i -columnbreak 1
                }
        }
}

proc menutitle {text menu w} {
        wm title $w "$text"
}

proc submenu { w mnum line text subnum } {
        frame $w.x$line
        button $w.x$line.l -text "" -width 9 -relief groove
        $w.x$line.l configure -activefore [cget $w.x$line.l -fg] \
                -activeback [cget $w.x$line.l -bg] -state disabled
        button $w.x$line.m -text "$text" -relief raised -anchor w \
                -command "catch {destroy .menu$subnum}; menu$subnum .menu$subnum \"$text\""
        pack $w.x$line.l -side left -fill both
        pack $w.x$line.m -anchor w -side right -fill both -expand on
        pack $w.x$line -anchor w -fill both -expand on
}

proc comment {w mnum line text } {
        frame $w.x$line
        button $w.x$line.l -text "" -width 15 -relief groove
        $w.x$line.l configure -activefore [cget $w.x$line.l -fg] \
                -activeback [cget $w.x$line.l -bg] -state disabled
        button $w.x$line.m -text "$text" -relief groove -anchor w
        $w.x$line.m configure -activefore [cget $w.x$line.m -fg] \
                -activeback [cget $w.x$line.m -bg]
        pack $w.x$line.l -side left -fill both
        pack $w.x$line.m -anchor w -side right -fill both -expand on
        pack $w.x$line -anchor w -fill both -expand on
}

proc readhelp {tag fn}  {
        set message ""
        set b 0
        if { [file readable $fn] == 1} then {
                set fhandle [open $fn r]
                while {[gets $fhandle inline] >= 0} {
                        if { $b == 0 } {
                                if { [regexp $tag $inline ] } {
                                        set b 1
                                        set message "$inline:\n"
                                }
                        } else {
                                if { [regexp {^[^ \t]} $inline]} {
                                        break
                                }
                                set message "$message\n$inline"
                        }
                }
                close $fhandle
        }
        return $message
}

proc dohelp {w var parent}  {
        catch {destroy $w}
        toplevel $w -class Dialog

        set filefound 0
        set found 0
        set lineno 0

        if { [file readable config.help] == 1} then {
                set filefound 1
                # First escape sed regexp special characters in var:
                set var [exec echo "$var" | sed s/\[\]\[\/.^$*\]/\\\\&/g]
                # Now pick out right help text:
                set message [readhelp $var config.help]
                set found [expr [string length "$message"] > 0]
        }

        frame $w.f1
        pack $w.f1 -fill both -expand on

        # Do the OK button
        #
        set oldFocus [focus]
        frame $w.f2
        button $w.f2.ok -text "OK" \
                -width 10 -command "destroy $w; catch {focus $oldFocus}"
        pack $w.f2.ok -side bottom -pady 6 -anchor n
        pack $w.f2 -side bottom -padx 10 -anchor s

        scrollbar $w.f1.vscroll -command "$w.f1.canvas yview"
        pack $w.f1.vscroll -side right -fill y

        canvas $w.f1.canvas -relief flat -borderwidth 0 \
                -yscrollcommand "$w.f1.vscroll set"
        frame $w.f1.f
        pack $w.f1.canvas -side right -fill y -expand on

        if { $found == 0 } then {
                if { $filefound == 0 } then {
                message $w.f1.f.m -width 750 -aspect 300 -relief flat -text \
                        "No help available - unable to open file config.help."
                } else {
                message $w.f1.f.m -width 400 -aspect 300 -relief flat -text \
                        "No help available for $var"
                }
                label $w.f1.bm -bitmap error
                wm title $w "RTFM"
        } else {
                text $w.f1.f.m -width 73 -relief flat -wrap word
                $w.f1.f.m insert 0.0 $message
                $w.f1.f.m conf -state disabled -height [$w.f1.f.m index end]

                label $w.f1.bm -bitmap info
                wm title $w "Configuration help" 
        }
        pack $w.f1.f.m -side left
        pack $w.f1.bm $w.f1.f -side left -padx 10

        focus $w
        set winx [expr [winfo x $parent]+20]
        set winy [expr [winfo y $parent]+20]
        wm geometry $w +$winx+$winy
        set sizok [expr [winfo reqheight $w.f2.ok] + 12]
        set maxy [expr [winfo screenheight .] * 3 / 4]
        set canvtotal [winfo reqheight $w.f1.f.m]
        if [expr $sizok + $canvtotal < $maxy] {
                set sizy $canvtotal
        } else {
                set sizy [expr $maxy - $sizok]
        }
        $w.f1.canvas configure -height $sizy -width [winfo reqwidth $w.f1.f.m] \
                -scrollregion "0 0 [winfo reqwidth $w.f1.f.m] \
                        [winfo reqheight $w.f1.f.m]"
        $w.f1.canvas create window 0 0 -anchor nw -window $w.f1.f
        update idletasks

        set maxy [winfo screenheight .]
        if [expr $sizok + $canvtotal < $maxy] {
                set sizy [expr $sizok + $canvtotal]
        } else {
                set sizy $maxy
        }
        wm maxsize $w [winfo width $w] $sizy
}

bind all <Alt-s> { catch {exec cp -f .config .config.old}; \
                writeconfig .config config.h; wrapup .wrap }

proc wrapup {w }  {
        catch {destroy $w}
        toplevel $w -class Dialog

        global CONFIG_MODVERSIONS; vfix CONFIG_MODVERSIONS
        message $w.m -width 460 -aspect 300 -relief raised -text \
                "End of design configuration. "
        label $w.bm -bitmap info
        pack $w.bm $w.m -pady 10 -side top -padx 10
        wm title $w "LEON build instructions" 

        set oldFocus [focus]
        frame $w.f
        button $w.f.back -text "OK" \
                -width 10 -command "exit 2"
        pack $w.f.back -side bottom -pady 10 -anchor s
        pack $w.f -pady 10 -side top -padx 10 -anchor s
        focus $w
        bind $w <Return> "exit 2"
        global winx; global winy
        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]
        wm geometry $w +$winx+$winy

}

proc unregister_active {num} {
        global active_menus
        set index [lsearch -exact $active_menus $num]
        if {$index != -1} then {set active_menus [lreplace $active_menus $index $index]}
}

proc update_active {} {
        global active_menus total_menus
        set max 0
        if {[llength $active_menus] > 0} then {
                set max [lindex $active_menus end]
                update_define [toplevel_menu [lindex $active_menus 0]] $max 0
        }
        foreach i $active_menus {
                if {[winfo exists .menu$i] == 0} then {
                        unregister_active $i
                } else {
                        update_menu$i
                }
        }
        update_define [expr $max + 1] $total_menus 1
        update_mainmenu
}

proc configure_entry {w option items} {
        foreach i $items {
                $w.$i configure -state $option
        }
}

proc validate_int {name val default} {
        if {([exec echo $val | sed s/^-//g | tr -d \[:digit:\] ] != "")} then {
                global $name; set $name $default
        }
}

proc validate_hex {name val default} {
        if {([exec echo $val | tr -d \[:xdigit:\] ] != "")} then {
                global $name; set $name $default
        }
}

proc update_define {first last allow_update} {
        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.left
frame .f0.middle
frame .f0.right

set active_menus [list]
set processed_top_level 0
set ARCH sparc
set menus_per_column 4
set total_menus 7

proc toplevel_menu {num} {
        return $num
}

mainmenu_name "Netcard PCI/Ethernet bridge"
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
        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
        bool $w.config.f 2 5 "Use PCI clock as system clock" CONFIG_PCI_SYSCLK



        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_menu2 {} {
        global CONFIG_CLK_DCM
        global CONFIG_CLK_ALTDLL
        global CONFIG_CLK_LATDLL
        global CONFIG_CLK_CLKDLL
        global CONFIG_CLK_LIB18T
        global CONFIG_CLK_MUL
        if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {.menu2.config.f.x1.x configure -state normal -foreground [ cget .ref -foreground ]; .menu2.config.f.x1.l configure -state normal; } else {.menu2.config.f.x1.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu2.config.f.x1.l configure -state disabled}
        global CONFIG_CLK_DIV
        if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {.menu2.config.f.x2.x configure -state normal -foreground [ cget .ref -foreground ]; .menu2.config.f.x2.l configure -state normal; } else {.menu2.config.f.x2.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu2.config.f.x2.l configure -state disabled}
        global CONFIG_PCI_CLKDLL
        if {($CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_DCM == 1)} then {
        configure_entry .menu2.config.f.x3 normal {n l y}} else {configure_entry .menu2.config.f.x3 disabled {y n l}}
        global CONFIG_CLK_NOFB
        if {($CONFIG_CLK_DCM == 1)} then {
        configure_entry .menu2.config.f.x4 normal {n l y}} else {configure_entry .menu2.config.f.x4 disabled {y n l}}
        global CONFIG_PCI_ENABLE
        global CONFIG_PCI_SYSCLK
        if {($CONFIG_PCI_ENABLE != 1)} then {
        configure_entry .menu2.config.f.x5 normal {n l y}} else {configure_entry .menu2.config.f.x5 disabled {y n l}}
}


proc update_define_menu2 {} {
        update_define_mainmenu
        global CONFIG_MODULES
        global tmpvar_2
        global CONFIG_CLK_INFERRED
        if {$tmpvar_2 == "Inferred"} then {set CONFIG_CLK_INFERRED 1} else {set CONFIG_CLK_INFERRED 0}
        global CONFIG_CLK_HCLKBUF
        if {$tmpvar_2 == "Actel-HCLKBUF"} then {set CONFIG_CLK_HCLKBUF 1} else {set CONFIG_CLK_HCLKBUF 0}
        global CONFIG_CLK_ALTDLL
        if {$tmpvar_2 == "Altera-ALTPLL"} then {set CONFIG_CLK_ALTDLL 1} else {set CONFIG_CLK_ALTDLL 0}
        global CONFIG_CLK_LATDLL
        if {$tmpvar_2 == "Lattice-EXPLL"} then {set CONFIG_CLK_LATDLL 1} else {set CONFIG_CLK_LATDLL 0}
        global CONFIG_CLK_LIB18T
        if {$tmpvar_2 == "RH-LIB18T-PLL"} then {set CONFIG_CLK_LIB18T 1} else {set CONFIG_CLK_LIB18T 0}
        global CONFIG_CLK_CLKDLL
        if {$tmpvar_2 == "Xilinx-CLKDLL"} then {set CONFIG_CLK_CLKDLL 1} else {set CONFIG_CLK_CLKDLL 0}
        global CONFIG_CLK_DCM
        if {$tmpvar_2 == "Xilinx-DCM"} then {set CONFIG_CLK_DCM 1} else {set CONFIG_CLK_DCM 0}
        global CONFIG_CLK_MUL
        if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {validate_int CONFIG_CLK_MUL "$CONFIG_CLK_MUL" 2}
        global CONFIG_CLK_DIV
        if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {validate_int CONFIG_CLK_DIV "$CONFIG_CLK_DIV" 2}
        global CONFIG_PCI_CLKDLL
        if {($CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_DCM == 1)} then {
        set CONFIG_PCI_CLKDLL [expr $CONFIG_PCI_CLKDLL&15]} else {set CONFIG_PCI_CLKDLL [expr $CONFIG_PCI_CLKDLL|16]}
        global CONFIG_CLK_NOFB
        if {($CONFIG_CLK_DCM == 1)} then {
        set CONFIG_CLK_NOFB [expr $CONFIG_CLK_NOFB&15]} else {set CONFIG_CLK_NOFB [expr $CONFIG_CLK_NOFB|16]}
        global CONFIG_PCI_ENABLE
        global CONFIG_PCI_SYSCLK
        if {($CONFIG_PCI_ENABLE != 1)} then {
        set CONFIG_PCI_SYSCLK [expr $CONFIG_PCI_SYSCLK&15]} else {set CONFIG_PCI_SYSCLK [expr $CONFIG_PCI_SYSCLK|16]}
}


menu_option menu3 3 "AMBA configuration"
proc menu3 {w title} {
        set oldFocus [focus]
        catch {destroy $w; unregister_active 3}
        toplevel $w -class Dialog
        wm withdraw $w
        global active_menus
        set active_menus [lsort -integer [linsert $active_menus end 3]]
        message $w.m -width 400 -aspect 300 -text \
                "AMBA configuration"  -relief raised
        pack $w.m -pady 10 -side top -padx 10
        wm title $w "AMBA configuration" 

        bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 3; break"
        set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 3; menu4 .menu4 \"$title\""
        frame $w.f
        button $w.f.back -text "Main Menu" \
                -width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 3"
        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 3; menu2 .menu2 \"$title\""
        bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 3; menu2 .menu2 \"$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


        int $w.config.f 3 0 "Default AHB master" CONFIG_AHB_DEFMST
        bool $w.config.f 3 1 "Round-robin arbiter                       " CONFIG_AHB_RROBIN
        bool $w.config.f 3 2 "AHB split-transaction support             " CONFIG_AHB_SPLIT
        hex $w.config.f 3 3 "I/O area start address (haddr\[31:20\]) " CONFIG_AHB_IOADDR
        hex $w.config.f 3 4 "AHB/APB bridge address (haddr\[31:20\]) " CONFIG_APB_HADDR



        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_menu3 {} {
}


proc update_define_menu3 {} {
        update_define_mainmenu
        global CONFIG_MODULES
}


menu_option menu4 4 "Debug Link           "
proc menu4 {w title} {
        set oldFocus [focus]
        catch {destroy $w; unregister_active 4}
        toplevel $w -class Dialog
        wm withdraw $w
        global active_menus
        set active_menus [lsort -integer [linsert $active_menus end 4]]
        message $w.m -width 400 -aspect 300 -text \
                "Debug Link           "  -relief raised
        pack $w.m -pady 10 -side top -padx 10
        wm title $w "Debug Link           " 

        bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 4; break"
        set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 4; menu5 .menu5 \"$title\""
        frame $w.f
        button $w.f.back -text "Main Menu" \
                -width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 4"
        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 4; menu3 .menu3 \"$title\""
        bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 4; menu3 .menu3 \"$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


        bool $w.config.f 4 0 "Serial Debug Link (RS232)                " CONFIG_DSU_UART
        bool $w.config.f 4 1 "JTAG Debug Link" CONFIG_DSU_JTAG



        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_menu4 {} {
}


proc update_define_menu4 {} {
        update_define_mainmenu
        global CONFIG_MODULES
}


menu_option menu5 5 "On-chip RAM                 "
proc menu5 {w title} {
        set oldFocus [focus]
        catch {destroy $w; unregister_active 5}
        toplevel $w -class Dialog
        wm withdraw $w
        global active_menus
        set active_menus [lsort -integer [linsert $active_menus end 5]]
        message $w.m -width 400 -aspect 300 -text \
                "On-chip RAM                 "  -relief raised
        pack $w.m -pady 10 -side top -padx 10
        wm title $w "On-chip RAM                 " 

        bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 5; break"
        set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 5; menu6 .menu6 \"$title\""
        frame $w.f
        button $w.f.back -text "Main Menu" \
                -width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 5"
        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 5; menu4 .menu4 \"$title\""
        bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 5; menu4 .menu4 \"$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


        bool $w.config.f 5 0 "On-chip AHB RAM                   " CONFIG_AHBRAM_ENABLE
        global tmpvar_3
        minimenu $w.config.f 5 1 "AHB RAM size (Kbyte)" tmpvar_3 CONFIG_AHBRAM_SZ1
        menu $w.config.f.x1.x.menu -tearoffcommand "menutitle \"AHB RAM size (Kbyte)\""
        $w.config.f.x1.x.menu add radiobutton -label "1" -variable tmpvar_3 -value "1" -command "update_active"
        $w.config.f.x1.x.menu add radiobutton -label "2" -variable tmpvar_3 -value "2" -command "update_active"
        $w.config.f.x1.x.menu add radiobutton -label "4" -variable tmpvar_3 -value "4" -command "update_active"
        $w.config.f.x1.x.menu add radiobutton -label "8" -variable tmpvar_3 -value "8" -command "update_active"
        $w.config.f.x1.x.menu add radiobutton -label "16" -variable tmpvar_3 -value "16" -command "update_active"
        $w.config.f.x1.x.menu add radiobutton -label "32" -variable tmpvar_3 -value "32" -command "update_active"
        $w.config.f.x1.x.menu add radiobutton -label "64" -variable tmpvar_3 -value "64" -command "update_active"
        menusplit $w $w.config.f.x1.x.menu 7
        hex $w.config.f 5 2 "RAM start address (haddr\[31:20\]) " CONFIG_AHBRAM_START



        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_menu5 {} {
        global CONFIG_AHBRAM_ENABLE
        if {($CONFIG_AHBRAM_ENABLE == 1)} then {configure_entry .menu5.config.f.x1 normal {x l}} else {configure_entry .menu5.config.f.x1 disabled {x l}}
        global CONFIG_AHBRAM_START
        if {($CONFIG_AHBRAM_ENABLE == 1)} then {.menu5.config.f.x2.x configure -state normal -foreground [ cget .ref -foreground ]; .menu5.config.f.x2.l configure -state normal; } else {.menu5.config.f.x2.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu5.config.f.x2.l configure -state disabled}
}


proc update_define_menu5 {} {
        update_define_mainmenu
        global CONFIG_MODULES
        global tmpvar_3
        global CONFIG_AHBRAM_SZ1
        if {$tmpvar_3 == "1"} then {set CONFIG_AHBRAM_SZ1 1} else {set CONFIG_AHBRAM_SZ1 0}
        global CONFIG_AHBRAM_SZ2
        if {$tmpvar_3 == "2"} then {set CONFIG_AHBRAM_SZ2 1} else {set CONFIG_AHBRAM_SZ2 0}
        global CONFIG_AHBRAM_SZ4
        if {$tmpvar_3 == "4"} then {set CONFIG_AHBRAM_SZ4 1} else {set CONFIG_AHBRAM_SZ4 0}
        global CONFIG_AHBRAM_SZ8
        if {$tmpvar_3 == "8"} then {set CONFIG_AHBRAM_SZ8 1} else {set CONFIG_AHBRAM_SZ8 0}
        global CONFIG_AHBRAM_SZ16
        if {$tmpvar_3 == "16"} then {set CONFIG_AHBRAM_SZ16 1} else {set CONFIG_AHBRAM_SZ16 0}
        global CONFIG_AHBRAM_SZ32
        if {$tmpvar_3 == "32"} then {set CONFIG_AHBRAM_SZ32 1} else {set CONFIG_AHBRAM_SZ32 0}
        global CONFIG_AHBRAM_SZ64
        if {$tmpvar_3 == "64"} then {set CONFIG_AHBRAM_SZ64 1} else {set CONFIG_AHBRAM_SZ64 0}
        global CONFIG_AHBRAM_ENABLE
        global CONFIG_AHBRAM_START
        if {($CONFIG_AHBRAM_ENABLE == 1)} then {validate_hex CONFIG_AHBRAM_START "$CONFIG_AHBRAM_START" A00}
}


menu_option menu6 6 "Ethernet             "
proc menu6 {w title} {
        set oldFocus [focus]
        catch {destroy $w; unregister_active 6}
        toplevel $w -class Dialog
        wm withdraw $w
        global active_menus
        set active_menus [lsort -integer [linsert $active_menus end 6]]
        message $w.m -width 400 -aspect 300 -text \
                "Ethernet             "  -relief raised
        pack $w.m -pady 10 -side top -padx 10
        wm title $w "Ethernet             " 

        bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 6; break"
        set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 6; menu7 .menu7 \"$title\""
        frame $w.f
        button $w.f.back -text "Main Menu" \
                -width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 6"
        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 6; menu5 .menu5 \"$title\""
        bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 6; menu5 .menu5 \"$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


        bool $w.config.f 6 0 "Gaisler Research 10/100/1000 Mbit Ethernet MAC " CONFIG_GRETH_ENABLE
        bool $w.config.f 6 1 "Enable 1000 Mbit support    " CONFIG_GRETH_GIGA
        global tmpvar_4
        minimenu $w.config.f 6 2 "AHB FIFO size (words)            " tmpvar_4 CONFIG_GRETH_FIFO4
        menu $w.config.f.x2.x.menu -tearoffcommand "menutitle \"AHB FIFO size (words)            \""
        $w.config.f.x2.x.menu add radiobutton -label "4" -variable tmpvar_4 -value "4" -command "update_active"
        $w.config.f.x2.x.menu add radiobutton -label "8" -variable tmpvar_4 -value "8" -command "update_active"
        $w.config.f.x2.x.menu add radiobutton -label "16" -variable tmpvar_4 -value "16" -command "update_active"
        $w.config.f.x2.x.menu add radiobutton -label "32" -variable tmpvar_4 -value "32" -command "update_active"
        $w.config.f.x2.x.menu add radiobutton -label "64" -variable tmpvar_4 -value "64" -command "update_active"
        menusplit $w $w.config.f.x2.x.menu 5



        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_menu6 {} {
        global CONFIG_GRETH_ENABLE
        global CONFIG_GRETH_GIGA
        if {($CONFIG_GRETH_ENABLE == 1)} then {
        configure_entry .menu6.config.f.x1 normal {n l y}} else {configure_entry .menu6.config.f.x1 disabled {y n l}}
        if {($CONFIG_GRETH_ENABLE == 1) && ($CONFIG_GRETH_GIGA == 0)} then {configure_entry .menu6.config.f.x2 normal {x l}} else {configure_entry .menu6.config.f.x2 disabled {x l}}
}


proc update_define_menu6 {} {
        update_define_mainmenu
        global CONFIG_MODULES
        global CONFIG_GRETH_ENABLE
        global CONFIG_GRETH_GIGA
        if {($CONFIG_GRETH_ENABLE == 1)} then {
        set CONFIG_GRETH_GIGA [expr $CONFIG_GRETH_GIGA&15]} else {set CONFIG_GRETH_GIGA [expr $CONFIG_GRETH_GIGA|16]}
        global tmpvar_4
        global CONFIG_GRETH_FIFO4
        if {$tmpvar_4 == "4"} then {set CONFIG_GRETH_FIFO4 1} else {set CONFIG_GRETH_FIFO4 0}
        global CONFIG_GRETH_FIFO8
        if {$tmpvar_4 == "8"} then {set CONFIG_GRETH_FIFO8 1} else {set CONFIG_GRETH_FIFO8 0}
        global CONFIG_GRETH_FIFO16
        if {$tmpvar_4 == "16"} then {set CONFIG_GRETH_FIFO16 1} else {set CONFIG_GRETH_FIFO16 0}
        global CONFIG_GRETH_FIFO32
        if {$tmpvar_4 == "32"} then {set CONFIG_GRETH_FIFO32 1} else {set CONFIG_GRETH_FIFO32 0}
        global CONFIG_GRETH_FIFO64
        if {$tmpvar_4 == "64"} then {set CONFIG_GRETH_FIFO64 1} else {set CONFIG_GRETH_FIFO64 0}
}


menu_option menu7 7 "PCI              "
proc menu7 {w title} {
        set oldFocus [focus]
        catch {destroy $w; unregister_active 7}
        toplevel $w -class Dialog
        wm withdraw $w
        global active_menus
        set active_menus [lsort -integer [linsert $active_menus end 7]]
        message $w.m -width 400 -aspect 300 -text \
                "PCI              "  -relief raised
        pack $w.m -pady 10 -side top -padx 10
        wm title $w "PCI              " 

        bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 7; break"
        set nextscript "catch {focus $oldFocus}; menu8 .menu8 \"$title\""
        frame $w.f
        button $w.f.back -text "Main Menu" \
                -width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 7"
        button $w.f.next -text "Next" -underline 0\
                -width 15 -command $nextscript
        $w.f.next configure -state disabled
        bind all <Alt-n> "puts \"no more menus\" "
        button $w.f.prev -text "Prev" -underline 0\
                -width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 7; menu6 .menu6 \"$title\""
        bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 7; menu6 .menu6 \"$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


        bool $w.config.f 7 0 "PCI interface, target-only     " CONFIG_PCI_SIMPLE_TARGET
        bool $w.config.f 7 1 "PCI interface, master-target     " CONFIG_PCI_MASTER_TARGET
        bool $w.config.f 7 2 "PCI DMA controller               " CONFIG_PCI_MASTER_TARGET_DMA
        hex $w.config.f 7 3 "PCI vendor ID" CONFIG_PCI_VENDORID
        hex $w.config.f 7 4 "PCI device ID" CONFIG_PCI_DEVICEID
        global tmpvar_5
        minimenu $w.config.f 7 5 "PCI FIFO depth" tmpvar_5 CONFIG_PCI_FIFO0
        menu $w.config.f.x5.x.menu -tearoffcommand "menutitle \"PCI FIFO depth\""
        $w.config.f.x5.x.menu add radiobutton -label "None" -variable tmpvar_5 -value "None" -command "update_active"
        $w.config.f.x5.x.menu add radiobutton -label "8" -variable tmpvar_5 -value "8" -command "update_active"
        $w.config.f.x5.x.menu add radiobutton -label "16" -variable tmpvar_5 -value "16" -command "update_active"
        $w.config.f.x5.x.menu add radiobutton -label "32" -variable tmpvar_5 -value "32" -command "update_active"
        $w.config.f.x5.x.menu add radiobutton -label "64" -variable tmpvar_5 -value "64" -command "update_active"
        $w.config.f.x5.x.menu add radiobutton -label "128" -variable tmpvar_5 -value "128" -command "update_active"
        menusplit $w $w.config.f.x5.x.menu 6
        hex $w.config.f 7 6 "PCI initiator address (haddr\[31:20\]) " CONFIG_PCI_HADDR
        bool $w.config.f 7 7 "Enable PCI trace buffer              " CONFIG_PCI_TRACE
        global tmpvar_6
        minimenu $w.config.f 7 8 "PCI trace buffer depth" tmpvar_6 CONFIG_PCI_TRACE256
        menu $w.config.f.x8.x.menu -tearoffcommand "menutitle \"PCI trace buffer depth\""
        $w.config.f.x8.x.menu add radiobutton -label "256" -variable tmpvar_6 -value "256" -command "update_active"
        $w.config.f.x8.x.menu add radiobutton -label "512" -variable tmpvar_6 -value "512" -command "update_active"
        $w.config.f.x8.x.menu add radiobutton -label "1024" -variable tmpvar_6 -value "1024" -command "update_active"
        $w.config.f.x8.x.menu add radiobutton -label "2048" -variable tmpvar_6 -value "2048" -command "update_active"
        $w.config.f.x8.x.menu add radiobutton -label "4096" -variable tmpvar_6 -value "4096" -command "update_active"
        menusplit $w $w.config.f.x8.x.menu 5



        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_menu7 {} {
        global CONFIG_PCI_ACTEL
        global CONFIG_PCI_SIMPLE_TARGET
        if {($CONFIG_PCI_ACTEL != 1)} then {
        configure_entry .menu7.config.f.x0 normal {n l y}} else {configure_entry .menu7.config.f.x0 disabled {y n l}}
        global CONFIG_PCI_MASTER_TARGET
        if {($CONFIG_PCI_SIMPLE_TARGET != 1 && $CONFIG_PCI_ACTEL != 1)} then {
        configure_entry .menu7.config.f.x1 normal {n l y}} else {configure_entry .menu7.config.f.x1 disabled {y n l}}
        global CONFIG_PCI_MASTER_TARGET_DMA
        if {($CONFIG_PCI_MASTER_TARGET == 1)} then {
        configure_entry .menu7.config.f.x2 normal {n l y}} else {configure_entry .menu7.config.f.x2 disabled {y n l}}
        global CONFIG_PCI_VENDORID
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {.menu7.config.f.x3.x configure -state normal -foreground [ cget .ref -foreground ]; .menu7.config.f.x3.l configure -state normal; } else {.menu7.config.f.x3.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu7.config.f.x3.l configure -state disabled}
        global CONFIG_PCI_DEVICEID
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {.menu7.config.f.x4.x configure -state normal -foreground [ cget .ref -foreground ]; .menu7.config.f.x4.l configure -state normal; } else {.menu7.config.f.x4.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu7.config.f.x4.l configure -state disabled}
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1) && ($CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {configure_entry .menu7.config.f.x5 normal {x l}} else {configure_entry .menu7.config.f.x5 disabled {x l}}
        global CONFIG_PCI_HADDR
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1) && ($CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {.menu7.config.f.x6.x configure -state normal -foreground [ cget .ref -foreground ]; .menu7.config.f.x6.l configure -state normal; } else {.menu7.config.f.x6.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu7.config.f.x6.l configure -state disabled}
        global CONFIG_PCI_TRACE
        if {($CONFIG_PCI_TRACE == 1)} then {configure_entry .menu7.config.f.x8 normal {x l}} else {configure_entry .menu7.config.f.x8 disabled {x l}}
}


proc update_define_menu7 {} {
        update_define_mainmenu
        global CONFIG_MODULES
        global CONFIG_PCI_ACTEL
        global CONFIG_PCI_SIMPLE_TARGET
        if {($CONFIG_PCI_ACTEL != 1)} then {
        set CONFIG_PCI_SIMPLE_TARGET [expr $CONFIG_PCI_SIMPLE_TARGET&15]} else {set CONFIG_PCI_SIMPLE_TARGET [expr $CONFIG_PCI_SIMPLE_TARGET|16]}
        global CONFIG_PCI_MASTER_TARGET
        if {($CONFIG_PCI_SIMPLE_TARGET != 1 && $CONFIG_PCI_ACTEL != 1)} then {
        set CONFIG_PCI_MASTER_TARGET [expr $CONFIG_PCI_MASTER_TARGET&15]} else {set CONFIG_PCI_MASTER_TARGET [expr $CONFIG_PCI_MASTER_TARGET|16]}
        global CONFIG_PCI_MASTER_TARGET_DMA
        if {($CONFIG_PCI_MASTER_TARGET == 1)} then {
        set CONFIG_PCI_MASTER_TARGET_DMA [expr $CONFIG_PCI_MASTER_TARGET_DMA&15]} else {set CONFIG_PCI_MASTER_TARGET_DMA [expr $CONFIG_PCI_MASTER_TARGET_DMA|16]}
        global CONFIG_PCI_VENDORID
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {validate_hex CONFIG_PCI_VENDORID "$CONFIG_PCI_VENDORID" 16E3}
        global CONFIG_PCI_DEVICEID
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {validate_hex CONFIG_PCI_DEVICEID "$CONFIG_PCI_DEVICEID" 0210}
        global tmpvar_5
        global CONFIG_PCI_FIFO0
        if {$tmpvar_5 == "None"} then {set CONFIG_PCI_FIFO0 1} else {set CONFIG_PCI_FIFO0 0}
        global CONFIG_PCI_FIFO8
        if {$tmpvar_5 == "8"} then {set CONFIG_PCI_FIFO8 1} else {set CONFIG_PCI_FIFO8 0}
        global CONFIG_PCI_FIFO16
        if {$tmpvar_5 == "16"} then {set CONFIG_PCI_FIFO16 1} else {set CONFIG_PCI_FIFO16 0}
        global CONFIG_PCI_FIFO32
        if {$tmpvar_5 == "32"} then {set CONFIG_PCI_FIFO32 1} else {set CONFIG_PCI_FIFO32 0}
        global CONFIG_PCI_FIFO64
        if {$tmpvar_5 == "64"} then {set CONFIG_PCI_FIFO64 1} else {set CONFIG_PCI_FIFO64 0}
        global CONFIG_PCI_FIFO128
        if {$tmpvar_5 == "128"} then {set CONFIG_PCI_FIFO128 1} else {set CONFIG_PCI_FIFO128 0}
        global CONFIG_PCI_HADDR
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1) && ($CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {validate_hex CONFIG_PCI_HADDR "$CONFIG_PCI_HADDR" E00}
        global tmpvar_6
        global CONFIG_PCI_TRACE256
        if {$tmpvar_6 == "256"} then {set CONFIG_PCI_TRACE256 1} else {set CONFIG_PCI_TRACE256 0}
        global CONFIG_PCI_TRACE512
        if {$tmpvar_6 == "512"} then {set CONFIG_PCI_TRACE512 1} else {set CONFIG_PCI_TRACE512 0}
        global CONFIG_PCI_TRACE1024
        if {$tmpvar_6 == "1024"} then {set CONFIG_PCI_TRACE1024 1} else {set CONFIG_PCI_TRACE1024 0}
        global CONFIG_PCI_TRACE2048
        if {$tmpvar_6 == "2048"} then {set CONFIG_PCI_TRACE2048 1} else {set CONFIG_PCI_TRACE2048 0}
        global CONFIG_PCI_TRACE4096
        if {$tmpvar_6 == "4096"} then {set CONFIG_PCI_TRACE4096 1} else {set CONFIG_PCI_TRACE4096 0}
}


proc update_mainmenu {}  {
}


set tmpvar_0 "(not set)"
set CONFIG_SYN_INFERRED 0
set CONFIG_SYN_ALTERA 0
set CONFIG_SYN_AXCEL 0
set CONFIG_SYN_PROASIC 0
set CONFIG_SYN_PROASICPLUS 0
set CONFIG_SYN_PROASIC3 0
set CONFIG_SYN_UT025CRH 0
set CONFIG_SYN_ATC18 0
set CONFIG_SYN_CUSTOM1 0
set CONFIG_SYN_IHP25 0
set CONFIG_SYN_IHP25RH 0
set CONFIG_SYN_LATTICE 0
set CONFIG_SYN_PEREGRINE 0
set CONFIG_SYN_RH_LIB18T 0
set CONFIG_SYN_RHUMC 0
set CONFIG_SYN_SPARTAN2 0
set CONFIG_SYN_SPARTAN3 0
set CONFIG_SYN_SPARTAN3E 0
set CONFIG_SYN_VIRTEX 0
set CONFIG_SYN_VIRTEXE 0
set CONFIG_SYN_VIRTEX2 0
set CONFIG_SYN_VIRTEX4 0
set CONFIG_SYN_VIRTEX5 0
set tmpvar_1 "(not set)"
set CONFIG_MEM_INFERRED 0
set CONFIG_MEM_RHUMC 0
set CONFIG_MEM_ARTISAN 0
set CONFIG_MEM_CUSTOM1 0
set CONFIG_MEM_VIRAGE 0
set CONFIG_SYN_INFER_RAM 0
set CONFIG_SYN_INFER_PADS 0
set CONFIG_SYN_NO_ASYNC 0
set tmpvar_2 "(not set)"
set CONFIG_CLK_INFERRED 0
set CONFIG_CLK_HCLKBUF 0
set CONFIG_CLK_ALTDLL 0
set CONFIG_CLK_LATDLL 0
set CONFIG_CLK_LIB18T 0
set CONFIG_CLK_CLKDLL 0
set CONFIG_CLK_DCM 0
set CONFIG_CLK_MUL 2
set CONFIG_CLK_DIV 2
set CONFIG_PCI_CLKDLL 0
set CONFIG_CLK_NOFB 0
set CONFIG_PCI_SYSCLK 0
set CONFIG_AHB_DEFMST 0
set CONFIG_AHB_RROBIN 0
set CONFIG_AHB_SPLIT 0
set CONFIG_AHB_IOADDR FFF
set CONFIG_APB_HADDR 800
set CONFIG_DSU_UART 0
set CONFIG_DSU_JTAG 0
set CONFIG_AHBRAM_ENABLE 0
set tmpvar_3 "(not set)"
set CONFIG_AHBRAM_SZ1 0
set CONFIG_AHBRAM_SZ2 0
set CONFIG_AHBRAM_SZ4 0
set CONFIG_AHBRAM_SZ8 0
set CONFIG_AHBRAM_SZ16 0
set CONFIG_AHBRAM_SZ32 0
set CONFIG_AHBRAM_SZ64 0
set CONFIG_AHBRAM_START A00
set CONFIG_GRETH_ENABLE 0
set CONFIG_GRETH_GIGA 0
set tmpvar_4 "(not set)"
set CONFIG_GRETH_FIFO4 0
set CONFIG_GRETH_FIFO8 0
set CONFIG_GRETH_FIFO16 0
set CONFIG_GRETH_FIFO32 0
set CONFIG_GRETH_FIFO64 0
set CONFIG_PCI_SIMPLE_TARGET 0
set CONFIG_PCI_MASTER_TARGET 0
set CONFIG_PCI_MASTER_TARGET_DMA 0
set CONFIG_PCI_VENDORID 16E3
set CONFIG_PCI_DEVICEID 0210
set tmpvar_5 "(not set)"
set CONFIG_PCI_FIFO0 0
set CONFIG_PCI_FIFO8 0
set CONFIG_PCI_FIFO16 0
set CONFIG_PCI_FIFO32 0
set CONFIG_PCI_FIFO64 0
set CONFIG_PCI_FIFO128 0
set CONFIG_PCI_HADDR E00
set CONFIG_PCI_TRACE 0
set tmpvar_6 "(not set)"
set CONFIG_PCI_TRACE256 0
set CONFIG_PCI_TRACE512 0
set CONFIG_PCI_TRACE1024 0
set CONFIG_PCI_TRACE2048 0
set CONFIG_PCI_TRACE4096 0
set CONFIG_SYN_ARTISAN 4
set CONFIG_PCI_ENABLE 4
set CONFIG_PCI_ACTEL 4
set CONFIG_MODULES 4
proc writeconfig {file1 file2} {
        set cfg [open $file1 w]
        set autocfg [open $file2 w]
        set notmod 1
        set notset 0
        puts $cfg "#"
        puts $cfg "# Automatically generated make config: don't edit"
        puts $cfg "#"
        puts $autocfg "/*"
        puts $autocfg " * Automatically generated C config: don't edit"
        puts $autocfg " */"
        puts $autocfg "#define AUTOCONF_INCLUDED"
        write_comment $cfg $autocfg "Synthesis      "
        global tmpvar_0
        
        if { $tmpvar_0 == "Inferred" } then { write_tristate $cfg $autocfg CONFIG_SYN_INFERRED 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_INFERRED 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Altera-all" } then { write_tristate $cfg $autocfg CONFIG_SYN_ALTERA 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_ALTERA 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Actel-Axcelerator" } then { write_tristate $cfg $autocfg CONFIG_SYN_AXCEL 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_AXCEL 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Actel-Proasic" } then { write_tristate $cfg $autocfg CONFIG_SYN_PROASIC 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_PROASIC 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Actel-ProasicPlus" } then { write_tristate $cfg $autocfg CONFIG_SYN_PROASICPLUS 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_PROASICPLUS 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Actel-Proasic3" } then { write_tristate $cfg $autocfg CONFIG_SYN_PROASIC3 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_PROASIC3 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Aeroflex-UT025CRH" } then { write_tristate $cfg $autocfg CONFIG_SYN_UT025CRH 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_UT025CRH 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Atmel-ATC18" } then { write_tristate $cfg $autocfg CONFIG_SYN_ATC18 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_ATC18 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Custom1" } then { write_tristate $cfg $autocfg CONFIG_SYN_CUSTOM1 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_CUSTOM1 0 [list $notmod] 2 }
        if { $tmpvar_0 == "IHP25" } then { write_tristate $cfg $autocfg CONFIG_SYN_IHP25 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_IHP25 0 [list $notmod] 2 }
        if { $tmpvar_0 == "IHP25RH" } then { write_tristate $cfg $autocfg CONFIG_SYN_IHP25RH 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_IHP25RH 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Lattice-EC/ECP/XP" } then { write_tristate $cfg $autocfg CONFIG_SYN_LATTICE 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_LATTICE 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Peregrine" } then { write_tristate $cfg $autocfg CONFIG_SYN_PEREGRINE 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_PEREGRINE 0 [list $notmod] 2 }
        if { $tmpvar_0 == "RH-LIB18T" } then { write_tristate $cfg $autocfg CONFIG_SYN_RH_LIB18T 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_RH_LIB18T 0 [list $notmod] 2 }
        if { $tmpvar_0 == "RH-UMC" } then { write_tristate $cfg $autocfg CONFIG_SYN_RHUMC 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_RHUMC 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-Spartan2" } then { write_tristate $cfg $autocfg CONFIG_SYN_SPARTAN2 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_SPARTAN2 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-Spartan3" } then { write_tristate $cfg $autocfg CONFIG_SYN_SPARTAN3 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_SPARTAN3 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-Spartan3E" } then { write_tristate $cfg $autocfg CONFIG_SYN_SPARTAN3E 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_SPARTAN3E 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-Virtex" } then { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-VirtexE" } then { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEXE 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEXE 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-Virtex2" } then { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX2 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX2 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-Virtex4" } then { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX4 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX4 0 [list $notmod] 2 }
        if { $tmpvar_0 == "Xilinx-Virtex5" } then { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX5 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_SYN_VIRTEX5 0 [list $notmod] 2 }
        global tmpvar_1
        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 {
        if { $tmpvar_1 == "Inferred" } then { write_tristate $cfg $autocfg CONFIG_MEM_INFERRED 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_MEM_INFERRED 0 [list $notmod] 2 }
        if { $tmpvar_1 == "RH-UMC" } then { write_tristate $cfg $autocfg CONFIG_MEM_RHUMC 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_MEM_RHUMC 0 [list $notmod] 2 }
        if { $tmpvar_1 == "Artisan" } then { write_tristate $cfg $autocfg CONFIG_MEM_ARTISAN 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_MEM_ARTISAN 0 [list $notmod] 2 }
        if { $tmpvar_1 == "Custom1" } then { write_tristate $cfg $autocfg CONFIG_MEM_CUSTOM1 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_MEM_CUSTOM1 0 [list $notmod] 2 }
        if { $tmpvar_1 == "Virage" } then { write_tristate $cfg $autocfg CONFIG_MEM_VIRAGE 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_MEM_VIRAGE 0 [list $notmod] 2 }}
        global CONFIG_SYN_INFER_RAM
        if {($CONFIG_SYN_INFERRED != 1)} then {write_tristate $cfg $autocfg CONFIG_SYN_INFER_RAM $CONFIG_SYN_INFER_RAM [list $notmod] 2 }
        global CONFIG_SYN_INFER_PADS
        if {($CONFIG_SYN_INFERRED != 1)} then {write_tristate $cfg $autocfg CONFIG_SYN_INFER_PADS $CONFIG_SYN_INFER_PADS [list $notmod] 2 }
        global CONFIG_SYN_NO_ASYNC
        write_tristate $cfg $autocfg CONFIG_SYN_NO_ASYNC $CONFIG_SYN_NO_ASYNC [list $notmod] 2
        write_comment $cfg $autocfg "Clock generation"
        global tmpvar_2
        
        if { $tmpvar_2 == "Inferred" } then { write_tristate $cfg $autocfg CONFIG_CLK_INFERRED 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_CLK_INFERRED 0 [list $notmod] 2 }
        if { $tmpvar_2 == "Actel-HCLKBUF" } then { write_tristate $cfg $autocfg CONFIG_CLK_HCLKBUF 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_CLK_HCLKBUF 0 [list $notmod] 2 }
        if { $tmpvar_2 == "Altera-ALTPLL" } then { write_tristate $cfg $autocfg CONFIG_CLK_ALTDLL 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_CLK_ALTDLL 0 [list $notmod] 2 }
        if { $tmpvar_2 == "Lattice-EXPLL" } then { write_tristate $cfg $autocfg CONFIG_CLK_LATDLL 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_CLK_LATDLL 0 [list $notmod] 2 }
        if { $tmpvar_2 == "RH-LIB18T-PLL" } then { write_tristate $cfg $autocfg CONFIG_CLK_LIB18T 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_CLK_LIB18T 0 [list $notmod] 2 }
        if { $tmpvar_2 == "Xilinx-CLKDLL" } then { write_tristate $cfg $autocfg CONFIG_CLK_CLKDLL 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_CLK_CLKDLL 0 [list $notmod] 2 }
        if { $tmpvar_2 == "Xilinx-DCM" } then { write_tristate $cfg $autocfg CONFIG_CLK_DCM 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_CLK_DCM 0 [list $notmod] 2 }
        global CONFIG_CLK_MUL
        global CONFIG_CLK_DCM
        global CONFIG_CLK_ALTDLL
        global CONFIG_CLK_LATDLL
        global CONFIG_CLK_CLKDLL
        global CONFIG_CLK_LIB18T
        if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {write_int $cfg $autocfg CONFIG_CLK_MUL $CONFIG_CLK_MUL $notmod }
        global CONFIG_CLK_DIV
        if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {write_int $cfg $autocfg CONFIG_CLK_DIV $CONFIG_CLK_DIV $notmod }
        global CONFIG_PCI_CLKDLL
        if {($CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_DCM == 1)} then {write_tristate $cfg $autocfg CONFIG_PCI_CLKDLL $CONFIG_PCI_CLKDLL [list $notmod] 2 }
        global CONFIG_CLK_NOFB
        if {($CONFIG_CLK_DCM == 1)} then {write_tristate $cfg $autocfg CONFIG_CLK_NOFB $CONFIG_CLK_NOFB [list $notmod] 2 }
        global CONFIG_PCI_SYSCLK
        global CONFIG_PCI_ENABLE
        if {($CONFIG_PCI_ENABLE != 1)} then {write_tristate $cfg $autocfg CONFIG_PCI_SYSCLK $CONFIG_PCI_SYSCLK [list $notmod] 2 }
        write_comment $cfg $autocfg "AMBA configuration"
        global CONFIG_AHB_DEFMST
        write_int $cfg $autocfg CONFIG_AHB_DEFMST $CONFIG_AHB_DEFMST $notmod
        global CONFIG_AHB_RROBIN
        write_tristate $cfg $autocfg CONFIG_AHB_RROBIN $CONFIG_AHB_RROBIN [list $notmod] 2
        global CONFIG_AHB_SPLIT
        write_tristate $cfg $autocfg CONFIG_AHB_SPLIT $CONFIG_AHB_SPLIT [list $notmod] 2
        global CONFIG_AHB_IOADDR
        write_hex $cfg $autocfg CONFIG_AHB_IOADDR $CONFIG_AHB_IOADDR $notmod
        global CONFIG_APB_HADDR
        write_hex $cfg $autocfg CONFIG_APB_HADDR $CONFIG_APB_HADDR $notmod
        write_comment $cfg $autocfg "Debug Link           "
        global CONFIG_DSU_UART
        write_tristate $cfg $autocfg CONFIG_DSU_UART $CONFIG_DSU_UART [list $notmod] 2
        global CONFIG_DSU_JTAG
        write_tristate $cfg $autocfg CONFIG_DSU_JTAG $CONFIG_DSU_JTAG [list $notmod] 2
        write_comment $cfg $autocfg "On-chip RAM                 "
        global CONFIG_AHBRAM_ENABLE
        write_tristate $cfg $autocfg CONFIG_AHBRAM_ENABLE $CONFIG_AHBRAM_ENABLE [list $notmod] 2
        global tmpvar_3
        if {($CONFIG_AHBRAM_ENABLE == 1)} then {
        if { $tmpvar_3 == "1" } then { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ1 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ1 0 [list $notmod] 2 }
        if { $tmpvar_3 == "2" } then { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ2 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ2 0 [list $notmod] 2 }
        if { $tmpvar_3 == "4" } then { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ4 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ4 0 [list $notmod] 2 }
        if { $tmpvar_3 == "8" } then { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ8 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ8 0 [list $notmod] 2 }
        if { $tmpvar_3 == "16" } then { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ16 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ16 0 [list $notmod] 2 }
        if { $tmpvar_3 == "32" } then { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ32 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ32 0 [list $notmod] 2 }
        if { $tmpvar_3 == "64" } then { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ64 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_AHBRAM_SZ64 0 [list $notmod] 2 }}
        global CONFIG_AHBRAM_START
        if {($CONFIG_AHBRAM_ENABLE == 1)} then {write_hex $cfg $autocfg CONFIG_AHBRAM_START $CONFIG_AHBRAM_START $notmod }
        write_comment $cfg $autocfg "Ethernet             "
        global CONFIG_GRETH_ENABLE
        write_tristate $cfg $autocfg CONFIG_GRETH_ENABLE $CONFIG_GRETH_ENABLE [list $notmod] 2
        global CONFIG_GRETH_GIGA
        if {($CONFIG_GRETH_ENABLE == 1)} then {write_tristate $cfg $autocfg CONFIG_GRETH_GIGA $CONFIG_GRETH_GIGA [list $notmod] 2 }
        global tmpvar_4
        if {($CONFIG_GRETH_ENABLE == 1) && ($CONFIG_GRETH_GIGA == 0)} then {
        if { $tmpvar_4 == "4" } then { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO4 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO4 0 [list $notmod] 2 }
        if { $tmpvar_4 == "8" } then { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO8 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO8 0 [list $notmod] 2 }
        if { $tmpvar_4 == "16" } then { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO16 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO16 0 [list $notmod] 2 }
        if { $tmpvar_4 == "32" } then { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO32 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO32 0 [list $notmod] 2 }
        if { $tmpvar_4 == "64" } then { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO64 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_GRETH_FIFO64 0 [list $notmod] 2 }}
        write_comment $cfg $autocfg "PCI              "
        global CONFIG_PCI_SIMPLE_TARGET
        global CONFIG_PCI_ACTEL
        if {($CONFIG_PCI_ACTEL != 1)} then {write_tristate $cfg $autocfg CONFIG_PCI_SIMPLE_TARGET $CONFIG_PCI_SIMPLE_TARGET [list $notmod] 2 }
        global CONFIG_PCI_MASTER_TARGET
        if {($CONFIG_PCI_SIMPLE_TARGET != 1 && $CONFIG_PCI_ACTEL != 1)} then {write_tristate $cfg $autocfg CONFIG_PCI_MASTER_TARGET $CONFIG_PCI_MASTER_TARGET [list $notmod] 2 }
        global CONFIG_PCI_MASTER_TARGET_DMA
        if {($CONFIG_PCI_MASTER_TARGET == 1)} then {write_tristate $cfg $autocfg CONFIG_PCI_MASTER_TARGET_DMA $CONFIG_PCI_MASTER_TARGET_DMA [list $notmod] 2 }
        global CONFIG_PCI_VENDORID
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {write_hex $cfg $autocfg CONFIG_PCI_VENDORID $CONFIG_PCI_VENDORID $notmod }
        global CONFIG_PCI_DEVICEID
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {write_hex $cfg $autocfg CONFIG_PCI_DEVICEID $CONFIG_PCI_DEVICEID $notmod }
        global tmpvar_5
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1) && ($CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {
        if { $tmpvar_5 == "None" } then { write_tristate $cfg $autocfg CONFIG_PCI_FIFO0 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_FIFO0 0 [list $notmod] 2 }
        if { $tmpvar_5 == "8" } then { write_tristate $cfg $autocfg CONFIG_PCI_FIFO8 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_FIFO8 0 [list $notmod] 2 }
        if { $tmpvar_5 == "16" } then { write_tristate $cfg $autocfg CONFIG_PCI_FIFO16 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_FIFO16 0 [list $notmod] 2 }
        if { $tmpvar_5 == "32" } then { write_tristate $cfg $autocfg CONFIG_PCI_FIFO32 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_FIFO32 0 [list $notmod] 2 }
        if { $tmpvar_5 == "64" } then { write_tristate $cfg $autocfg CONFIG_PCI_FIFO64 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_FIFO64 0 [list $notmod] 2 }
        if { $tmpvar_5 == "128" } then { write_tristate $cfg $autocfg CONFIG_PCI_FIFO128 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_FIFO128 0 [list $notmod] 2 }}
        global CONFIG_PCI_HADDR
        if {($CONFIG_PCI_SIMPLE_TARGET == 1 || $CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1) && ($CONFIG_PCI_MASTER_TARGET == 1 || $CONFIG_PCI_ACTEL == 1)} then {write_hex $cfg $autocfg CONFIG_PCI_HADDR $CONFIG_PCI_HADDR $notmod }
        global CONFIG_PCI_TRACE
        write_tristate $cfg $autocfg CONFIG_PCI_TRACE $CONFIG_PCI_TRACE [list $notmod] 2
        global tmpvar_6
        if {($CONFIG_PCI_TRACE == 1)} then {
        if { $tmpvar_6 == "256" } then { write_tristate $cfg $autocfg CONFIG_PCI_TRACE256 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_TRACE256 0 [list $notmod] 2 }
        if { $tmpvar_6 == "512" } then { write_tristate $cfg $autocfg CONFIG_PCI_TRACE512 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_TRACE512 0 [list $notmod] 2 }
        if { $tmpvar_6 == "1024" } then { write_tristate $cfg $autocfg CONFIG_PCI_TRACE1024 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_TRACE1024 0 [list $notmod] 2 }
        if { $tmpvar_6 == "2048" } then { write_tristate $cfg $autocfg CONFIG_PCI_TRACE2048 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_TRACE2048 0 [list $notmod] 2 }
        if { $tmpvar_6 == "4096" } then { write_tristate $cfg $autocfg CONFIG_PCI_TRACE4096 1 [list $notmod] 2 } else { write_tristate $cfg $autocfg CONFIG_PCI_TRACE4096 0 [list $notmod] 2 }}
        close $cfg
        close $autocfg
}


proc clear_choices { } {
        global CONFIG_SYN_INFERRED; set CONFIG_SYN_INFERRED 0
        global CONFIG_SYN_ALTERA; set CONFIG_SYN_ALTERA 0
        global CONFIG_SYN_AXCEL; set CONFIG_SYN_AXCEL 0
        global CONFIG_SYN_PROASIC; set CONFIG_SYN_PROASIC 0
        global CONFIG_SYN_PROASICPLUS; set CONFIG_SYN_PROASICPLUS 0
        global CONFIG_SYN_PROASIC3; set CONFIG_SYN_PROASIC3 0
        global CONFIG_SYN_UT025CRH; set CONFIG_SYN_UT025CRH 0
        global CONFIG_SYN_ATC18; set CONFIG_SYN_ATC18 0
        global CONFIG_SYN_CUSTOM1; set CONFIG_SYN_CUSTOM1 0
        global CONFIG_SYN_IHP25; set CONFIG_SYN_IHP25 0
        global CONFIG_SYN_IHP25RH; set CONFIG_SYN_IHP25RH 0
        global CONFIG_SYN_LATTICE; set CONFIG_SYN_LATTICE 0
        global CONFIG_SYN_PEREGRINE; set CONFIG_SYN_PEREGRINE 0
        global CONFIG_SYN_RH_LIB18T; set CONFIG_SYN_RH_LIB18T 0
        global CONFIG_SYN_RHUMC; set CONFIG_SYN_RHUMC 0
        global CONFIG_SYN_SPARTAN2; set CONFIG_SYN_SPARTAN2 0
        global CONFIG_SYN_SPARTAN3; set CONFIG_SYN_SPARTAN3 0
        global CONFIG_SYN_SPARTAN3E; set CONFIG_SYN_SPARTAN3E 0
        global CONFIG_SYN_VIRTEX; set CONFIG_SYN_VIRTEX 0
        global CONFIG_SYN_VIRTEXE; set CONFIG_SYN_VIRTEXE 0
        global CONFIG_SYN_VIRTEX2; set CONFIG_SYN_VIRTEX2 0
        global CONFIG_SYN_VIRTEX4; set CONFIG_SYN_VIRTEX4 0
        global CONFIG_SYN_VIRTEX5; set CONFIG_SYN_VIRTEX5 0
        global CONFIG_MEM_INFERRED; set CONFIG_MEM_INFERRED 0
        global CONFIG_MEM_RHUMC; set CONFIG_MEM_RHUMC 0
        global CONFIG_MEM_ARTISAN; set CONFIG_MEM_ARTISAN 0
        global CONFIG_MEM_CUSTOM1; set CONFIG_MEM_CUSTOM1 0
        global CONFIG_MEM_VIRAGE; set CONFIG_MEM_VIRAGE 0
        global CONFIG_CLK_INFERRED; set CONFIG_CLK_INFERRED 0
        global CONFIG_CLK_HCLKBUF; set CONFIG_CLK_HCLKBUF 0
        global CONFIG_CLK_ALTDLL; set CONFIG_CLK_ALTDLL 0
        global CONFIG_CLK_LATDLL; set CONFIG_CLK_LATDLL 0
        global CONFIG_CLK_LIB18T; set CONFIG_CLK_LIB18T 0
        global CONFIG_CLK_CLKDLL; set CONFIG_CLK_CLKDLL 0
        global CONFIG_CLK_DCM; set CONFIG_CLK_DCM 0
        global CONFIG_AHBRAM_SZ1; set CONFIG_AHBRAM_SZ1 0
        global CONFIG_AHBRAM_SZ2; set CONFIG_AHBRAM_SZ2 0
        global CONFIG_AHBRAM_SZ4; set CONFIG_AHBRAM_SZ4 0
        global CONFIG_AHBRAM_SZ8; set CONFIG_AHBRAM_SZ8 0
        global CONFIG_AHBRAM_SZ16; set CONFIG_AHBRAM_SZ16 0
        global CONFIG_AHBRAM_SZ32; set CONFIG_AHBRAM_SZ32 0
        global CONFIG_AHBRAM_SZ64; set CONFIG_AHBRAM_SZ64 0
        global CONFIG_GRETH_FIFO4; set CONFIG_GRETH_FIFO4 0
        global CONFIG_GRETH_FIFO8; set CONFIG_GRETH_FIFO8 0
        global CONFIG_GRETH_FIFO16; set CONFIG_GRETH_FIFO16 0
        global CONFIG_GRETH_FIFO32; set CONFIG_GRETH_FIFO32 0
        global CONFIG_GRETH_FIFO64; set CONFIG_GRETH_FIFO64 0
        global CONFIG_PCI_FIFO0; set CONFIG_PCI_FIFO0 0
        global CONFIG_PCI_FIFO8; set CONFIG_PCI_FIFO8 0
        global CONFIG_PCI_FIFO16; set CONFIG_PCI_FIFO16 0
        global CONFIG_PCI_FIFO32; set CONFIG_PCI_FIFO32 0
        global CONFIG_PCI_FIFO64; set CONFIG_PCI_FIFO64 0
        global CONFIG_PCI_FIFO128; set CONFIG_PCI_FIFO128 0
        global CONFIG_PCI_TRACE256; set CONFIG_PCI_TRACE256 0
        global CONFIG_PCI_TRACE512; set CONFIG_PCI_TRACE512 0
        global CONFIG_PCI_TRACE1024; set CONFIG_PCI_TRACE1024 0
        global CONFIG_PCI_TRACE2048; set CONFIG_PCI_TRACE2048 0
        global CONFIG_PCI_TRACE4096; set CONFIG_PCI_TRACE4096 0
}


proc update_choices { } {
        global tmpvar_0
        set tmpvar_0 "Inferred"
        global CONFIG_SYN_INFERRED
        if { $CONFIG_SYN_INFERRED == 1 } then { set tmpvar_0 "Inferred" }
        global CONFIG_SYN_ALTERA
        if { $CONFIG_SYN_ALTERA == 1 } then { set tmpvar_0 "Altera-all" }
        global CONFIG_SYN_AXCEL
        if { $CONFIG_SYN_AXCEL == 1 } then { set tmpvar_0 "Actel-Axcelerator" }
        global CONFIG_SYN_PROASIC
        if { $CONFIG_SYN_PROASIC == 1 } then { set tmpvar_0 "Actel-Proasic" }
        global CONFIG_SYN_PROASICPLUS
        if { $CONFIG_SYN_PROASICPLUS == 1 } then { set tmpvar_0 "Actel-ProasicPlus" }
        global CONFIG_SYN_PROASIC3
        if { $CONFIG_SYN_PROASIC3 == 1 } then { set tmpvar_0 "Actel-Proasic3" }
        global CONFIG_SYN_UT025CRH
        if { $CONFIG_SYN_UT025CRH == 1 } then { set tmpvar_0 "Aeroflex-UT025CRH" }
        global CONFIG_SYN_ATC18
        if { $CONFIG_SYN_ATC18 == 1 } then { set tmpvar_0 "Atmel-ATC18" }
        global CONFIG_SYN_CUSTOM1
        if { $CONFIG_SYN_CUSTOM1 == 1 } then { set tmpvar_0 "Custom1" }
        global CONFIG_SYN_IHP25
        if { $CONFIG_SYN_IHP25 == 1 } then { set tmpvar_0 "IHP25" }
        global CONFIG_SYN_IHP25RH
        if { $CONFIG_SYN_IHP25RH == 1 } then { set tmpvar_0 "IHP25RH" }
        global CONFIG_SYN_LATTICE
        if { $CONFIG_SYN_LATTICE == 1 } then { set tmpvar_0 "Lattice-EC/ECP/XP" }
        global CONFIG_SYN_PEREGRINE
        if { $CONFIG_SYN_PEREGRINE == 1 } then { set tmpvar_0 "Peregrine" }
        global CONFIG_SYN_RH_LIB18T
        if { $CONFIG_SYN_RH_LIB18T == 1 } then { set tmpvar_0 "RH-LIB18T" }
        global CONFIG_SYN_RHUMC
        if { $CONFIG_SYN_RHUMC == 1 } then { set tmpvar_0 "RH-UMC" }
        global CONFIG_SYN_SPARTAN2
        if { $CONFIG_SYN_SPARTAN2 == 1 } then { set tmpvar_0 "Xilinx-Spartan2" }
        global CONFIG_SYN_SPARTAN3
        if { $CONFIG_SYN_SPARTAN3 == 1 } then { set tmpvar_0 "Xilinx-Spartan3" }
        global CONFIG_SYN_SPARTAN3E
        if { $CONFIG_SYN_SPARTAN3E == 1 } then { set tmpvar_0 "Xilinx-Spartan3E" }
        global CONFIG_SYN_VIRTEX
        if { $CONFIG_SYN_VIRTEX == 1 } then { set tmpvar_0 "Xilinx-Virtex" }
        global CONFIG_SYN_VIRTEXE
        if { $CONFIG_SYN_VIRTEXE == 1 } then { set tmpvar_0 "Xilinx-VirtexE" }
        global CONFIG_SYN_VIRTEX2
        if { $CONFIG_SYN_VIRTEX2 == 1 } then { set tmpvar_0 "Xilinx-Virtex2" }
        global CONFIG_SYN_VIRTEX4
        if { $CONFIG_SYN_VIRTEX4 == 1 } then { set tmpvar_0 "Xilinx-Virtex4" }
        global CONFIG_SYN_VIRTEX5
        if { $CONFIG_SYN_VIRTEX5 == 1 } then { set tmpvar_0 "Xilinx-Virtex5" }
        global tmpvar_1
        set tmpvar_1 "Inferred"
        global CONFIG_MEM_INFERRED
        if { $CONFIG_MEM_INFERRED == 1 } then { set tmpvar_1 "Inferred" }
        global CONFIG_MEM_RHUMC
        if { $CONFIG_MEM_RHUMC == 1 } then { set tmpvar_1 "RH-UMC" }
        global CONFIG_MEM_ARTISAN
        if { $CONFIG_MEM_ARTISAN == 1 } then { set tmpvar_1 "Artisan" }
        global CONFIG_MEM_CUSTOM1
        if { $CONFIG_MEM_CUSTOM1 == 1 } then { set tmpvar_1 "Custom1" }
        global CONFIG_MEM_VIRAGE
        if { $CONFIG_MEM_VIRAGE == 1 } then { set tmpvar_1 "Virage" }
        global tmpvar_2
        set tmpvar_2 "Inferred"
        global CONFIG_CLK_INFERRED
        if { $CONFIG_CLK_INFERRED == 1 } then { set tmpvar_2 "Inferred" }
        global CONFIG_CLK_HCLKBUF
        if { $CONFIG_CLK_HCLKBUF == 1 } then { set tmpvar_2 "Actel-HCLKBUF" }
        global CONFIG_CLK_ALTDLL
        if { $CONFIG_CLK_ALTDLL == 1 } then { set tmpvar_2 "Altera-ALTPLL" }
        global CONFIG_CLK_LATDLL
        if { $CONFIG_CLK_LATDLL == 1 } then { set tmpvar_2 "Lattice-EXPLL" }
        global CONFIG_CLK_LIB18T
        if { $CONFIG_CLK_LIB18T == 1 } then { set tmpvar_2 "RH-LIB18T-PLL" }
        global CONFIG_CLK_CLKDLL
        if { $CONFIG_CLK_CLKDLL == 1 } then { set tmpvar_2 "Xilinx-CLKDLL" }
        global CONFIG_CLK_DCM
        if { $CONFIG_CLK_DCM == 1 } then { set tmpvar_2 "Xilinx-DCM" }
        global tmpvar_3
        set tmpvar_3 "4"
        global CONFIG_AHBRAM_SZ1
        if { $CONFIG_AHBRAM_SZ1 == 1 } then { set tmpvar_3 "1" }
        global CONFIG_AHBRAM_SZ2
        if { $CONFIG_AHBRAM_SZ2 == 1 } then { set tmpvar_3 "2" }
        global CONFIG_AHBRAM_SZ4
        if { $CONFIG_AHBRAM_SZ4 == 1 } then { set tmpvar_3 "4" }
        global CONFIG_AHBRAM_SZ8
        if { $CONFIG_AHBRAM_SZ8 == 1 } then { set tmpvar_3 "8" }
        global CONFIG_AHBRAM_SZ16
        if { $CONFIG_AHBRAM_SZ16 == 1 } then { set tmpvar_3 "16" }
        global CONFIG_AHBRAM_SZ32
        if { $CONFIG_AHBRAM_SZ32 == 1 } then { set tmpvar_3 "32" }
        global CONFIG_AHBRAM_SZ64
        if { $CONFIG_AHBRAM_SZ64 == 1 } then { set tmpvar_3 "64" }
        global tmpvar_4
        set tmpvar_4 "8"
        global CONFIG_GRETH_FIFO4
        if { $CONFIG_GRETH_FIFO4 == 1 } then { set tmpvar_4 "4" }
        global CONFIG_GRETH_FIFO8
        if { $CONFIG_GRETH_FIFO8 == 1 } then { set tmpvar_4 "8" }
        global CONFIG_GRETH_FIFO16
        if { $CONFIG_GRETH_FIFO16 == 1 } then { set tmpvar_4 "16" }
        global CONFIG_GRETH_FIFO32
        if { $CONFIG_GRETH_FIFO32 == 1 } then { set tmpvar_4 "32" }
        global CONFIG_GRETH_FIFO64
        if { $CONFIG_GRETH_FIFO64 == 1 } then { set tmpvar_4 "64" }
        global tmpvar_5
        set tmpvar_5 "8"
        global CONFIG_PCI_FIFO0
        if { $CONFIG_PCI_FIFO0 == 1 } then { set tmpvar_5 "None" }
        global CONFIG_PCI_FIFO8
        if { $CONFIG_PCI_FIFO8 == 1 } then { set tmpvar_5 "8" }
        global CONFIG_PCI_FIFO16
        if { $CONFIG_PCI_FIFO16 == 1 } then { set tmpvar_5 "16" }
        global CONFIG_PCI_FIFO32
        if { $CONFIG_PCI_FIFO32 == 1 } then { set tmpvar_5 "32" }
        global CONFIG_PCI_FIFO64
        if { $CONFIG_PCI_FIFO64 == 1 } then { set tmpvar_5 "64" }
        global CONFIG_PCI_FIFO128
        if { $CONFIG_PCI_FIFO128 == 1 } then { set tmpvar_5 "128" }
        global tmpvar_6
        set tmpvar_6 "256"
        global CONFIG_PCI_TRACE256
        if { $CONFIG_PCI_TRACE256 == 1 } then { set tmpvar_6 "256" }
        global CONFIG_PCI_TRACE512
        if { $CONFIG_PCI_TRACE512 == 1 } then { set tmpvar_6 "512" }
        global CONFIG_PCI_TRACE1024
        if { $CONFIG_PCI_TRACE1024 == 1 } then { set tmpvar_6 "1024" }
        global CONFIG_PCI_TRACE2048
        if { $CONFIG_PCI_TRACE2048 == 1 } then { set tmpvar_6 "2048" }
        global CONFIG_PCI_TRACE4096
        if { $CONFIG_PCI_TRACE4096 == 1 } then { set tmpvar_6 "4096" }
}


proc update_define_mainmenu {} {
        global CONFIG_MODULES
}


# FILE: tail.tk
# This file is boilerplate TCL/TK function definitions for 'make xconfig'.
#
# CHANGES
# =======
#
# 8 January 1998, Michael Elizabeth Chastain, <mec@shout.net>
# Arrange buttons in three columns for better screen fitting.
#

#
# Read the user's settings from .config.  These will override whatever is
# in config.in.  Don't do this if the user specified a -D to force
# the defaults.
#

set defaults defconfig

if { [file readable .config] == 1} then {
        if { $argc > 0 } then {
                if { [lindex $argv 0] != "-D" } then {
                        read_config .config
                }
                else
                {
                        read_config $defaults
                }
        } else {
                read_config .config
        }
} else {
        read_config $defaults
}

update_define 1 $total_menus 0
update_mainmenu

button .f0.right.save -anchor w -text "Save and Exit" -underline 0\
    -command { catch {exec cp -f .config .config.old}; \
                writeconfig .config config.h; wrapup .wrap }

button .f0.right.quit -anchor w -text "Quit Without Saving" -underline 0\
    -command { maybe_exit .maybe }

button .f0.right.load -anchor w -text "Load Configuration from File" \
    -command { load_configfile .load "Load Configuration from file" read_config_file
}

button .f0.right.store -anchor w -text "Store Configuration to File" \
    -command { load_configfile .load "Store Configuration to file" write_config_file }

#
# Now pack everything.
#

pack .f0.right.store .f0.right.load .f0.right.quit .f0.right.save \
    -padx 0 -pady 0 -side bottom -fill x
pack .f0.left .f0.middle .f0.right -side left -padx 5 -pady 0 -fill y
pack .f0 -padx 5 -pady 5

update idletasks
set winy [expr 10 + [winfo reqheight .f0]]
set scry [lindex [wm maxsize .] 1]
set winx [expr 10 + [winfo reqwidth .f0]]
set scrx [lindex [wm maxsize .] 0]
if {$winx < $scrx} then {set maxx -1} else {set maxx $winx}
if {$winy < $scry} then {set maxy -1} else {set maxy $winy}
.f0 configure -width $winx -height $winy 
wm maxsize . $maxx $maxy

#
# If we cannot write our config files, disable the write button.
#
if { [file exists .config] == 1 } then {
                if { [file writable .config] == 0 } then {
                        .f0.right.save configure -state disabled
                }
        } else {
                if { [file writable .] == 0 } then {
                        .f0.right.save configure -state disabled
                }
        }

#if { [file exists include/linux/autoconf.h] == 1 } then {
#               if { [file writable include/linux/autoconf.h] == 0 } then {
#                       .f0.right.save configure -state disabled
#               }
#       } else {
#               if { [file writable include/linux/] == 0 } then {
#                       .f0.right.save configure -state disabled
#               }
#       }