Changeset 3326

Timestamp:

Sep 26, 2012 5:48:31 AM (9 months 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:

• imagesensor.fth (modified) (1 diff)
• mmp2camera/loadpkg.fth (modified) (1 diff)

dev/olpc/imagesensor.fth

@@ -13 +13 @@
    false
 ;
+
 : set-sensor-properties  ( name$ i2c-addr -- )
    my-self >r  0 to my-self
-   " /image-sensor" find-device  ( name$ i2c-addr )
-      " reg" get-property  if    ( name$ i2c-addr )
-         1 reg                   ( name$ )
-         +compatible             ( )
-      else                       ( name$ i2c-addr regval$ )
-         2drop 3drop             ( )
-      then
-   device-end
+   " /image-sensor" find-package  if       ( name$ i2c-addr phandle )
+      " reg" rot get-package-property  if  ( name$ i2c-addr )
+         1 reg                             ( name$ )
+         encode-string  " compatible" property
+      else                                 ( name$ i2c-addr regval$ )
+         2drop 3drop                       ( )
+      then                                 ( )
+   else                                    ( name$ i2c-addr )
+      3drop                                ( )
+   then                                    ( )
    r> to my-self
 ;
-
-also forth definitions
-: probe-image-sensor  ( -- )
-   " /camera" open-dev close-dev
-;
-previous definitions

dev/olpc/mmp2camera/loadpkg.fth

@@ -48 +48 @@
    fload ${BP}/dev/olpc/cameratest.fth
 end-package
+: probe-image-sensor  ( -- )
+   " /camera" open-dev close-dev
+;