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.759 |
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 | ." Tme: " getTime d. cr ." Acc: " getAccuracy f. cr THEN o> ; : .sensor ( -- ) sensor >o o 0= IF ." unknown" | | | | 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 | 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 $@ ; | > | | | | | | | | | | | | | | | | | 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 | ." Tme: " getTime d. cr ." Acc: " getAccuracy f. cr THEN o> ; : .sensor ( -- ) sensor >o o 0= IF ." unknown" | | | | 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 |