mirror of
https://github.com/open-goal/jak-project
synced 2026-08-06 09:54:10 -04:00
water111
53 lines
2.0 KiB
Common Lisp
53 lines
2.0 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
(bundles "ENGINE.CGO" "GAME.CGO")
|
|
(require "engine/debug/assert-h.gc")
|
|
(define *run-time-assert-enable* #t)
|
|
|
|
;; TODO macros
|
|
|
|
(defun __assert ((exp symbol) (msg string))
|
|
"When exp is false, print msg and the source position captured by the assert macro. Return zero."
|
|
(when (not exp)
|
|
(format #t "(ASSERT ~S) FAILED in " msg)
|
|
(print-pos *__private-assert-info*))
|
|
0)
|
|
|
|
(defun __assert-min-max-range-float ((exp float) (minimum float) (maximum float) (msg-exp string) (msg-min string) (msg-max string))
|
|
"When exp lies outside the inclusive floating-point range [minimum, maximum], print the source
|
|
expressions, their values, and the captured assert position. Return zero."
|
|
(when (or (< exp minimum) (< maximum exp))
|
|
(format #t
|
|
"(ASSERT_MIN_MAX_RANGE_FLOAT ~S ~S ~S) FAILED (values ~F ~F ~F) in "
|
|
msg-exp
|
|
msg-min
|
|
msg-max
|
|
exp
|
|
minimum
|
|
maximum)
|
|
(print-pos *__private-assert-info*))
|
|
0)
|
|
|
|
(defun __assert-min-max-range-int ((exp int) (minimum int) (maximum int) (msg-exp string) (msg-min string) (msg-max string))
|
|
"When exp lies outside the inclusive integer range [minimum, maximum], print the source
|
|
expressions, their values, and the captured assert position. Return zero."
|
|
(when (or (< exp minimum) (< maximum exp))
|
|
(format #t
|
|
"(ASSERT_MIN_MAX_RANGE_INT ~S ~S ~S) FAILED (values ~D ~D ~D) in "
|
|
msg-exp
|
|
msg-min
|
|
msg-max
|
|
exp
|
|
minimum
|
|
maximum)
|
|
(print-pos *__private-assert-info*))
|
|
0)
|
|
|
|
(defun __assert-zero-lim-range-int ((exp int) (maximum int) (msg-exp string) (msg-max string))
|
|
"When exp lies outside the half-open integer range [0, maximum), print the source expressions,
|
|
their values, and the captured assert position. Return zero."
|
|
(when (or (< exp 0) (>= exp maximum))
|
|
(format #t "(ASSERT_ZERO_LIM_RANGE_INT ~S ~S) FAILED (values ~D ~D) in " msg-exp msg-max exp maximum)
|
|
(print-pos *__private-assert-info*))
|
|
0)
|