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 ;