mirror of
https://github.com/open-goal/jak-project
synced 2026-09-09 04:10:23 -04:00
Tyler Wilding
9c86c86c74
Breaks the 300 file milestone, also includes the majority of mips2c functions carried forward. Some functions need some fixes in the c++ code to mips2c properly, and a small handful of the mips2c functions require manual patching -- all spots were marked with `TODO - fix` that had to be commented out to get things compiling.
128 lines
5.5 KiB
Common Lisp
Vendored
Generated
128 lines
5.5 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type target
|
|
(deftype target (process-focusable)
|
|
((control collide-shape-moving :overlay-at root)
|
|
(vehicle uint64)
|
|
(target-flags target-flags :overlay-at state-flags)
|
|
(game game-info)
|
|
(init-time uint64)
|
|
(teleport-time uint64)
|
|
(state-hook-time uint64)
|
|
(state-hook (function none :behavior target))
|
|
(cam-user-mode symbol)
|
|
(anim-seed uint64)
|
|
(alt-cam-pos vector :inline)
|
|
(current-level level)
|
|
(saved-pos transformq :inline)
|
|
(saved-owner uint64)
|
|
(excitement float)
|
|
(shock-effect-time uint64)
|
|
(fp-hud uint64)
|
|
(no-load-wait uint64)
|
|
(no-look-around-wait uint64)
|
|
(burn-proc uint64)
|
|
(pre-joint-hook (function none :behavior target))
|
|
(notify uint64)
|
|
(mode-cache symbol)
|
|
(mode-param1 uint64)
|
|
(mode-param2 uint64)
|
|
(mode-param3 uint64)
|
|
(major-mode-exit-hook (function none :behavior target))
|
|
(major-mode-event-hook (function process int symbol event-message-block object :behavior target))
|
|
(sub-mode-exit-hook (function none :behavior target))
|
|
(target-effect uint64)
|
|
(color-effect symbol)
|
|
(color-effect-start-time uint64)
|
|
(color-effect-duration uint64)
|
|
(yes-state basic)
|
|
(no-state basic)
|
|
(state-object object 4)
|
|
(state-uint32 uint32 4 :overlay-at (-> state-object 0))
|
|
(state-float float 4 :overlay-at (-> state-object 0))
|
|
(state-button uint32 4)
|
|
(state-vector vector 4 :inline)
|
|
(pad1 uint32 6)
|
|
(state-smush smush-control :inline)
|
|
(state-sound uint32 4)
|
|
(state-handle handle 4)
|
|
(state-impact impact-control 1 :inline)
|
|
)
|
|
(:methods
|
|
(target-method-59 () none)
|
|
)
|
|
(:states
|
|
target-continue
|
|
target-float
|
|
target-intro
|
|
target-introb
|
|
target-pilot-start
|
|
target-title
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type target
|
|
(defmethod inspect ((this target))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-focusable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tvehicle: ~D~%" (-> this vehicle))
|
|
(format #t "~2Ttarget-flags: ~D~%" (-> this state-flags))
|
|
(format #t "~2Tgame: ~A~%" (-> this game))
|
|
(format #t "~2Tinit-time: ~D~%" (-> this init-time))
|
|
(format #t "~2Tteleport-time: ~D~%" (-> this teleport-time))
|
|
(format #t "~2Tstate-hook-time: ~D~%" (-> this state-hook-time))
|
|
(format #t "~2Tstate-hook: ~A~%" (-> this state-hook))
|
|
(format #t "~2Tcam-user-mode: ~A~%" (-> this cam-user-mode))
|
|
(format #t "~2Tanim-seed: ~D~%" (-> this anim-seed))
|
|
(format #t "~2Talt-cam-pos: ~`vector`P~%" (-> this alt-cam-pos))
|
|
(format #t "~2Tcurrent-level: ~A~%" (-> this current-level))
|
|
(format #t "~2Tsaved-pos: #<transformq @ #x~X>~%" (-> this saved-pos))
|
|
(format #t "~2Tsaved-owner: ~D~%" (-> this saved-owner))
|
|
(format #t "~2Texcitement: ~f~%" (-> this excitement))
|
|
(format #t "~2Tshock-effect-time: ~D~%" (-> this shock-effect-time))
|
|
(format #t "~2Tfp-hud: ~D~%" (-> this fp-hud))
|
|
(format #t "~2Tno-load-wait: ~D~%" (-> this no-load-wait))
|
|
(format #t "~2Tno-look-around-wait: ~D~%" (-> this no-look-around-wait))
|
|
(format #t "~2Tburn-proc: ~D~%" (-> this burn-proc))
|
|
(format #t "~2Tpre-joint-hook: ~A~%" (-> this pre-joint-hook))
|
|
(format #t "~2Tnotify: ~D~%" (-> this notify))
|
|
(format #t "~2Tmode-cache: ~A~%" (-> this mode-cache))
|
|
(format #t "~2Tmode-param1: ~D~%" (-> this mode-param1))
|
|
(format #t "~2Tmode-param2: ~A~%" (-> this mode-param2))
|
|
(format #t "~2Tmode-param3: ~A~%" (-> this mode-param3))
|
|
(format #t "~2Tmajor-mode-exit-hook: ~A~%" (-> this major-mode-exit-hook))
|
|
(format #t "~2Tmajor-mode-event-hook: ~A~%" (-> this major-mode-event-hook))
|
|
(format #t "~2Tsub-mode-exit-hook: ~A~%" (-> this sub-mode-exit-hook))
|
|
(format #t "~2Ttarget-effect: ~D~%" (-> this target-effect))
|
|
(format #t "~2Tcolor-effect: ~A~%" (-> this color-effect))
|
|
(format #t "~2Tcolor-effect-start-time: ~D~%" (-> this color-effect-start-time))
|
|
(format #t "~2Tcolor-effect-duration: ~D~%" (-> this color-effect-duration))
|
|
(format #t "~2Tyes-state: ~A~%" (-> this yes-state))
|
|
(format #t "~2Tno-state: ~A~%" (-> this no-state))
|
|
(format #t "~2Tstate-object[4] @ #x~X~%" (-> this state-object))
|
|
(format #t "~2Tstate-uint32[4] @ #x~X~%" (-> this state-object))
|
|
(format #t "~2Tstate-float[4] @ #x~X~%" (-> this state-object))
|
|
(format #t "~2Tstate-button[4] @ #x~X~%" (-> this state-button))
|
|
(format #t "~2Tstate-vector[4] @ #x~X~%" (-> this state-vector))
|
|
(format #t "~2Tstate-time[4] @ #x~X~%" (-> this state-time))
|
|
(format #t "~2Tstate-smush: #<smush-control @ #x~X>~%" (-> this state-smush))
|
|
(format #t "~2Tstate-sound[4] @ #x~X~%" (-> this state-sound))
|
|
(format #t "~2Tstate-handle[4] @ #x~X~%" (-> this state-handle))
|
|
(format #t "~2Tstate-impact[1] @ #x~X~%" (-> this state-impact))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|