Changeset 2683


Ignore:
Timestamp:
Nov 14, 2011 4:24:06 AM (19 months ago)
Author:
quozl
Message:

OLPC - enable the keyboard interrupt on mechanical keyboards, using the del key, see #10318.

Files:
4 edited

Legend:

Unmodified
Added
Removed

  • cpu/arm/olpc/1.75/fw.bth

    r2676 r2683  
    286286fload ${BP}/dev/olpc/keyboard/selftest.fth   \ Keyboard diagnostic 
    287287device-end 
     288stand-init: Keyboard 
     289   " /ap-sp/keyboard" " set-keyboard-type" execute-device-method drop 
     290; 
    288291dev /ap-sp/mouse 
    289292fload ${BP}/dev/olpc/touchpad/syntpad.fth    \ Touchpad diagnostic 

  • cpu/x86/pc/olpc/sound.fth

    r2226 r2683  
    5757dev /keyboard 
    58580 value waiting-up? 
    59 : olpc-check-abort  ( scan-code -- abort? )  \ Square pressed? 
     59: olpc-check-abort  ( scan-code -- abort? )  \ an abort key pressed? 
    6060   last-scan   over to last-scan  ( scan-code old-scan-code ) 
    6161   h# e0 <>  if  drop false exit  then          ( scan-code ) 
    … …  
    6363   check-abort?  0=  if  drop false exit  then  ( scan-code ) 
    6464 
    65    dup h# 7f and  h# 5d <>  if  drop false exit then  ( scan-code ) 
     65   dup h# 7f and  abort-key <>  if  drop false exit then  ( scan-code ) 
    6666 
    6767   h# 80 and  if   \ Up 

  • cpu/x86/pc/olpc/via/fw.bth

    r2679 r2683  
    387387fload ${BP}/dev/olpc/keyboard/selftest.fth   \ Keyboard diagnostic 
    388388device-end 
     389stand-init: Keyboard 
     390   " /keyboard" " set-keyboard-type" execute-device-method drop 
     391; 
    389392fload ${BP}/dev/olpc/touchpad/touchpad.fth   \ Touchpad diagnostic 
    390393fload ${BP}/cpu/x86/pc/olpc/gridmap.fth      \ Gridded display tools 

  • dev/olpc/keyboard/selftest.fth

    r2500 r2683  
    1010\ This is 1 for the original rubber keyboard and 2 for the mechanical keyboard 
    11111 value keyboard-type 
     12 
     13\ Scan code of abort key 
     14h# 5d value abort-key 
    1215 
    1316\ There are two scancode tables: 
    … …  
    713716      " KM" find-tag  if                    ( adr len ) 
    714717         -null                              ( adr' len' ) 
    715          " olpcm" $=  if  2  else  1  then  ( type ) 
     718         " olpcm" $=  if 
     719            h# 53 to abort-key              \ del 
     720            2 
     721         else 
     722            1 
     723         then                               ( type ) 
    716724      else                                  ( ) 
    717725         1                                  ( type ) 
    … …  
    719727   then 
    720728   to keyboard-type 
     729; 
     730 
     731: use-keyboard-type  ( -- ) 
    721732   keyboard-type  case 
    722733 
    … …  
    734745 
    735746   set-keyboard-type 
     747   use-keyboard-type 
    736748 
    737749   make-keys 
Note: See TracChangeset for help on using the changeset viewer.