mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-04 17:19:49 -04:00
Code Issues Packages Projects Releases Wiki Activity

[decompiler] as-type and font method support (#3855)

Browse Source 
Add support for `as-type` macro, and detecting inline font methods. This
works in all three games but I've only updated jak 3's goal_src for now.
Eventually I will go back and work through the others, but I want to get
more decompiler features in first.


![image](https://github.com/user-attachments/assets/5c31bf85-97b4-437c-bc4b-dc054e60551e)

---------

Co-authored-by: water111 <awaterford1111445@gmail.com>
This commit is contained in:
water111
2025-02-01 21:23:11 -05:00
committed by GitHub
parent d5590ab638
commit 48cb9bb787
645 changed files with 5391 additions and 16694 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/decompiler/reference/jak2/engine/physics/rigid-body_REF.gc
Generated Vendored
+4 -21
View File
@@ -1424,11 +1424,7 @@
(format *stdcon* "rigid-body-object got touched~%")
)
(when (zero? (-> arg0 rbody))
(let ((s3-0 (if (type? arg0 process-focusable)
(the-as process-focusable arg0)
)
)
)
(let ((s3-0 (as-type arg0 process-focusable)))
(when s3-0
(when (logtest? (-> s3-0 mask) (process-mask target))
(logior! (-> this flags) (rigid-body-object-flag player-touching))
@@ -1455,11 +1451,7 @@
(('edge-grabbed 'pilot-edge-grab)
(let ((s5-2 (the-as object (-> arg3 param 0))))
(when (not (logtest? (-> this flags) (rigid-body-object-flag player-impulse-force)))
(let ((a0-25 (if (type? arg0 process-focusable)
(the-as process-focusable arg0)
)
)
)
(let ((a0-25 (as-type arg0 process-focusable)))
(when a0-25
(let ((f0-1 (/ 163840.0 (get-inv-mass a0-25))))
(logior! (-> this flags) (rigid-body-object-flag player-touching player-edge-grabbing player-contact-force))
@@ -1476,12 +1468,7 @@
(('ridden)
(let ((v1-45 (the-as object (-> arg3 param 0))))
(when (the-as uint v1-45)
(let* ((s5-3 (handle->process (-> (the-as focus v1-45) handle)))
(a0-34 (if (type? s5-3 process-focusable)
(the-as process-focusable s5-3)
)
)
)
(let ((a0-34 (as-type (handle->process (-> (the-as focus v1-45) handle)) process-focusable)))
(when (and a0-34
(logtest? (-> a0-34 mask) (process-mask target))
(not (logtest? (-> a0-34 focus-status) (focus-status on-water under-water)))
@@ -1503,11 +1490,7 @@
)
(('bonk)
(when #t
(let ((a0-38 (if (type? arg0 process-focusable)
(the-as process-focusable arg0)
)
)
)
(let ((a0-38 (as-type arg0 process-focusable)))
(when a0-38
(logior! (-> this flags) (rigid-body-object-flag player-touching player-impulse-force))
(set! (-> this player-force-position quad) (-> a0-38 root trans quad))
test/decompiler/reference/jak2/engine/physics/trajectory_REF.gc
Generated Vendored
+21 -36
View File
@@ -188,13 +188,9 @@
)
(let ((f30-0 (fill-and-probe-using-line-sphere *collide-cache* arg0)))
(when (and arg1 (>= f30-0 0.0) (>= 0.0 (vector-dot (-> arg0 best-other-tri normal) (-> this dir))))
(let* ((s3-0 (new 'stack-no-clear 'touching-shapes-entry))
(s2-0 (-> arg0 best-other-tri collide-ptr))
(v1-12 (if (type? s2-0 collide-shape-prim)
(the-as collide-shape-prim s2-0)
)
)
)
(let ((s3-0 (new 'stack-no-clear 'touching-shapes-entry))
(v1-12 (as-type (-> arg0 best-other-tri collide-ptr) collide-shape-prim))
)
(set! (-> s3-0 cshape1) #f)
(set! (-> s3-0 cshape2) (if v1-12
(-> v1-12 cshape)
@@ -262,11 +258,7 @@
(defmethod combo-tracker-method-13 ((this combo-tracker) (arg0 handle) (arg1 vector) (arg2 float) (arg3 vector) (arg4 float))
(cond
((send-event (handle->process arg0) 'combo)
(let ((gp-1 (handle->process arg0)))
(if (type? gp-1 process-focusable)
gp-1
)
)
(the-as basic (as-type (handle->process arg0) process-focusable))
)
(else
(let ((s1-0 (new 'stack-no-clear 'sphere))
@@ -286,25 +278,23 @@
(-> s2-1 allocated-length)
)
)
(let ((gp-2 (find-nearest-focusable
(the-as (array collide-shape) s2-1)
arg1
arg2
(if (= arg4 65536.0)
(search-info-flag crate enemy combo)
(search-info-flag crate enemy prefer-angle cull-angle combo)
(the-as basic (as-type
(find-nearest-focusable
(the-as (array collide-shape) s2-1)
arg1
arg2
(if (= arg4 65536.0)
(search-info-flag crate enemy combo)
(search-info-flag crate enemy prefer-angle cull-angle combo)
)
(search-info-flag)
arg3
(the-as vector #f)
arg4
)
(search-info-flag)
arg3
(the-as vector #f)
arg4
)
)
)
(if (type? gp-2 process-focusable)
gp-2
)
)
process-focusable
)
)
)
)
)
@@ -335,12 +325,7 @@
(set! (-> a1-4 from) (process->ppointer pp))
(set! (-> a1-4 num-params) 0)
(set! (-> a1-4 message) 'nav-control)
(let* ((s3-0 (send-event-function (handle->process (-> this target)) a1-4))
(s4-1 (if (type? s3-0 nav-control)
s3-0
)
)
)
(let ((s4-1 (the-as object (as-type (send-event-function (handle->process (-> this target)) a1-4) nav-control))))
(when s4-1
(let ((a2-3 ((method-of-type nav-control find-poly-containing-point-1) (the-as nav-control s4-1) arg1)))
(if a2-3