installer: add an XO installer (written in forth)

This uses OFW's menu support to display an installation
method.  Currently doesn't do anything interesting, other
than display available install target devices on a system.

Stick this on a usb stick (as /boot/olpc.fth), boot up your XO,
and run 'instmenu' from the OFW prompt.

Signed-off-by: Andres Salomon <dilinger@queued.net>

diff --git a/inst.fth b/inst.fth
new file mode 100644 (file)
index 0000000..2c6a2c7
--- /dev/null
+++ b/inst.fth
@@ -0,0 +1,155 @@
+\ DebXO installer script
+
+: choose-nand-item
+   menu-done
+   ." Nand" cr
+;
+
+: choose-emmc-item
+   menu-done
+   ." EMMC" cr
+;
+
+: choose-sd-item
+   menu-done
+   ." SD" cr
+;
+
+: choose-usb-item
+   menu-done
+   ." USB" cr
+;
+
+: choose-usb-item-0
+   menu-done
+   ." USB #1" cr
+;
+: choose-usb-item-1
+   menu-done
+   ." USB #2" cr
+;
+: choose-usb-item-2
+   menu-done
+   ." USB #3" cr
+;
+: choose-usb-item-3
+   menu-done
+   ." USB #4" cr
+;
+
+0 value nr-targets
+
+: has-target?  ( devspec$ -- flag )
+   open-dev                                     ( ih )
+   ?dup 0<> if
+      close-dev
+      nr-targets 1+ to nr-targets
+      true
+   else
+      false
+   then
+;
+
+: disk-size  ( devspec$ -- #MB )
+   open-dev ?dup 0<> if                         ( ih )
+      dup " #blocks" rot $call-method           ( ih #blocks )
+      ?dup 0<> if
+         \ we're assuming a block size of 512 bytes
+         d# 512 um*                             ( ih #bytes )
+         d# 1,000,000 um/mod                    ( ih rem #MB )
+         rot close-dev swap drop                ( #MB )
+      else
+         drop
+         0  \ TODO
+\      dup " block-size" rot $call-method        ( ih  size x )
+  \    rot close-dev drop                        ( size.lo )
+   \   d# 20 >>                                  ( #MB )
+      then
+   else
+      0                                         ( #MB )
+   then
+;
+
+\ : disk-size  ( devspec$ -- #MB )
+\   open-dev ?dup 0<> if                         ( ih )
+\      dup " size" rot $call-method              ( ih size.lo size.hi )
+\      rot close-dev drop                        ( size.lo )
+\      d# 20 >>                                  ( #MB )
+\      \ fuck your signed 32bit division..    d# 100000 /                               ( #MB ).
+\   else
+\      0                                         ( #MB )
+\   then
+\ ;
+
+: debxo-find-targets  ( -- help0$ 'func0 'icon0 ... helpk$ 'funck 'iconk )
+   0 to nr-targets
+
+   \ check for the existence of nandflash (XO-1)
+   " /nandflash" has-target? if
+      " Internal NAND"
+      ['] choose-nand-item spi.icon
+   else
+      \ check for internal EMMC (XO-1.5, XO-1.75)
+      " int:0" has-target? if
+         64 alloc-mem >r
+         " int:0" disk-size decimal             ( #MB )
+         <# "  MB)" hold$ u#s " Internal MMC (" hold$ u#>
+         r> pack count
+         \ " Internal MMC"
+         ['] choose-emmc-item spi.icon
+      then
+   then
+
+   " ext:0" has-target? if
+       64 alloc-mem >r
+       " ext:0" disk-size decimal               ( #MB )
+       <# "  MB)" hold$ u#s " SD Card (" hold$ u#>
+       r> pack count
+\      " SD Card"
+      ['] choose-sd-item sdcard.icon
+   then
+
+   \ check for up to 4 USB drives
+   4 0  do
+      i <# " /disk" hold$ u# " /usb/scsi@" hold$ u#>  string2 pack
+      count has-target? if
+         \ create description
+         i 1+                                   ( i )
+         64 alloc-mem >r                        ( i )
+         <# u# " USB Disk #" hold$ u#>  r@ place
+         string2 count disk-size decimal        ( #MB )
+         <# "  MB)" hold$ u#s "  (" hold$ u#> r@ $cat
+
+         r> count                               ( desc$ )
+         i <# u# " ['] choose-usb-item-" hold$ u#> evaluate usb.icon
+      then
+   loop
+
+\ TODO: multiple usb disks?
+\ differentiate between installer disk & extra disk..
+;
+
+
+: debxo-installer-menu  ( -- )
+   \ populate stack w/ icon/target list
+   debxo-find-targets      
+
+   \ last entry on the list
+   " Abort installation"
+   ['] quit-item quit.icon
+
+   \ generate the menu
+   d# 1 to rows
+   nr-targets 1+ to cols
+
+   clear-menu
+
+   0 nr-targets  do
+      0 i install-icon
+   -1 +loop
+;
+
+: instmenu
+   ['] debxo-installer-menu to root-menu
+   (menu)
+;