mirror of
https://github.com/open-goal/jak-project
synced 2026-08-03 08:53:42 -04:00
water111
f7bd0752f8
* wip * getting stuff set up so we can actually run test cases * better handle block entry stuff * types2 working on gstring * comments * math ref working * up to first stack stuff * stack fixes * bounding box * math stuff is working * float fixes * temp debug for (method 9 profile-array) * stupid stupid bug * debugging * everything is broken * some amount of type stuff works * bitfield * texture bitfields not working * temp * types * more stuff * type check * temp * float related fixes for light and res problems * revisit broken files, fix bugs * more types * vector debug * bug fixes for decompiler crashes in harder functions * update goal_src
234 lines
8.7 KiB
Common Lisp
234 lines
8.7 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: loader-h.gc
|
|
;; name in dgo: loader-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; TODO: document this stuff when doing loader.gc
|
|
|
|
;; todo: more specific
|
|
(define-extern external-art-buffer-init function)
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype load-dir (basic)
|
|
((lev level :offset-assert 4)
|
|
(string-array (array string) :offset-assert 8)
|
|
(data-array (array basic) :offset-assert 12)
|
|
)
|
|
:method-count-assert 11
|
|
:size-assert #x10
|
|
:flag-assert #xb00000010
|
|
(:methods
|
|
(new (symbol type int level) _type_ 0)
|
|
(load-dir-method-9 () none 9)
|
|
(load-dir-method-10 () none 10)
|
|
)
|
|
)
|
|
|
|
(declare-type art-group basic)
|
|
|
|
(deftype load-dir-art-group (load-dir)
|
|
((art-group-array (array art-group) :offset 12)
|
|
)
|
|
:method-count-assert 11
|
|
:size-assert #x10
|
|
:flag-assert #xb00000010
|
|
(:methods
|
|
(new (symbol type int level) _type_ 0)
|
|
)
|
|
)
|
|
|
|
(defmethod new load-dir ((allocation symbol) (type-to-make type) (arg0 int) (arg1 level))
|
|
(let ((s4-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
|
|
(set! (-> s4-0 lev) arg1)
|
|
(set! (-> s4-0 string-array)
|
|
(the-as (array string) ((method-of-type array new) allocation array string arg0))
|
|
)
|
|
(set! (-> s4-0 string-array length) 0)
|
|
(set! (-> s4-0 data-array) (the-as (array basic) ((method-of-type array new) allocation array basic arg0)))
|
|
(set! (-> s4-0 data-array length) 0)
|
|
s4-0
|
|
)
|
|
)
|
|
|
|
(defmethod new load-dir-art-group ((allocation symbol) (type-to-make type) (arg0 int) (arg1 level))
|
|
(let ((v0-0 ((method-of-type load-dir new) allocation type-to-make arg0 arg1)))
|
|
(set! (-> v0-0 data-array content-type) art-group)
|
|
(the-as load-dir-art-group v0-0)
|
|
)
|
|
)
|
|
|
|
(deftype external-art-buffer (basic)
|
|
((index int32 :offset-assert 4)
|
|
(other external-art-buffer :offset-assert 8)
|
|
(status symbol :offset-assert 12)
|
|
(locked? symbol :offset-assert 16)
|
|
(login? symbol :offset-assert 20)
|
|
(frame-lock symbol :offset-assert 24)
|
|
(init-heap function :offset-assert 28)
|
|
(heap kheap :inline :offset-assert 32)
|
|
(pending-load-file string :offset-assert 48)
|
|
(pending-load-file-part int32 :offset-assert 52)
|
|
(pending-load-file-owner handle :offset-assert 56)
|
|
(pending-load-file-priority float :offset-assert 64)
|
|
(load-file string :offset-assert 68)
|
|
(load-file-part int32 :offset-assert 72)
|
|
(load-file-owner handle :offset-assert 80)
|
|
(load-file-priority float :offset-assert 88)
|
|
(buf pointer :offset-assert 92)
|
|
(len int32 :offset-assert 96)
|
|
(art-group art-group :offset-assert 100)
|
|
(art-data uint32 :offset 100)
|
|
)
|
|
:method-count-assert 16
|
|
:size-assert #x68
|
|
:flag-assert #x1000000068
|
|
(:methods
|
|
(new (symbol type int function symbol) _type_ 0)
|
|
(external-art-buffer-method-9 () none 9)
|
|
(external-art-buffer-method-10 () none 10)
|
|
(external-art-buffer-method-11 () none 11)
|
|
(external-art-buffer-method-12 () none 12)
|
|
(external-art-buffer-method-13 () none 13)
|
|
(external-art-buffer-method-14 () none 14)
|
|
(external-art-buffer-method-15 () none 15)
|
|
)
|
|
)
|
|
|
|
(defmethod new external-art-buffer ((allocation symbol) (type-to-make type) (arg0 int) (arg1 function) (arg2 symbol))
|
|
(let ((v0-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
|
|
(set! (-> v0-0 index) arg0)
|
|
(set! (-> v0-0 init-heap) arg1)
|
|
(set! (-> v0-0 login?) arg2)
|
|
(set! (-> v0-0 load-file) #f)
|
|
(set! (-> v0-0 load-file-part) -1)
|
|
(set! (-> v0-0 load-file-owner) (the-as handle #f))
|
|
(set! (-> v0-0 load-file-priority) 100000000.0)
|
|
(set! (-> v0-0 pending-load-file) #f)
|
|
(set! (-> v0-0 pending-load-file-part) -1)
|
|
(set! (-> v0-0 pending-load-file-owner) (the-as handle #f))
|
|
(set! (-> v0-0 pending-load-file-priority) 100000000.0)
|
|
(set! (-> v0-0 art-group) #f)
|
|
(set! (-> v0-0 status) 'initialize)
|
|
(set! (-> v0-0 locked?) #f)
|
|
(set! (-> v0-0 other) #f)
|
|
v0-0
|
|
)
|
|
)
|
|
|
|
(deftype spool-anim (basic)
|
|
((name string :offset 16)
|
|
(anim-name basic :offset-assert 20)
|
|
(parts int32 :offset-assert 24)
|
|
(hint-id int32 :offset 24)
|
|
(priority float :offset-assert 28)
|
|
(owner uint64 :offset-assert 32)
|
|
(command-list pair :offset-assert 40)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x2c
|
|
:flag-assert #x90000002c
|
|
)
|
|
|
|
(deftype external-art-control (basic)
|
|
((buffer external-art-buffer 2 :offset-assert 4)
|
|
(rec spool-anim 3 :inline :offset-assert 16)
|
|
(spool-lock handle :offset-assert 160)
|
|
(reserve-buffer external-art-buffer :offset-assert 168)
|
|
(reserve-buffer-count int16 :offset-assert 172)
|
|
(dma-reserve-buffer-count int16 :offset-assert 174)
|
|
(active-stream string :offset-assert 176)
|
|
(queue-stream (array spool-anim) :offset-assert 180)
|
|
(frame-mask uint32 :offset-assert 184)
|
|
(dma-reserve-heap kheap :inline :offset-assert 192)
|
|
)
|
|
:method-count-assert 16
|
|
:size-assert #xd0
|
|
:flag-assert #x10000000d0
|
|
(:methods
|
|
(new (symbol type) _type_ 0)
|
|
(update (_type_ symbol) int 9)
|
|
(clear-rec (_type_) int 10)
|
|
(external-art-control-method-11 () none 11)
|
|
(external-art-control-method-12 () none 12)
|
|
(external-art-control-method-13 () none 13)
|
|
(external-art-control-method-14 () none 14)
|
|
(external-art-control-method-15 () none 15)
|
|
)
|
|
)
|
|
|
|
(defmethod new external-art-control ((allocation symbol) (type-to-make type))
|
|
(let ((gp-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
|
|
(dotimes (s4-0 2)
|
|
(set! (-> gp-0 buffer s4-0)
|
|
((method-of-type external-art-buffer new) allocation external-art-buffer s4-0 external-art-buffer-init #t)
|
|
)
|
|
)
|
|
(set! (-> gp-0 buffer 0 other) (-> gp-0 buffer 1))
|
|
(set! (-> gp-0 buffer 1 other) (-> gp-0 buffer 0))
|
|
(dotimes (v1-9 3)
|
|
(set! (-> gp-0 rec v1-9 name) #f)
|
|
(set! (-> gp-0 rec v1-9 priority) 100000000.0)
|
|
(set! (-> gp-0 rec v1-9 owner) (the-as uint #f))
|
|
)
|
|
(set! (-> gp-0 spool-lock) (the-as handle #f))
|
|
(set! (-> gp-0 reserve-buffer) #f)
|
|
(set! (-> gp-0 active-stream) #f)
|
|
(set! (-> gp-0 queue-stream) (the-as (array spool-anim) (new 'global 'boxed-array spool-anim 4)))
|
|
(dotimes (s5-1 (-> gp-0 queue-stream allocated-length))
|
|
(set! (-> gp-0 queue-stream s5-1) (new 'global 'spool-anim))
|
|
)
|
|
(set! (-> gp-0 queue-stream length) 0)
|
|
gp-0
|
|
)
|
|
)
|
|
|
|
(deftype subtitle-range (basic)
|
|
((start-frame float :offset-assert 4)
|
|
(end-frame float :offset-assert 8)
|
|
(message object 8 :offset-assert 12)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x2c
|
|
:flag-assert #x90000002c
|
|
)
|
|
|
|
(defmethod inspect subtitle-range ((obj subtitle-range))
|
|
(when (not obj)
|
|
(return obj)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tstart-frame: ~f~%" (-> obj start-frame))
|
|
(format #t "~1Tend-frame: ~f~%" (-> obj end-frame))
|
|
(format #t "~1Tmessage[8] @ #x~X~%" (-> obj message))
|
|
(dotimes (s5-0 8)
|
|
(format #t "~T [~D]~1Tmessage: ~`object`P~%" s5-0 (-> obj message s5-0))
|
|
)
|
|
obj
|
|
)
|
|
|
|
(deftype subtitle-image (basic)
|
|
((width uint16 :offset-assert 4)
|
|
(height uint16 :offset-assert 6)
|
|
(palette rgba 16 :offset 16)
|
|
(data uint8 :dynamic :offset-assert 80)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x50
|
|
:flag-assert #x900000050
|
|
)
|
|
|
|
(defmethod inspect subtitle-image ((obj subtitle-image))
|
|
(when (not obj)
|
|
(return obj)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Twidth: ~D~%" (-> obj width))
|
|
(format #t "~1Theight: ~D~%" (-> obj height))
|
|
(format #t "~1Tpalette[16] @ #x~X~%" (-> obj palette))
|
|
(format #t "~1Tdata[0] @ #x~X~%" (-> obj data))
|
|
obj
|
|
)
|