Changeset 3546


Ignore:
Timestamp:
Feb 14, 2013, 1:07:23 AM (3 years ago)
Author:
quozl
Message:

OLPC - lid and ebook switch tests, move to a common file

Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/1.75/switches.fth

    r3176 r3546  
    1010
    11110 0 reg  \ So test-all will run the test
    12 : open  ( -- okay? )  true  ;
    13 : close  ( -- )  ;
    14 : lid?    ( -- flag )  d# 129 gpio-pin@  0=  ;
    15 : ebook?  ( -- flag )  d# 128 gpio-pin@  0=  ;
    1612
    17 : ?key-abort  ( -- )  key?  if  key esc =  abort" Aborted"  then  ;
    18 : wait-not-lid  ( -- )
    19    ." Deactivate lid switch" cr
    20    begin  ?key-abort  lid? 0=  until
    21 ;
    22 : wait-lid  ( -- )
    23    ." Activate lid switch" cr
    24    begin  ?key-abort  lid? until
    25 ;
    26 : wait-not-ebook  ( -- )
    27    ." Deactivate ebook switch" cr
    28    begin  ?key-abort  ebook? 0=  until
    29 ;
    30 : wait-ebook  ( -- )
    31    ." Activate ebook switch" cr
    32    begin  ?key-abort  ebook? until
    33 ;
     13: lid?    ( -- flag )  lid-switch-gpio# gpio-pin@  0=  ;
     14: ebook?  ( -- flag )  ebook-mode-gpio# gpio-pin@  0=  ;
    3415
    35 : all-switch-states  ( -- )
    36    lid?  if  wait-not-lid  else  wait-lid  then
    37    ebook?  if  wait-not-ebook  else  wait-ebook  then
    38 ;
    39 
    40 : selftest  ( -- error? )
    41    ['] all-switch-states catch
    42 ;
    43 
     16fload ${BP}/dev/olpc/lidtest.fth
    4417fload ${BP}/dev/olpc/lid.fth
    4518end-package
  • cpu/arm/olpc/cl4/switches.fth

    r3176 r3546  
    1111
    12120 0 reg  \ So test-all will run the test
    13 : open  ( -- okay? )  true  ;
    14 : close  ( -- )  ;
    15 : lid?    ( -- flag )  d# 129 gpio-pin@  0=  ;
    16 : ebook?  ( -- flag )  d# 130 gpio-pin@  0=  ;
    1713
    18 : ?key-abort  ( -- )  key?  if  key esc =  abort" Aborted"  then  ;
    19 : wait-not-lid  ( -- )
    20    ." Deactivate lid switch" cr
    21    begin  ?key-abort  lid? 0=  until
    22 ;
    23 : wait-lid  ( -- )
    24    ." Activate lid switch" cr
    25    begin  ?key-abort  lid? until
    26 ;
    27 : wait-not-ebook  ( -- )
    28    ." Deactivate ebook switch" cr
    29    begin  ?key-abort  ebook? 0=  until
    30 ;
    31 : wait-ebook  ( -- )
    32    ." Activate ebook switch" cr
    33    begin  ?key-abort  ebook? until
    34 ;
     14: lid?    ( -- flag )  lid-switch-gpio# gpio-pin@  0=  ;
     15: ebook?  ( -- flag )  ebook-mode-gpio# gpio-pin@  0=  ;
    3516
    36 : all-switch-states  ( -- )
    37    lid?  if  wait-not-lid  else  wait-lid  then
    38    ebook?  if  wait-not-ebook  else  wait-ebook  then
    39 ;
    40 
    41 : selftest  ( -- error? )
    42    ['] all-switch-states catch
    43 ;
    44 
     17fload ${BP}/dev/olpc/lidtest.fth
    4518fload ${BP}/dev/olpc/lid.fth
    4619end-package
  • cpu/x86/pc/olpc/via/switches.fth

    r1800 r3546  
    440 0  " 0"  " /" begin-package
    55" switches" device-name
     6
    670 0 reg  \ So test-all will run the test
    7 : open  ( -- okay? )  true  ;
    8 : close  ( -- )  ;
     8
    99: lid?    ( -- flag )  h# 48 acpi-l@ h#  80 and 0=  ;
    1010: ebook?  ( -- flag )  h# 48 acpi-l@ h# 200 and 0=  ;
    1111
    12 : ?key-abort  ( -- )  key?  if  key esc =  abort" Aborted"  then  ;
    13 : wait-not-lid  ( -- )
    14    ." Deactivate lid switch" cr
    15    begin  ?key-abort  lid? 0=  until
    16 ;
    17 : wait-lid  ( -- )
    18    ." Activate lid switch" cr
    19    begin  ?key-abort  lid? until
    20 ;
    21 : wait-not-ebook  ( -- )
    22    ." Deactivate ebook switch" cr
    23    begin  ?key-abort  ebook? 0=  until
    24 ;
    25 : wait-ebook  ( -- )
    26    ." Activate ebook switch" cr
    27    begin  ?key-abort  ebook? until
    28 ;
    29 
    30 : all-switch-states  ( -- )
    31    lid?  if  wait-not-lid  else  wait-lid  then
    32    ebook?  if  wait-not-ebook  else  wait-ebook  then
    33 ;
    34 
    35 : selftest  ( -- error? )
    36    ['] all-switch-states catch
    37 ;
    38 
     12fload ${BP}/dev/olpc/lidtest.fth
    3913end-package
    4014
Note: See TracChangeset for help on using the changeset viewer.