\ OLPC Boot Script for updating the OS and OFW images
\ Originally written by anonymous forth hackers
\ Hacked to bits by cscott@laptop.org -- Forth is fun!
' security-failure is handle-breakpoint
\ Version number!
." Activation key version: 2007-10-16 18:46Z" cr
\ This is magic which Mitch says will work:
screen-ih stdout ! \ show output, even if it makes us not "pretty".
no-page \ but don't use the pager, because the keyboard isn't turned on!
\ (the keyboard is only turned on if we boot holding down a game key)
' . to .error \ Suppress fancy abort messages
' noop to load-started \ Suppress the load progress spinner
' noop to ?show-device \ Suppress the boot progress icons
' false to auto-boot? \ Suppress automatic booting after this finishes
: unsafe-reflash ( -- )
" flash! disk:\q2d05.rom" evaluate
" disk:" fs-update-from-list
;
: safer-reflash ( -- )
['] unsafe-reflash catch if security-failure then
." Powering off ..." d# 1000 ms
power-off
;
safer-reflash
security-failure \ protect against errors dropping you into an ok prompt.