Changeset 3319

Timestamp:

Sep 21, 2012 12:11:33 AM (8 months ago)

Author:

quozl

Message:

OLPC XO-4 - Neonode, add support for numeric version comparisons in manufacturing scripts

File:

• cpu/arm/olpc/nn-touchscreen.fth (modified) (3 diffs)

cpu/arm/olpc/nn-touchscreen.fth

@@ -203 +203 @@
 ;
 
-: .version  ( addr -- )
-   pbuf 2+ c@ h# 1e <> abort" bad response"
+: .version  ( -- )
    pbuf 3 +  3 0  do                    ( addr )
       (.version) 2+
@@ -215 +214 @@
    h# 1e h# 01 h# ee  3 bytes-out
    h# 1e d# 30 anticipate
+   pbuf 2+ c@ h# 1e <> abort" bad response"
 ;
 
@@ -222 +222 @@
    .version
    cr
+;
+
+: get-version  ( -- version.d )
+   (version)
+   pbuf 9 + le-w@  pbuf 7 + le-w@ wljoin  pbuf 5 + le-w@ pbuf 3 + le-w@ wljoin
 ;