patch-2.3.19 linux/scripts/tkgen.c
Next file: linux/scripts/tkparse.c
Previous file: linux/scripts/tkcond.c
Back to the patch index
Back to the overall index
- Lines: 1394
- Date:
Sat Oct 2 07:49:30 1999
- Orig file:
v2.3.18/linux/scripts/tkgen.c
- Orig date:
Sun May 2 09:51:16 1999
diff -u --recursive --new-file v2.3.18/linux/scripts/tkgen.c linux/scripts/tkgen.c
@@ -92,33 +92,58 @@
*
* 23 January 1999, Michael Elizabeth Chastain <mec@shout.net>
* - Remove bug-compatible code.
+ *
+ * 07 July 1999, Andrzej M. Krzysztofowicz <ankry@mif.pg.gda.pl>
+ * Some bugfixes, including
+ * - disabling "m" options when CONFIG_MODULES is set to "n" as well as "y"
+ * option in dep_tristate when dependency is set to "m",
+ * - deactivating choices which should not be available,
+ * - basic validation for int and hex introduced if the entered one is not
+ * valid,
+ * - updates of all opened menus instead of the active only. I was afraid
+ * that it would slow down updates, but I don't even see any speed difference
+ * on my machine. If it slows you can still work with only a single menu
+ * opened,
+ * - fixed error when focussing non-existent window (especially Help windows),
+ * Higher level submenus implemented.
*/
#include <stdio.h>
+#include <stdlib.h>
#include <unistd.h>
+#include <string.h>
#include "tkparse.h"
-
/*
* Total number of menus.
*/
static int tot_menu_num = 0;
-
+/*
+ * Pointers to mainmenu_option and endmenu of each menu.
+ */
+struct kconfig * menu_first [100];
+struct kconfig * menu_last [100];
/*
* Generate portion of wish script for the beginning of a submenu.
* The guts get filled in with the various options.
*/
-static void start_proc( char * label, int menu_num, int flag )
+static void start_proc( char * label, int menu_num, int toplevel )
{
- if ( flag )
+ if ( toplevel )
printf( "menu_option menu%d %d \"%s\"\n", menu_num, menu_num, label );
printf( "proc menu%d {w title} {\n", menu_num );
- printf( "\tcatch {destroy $w}\n" );
+ printf( "\tset oldFocus [focus]\n" );
+ if ( menu_first[menu_num]->menu_number != 0 )
+ printf( "\tcatch {focus .menu%d}\n",
+ menu_first[menu_num]->menu_number );
+ printf( "\tcatch {destroy $w; unregister_active %d}\n", menu_num );
printf( "\ttoplevel $w -class Dialog\n" );
printf( "\twm withdraw $w\n" );
+ printf( "\tglobal active_menus\n" );
+ printf( "\tset active_menus [lsort -integer [linsert $active_menus end %d]]\n", menu_num );
printf( "\tmessage $w.m -width 400 -aspect 300 -text \\\n" );
printf( "\t\t\"%s\" -relief raised\n", label );
printf( "\tpack $w.m -pady 10 -side top -padx 10\n" );
@@ -127,16 +152,41 @@
/*
* Attach the "Prev", "Next" and "OK" buttons at the end of the window.
*/
- printf( "\tset oldFocus [focus]\n" );
printf( "\tframe $w.f\n" );
- printf( "\tbutton $w.f.back -text \"Main Menu\" \\\n" );
- printf( "\t\t-width 15 -command \"destroy $w; focus $oldFocus; update_mainmenu $w\"\n" );
+ if ( toplevel )
+ printf( "\tbutton $w.f.back -text \"Main Menu\" \\\n" );
+ else
+ printf( "\tbutton $w.f.back -text \"OK\" \\\n" );
+ printf( "\t\t-width 15 -command \"catch {focus $oldFocus}; destroy $w; unregister_active %d\"\n",
+ menu_num );
printf( "\tbutton $w.f.next -text \"Next\" \\\n" );
- printf( "\t\t-width 15 -command \" destroy $w; focus $oldFocus; menu%d .menu%d \\\"$title\\\"\"\n", menu_num+1, menu_num+1 );
+ printf( "\t\t-width 15 -command \"catch {focus $oldFocus}; " );
+ /*
+ * We are checking which windows should be destroyed and which are
+ * common parrents with the next one. Remember that menu_num field
+ * in mainmenu_option record reports number of its *parent* menu.
+ */
+ if ( menu_num < tot_menu_num
+ && menu_first[menu_num + 1]->menu_number != menu_num )
+ {
+ int to_destr;
+
+ printf( "destroy $w; unregister_active %d; ", menu_num );
+ to_destr = menu_first[menu_num]->menu_number;
+ while ( to_destr > 0 && menu_first[menu_num + 1]->menu_number != to_destr )
+ {
+ printf( "catch {destroy .menu%d}; unregister_active %d; ",
+ to_destr, to_destr );
+ to_destr = menu_first[to_destr]->menu_number;
+ }
+ }
+ printf( "menu%d .menu%d \\\"$title\\\"\"\n",
+ menu_num+1, menu_num+1 );
if ( menu_num == tot_menu_num )
printf( "\t$w.f.next configure -state disabled\n" );
printf( "\tbutton $w.f.prev -text \"Prev\" \\\n" );
- printf( "\t\t-width 15 -command \" destroy $w; focus $oldFocus; menu%d .menu%d \\\"$title\\\"\"\n", menu_num-1, menu_num-1 );
+ printf( "\t\t-width 15 -command \"catch {focus $oldFocus}; destroy $w; unregister_active %d; menu%d .menu%d \\\"$title\\\"\"\n",
+ menu_num, menu_num-1, menu_num-1 );
if ( menu_num == 1 )
printf( "\t$w.f.prev configure -state disabled\n" );
printf( "\tpack $w.f.back $w.f.next $w.f.prev -side left -expand on\n" );
@@ -177,12 +227,11 @@
* a global declaration so we know whether we need to insert one for a
* given function or not.
*/
-void clear_globalflags( struct kconfig * scfg )
+static void clear_globalflags(void)
{
- struct kconfig * cfg;
-
- for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
- cfg->global_written = 0;
+ int i;
+ for ( i = 1; i <= max_varnum; i++ )
+ vartable[i].global_written = 0;
}
@@ -194,7 +243,7 @@
*/
void global( const char *var )
{
- printf( "\tglobal %s; vfix %s\n", var, var );
+ printf( "\tglobal %s\n", var );
}
@@ -207,6 +256,21 @@
int menu_num, int line_num )
{
struct condition * cond;
+ struct dependency * tmp;
+ struct kconfig * cfg1;
+
+ if ( line_num >= -1 )
+ {
+ if ( cfg->token == token_define_bool || cfg->token == token_define_hex
+ || cfg->token == token_define_int || cfg->token == token_define_string
+ || cfg->token == token_define_tristate || cfg->token == token_unset )
+ return;
+ }
+ else
+ {
+ if ( cfg->token == token_string || cfg->token == token_mainmenu_option )
+ return;
+ }
/*
* First write any global declarations we need for this conditional.
@@ -219,14 +283,10 @@
break;
case op_variable:
- global( cond->str );
- break;
-
- case op_kvariable:
- if ( ! cond->cfg->global_written )
+ if ( ! vartable[cond->nameindex].global_written )
{
- cond->cfg->global_written = 1;
- global( cond->cfg->optionname );
+ vartable[cond->nameindex].global_written = 1;
+ global( vartable[cond->nameindex].name );
}
break;
}
@@ -235,10 +295,10 @@
/*
* Now write this option.
*/
- if ( ! cfg->global_written && cfg->optionname != NULL )
+ if ( cfg->nameindex > 0 && ! vartable[cfg->nameindex].global_written )
{
- cfg->global_written = 1;
- global( cfg->optionname );
+ vartable[cfg->nameindex].global_written = 1;
+ global( vartable[cfg->nameindex].name );
}
/*
@@ -262,156 +322,310 @@
case op_rparen: printf( ")" ); break;
case op_variable:
- printf( "$%s", cond->str );
- break;
-
- case op_kvariable:
- printf( "$%s", cond->cfg->optionname );
+ printf( "$%s", vartable[cond->nameindex].name );
break;
case op_constant:
if ( strcmp( cond->str, "y" ) == 0 ) printf( "1" );
else if ( strcmp( cond->str, "n" ) == 0 ) printf( "0" );
else if ( strcmp( cond->str, "m" ) == 0 ) printf( "2" );
+ else if ( strcmp( cond->str, "" ) == 0 ) printf( "4" );
else
printf( "\"%s\"", cond->str );
break;
}
}
- printf( "} then { " );
+ printf( "} then {" );
/*
* Generate a procedure call to write the value.
* This code depends on procedures in header.tk.
*/
- switch ( cfg->token )
+ if ( line_num >= -1 )
{
- default:
- printf( " }\n" );
- break;
-
- case token_bool:
- printf( ".menu%d.config.f.x%d.y configure -state normal;",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.n configure -state normal;",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.l configure -state normal;",
- menu_num, line_num );
- printf( "set %s [expr $%s&15];",
- cfg->optionname, cfg->optionname );
- printf( "} else { ");
- printf( ".menu%d.config.f.x%d.y configure -state disabled;",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.n configure -state disabled;",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.l configure -state disabled;",
- menu_num, line_num );
- printf( "set %s [expr $%s|16];}\n",
- cfg->optionname, cfg->optionname );
- break;
+ switch ( cfg->token )
+ {
+ default:
+ printf( " }\n" );
+ break;
- case token_choice_header:
- fprintf( stderr, "Internal error on token_choice_header\n" );
- exit( 1 );
+ case token_dep_bool:
+ printf( "\n" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ if ( ! vartable[get_varnum( tmp->name )].global_written )
+ {
+ global( tmp->name );
+ }
+ printf( "\tset tmpvar_dep [effective_dep [list" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ printf( " $%s", tmp->name );
+ printf( "]];set %s [sync_bool $%s $tmpvar_dep];",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ printf( "if {$tmpvar_dep != 1} then {" );
+ printf( "configure_entry .menu%d.config.f.x%d disabled {y};",
+ menu_num, line_num );
+ printf( "} else {" );
+ printf( "configure_entry .menu%d.config.f.x%d normal {y};",
+ menu_num, line_num );
+ printf( "}; " );
+ case token_bool:
+ if ( cfg->token == token_bool )
+ printf( "\n\t" );
+ printf( "configure_entry .menu%d.config.f.x%d normal {n l",
+ menu_num, line_num );
+ if ( cfg->token == token_bool )
+ printf( " y" );
+ printf( "}" );
+ printf( "} else {");
+ printf( "configure_entry .menu%d.config.f.x%d disabled {y n l}}\n",
+ menu_num, line_num );
+ break;
- case token_choice_item:
- fprintf( stderr, "Internal error on token_choice_item\n" );
- exit( 1 );
+ case token_choice_header:
+ printf( "configure_entry .menu%d.config.f.x%d normal {x l}",
+ menu_num, line_num );
+ printf( "} else {" );
+ printf( "configure_entry .menu%d.config.f.x%d disabled {x l}",
+ menu_num, line_num );
+ printf( "}\n" );
+ break;
- case token_define_bool:
- printf( "set %s %s } \n",
- cfg->optionname, cfg->value );
- break;
+ case token_choice_item:
+ fprintf( stderr, "Internal error on token_choice_item\n" );
+ exit( 1 );
- case token_dep_tristate:
- case token_tristate:
- if ( cfg->token == token_dep_tristate )
- {
- global( cfg->depend );
- printf( "if { $%s != 1 && $%s != 0 } then {",
- cfg->depend, cfg->depend );
- printf( ".menu%d.config.f.x%d.y configure -state disabled;",
+ case token_dep_tristate:
+ printf( "\n" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ if ( ! vartable[get_varnum( tmp->name )].global_written )
+ {
+ global( tmp->name );
+ }
+ printf( "\tset tmpvar_dep [effective_dep [list" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ printf( " $%s", tmp->name );
+ printf( "]];set %s [sync_tristate $%s $tmpvar_dep];",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ printf( "\tif {$tmpvar_dep != 1} then {" );
+ printf( "configure_entry .menu%d.config.f.x%d disabled {y}",
menu_num, line_num );
printf( "} else {" );
- printf( ".menu%d.config.f.x%d.y configure -state normal;",
- menu_num, line_num);
+ printf( "configure_entry .menu%d.config.f.x%d normal {y}",
+ menu_num, line_num );
printf( "}; " );
- }
- else
- {
- printf( ".menu%d.config.f.x%d.y configure -state normal;",
+ printf( "if {$tmpvar_dep == 0} then {" );
+ printf( "configure_entry .menu%d.config.f.x%d disabled {m}",
+ menu_num, line_num );
+ printf( "} else {" );
+ printf( "configure_entry .menu%d.config.f.x%d normal {m}",
menu_num, line_num );
+ printf( "}; " );
+ case token_tristate:
+ if ( cfg->token == token_tristate )
+ {
+ printf( "\n\tconfigure_entry .menu%d.config.f.x%d normal {y}; ",
+ menu_num, line_num );
+ }
+ printf( "if {($CONFIG_MODULES == 1)} then {" );
+ printf( "configure_entry .menu%d.config.f.x%d normal {m}} else {",
+ menu_num, line_num );
+ printf( "configure_entry .menu%d.config.f.x%d disabled {m}}; ",
+ menu_num, line_num );
+ printf( "configure_entry .menu%d.config.f.x%d normal {n l}",
+ menu_num, line_num );
+
+ /*
+ * Or in a bit to the variable - this causes all of the radiobuttons
+ * to be deselected (i.e. not be red).
+ */
+ printf( "} else {" );
+ printf( "configure_entry .menu%d.config.f.x%d disabled {y n m l}}\n",
+ menu_num, line_num );
+ break;
+
+ case token_hex:
+ case token_int:
+ case token_string:
+ printf( ".menu%d.config.f.x%d.x configure -state normal -foreground [ cget .ref -foreground ]; ",
+ menu_num, line_num );
+ printf( ".menu%d.config.f.x%d.l configure -state normal; ",
+ menu_num, line_num );
+ printf( "} else {" );
+ printf( ".menu%d.config.f.x%d.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; ",
+ menu_num, line_num );
+ printf( ".menu%d.config.f.x%d.l configure -state disabled}\n",
+ menu_num, line_num );
+ break;
+
+ case token_mainmenu_option:
+ if ( line_num >= 0 )
+ {
+ printf( "configure_entry .menu%d.config.f.x%d normal {m}",
+ menu_num, line_num );
+ printf( "} else {" );
+ printf( "configure_entry .menu%d.config.f.x%d disabled {m}}\n",
+ menu_num, line_num );
+ }
+ else
+ printf( ".f0.x%d configure -state normal } else { .f0.x%d configure -state disabled }\n",
+ menu_num, menu_num );
+ break;
}
+ }
+ else
+ {
+ switch ( cfg->token )
+ {
+ default:
+ printf( " }\n" );
+ break;
- printf( ".menu%d.config.f.x%d.n configure -state normal;",
- menu_num, line_num );
- printf( "global CONFIG_MODULES; if {($CONFIG_MODULES == 1)} then { .menu%d.config.f.x%d.m configure -state normal };",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.l configure -state normal;",
- menu_num, line_num );
+ case token_dep_bool:
+ printf( "\n" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ if ( ! vartable[get_varnum( tmp->name )].global_written )
+ {
+ global( tmp->name );
+ }
+ printf( "\tset tmpvar_dep [effective_dep [list" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ printf( " $%s", tmp->name );
+ printf( "]];set %s [sync_bool $%s $tmpvar_dep];",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ case token_bool:
+ if ( cfg->token == token_bool )
+ printf( "\n\t" );
+ printf( "set %s [expr $%s&15]",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ printf( "} else {");
+ printf( "set %s [expr $%s|16]}\n",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ break;
+ case token_choice_header:
+ printf( "} else {" );
+ for ( cfg1 = cfg->next;
+ cfg1 != NULL && cfg1->token == token_choice_item;
+ cfg1 = cfg1->next )
+ printf( "set %s 4;", vartable[cfg1->nameindex].name );
+ printf( "}\n" );
+ break;
+
+ case token_choice_item:
+ fprintf( stderr, "Internal error on token_choice_item\n" );
+ exit( 1 );
+
+ case token_define_bool:
+ case token_define_tristate:
+ if ( ! vartable[get_varnum( cfg->value )].global_written )
+ {
+ global( cfg->value );
+ }
+ printf( "set %s $%s }\n",
+ vartable[cfg->nameindex].name, cfg->value );
+ break;
+
+ case token_define_hex:
+ case token_define_int:
+ printf( "set %s %s }\n",
+ vartable[cfg->nameindex].name, cfg->value );
+ break;
+
+ case token_define_string:
+ printf( "set %s \"%s\" }\n",
+ vartable[cfg->nameindex].name, cfg->value );
+ break;
+
+ case token_dep_tristate:
+ printf( "\n" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ if ( ! vartable[get_varnum( tmp->name )].global_written )
+ {
+ global( tmp->name );
+ }
+ printf( "\tset tmpvar_dep [effective_dep [list" );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ printf( " $%s", tmp->name );
+ printf( "]]; set %s [sync_tristate $%s $tmpvar_dep]; ",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ case token_tristate:
+ if ( cfg->token == token_tristate )
+ printf( "if {($CONFIG_MODULES == 0) && ($%s == 2)} then {set %s 1}; ",
+ vartable[cfg->nameindex].name,
+ vartable[cfg->nameindex].name );
/*
* Or in a bit to the variable - this causes all of the radiobuttons
* to be deselected (i.e. not be red).
*/
- printf( "set %s [expr $%s&15];",
- cfg->optionname, cfg->optionname );
- printf( "} else { " );
- printf( ".menu%d.config.f.x%d.y configure -state disabled;",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.n configure -state disabled;",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.m configure -state disabled;",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.l configure -state disabled;",
- menu_num, line_num );
+ printf( "set %s [expr $%s&15]",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ printf( "} else {" );
/*
* Clear the disable bit to enable the correct radiobutton.
*/
- printf( "set %s [expr $%s|16];}\n",
- cfg->optionname, cfg->optionname );
- break;
+ printf( "set %s [expr $%s|16]}\n",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ break;
- case token_hex:
- case token_int:
- case token_string:
- printf( ".menu%d.config.f.x%d.x configure -state normal -foreground [ cget .ref -foreground ]; ",
- menu_num, line_num);
- printf( ".menu%d.config.f.x%d.l configure -state normal; ",
- menu_num, line_num);
- printf( "} else { " );
- printf( ".menu%d.config.f.x%d.x configure -state disabled -foreground [ cget .ref -disabledforeground ];",
- menu_num, line_num );
- printf( ".menu%d.config.f.x%d.l configure -state disabled;}\n",
- menu_num, line_num );
- break;
+ case token_hex:
+ case token_int:
+ if ( cfg->value && *cfg->value == '$' )
+ {
+ int index = get_varnum( cfg->value+1 );
+ printf( "\n" );
+ if ( ! vartable[index].global_written )
+ {
+ global( vartable[index].name );
+ }
+ printf( "\t" );
+ }
+ if ( cfg->token == token_hex )
+ printf( "validate_hex " );
+ else if ( cfg->token == token_int )
+ printf( "validate_int " );
+ printf( "%s \"$%s\" %s}\n",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name,
+ cfg->value );
+ break;
- case token_mainmenu_option:
- printf( ".f0.x%d configure -state normal } else { .f0.x%d configure -state disabled }\n",
- menu_num, menu_num );
- break;
+ case token_unset:
+ printf( "set %s 4}\n", vartable[cfg->nameindex].name );
+ break;
+ }
}
}
-
/*
* Generate a line that writes a variable to the output file.
*/
void generate_writeconfig( struct kconfig * cfg )
{
struct condition * cond;
-
+ struct dependency * tmp;
+
/*
* Generate global declaration for this symbol.
*/
if ( cfg->token != token_comment )
{
- if ( ! cfg->global_written )
+ if ( cfg->nameindex > 0 && ! vartable[cfg->nameindex].global_written )
{
- cfg->global_written = 1;
- printf( "\tglobal %s\n", cfg->optionname );
+ vartable[cfg->nameindex].global_written = 1;
+ global( vartable[cfg->nameindex].name );
+ }
+ if ( cfg->token == token_define_tristate || cfg->token == token_define_bool )
+ {
+ if ( ! vartable[get_varnum( cfg->value )].global_written )
+ {
+ vartable[get_varnum( cfg->value )].global_written = 1;
+ global( cfg->value );
+ }
+ }
+ else if ( cfg->nameindex <= 0 && cfg->token == token_choice_header )
+ {
+ printf( "\tglobal tmpvar_%d\n", -(cfg->nameindex) );
}
}
@@ -426,14 +640,10 @@
break;
case op_variable:
- global( cond->str );
- break;
-
- case op_kvariable:
- if ( ! cond->cfg->global_written )
+ if ( ! vartable[cond->nameindex].global_written )
{
- cond->cfg->global_written = 1;
- global( cond->cfg->optionname );
+ vartable[cond->nameindex].global_written = 1;
+ global( vartable[cond->nameindex].name );
}
break;
}
@@ -442,7 +652,6 @@
/*
* Generate indentation.
*/
- if ( cfg->token != token_choice_header )
printf( "\t" );
/*
@@ -466,17 +675,14 @@
case op_rparen: printf( ")" ); break;
case op_variable:
- printf( "$%s", cond->str );
- break;
-
- case op_kvariable:
- printf( "$%s", cond->cfg->optionname );
+ printf( "$%s", vartable[cond->nameindex].name );
break;
case op_constant:
if ( strcmp( cond->str, "n" ) == 0 ) printf( "0" );
else if ( strcmp( cond->str, "y" ) == 0 ) printf( "1" );
else if ( strcmp( cond->str, "m" ) == 0 ) printf( "2" );
+ else if ( strcmp( cond->str, "" ) == 0 ) printf( "4" );
else
printf( "\"%s\"", cond->str );
break;
@@ -499,10 +705,8 @@
case token_bool:
case token_tristate:
- if ( cfg->cond )
- printf( " " );
- printf( "write_tristate $cfg $autocfg %s $%s $notmod",
- cfg->optionname, cfg->optionname );
+ printf( "write_tristate $cfg $autocfg %s $%s [list $notmod]",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
if ( cfg->cond != NULL )
printf( " }" );
printf( "\n" );
@@ -520,12 +724,15 @@
cfg1 != NULL && cfg1->token == token_choice_item;
cfg1 = cfg1->next )
{
- printf("\tif { $%s == \"%s\" } then { write_tristate $cfg $autocfg %s 1 $notmod } else { write_tristate $cfg $autocfg %s 0 $notmod }\n",
- cfg->optionname, cfg1->label,
- cfg1->optionname,
- cfg1->optionname );
+ printf("\n\tif { $tmpvar_%d == \"%s\" } then { write_tristate $cfg $autocfg %s 1 [list $notmod] } else { write_tristate $cfg $autocfg %s 0 [list $notmod] }",
+ -(cfg->nameindex), cfg1->label,
+ vartable[cfg1->nameindex].name,
+ vartable[cfg1->nameindex].name );
}
}
+ if ( cfg->cond != NULL )
+ printf( "}" );
+ printf( "\n" );
break;
case token_choice_item:
@@ -541,53 +748,74 @@
break;
case token_define_bool:
+ case token_define_tristate:
if ( cfg->cond == NULL )
{
- printf( "write_tristate $cfg $autocfg %s $%s $notmod\n",
- cfg->optionname, cfg->optionname );
+ printf( "write_tristate $cfg $autocfg %s $%s [list $notmod]\n",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
}
else
{
- printf( "write_tristate $cfg $autocfg %s %s $notmod }\n",
- cfg->optionname, cfg->value );
+ printf( "write_tristate $cfg $autocfg %s $%s [list $notmod] }\n",
+ vartable[cfg->nameindex].name, cfg->value );
}
break;
+ case token_dep_bool:
case token_dep_tristate:
- if ( cfg->cond )
- printf( " " );
- printf( "write_tristate $cfg $autocfg %s $%s $%s",
- cfg->optionname, cfg->optionname, cfg->depend );
+ printf( "write_tristate $cfg $autocfg %s $%s [list",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ for ( tmp = cfg->depend; tmp; tmp = tmp->next )
+ printf( " $%s", tmp->name );
+ printf( "]" );
if ( cfg->cond != NULL )
printf( " }" );
- printf( " \n" );
+ printf( "\n" );
break;
- case token_hex:
+ case token_define_hex:
+ printf( "write_hex $cfg $autocfg %s %s $notmod",
+ vartable[cfg->nameindex].name, cfg->value );
+ if ( cfg->cond != NULL )
+ printf( " }" );
+ printf( "\n" );
+ break;
+
+ case token_define_int:
+ printf( "write_int $cfg $autocfg %s %s $notmod",
+ vartable[cfg->nameindex].name, cfg->value );
+ if ( cfg->cond != NULL )
+ printf( " }" );
+ printf( "\n" );
+ break;
+
+ case token_define_string:
+ printf( "write_string $cfg $autocfg %s \"%s\" $notmod",
+ vartable[cfg->nameindex].name, cfg->value );
if ( cfg->cond != NULL )
- printf( " " );
+ printf( " }" );
+ printf( "\n" );
+ break;
+
+ case token_hex:
printf( "write_hex $cfg $autocfg %s $%s $notmod",
- cfg->optionname, cfg->optionname );
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
if ( cfg->cond != NULL )
printf( " }" );
printf( "\n" );
break;
case token_int:
- if ( cfg->cond != NULL )
- printf( " " );
printf( "write_int $cfg $autocfg %s $%s $notmod",
- cfg->optionname, cfg->optionname );
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
if ( cfg->cond != NULL )
printf( " }" );
printf( "\n" );
break;
case token_string:
- if ( cfg->cond != NULL )
- printf( " " );
- printf( "write_string $cfg $autocfg %s $%s $notmod",
- cfg->optionname, cfg->optionname );
+ printf( "write_string $cfg $autocfg %s \"$%s\" $notmod",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
if ( cfg->cond != NULL )
printf( " }" );
printf( "\n" );
@@ -595,6 +823,112 @@
}
}
+static void generate_update_var( struct kconfig * scfg, int menu_num )
+{
+ struct kconfig * cfg;
+
+ if ( menu_num>0 )
+ {
+ printf( "proc update_define_menu%d {} {\n", menu_num );
+ printf( "\tupdate_define_mainmenu\n" );
+ }
+ else
+ printf( "proc update_define_mainmenu {} {\n" );
+ clear_globalflags();
+ global( "CONFIG_MODULES" );
+ vartable[ get_varnum( "CONFIG_MODULES" ) ].global_written = 1;
+ for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
+ {
+ if ( cfg->menu_number == menu_num && (cfg->token == token_define_bool || cfg->token == token_define_tristate
+ || cfg->token == token_define_hex || cfg->token == token_define_int
+ || cfg->token == token_define_string || cfg->token == token_unset
+ || cfg->token == token_tristate) )
+ {
+ if ( ! vartable[cfg->nameindex].global_written )
+ {
+ vartable[cfg->nameindex].global_written = 1;
+ global( vartable[cfg->nameindex].name );
+ }
+ }
+ }
+
+ for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
+ {
+ char tmp[20];
+ struct kconfig * cfg1;
+
+ if ( cfg->menu_number == menu_num )
+ {
+ switch ( cfg->token )
+ {
+ default:
+ case token_choice_item:
+ break;
+ case token_choice_header:
+ sprintf( tmp, "tmpvar_%d", -(cfg->nameindex) );
+ global( tmp );
+ for ( cfg1 = cfg->next;
+ cfg1 != NULL && cfg1->token == token_choice_item;
+ cfg1 = cfg1->next )
+ {
+ vartable[cfg1->nameindex].global_written = 1;
+ global( vartable[cfg1->nameindex].name );
+ printf( "\tif {$tmpvar_%d == \"%s\"} then {set %s 1} else {set %s 0}\n",
+ -(cfg->nameindex), cfg1->label,
+ vartable[cfg1->nameindex].name,
+ vartable[cfg1->nameindex].name );
+ }
+ break;
+ case token_bool:
+ case token_define_bool:
+ case token_define_tristate:
+ case token_define_hex:
+ case token_define_int:
+ case token_define_string:
+ case token_dep_bool:
+ case token_dep_tristate:
+ case token_int:
+ case token_hex:
+ case token_mainmenu_option:
+ case token_tristate:
+ case token_unset:
+ if ( cfg->cond != NULL )
+ generate_if( cfg, cfg->cond, menu_num, -2 );
+ else switch ( cfg->token )
+ {
+ case token_tristate:
+ printf( "\n\tif {($CONFIG_MODULES == 0)} then {if {($%s == 2)} then {set %s 1}}\n",
+ vartable[cfg->nameindex].name, vartable[cfg->nameindex].name );
+ break;
+ case token_define_bool:
+ case token_define_tristate:
+ if ( ! vartable[get_varnum( cfg->value )].global_written )
+ {
+ vartable[get_varnum( cfg->value )].global_written = 1;
+ global( cfg->value );
+ }
+ printf( "\tset %s $%s\n", vartable[cfg->nameindex].name,
+ cfg->value );
+ break;
+ case token_define_hex:
+ case token_define_int:
+ printf( "\tset %s %s\n", vartable[cfg->nameindex].name,
+ cfg->value );
+ break;
+ case token_define_string:
+ printf( "\tset %s \"%s\"\n", vartable[cfg->nameindex].name,
+ cfg->value );
+ break;
+ case token_unset:
+ printf( "\tset %s 4\n", vartable[cfg->nameindex].name );
+ default:
+ break;
+ }
+ }
+ }
+ }
+ printf( "}\n\n\n" );
+}
/*
@@ -603,13 +937,24 @@
static void end_proc( struct kconfig * scfg, int menu_num )
{
struct kconfig * cfg;
+ int i;
printf( "\n\n\n" );
printf( "\tfocus $w\n" );
- printf( "\tupdate_menu%d $w.config.f\n",
- menu_num );
+ printf( "\tupdate_active\n" );
printf( "\tglobal winx; global winy\n" );
- printf( "\tset winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]\n" );
+ if ( menu_first[menu_num]->menu_number != 0 )
+ {
+ printf( "\tif {[winfo exists .menu%d] == 0} then ",
+ menu_first[menu_num]->menu_number );
+ printf( "{menu%d .menu%d \"%s\"}\n",
+ menu_first[menu_num]->menu_number, menu_first[menu_num]->menu_number,
+ menu_first[menu_first[menu_num]->menu_number]->label );
+ printf( "\tset winx [expr [winfo x .menu%d]+30]; set winy [expr [winfo y .menu%d]+30]\n",
+ menu_first[menu_num]->menu_number, menu_first[menu_num]->menu_number );
+ }
+ else
+ printf( "\tset winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]\n" );
printf( "\twm geometry $w +$winx+$winy\n" );
/*
@@ -660,27 +1005,12 @@
* widgets, and will be called first when the window is mapped,
* and each time one of the buttons in the window are clicked.
*/
- printf( "proc update_menu%d {w} {\n", menu_num );
- printf( "\tupdate_define\n" );
+ printf( "proc update_menu%d {} {\n", menu_num );
/*
* Clear all of the booleans that are defined in this menu.
*/
- clear_globalflags( scfg );
- for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
- {
- if ( cfg->menu_number == menu_num && cfg->token == token_define_bool
- && cfg->optionname != NULL )
- {
- if ( ! cfg->global_written )
- {
- cfg->global_written = 1;
- printf( "\tglobal %s\n", cfg->optionname );
- printf( "\tset %s 0\n", cfg->optionname );
- }
- }
- }
-
+ clear_globalflags();
for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
{
if ( cfg->menu_number == menu_num
@@ -688,28 +1018,47 @@
&& cfg->token != token_choice_item )
{
if ( cfg->cond != NULL )
+ {
+ int i;
+ if ( (cfg->token == token_tristate || cfg->token == token_dep_tristate)
+ && ! vartable[i = get_varnum( "CONFIG_MODULES" )].global_written )
+ {
+ global( "CONFIG_MODULES" );
+ vartable[i].global_written = 1;
+ }
generate_if( cfg, cfg->cond, cfg->menu_number, cfg->menu_line );
+ }
else
{
- /*
- * Treat tristate like conditional here.
- */
- if ( cfg->token == token_dep_tristate )
+ if ( cfg->token == token_tristate )
{
- global( cfg->depend );
- printf( "\tif {$%s != 1 && $%s != 0 } then { .menu%d.config.f.x%d.y configure -state disabled } else { .menu%d.config.f.x%d.y configure -state normal}\n",
- cfg->depend, cfg->depend,
+ if ( ! vartable[cfg->nameindex].global_written )
+ {
+ vartable[cfg->nameindex].global_written = 1;
+ printf( "\tglobal %s\n", vartable[cfg->nameindex].name );
+ }
+ if ( ! vartable[i = get_varnum( "CONFIG_MODULES" )].global_written )
+ {
+ global( "CONFIG_MODULES" );
+ vartable[i].global_written = 1;
+ }
+ printf( "\n\tif {($CONFIG_MODULES == 1)} then {configure_entry .menu%d.config.f.x%d normal {m}} else {configure_entry .menu%d.config.f.x%d disabled {m}}\n",
menu_num, cfg->menu_line,
menu_num, cfg->menu_line );
}
}
}
+ else if ( cfg->token == token_mainmenu_option
+ && cfg->menu_number == menu_num
+ && cfg->cond != NULL )
+ {
+ generate_if( cfg, cfg->cond, menu_num, cfg->menu_line );
+ }
}
-
printf("}\n\n\n");
-}
-
+ generate_update_var( scfg, menu_num );
+}
/*
* This is the top level function for generating the tk script.
@@ -718,18 +1067,20 @@
{
int menu_depth;
int menu_num [64];
- struct kconfig * menu_first [256];
- struct kconfig * menu_last [256];
- int imenu;
+ int imenu, i;
+ int top_level_num = 0;
struct kconfig * cfg;
struct kconfig * cfg1 = NULL;
const char * name = "No Name";
/*
- * Thread the menu pointers so I can walk each menu separately.
- */
+ * Mark begin and end of each menu so I can omit submenus when walking
+ * over a parent menu.
+ */
tot_menu_num = 0;
menu_depth = 0;
+ menu_num [0] = 0;
+
for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
{
switch ( cfg->token )
@@ -744,14 +1095,22 @@
case token_mainmenu_option:
if ( ++menu_depth >= 64 )
{ fprintf( stderr, "menus too deep\n" ); exit( 1 ); }
- if ( ++tot_menu_num >= 256 )
+ if ( ++tot_menu_num >= 100 )
{ fprintf( stderr, "too many menus\n" ); exit( 1 ); }
menu_num [menu_depth] = tot_menu_num;
menu_first [tot_menu_num] = cfg;
menu_last [tot_menu_num] = cfg;
+ /*
+ * Note, that menu_number is set to the number of parent
+ * (upper level) menu.
+ */
+ cfg->menu_number = menu_num[menu_depth - 1];
+ if ( menu_depth == 1 )
+ ++top_level_num;
break;
case token_endmenu:
+ menu_last [menu_num [menu_depth]] = cfg;
/* flatten menus with proper scoping */
if ( --menu_depth < 0 )
{ fprintf( stderr, "unmatched endmenu\n" ); exit( 1 ); }
@@ -760,19 +1119,24 @@
case token_bool:
case token_choice_header:
case token_choice_item:
+ case token_dep_bool:
case token_dep_tristate:
case token_hex:
case token_int:
case token_string:
case token_tristate:
+ cfg->menu_number = menu_num[menu_depth];
if ( menu_depth == 0 )
{ fprintf( stderr, "statement not in menu\n" ); exit( 1 ); }
- menu_last [menu_num [menu_depth]]->menu_next = cfg;
- menu_last [menu_num [menu_depth]] = cfg;
- cfg->menu_next = NULL;
break;
case token_define_bool:
+ case token_define_hex:
+ case token_define_int:
+ case token_define_string:
+ case token_define_tristate:
+ case token_unset:
+ cfg->menu_number = menu_num[menu_depth];
break;
}
}
@@ -784,7 +1148,21 @@
* one blank button
* add two to round up for division
*/
- printf( "set menus_per_column %d\n\n", (tot_menu_num + 4 + 1 + 2) / 3 );
+ printf( "set menus_per_column %d\n", (top_level_num + 4 + 1 + 2) / 3 );
+ printf( "set total_menus %d\n\n", tot_menu_num );
+
+ printf( "proc toplevel_menu {num} {\n" );
+ for ( imenu = 1; imenu <= tot_menu_num; ++imenu )
+ {
+ int parent = 1;
+
+ if ( menu_first[imenu]->menu_number == 0 )
+ parent = menu_first[imenu]->menu_number;
+ else
+ printf( "\tif {$num == %d} then {return %d}\n",
+ imenu, menu_first[imenu]->menu_number );
+ }
+ printf( "\treturn $num\n}\n\n" );
/*
* Generate the menus.
@@ -793,24 +1171,33 @@
for ( imenu = 1; imenu <= tot_menu_num; ++imenu )
{
int menu_line = 0;
+ int nr_submenu = imenu;
- clear_globalflags( scfg );
- start_proc( menu_first[imenu]->label, imenu, 1 );
+ clear_globalflags();
+ start_proc( menu_first[imenu]->label, imenu,
+ !menu_first[imenu]->menu_number );
- for ( cfg = menu_first[imenu]; cfg != NULL; cfg = cfg->menu_next )
+ for ( cfg = menu_first[imenu]->next; cfg != NULL && cfg != menu_last[imenu]; cfg = cfg->next )
{
- cfg->menu_number = imenu;
-
switch ( cfg->token )
{
default:
break;
+ case token_mainmenu_option:
+ while ( menu_first[++nr_submenu]->menu_number > imenu )
+ ;
+ cfg->menu_line = menu_line++;
+ printf( "\tsubmenu $w.config.f %d %d \"%s\" %d\n",
+ cfg->menu_number, cfg->menu_line, cfg->label, nr_submenu );
+ cfg = menu_last[nr_submenu];
+ break;
+
case token_bool:
cfg->menu_line = menu_line++;
printf( "\tbool $w.config.f %d %d \"%s\" %s\n",
cfg->menu_number, cfg->menu_line, cfg->label,
- cfg->optionname );
+ vartable[cfg->nameindex].name );
break;
case token_choice_header:
@@ -819,54 +1206,61 @@
* help text from Documentation/Configure.help.
*/
cfg->menu_line = menu_line++;
- printf( "\tglobal %s\n", cfg->optionname );
- printf( "\tminimenu $w.config.f %d %d \"%s\" %s %s\n",
+ printf( "\tglobal tmpvar_%d\n", -(cfg->nameindex) );
+ printf( "\tminimenu $w.config.f %d %d \"%s\" tmpvar_%d %s\n",
cfg->menu_number, cfg->menu_line, cfg->label,
- cfg->optionname, cfg->next->optionname );
+ -(cfg->nameindex), vartable[cfg->next->nameindex].name );
printf( "\tmenu $w.config.f.x%d.x.menu\n", cfg->menu_line );
cfg1 = cfg;
break;
case token_choice_item:
/* note: no menu line; uses choice header menu line */
- printf( "\t$w.config.f.x%d.x.menu add radiobutton -label \"%s\" -variable %s -value \"%s\" -command \"update_menu%d .menu%d.config.f\"\n",
- cfg1->menu_line, cfg->label, cfg1->optionname,
- cfg->label, cfg1->menu_number, cfg1->menu_number );
+ printf( "\t$w.config.f.x%d.x.menu add radiobutton -label \"%s\" -variable tmpvar_%d -value \"%s\" -command \"update_active\"\n",
+ cfg1->menu_line, cfg->label, -(cfg1->nameindex),
+ cfg->label );
+ break;
+
+ case token_dep_bool:
+ cfg->menu_line = menu_line++;
+ printf( "\tdep_bool $w.config.f %d %d \"%s\" %s\n",
+ cfg->menu_number, cfg->menu_line, cfg->label,
+ vartable[cfg->nameindex].name );
break;
case token_dep_tristate:
cfg->menu_line = menu_line++;
- printf( "\tdep_tristate $w.config.f %d %d \"%s\" %s %s\n",
+ printf( "\tdep_tristate $w.config.f %d %d \"%s\" %s\n",
cfg->menu_number, cfg->menu_line, cfg->label,
- cfg->optionname, cfg->depend );
+ vartable[cfg->nameindex].name );
break;
case token_hex:
cfg->menu_line = menu_line++;
printf( "\thex $w.config.f %d %d \"%s\" %s\n",
cfg->menu_number, cfg->menu_line, cfg->label,
- cfg->optionname );
+ vartable[cfg->nameindex].name );
break;
case token_int:
cfg->menu_line = menu_line++;
printf( "\tint $w.config.f %d %d \"%s\" %s\n",
cfg->menu_number, cfg->menu_line, cfg->label,
- cfg->optionname );
+ vartable[cfg->nameindex].name );
break;
case token_string:
cfg->menu_line = menu_line++;
printf( "\tistring $w.config.f %d %d \"%s\" %s\n",
cfg->menu_number, cfg->menu_line, cfg->label,
- cfg->optionname );
+ vartable[cfg->nameindex].name );
break;
case token_tristate:
cfg->menu_line = menu_line++;
printf( "\ttristate $w.config.f %d %d \"%s\" %s\n",
cfg->menu_number, cfg->menu_line, cfg->label,
- cfg->optionname );
+ vartable[cfg->nameindex].name );
break;
}
}
@@ -875,36 +1269,21 @@
}
/*
- * The top level menu also needs an update function. When we exit a
+ * The top level menu also needs an update function. When we update a
* submenu, we may need to disable one or more of the submenus on
* the top level menu, and this procedure will ensure that things are
* correct.
*/
- clear_globalflags( scfg );
- printf( "proc update_mainmenu {w} {\n" );
- for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
+ clear_globalflags();
+ printf( "proc update_mainmenu {} {\n" );
+ for ( imenu = 1; imenu <= tot_menu_num; imenu++ )
{
- if ( cfg->token == token_mainmenu_option && cfg->cond != NULL )
- generate_if( cfg, cfg->cond, cfg->menu_number, cfg->menu_line );
+ if ( menu_first[imenu]->cond != NULL && menu_first[imenu]->menu_number == 0 )
+ generate_if( menu_first[imenu], menu_first[imenu]->cond, imenu, -1 );
}
printf( "}\n\n\n" );
-#if 0
- /*
- * Generate code to set the variables that are "defined".
- */
- for ( cfg = config; cfg != NULL; cfg = cfg->next )
- {
- if ( cfg->token == token_define_bool )
- {
- if ( cfg->cond != NULL )
- generate_if( cfg, cfg->cond, menu_num, cfg->menu_line );
- else
- printf( "\twrite_define %s %s\n", cfg->optionname, cfg->value );
- }
- }
- #endif
-
+ clear_globalflags();
/*
* Generate code to load the default settings into the variables.
* The script in tail.tk will attempt to load .config,
@@ -919,27 +1298,50 @@
case token_bool:
case token_choice_item:
+ case token_dep_bool:
case token_dep_tristate:
case token_tristate:
- printf( "set %s 0\n", cfg->optionname );
+ if ( ! vartable[cfg->nameindex].global_written )
+ {
+ printf( "set %s 0\n", vartable[cfg->nameindex].name );
+ vartable[cfg->nameindex].global_written = 1;
+ }
break;
case token_choice_header:
- printf( "set %s \"(not set)\"\n", cfg->optionname );
+ printf( "set tmpvar_%d \"(not set)\"\n", -(cfg->nameindex) );
break;
case token_hex:
case token_int:
- printf( "set %s %s\n", cfg->optionname, cfg->value ? cfg->value : "0");
+ if ( ! vartable[cfg->nameindex].global_written )
+ {
+ printf( "set %s %s\n", vartable[cfg->nameindex].name, cfg->value ? cfg->value : "0" );
+ vartable[cfg->nameindex].global_written = 1;
+ }
break;
case token_string:
- printf( "set %s \"%s\"\n", cfg->optionname, cfg->value ? cfg->value : "");
+ if ( ! vartable[cfg->nameindex].global_written )
+ {
+ printf( "set %s \"%s\"\n", vartable[cfg->nameindex].name, cfg->value );
+ vartable[cfg->nameindex].global_written = 1;
+ }
break;
}
}
/*
+ * Define to an empty value all other variables (which are never defined)
+ */
+ for ( i = 1; i <= max_varnum; i++ )
+ {
+ if ( ! vartable[i].global_written
+ && strncmp( vartable[i].name, "CONSTANT_", 9 ) )
+ printf( "set %s 4\n", vartable[i].name );
+ }
+
+ /*
* Generate a function to write all of the variables to a file.
*/
printf( "proc writeconfig {file1 file2} {\n" );
@@ -956,7 +1358,7 @@
printf( "\tputs $autocfg \" */\"\n" );
printf( "\tputs $autocfg \"#define AUTOCONF_INCLUDED\"\n" );
- clear_globalflags( scfg );
+ clear_globalflags();
for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
{
switch ( cfg->token )
@@ -968,6 +1370,11 @@
case token_choice_header:
case token_comment:
case token_define_bool:
+ case token_define_hex:
+ case token_define_int:
+ case token_define_string:
+ case token_define_tristate:
+ case token_dep_bool:
case token_dep_tristate:
case token_hex:
case token_int:
@@ -996,7 +1403,8 @@
cfg1 = cfg1->next )
{
printf( "\tglobal %s; set %s 0\n",
- cfg1->optionname, cfg1->optionname );
+ vartable[cfg1->nameindex].name,
+ vartable[cfg1->nameindex].name );
}
}
}
@@ -1007,41 +1415,22 @@
{
if ( cfg->token == token_choice_header )
{
- printf( "\tglobal %s\n", cfg->optionname );
+ printf( "\tglobal tmpvar_%d\n", -(cfg->nameindex) );
+ printf("\tset tmpvar_%d \"%s\"\n", -(cfg->nameindex), cfg->value);
for ( cfg1 = cfg->next;
cfg1 != NULL && cfg1->token == token_choice_item;
cfg1 = cfg1->next )
{
- printf( "\tglobal %s\n", cfg1->optionname );
- printf( "\tif { $%s == 1 } then { set %s \"%s\" }\n",
- cfg1->optionname, cfg->optionname, cfg1->label );
+ printf( "\tglobal %s\n", vartable[cfg1->nameindex].name );
+ printf( "\tif { $%s == 1 } then { set tmpvar_%d \"%s\" }\n",
+ vartable[cfg1->nameindex].name,
+ -(cfg->nameindex), cfg1->label );
}
}
}
printf( "}\n\n\n" );
- printf( "proc update_define { } {\n" );
- clear_globalflags( scfg );
- for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
- {
- if ( cfg->token == token_define_bool )
- {
- cfg->global_written = 1;
- printf( "\tglobal %s\n", cfg->optionname );
- }
- }
-
- for ( cfg = scfg; cfg != NULL; cfg = cfg->next )
- {
- if( cfg->token == token_define_bool )
- {
- if ( cfg->cond == NULL )
- printf( "\tset %s %s\n", cfg->optionname, cfg->value );
- else
- generate_if( cfg, cfg->cond, -1, 0 );
- }
- }
- printf( "}\n\n\n" );
+ generate_update_var( scfg, 0 );
/*
* That's it. We are done. The output of this file will have header.tk
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen (who was at: slshen@lbl.gov)