Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Delete references |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3874dedc13b8fb054ca90c191e1d3d1a |
| User & Date: | bernd 2014-01-13 15:34:14 |
Context
|
2014-01-16
| ||
| 16:23 | Sensor stuff check-in: f4dd8495bc user: bernd tags: trunk | |
|
2014-01-13
| ||
| 15:34 | Delete references check-in: 3874dedc13 user: bernd tags: trunk | |
| 03:06 | Made clear that delay may mean us check-in: 49c4425922 user: bernd tags: trunk | |
Changes
Changes to gles2/jni-location.fs.
124 125 126 127 128 129 130 131 132 133 134 135 |
." Tme: " getTime d. cr
." Acc: " getAccuracy f. cr
THEN
o> ;
: .sensor ( -- ) sensor >o
o 0= IF ." unknown"
ELSE se-values
[f@ bounds DO I sf@ f. 1 sfloats +LOOP
THEN cr o> ;
previous previous
|
| | |
124 125 126 127 128 129 130 131 132 133 134 135 |
." Tme: " getTime d. cr
." Acc: " getAccuracy f. cr
THEN
o> ;
: .sensor ( -- ) sensor >o
o 0= IF ." unknown"
ELSE
se-values [f@ bounds DO I sf@ f. 1 sfloats +LOOP
THEN cr o> ;
previous previous
|
Changes to gles2/jni-tools.fs.
230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 |
cstring@1 'sfield@ + @ compile, postpone ; ;
\ array access: you can access one array at a time
Variable jnibuffer
: [len ( array -- n ) env tuck JNIEnv-GetArrayLength() ;
: >buffer ( size -- buffer ) jnibuffer $!len jnibuffer $@ drop ;
: buffer@ ( -- addr u ) jnibuffer $@ ;
: [z@ ( array -- addr n ) env swap 0 over [len dup >buffer
env JNIEnv-GetBooleanArrayRegion() buffer@ ;
: [b@ ( array -- addr n ) env swap 0 over [len dup >buffer
env JNIEnv-GetByteArrayRegion() buffer@ ;
: [c@ ( array -- addr n ) env swap 0 over [len dup 2* >buffer
env JNIEnv-GetCharArrayRegion() buffer@ ;
: [s@ ( array -- addr n ) env swap 0 over [len dup 2* >buffer
env JNIEnv-GetShortArrayRegion() buffer@ ;
: [i@ ( array -- addr n ) env swap 0 over [len dup sfloats >buffer
env JNIEnv-GetIntArrayRegion() buffer@ ;
: [j@ ( array -- addr n ) env swap 0 over [len dup dfloats >buffer
env JNIEnv-GetLongArrayRegion() buffer@ ;
: [f@ ( array -- addr n ) env swap 0 over [len dup sfloats >buffer
env JNIEnv-GetFloatArrayRegion() buffer@ ;
: [d@ ( array -- addr n ) env swap 0 over [len dup dfloats >buffer
env JNIEnv-GetDoubleArrayRegion() buffer@ ;
previous previous set-current
|
> | | | | | | | | | | | | | | | | |
230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 |
cstring@1 'sfield@ + @ compile, postpone ; ;
\ array access: you can access one array at a time
Variable jnibuffer
: [len ( array -- n ) env tuck JNIEnv-GetArrayLength() ;
: ]ref ( array -- ) env tuck JNIEnv-DeleteLocalRef() ;
: >buffer ( size -- buffer ) jnibuffer $!len jnibuffer $@ drop ;
: buffer@ ( -- addr u ) jnibuffer $@ ;
: [z@ ( array -- addr n ) >r env r@ 0 r@ [len dup >buffer
env JNIEnv-GetBooleanArrayRegion() buffer@ r> ]ref ;
: [b@ ( array -- addr n ) >r env r@ 0 r@ [len dup >buffer
env JNIEnv-GetByteArrayRegion() buffer@ r> ]ref ;
: [c@ ( array -- addr n ) >r env r@ 0 r@ [len dup 2* >buffer
env JNIEnv-GetCharArrayRegion() buffer@ r> ]ref ;
: [s@ ( array -- addr n ) >r env r@ 0 r@ [len dup 2* >buffer
env JNIEnv-GetShortArrayRegion() buffer@ r> ]ref ;
: [i@ ( array -- addr n ) >r env r@ 0 r@ [len dup sfloats >buffer
env JNIEnv-GetIntArrayRegion() buffer@ r> ]ref ;
: [j@ ( array -- addr n ) >r env r@ 0 r@ [len dup dfloats >buffer
env JNIEnv-GetLongArrayRegion() buffer@ r> ]ref ;
: [f@ ( array -- addr n ) >r env r@ 0 r@ [len dup sfloats >buffer
env JNIEnv-GetFloatArrayRegion() buffer@ r> ]ref ;
: [d@ ( array -- addr n ) >r env r@ 0 r@ [len dup dfloats >buffer
env JNIEnv-GetDoubleArrayRegion() buffer@ r> ]ref ;
previous previous set-current
|
Changes to jni-location.fs.
124 125 126 127 128 129 130 131 132 133 134 135 |
." Tme: " getTime d. cr
." Acc: " getAccuracy f. cr
THEN
o> ;
: .sensor ( -- ) sensor >o
o 0= IF ." unknown"
ELSE se-values
[f@ bounds DO I sf@ f. 1 sfloats +LOOP
THEN cr o> ;
previous previous
|
| | |
124 125 126 127 128 129 130 131 132 133 134 135 |
." Tme: " getTime d. cr
." Acc: " getAccuracy f. cr
THEN
o> ;
: .sensor ( -- ) sensor >o
o 0= IF ." unknown"
ELSE
se-values [f@ bounds DO I sf@ f. 1 sfloats +LOOP
THEN cr o> ;
previous previous
|