[openfirmware] r1624 - cpu/x86/pc/olpc/via
svn at openfirmware.info
svn at openfirmware.info
Wed Dec 16 09:16:09 CET 2009
Author: wmb
Date: 2009-12-16 09:16:08 +0100 (Wed, 16 Dec 2009)
New Revision: 1624
Modified:
cpu/x86/pc/olpc/via/runin.fth
Log:
Via manufacturing scripts - added option to restart a failed runin.
Modified: cpu/x86/pc/olpc/via/runin.fth
===================================================================
--- cpu/x86/pc/olpc/via/runin.fth 2009-12-16 08:05:00 UTC (rev 1623)
+++ cpu/x86/pc/olpc/via/runin.fth 2009-12-16 08:16:08 UTC (rev 1624)
@@ -243,7 +243,7 @@
exit
then ( data$ tag$ )
- 2swap ?-null 2swap
+ 2swap ?-null 2swap ( data$' tag$ )
put-key:value ( )
;
@@ -308,14 +308,16 @@
warning !
dend
-
+: fail-backup-file$ ( -- name$ )
+ time&date format-date " int:\runin\fail-%s.log" sprintf
+;
: fail-log-file$ ( -- name$ ) " int:\runin\fail.log" ;
\ The operator can type this to reset the state to run
\ the Linux-based runin tests again.
: rerunin ( -- )
" int:\runin\olpc.fth" $delete-all
- " int:\runin\fail.log" $delete-all
+ fail-log-file$ fail-backup-file$ $rename
;
: after-runin ( -- )
@@ -325,14 +327,16 @@
." Type a key to see the failure log"
key drop cr cr
list
+ ." Type R to restart runin, any other key to power off "
+ key dup emit upc [char] R = if rerunin then
else
autorun-mfg-tests
pass? if finish-final-test then
show-result-screen
+ ." Type a key to power off"
+ key cr
then
- ." Type a key to power off"
- key cr
power-off
;
More information about the openfirmware
mailing list