Changeset 3546


Ignore:
Timestamp:
Feb 14, 2013, 2:07:23 AM (21 months 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.