Изменено определение текущей label пункта

При получении данных от isolinux копирование в menu.labels для
дальнейшего сопосавления с menu label.
Определение соответствий в dia_modes на основании menu.labels
master
Mike Khiretskiy 9 years ago
parent 22d6a3dc8a
commit 7c1221e533

@ -523,6 +523,7 @@
/menu.texts exch def
/menu.humans exch def
/menu.indices exch def
/menu.labels exch def
timeout.hidden {
window.splash

@ -100,7 +100,7 @@
/modes.filter {
modes.rawlabels .undef eq { pop return } if
menu.texts exch get
menu.labels exch get
dup length 3 add string /modes.tmp.label exch def
" %s " modes.tmp.label sprintf

@ -67,7 +67,7 @@
/menuconfig.idx 0 def
menuconfig.humans {
menuconfig.human eq {
menuconfig.entries menuconfig.idx menuconfig.curlabel put
menuconfig.labels menuconfig.idx menuconfig.curlabel put
return
} if
/menuconfig.idx inc
@ -80,13 +80,14 @@
menuconfig.curlabel .undef eq { return } if
/menuconfig.idx 0 def
menuconfig.entries {
menuconfig.labels {
menuconfig.curlabel eq {
% Copy everything up to here into new arrays.
/menuconfig.newargs menuconfig.args length 1 sub array def
/menuconfig.newentries menuconfig.entries length 1 sub array def
/menuconfig.newhumans menuconfig.humans length 1 sub array def
/menuconfig.newindices menuconfig.indices length 1 sub array def
/menuconfig.newlabels menuconfig.labels length 1 sub array def
menuconfig.idx 0 ne {
0 1 menuconfig.idx 1 sub {
menuconfig.args over get
@ -95,20 +96,24 @@
menuconfig.newentries 2 index rot put
menuconfig.humans over get
menuconfig.newhumans 2 index rot put
menuconfig.labels over get
menuconfig.newlabels 2 index rot put
menuconfig.indices over get
menuconfig.newindices 3 1 roll put
} for
} if
menuconfig.idx menuconfig.entries length 1 sub lt {
menuconfig.idx menuconfig.labels length 1 sub lt {
% Slide everything else down one place.
menuconfig.idx 1 menuconfig.entries length 2 sub {
menuconfig.idx 1 menuconfig.labels length 2 sub {
menuconfig.args over 1 add get
menuconfig.newargs 2 index rot put
menuconfig.entries over 1 add get
menuconfig.newentries 2 index rot put
menuconfig.humans over 1 add get
menuconfig.newhumans 2 index rot put
menuconfig.labels over 1 add get
menuconfig.newlabels 2 index rot put
menuconfig.indices over 1 add get
menuconfig.newindices 3 1 roll put
} for
@ -118,6 +123,7 @@
/menuconfig.entries menuconfig.newentries def
/menuconfig.humans menuconfig.newhumans def
/menuconfig.indices menuconfig.newindices def
/menuconfig.labels menuconfig.newlabels def
return
} if
@ -182,7 +188,8 @@
% removed.
/menuconfig.init {
dup length array /menuconfig.args exch def
over length array /menuconfig.entries exch def
dup length array /menuconfig.entries exch def
over length array /menuconfig.labels exch def
over length array /menuconfig.humans exch def
over length array /menuconfig.indices exch def
@ -195,6 +202,7 @@
/menuconfig.idx 0 def
{
dup menuconfig.entries menuconfig.idx rot put
dup menuconfig.labels menuconfig.idx rot put
menuconfig.humans menuconfig.idx rot put
menuconfig.indices menuconfig.idx dup put
/menuconfig.idx inc
@ -209,5 +217,5 @@
.undef menuconfig.parse
menuconfig.indices menuconfig.humans menuconfig.entries menuconfig.args
menuconfig.labels menuconfig.indices menuconfig.humans menuconfig.entries menuconfig.args
} def

Loading…
Cancel
Save