mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
44 lines
925 B
Scheme
44 lines
925 B
Scheme
;-*-Scheme-*-
|
|
|
|
;; This file is loaded as part of goal-lib.gc.
|
|
;; It should generate no code.
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; COMPILER CONTROL
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; TODO change me!!!
|
|
(defglobalconstant *compiler-output-path* "obj/")
|
|
|
|
;; a macro to compile the test file
|
|
(defmacro :t ()
|
|
`(asm-file "game/test.gc" :color)
|
|
)
|
|
|
|
;; a macro to compile and load the test file
|
|
(defmacro :tl ()
|
|
`(asm-file "game/test.gc" :color :load)
|
|
)
|
|
|
|
;; compile the gcommon code.
|
|
(defmacro :g ()
|
|
;`(asm-file "game/kernel/gcommon.gc" :color :write)
|
|
`(asm-file "game/kernel/gcommon.gc" :color)
|
|
)
|
|
|
|
;; compile and load the gcommon code.
|
|
(defmacro :gl ()
|
|
`(begin
|
|
(asm-file "game/kernel/gcommon.gc" :color :load)
|
|
)
|
|
)
|
|
|
|
;; compile, color, and save a file
|
|
(defmacro m (file)
|
|
`(asm-file ,file :color :write)
|
|
)
|
|
|
|
;; compile, color, load and save a file
|
|
(defmacro ml (file)
|
|
`(asm-file ,file :color :load :write)
|
|
) |