Mercurial > vba-clojure

view clojure/com/aurellem/gb/rival_name.clj @ 340:dea7e476eba7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
preliminary item-writer complete
author Robert McIntyre <rlm@mit.edu>
date Sun, 08 Apr 2012 04:10:49 -0500
parents 0587f266a735
children
line wrap: on
line source
     1 (ns com.aurellem.gb.rival-name



     2   (:use (com.aurellem.gb gb-driver util characters))



     3   (:import [com.aurellem.gb.gb_driver SaveState]))



     4 



     5 



     6 (def rival-name-start-address 0xD349)



     7 



     8 (def rival-name-width 12)



     9 



    10 (defn read-rival-name



    11   ([^SaveState state]



    12      (read-name (subvec (vec (memory state))



    13                         rival-name-start-address



    14                         (+ rival-name-start-address



    15                            rival-name-width))))



    16   ([] (read-rival-name @current-state)))



    17 



    18 (defn set-rival-name



    19   ([^SaveState state new-name]



    20      (assert (<= (count new-name) 10))



    21      (let [codes (str->character-codes new-name)]



    22        (set-memory-range state



    23                          rival-name-start-address



    24                          (concat codes [end-of-name-sentinel]))))



    25   ([new-name] (set-rival-name @current-state new-name)))



    26      



    27