Mercurial > vba-clojure
diff src/clojure/clojure.cpp @ 523:d00096b6bf17
added sound introspection abilities.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 23 Jun 2012 20:34:14 -0500 |
parents | 5596cd4a3fc6 |
children | 7ef5c73ea8fa |
line wrap: on
line diff
1.1 --- a/src/clojure/clojure.cpp Sat Jun 23 19:12:26 2012 -0500 1.2 +++ b/src/clojure/clojure.cpp Sat Jun 23 20:34:14 2012 -0500 1.3 @@ -347,3 +347,41 @@ 1.4 (JNIEnv *env, jclass clazz, jint address){ 1.5 return (jint) gbReadMemory((u16) address); 1.6 } 1.7 + 1.8 + 1.9 +/* 1.10 + * Class: com_aurellem_gb_Gb 1.11 + * Method: getFrameSound 1.12 + * Signature: ([I)V 1.13 + */ 1.14 +JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getFrameSound 1.15 +(JNIEnv *env, jclass clazz, jintArray arr){ 1.16 + jint *sound_store = env->GetIntArrayElements(arr, 0); 1.17 + int i; 1.18 + for (i = 0; i < 44100; i++){ 1.19 + sound_store[i] = (jint) soundFrameSound[i]; 1.20 + } 1.21 + env->ReleaseIntArrayElements(arr, sound_store, 0); 1.22 +} 1.23 + 1.24 + 1.25 +/* 1.26 + * Class: com_aurellem_gb_Gb 1.27 + * Method: getSoundFrameWritten 1.28 + * Signature: ()I 1.29 + */ 1.30 +JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_getSoundFrameWritten 1.31 + (JNIEnv *env, jclass clazz){ 1.32 + return soundFrameSoundWritten; 1.33 +} 1.34 + 1.35 +/* 1.36 + * Class: com_aurellem_gb_Gb 1.37 + * Method: setSoundFrameWritten 1.38 + * Signature: (I)V 1.39 + */ 1.40 +JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_setSoundFrameWritten 1.41 +(JNIEnv *env, jclass clazz , jint newSoundFrameWritten){ 1.42 + soundFrameSoundWritten = newSoundFrameWritten; 1.43 +} 1.44 +