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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
#include <jni.h>
#include <gu/utf8.h>
#include <gu/string.h>
#include <pgf/pgf.h>
#include <pgf/linearizer.h>
#include "jni_utils.h"
#ifndef __MINGW32__
#include <alloca.h>
#else
#include <malloc.h>
#endif
#define l2p(x) ((void*) (intptr_t) (x))
#define p2l(x) ((jlong) (intptr_t) (x))
JPGF_INTERNAL jstring
gu2j_string(JNIEnv *env, GuString s) {
const char* utf8 = s;
size_t len = strlen(s);
jchar* utf16 = alloca(len*sizeof(jchar));
jchar* dst = utf16;
while (s-utf8 < len) {
GuUCS ucs = gu_utf8_decode((const uint8_t**) &s);
if (ucs <= 0xFFFF) {
*dst++ = ucs;
} else {
ucs -= 0x10000;
*dst++ = 0xD800+((ucs >> 10) & 0x3FF);
*dst++ = 0xDC00+(ucs & 0x3FF);
}
}
return (*env)->NewString(env, utf16, dst-utf16);
}
JPGF_INTERNAL jstring
gu2j_string_len(JNIEnv *env, const char* s, size_t len) {
const char* utf8 = s;
jchar* utf16 = alloca(len*sizeof(jchar));
jchar* dst = utf16;
while (s-utf8 < len) {
GuUCS ucs = gu_utf8_decode((const uint8_t**) &s);
if (ucs <= 0xFFFF) {
*dst++ = ucs;
} else {
ucs -= 0x10000;
*dst++ = 0xD800+((ucs >> 10) & 0x3FF);
*dst++ = 0xDC00+(ucs & 0x3FF);
}
}
return (*env)->NewString(env, utf16, dst-utf16);
}
JPGF_INTERNAL jstring
gu2j_string_buf(JNIEnv *env, GuStringBuf* sbuf) {
return gu2j_string_len(env, gu_string_buf_data(sbuf), gu_string_buf_length(sbuf));
}
JPGF_INTERNAL jstring
gu2j_string_capit(JNIEnv *env, GuString s, PgfCapitState capit) {
const char* utf8 = s;
size_t len = strlen(s);
jchar* utf16 = alloca(len*sizeof(jchar));
jchar* dst = utf16;
while (s-utf8 < len) {
GuUCS ucs = gu_utf8_decode((const uint8_t**) &s);
if (capit == PGF_CAPIT_FIRST) {
ucs = gu_ucs_to_upper(ucs);
capit = PGF_CAPIT_NONE;
} else if (capit == PGF_CAPIT_NEXT) {
ucs = gu_ucs_to_upper(ucs);
}
if (ucs <= 0xFFFF) {
*dst++ = ucs;
} else {
ucs -= 0x10000;
*dst++ = 0xD800+((ucs >> 10) & 0x3FF);
*dst++ = 0xDC00+(ucs & 0x3FF);
}
}
return (*env)->NewString(env, utf16, dst-utf16);
}
JPGF_INTERNAL GuString
j2gu_string(JNIEnv *env, jstring s, GuPool* pool) {
GuString str = (*env)->GetStringUTFChars(env, s, 0);
GuString copy = gu_string_copy(str, pool);
(*env)->ReleaseStringUTFChars(env, s, str);
return copy;
}
JPGF_INTERNAL size_t
gu2j_string_offset(GuString s, size_t offset) {
const char* utf8 = s;
size_t joffset = 0;
while (utf8-s < offset) {
gu_utf8_decode((const uint8_t**) &utf8);
joffset++;
}
return joffset;
}
JPGF_INTERNAL size_t
j2gu_string_offset(GuString s, size_t joffset) {
const char* utf8 = s;
while (joffset > 0) {
gu_utf8_decode((const uint8_t**) &utf8);
joffset--;
}
return utf8-s;
}
JPGF_INTERNAL void*
get_ref(JNIEnv *env, jobject self) {
jfieldID refId = (*env)->GetFieldID(env, (*env)->GetObjectClass(env, self), "ref", "J");
return l2p((*env)->GetLongField(env, self, refId));
}
JPGF_INTERNAL void
throw_jstring_exception(JNIEnv *env, const char* class_name, jstring msg)
{
jclass exception_class = (*env)->FindClass(env, class_name);
if (!exception_class)
return;
jmethodID constrId = (*env)->GetMethodID(env, exception_class, "<init>", "(Ljava/lang/String;)V");
if (!constrId)
return;
jobject exception = (*env)->NewObject(env, exception_class, constrId, msg);
if (!exception)
return;
(*env)->Throw(env, exception);
}
JPGF_INTERNAL void
throw_string_exception(JNIEnv *env, const char* class_name, const char* msg)
{
jstring jmsg = (*env)->NewStringUTF(env, msg);
if (!jmsg)
return;
throw_jstring_exception(env, class_name, jmsg);
}
|
