mirror of
https://github.com/open-goal/jak-project
synced 2026-09-05 02:55:51 -04:00
Hat Kid
fc43870d85
This renames the method object in `defmethod`s to `this` and adds detection for the `set-time!` and `time-elapsed?` macros. Definitely my biggest PR yet...
48 lines
1.9 KiB
Common Lisp
Vendored
Generated
48 lines
1.9 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type los-control
|
|
(deftype los-control (structure)
|
|
((src-proc handle :offset-assert 0)
|
|
(dst-proc handle :offset-assert 8)
|
|
(have-los time-frame :offset-assert 16)
|
|
(have-no-los time-frame :offset-assert 24)
|
|
(check-interval time-frame :offset-assert 32)
|
|
(last-check-time time-frame :offset-assert 40)
|
|
(last-collide-result collide-tri-result :inline :offset-assert 48)
|
|
(collide-with collide-spec :offset 144)
|
|
)
|
|
:method-count-assert 14
|
|
:size-assert #x94
|
|
:flag-assert #xe00000094
|
|
(:methods
|
|
(los-control-method-9 (_type_ process-focusable vector float) none :behavior process 9)
|
|
(check-los? (_type_ time-frame) symbol :behavior process 10)
|
|
(skip-check-los? (_type_ int) symbol :behavior process 11)
|
|
(set-dst-proc! (_type_ handle) none 12)
|
|
(new-source! (_type_ process time-frame collide-spec) none 13)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type los-control
|
|
(defmethod inspect los-control ((this los-control))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'los-control)
|
|
(format #t "~1Tsrc-proc: ~D~%" (-> this src-proc))
|
|
(format #t "~1Tdst-proc: ~D~%" (-> this dst-proc))
|
|
(format #t "~1Thave-los: ~D~%" (-> this have-los))
|
|
(format #t "~1Thave-no-los: ~D~%" (-> this have-no-los))
|
|
(format #t "~1Tcheck-interval: ~D~%" (-> this check-interval))
|
|
(format #t "~1Tlast-check-time: ~D~%" (-> this last-check-time))
|
|
(format #t "~1Tlast-collide-result: #<collide-tri-result @ #x~X>~%" (-> this last-collide-result))
|
|
(format #t "~1Tcollide-with: ~D~%" (-> this collide-with))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|