Mercurial > vba-clojure

     1 (ns com.aurellem.gb-driver

     2   (:import com.aurellem.gb.Gb)

     3   (:import java.io.File)

     4   (:import (java.nio IntBuffer ByteOrder)))

     5 

     6 (Gb/loadVBA)

     7 

     8 (def yellow-rom-image

     9   (File. "/home/r/proj/pokemon-escape/roms/yellow.gbc"))

    10 

    11 (defn vba-init []

    12   (future

    13     (Gb/startEmulator (.getCanonicalPath yellow-rom-image))))

    14 

    15 (defn cpu-data [size arr-fn]

    16   (let [store (int-array size)]

    17     (fn [] 

    18       (arr-fn store)

    19       store)))

    20 

    21 (def ram

    22   (cpu-data (Gb/getRAMSize) #(Gb/getRAM %)))

    23 

    24 (def rom 

    25   (cpu-data (Gb/getROMSize) #(Gb/getROM %)))

    26 

    27 (def working-ram 

    28   (cpu-data Gb/WRAM_SIZE #(Gb/getWRAM %)))

    29 

    30 (def video-ram 

    31   (cpu-data Gb/VRAM_SIZE #(Gb/getVRAM %)))

    32 

    33 (def registers

    34   (cpu-data Gb/NUM_REGISTERS #(Gb/getRegisters %)))

    35 

    36 

    37 (def key-mask

    38   {:a         0x0001

    39    :b         0x0002

    40 

    41    :l         0x0020

    42    :r         0x0010

    43    :u         0x0040

    44    :d         0x0080

    45 

    46    :0         0x0000

    47    

    48    :select    0x0004

    49    :start     0x0008

    50    :restart   0x0800})

    51 

    52 (defn keycode [& keys]

    53   (reduce bit-or (map key-mask keys)))

    54 

    55 (defn step

    56   ([] (Gb/step))

    57   ([& keys] (Gb/step (apply keycode keys))))

    58 

    59    

    60   

    61
author	Robert McIntyre <rlm@mit.edu>
date	Wed, 07 Mar 2012 23:23:15 -0600
parents	60c768964937
children	8cb500493ec2