Changeset 3332


Ignore:
Timestamp:
Sep 27, 2012, 2:23:30 AM (19 months ago)
Author:
quozl
Message:

OLPC XO-1.75 XO-4 - image sensor properties were applied to camera, move them to the image sensor node, related r3330 and r3326.

Location:
dev/olpc
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • dev/olpc/imagesensor.fth

    r3330 r3332  
    1313   false 
    1414; 
    15  
    16 : set-sensor-properties  ( name$ i2c-addr -- ) 
    17    " /image-sensor" find-package  if       ( name$ i2c-addr phandle ) 
    18       " reg" rot get-package-property  if  ( name$ i2c-addr ) 
    19          1 reg                             ( name$ ) 
    20          encode-string  " compatible" property 
    21       else                                 ( name$ i2c-addr regval$ ) 
    22          2drop 3drop                       ( ) 
    23       then                                 ( ) 
    24    else                                    ( name$ i2c-addr ) 
    25       3drop                                ( ) 
    26    then                                    ( ) 
    27 ; 
  • dev/olpc/mmp2camera/loadpkg.fth

    r3326 r3332  
    4141   fload ${BP}/dev/olpc/mmp2camera/platform.fth 
    4242   fload ${BP}/dev/olpc/imagesensor.fth 
     43 
     44   : set-sensor-properties  ( name$ i2c-addr -- ) 
     45      my-self >r  0 to my-self 
     46      " /image-sensor" find-device  ( name$ i2c-addr ) 
     47      " reg" get-property  if       ( name$ i2c-addr ) 
     48         1 reg                      ( name$ ) 
     49         +compatible                ( ) 
     50      else                          ( name$ i2c-addr regval$ ) 
     51         2drop 3drop                ( ) 
     52      then 
     53      device-end 
     54      r> to my-self 
     55   ; 
     56 
    4357   warning @ warning off 
    4458   fload ${BP}/dev/olpc/ov7670.fth 
Note: See TracChangeset for help on using the changeset viewer.