Changeset 2999


Ignore:
Timestamp:
Jun 4, 2012, 10: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.