Mercurial > vba-clojure

     1 #include "com_aurellem_gb_Gb.h"

     2 #include "../sdl/Drive.h"

     3 #include "../gb/GB.h"

     4 

     5 

     6 #include <string.h>

     7 

     8 #define UNUSED(x)  (void)(x)

     9 

    10 

    11 /*

    12  * Class:     com_aurellem_gb_Gb

    13  * Method:    sayHello

    14  * Signature: ()V

    15  */

    16 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_sayHello

    17 (JNIEnv *env, jclass clazz){

    18   UNUSED(env);UNUSED(clazz);

    19   printf("Hello from GB\n");  

    20 }

    21 

    22 /*

    23  * Class:     com_aurellem_gb_Gb

    24  * Method:    startEmulator

    25  * Signature: (Ljava/lang/String;)V

    26  */

    27 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_startEmulator

    28 (JNIEnv *env, jclass clazz, jstring str){

    29   UNUSED(clazz);

    30 

    31   const char *_romName = env->GetStringUTFChars(str, 0);

    32   size_t len = strlen(_romName);

    33   

    34   char romName[len + 1];

    35 

    36   strcpy(romName, _romName);

    37  

    38   char* arguments[] = {"vba-rlm", romName};

    39   runVBA(2, arguments);

    40 }

    41 

    42 

    43 

    44 

    45 /*

    46  * Class:     com_aurellem_gb_Gb

    47  * Method:    step

    48  * Signature: ()V

    49  */

    50 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_step

    51 (JNIEnv *env, jclass clazz){

    52   step();

    53 }

    54 

    55 /*

    56  * Class:     com_aurellem_gb_Gb

    57  * Method:    step

    58  * Signature: (I)V

    59  */

    60 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_nstep

    61 (JNIEnv *env, jclass clazz, jint keymask){

    62   step(keymask);

    63 }

    64 

    65 /*

    66  * Class:     com_aurellem_gb_Gb

    67  * Method:    ntick

    68  * Signature: ()I

    69  */

    70 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_ntick

    71 (JNIEnv *env, jclass clazz){

    72   return tick();

    73 

    74 }

    75 

    76 

    77 /*

    78  * Class:     com_aurellem_gb_Gb

    79  * Method:    shutdown

    80  * Signature: ()V

    81  */

    82 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_shutdown

    83 (JNIEnv *env, jclass clazz){

    84   shutdown();

    85 

    86 }

    87 

    88 /*

    89  * Class:     com_aurellem_gb_Gb

    90  * Method:    saveState

    91  * Signature: (Ljava/nio/ByteBuffer;I)J

    92  */

    93 JNIEXPORT jlong JNICALL Java_com_aurellem_gb_Gb_saveState

    94 (JNIEnv *env, jclass clazz, jobject buffer, jint size){

    95   char* buffer_address = 

    96     ((char*) env->GetDirectBufferAddress(buffer));

    97   long limit = gbWriteMemSaveStatePos(buffer_address, size);

    98   return limit;

    99 }

   100 

   101 /*

   102  * Class:     com_aurellem_gb_Gb

   103  * Method:    loadState

   104  * Signature: (Ljava/nio/ByteBuffer;)V

   105  */

   106 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_loadState

   107 (JNIEnv *env, jclass clazz, jobject buffer, jint size){

   108   char* buffer_address = 

   109     ((char*) env->GetDirectBufferAddress(buffer));

   110   gbReadMemSaveState(buffer_address, size);

   111 }

   112 

   113 

   114 /*

   115  * Class:     com_aurellem_gb_Gb

   116  * Method:    getROMSize

   117  * Signature: ()I

   118  */

   119 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_getROMSize

   120 (JNIEnv *env, jclass clazz){

   121   return getRomSize();

   122 }

   123 

   124 /*

   125  * Class:     com_aurellem_gb_Gb

   126  * Method:    getRAMSize

   127  * Signature: ()I

   128  */

   129 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_getRAMSize

   130 (JNIEnv *env, jclass clazz){

   131   return getRamSize();

   132 }

   133 

   134 

   135 /*

   136  * Class:     com_aurellem_gb_Gb

   137  * Method:    getMemory

   138  * Signature: ([I)V

   139  */

   140 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getMemory

   141 (JNIEnv *env, jclass clazz, jintArray arr){

   142   jint *mem_store = env->GetIntArrayElements(arr, 0);

   143   storeMemory(mem_store);

   144   env->ReleaseIntArrayElements(arr, mem_store, 0);

   145 }

   146 

   147 /*

   148  * Class:     com_aurellem_gb_Gb

   149  * Method:    writeMemory

   150  * Signature: ([I)V

   151  */

   152 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_writeMemory

   153 (JNIEnv *env, jclass clazz, jintArray arr){

   154   jint *new_memory = env->GetIntArrayElements(arr, 0);

   155   writeMemory(new_memory);

   156   env->ReleaseIntArrayElements(arr, new_memory, 0);

   157 }

   158 

   159 

   160 /*

   161  * Class:     com_aurellem_gb_Gb

   162  * Method:    getRAM

   163  * Signature: ([I)V

   164  */

   165 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getRAM

   166 (JNIEnv *env, jclass clazz, jintArray arr){

   167   jint *ram_store = env->GetIntArrayElements(arr, 0);

   168   storeRam(ram_store);

   169   env->ReleaseIntArrayElements(arr, ram_store, 0);

   170 }

   171 

   172 

   173 /*

   174  * Class:     com_aurellem_gb_Gb

   175  * Method:    getROM

   176  * Signature: ([I)V

   177  */

   178 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getROM

   179 (JNIEnv *env, jclass clazz, jintArray arr){

   180   jint *rom_store = env->GetIntArrayElements(arr, 0);

   181   storeRom(rom_store);

   182   env->ReleaseIntArrayElements(arr, rom_store, 0);

   183 }

   184 

   185 

   186 /*

   187  * Class:     com_aurellem_gb_Gb

   188  * Method:    writeROM

   189  * Signature: ([I)V

   190  */

   191 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_writeROM

   192 (JNIEnv *env, jclass clazz, jintArray arr){

   193   jint *new_rom = env->GetIntArrayElements(arr, 0);

   194   writeRom(new_rom);

   195   env->ReleaseIntArrayElements(arr, new_rom, 0);

   196 }

   197 

   198 

   199 

   200 /*

   201  * Class:     com_aurellem_gb_Gb

   202  * Method:    getWRAM

   203  * Signature: ([I)V

   204  */

   205 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getWRAM

   206 (JNIEnv *env, jclass clazz, jintArray arr){

   207   jint *ram_store = env->GetIntArrayElements(arr, 0);

   208   storeWRam(ram_store);

   209   env->ReleaseIntArrayElements(arr, ram_store, 0);

   210 }

   211 

   212 

   213 /*

   214  * Class:     com_aurellem_gb_Gb

   215  * Method:    getVRAM

   216  * Signature: ([I)V

   217  */

   218 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getVRAM

   219 (JNIEnv *env, jclass clazz, jintArray arr){

   220   jint *ram_store = env->GetIntArrayElements(arr, 0);

   221   storeVRam(ram_store);

   222   env->ReleaseIntArrayElements(arr, ram_store, 0);

   223 }

   224 

   225 

   226 /*

   227  * Class:     com_aurellem_gb_Gb

   228  * Method:    getRegisters

   229  * Signature: ([I)V

   230  */

   231 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getRegisters

   232 (JNIEnv *env, jclass clazz, jintArray arr){

   233   jint *registers_store = env->GetIntArrayElements(arr, 0);

   234   storeRegisters(registers_store);

   235   env->ReleaseIntArrayElements(arr, registers_store, 0);

   236 }

   237 

   238 

   239 /*

   240  * Class:     com_aurellem_gb_Gb

   241  * Method:    writeRegisters

   242  * Signature: ([I)V

   243  */

   244 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_writeRegisters

   245 (JNIEnv *env, jclass clazz, jintArray arr){

   246   jint *new_registers = env->GetIntArrayElements(arr, 0);

   247   setRegisters(new_registers);

   248   env->ReleaseIntArrayElements(arr, new_registers, 0);

   249 }

   250 

   251 

   252 int intensity[32] = {

   253   0x00, 0x10, 0x20, 0x30, 0x40, 0x50, 0x5e, 0x6c, 0x7a, 0x88, 0x94,

   254   0xa0, 0xae, 0xb7, 0xbf, 0xc6, 0xce, 0xd3, 0xd9, 0xdf, 0xe3, 0xe7,

   255   0xeb, 0xef, 0xf3, 0xf6, 0xf9, 0xfb, 0xfd, 0xfe, 0xff, 0xff };

   256 

   257 int influence[3][3] = 

   258   {

   259     {16,4,4},

   260     {8,16,8},

   261     {0,8,16}

   262   };

   263 

   264 int* translateRGB(int* rgb, int* store){

   265 

   266   int	m[3][3];

   267   int	i,j;

   268 

   269   for (i=0;i<3;i++){

   270     for (j=0;j<3;j++){

   271       m[i][j] = (intensity[rgb[i]>>3]*influence[i][j]) >> 5;}}

   272 

   273   for (i=0;i<3;i++)

   274     {

   275       if (m[0][i]>m[1][i])

   276  	{

   277  	  j=m[0][i]; 

   278  	  m[0][i]=m[1][i]; 

   279  	  m[1][i]=j;

   280  	}

   281 

   282       if (m[1][i]>m[2][i])

   283  	{

   284  	  j=m[1][i]; 

   285  	  m[1][i]=m[2][i]; 

   286  	  m[2][i]=j;

   287  	}

   288 

   289       if (m[0][i]>m[1][i])

   290  	{

   291  	  j=m[0][i]; 

   292  	  m[0][i]=m[1][i]; 

   293  	  m[1][i]=j;

   294  	}

   295 

   296       store[i]=(((m[0][i]+m[1][i]*2+m[2][i]*4)*5) >> 4)+32;

   297     }

   298   return store;

   299 }

   300 

   301 /*

   302  * Class:     com_aurellem_gb_Gb

   303  * Method:    translateRGB

   304  * Signature: ([I[I)V

   305  */

   306 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_translateRGB

   307 (JNIEnv *env, jclass clazz, jintArray rgb, jintArray store){

   308   jint *RGB_Arr = env->GetIntArrayElements(rgb, 0);

   309   jint *store_Arr = env->GetIntArrayElements(store,0);

   310   translateRGB(RGB_Arr, store_Arr);

   311   env->ReleaseIntArrayElements(rgb, RGB_Arr, 0);

   312   env->ReleaseIntArrayElements(store, store_Arr, 0);

   313 }

   314 

   315 

   316 /*

   317  * Class:     com_aurellem_gb_Gb

   318  * Method:    getPixels

   319  * Signature: ([I)V

   320  */

   321 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getPixels

   322 (JNIEnv *env, jclass clazz, jintArray arr){

   323   jint *pixel_store = env->GetIntArrayElements(arr, 0);

   324   getPixels32(pixel_store);

   325   env->ReleaseIntArrayElements(arr, pixel_store, 0);

   326 }

   327 

   328 /*

   329  * Class:     com_aurellem_gb_Gb

   330  * Method:    nwritePNG

   331  * Signature: (Ljava/lang/String;)V

   332  */

   333 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_nwritePNG

   334 (JNIEnv *env, jclass clazz, jstring filename){

   335   const char *_filename = env->GetStringUTFChars(filename, 0);

   336   gbWritePNGFile(_filename);

   337 }

   338 

   339   

   340 

   341 /*

   342  * Class:     com_aurellem_gb_Gb

   343  * Method:    readMemory

   344  * Signature: (I)I

   345  */

   346 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_readMemory

   347 (JNIEnv *env, jclass clazz, jint address){

   348   return (jint) gbReadMemory((u16) address); 

   349 }

   350 

   351 /*

   352  * Class:     com_aurellem_gb_Gb

   353  * Method:    getFrameSound

   354  * Signature: ([B)V

   355  */

   356 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getFrameSound

   357 (JNIEnv *env, jclass clazz, jbyteArray arr){

   358   jbyte *sound_store = env->GetByteArrayElements(arr, 0);

   359   int i;

   360 

   361   

   362   u8* soundBytes = (u8*) soundFrameSound;

   363   for (i = 0; i < 44100*2; i++){

   364     sound_store[i] = (jbyte) soundBytes[i];

   365   }

   366   

   367   /*

   368   u8* soundBytes = (u8*) soundFinalWave;

   369   for (i = 0; i < 1470*2 ; i++){

   370     sound_store[i] = (jbyte) soundBytes[i];

   371   }

   372   */

   373 

   374   env->ReleaseByteArrayElements(arr, sound_store, 0);

   375 }

   376 

   377 

   378 /*

   379  * Class:     com_aurellem_gb_Gb

   380  * Method:    getSoundFrameWritten

   381  * Signature: ()I

   382  */

   383 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_getSoundFrameWritten

   384   (JNIEnv *env, jclass clazz){

   385   return soundFrameSoundWritten;

   386 }

   387 

   388 /*

   389  * Class:     com_aurellem_gb_Gb

   390  * Method:    setSoundFrameWritten

   391  * Signature: (I)V

   392  */

   393 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_setSoundFrameWritten

   394 (JNIEnv *env, jclass clazz , jint newSoundFrameWritten){

   395   soundFrameSoundWritten = newSoundFrameWritten;

   396 }

   397 

   398 

   399 /*

   400  * Class:     com_aurellem_gb_Gb

   401  * Method:    getFrameSound2

   402  * Signature: ([B)V

   403  */

   404 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getFrameSound2

   405 (JNIEnv *env, jclass clazz, jbyteArray arr){

   406   setbuf(stdout, NULL);

   407 

   408   jbyte *sound_store = env->GetByteArrayElements(arr, 0);

   409   int i;

   410 

   411   for (i = 0; i < 1470*2; i++){

   412     sound_store[i] = (jbyte) soundCopyBuffer[i];

   413   }

   414   

   415   env->ReleaseByteArrayElements(arr, sound_store, 0);

   416 

   417 }
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 01 Sep 2012 09:43:19 -0500
parents	fa7676dbf6f2
children