[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