Check-in [3874dedc13]
Not logged in

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: 3874dedc13b8fb054ca90c191e1d3d1a520ea9ee
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