divorce/gzz-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

created mirror

Browse Source
This commit is contained in:
whatever
2026-09-14 20:19:29 -04:00
commit 6764738d92
600 changed files with 87187 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Java/script/ZZScriptPerl.cpp Normal file
View File

@@ -0,0 +1,55 @@
#include <jni.h>
#include "ZZId.h"
#include "ZZScriptAPI_1_JNI.h"
#include "zzfoo.h"
static jclass zzspclass;
static jfieldID ptrid;
extern "C" {
JNIEXPORT void JNICALL Java_fi_iki_lukka_ZZScriptPerl_init
(JNIEnv *env, jobject foo)
{
if(!zzspclass)
zzspclass = (jclass)env->NewGlobalRef(env->GetObjectClass(foo));
ptrid = env->GetFieldID(zzspclass, "ptr", "J");
if(!ptrid) abort();
ZZScriptAPI_1_0_JNI *j = new ZZScriptAPI_1_0_JNI(env);
zzperl_init(j);
env->SetLongField(foo, ptrid, (jlong)j);
}
JNIEXPORT void JNICALL Java_fi_iki_lukka_ZZScriptPerl_call
(JNIEnv *env, jobject foo, jstring code0, jobject view0, jobject
cview0, jobject scr0, jobject cur0, jstring dimx0, jstring dimy0)
{
printf("ENTERING PERLCALL\n");
ZZScriptAPI_1_0_JNI *j = (ZZScriptAPI_1_0_JNI *) env->GetLongField(foo, ptrid);
if(!j) abort();
char *code = (char *)env->GetStringUTFChars(code0, 0);
char *dimx = (char *)env->GetStringUTFChars(dimx0, 0);
char *dimy = (char *)env->GetStringUTFChars(dimy0, 0);
zzperl_call(code, (long)view0, (long)cview0, (long)scr0, (long)cur0, dimx, dimy);
env->ReleaseStringUTFChars(code0,code);
env->ReleaseStringUTFChars(dimx0,dimx);
env->ReleaseStringUTFChars(dimy0,dimy);
printf("RETURNING FROM PERLCALL\n");
}
JNINativeMethod ms[2] = {
{ "init", "()V", Java_fi_iki_lukka_ZZScriptPerl_init },
{ "call", "(Ljava/lang/String;Lfi/iki/lukka/ZZCell;Lfi/iki/lukka/ZZCell;Lfi/iki/lukka/ZZCell;Lfi/iki/lukka/ZZCell;Ljava/lang/String;Ljava/lang/String;)V",
Java_fi_iki_lukka_ZZScriptPerl_call }
};
void zsp_install(JNIEnv *env) {
zzspclass = env->FindClass("fi/iki/lukka/ZZScriptPerl");
if(!zzspclass) abort();
zzspclass = (jclass)env->NewGlobalRef(zzspclass);
env->RegisterNatives(zzspclass, ms, 2);
}
}