Changeset 3326


Ignore:
Timestamp:
Sep 26, 2012, 5:48:31 AM (2 years ago)
Author:
quozl
Message:

OLPC XO-1 XO-1.75 XO-4 - fix broken XO-1 build, avoid core words in FCode camera driver on XO-1, and move image sensor probe into load file for XO-1.75 and XO-4.

Location:
dev/olpc
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • dev/olpc/imagesensor.fth

    r3235 r3326  
    1313   false 
    1414; 
     15 
    1516: set-sensor-properties  ( name$ i2c-addr -- ) 
    1617   my-self >r  0 to my-self 
    17    " /image-sensor" find-device  ( name$ i2c-addr ) 
    18       " reg" get-property  if    ( name$ i2c-addr ) 
    19          1 reg                   ( name$ ) 
    20          +compatible             ( ) 
    21       else                       ( name$ i2c-addr regval$ ) 
    22          2drop 3drop             ( ) 
    23       then 
    24    device-end 
     18   " /image-sensor" find-package  if       ( name$ i2c-addr phandle ) 
     19      " reg" rot get-package-property  if  ( name$ i2c-addr ) 
     20         1 reg                             ( name$ ) 
     21         encode-string  " compatible" property 
     22      else                                 ( name$ i2c-addr regval$ ) 
     23         2drop 3drop                       ( ) 
     24      then                                 ( ) 
     25   else                                    ( name$ i2c-addr ) 
     26      3drop                                ( ) 
     27   then                                    ( ) 
    2528   r> to my-self 
    2629; 
    27  
    28 also forth definitions 
    29 : probe-image-sensor  ( -- ) 
    30    " /camera" open-dev close-dev 
    31 ; 
    32 previous definitions 
  • dev/olpc/mmp2camera/loadpkg.fth

    r3289 r3326  
    4848   fload ${BP}/dev/olpc/cameratest.fth 
    4949end-package 
     50: probe-image-sensor  ( -- ) 
     51   " /camera" open-dev close-dev 
     52; 
Note: See TracChangeset for help on using the changeset viewer.