mirror of
https://github.com/open-goal/jak-project
synced 2026-05-29 16:45:10 -04:00
Hat Kid
ea93d32acc
- `pat-h` - `engines` - `res-h` - `res` - `fact-h` - `game-info-h` - `wind-h` - `merc-h` - `shadow-vu1-h` - `shadow-cpu-h` - `dynamics-h` - `memcard-h` - `surface-h` - part of `gui-h` - `ambient-h` - `speech-h` - `prototype-h` - `smush-control-h` - `generic-merc-h` - `generic-work-h` - `collide-func-h` - `collide-mesh-h` - `collide-shape-h` (only missing the `new` method for `collide-shape` because we don't have `process-drawable` yet and that also needs joint stuff etc.) - `collide-touch-h` - `collide-edge-grab-h` - `lightning-h` This also adds argument name remaps for the `relocate` and `mem-usage` methods (Jak 1 and 2 ref tests were updated, but not the gsrc).
424 lines
13 KiB
Common Lisp
Vendored
Generated
424 lines
13 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for method 7 of type process
|
|
(defmethod relocate ((this process) (offset int))
|
|
(let ((v1-0 *kernel-context*))
|
|
(set! (-> v1-0 relocating-process) this)
|
|
(set! (-> v1-0 relocating-min) (the-as int (&-> this type)))
|
|
(set! (-> v1-0 relocating-max)
|
|
(the-as int (+ (+ (-> this allocated-length) -4 (-> process size)) (the-as int this)))
|
|
)
|
|
(set! (-> v1-0 relocating-offset) offset)
|
|
)
|
|
(&+! (-> this ppointer 0) offset)
|
|
(let ((v1-5 (-> this entity)))
|
|
(if (and v1-5 (= (-> v1-5 extra process) this))
|
|
(&+! (-> v1-5 extra process) offset)
|
|
)
|
|
)
|
|
(let ((v1-7 (-> this connection-list next1)))
|
|
(while (the-as connection v1-7)
|
|
(let ((a0-14 (-> v1-7 prev1)))
|
|
(if (and (>= (the-as int a0-14) (-> *kernel-context* relocating-min))
|
|
(< (the-as int a0-14) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> v1-7 prev1) offset)
|
|
)
|
|
)
|
|
(let ((a0-19 (-> (the-as connection v1-7) param1)))
|
|
(if (and (>= (the-as int a0-19) (-> *kernel-context* relocating-min))
|
|
(< (the-as int a0-19) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> (the-as connection v1-7) param1) offset)
|
|
)
|
|
)
|
|
(let ((a0-24 (-> (the-as connection v1-7) param2)))
|
|
(if (and (>= a0-24 (-> *kernel-context* relocating-min)) (< a0-24 (-> *kernel-context* relocating-max)))
|
|
(+! (-> (the-as connection v1-7) param2) offset)
|
|
)
|
|
)
|
|
(let ((a0-29 (-> (the-as connection v1-7) param3)))
|
|
(if (and (>= a0-29 (-> *kernel-context* relocating-min)) (< a0-29 (-> *kernel-context* relocating-max)))
|
|
(+! (-> (the-as connection v1-7) param3) offset)
|
|
)
|
|
)
|
|
(set! v1-7 (-> (the-as connection v1-7) next1))
|
|
)
|
|
)
|
|
(let ((v1-10 (-> this self)))
|
|
(if (and (>= (the-as int v1-10) (-> *kernel-context* relocating-min))
|
|
(< (the-as int v1-10) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> this self) offset)
|
|
)
|
|
)
|
|
(let ((v1-15 (-> this ppointer)))
|
|
(if (and (>= (the-as int v1-15) (-> *kernel-context* relocating-min))
|
|
(< (the-as int v1-15) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> this ppointer) offset)
|
|
)
|
|
)
|
|
(let ((s4-0 (&+ (-> this heap-base) 4)))
|
|
(while (< (the-as int s4-0) (the-as int (-> this heap-cur)))
|
|
(relocate s4-0 offset)
|
|
(&+! s4-0 (logand -16 (+ (asize-of s4-0) 15)))
|
|
)
|
|
)
|
|
(&+! (-> this main-thread) offset)
|
|
(&+! (-> this top-thread) offset)
|
|
(&+! (-> this heap-base) offset)
|
|
(&+! (-> this heap-cur) offset)
|
|
(&+! (-> this heap-top) offset)
|
|
(let ((a2-4 (asize-of this))
|
|
(a1-22 (&-> this type))
|
|
)
|
|
(cond
|
|
((>= offset 0)
|
|
(qmem-copy->! (&+ a1-22 offset) a1-22 a2-4)
|
|
)
|
|
((< a2-4 2560)
|
|
(qmem-copy<-! (&+ a1-22 offset) a1-22 a2-4)
|
|
)
|
|
(else
|
|
(ultimate-memcpy (&+ a1-22 offset) a1-22 (the-as uint a2-4))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *kernel-context* relocating-process) #f)
|
|
(&+ this offset)
|
|
)
|
|
|
|
;; definition for method 7 of type cpu-thread
|
|
(defmethod relocate ((this cpu-thread) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type process-drawable
|
|
;; WARN: Return type mismatch process vs process-drawable.
|
|
(defmethod relocate ((this process-drawable) (offset int))
|
|
(let ((v1-0 *kernel-context*))
|
|
(set! (-> v1-0 relocating-process) this)
|
|
(set! (-> v1-0 relocating-min) (the-as int (&-> this type)))
|
|
(set! (-> v1-0 relocating-max)
|
|
(the-as int (+ (+ (-> this allocated-length) -4 (-> process size)) (the-as int this)))
|
|
)
|
|
(set! (-> v1-0 relocating-offset) offset)
|
|
)
|
|
(let ((a0-6 (-> this nav)))
|
|
(if (and (nonzero? a0-6) a0-6)
|
|
(relocate a0-6 offset)
|
|
)
|
|
)
|
|
(if (nonzero? (-> this root))
|
|
(&+! (-> this root) offset)
|
|
)
|
|
(if (nonzero? (-> this node-list))
|
|
(&+! (-> this node-list) offset)
|
|
)
|
|
(if (nonzero? (-> this draw))
|
|
(&+! (-> this draw) offset)
|
|
)
|
|
(if (nonzero? (-> this skel))
|
|
(&+! (-> this skel) offset)
|
|
)
|
|
(if (nonzero? (-> this align))
|
|
(&+! (-> this align) offset)
|
|
)
|
|
(if (nonzero? (-> this path))
|
|
(&+! (-> this path) offset)
|
|
)
|
|
(if (nonzero? (-> this vol))
|
|
(&+! (-> this vol) offset)
|
|
)
|
|
(if (nonzero? (-> this fact))
|
|
(&+! (-> this fact) offset)
|
|
)
|
|
(if (nonzero? (-> this link))
|
|
(&+! (-> this link) offset)
|
|
)
|
|
(if (nonzero? (-> this part))
|
|
(&+! (-> this part) offset)
|
|
)
|
|
(if (nonzero? (-> this water))
|
|
(&+! (-> this water) offset)
|
|
)
|
|
(if (nonzero? (-> this sound))
|
|
(&+! (-> this sound) offset)
|
|
)
|
|
(if (nonzero? (-> this carry))
|
|
(&+! (-> this carry) offset)
|
|
)
|
|
(if (nonzero? (-> this rbody))
|
|
(&+! (-> this rbody) offset)
|
|
)
|
|
(the-as process-drawable ((method-of-type process relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 7 of type collide-shape
|
|
(defmethod relocate ((this collide-shape) (offset int))
|
|
(&+! (-> this process) offset)
|
|
(&+! (-> this root-prim) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type collide-shape-moving
|
|
;; WARN: Return type mismatch collide-shape vs collide-shape-moving.
|
|
(defmethod relocate ((this collide-shape-moving) (offset int))
|
|
(if (-> this dynam)
|
|
(&+! (-> this dynam) offset)
|
|
)
|
|
(the-as collide-shape-moving ((method-of-type collide-shape relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 7 of type collide-shape-prim
|
|
(defmethod relocate ((this collide-shape-prim) (offset int))
|
|
(&+! (-> this cshape) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type collide-shape-prim-group
|
|
(defmethod relocate ((this collide-shape-prim-group) (offset int))
|
|
(&+! (-> this cshape) offset)
|
|
(set! (-> this child) (the-as (inline-array collide-shape-prim) (&+ (the-as pointer (-> this child)) offset)))
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type fact-info
|
|
(defmethod relocate ((this fact-info) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type draw-control
|
|
(defmethod relocate ((this draw-control) (offset int))
|
|
(&+! (-> this skeleton) offset)
|
|
(&+! (-> this process) offset)
|
|
(when (-> this ripple)
|
|
(if (-> this ripple query)
|
|
(&+! (-> this ripple query) offset)
|
|
)
|
|
(&+! (-> this ripple) offset)
|
|
)
|
|
(let ((v1-14 (-> this shadow-ctrl)))
|
|
(if (and (>= (the-as int v1-14) (-> *kernel-context* relocating-min))
|
|
(< (the-as int v1-14) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> this shadow-ctrl) offset)
|
|
)
|
|
)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type joint-control
|
|
(defmethod relocate ((this joint-control) (offset int))
|
|
(if (-> this effect)
|
|
(&+! (-> this effect) offset)
|
|
)
|
|
(if (-> this top-anim)
|
|
(&+! (-> this top-anim) offset)
|
|
)
|
|
(&+! (-> this root-channel) offset)
|
|
(countdown (v1-10 (-> this allocated-length))
|
|
(&+! (-> this channel v1-10 parent) offset)
|
|
)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type cspace-array
|
|
(defmethod relocate ((this cspace-array) (offset int))
|
|
(countdown (v1-0 (-> this length))
|
|
(let ((a2-2 (-> this data v1-0)))
|
|
(if (-> a2-2 parent)
|
|
(&+! (-> a2-2 parent) offset)
|
|
)
|
|
(&+! (-> a2-2 bone) offset)
|
|
(let ((a3-6 (-> a2-2 param1)))
|
|
(if (and (>= (the-as int a3-6) (-> *kernel-context* relocating-min))
|
|
(< (the-as int a3-6) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> a2-2 param1) offset)
|
|
)
|
|
)
|
|
(let ((a3-11 (-> a2-2 param2)))
|
|
(if (and (>= (the-as int a3-11) (-> *kernel-context* relocating-min))
|
|
(< (the-as int a3-11) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> a2-2 param2) offset)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type path-control
|
|
(defmethod relocate ((this path-control) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type vol-control
|
|
(defmethod relocate ((this vol-control) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type water-control
|
|
(defmethod relocate ((this water-control) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type actor-link-info
|
|
(defmethod relocate ((this actor-link-info) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type align-control
|
|
(defmethod relocate ((this align-control) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type joint-mod
|
|
(defmethod relocate ((this joint-mod) (offset int))
|
|
(&+! (-> this process) offset)
|
|
(&+! (-> this joint) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type joint-mod-wheel
|
|
(defmethod relocate ((this joint-mod-wheel) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type joint-mod-ik
|
|
(defmethod relocate ((this joint-mod-ik) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type effect-control
|
|
(defmethod relocate ((this effect-control) (offset int))
|
|
(&+! (-> this process) offset)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type sparticle-launch-control
|
|
(defmethod relocate ((this sparticle-launch-control) (offset int))
|
|
(&+! (-> this proc) offset)
|
|
(countdown (v1-2 (-> this length))
|
|
(let* ((a0-4 (-> this data v1-2))
|
|
(a2-0 (-> a0-4 center))
|
|
)
|
|
(if (and (>= (the-as int a2-0) (-> *kernel-context* relocating-min))
|
|
(< (the-as int a2-0) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> a0-4 center) offset)
|
|
)
|
|
)
|
|
)
|
|
(forall-particles-with-key
|
|
this
|
|
(lambda ((arg0 sparticle-system) (arg1 sparticle-cpuinfo))
|
|
(let ((v1-1 (-> *kernel-context* relocating-offset)))
|
|
(set! (-> arg1 key) (the-as sparticle-launch-control (+ (the-as int (-> arg1 key)) v1-1)))
|
|
(if (-> arg1 binding)
|
|
(set! (-> arg1 binding) (the-as sparticle-launch-state (+ (the-as int (-> arg1 binding)) v1-1)))
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
#t
|
|
#t
|
|
)
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type camera-master
|
|
;; WARN: Return type mismatch process vs camera-master.
|
|
(defmethod relocate ((this camera-master) (offset int))
|
|
(if (nonzero? (-> this water-drip))
|
|
(&+! (-> this water-drip) offset)
|
|
)
|
|
(the-as camera-master ((method-of-type process relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 7 of type time-of-day-proc
|
|
;; WARN: Return type mismatch process vs time-of-day-proc.
|
|
(defmethod relocate ((this time-of-day-proc) (offset int))
|
|
(if (nonzero? (-> this sun))
|
|
(&+! (-> this sun) offset)
|
|
)
|
|
(if (nonzero? (-> this green-sun))
|
|
(&+! (-> this green-sun) offset)
|
|
)
|
|
(if (nonzero? (-> this moon))
|
|
(&+! (-> this moon) offset)
|
|
)
|
|
(the-as time-of-day-proc ((method-of-type process relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 7 of type part-tracker
|
|
;; WARN: Return type mismatch process vs part-tracker.
|
|
(defmethod relocate ((this part-tracker) (offset int))
|
|
(if (nonzero? (-> this root))
|
|
(&+! (-> this root) offset)
|
|
)
|
|
(if (nonzero? (-> this part))
|
|
(&+! (-> this part) offset)
|
|
)
|
|
(the-as part-tracker ((method-of-type process relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 7 of type part-spawner
|
|
;; WARN: Return type mismatch process vs part-spawner.
|
|
(defmethod relocate ((this part-spawner) (offset int))
|
|
(if (nonzero? (-> this root))
|
|
(&+! (-> this root) offset)
|
|
)
|
|
(if (nonzero? (-> this part))
|
|
(&+! (-> this part) offset)
|
|
)
|
|
(if (nonzero? (-> this sound))
|
|
(&+! (-> this sound) offset)
|
|
)
|
|
(the-as part-spawner ((method-of-type process relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 7 of type lightning-tracker
|
|
;; WARN: Return type mismatch process vs lightning-tracker.
|
|
(defmethod relocate ((this lightning-tracker) (offset int))
|
|
(if (nonzero? (-> this root))
|
|
(&+! (-> this root) offset)
|
|
)
|
|
(if (nonzero? (-> this lightning))
|
|
(&+! (-> this lightning) offset)
|
|
)
|
|
(the-as lightning-tracker ((method-of-type process relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 7 of type manipy
|
|
;; WARN: Return type mismatch process-drawable vs manipy.
|
|
(defmethod relocate ((this manipy) (offset int))
|
|
(if (nonzero? (-> this joint 0))
|
|
(&+! (-> this joint 0) offset)
|
|
)
|
|
(if (nonzero? (-> this joint 1))
|
|
(&+! (-> this joint 1) offset)
|
|
)
|
|
(if (nonzero? (-> this joint 2))
|
|
(&+! (-> this joint 2) offset)
|
|
)
|
|
(if (nonzero? (-> this joint 3))
|
|
(&+! (-> this joint 3) offset)
|
|
)
|
|
(the-as manipy ((method-of-type process-drawable relocate) this offset))
|
|
)
|