Changeset 2999


Ignore:
Timestamp:
Jun 4, 2012, 8:53:17 AM (3 years ago)
Author:
quozl
Message:

OLPC - keep menu active and display results after all tests completed. #11847

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/via/mfgtest.fth

    r2998 r2999  
    5050;
    5151
    52 : mfg-test-result  ( error? -- )
     52: mfg-test-result  ( return-code true | false -- )
    5353   if               ( return-code )
    5454      ?dup  if                                         ( return-code )
     
    7878   flush-keyboard
    7979;
    80 : (mfg-test-dev)  ( $ -- error? )
     80: (mfg-test-dev)  ( $ -- return-code true | false )
    8181   2dup locate-device  if                         ( $ )
    8282      ." Can't find device node " type cr  exit   ( -- )
     
    8484      drop                                        ( $ )
    8585   then                                           ( $ )
    86    " selftest" execute-device-method              ( error? )
     86   " selftest" execute-device-method              ( return-code true | false )
    8787;
    8888: mfg-test-dev  ( $ -- )
    8989   scroller-on
    9090   ??cr  ." Testing " 2dup type cr                ( $ )
    91    (mfg-test-dev)
     91   (mfg-test-dev)                                 ( return-code true | false )
    9292   mfg-test-result
    9393;
    9494: gfx-test-dev  ( $ -- )
    95    (mfg-test-dev)
    96    scroller-on
     95   (mfg-test-dev)                                 ( return-code true | false )
     96   scroller-on                                    ( return-code true | false )
    9797   mfg-test-result
    98 ;
    99 
    100 : overall  ( -- )
    101    restore-scroller-bg
    102    clear-screen
    103    overall-fail?  if
    104       ." Some tests failed." cr cr cr
    105       red-screen
    106    else
    107       ." All automatic tests passed successfully." cr cr cr
    108       green-screen
    109    then
    110    wait-return
    111    cursor-off  scroller-off  gui-alerts  refresh
    112    flush-keyboard
    11398;
    11499
     
    159144      stop?  if unloop exit  then
    160145   loop
    161    0 3 rc>sq set-current-sq \ quit-item
    162    overall
     146   overall-fail?  if
     147      0 1  \ play-item
     148   else
     149      0 3  \ quit-item
     150   then
     151   set-default-selection
     152   refresh
    163153;
    164154
     
    232222   stop?  if  menu-interact exit  then
    233223   quit?  if  exit  then
    234    0 3 rc>sq set-current-sq \ quit-item
    235    pause-to-interact
     224   menu-interact
    236225;
    237226
Note: See TracChangeset for help on using the changeset viewer.