Mercurial > vba-clojure

annotate src/clojure/clojure.cpp @ 490:151c96d60921

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
edit to image.clj
author Robert McIntyre <rlm@mit.edu>
date Mon, 11 Jun 2012 00:53:20 -0500
parents 09b3bc0b71b5
children a6d060a64246
rev   line source
rlm@49 1 #include "com_aurellem_gb_Gb.h"
rlm@49 2 #include "../sdl/Drive.h"
rlm@56 3 #include "../gb/GB.h"
rlm@49 4
rlm@49 5 #include <string.h>
rlm@49 6
rlm@49 7 #define UNUSED(x) (void)(x)
rlm@49 8
rlm@49 9
rlm@49 10 /*
rlm@49 11 * Class: com_aurellem_gb_Gb
rlm@49 12 * Method: sayHello
rlm@49 13 * Signature: ()V
rlm@49 14 */
rlm@49 15 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_sayHello
rlm@49 16 (JNIEnv *env, jclass clazz){
rlm@49 17 UNUSED(env);UNUSED(clazz);
rlm@49 18 printf("Hello from GB\n");
rlm@49 19 }
rlm@49 20
rlm@49 21 /*
rlm@49 22 * Class: com_aurellem_gb_Gb
rlm@49 23 * Method: startEmulator
rlm@49 24 * Signature: (Ljava/lang/String;)V
rlm@49 25 */
rlm@49 26 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_startEmulator
rlm@49 27 (JNIEnv *env, jclass clazz, jstring str){
rlm@488 28 UNUSED(clazz);
rlm@49 29
rlm@49 30 const char *_romName = env->GetStringUTFChars(str, 0);
rlm@49 31 size_t len = strlen(_romName);
rlm@49 32
rlm@49 33 char romName[len + 1];
rlm@49 34
rlm@49 35 strcpy(romName, _romName);
rlm@49 36
rlm@49 37 char* arguments[] = {"vba-rlm", romName};
rlm@49 38 runVBA(2, arguments);
rlm@49 39 }
rlm@49 40
rlm@55 41
rlm@55 42
rlm@55 43
rlm@53 44 /*
rlm@53 45 * Class: com_aurellem_gb_Gb
rlm@53 46 * Method: step
rlm@53 47 * Signature: ()V
rlm@53 48 */
rlm@83 49 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_step
rlm@53 50 (JNIEnv *env, jclass clazz){
rlm@53 51 step();
rlm@53 52 }
rlm@53 53
rlm@53 54 /*
rlm@53 55 * Class: com_aurellem_gb_Gb
rlm@55 56 * Method: step
rlm@55 57 * Signature: (I)V
rlm@55 58 */
rlm@83 59 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_nstep
rlm@55 60 (JNIEnv *env, jclass clazz, jint keymask){
rlm@55 61 step(keymask);
rlm@55 62 }
rlm@55 63
rlm@92 64 /*
rlm@92 65 * Class: com_aurellem_gb_Gb
rlm@92 66 * Method: ntick
rlm@92 67 * Signature: ()I
rlm@92 68 */
rlm@92 69 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_ntick
rlm@92 70 (JNIEnv *env, jclass clazz){
rlm@92 71 return tick();
rlm@55 72
rlm@92 73 }
rlm@55 74
rlm@55 75
rlm@55 76 /*
rlm@55 77 * Class: com_aurellem_gb_Gb
rlm@53 78 * Method: shutdown
rlm@53 79 * Signature: ()V
rlm@53 80 */
rlm@53 81 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_shutdown
rlm@53 82 (JNIEnv *env, jclass clazz){
rlm@53 83 shutdown();
rlm@56 84
rlm@53 85 }
rlm@53 86
rlm@56 87 /*
rlm@56 88 * Class: com_aurellem_gb_Gb
rlm@56 89 * Method: saveState
rlm@76 90 * Signature: (Ljava/nio/ByteBuffer;I)J
rlm@56 91 */
rlm@76 92 JNIEXPORT jlong JNICALL Java_com_aurellem_gb_Gb_saveState
rlm@56 93 (JNIEnv *env, jclass clazz, jobject buffer, jint size){
rlm@56 94 char* buffer_address =
rlm@56 95 ((char*) env->GetDirectBufferAddress(buffer));
rlm@76 96 long limit = gbWriteMemSaveStatePos(buffer_address, size);
rlm@76 97 return limit;
rlm@56 98 }
rlm@53 99
rlm@56 100 /*
rlm@56 101 * Class: com_aurellem_gb_Gb
rlm@56 102 * Method: loadState
rlm@56 103 * Signature: (Ljava/nio/ByteBuffer;)V
rlm@56 104 */
rlm@56 105 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_loadState
rlm@56 106 (JNIEnv *env, jclass clazz, jobject buffer, jint size){
rlm@56 107 char* buffer_address =
rlm@56 108 ((char*) env->GetDirectBufferAddress(buffer));
rlm@56 109 gbReadMemSaveState(buffer_address, size);
rlm@56 110 }
rlm@55 111
rlm@55 112
rlm@59 113 /*
rlm@59 114 * Class: com_aurellem_gb_Gb
rlm@59 115 * Method: getROMSize
rlm@59 116 * Signature: ()I
rlm@59 117 */
rlm@59 118 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_getROMSize
rlm@59 119 (JNIEnv *env, jclass clazz){
rlm@59 120 return getRomSize();
rlm@59 121 }
rlm@55 122
rlm@59 123 /*
rlm@59 124 * Class: com_aurellem_gb_Gb
rlm@59 125 * Method: getRAMSize
rlm@59 126 * Signature: ()I
rlm@59 127 */
rlm@59 128 JNIEXPORT jint JNICALL Java_com_aurellem_gb_Gb_getRAMSize
rlm@59 129 (JNIEnv *env, jclass clazz){
rlm@59 130 return getRamSize();
rlm@59 131 }
rlm@56 132
rlm@93 133
rlm@93 134 /*
rlm@93 135 * Class: com_aurellem_gb_Gb
rlm@93 136 * Method: getMemory
rlm@93 137 * Signature: ([I)V
rlm@93 138 */
rlm@93 139 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getMemory
rlm@93 140 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@93 141 jint *mem_store = env->GetIntArrayElements(arr, 0);
rlm@93 142 storeMemory(mem_store);
rlm@93 143 env->ReleaseIntArrayElements(arr, mem_store, 0);
rlm@93 144 }
rlm@93 145
rlm@96 146 /*
rlm@96 147 * Class: com_aurellem_gb_Gb
rlm@96 148 * Method: writeMemory
rlm@96 149 * Signature: ([I)V
rlm@96 150 */
rlm@96 151 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_writeMemory
rlm@96 152 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@96 153 jint *new_memory = env->GetIntArrayElements(arr, 0);
rlm@96 154 writeMemory(new_memory);
rlm@96 155 env->ReleaseIntArrayElements(arr, new_memory, 0);
rlm@96 156 }
rlm@96 157
rlm@93 158
rlm@60 159 /*
rlm@60 160 * Class: com_aurellem_gb_Gb
rlm@60 161 * Method: getRAM
rlm@60 162 * Signature: ([I)V
rlm@60 163 */
rlm@60 164 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getRAM
rlm@60 165 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@60 166 jint *ram_store = env->GetIntArrayElements(arr, 0);
rlm@60 167 storeRam(ram_store);
rlm@60 168 env->ReleaseIntArrayElements(arr, ram_store, 0);
rlm@60 169 }
rlm@56 170
rlm@59 171
rlm@61 172 /*
rlm@61 173 * Class: com_aurellem_gb_Gb
rlm@61 174 * Method: getROM
rlm@61 175 * Signature: ([I)V
rlm@61 176 */
rlm@61 177 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getROM
rlm@61 178 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@93 179 jint *rom_store = env->GetIntArrayElements(arr, 0);
rlm@93 180 storeRom(rom_store);
rlm@93 181 env->ReleaseIntArrayElements(arr, rom_store, 0);
rlm@61 182 }
rlm@59 183
rlm@61 184
rlm@61 185 /*
rlm@61 186 * Class: com_aurellem_gb_Gb
rlm@191 187 * Method: writeROM
rlm@191 188 * Signature: ([I)V
rlm@191 189 */
rlm@191 190 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_writeROM
rlm@191 191 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@191 192 jint *new_rom = env->GetIntArrayElements(arr, 0);
rlm@191 193 writeRom(new_rom);
rlm@191 194 env->ReleaseIntArrayElements(arr, new_rom, 0);
rlm@191 195 }
rlm@191 196
rlm@191 197
rlm@191 198
rlm@191 199 /*
rlm@191 200 * Class: com_aurellem_gb_Gb
rlm@61 201 * Method: getWRAM
rlm@61 202 * Signature: ([I)V
rlm@61 203 */
rlm@61 204 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getWRAM
rlm@61 205 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@61 206 jint *ram_store = env->GetIntArrayElements(arr, 0);
rlm@61 207 storeWRam(ram_store);
rlm@61 208 env->ReleaseIntArrayElements(arr, ram_store, 0);
rlm@61 209 }
rlm@61 210
rlm@61 211
rlm@61 212 /*
rlm@61 213 * Class: com_aurellem_gb_Gb
rlm@61 214 * Method: getVRAM
rlm@61 215 * Signature: ([I)V
rlm@61 216 */
rlm@61 217 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getVRAM
rlm@61 218 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@61 219 jint *ram_store = env->GetIntArrayElements(arr, 0);
rlm@61 220 storeVRam(ram_store);
rlm@61 221 env->ReleaseIntArrayElements(arr, ram_store, 0);
rlm@61 222 }
rlm@61 223
rlm@61 224
rlm@62 225 /*
rlm@62 226 * Class: com_aurellem_gb_Gb
rlm@62 227 * Method: getRegisters
rlm@62 228 * Signature: ([I)V
rlm@62 229 */
rlm@62 230 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_getRegisters
rlm@62 231 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@62 232 jint *registers_store = env->GetIntArrayElements(arr, 0);
rlm@62 233 storeRegisters(registers_store);
rlm@62 234 env->ReleaseIntArrayElements(arr, registers_store, 0);
rlm@62 235 }
rlm@61 236
rlm@62 237
rlm@100 238 /*
rlm@100 239 * Class: com_aurellem_gb_Gb
rlm@100 240 * Method: writeRegisters
rlm@100 241 * Signature: ([I)V
rlm@100 242 */
rlm@100 243 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_writeRegisters
rlm@100 244 (JNIEnv *env, jclass clazz, jintArray arr){
rlm@100 245 jint *new_registers = env->GetIntArrayElements(arr, 0);
rlm@100 246 setRegisters(new_registers);
rlm@100 247 env->ReleaseIntArrayElements(arr, new_registers, 0);
rlm@100 248 }
rlm@100 249
rlm@488 250
rlm@488 251 int intensity[32] = {
rlm@488 252 0x00, 0x10, 0x20, 0x30, 0x40, 0x50, 0x5e, 0x6c, 0x7a, 0x88, 0x94,
rlm@488 253 0xa0, 0xae, 0xb7, 0xbf, 0xc6, 0xce, 0xd3, 0xd9, 0xdf, 0xe3, 0xe7,
rlm@488 254 0xeb, 0xef, 0xf3, 0xf6, 0xf9, 0xfb, 0xfd, 0xfe, 0xff, 0xff };
rlm@488 255
rlm@488 256 int influence[3][3] =
rlm@488 257 {
rlm@488 258 {16,4,4},
rlm@488 259 {8,16,8},
rlm@488 260 {0,8,16}
rlm@488 261 };
rlm@488 262
rlm@488 263 int* translateRGB(int* rgb, int* store){
rlm@488 264
rlm@488 265 int m[3][3];
rlm@488 266 int i,j;
rlm@488 267
rlm@488 268 for (i=0;i<3;i++){
rlm@488 269 for (j=0;j<3;j++){
rlm@488 270 m[i][j] = (intensity[rgb[i]>>3]*influence[i][j]) >> 5;}}
rlm@488 271
rlm@488 272 for (i=0;i<3;i++)
rlm@488 273 {
rlm@488 274 if (m[0][i]>m[1][i])
rlm@488 275 {
rlm@488 276 j=m[0][i];
rlm@488 277 m[0][i]=m[1][i];
rlm@488 278 m[1][i]=j;
rlm@488 279 }
rlm@488 280
rlm@488 281 if (m[1][i]>m[2][i])
rlm@488 282 {
rlm@488 283 j=m[1][i];
rlm@488 284 m[1][i]=m[2][i];
rlm@488 285 m[2][i]=j;
rlm@488 286 }
rlm@488 287
rlm@488 288 if (m[0][i]>m[1][i])
rlm@488 289 {
rlm@488 290 j=m[0][i];
rlm@488 291 m[0][i]=m[1][i];
rlm@488 292 m[1][i]=j;
rlm@488 293 }
rlm@488 294
rlm@488 295 store[i]=(((m[0][i]+m[1][i]*2+m[2][i]*4)*5) >> 4)+32;
rlm@488 296 }
rlm@488 297 return store;
rlm@488 298 }
rlm@488 299
rlm@488 300 /*
rlm@488 301 * Class: com_aurellem_gb_Gb
rlm@488 302 * Method: translateRGB
rlm@488 303 * Signature: ([I[I)V
rlm@488 304 */
rlm@488 305 JNIEXPORT void JNICALL Java_com_aurellem_gb_Gb_translateRGB
rlm@488 306 (JNIEnv *env, jclass clazz, jintArray rgb, jintArray store){
rlm@488 307 jint *RGB_Arr = env->GetIntArrayElements(rgb, 0);
rlm@488 308 jint *store_Arr = env->GetIntArrayElements(store,0);
rlm@488 309 translateRGB(RGB_Arr, store_Arr);
rlm@488 310 env->ReleaseIntArrayElements(rgb, RGB_Arr, 0);
rlm@488 311 env->ReleaseIntArrayElements(store, store_Arr, 0);
rlm@488 312 }