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 (def yellow-save-file

    12   (File. "/home/r/proj/pokemon-escape/roms/yellow.sav"))

    13 

    14 (defn vba-init []

    15   (.delete yellow-save-file)

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

    17 

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

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

    20     (fn [] 

    21       (arr-fn store)

    22       store)))

    23 

    24 (def ram

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

    26 

    27 (def rom 

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

    29 

    30 (def working-ram 

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

    32 

    33 (def video-ram 

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

    35 

    36 (def registers

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

    38 

    39 (defn step

    40   ([] (Gb/step))

    41   ([mask] (Gb/step mask)))

    42 

    43 (defn shutdown [] (Gb/shutdown))

    44 

    45    

    46   

    47
author	Robert McIntyre <rlm@mit.edu>
date	Thu, 08 Mar 2012 02:25:20 -0600
parents	8cb500493ec2
children	39928bf4622d