% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % % Main part. % % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % max command line length /cmdlinelength 512 def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % % Install source is 64bit? % % ( ) ==> ( true|false ) % /64bit_source { % 64 bit dir exists and is != 32 bit dir 64bit_boot_dir 32bit_boot_dir ne 64bit_boot_dir .undef ne and } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % % Are we a dvd? % % ( ) ==> ( true|false ) % /is_dvd { % check only once is_dvd.result .undef ne { is_dvd.result return } if /is_dvd.result mediatype m_cdrom eq { 0x10 readsector dup 0x50 add getdword exch free 9 shr % iso size in MB 720 gt % assume dvd if > 720 MB } { false } ifelse def is_dvd.result return } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % % Install source is 32 & 64bit? % % ( ) ==> ( true|false ) % /32+64bit_source { 32bit_boot_dir .undef ne % uncomment next line to automatically warn about 32bit software on 64bit machines, too % 64bit_boot_dir .undef ne and } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % % Enough memory? % % ( ) ==> ( true|false ) % /enough_mem { biosmem 4 20 shl lt biosmem mem.check 20 shl ge or } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % % Check if there are boot directories for 32 & 64bit. % % Assumes 32bit to be in *i386* and 64bit in *x86_64*. % % ( ) ==> ( ) % /check_arch_boot_dir { getcwd dup .undef ne { /64bit.tmp 256 string def dup "i386" strstr 0 ne over "x86_64" strstr 0 ne or { dup "i386" strstr { /32bit_boot_dir exch def /64bit_boot_dir 32bit_boot_dir "i386" "x86_64" strreplace } { /64bit_boot_dir exch def /32bit_boot_dir 64bit_boot_dir "x86_64" "i386" strreplace } ifelse dup "%s/isolinux.cfg" 64bit.tmp sprintf 64bit.tmp filesize .undef ne { def } { free pop } ifelse } { /32bit_boot_dir over def /64bit_boot_dir exch def } ifelse 64bit.tmp free % font.normal setfont % 0 400 moveto 32bit_boot_dir print % 0 420 moveto 64bit_boot_dir print dtrace } { pop } ifelse } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % % input event handling % % ( key ) ==> ( input_buffer menu_entry action ) % % key % bit 0-7 ascii % bit 8-15 scan code % bit 16-32 status bits (ctrl, shift...) % % action % 0: ok, stay in input loop % 1: switch to text mode % >=2: start linux % /KeyEvent { % timeout dup 0 eq { boot.ed.list buildcmdline 2 return } if debug 4 ge { % print keycode somewhere -1 settransparentcolor white setcolor 500 0 moveto dup print " " print } if dup 0xff00 and 16 shl over 0xff and dup 0xe0 eq { pop 0 } if add /key exch def 16 shr 0xffff and /keystat exch def key 24 shr 0xff and dup 0xf0 ge exch 0xf4 le and { key serial.input return } if key config.keymap { mapkey } if dup 0xffffff and dup { exch } if pop debug 4 ge { % print mapped key somewhere -1 settransparentcolor white setcolor 500 20 moveto dup print " " print } if ptheme { % reverse direction /p.xmas.dx p.xmas.dx neg def key keyF9 eq key keyF7 eq or { % call super penguin p.call.super } { key keyF1 ge key keyF10 le and { % read something /p.read.timer rand 0x31 and neg -30 add def } if } ifelse } if % some special keys debug.input % put key through normal input queue window.input pop window.action actExit eq { /window.action actNothing def "" -1 1 return } if window.action actCloseInfo eq { /window.action actNothing def % cd change dialog info.type 5 eq info.type 6 eq or { % 'chdir' triggers fs metadata re-read getcwd dup .undef ne { chdir } { pop } ifelse } if "" -1 3 return } if window.action actPassword eq { /window.action actNothing def password.dialog { password.dialog .ed.buffer.list get 0 get } { "" } ifelse -1 3 return } if window.action actStart eq { /window.action actNothing def /load_error false def syslinux { menu.texts menu.entry 0 max menu.texts length 1 sub min get dup "mem.min[%s]" mem.min sprintf "mem.msg[%s]" mem.msg sprintf enough_mem not { nomem_popup "" -1 0 return } if } if % some tricks to make it possible to review the complete command line debug 3 ge xxx.cmdline .undef eq and { /window.action actNothing def boot.ed.list buildcmdline /xxx.menu exch def /xxx.cmdline exch def /dia window.dialog def dia .title "Kernel command line" put dia .text "" put % Must all be of same size! dia .ed.list 1 array put dia .ed.buffer.list [ xxx.cmdline ] put dia .ed.text.list [ "All options\n" ] put dia .ed.focus 0 put dia .ed.width 600 put dia .ed.font font.normal put dia .buttons [ button.ok button.default actStart button.setaction ] put dia window.init dia window.show "" -1 0 } { sound.done xxx.cmdline .undef ne { xxx.cmdline xxx.menu /xxx.cmdline .undef def } { boot.ed.list buildcmdline } ifelse 2 return } ifelse } if window.action actRedraw eq { /window.action actNothing def main.redraw } if window.action actRedrawPanel eq { /window.action actNothing def panel.show } if window.action actInstallOK eq { /window.action actNothing def install.ok } if window.action actInstallCancel eq { /window.action actNothing def install.cancel } if "" -1 0 } def /bc.cmd cmdlinelength string def /mem.min 128 string def /mem.msg 256 string def % ( edit_object_list ) ==> ( cmdline menu_entry ) % /buildcmdline { menu.entry 0 lt menu.entry menu.texts length ge or { pop "" -1 return } if [ over { dup .inp_show get { build1cmdline strdup } { pop } ifelse } forall % empty? -> pass at least the first edit object dup [ eq { over 0 get build1cmdline strdup } if ] dup boot.splitstr join bc.cmd over strcpy pop free dup { free } forall free pop bc.cmd menu.entry } def % ( edit_object ) ==> ( cmdline ) % % grub: % just return % % syslinux & lilo: % add kernel name at start of command line % /build1cmdline { syslinux { % set new working directory xmenu.bits .xm_current get 1 eq { 64bit_boot_dir } { 32bit_boot_dir } ifelse dup .undef ne { dup getcwd ne { chdir } { pop } ifelse } { pop } ifelse } if % getcwd 0 300 moveto show trace % lilo & syslinux: prepend kernel/label name grub { bc.cmd 0 0 put } { menu.texts menu.entry get "%s " bc.cmd sprintf } ifelse syslinux { /splash_file 32 string def video.modes.list xmenu.video .xm_current get get dup .vm_mode get 0 ge { dup .vm_height get exch .vm_width get ",%04d%04d.spl" splash_file sprintf } { pop } ifelse % check whether splash file exists splash_file 1 add filesize .undef eq { splash_file 0 0 put % empty string } if } if xmenu.kernelopts { kernelopts.options xmenu.kernelopts .xm_current get get dup "" ne { "%s " bc.cmd dup length add sprintf } { pop } ifelse } if /cmdline.hidden over dup length .inp_hidden ge { .inp_hidden get } { pop .undef } ifelse def cmdline.hidden { cmdline.hidden "" ne { splash_file { /bc.tmp cmdline.hidden length splash_file length add string def cmdline.hidden "initrd=" bootopt.find dup .undef ne { skipnonspaces dup dup 0 get over 0 0 put splash_file cmdline.hidden "%s%s" bc.tmp sprintf 0 exch put "%s" bc.tmp dup length add sprintf } { pop bc.tmp cmdline.hidden strcpy pop } ifelse bc.tmp "%s " bc.cmd dup length add sprintf bc.tmp free /bc.tmp .undef def } { cmdline.hidden "%s " bc.cmd dup length add sprintf } ifelse } if } if /splash_file xfree syslinux { video.modes.list xmenu.video .xm_current get get .vm_mode get dup 0 ge { 0x200 add "vga=0x%x " bc.cmd dup length add sprintf } { -1 eq { "textmode=1 " bc.cmd dup length add sprintf } if } ifelse config.lang { config.lang "en_US" ne { config.lang "lang=%s " bc.cmd dup length add sprintf } if } if v_impaired 1 ge { "braille=1 " bc.cmd dup length add sprintf } if v_impaired 2 ge { "linemode=1 " bc.cmd dup length add sprintf } if } if xmenu.dud { xmenu.dud .xm_current get .dud_url eq { input.edit.dud_url 0 get dup "" ne { "dud=%s " bc.cmd dup length add sprintf } { pop } ifelse } { xmenu.dud .xm_current get .dud_file eq { input.edit.dud_file 0 get dup "" ne { "driverupdate=%s " bc.cmd dup length add sprintf } { pop } ifelse } { dud.options xmenu.dud .xm_current get get dup "" ne { "%s " bc.cmd dup length add sprintf } { pop } ifelse } ifelse } ifelse } if xmenu.profile { profile.options xmenu.profile .xm_current get get dup "" ne { "%s " bc.cmd dup length add sprintf } { pop } ifelse } if xmenu.install { config.noinstallopt menu.texts menu.entry get iselement not { install.option "" ne { install.option "%s " bc.cmd dup length add sprintf } if } if } if % add user-supplied options bc.cmd exch .inp_buf get strcat " " strcat pop % remove all but last 'vga' & 'initrd' options [ "vga" "initrd" ] dup { { bc.cmd over bootopt.find2 .undef eq { pop exit } if bc.cmd over bootopt.remove free } loop } forall free bc.cmd "driverupdate" bootopt.find dup .undef ne { % exclude 'driverupdate=0 and driverupdate=1' "driverupdate=" length get dup '0' ne exch '1' ne and { /bc.tmp bc.cmd "driverupdate" bootopt.remove def bc.tmp .undef ne { /bc.tmp bc.tmp "driverupdate=" length add ',' split bc.tmp free def /bc.tmp2 cmdlinelength string def bc.tmp2 "initrd=" strcpy pop bc.tmp length 0 gt { % add '+' to first arg unless it starts with '+' or '-' bc.tmp 0 get 0 get dup '-' eq { % remove '-' bc.tmp 0 get dup 1 add strdup exch free bc.tmp exch 0 exch put pop '+' } if '+' ne { % add '+' bc.tmp 0 get length 1 add string "+" strcat bc.tmp 0 get strcat bc.tmp 0 get free bc.tmp exch 0 exch put } if bc.tmp length 1 sub -1 0 { bc.tmp exch get bc.tmp2 exch strcat "," strcat pop } for } if bc.tmp dup { free } forall free % last 'initrd' option /bc.tmp .undef def { bc.cmd "initrd" bootopt.remove dup .undef ne { bc.tmp free /bc.tmp exch def } { pop exit } ifelse } loop % re-add new 'initrd' option bc.tmp { bc.tmp2 bc.tmp "initrd=" length add strcat pop bc.tmp free bc.cmd bc.tmp2 strcat " " strcat pop } if } if } if } { pop } ifelse syslinux { % find out initrd sizes for kernel loading progress bar bc.cmd "initrd" bootopt.find dup .undef ne { "initrd=" length add dup dup skipnonspaces sub neg string exch strcpy % it's a ',' separated list dup ',' split exch free dup { dup % skip leading '+' or '-' dup 0 get dup '+' eq exch '-' eq or { 1 add } if filesize dup .undef ne { sectorsize 1 sub add sectorsize div /progress_extra exch progress_extra add def } { pop } ifelse free } forall free } { pop } ifelse } if % remove final space bc.cmd dropspaces bc.cmd } def /iso.needscheck { false /i_tmp 0x10 readsector def i_tmp { i_tmp dup length 1 sub 0 put /i_tmp2 i_tmp 0x373 add cvs def i_tmp2 "check=1" strstr { pop true } if i_tmp free } if } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( menu_entries_array cmdline_args_array defaultentry ) == > ( ) /MenuInit { bsplash.done colorbits 8 le { 0 setcolor 0 0 moveto screen.size fillrect loadpalette } if init /menu.entry -1 def /menu.dentry exch def /menu.args exch def /menu.texts exch def /mi_name "mediacheck" "" gfxconfig.set.str mi_name { /remove.mediachk false def sectorsize 0x800 eq { /remove.mediachk iso.needscheck not def } if } { /remove.mediachk false def } ifelse remove.mediachk menu.dentry mi_name ne and { /mi_tmp 0 def menu.texts { mi_name eq { exit } if /mi_tmp inc } forall mi_tmp menu.texts length lt { /mi_tmp2 0 def /menu.texts [ menu.texts { mi_tmp2 mi_tmp eq { pop } if /mi_tmp2 inc } forall ] def /mi_tmp2 0 def /menu.args [ menu.args { mi_tmp2 mi_tmp eq { pop } if /mi_tmp2 inc } forall ] def } if } if window.main dup window.init window.show config.beep { 3000 50000 beep } if config.talk { load_talk_dialog menu.texts menu.idx get menuitemmap speak } if syslinux { 32+64bit_source not { 64bit { 64bit_source not { notimeout 32bit_popup } if } { 64bit_source { notimeout 64bit_popup } if } ifelse } if } if } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( text errorcode ) ==> ( ) % errorcode: % 0 normal info % 1 fatal error % 2 missing file % 3 disk change % 4 disk change failed % 5 ask for cd change % 6 change cd back to original % /info.tmpmsg 256 string def /InfoBoxInit { /info.type exch def /info.msg exch def window.dialog info.type 1 eq { dup .title.bg window.title.error.bg put dup .title txt_error_title put dup .buttons [ button.reboot button.default actCloseInfo button.setaction ] put } { dup .title txt_info_title put dup .buttons [ button.ok button.default actCloseInfo button.setaction % button.cancel button.notdefault actCloseInfo button.setaction ] put } ifelse syslinux info.type 2 eq and { dup .title "I/O Error" put info.msg "File not found: %s" info.tmpmsg sprintf /info.msg info.tmpmsg def /load_error true def } if syslinux info.type 3 eq and { dup .title txt_change_disk_title put 0 getinfo 1 add txt_insert_disk info.tmpmsg sprintf /info.msg info.tmpmsg def } if syslinux info.type 4 eq and { dup .title txt_change_disk_title put 1 getinfo 15 not and { 0 getinfo 1 add txt_insert_disk3 info.tmpmsg sprintf } { 0 getinfo 1 add 1 getinfo 1 add txt_insert_disk2 info.tmpmsg sprintf } ifelse /info.msg info.tmpmsg def } if syslinux info.type 5 eq and { dup .title "Driver Update" put info.msg "Insert driver update CD-ROM for\n\"%s\"." info.tmpmsg sprintf /info.msg info.tmpmsg def } if syslinux info.type 6 eq and { dup .title "Driver Update" put /info.msg "Put the Mandriva Linux CD-ROM back into the drive." def } if dup .text info.msg put serial.line.status { serial.infobox .undef eq { /serial.infobox .xm_size array def serial.infobox .xm_current 0 put } if serial.infobox .xm_title 2 index .title get put serial.infobox .xm_text info.msg put serial.infobox .xm_list [ info.type 1 eq { "reboot" } { "ok" } ifelse ] put serial.infobox.setup } if dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % progress bar code % Show percentage of progress bar. % % ( percentage ) ==> ( ) % /progress.percent { 0 max 100 min % so people don't ask silly questions... "100%" strsize over neg progress.text.x add progress.text.y moveto window.current .color.bg get setcolor fillrect "%3u%%" 8 string dup 4 1 roll sprintf dup strsize pop neg progress.text.x add progress.text.y moveto window.current .color.fg get setcolor serial.line.status { "\x08\x08\x08\x08" serial.show dup serial.show } if dup show free } def % Show n-th progress bar symbol. % % ( n ) ==> ( ) % /progress.sym.show { /progress.sym.current exch def progress.bar.x progress.bar.y moveto progress.sym.width progress.sym.current 1 sub mul 1 add 1 rmoveto progress.sym.width 2 sub progress.bar.height 2 sub progress.bar.color setcolor fillrect } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( kernel_name ) ==> ( ) /ProgressInit { /progress.kname exch def boot.ed.list { edit.hidecursor } forall /dia window.dialog def dia .width.min 350 put dia .position 10 put dia .title txt_load_kernel_title put dia .text progress.kname "memtest" eq { txt_load_memtest } { txt_load_kernel } ifelse put dia window.init dia window.show % now add progress bar dia .x get dia .y get moveto dia .text.x get dia .text.y get 28 add rmoveto /progress.bar.height 19 def /progress.bar.width dia .width get 75 sub def /progress.sym.width 10 def /progress.bar.width progress.bar.width progress.sym.width div /progress.syms over def progress.sym.width mul def currentpoint over 1 sub over 2 sub moveto black white progress.bar.width 2 add progress.bar.height 4 add drawborder /progress.bar.y exch def /progress.bar.x exch def /progress.text.x progress.bar.x progress.bar.width 55 add add def /progress.text.y progress.bar.y progress.bar.height fontheight sub 2 div add def /progress.sym.current 0 def 0 progress.percent serial.line.status { "\n" serial.show dia .text get serial.show " 0%" serial.show } if } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( ) ==> ( ) /ProgressDone { window.done load_error { /load_error false def boot.ed.list boot.window .ed.focus get get edit.showcursor } if serial.line.status { "\n\n" serial.show } if } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( max current ) ==> ( ) % % Note: max is just kernel size (in sectors). % /ProgressUpdate { exch progress_extra add exch over over 100 mul exch 1 max div progress.percent progress.syms mul progress.syms 2 div add exch 1 max div 0 max progress.syms min dup progress.sym.current gt { progress.sym.current 1 add over 1 exch { progress.sym.show } for } if pop } def % initrd size (in sectors) /progress_extra 0 def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( time ) ==> ( ) % /Timer { pop } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( label correct_password ) ==> ( ) % /PasswordInit { /password.key exch def pop /dia window.dialog def /password.dialog dia def dia .title txt_password_title put dia .text "" put % Must all be of same size! dia .ed.list 1 array put dia .ed.buffer.list [ 31 string ] put dia .ed.text.list [ txt_password ] put dia .ed.focus 0 put dia .ed.width 200 put dia .ed.font font.normal pwmode put dia .buttons [ button.ok button.default actPassword button.setaction ] put dia window.init dia window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( password ) ==> ( error ) % % error: % true password ok % false wrong password % % ****** FIXME: test result seems to be unused % /PasswordDone { password.key eq } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( text ) == > ( new_text ) /menuitemmap { translate config._2space { /mmm.tmp xfree strdup /mmm.tmp over def dup length 0 gt { 0 1 2 index length 1 sub { over over get '_' eq { over exch ' ' put } { pop } ifelse } for } if } if dup "memtest" eq over "memtest86" eq or { pop txt_memtest return } if dup "firmware" eq { pop txt_firmware return } if syslinux { dup "live" eq { pop txt_linux return } if dup "kde" eq { pop "LiveCD - KDE" return } if dup "gnome" eq { pop "LiveCD - GNOME" return } if dup "linux" eq { pop txt_install return } if dup "failsafe" eq { pop txt_safe_install return } if dup "noacpi" eq { pop txt_noacpi_install return } if dup "noapic" eq { pop txt_noapic_install return } if dup "nolapic" eq { pop txt_nolapic_install return } if dup "apic" eq { pop txt_apic return } if dup "manual" eq { pop txt_manual_install return } if dup "repair" eq { pop txt_repain_system return } if dup "rescue" eq { pop txt_rescue return } if dup "hwcheck" eq { pop "Hardware Check" return } if dup "harddisk" eq { pop txt_boot_harddisk return } if dup "mediachk" eq { pop txt_mediacheck return } if dup "mediacheck" eq { pop txt_mediacheck return } if } { dup "linux" eq { pop "Linux" return } if dup "failsafe" eq { pop txt_safe_linux return } if dup "windows" eq { pop "Windows" return } if } ifelse } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( color0 color1 width height ) ==> ( ) /drawborder { currentpoint /db.y0 exch def /db.x0 exch def /db.y1 exch 1 sub db.y0 add def /db.x1 exch 1 sub db.x0 add def /db.col1 exch def /db.col0 exch def db.x0 db.y1 moveto db.col0 setcolor db.x0 db.y0 lineto db.x1 db.y0 lineto db.col1 setcolor db.x1 db.y1 lineto db.x0 db.y1 lineto } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( color0 color1 color2 width height ) ==> ( ) % draw frame with shadow % color0: upper left, color1: lower right, color2: shadow /drawborder3 { currentpoint /db.y0 exch def /db.x0 exch def /db.y1 exch 1 sub db.y0 add def /db.x1 exch 1 sub db.x0 add def /db.col2 exch def /db.col1 exch def /db.col0 exch def db.x0 db.y1 moveto db.col0 setcolor db.x0 db.y0 lineto db.x1 db.y0 lineto db.col1 setcolor db.x1 db.y1 lineto db.x0 db.y1 lineto db.col2 -1 ne { db.col2 setcolor 1 1 rmoveto db.x1 1 add db.y1 1 add lineto db.x1 1 add db.y0 1 add lineto } if } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % ( color0 color1 width height ) ==> ( ) /drawborder4 { 3 index 4 1 roll rot dup 3 index 3 index currentpoint 6 2 roll 1 1 rmoveto drawborder moveto drawborder } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % center text % ( text width height ) ==> ( ) /centertext { 3 -1 roll strsize 4 2 roll 4 1 roll exch 4 1 roll sub 2 div neg 3 1 roll sub 2 div neg } def % ( img ) => ( width heigh ) /imgsize { dup .undef eq { pop 0 0 } { getdword dup 0xffff and exch 16 shr } ifelse } def % ( pic pic_a -- ) /showlogo { /tmp.sc over imgsize savescreen def currentpoint 4 2 roll 0 0 moveto tmp.sc blend moveto tmp.sc restorescreen tmp.sc free } def % ( file_name ) ==> ( image ) /readimage { findfile dup .undef ne { dup setimage 0 0 image.size unpackimage exch free } if } def /init { 0 0 moveto currentpoint clip.size image ptheme { ptheme.init } if % set default language "lang" findfile dup { /tmp over length 1 add 2 max string def tmp exch { dup ' ' eq over '\n' eq or { pop pop exit } if over exch 0 exch put 1 add } forall tmp dup setlang pop getkeymapfromlocale setkeymap } { pop "en_US" dup setlang pop getkeymapfromlocale setkeymap } ifelse keymap.default "" ne { keymap.default setkeymap } if font.large setfont /menu.text.xofs 10 def /menu.text.yofs 2 def /menu.item.height fontheight dup ptheme { 3 } { 2 } ifelse div add def /menu.bar.height fontheight menu.text.yofs dup add add def font.normal setfont /menu.bar.width menu.bar.min.width def % false: no boot options line initially /boot.show true def } def /chksum { 0 exch { add } forall } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Some special debug & test keys. % % ( key_in ) ==> ( key_out ) % /debug.input { dup keyShiftF4 eq debug 3 ge and { currentcolor black setcolor currentpoint 0 0 moveto 64 string biosmem "mem = %u " 2 index sprintf dup show free moveto setcolor } if dup keyF8 eq syslinux and { kroete.file .undef eq { /kroete.file "kroete.dat" findfile def } if kroete.file kroete.dir idle /kroete.dir kroete.dir 1 xor def } if dup keyF9 eq syslinux and { /v_impaired inc v_impaired 1 eq config.talk not and { /config.talk true def load_talk_dialog menu.texts menu.idx get menuitemmap speak } { sound.getsamplerate { sound.getsamplerate sound.setsamplerate } if } ifelse config.livecd not { xmenu.video .xm_current 0 put % redraw unless another menu is still open window.current { window.current .xmenu get .undef eq { video.update } if } if } if .undef 0 idle kroete.file free /kroete.file .undef def pop 0 } if dup keyShiftF3 eq syslinux and debug 3 ge and { currentcolor black setcolor currentpoint 0 0 moveto "eject " print bootdrive eject print moveto setcolor } if dup keyShiftF5 eq syslinux and debug 3 ge and { currentcolor black setcolor currentpoint 100 0 moveto bootdrive print moveto setcolor } if dup keyShiftF8 eq debug 3 ge and { currentcolor debug 1 and { white } { black } ifelse setcolor currentpoint 300 0 moveto 0 memsize print "/" print print " " print moveto currentpoint 300 20 moveto 1 memsize print "/" print print " " print moveto currentpoint 300 40 moveto 2 memsize print "/" print print " " print moveto currentpoint 300 60 moveto 3 memsize print "/" print print " " print moveto currentpoint 300 80 moveto 4 memsize print "/" print print " " print moveto setcolor } if dup keyShiftF9 eq debug 3 ge and { dumpmem } if dup keyShiftF10 eq { /debug debug 1 add def } if dup keyShiftF11 eq { 400 0 moveto "ani_%04d.jpg" play_movie } if dup keyShiftF1 eq { /transp transp 0x10 sub 0 max def /player 0 def player "hapysuse.mod" findfile dup { mod.load config.volume sound.setvolume player 0 mod.play /player player 1 add 3 and def } { pop } ifelse pop 0 } if dup keyShiftF3 eq { "fsfsong.wav" findfile dup { config.volume sound.setvolume wav.play } { pop } ifelse pop 0 } if dup keyShiftF4 eq { % sound test XXXXXXXX sound.done } if dup keyF11 eq debug 1 ge and { /dit { dup 0xff and rand 0xff and gt { 0xff add } if 8 shr } def /c13.r rand 0x7f00 and def /c02_13.r rand 0x7f00 and c13.r sub def /c23.r rand 0x7f00 and def /c01_23.r rand 0x7f00 and c23.r sub def /c13.g rand 0x7f00 and def /c02_13.g rand 0x7f00 and c13.g sub def /c23.g rand 0x7f00 and def /c01_23.g rand 0x7f00 and c23.g sub def /c13.b rand 0x7f00 and def /c02_13.b rand 0x7f00 and c13.b sub def /c23.b rand 0x7f00 and def /c01_23.b rand 0x7f00 and c23.b sub def screen.size /h exch def /w exch def 0 1 screen.size exch pop { 0 1 screen.size pop { over moveto currentpoint c01_23.r mul h div exch c02_13.r mul w div add c13.r add c23.r add dit 0 max 0xff min 16 shl currentpoint c01_23.g mul h div exch c02_13.g mul w div add c13.g add c23.g add dit 0 max 0xff min 8 shl currentpoint c01_23.b mul h div exch c02_13.b mul w div add c13.b add c23.b add dit 0 max 0xff min add add setcolor putpixel } for pop } for pop 0 } if dup keyF12 eq debug 3 ge and { % mouse support testing 1 keepmode /mouse xxx def 0xc00000 setcolor mouse .undef eq { 700 580 moveto "no mouse" show } { { mouse getdword 16 shl 16 shr screen.size pop 2 div add mouse getdword 16 shr neg screen.size exch pop 2 div add moveto 4 4 fillrect mouse 4 add getdword 7 and dup 1 and { 0xc00000 setcolor } if dup 2 and { 0x0000a0 setcolor } if dup 4 and { 0x009000 setcolor } if 3 and 3 eq { exit } if } loop } ifelse pop 0 } if dup keyShiftF12 eq { /transp transp 0x10 add 0x100 min def pop 0 } if } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Show exit popup. % % ( ) ==> ( ) % /exit_popup { window.dialog dup .title txt_exit_title put dup .text txt_exit_dialog put dup .buttons [ button.ok button.default actExit button.setaction button.cancel button.notdefault actNothing button.setaction config.rtl { exch } if ] put dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Show help window. % % ( ) ==> ( ) % /show_help { window.help dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Show dvd popup. % % ( ) ==> ( ) % /dvd_popup { window.dialog dup .title txt_dvd_warning_title put dup .text txt_dvd_warning2 put dup .buttons [ % button.eject button.default actEject actNoClose or button.setaction button.continue button.default actNothing button.setaction ] put dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Warn that we are about to install 32bit software on a 64bit system. % % ( ) ==> ( ) % /32bit_popup { window.dialog dup .title "Cool computer, but..." put dup .text "You are about to install 32-bit software on a 64-bit computer." put dup .buttons [ button.continue button.default actNothing button.setaction ] put dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Warn that we are about to install 64bit software on a 32bit system. % % ( ) ==> ( ) % /64bit_popup { window.dialog dup .title "Cool software, but..." put dup .text "This is a 32-bit computer. You cannot use 64-bit software on it." put dup .buttons [ button.reboot button.default actReboot actNoClose or button.setaction ] put dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Warn that we don't have enough memory. % % ( ) ==> ( ) % /nomem_popup { window.dialog dup .title "Sorry, but..." put dup .text mem.show put dup .buttons [ button.ok button.default actNothing button.setaction ] put dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Show "power off" popup. % % ( ) ==> ( ) % /power_off { window.dialog dup .title txt_power_off_title put dup .text txt_power_off put dup .buttons [ button.ok button.notdefault actPowerOff actNoClose or button.setaction button.cancel button.default actNothing button.setaction config.rtl { exch } if ] put dup window.init window.show } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Set global config variables. % % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % For monitor tests: fake DDC info. % % "ddc" findfile test1 % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % First, figure out video mode. % /config.screen.width /config.screen.height "screen.size" 800 600 gfxconfig.set.int2 /screen.fallback false def config.screen.width config.screen.height 32 findmode setmode not { config.screen.width config.screen.height 16 findmode setmode not { /screen.fallback true def 640 480 16 findmode setmode not { 640 480 32 findmode setmode not { false .end } if } if } if } if % prepend fallback section to layout section list screen.fallback { /gfxconfig.layout [ "640x480" gfxconfig.layout { } forall ] gfxconfig.layout free def } if % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Figure out whether to use penguin theme. % /config.penguin "penguin" 0 gfxconfig.set.int % more likely during winter... config.penguin -1 eq { date 0 over month 12 eq { 5 add } if over month 1 le { 5 add } if over weekday 5 eq { 2 mul } if over weekday 6 eq { 4 mul } if over dup month 12 eq exch day dup 24 ge exch 6 eq or and { pop 100 } if over dup month 1 eq exch day 1 eq and { pop 100 } if /config.penguin exch def pop } if /ptheme rand pop rand 100 mod config.penguin lt def 0x417 cvp getbyte 0x40 and 0 ne { /ptheme true def } if 0x417 cvp getbyte 0x10 and 0 ne { /ptheme false def } if % prepend penguin section to layout section list ptheme { /gfxconfig.layout [ "penguin" gfxconfig.layout { } forall ] gfxconfig.layout free def } if % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Then, read the other config variables (might depend on video mode). % /config.welcome "welcome" 0 gfxconfig.set.int /config.beep "beep" false gfxconfig.set.bool /config.volume "volume" 70 gfxconfig.set.int /config.talk "talk" false gfxconfig.set.bool /config.livecd "livecd" false gfxconfig.set.bool /config._2space "_2space" false gfxconfig.set.bool /transp "menu.transparency" 0x20 gfxconfig.set.int /config.screen.width /config.screen.height "screen.size" 800 600 gfxconfig.set.int2 /config.background "background" "back.jpg" gfxconfig.set.str /config.font.normal "font.normal" "16x16.fnt" gfxconfig.set.str /config.font.large "font.large" "16x16.fnt" gfxconfig.set.str /progress.bar.color "progress.bar.color" white gfxconfig.set.int /xmenu.normal.bg "menu.normal.bg" black gfxconfig.set.int /xmenu.normal.fg "menu.normal.fg" white gfxconfig.set.int /xmenu.selected.bg "menu.selected.bg" white gfxconfig.set.int /xmenu.selected.fg "menu.selected.fg" black gfxconfig.set.int /window.color.bg "window.bg" white gfxconfig.set.int /window.color.fg "window.fg" black gfxconfig.set.int /window.title.bg "window.title.bg" black gfxconfig.set.int /window.title.fg "window.title.fg" white gfxconfig.set.int /window.title.error.bg "window.title.error.bg" 0xc00000 gfxconfig.set.int /help.link.fg "help.link.fg" 0x0000a0 gfxconfig.set.int /help.link.selected.fg "help.link.selected.fg" white gfxconfig.set.int /help.link.selected.bg "help.link.selected.bg" 0x0000a0 gfxconfig.set.int /help.highlight.fg "help.highlight.fg" 0x009000 gfxconfig.set.int /menu.text.normal "mainmenu.normal.fg" white gfxconfig.set.int /menu.text.select "mainmenu.selected.fg" black gfxconfig.set.int /boot.text.options "bootopt.label.fg" white gfxconfig.set.int /boot.text.normal "bootopt.text.fg" white gfxconfig.set.int /menu.bar.color "mainmenu.bar.color" white gfxconfig.set.int /menu.bar.min.width "mainmenu.bar.minwidth" 300 gfxconfig.set.int /menu.bar.transparency "mainmenu.bar.transparency" 70 gfxconfig.set.int /menu.start.x /menu.start.y "mainmenu.pos" 253 170 gfxconfig.set.int2 /menu.max.entries "mainmenu.entries" 8 gfxconfig.set.int /boot.pos.x /boot.pos.y "bootopt.pos" 263 480 gfxconfig.set.int2 /panel.normal.fg "panel.normal.fg" white gfxconfig.set.int /panel.title.fg "panel.title.fg" white gfxconfig.set.int /panel.f-key.fg "panel.f-key.fg" black gfxconfig.set.int /keymap.submenu "keymap.submenu" false gfxconfig.set.bool /keymap.mainmenu "keymap.mainmenu" false gfxconfig.set.bool /keymap.default "keymap" "" gfxconfig.set.str /install.default "install" "" gfxconfig.set.str /install.http.server "install.http.server" "" gfxconfig.set.str /install.http.path "install.http.path" "" gfxconfig.set.str /install.nfs.server "install.nfs.server" "" gfxconfig.set.str /install.nfs.path "install.nfs.path" "" gfxconfig.set.str /install.ftp.server "install.ftp.server" "" gfxconfig.set.str /install.ftp.path "install.ftp.path" "" gfxconfig.set.str /install.ftp.user "install.ftp.user" "" gfxconfig.set.str /install.ftp.password "install.ftp.password" "" gfxconfig.set.str /install.smb.server "install.smb.server" "" gfxconfig.set.str /install.smb.share "install.smb.share" "" gfxconfig.set.str /install.smb.path "install.smb.path" "" gfxconfig.set.str /install.smb.domain "install.smb.domain" "" gfxconfig.set.str /install.smb.user "install.smb.user" "" gfxconfig.set.str /install.smb.password "install.smb.password" "" gfxconfig.set.str /install.hd.device "install.hd.device" "" gfxconfig.set.str /install.hd.path "install.hd.path" "" gfxconfig.set.str /dud.default "dud" "" gfxconfig.set.str /dud.file "dud.file" "" gfxconfig.set.str /dud.url "dud.url" "" gfxconfig.set.str /dud.url.name "dud.url.name" "" gfxconfig.set.str /serial.line0 "serial.line0" [ ] gfxconfig.set.array_str /serial.line1 "serial.line1" [ ] gfxconfig.set.array_str /serial.line2 "serial.line2" [ ] gfxconfig.set.array_str /serial.line3 "serial.line3" [ ] gfxconfig.set.array_str /serial.lines [ serial.line0 serial.line1 serial.line2 serial.line3 ] def % Array of menu entries with no boot option input field. /config.nobootoptions "nobootoptions" [ ] gfxconfig.set.array_str % Array of menu entries which should not get an 'install' option appended. /config.noinstallopt "noinstallopt" [ ] gfxconfig.set.array_str % Mininum required memory in MB. /mem.check { mem.min gfxconfig.int dup .undef eq { pop 0 } if } def % Message to print if we fail minimum memory requirement. /mem.show { mem.msg gfxconfig.str dup .undef eq { pop "Not enough memory." } if } def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % drawing area size /clip.size { screen.size } def % set background image config.background findfile setimage % get font(s) /font.normal config.font.normal findfile def /font.large % don't load it twice config.font.normal config.font.large eq { font.normal } { config.font.large findfile } ifelse def % default kroet direction (idle task) /kroete.dir 0 def % default debug level /debug 0 def % no specials for visual impaired people /v_impaired 0 def % show welcome animation? ptheme screen.fallback or CapsLock or config.welcome 0 eq or { /bsplash.done { } def } { bsplash.show } ifelse % check for bi-arch config check_arch_boot_dir