mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-09-10 04:22:13 -04:00
Code Issues Packages Projects Releases Wiki Activity

add types (#559)

Browse Source
This commit is contained in:
water111
2021-06-05 16:58:32 -04:00
committed by GitHub
parent 2851cae13b
commit a572587a0e
32 changed files with 994 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/decompiler/reference/all_forward_declarations.gc
-76
View File
@@ -438,37 +438,6 @@
;; game-h - TODO
(declare-type trsqv basic)
(declare-type draw-control basic)
(deftype process-drawable (process)
((root trsqv :offset-assert 112)
(node-list basic :offset-assert 116)
(draw draw-control :offset-assert 120)
(skel basic :offset-assert 124)
(nav basic :offset-assert 128)
(align basic :offset-assert 132)
(path basic :offset-assert 136)
(vol basic :offset-assert 140)
(fact basic :offset-assert 144)
(link basic :offset-assert 148)
(part basic :offset-assert 152)
(water basic :offset-assert 156)
(sound basic :offset-assert 160)
(state-flags uint32 :offset-assert 164)
(state-time uint64 :offset-assert 168)
)
:heap-base #x40
:method-count-assert 20
:size-assert #xb0
:flag-assert #x14004000b0
;; inherited inspect of process
(:methods
(dummy-14 () none 14)
(dummy-15 () none 15)
(dummy-16 () none 16)
(dummy-17 () none 17)
(dummy-18 () none 18)
(dummy-19 () none 19)
)
)
;; game-h - TODO
(deftype vector (structure)
@@ -495,32 +464,6 @@
:flag-assert #x900000010
)
(deftype attack-info (structure)
((trans vector :inline :offset-assert 0)
(vector vector :inline :offset-assert 16)
(intersection vector :inline :offset-assert 32)
(attacker uint64 :offset-assert 48) ;; handle
(invinc-time uint64 :offset-assert 56)
(mask uint32 :offset-assert 64)
(mode basic :offset-assert 68)
(shove-back float :offset-assert 72) ;; meters
(shove-up float :offset-assert 76) ;; meters
(speed float :offset-assert 80) ;; meters
(dist float :offset-assert 84) ;; meters
(control float :offset-assert 88)
(angle basic :offset-assert 92)
(rotate-to float :offset-assert 96) ;; deg
(prev-state basic :offset-assert 100)
)
:method-count-assert 10
:size-assert #x68
:flag-assert #xa00000068
;; field handle is likely a value type
(:methods
(dummy-9 () none 9)
)
)
;; definition of type quaternion
(deftype quaternion (structure)
((x float :offset-assert 0)
@@ -678,25 +621,6 @@
`(-> (the-as (pointer string) (+ SYM_TO_STRING_OFFSET (the-as int ,sym))))
)
;; TODO - from generic-obs-h
(deftype gui-query (structure)
((x-position int32 :offset-assert 0)
(y-position int32 :offset-assert 4)
(message basic :offset-assert 8)
(decision basic :offset-assert 12)
(only-allow-cancel basic :offset-assert 16)
(no-msg basic :offset-assert 20)
(message-space int32 :offset-assert 24)
)
:pack-me
:method-count-assert 11
:size-assert #x1c
:flag-assert #xb0000001c
(:methods
(dummy-9 () none 9)
(dummy-10 () none 10)
)
)
(defmacro new-stack-matrix0 ()
"Get a new matrix on the stack that's set to zero."
test/decompiler/reference/engine/anim/aligner-h.gc → test/decompiler/reference/engine/anim/aligner-h_REF.gc
+1 -1
View File
@@ -4,7 +4,7 @@
;; definition of type align-control
(deftype align-control (basic)
((flags uint32 :offset-assert 4)
(process basic :offset-assert 8)
(process process :offset-assert 8)
(frame-group basic :offset-assert 12)
(frame-num float :offset-assert 16)
(matrix matrix 2 :inline :offset-assert 32)
test/decompiler/reference/engine/anim/mspace-h_REF.gc
+4 -7
View File
@@ -80,7 +80,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -122,7 +122,8 @@
;; definition of type cspace-array
(deftype cspace-array (inline-array-class)
()
((data cspace :inline :dynamic :offset-assert 16)
)
:method-count-assert 9
:size-assert #x10
:flag-assert #x900000010
@@ -133,7 +134,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -154,7 +155,3 @@
;; failed to figure out what this is:
(let ((v0-6 0))
)
test/decompiler/reference/engine/debug/debug-h_REF.gc
+74
View File
@@ -0,0 +1,74 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type pos-history
(deftype pos-history (structure)
((points uint32 :offset-assert 0)
(num-points int32 :offset-assert 4)
(h-first int32 :offset-assert 8)
(h-last int32 :offset-assert 12)
)
:method-count-assert 9
:size-assert #x10
:flag-assert #x900000010
)
;; definition for method 3 of type pos-history
(defmethod inspect pos-history ((obj pos-history))
(format #t "[~8x] ~A~%" obj 'pos-history)
(format #t "~Tpoints: #x~X~%" (-> obj points))
(format #t "~Tnum-points: ~D~%" (-> obj num-points))
(format #t "~Th-first: ~D~%" (-> obj h-first))
(format #t "~Th-last: ~D~%" (-> obj h-last))
obj
)
;; definition of type debug-vertex
(deftype debug-vertex (structure)
((trans vector4w :inline :offset-assert 0)
(normal vector3h :inline :offset-assert 16)
(st vector2h :inline :offset-assert 22)
(color uint32 :offset-assert 28)
)
:method-count-assert 9
:size-assert #x20
:flag-assert #x900000020
)
;; definition for method 3 of type debug-vertex
(defmethod inspect debug-vertex ((obj debug-vertex))
(format #t "[~8x] ~A~%" obj 'debug-vertex)
(format #t "~Ttrans: ~`vector4w`P~%" (-> obj trans))
(format #t "~Tnormal: ~`vector3h`P~%" (-> obj normal))
(format #t "~Tst: ~`vector2h`P~%" (-> obj st))
(format #t "~Tcolor: #x~X~%" (-> obj color))
obj
)
;; definition of type debug-vertex-stats
(deftype debug-vertex-stats (basic)
((length int32 :offset-assert 4)
(pos-count int32 :offset-assert 8)
(vertex debug-vertex 600 :inline :offset-assert 16)
)
:method-count-assert 9
:size-assert #x4b10
:flag-assert #x900004b10
)
;; definition for method 3 of type debug-vertex-stats
(defmethod inspect debug-vertex-stats ((obj debug-vertex-stats))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tpos-count: ~D~%" (-> obj pos-count))
(format #t "~Tvertex[600] @ #x~X~%" (-> obj vertex))
obj
)
;; failed to figure out what this is:
(let ((v0-3 0))
)
test/decompiler/reference/engine/debug/stats-h_REF.gc
+1 -5
View File
@@ -105,7 +105,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -140,7 +140,3 @@
(set! (-> perf-stat method-table 12) nothing)
(set! (-> perf-stat method-table 13) nothing)
)
test/decompiler/reference/engine/dma/dma-buffer_REF.gc
+1 -1
View File
@@ -37,7 +37,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
test/decompiler/reference/engine/entity/entity-h_REF.gc
+3 -7
View File
@@ -109,7 +109,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -129,7 +129,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -212,7 +212,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -312,7 +312,3 @@
;; failed to figure out what this is:
(let ((v0-12 0))
)
test/decompiler/reference/engine/game/game-h_REF.gc
+193
View File
@@ -0,0 +1,193 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type process-drawable
(deftype process-drawable (process)
((root trsqv :offset-assert 112)
(node-list cspace-array :offset-assert 116)
(draw draw-control :offset-assert 120)
(skel basic :offset-assert 124)
(nav basic :offset-assert 128)
(align basic :offset-assert 132)
(path basic :offset-assert 136)
(vol basic :offset-assert 140)
(fact basic :offset-assert 144)
(link basic :offset-assert 148)
(part basic :offset-assert 152)
(water basic :offset-assert 156)
(sound basic :offset-assert 160)
(state-flags uint32 :offset-assert 164)
(state-time uint64 :offset-assert 168)
)
:heap-base #x40
:method-count-assert 20
:size-assert #xb0
:flag-assert #x14004000b0
(:methods
(dummy-14 () none 14)
(dummy-15 () none 15)
(dummy-16 () none 16)
(dummy-17 () none 17)
(dummy-18 () none 18)
(dummy-19 () none 19)
)
)
;; definition for method 3 of type process-drawable
(defmethod inspect process-drawable ((obj process-drawable))
(let ((t9-0 (method-of-type process inspect)))
(t9-0 obj)
)
(format #t "~T~Troot: ~A~%" (-> obj root))
(format #t "~T~Tnode-list: ~A~%" (-> obj node-list))
(format #t "~T~Tdraw: ~A~%" (-> obj draw))
(format #t "~T~Tskel: ~A~%" (-> obj skel))
(format #t "~T~Tnav: ~A~%" (-> obj nav))
(format #t "~T~Talign: ~A~%" (-> obj align))
(format #t "~T~Tpath: ~A~%" (-> obj path))
(format #t "~T~Tvol: ~A~%" (-> obj vol))
(format #t "~T~Tfact: ~A~%" (-> obj fact))
(format #t "~T~Tlink: ~A~%" (-> obj link))
(format #t "~T~Tpart: ~A~%" (-> obj part))
(format #t "~T~Twater: ~A~%" (-> obj water))
(format #t "~T~Tsound: ~A~%" (-> obj sound))
(format #t "~T~Tstate-flags: ~D~%" (-> obj state-flags))
(format #t "~T~Tstate-time: ~D~%" (-> obj state-time))
obj
)
;; definition of type process-drawable-reserved
(deftype process-drawable-reserved (process-drawable)
()
:heap-base #x40
:method-count-assert 63
:size-assert #xb0
:flag-assert #x3f004000b0
(:methods
(dummy-20 () none 20)
(dummy-21 () none 21)
(dummy-22 () none 22)
(dummy-23 () none 23)
(dummy-24 () none 24)
(dummy-25 () none 25)
(dummy-26 () none 26)
(dummy-27 () none 27)
(dummy-28 () none 28)
(dummy-29 () none 29)
(dummy-30 () none 30)
(dummy-31 () none 31)
(dummy-32 () none 32)
(dummy-33 () none 33)
(dummy-34 () none 34)
(dummy-35 () none 35)
(dummy-36 () none 36)
(dummy-37 () none 37)
(dummy-38 () none 38)
(dummy-39 () none 39)
(dummy-40 () none 40)
(dummy-41 () none 41)
(dummy-42 () none 42)
(dummy-43 () none 43)
(dummy-44 () none 44)
(dummy-45 () none 45)
(dummy-46 () none 46)
(dummy-47 () none 47)
(dummy-48 () none 48)
(dummy-49 () none 49)
(dummy-50 () none 50)
(dummy-51 () none 51)
(dummy-52 () none 52)
(dummy-53 () none 53)
(dummy-54 () none 54)
(dummy-55 () none 55)
(dummy-56 () none 56)
(dummy-57 () none 57)
(dummy-58 () none 58)
(dummy-59 () none 59)
(dummy-60 () none 60)
(dummy-61 () none 61)
(dummy-62 () none 62)
)
)
;; definition for method 3 of type process-drawable-reserved
(defmethod inspect process-drawable-reserved ((obj process-drawable-reserved))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
obj
)
;; definition of type attack-info
(deftype attack-info (structure)
((trans vector :inline :offset-assert 0)
(vector vector :inline :offset-assert 16)
(intersection vector :inline :offset-assert 32)
(attacker uint64 :offset-assert 48)
(invinc-time uint64 :offset-assert 56)
(mask uint32 :offset-assert 64)
(mode basic :offset-assert 68)
(shove-back float :offset-assert 72)
(shove-up float :offset-assert 76)
(speed float :offset-assert 80)
(dist float :offset-assert 84)
(control float :offset-assert 88)
(angle basic :offset-assert 92)
(rotate-to float :offset-assert 96)
(prev-state basic :offset-assert 100)
)
:method-count-assert 10
:size-assert #x68
:flag-assert #xa00000068
(:methods
(dummy-9 () none 9)
)
)
;; definition for method 3 of type attack-info
(defmethod inspect attack-info ((obj attack-info))
(format #t "[~8x] ~A~%" obj 'attack-info)
(format #t "~Ttrans: ~`vector`P~%" (-> obj trans))
(format #t "~Tvector: ~`vector`P~%" (-> obj vector))
(format #t "~Tintersection: ~`vector`P~%" (-> obj intersection))
(format #t "~Tattacker: ~`handle`P~%" (-> obj attacker))
(format #t "~Tinvinc-time: ~D~%" (-> obj invinc-time))
(format #t "~Tmask: ~D~%" (-> obj mask))
(format #t "~Tmode: ~A~%" (-> obj mode))
(format #t "~Tshove-back: (meters ~m)~%" (-> obj shove-back))
(format #t "~Tshove-up: (meters ~m)~%" (-> obj shove-up))
(format #t "~Tspeed: (meters ~m)~%" (-> obj speed))
(format #t "~Tdist: (meters ~m)~%" (-> obj dist))
(format #t "~Tcontrol: ~f~%" (-> obj control))
(format #t "~Tangle: ~A~%" (-> obj angle))
(format #t "~Trotate-to: (deg ~r)~%" (-> obj rotate-to))
(format #t "~Tprev-state: ~A~%" (-> obj prev-state))
obj
)
;; definition for symbol *global-attack-id*, type int
(define *global-attack-id* 0)
;; definition of type ground-tween-info
(deftype ground-tween-info (structure)
((chan uint8 3 :offset-assert 0)
(blend uint32 3 :offset-assert 4)
(group uint32 5 :offset-assert 16)
)
:method-count-assert 9
:size-assert #x24
:flag-assert #x900000024
)
;; definition for method 3 of type ground-tween-info
(defmethod inspect ground-tween-info ((obj ground-tween-info))
(format #t "[~8x] ~A~%" obj 'ground-tween-info)
(format #t "~Tchan[3] @ #x~X~%" (-> obj chan))
(format #t "~Tblend[3] @ #x~X~%" (-> obj blend))
(format #t "~Tgroup[5] @ #x~X~%" (-> obj group))
obj
)
;; failed to figure out what this is:
(let ((v0-4 0))
)
test/decompiler/reference/engine/game/generic-obs-h_REF.gc
+356
View File
@@ -0,0 +1,356 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type manipy
(deftype manipy (process-drawable)
((new-trans-hook function :offset-assert 176)
(cur-trans-hook function :offset-assert 180)
(cur-event-hook function :offset-assert 184)
(new-joint-anim basic :offset-assert 188)
(new-joint-anim-blend uint64 :offset-assert 192)
(anim-mode basic :offset-assert 200)
(cur-grab-handle uint64 :offset-assert 208)
(cur-target-handle uint64 :offset-assert 216)
(old-grab-pos vector :inline :offset-assert 224)
(joint joint 4 :offset-assert 240)
(new-post-hook function :offset-assert 256)
(cur-post-hook function :offset-assert 260)
(clone-copy-trans basic :offset-assert 264)
(shadow-backup basic :offset-assert 268)
(draw? symbol :offset-assert 272)
)
:heap-base #xb0
:method-count-assert 20
:size-assert #x114
:flag-assert #x1400b00114
)
;; definition for method 3 of type manipy
(defmethod inspect manipy ((obj manipy))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~T~Tnew-trans-hook: ~A~%" (-> obj new-trans-hook))
(format #t "~T~Tcur-trans-hook: ~A~%" (-> obj cur-trans-hook))
(format #t "~T~Tcur-event-hook: ~A~%" (-> obj cur-event-hook))
(format #t "~T~Tnew-joint-anim: ~A~%" (-> obj new-joint-anim))
(format #t "~T~Tnew-joint-anim-blend: ~D~%" (-> obj new-joint-anim-blend))
(format #t "~T~Tanim-mode: ~A~%" (-> obj anim-mode))
(format #t "~T~Tcur-grab-handle: ~D~%" (-> obj cur-grab-handle))
(format #t "~T~Tcur-target-handle: ~D~%" (-> obj cur-target-handle))
(format #t "~T~Told-grab-pos: ~`vector`P~%" (&-> obj stack 112))
(format #t "~T~Tjoint[4] @ #x~X~%" (&-> obj stack 128))
(format #t "~T~Tnew-post-hook: ~A~%" (-> obj new-post-hook))
(format #t "~T~Tcur-post-hook: ~A~%" (-> obj cur-post-hook))
(format #t "~T~Tclone-copy-trans: ~A~%" (-> obj clone-copy-trans))
(format #t "~T~Tshadow-backup: ~A~%" (-> obj shadow-backup))
(format #t "~T~Tdraw?: ~A~%" (-> obj draw?))
obj
)
;; definition of type part-spawner
(deftype part-spawner (process-drawable)
((mode uint32 :offset-assert 176)
(enable basic :offset-assert 180)
(radius float :offset-assert 184)
(world-sphere sphere :inline :offset-assert 192)
)
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
(:methods
(dummy-20 () none 20)
)
)
;; definition for method 3 of type part-spawner
(defmethod inspect part-spawner ((obj part-spawner))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~T~Tmode: #x~X~%" (-> obj mode))
(format #t "~T~Tenable: ~A~%" (-> obj enable))
(format #t "~T~Tradius: (meters ~m)~%" (-> obj radius))
(format #t "~T~Tworld-sphere: #<sphere @ #x~X>~%" (&-> obj stack 80))
obj
)
;; definition of type part-tracker
(deftype part-tracker (process)
((root basic :offset-assert 112)
(part basic :offset-assert 116)
(target uint64 :offset-assert 120)
(callback basic :offset-assert 128)
(linger-callback basic :offset-assert 132)
(duration uint64 :offset-assert 136)
(linger-duration uint64 :offset-assert 144)
(start-time uint64 :offset-assert 152)
(offset vector :inline :offset-assert 160)
(userdata uint64 :offset-assert 176)
(user-time uint64 2 :offset-assert 184)
(user-vector vector 2 :inline :offset-assert 208)
(user-handle uint32 2 :offset-assert 240)
)
:heap-base #x90
:method-count-assert 14
:size-assert #xf8
:flag-assert #xe009000f8
)
;; definition for method 3 of type part-tracker
(defmethod inspect part-tracker ((obj part-tracker))
(let ((t9-0 (method-of-type process inspect)))
(t9-0 obj)
)
(format #t "~T~Troot: ~A~%" (-> obj root))
(format #t "~T~Tpart: ~A~%" (-> obj part))
(format #t "~T~Ttarget: ~D~%" (-> obj target))
(format #t "~T~Tcallback: ~A~%" (-> obj callback))
(format #t "~T~Tlinger-callback: ~A~%" (-> obj linger-callback))
(format #t "~T~Tduration: ~D~%" (-> obj duration))
(format #t "~T~Tlinger-duration: ~D~%" (-> obj linger-duration))
(format #t "~T~Tstart-time: ~D~%" (-> obj start-time))
(format #t "~T~Toffset: ~`vector`P~%" (&-> obj stack 48))
(format #t "~T~Tuserdata: ~A~%" (-> obj userdata))
(format #t "~T~Tuser-time[2] @ #x~X~%" (&-> obj stack 72))
(format #t "~T~Tuser-vector[2] @ #x~X~%" (&-> obj stack 96))
(format #t "~T~Tuser-handle[2] @ #x~X~%" (&-> obj stack 128))
obj
)
;; definition of type camera-tracker
(deftype camera-tracker (process)
((grab-target uint64 :offset 120)
(grab-event basic :offset-assert 128)
(release-event basic :offset-assert 132)
(old-global-mask uint32 :offset-assert 136)
(old-self-mask uint32 :offset-assert 140)
(old-parent-mask uint32 :offset-assert 144)
(look-at-target uint64 :offset-assert 152)
(pov-target uint64 :offset-assert 160)
(work-process uint64 :offset-assert 168)
(anim-process uint64 :offset-assert 176)
(start-time uint64 :offset-assert 184)
(callback basic :offset-assert 192)
(userdata basic :offset-assert 196)
(message basic :offset-assert 200)
(border-value basic :offset-assert 204)
(mask-to-clear uint32 :offset-assert 208)
(script basic :offset-assert 212)
(script-line basic :offset-assert 216)
(script-func basic :offset-assert 220)
)
:heap-base #x70
:method-count-assert 15
:size-assert #xe0
:flag-assert #xf007000e0
(:methods
(dummy-14 () none 14)
)
)
;; definition for method 3 of type camera-tracker
(defmethod inspect camera-tracker ((obj camera-tracker))
(let ((t9-0 (method-of-type process inspect)))
(t9-0 obj)
)
(format #t "~T~Tname: ~A~%" (-> obj name))
(format #t "~T~Tgrab-target: ~D~%" (-> obj grab-target))
(format #t "~T~Tgrab-event: ~A~%" (-> obj grab-event))
(format #t "~T~Trelease-event: ~A~%" (-> obj release-event))
(format #t "~T~Told-global-mask: ~D~%" (-> obj old-global-mask))
(format #t "~T~Told-self-mask: ~D~%" (-> obj old-self-mask))
(format #t "~T~Told-parent-mask: ~D~%" (-> obj old-parent-mask))
(format #t "~T~Tlook-at-target: ~D~%" (-> obj look-at-target))
(format #t "~T~Tpov-target: ~D~%" (-> obj pov-target))
(format #t "~T~Twork-process: ~D~%" (-> obj work-process))
(format #t "~T~Tanim-process: ~D~%" (-> obj anim-process))
(format #t "~T~Tstart-time: ~D~%" (-> obj start-time))
(format #t "~T~Tcallback: ~A~%" (-> obj callback))
(format #t "~T~Tuserdata: ~A~%" (-> obj userdata))
(format #t "~T~Tmessage: ~A~%" (-> obj message))
(format #t "~T~Tborder-value: ~A~%" (-> obj border-value))
(format #t "~T~Tmask-to-clear: ~D~%" (-> obj mask-to-clear))
(format #t "~T~Tscript: ~A~%" (-> obj script))
(format #t "~T~Tscript-line: ~A~%" (-> obj script-line))
(format #t "~T~Tscript-func: ~A~%" (-> obj script-func))
obj
)
;; definition of type touch-tracker
(deftype touch-tracker (process-drawable)
((duration uint64 :offset-assert 176)
(target uint64 :offset-assert 184)
(event basic :offset-assert 192)
(run-function basic :offset-assert 196)
(callback basic :offset-assert 200)
(event-mode basic :offset-assert 204)
)
:heap-base #x60
:method-count-assert 20
:size-assert #xd0
:flag-assert #x14006000d0
)
;; definition for method 3 of type touch-tracker
(defmethod inspect touch-tracker ((obj touch-tracker))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~T~Tduration: ~D~%" (-> obj duration))
(format #t "~T~Ttarget: ~D~%" (-> obj target))
(format #t "~T~Tevent: ~A~%" (-> obj event))
(format #t "~T~Trun-function: ~A~%" (-> obj run-function))
(format #t "~T~Tcallback: ~A~%" (-> obj callback))
(format #t "~T~Tevent-mode: ~A~%" (-> obj event-mode))
obj
)
;; definition of type swingpole
(deftype swingpole (process)
((root basic :offset-assert 112)
(dir vector :inline :offset-assert 128)
(range float :offset-assert 144)
(edge-length float :offset-assert 148)
)
:heap-base #x30
:method-count-assert 14
:size-assert #x98
:flag-assert #xe00300098
)
;; definition for method 3 of type swingpole
(defmethod inspect swingpole ((obj swingpole))
(let ((t9-0 (method-of-type process inspect)))
(t9-0 obj)
)
(format #t "~T~Troot: ~A~%" (-> obj root))
(format #t "~T~Tdir: ~`vector`P~%" (&-> obj stack 16))
(format #t "~T~Trange: (meters ~m)~%" (-> obj range))
(format #t "~T~Tedge-length: (meters ~m)~%" (-> obj edge-length))
obj
)
;; definition of type gui-query
(deftype gui-query (structure)
((x-position int32 :offset-assert 0)
(y-position int32 :offset-assert 4)
(message basic :offset-assert 8)
(decision basic :offset-assert 12)
(only-allow-cancel basic :offset-assert 16)
(no-msg basic :offset-assert 20)
(message-space int32 :offset-assert 24)
)
:pack-me
:method-count-assert 11
:size-assert #x1c
:flag-assert #xb0000001c
(:methods
(dummy-9 () none 9)
(dummy-10 () none 10)
)
)
;; definition for method 3 of type gui-query
(defmethod inspect gui-query ((obj gui-query))
(format #t "[~8x] ~A~%" obj 'gui-query)
(format #t "~Tx-position: ~D~%" (-> obj x-position))
(format #t "~Ty-position: ~D~%" (-> obj y-position))
(format #t "~Tmessage: ~A~%" (-> obj message))
(format #t "~Tdecision: ~A~%" (-> obj decision))
(format #t "~Tonly-allow-cancel: ~A~%" (-> obj only-allow-cancel))
(format #t "~Tno-msg: ~A~%" (-> obj no-msg))
(format #t "~Tmessage-space: ~D~%" (-> obj message-space))
obj
)
;; definition of type othercam
(deftype othercam (process)
((hand uint64 :offset-assert 112)
(old-global-mask uint32 :offset-assert 120)
(mask-to-clear uint32 :offset-assert 124)
(cam-joint-index int32 :offset-assert 128)
(old-pos vector :inline :offset-assert 144)
(old-mat-z vector :inline :offset-assert 160)
(had-valid-frame basic :offset-assert 176)
(border-value basic :offset-assert 180)
(die? basic :offset-assert 184)
(survive-anim-end? basic :offset-assert 188)
(spooling? basic :offset-assert 192)
)
:heap-base #x60
:method-count-assert 14
:size-assert #xc4
:flag-assert #xe006000c4
)
;; definition for method 3 of type othercam
(defmethod inspect othercam ((obj othercam))
(let ((t9-0 (method-of-type process inspect)))
(t9-0 obj)
)
(format #t "~T~Thand: ~D~%" (-> obj hand))
(format #t "~T~Told-global-mask: ~D~%" (-> obj old-global-mask))
(format #t "~T~Tmask-to-clear: ~D~%" (-> obj mask-to-clear))
(format #t "~T~Tcam-joint-index: ~D~%" (-> obj cam-joint-index))
(format #t "~T~Told-pos: #<vector @ #x~X>~%" (&-> obj stack 32))
(format #t "~T~Told-mat-z: #<vector @ #x~X>~%" (&-> obj stack 48))
(format #t "~T~Thad-valid-frame: ~A~%" (-> obj had-valid-frame))
(format #t "~T~Tborder-value: ~A~%" (-> obj border-value))
(format #t "~T~Tdie?: ~A~%" (-> obj die?))
(format #t "~T~Tsurvive-anim-end?: ~A~%" (-> obj survive-anim-end?))
(format #t "~T~Tspooling?: ~A~%" (-> obj spooling?))
obj
)
;; definition of type process-hidden
(deftype process-hidden (process)
()
:method-count-assert 15
:size-assert #x70
:flag-assert #xf00000070
(:methods
(dummy-14 () none 14)
)
)
;; definition for method 3 of type process-hidden
(defmethod inspect process-hidden ((obj process-hidden))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tname: ~A~%" (-> obj name))
(format #t "~Tmask: ~D~%" (-> obj mask))
(format #t "~Tparent: #x~X~%" (-> obj parent))
(format #t "~Tbrother: #x~X~%" (-> obj brother))
(format #t "~Tchild: #x~X~%" (-> obj child))
(format #t "~Tppointer: #x~X~%" (-> obj ppointer))
(format #t "~Tself: ~A~%" (-> obj self))
(format #t "~Tpool: ~A~%" (-> obj pool))
(format #t "~Tstatus: ~A~%" (-> obj status))
(format #t "~Tpid: ~D~%" (-> obj pid))
(format #t "~Tmain-thread: ~A~%" (-> obj main-thread))
(format #t "~Ttop-thread: ~A~%" (-> obj top-thread))
(format #t "~Tentity: ~A~%" (-> obj entity))
(format #t "~Tstate: ~A~%" (-> obj state))
(format #t "~Ttrans-hook: ~A~%" (-> obj trans-hook))
(format #t "~Tpost-hook: ~A~%" (-> obj post-hook))
(format #t "~Tevent-hook: ~A~%" (-> obj event-hook))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tnext-state: ~A~%" (-> obj next-state))
(format #t "~Theap-base: #x~X~%" (-> obj heap-base))
(format #t "~Theap-top: #x~X~%" (-> obj heap-top))
(format #t "~Theap-cur: #x~X~%" (-> obj heap-cur))
(format #t "~Tstack-frame-top: ~A~%" (-> obj stack-frame-top))
(format #t "~Theap: #<kheap @ #x~X>~%" (&-> obj heap-base))
(format #t "~Tconnection-list: ~`'connectable`P~%" (-> obj connection-list))
(format #t "~Tstack[0] @ #x~X~%" (-> obj stack))
obj
)
;; failed to figure out what this is:
(let ((v0-9 0))
)
test/decompiler/reference/engine/gfx/merc/merc-h_REF.gc
+1 -1
View File
@@ -23,7 +23,7 @@
(format #t "~Tvertex-skip: ~D~%" (-> obj vertex-skip))
(format #t "~Tvertex-count: ~D~%" (-> obj vertex-count))
(format #t "~Tcurrent-loc: ~D~%" (-> obj current-loc))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 20))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj _data 16))
obj
)
test/decompiler/reference/engine/gfx/texture-h_REF.gc
+1 -2
View File
@@ -359,7 +359,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -405,4 +405,3 @@
;; failed to figure out what this is:
(let ((v0-14 0))
)
test/decompiler/reference/engine/math/vector-h_REF.gc
+2 -2
View File
@@ -542,7 +542,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
@@ -675,7 +675,7 @@
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tdata[0] @ #x~X~%" (&-> obj data 4))
(format #t "~Tdata[0] @ #x~X~%" (-> obj _data))
obj
)
test/decompiler/reference/kernel/gcommon_REF.gc
+3 -4
View File
@@ -453,10 +453,9 @@
;; definition of type inline-array-class
(deftype inline-array-class (basic)
((length int32 :offset-assert 4)
(allocated-length int32 :offset-assert 8)
(data uint8 :dynamic :offset-assert 12)
(_pad uint8 4 :offset-assert 12)
((length int32 :offset-assert 4)
(allocated-length int32 :offset-assert 8)
(_data uint8 :dynamic :offset 16)
)
:method-count-assert 9
:size-assert #x10