Archive/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project.git synced 2024-10-20 00:57:44 -04:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Add case macro for switch-case constructs (#362)

Browse source
This commit is contained in:
ManDude 2021-04-17 02:50:38 +01:00 committed by GitHub
parent 9fbbe1a79c
commit 496f8a3fbb
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
goal_src/goal-lib.gc
View file

@ -353,6 +353,20 @@
`(none)
)
(defmacro case (switch &rest cases)
"A switch-case construct. switch is saved onto a local variable and compared against each case, sequentially.
else can be used as the default case, but it must be the last one."
(with-gensyms (sw)
`(let ((sw ,switch))
(cond ,@(apply
(lambda (x) `(,@(if (eq? (first x) 'else) `(else ,@(rest x)) `((= sw ,(first x)) ,@(rest x)))))
cases)
)
)
)
)
;;;;;;;;;;;;;;;;;;;
;; Math Macros
;;;;;;;;;;;;;;;;;;;
@ -531,7 +545,7 @@
;; (Fake) MIPS Macros
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; these are macros for MIPS instructions which we may want to keep in the source code for
;; these are macros for MIPS instructions which we may want to keep in the source code for
;; readibility/curiosity/documentation, but will not translate into any actual instructions at all
;; A macro that generates a macro for the specified instruction