mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
fc43870d85
This renames the method object in `defmethod`s to `this` and adds detection for the `set-time!` and `time-elapsed?` macros. Definitely my biggest PR yet...
102 lines
3.1 KiB
Common Lisp
102 lines
3.1 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: generic-work-h.gc
|
|
;; name in dgo: generic-work-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; common types for internal generic work.
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype generic-input-buffer (structure)
|
|
((merc generic-merc-work :inline :offset 0)
|
|
(tie generic-tie-work :inline :offset 0)
|
|
(data uint128 472 :offset 0)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x1d80
|
|
:flag-assert #x900001d80
|
|
)
|
|
|
|
(deftype generic-debug (structure)
|
|
((locks uint32 4 :offset-assert 0)
|
|
(timer uint32 32 :offset-assert 16)
|
|
(count uint32 32 :offset-assert 144)
|
|
(vps uint32 32 :offset-assert 272)
|
|
(buffer int32 :offset-assert 400)
|
|
(start-addr int32 :offset-assert 404)
|
|
(lock int32 :offset-assert 408)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x19c
|
|
:flag-assert #x90000019c
|
|
)
|
|
|
|
(deftype generic-vu1-header (structure)
|
|
((matrix matrix :inline :offset-assert 0)
|
|
(strgif generic-gif-tag :inline :offset-assert 64)
|
|
(adnop1 ad-cmd :inline :offset-assert 80)
|
|
(adnop2 ad-cmd :inline :offset-assert 96)
|
|
(adcmds ad-cmd 2 :inline :offset 80)
|
|
(dps uint16 :offset 92)
|
|
(kickoff uint16 :offset 108)
|
|
(strips uint16 :offset 76)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x70
|
|
:flag-assert #x900000070
|
|
)
|
|
|
|
(deftype generic-vu1-texbuf (structure)
|
|
((header generic-vu1-header :inline :offset-assert 0)
|
|
(shader uint32 :dynamic :offset-assert 112)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x70
|
|
:flag-assert #x900000070
|
|
)
|
|
|
|
(deftype generic-texbuf (structure)
|
|
((tag dma-packet :inline :offset-assert 0)
|
|
(header generic-vu1-header :inline :offset-assert 16)
|
|
(shader uint32 :dynamic :offset-assert 128)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x80
|
|
:flag-assert #x900000080
|
|
)
|
|
|
|
(deftype generic-effect-work (structure)
|
|
((consts generic-consts :inline :offset-assert 0)
|
|
(storage generic-storage :inline :offset-assert 432)
|
|
(storage2 generic-storage :inline :offset-assert 688)
|
|
(lights vu-lights :inline :offset-assert 944)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x420
|
|
:flag-assert #x900000420
|
|
)
|
|
|
|
(deftype generic-effect-buffer (structure)
|
|
((outbuf-0 uint8 3552 :offset-assert 0)
|
|
(work generic-effect-work :inline :offset-assert 3552)
|
|
(outbuf-1 uint8 3552 :offset-assert 4608)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x1fe0
|
|
:flag-assert #x900001fe0
|
|
)
|
|
|
|
(deftype generic-work (structure)
|
|
((saves generic-saves :inline :offset-assert 0)
|
|
(storage generic-storage :inline :offset-assert 368)
|
|
(in-buf generic-input-buffer :inline :offset-assert 624)
|
|
(fx-buf generic-effect-buffer :inline :offset-assert 8176)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x3fd0
|
|
:flag-assert #x900003fd0
|
|
)
|
|
|
|
(define *generic-debug* (new 'global 'generic-debug)) |