}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 0x"; \		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"	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.m $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 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 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 submenu { w mnum line text subnum } {	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 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 line text } {#nothing done for comments now.}proc dohelp {w var }  {	catch {destroy $w}	toplevel $w -class Dialog	set filefound 0	set found 0	set lineno 0	if { [file readable doc/Configure.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 [exec sed -n "			/^$var\[ 	\]*\$/,\${				/^$var\[ 	\]*\$/c\\${var}:\\				/^#/b				/^\[^ 	\]/q				s/^  //				p			}			" doc/Configure.help]		set found [expr [string length "$message"] > 0]	}		frame $w.f1	if { $found == 0 } then {		if { $filefound == 0 } then {		message $w.f1.m -width 750 -aspect 300 -relief flat -text \			"No help available - unable to open file doc/Configure.help.  This file should have come with your kernel."		} else {		message $w.f1.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.m -width 73 -relief flat -wrap word		$w.f1.m insert 0.0 $message		$w.f1.m conf -state disabled  -height [$w.f1.m index end]		label $w.f1.bm -bitmap info		wm title $w "Configuration help" 	}	pack $w.f1.bm $w.f1.m -side left -padx 10	pack $w.f1 -side top	set oldFocus [focus]		# Do the OK button	#	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	# Finish off the window	#	focus $w	global winx; global winy	set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]	wm geometry $w +$winx+$winy}proc wrapup {w }  {	catch {destroy $w}	exit}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.leftframe .f0.middleframe .f0.rightset active_menus [list]set processed_top_level 0