Mercurial > vba-clojure

comparison src/clojure/clojure.cpp @ 523:d00096b6bf17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added sound introspection abilities.
author Robert McIntyre <rlm@mit.edu>
date Sat, 23 Jun 2012 20:34:14 -0500
parents 5596cd4a3fc6
children 7ef5c73ea8fa
comparison
equal deleted inserted replaced
522:5596cd4a3fc6 523:d00096b6bf17
345 */ 345 */
346 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_readMemory 346 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_readMemory
347 (JNIEnv *env, jclass clazz, jint address){ 347 (JNIEnv *env, jclass clazz, jint address){
348 return (jint) gbReadMemory((u16) address); 348 return (jint) gbReadMemory((u16) address);
349 } 349 }
350
351
352 /*
353 * Class: com_aurellem_gb_Gb
354 * Method: getFrameSound
355 * Signature: ([I)V
356 */
357 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getFrameSound
358 (JNIEnv *env, jclass clazz, jintArray arr){
359 jint *sound_store = env->GetIntArrayElements(arr, 0);
360 int i;
361 for (i = 0; i < 44100; i++){
362 sound_store[i] = (jint) soundFrameSound[i];
363 }
364 env->ReleaseIntArrayElements(arr, sound_store, 0);
365 }
366
367
368 /*
369 * Class: com_aurellem_gb_Gb
370 * Method: getSoundFrameWritten
371 * Signature: ()I
372 */
373 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_getSoundFrameWritten
374 (JNIEnv *env, jclass clazz){
375 return soundFrameSoundWritten;
376 }
377
378 /*
379 * Class: com_aurellem_gb_Gb
380 * Method: setSoundFrameWritten
381 * Signature: (I)V
382 */
383 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_setSoundFrameWritten
384 (JNIEnv *env, jclass clazz , jint newSoundFrameWritten){
385 soundFrameSoundWritten = newSoundFrameWritten;
386 }
387