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   (future

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

    18 

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

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

    21     (fn [] 

    22       (arr-fn store)

    23       store)))

    24 

    25 (def ram

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

    27 

    28 (def rom 

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

    30 

    31 (def working-ram 

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

    33 

    34 (def video-ram 

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

    36 

    37 (def registers

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

    39 

    40 (defn step

    41   ([] (Gb/step))

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

    43 

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

    45 

    46    

    47   

    48
author	Robert McIntyre <rlm@mit.edu>
date	Thu, 08 Mar 2012 02:10:03 -0600
parents	8cb500493ec2
children	ff6f1acae59e