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 +