|
|
@ -83,6 +83,7 @@
|
|
|
|
/menuconfig.newargs menuconfig.args length 1 sub array def
|
|
|
|
/menuconfig.newargs menuconfig.args length 1 sub array def
|
|
|
|
/menuconfig.newentries menuconfig.entries length 1 sub array def
|
|
|
|
/menuconfig.newentries menuconfig.entries length 1 sub array def
|
|
|
|
/menuconfig.newhumans menuconfig.humans length 1 sub array def
|
|
|
|
/menuconfig.newhumans menuconfig.humans length 1 sub array def
|
|
|
|
|
|
|
|
/menuconfig.newindices menuconfig.indices length 1 sub array def
|
|
|
|
menuconfig.idx 0 ne {
|
|
|
|
menuconfig.idx 0 ne {
|
|
|
|
0 1 menuconfig.idx 1 sub {
|
|
|
|
0 1 menuconfig.idx 1 sub {
|
|
|
|
menuconfig.args over get
|
|
|
|
menuconfig.args over get
|
|
|
@ -90,7 +91,9 @@
|
|
|
|
menuconfig.entries over get
|
|
|
|
menuconfig.entries over get
|
|
|
|
menuconfig.newentries 2 index rot put
|
|
|
|
menuconfig.newentries 2 index rot put
|
|
|
|
menuconfig.humans over get
|
|
|
|
menuconfig.humans over get
|
|
|
|
menuconfig.newhumans 3 1 roll put
|
|
|
|
menuconfig.newhumans 2 index rot put
|
|
|
|
|
|
|
|
menuconfig.indices over get
|
|
|
|
|
|
|
|
menuconfig.newindices 3 1 roll put
|
|
|
|
} for
|
|
|
|
} for
|
|
|
|
} if
|
|
|
|
} if
|
|
|
|
|
|
|
|
|
|
|
@ -102,13 +105,16 @@
|
|
|
|
menuconfig.entries over 1 add get
|
|
|
|
menuconfig.entries over 1 add get
|
|
|
|
menuconfig.newentries 2 index rot put
|
|
|
|
menuconfig.newentries 2 index rot put
|
|
|
|
menuconfig.humans over 1 add get
|
|
|
|
menuconfig.humans over 1 add get
|
|
|
|
menuconfig.newhumans 3 1 roll put
|
|
|
|
menuconfig.newhumans 2 index rot put
|
|
|
|
|
|
|
|
menuconfig.indices over 1 add get
|
|
|
|
|
|
|
|
menuconfig.newindices 3 1 roll put
|
|
|
|
} for
|
|
|
|
} for
|
|
|
|
} if
|
|
|
|
} if
|
|
|
|
|
|
|
|
|
|
|
|
/menuconfig.args menuconfig.newargs def
|
|
|
|
/menuconfig.args menuconfig.newargs def
|
|
|
|
/menuconfig.entries menuconfig.newentries def
|
|
|
|
/menuconfig.entries menuconfig.newentries def
|
|
|
|
/menuconfig.humans menuconfig.newhumans def
|
|
|
|
/menuconfig.humans menuconfig.newhumans def
|
|
|
|
|
|
|
|
/menuconfig.indices menuconfig.newindices def
|
|
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
return
|
|
|
|
} if
|
|
|
|
} if
|
|
|
@ -166,14 +172,16 @@
|
|
|
|
free
|
|
|
|
free
|
|
|
|
} def
|
|
|
|
} def
|
|
|
|
|
|
|
|
|
|
|
|
% ( menu_entries_array menu_args_array -- menu_humans_array menu_entries_array menu_args_array )
|
|
|
|
% ( menu_entries_array menu_args_array -- menu_indices_array menu_humans_array menu_entries_array menu_args_array )
|
|
|
|
% The returned menu_args_array (kernel parameters), menu_entries_array
|
|
|
|
% The returned menu_args_array (kernel parameters), menu_entries_array
|
|
|
|
% (identifiers), and menu_humans_array (human-readable names) will have any
|
|
|
|
% (identifiers), menu_humans_array (human-readable names), and
|
|
|
|
% hidden entries removed.
|
|
|
|
% menu_indices_array (original indices) will have any hidden entries
|
|
|
|
|
|
|
|
% removed.
|
|
|
|
/menuconfig.init {
|
|
|
|
/menuconfig.init {
|
|
|
|
dup length array /menuconfig.args exch def
|
|
|
|
dup length array /menuconfig.args exch def
|
|
|
|
over length array /menuconfig.entries exch def
|
|
|
|
over length array /menuconfig.entries exch def
|
|
|
|
over length array /menuconfig.humans exch def
|
|
|
|
over length array /menuconfig.humans exch def
|
|
|
|
|
|
|
|
over length array /menuconfig.indices exch def
|
|
|
|
|
|
|
|
|
|
|
|
% copy input arrays; initialise menuconfig.humans
|
|
|
|
% copy input arrays; initialise menuconfig.humans
|
|
|
|
/menuconfig.idx 0 def
|
|
|
|
/menuconfig.idx 0 def
|
|
|
@ -185,6 +193,7 @@
|
|
|
|
{
|
|
|
|
{
|
|
|
|
dup menuconfig.entries menuconfig.idx rot put
|
|
|
|
dup menuconfig.entries menuconfig.idx rot put
|
|
|
|
menuconfig.humans menuconfig.idx rot put
|
|
|
|
menuconfig.humans menuconfig.idx rot put
|
|
|
|
|
|
|
|
menuconfig.indices menuconfig.idx dup put
|
|
|
|
/menuconfig.idx inc
|
|
|
|
/menuconfig.idx inc
|
|
|
|
} forall
|
|
|
|
} forall
|
|
|
|
|
|
|
|
|
|
|
@ -197,5 +206,5 @@
|
|
|
|
|
|
|
|
|
|
|
|
.undef menuconfig.parse
|
|
|
|
.undef menuconfig.parse
|
|
|
|
|
|
|
|
|
|
|
|
menuconfig.humans menuconfig.entries menuconfig.args
|
|
|
|
menuconfig.indices menuconfig.humans menuconfig.entries menuconfig.args
|
|
|
|
} def
|
|
|
|
} def
|
|
|
|