reimport my latest checkout

1 files changed, 827 insertions, 0 deletions

diff --git a/system.inc b/system.inc
new file mode 100644
index 0000000..045981d
--- /dev/null
+++ b/system.inc
@@ -0,0 +1,827 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Some basic definitions.
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+% some key codes
+/keyEsc       0x0000001b def
+/keyEnter     0x0000000d def
+/keyTab       0x00000009 def
+/keyShiftTab  0x00800009 def
+/keyF1        0x3b000000 def
+/keyF2        0x3c000000 def
+/keyF3        0x3d000000 def
+/keyF4        0x3e000000 def
+/keyF5        0x3f000000 def
+/keyF6        0x40000000 def
+/keyF7        0x41000000 def
+/keyF8        0x42000000 def
+/keyF9        0x43000000 def
+/keyF10       0x44000000 def
+/keyF11       0x85000000 def
+/keyF12       0x86000000 def
+/keyHome      0x47000000 def
+/keyUp        0x48000000 def
+/keyPgUp      0x49000000 def
+/keyLeft      0x4b000000 def
+/keyRight     0x4d000000 def
+/keyEnd       0x4f000000 def
+/keyDown      0x50000000 def
+/keyPgDown    0x51000000 def
+/keyIns       0x52000000 def
+/keyDel       0x53000000 def
+/keyShiftF1   0x54000000 def
+/keyShiftF2   0x55000000 def
+/keyShiftF3   0x56000000 def
+/keyShiftF4   0x57000000 def
+/keyShiftF5   0x58000000 def
+/keyShiftF6   0x59000000 def
+/keyShiftF7   0x5a000000 def
+/keyShiftF8   0x5b000000 def
+/keyShiftF9   0x5c000000 def
+/keyShiftF10  0x5d000000 def
+/keyShiftF11  0x87000000 def
+/keyShiftF12  0x88000000 def
+/keyCtrlF1    0x5e000000 def
+/keyCtrlF2    0x5f000000 def
+/keyCtrlF3    0x60000000 def
+/keyCtrlF4    0x61000000 def
+/keyCtrlF5    0x62000000 def
+/keyCtrlF6    0x63000000 def
+/keyCtrlF7    0x64000000 def
+/keyCtrlF8    0x65000000 def
+/keyCtrlF9    0x66000000 def
+/keyCtrlF10   0x67000000 def
+/keyAltF1     0x68000000 def
+/keyAltF2     0x69000000 def
+/keyAltF3     0x6a000000 def
+/keyAltF4     0x6b000000 def
+/keyAltF5     0x6c000000 def
+/keyAltF6     0x6d000000 def
+/keyAltF7     0x6e000000 def
+/keyAltF8     0x6f000000 def
+/keyAltF9     0x70000000 def
+/keyAltF10    0x71000000 def
+/keyCtrlLeft  0x73000000 def
+/keyCtrlRight 0x74000000 def
+/keyCtrlEnd   0x75000000 def
+/keyCtrlDown  0x76000000 def
+/keyCtrlHome  0x76000000 def
+/keyCtrlUp    0x84000000 def
+/keyStatus    0xff000000 def
+
+/statusAlt    0x0208 def
+/statusAltL   0x0200 def
+/statusAltR   0x0008 def
+/statusCtrl   0x0104 def
+/statusShift  0x0003 def
+
+/CapsLock { 0x417 cvp getbyte 0x40 and 0 ne } def
+
+% boot loader
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% bootloader - boot loader type
+%
+% group: system
+%
+% ( -- int1 )
+%
+% int1: boot loader type (0: lilo, 1:syslinux/isolinux, 2: grub)
+%
+/bootloader sysconfig getbyte def
+
+/lilo     bootloader 0 eq def
+/syslinux bootloader 1 eq def
+/grub     bootloader 2 eq def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% boot_failsafe - failsafe options the user selected (bitmask)
+%
+% group: system
+%
+% ( -- int1 )
+%
+% int1: option bitmask
+%   bit 0: SHIFT pressed
+%   bit 1: no graphics
+%   bit 2: no monitor detection
+%
+/boot_failsafe sysconfig 3 add getbyte def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% bootdrive - drive the BIOS booted from
+%
+% group: system
+%
+% ( -- int1 )
+%
+% int1: BIOS drive id
+%
+/bootdrive sysconfig 5 add getbyte def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% mediatype - type of media we booted from
+%
+% group: system
+%
+% ( -- int1 )
+%
+% int1: media type (0 disk, 1 floppy, 2 cdrom)
+%
+/mediatype sysconfig 2 add getbyte def
+
+/m_disk   0 def
+/m_floppy 1 def
+/m_cdrom  2 def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% biosmem - BIOS reported memory size
+%
+% group: mem
+%
+% ( -- int1 )
+%
+% int1: total memory size according to BIOS
+%
+/biosmem sysconfig 20 add getdword def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% sectorsize - sector size
+%
+% group: mem system
+%
+% ( -- int1 )
+%
+% int1: sector size in bytes
+%
+/sectorsize
+  1
+  sysconfig 1 add getbyte
+  20 min	% max. 1 MB
+  dup 0 eq { pop 9 } if
+  shl
+def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% getinfo - type of info box
+%
+% group: system
+%
+% ( int1 -- int2 )
+%
+% int1: type of info box we have to show
+% int2: some data
+%
+% Note: really weird, should be replaced by something more obvious.
+%
+/getinfo {
+  2 shl
+  sysconfig 12 add exch add getdword
+} def
+
+
+% bool values
+/true     0 0 eq def
+/false    0 0 ne def
+
+% type values
+/t_none		 0 def
+/t_int		 1 def
+/t_unsigned	 2 def
+/t_bool		 3 def
+/t_string	 4 def
+/t_code		 5 def
+/t_ret		 6 def
+/t_prim		 7 def
+/t_sec		 8 def
+/t_dict_idx	 9 def
+/t_array	10 def
+/t_end		11 def
+/t_ptr		12 def
+
+/.value { t_int settype } def
+/.undef 0 t_none settype def
+/.end 0 t_end settype def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Print string (for debugging).
+%
+% ( string ) ==> ( )
+%
+/string.print {
+  dup
+  currentpoint currentpoint 5 -1 roll strsize image moveto
+  show
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Print number (for debugging).
+%
+% ( number ) ==> ( )
+%
+/number.print {
+  32 string
+  exch over
+  "%08x" exch sprintf
+  dup string.print
+  free
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Print obj (for debugging).
+%
+% ( obj ) ==> ( )
+%
+/obj.print {
+  64 string
+  exch dup
+  .value exch gettype
+  "%x:%08x" 3 index sprintf
+  dup string.print
+  free
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Print (for debugging).
+%
+% ( obj ) ==> ( )
+%
+/print {
+  dup gettype t_int eq { number.print return } if
+  dup gettype t_string eq { string.print return } if
+  obj.print
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Convert object to pointer.
+%
+% ( obj ) ==> ( ptr )
+%
+/cvp { t_ptr settype } def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Convert object to string.
+%
+% ( obj ) ==> ( string )
+%
+/cvs { t_string settype } def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Convert object to number.
+%
+% ( obj ) ==> ( int )
+%
+/cvn {
+  dup gettype t_string eq {
+    0 exch
+    {
+      '0' sub
+      dup 0 lt over 9 gt or { pop exit } if
+      exch 10 mul add
+    } forall
+  } {
+    t_int settype
+  } ifelse
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Arguments like snprintf.
+%
+% ( obj_1 ... obj_n string_1 string_2 ) ==> ( )
+%
+/sprintf {
+  dup cvp length exch snprintf
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Allocate new string.
+%
+% ( size ) ==> ( string )
+/string {
+  1 add malloc cvs
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Increment variable.
+%
+% ( dict_ref ) ==> ( )
+%
+/inc {
+  dup exec 1 add def
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Copy src to dst.
+%
+% Watch overlapping src & dst!
+%
+% ( dst src ) ==> ( dst )
+%
+/strcpy {
+  "%s" 2 index sprintf
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Duplicate string.
+%
+% ( string ) ==> ( string )
+%
+/strdup {
+  dup length string exch strcpy
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Concatenate strings.
+%
+% ( string1 string2 ) ==> ( string1 )
+%
+/strcat {
+  over dup length add exch strcpy pop
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Test for AltGr.
+%
+% ( )  ==> ( bool )
+%
+/is_altGr {
+  keystat statusAltR and 0 ne keystat statusAltL and 0 eq and
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Keyboard mapping.
+%
+% ( key ) ==> ( key )
+%
+/mapkey {
+   dup 24 shr 0xff and /key.code exch def
+   is_altGr {
+     % bios is too smart...
+     key.code 0x78 ge key.code 0x83 le and { /key.code key.code 0x76 sub def } if
+   } if
+   0 1 config.keymap length 1 sub {
+     config.keymap exch get
+     dup 0 get key.code eq {
+       1
+       keystat statusShift and { pop 2 } if
+       is_altGr { pop 3 } if
+       get
+       exch pop
+     } {
+       pop
+     } ifelse
+   } for
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Set password mode font property.
+%
+% ( font ) ==> ( font )
+%
+/pwmode {
+   dup gettype t_ptr eq {
+     .value 0x80000000 or t_ptr settype
+   } if
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show string right aligned.
+%
+% ( string ) ==> ( )
+%
+/showright {
+  dup strsize pop neg 0 rmoveto show
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show string centered.
+%
+% ( string ) ==> ( )
+%
+/showcenter {
+  dup strsize pop 2 div neg 0 rmoveto show
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Generate pseudo random number.
+% Good enough for boot loader splash screen.
+%
+% ( ) ==> ( int )
+%
+/rand {
+  rand.start 59 mul 97 add 0x7fffffff and
+  /rand.start over def
+} def
+
+% start value
+/rand.start time def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% ( date ) ==> ( weekday )
+%
+/weekday {
+  dup 8 shr 0xff and 1 sub
+  dup 3 mul over 2 div sub
+  exch 2 mul 0x11000a exch shr 3 and add
+  over 0xff and 6 add add
+  exch 16 shr add
+  7 mod
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% ( date ) ==> ( day )
+%
+/day {
+  0xff and
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% ( date ) ==> ( month )
+%
+/month {
+  8 shr 0xff and
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% ( date ) ==> ( year )
+%
+/year {
+  16 shr
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Read CMOS RAM.
+%
+% ( index ) ==> ( value )
+%
+/nvram {
+  0x70 exch outbyte
+  0x71 inbyte
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% readsector - read sector
+%
+% group: system
+%
+% ( int1 -- ptr1 )
+%
+% int1: sector number
+% ptr1: buffer with sector data or .undef. Use @free to free the buffer.
+%
+% Note: does not return on error. Returns .undef if function is not implemented.
+%
+/readsector {
+  _readsector
+  dup .undef eq { return } if
+
+  sectorsize malloc dup rot over length memcpy
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% getgfxconfig - get gfxboot config file entry
+%
+% group: system
+%
+% ( str1 -- str2 )
+%
+% str1: key for config entry
+% str2: config string (or .undef)
+%
+/getgfxconfig {
+  gfxconfig.data .undef eq {
+    "gfxboot.cfg" findfile dup .undef ne {
+      dup dup length dup string dup cvp 4 2 roll memcpy exch free
+    } {
+      pop ""
+    } ifelse
+
+    /gfxconfig.data over '\n' split def free
+
+  } if
+
+  currenteotchar '=' seteotchar
+
+  .undef
+
+  gfxconfig.data {
+
+    % overkill because string compare does not honor eotchar
+    dup strdup dup 5 index eq {
+      dup length exch free 1 add add exch pop exit
+    } {
+      free pop
+    } ifelse
+
+  } forall
+
+  exch seteotchar exch pop
+
+} def
+
+/gfxconfig.data .undef def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% split - split string
+%
+% group:
+%
+% ( str1 int1 -- array1 )
+%
+% str1: string
+% int1: char
+% array1: array of strings
+%
+/split {
+
+  currenteotchar exch seteotchar exch
+
+  [ exch
+
+    {
+      dup length 0 gt {
+        dup strdup exch
+        dup length add
+      } if
+
+      dup cvp length 1 le { pop exit } if
+
+      1 add
+
+    } loop
+
+  ]
+
+  exch seteotchar
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Skip leading non-spaces.
+%
+% ( string ) ==> ( string )
+%
+/skipnonspaces {
+  { dup 0 get dup 0 ne exch ' ' ne and { 1 add } { exit } ifelse } loop
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Skip leading spaces.
+%
+% ( string ) ==> ( string )
+%
+/skipspaces {
+  { dup 0 get ' ' eq { 1 add } { exit } ifelse } loop
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Drop spaces at string end.
+% Modifies string!
+%
+% ( string ) ==> ( )
+%
+/dropspaces {
+  dup length
+  dup 0 eq {
+    pop pop
+  } {
+    1 sub
+    -1 0 {
+      over over get ' ' eq { over exch 0 put } { pop exit } ifelse
+    } for
+    pop
+  } ifelse
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Test if string[ofs-1]/string[ofs] is a word boundary.
+%
+% ( string ofs ) ==> ( true|false )
+%
+% boundary is either space/non-space or non-space/(space|'=')
+%
+/iswordboundary {
+  dup 0 eq { pop pop true return } if
+
+  add dup 1 sub 0 get exch 0 get
+
+  over ' ' eq over ' ' gt and { pop pop true return } if
+  over ' ' gt over dup ' ' eq exch dup '=' eq exch 0 eq or or and { pop pop true return } if
+
+  pop pop false
+} def
+
+
+%% findmode - find video mode number
+%
+% group: gfx.screen
+%
+% ( int1 int2 int3 -- int4 )   
+%
+% int1, int2: width, height
+% int3: color bits
+% int4: mode number (or .undef)
+%
+% example
+%   1024 768 16 findmode setmode        % 1024x768, 16-bit color mode
+%
+/findmode {
+  0 1 videomodes {
+    videomodeinfo dup .undef eq {
+      pop pop pop pop
+    } {
+      % compare width, height, colors
+      6 index 4 index eq 6 index 4 index eq and 5 index 3 index eq and {
+        7 1 roll 6 { pop } repeat 0xbfff and return
+      } {
+        pop pop pop pop
+      } ifelse
+    } ifelse
+  } for
+
+  pop pop pop .undef
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Replace substring. Returns newly allocated string.
+%
+% ( str key value ) ==> ( new_str )
+%
+% Replaces first occurence of 'key' in str with 'value'.
+%
+/strreplace {
+  2 index 2 index strstr dup 0 ne {
+    1 sub
+    over length 3 index length sub 4 index length add string
+    dup cvp 5 index cvp 3 index memcpy
+    dup 6 1 roll over add exch 5 -1 roll exch add
+    4 -1 roll length add 3 1 roll "%s%s" exch sprintf
+  } {
+    pop pop pop strdup
+  } ifelse
+
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Search for option in cmdline.
+% Returns .undef if not found.
+%
+% ( cmdline option_name ) ==> ( option_start )
+%
+/bootopt.find {
+  /bo.opt exch def
+  /bo.cmdline exch def
+
+  {
+    bo.cmdline bo.opt strstr
+    dup {
+      dup 1 eq {
+        true
+      } {
+        dup 2 sub bo.cmdline exch get ' ' eq
+      } ifelse
+
+      {
+        bo.cmdline over bo.opt length add 1 sub get
+        dup '=' eq
+        over ' ' eq or
+        exch 0 eq or
+      } {
+        false
+      } ifelse
+
+      bo.cmdline rot add exch
+
+      {
+        1 sub exit
+      } {
+        /bo.cmdline exch def
+      } ifelse
+    } {
+      pop
+      .undef exit
+    } ifelse
+  } loop
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Search for second occurence of option in cmdline.
+% Returns .undef if not found.
+%
+% ( cmdline option_name ) ==> ( option_start )
+%
+/bootopt.find2 {
+  over over bootopt.find dup .undef eq {
+    pop pop pop .undef
+  } {
+    1 add rot pop exch bootopt.find
+  } ifelse
+} def
+
+
+% Remove option from cmdline. Returns removed option or .undef.
+%
+% cmdline is modified, option_entry is allocated dynamicyll and must be
+% freed later.
+%
+% ( cmdline option_name -- option_entry )
+%
+/bootopt.remove {
+  bootopt.find dup .undef ne {
+    dup
+    skipnonspaces dup skipspaces 2 index sub rot rot over sub string over strcpy
+    rot rot
+    {
+      over over exch get
+      over over 0 exch put {
+        1 add
+      } {
+        exit
+      } ifelse
+    } loop
+    pop pop
+  } if
+} def
+
+
+% Test whether we run in Live-CD mode
+%
+% (  -- true|false )
+%
+/livecd {
+  /livecd "livecd" getgfxconfig dup .undef ne { 0 ne } { pop false } ifelse def
+  livecd
+} def
+
+
+% Mininum Live-CD memory in MB.
+%
+% (  -- int )
+%
+/livecd.mem.check {
+  /livecd.mem.check "livecd.mem.check" getgfxconfig dup .undef ne { cvn } { pop 200 } ifelse def
+  livecd.mem.check
+} def
+
+
+% Mininum Live-CD memory in MB we ask the user for.
+%
+% (  -- int )
+%
+/livecd.mem.show {
+  /livecd.mem.show "livecd.mem.show" getgfxconfig dup .undef ne { cvn } { pop 256 } ifelse def
+  livecd.mem.show
+} def
+
+