1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
%include "../xtract.i"
%include "arrays_java.i"
/*
%{
int mean(const float *data, const int N, void *in, float *result) {
return xtract_mean(data, N, in, result);
}
%}
*/
%apply float[] {const float *data};
/*%apply void *in {const void *argv}; */
%apply float *OUTPUT { float *result };
%typemap(in,numinputs=0) JNIEnv *env "$1 = jenv;"
%javamethodmodifiers arr2voidf "private";
%javamethodmodifiers arr2voidi "private";
%javamethodmodifiers freearrf "private";
%javamethodmodifiers freearri "private";
%inline %{
jlong arr2voidf(JNIEnv *env, jfloatArray arr) {
void *ptr = (*env)->GetFloatArrayElements(env, arr, NULL);
return (intptr_t)ptr;
}
void freearrf(JNIEnv *env, jfloatArray arr, jlong map) {
void *ptr = 0;
ptr = *(void **)↦
(*env)->ReleaseFloatArrayElements(env, arr, ptr, JNI_ABORT);
}
jlong arr2voidi(JNIEnv *env, jintArray arr) {
void *ptr = (*env)->GetIntArrayElements(env, arr, NULL);
return (intptr_t)ptr;
}
void freearri(JNIEnv *env, jintArray arr, jlong map) {
void *ptr = 0;
ptr = *(void **)↦
(*env)->ReleaseIntArrayElements(env, arr, ptr, JNI_ABORT);
}
%}
%pragma(java) modulecode=%{
private static long arrPtr(Object o) {
if (o instanceof float[]) {
return arr2voidf((float[])o);
}
else if (o instanceof int[]) {
return arr2voidi((int[])o);
}
else if (o == null) {
return 0L;
}
throw new IllegalArgumentException();
}
private static void freeArrPtr(Object o, long addr) {
if (o instanceof float[]) {
freearrf((float[])o, addr);
return;
}
else if (o instanceof int[]) {
freearri((int[])o, addr);
return;
}
else if (o == null) {
return;
}
throw new IllegalArgumentException();
}
%}
%typemap(jstype) void *argv "Object"
%typemap(javain,pre=" long tmp$javainput = arrPtr($javainput);",post=" freeArrPtr($javainput, tmp$javainput);") void *argv "tmp$javainput"
/*
int xtract_mean(const float *data, const int N, void *argv, float *result);
int xtract_variance(const float *data, const int N, void *argv, float *result);
*/
%include xtract_redeclare.i
/*%{
#include "xtract/xtract_scalar.h"
%}*/
|