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

[jak3] decomp gsound (#3364)

Browse Source 
Decompile `gsound.gc`
This commit is contained in:
water111
2024-02-03 17:16:23 -05:00
committed by GitHub
parent 8b1c7759ea
commit 221360270a
25 changed files with 4588 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files
decompiler/analysis/insert_lets.cpp
+1
View File
@@ -1630,6 +1630,7 @@ FormElement* rewrite_proc_new(LetElement* in, const Env& env, FormPool& pool) {
expected_name = fmt::format("'{}", proc_type);
break;
case GameVersion::Jak2:
case GameVersion::Jak3:
expected_name = fmt::format("(symbol->string (-> {} symbol))", proc_type);
break;
default:
decompiler/config/jak3/all-types.gc
+186 -117
View File
@@ -2532,6 +2532,57 @@
(defenum sound-command
:type uint16
(iop-store)
(iop-free)
(load-bank)
(load-bank-from-iop)
(load-bank-from-ee)
(load-music)
(unload-bank)
(play)
(pause-sound)
(stop-sound)
(continue-sound)
(set-param)
(set-master-volume)
(pause-group)
(stop-group)
(continue-group)
(get-irx-version)
(set-falloff-curve)
(set-sound-falloff)
(reload-info)
(set-language)
(set-flava)
(set-midi-reg)
(set-reverb)
(set-ear-trans)
(shutdown)
(list-sounds)
(unload-music)
(set-fps)
(boot-load)
(game-load)
(num-tests)
(num-testruns)
(num-sectors)
(num-streamsectors)
(num-streambanks)
(track-pitch)
(linvel-nom)
(linvel-stm)
(seek-nom)
(seek-stm)
(read-seq-nom)
(read-seq-stm)
(read-spr-nom)
(read-spr-stm)
(read-spr-strn-nom)
(rand-stm-abort)
(rand-nom-abort)
(iop-mem)
(cancel-dgo)
(set-stereo-mode)
)
(defenum sound-group
@@ -2542,16 +2593,35 @@
(defenum sound-mask
:bitfield #t
:type uint16
(volume) ;; 1
(pitch) ;; 2
(bend) ;; 4
(unused) ;; 8
(time) ;; 10
(trans) ;; 20
(fo-min) ;; 40
(fo-max) ;; 80
(fo-curve) ;; 100
(sm-unk1)
(sm-unk2)
(reg0)
(reg1)
(reg2)
(unk)
)
(defenum stream-status
:type uint32
:bitfield #t
(ss1 1) ;; id-is-playing
(ss4 4) ;; is-playing
(ss6 6) ;; id-is-playing
)
(deftype sound-stream-name (structure)
((name uint8 48 :offset-assert 0) ;; guessed by decompiler
)
:pack-me
:method-count-assert 9
:size-assert #x30
:flag-assert #x900000030
@@ -2571,13 +2641,15 @@
)
(deftype sound-name (uint128)
()
((lo uint64 :offset 0) ;; added to help with cases where they access it by u64.
(hi uint64 :offset 64)
)
:flag-assert #x900000010
)
(deftype sound-rpc-cmd (structure)
((rsvd1 uint16 :offset-assert 0)
(command uint16 :offset-assert 2) ;; sound-command
(command sound-command :offset-assert 2) ;; sound-command
)
:method-count-assert 9
:size-assert #x4
@@ -2596,6 +2668,7 @@
(trans int32 3 :offset-assert 16) ;; guessed by decompiler
(group uint8 :offset-assert 28)
(reg uint8 3 :offset-assert 29) ;; guessed by decompiler
(group-and-reg uint32 :overlay-at group)
)
:pack-me
:method-count-assert 9
@@ -2865,10 +2938,12 @@
)
(deftype sound-spec (basic)
((mask sound-mask :offset-assert 4) ;; sound-mask
(
(mask sound-mask :offset-assert 4) ;; sound-mask
(num float :offset-assert 8)
(group sound-group :offset-assert 12) ;;
(reg uint8 3 :offset-assert 13) ;; guessed by decompiler
(group-and-reg uint32 :offset 12)
;; (UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(sound-name-char uint8 16 :offset-assert 16)
(sound-name sound-name :offset-assert 16 :overlay-at sound-name-char) ;;
@@ -2889,7 +2964,7 @@
)
(deftype sound-bank-state (structure)
((name basic :offset-assert 0)
((name symbol :offset-assert 0)
(mode uint32 :offset-assert 4)
)
:pack-me
@@ -2902,10 +2977,10 @@
((spec sound-spec :offset-assert 4) ;; guessed by decompiler
(playing-id sound-id :offset-assert 8) ;; guessed by decompiler
(trans vector :inline :offset-assert 16)
(name uint128 :offset-assert 32) ;; sound-name
(play-time uint64 :offset-assert 48) ;; time-frame
(time-base uint64 :offset-assert 56) ;; time-frame
(time-random uint64 :offset-assert 64) ;; time-frame
(name sound-name :offset-assert 32) ;; sound-name
(play-time time-frame :offset-assert 48) ;; time-frame
(time-base time-frame :offset-assert 56) ;; time-frame
(time-random time-frame :offset-assert 64) ;; time-frame
(volume int32 :offset-assert 72)
(pitch int32 :offset-assert 76)
(falloff-near int32 :offset-assert 80)
@@ -2921,15 +2996,15 @@
:size-assert #x70
:flag-assert #x1100000070
(:methods
(new (symbol type) _type_) ;; 0 ;; (new (symbol type basic vector) _type_)
(ambient-sound-method-9 () none) ;; 9 ;; (update! (_type_) int)
(ambient-sound-method-10 () none) ;; 10 ;; (change-sound! (_type_ sound-name) int)
(ambient-sound-method-11 () none) ;; 11 ;; (update-trans! (_type_ vector) int)
(ambient-sound-method-12 () none) ;; 12 ;; (update-vol! (_type_ float) int)
(ambient-sound-method-13 () none) ;; 13 ;; (update-pitch-mod! (_type_ float) none)
(ambient-sound-method-14 () none) ;; 14 ;; (set-falloff-far! (_type_ float) none)
(ambient-sound-method-15 () none) ;; 15 ;; (stop! (_type_) int)
(ambient-sound-method-16 () none) ;; 16
(new "Set up ambient-sound. Can use an entity-actor (grabs from lump), sound-spec, or name as a string." (symbol type basic vector float) _type_) ;; 0
(update! "Per-frame update of ambient sound." (_type_) int) ;; 9
(change-sound! "Change the sound being played." (_type_ sound-name) int) ;; 10
(update-trans! "Change the trans of the sound." (_type_ vector) int) ;; 11
(update-vol! "Change the volume of the sound." (_type_ float) int) ;; 12
(update-pitch-mod! (_type_ float) none) ;; 13
(set-falloff-far! (_type_ float) none) ;; 14
(set-falloff-mode! (_type_ int) none) ;; 15
(stop! (_type_) int) ;; 16
)
)
@@ -10049,7 +10124,7 @@
(gs12 12)
(gs13 13)
(gs14 14)
(gs15 15)
(screen-flip 15)
(gs16 16)
(gs17 17)
(gs18 18)
@@ -10210,6 +10285,7 @@
(borrow-city-count uint32 :offset 620)
(borrow-city pair 3 :offset-assert 624)
(audio-language language-enum :offset 748)
(ear-handle handle :offset 784) ;; added, used in gsound.
(special-volume float :offset 796)
(pad uint8 108 :offset 800) ;; added
)
@@ -15722,7 +15798,7 @@
(load-state-method-9 () none) ;; 9 ;; (reset! (_type_) _type_)
(load-state-method-10 () none) ;; 10 ;; (update! (_type_) int)
(load-state-method-11 () none) ;; 11 ;; (want-levels (_type_ (pointer symbol)) int)
(load-state-method-12 () none) ;; 12 ;; (want-sound-banks (_type_ (pointer symbol)) none)
(want-sound-banks (_type_ (pointer symbol)) none) ;; 12
(load-state-method-13 () none) ;; 13 ;; (want-display-level (_type_ symbol symbol) int)
(load-state-method-14 () none) ;; 14 ;; (want-vis-level (_type_ symbol) none)
(load-state-method-15 () none) ;; 15 ;; (want-force-vis (_type_ symbol symbol) int)
@@ -27171,8 +27247,8 @@
;; ramdisk ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#|
(deftype ramdisk-rpc-fill (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd1 int32 :offset-assert 0)
(ee-id int32 :offset-assert 4)
(rsvd2 int32 2 :offset-assert 8) ;; guessed by decompiler
@@ -27182,10 +27258,9 @@
:size-assert #x20
:flag-assert #x900000020
)
|#
#|
(deftype ramdisk-rpc-load (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd int32 :offset-assert 0)
(ee-id int32 :offset-assert 4)
(offset uint32 :offset-assert 8)
@@ -27195,10 +27270,9 @@
:size-assert #x10
:flag-assert #x900000010
)
|#
#|
(deftype ramdisk-rpc-load-to-ee (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd int32 :offset-assert 0)
(addr int32 :offset-assert 4)
(offset int32 :offset-assert 8)
@@ -27209,32 +27283,28 @@
:size-assert #x20
:flag-assert #x900000020
)
|#
;; (define-extern *ramdisk-rpc* object) ;; rpc-buffer-pair
;; (define-extern *current-ramdisk-id* object) ;; int
;; (define-extern ramdisk-load function) ;; (function int uint uint pointer int)
;; (define-extern ramdisk-sync function) ;; (function none)
(define-extern *ramdisk-rpc* rpc-buffer-pair)
(define-extern *current-ramdisk-id* int)
(define-extern ramdisk-load (function int uint uint pointer int))
(define-extern ramdisk-sync (function none))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; gsound ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#|
(deftype engine-sound-pers (engine-pers)
()
:method-count-assert 15
:size-assert #x20
:flag-assert #xf00000020
)
|#
#|
(deftype sound-iop-info (structure)
((frame uint32 :offset-assert 0)
(strpos int32 :offset-assert 4)
(str-id uint32 :offset-assert 8)
(str-id-sign int32 :offset-assert 8)
(str-id-sign int32 :offset 8)
(freemem uint32 :offset-assert 12)
(chinfo uint8 48 :offset-assert 16) ;; guessed by decompiler
(freemem2 uint32 :offset-assert 64)
@@ -27246,91 +27316,90 @@
(times int32 41 :offset-assert 92) ;; guessed by decompiler
(times-seq uint32 :offset-assert 256)
(iop-ticks uint32 :offset-assert 260)
(stream-position uint32 4 :offset-assert 272) ;; guessed by decompiler
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(stream-position uint32 4 :offset 272) ;; guessed by decompiler
; (UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(stream-status stream-status 4 :offset-assert 288) ;; guessed by decompiler
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(stream-name sound-stream-name 4 :offset-assert 304) ;; guessed by decompiler
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
; (UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(stream-name sound-stream-name 4 :inline :offset-assert 304) ;; guessed by decompiler
; (UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(stream-id sound-id 4 :offset-assert 496) ;; guessed by decompiler
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(music-register uint8 17 :offset-assert 512) ;; guessed by decompiler
(music-excite int8 :offset-assert 528)
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
; (UNKNOWN UNKNOWN :offset-assert -1) ;; field could not be read.
(music-register uint8 17 :offset 512) ;; guessed by decompiler
(music-excite int8 :offset 528)
(ramdisk-name uint8 16 :offset-assert 529)
(sound-bank0 uint8 16 :offset 592)
(sound-bank1 uint8 16)
(sound-bank2 uint8 16)
(sound-bank3 uint8 16)
(sound-bank4 uint8 16)
(sound-bank5 uint8 16)
(sound-bank6 uint8 16)
(sound-bank7 uint8 16)
)
:method-count-assert 9
:size-assert #x2d0
:flag-assert #x9000002d0
)
|#
;; (define-extern *sound-loop-engine* object) ;; engine-sound-pers
;; (define-extern *sound-player-rpc* object) ;; rpc-buffer-pair
;; (define-extern *sound-loader-rpc* object) ;; rpc-buffer-pair
;; (define-extern sound-name= function) ;; (function sound-name sound-name symbol)
;; (define-extern *sound-iop-info* object) ;; sound-iop-info
;; (define-extern str-is-playing? function) ;; (function symbol)
;; (define-extern str-id-is-playing? function) ;; (function int symbol)
;; (define-extern current-str-pos function) ;; (function sound-id int)
;; (define-extern current-str-status function)
;; (define-extern is-ramdisk-loaded? function) ;; (function symbol symbol)
;; (define-extern is-cd-in? function) ;; (function symbol)
;; (define-extern new-sound-id function) ;; (function sound-id)
;; (define-extern check-irx-version function) ;; (function int)
;; (define-extern sound-bank-iop-store function) ;; (function sound-name sound-id)
;; (define-extern sound-bank-iop-free function) ;; (function sound-name sound-id)
;; (define-extern sound-bank-load function) ;; (function sound-name sound-id)
;; (define-extern sound-bank-load-from-iop function) ;; (function sound-name sound-id)
;; (define-extern sound-bank-load-from-ee function) ;; (function sound-name pointer sound-id)
;; (define-extern sound-bank-unload function) ;; (function sound-name int)
;; (define-extern sound-music-load function) ;; (function sound-name int)
;; (define-extern sound-music-unload function) ;; (function int)
;; (define-extern set-language function) ;; (function language-enum int)
;; (define-extern sound-set-stereo-mode function) ;; (function stereo-mode none)
;; (define-extern list-sounds function) ;; (function none)
;; (define-extern sound-command->string function) ;; (function sound-command string)
;; (define-extern sound-buffer-dump function) ;; (function int)
;; (define-extern *sound-player-enable* object) ;; symbol
;; (define-extern swap-sound-buffers function) ;; (function vector vector vector float int)
(define-extern get-sound-buffer-entry (function pointer))
;; (define-extern free-last-sound-buffer-entry function) ;; (function none)
;; (define-extern sound-basic-cb function) ;; (function int (pointer int32) none)
;; (define-extern sound-trans-convert function) ;; (function vector3w vector int)
;; (define-extern sound-unit-vector-convert function)
;; (define-extern sound-angle-convert function) ;; (function float int)
(define-extern string->sound-name (function string sound-name))
;; (define-extern sound-name->string function)
;; (define-extern sound-set-volume function) ;; (function sound-group float int)
;; (define-extern sound-set-reverb function) ;; (function int float float uint int)
;; (define-extern sound-set-ear-trans function) ;; (function vector vector vector float int)
;; (define-extern sound-play-by-name function) ;; (function sound-name sound-id int int int sound-group object sound-id :behavior process-drawable)
;; (define-extern sound-play-by-spec function) ;; (function sound-spec sound-id vector sound-id :behavior process-drawable)
;; (define-extern sound-pause function) ;; (function sound-id int)
;; (define-extern sound-stop function) ;; (function sound-id int)
;; (define-extern sound-continue function) ;; (function sound-id int)
;; (define-extern sound-group-pause function) ;; (function sound-group int)
;; (define-extern sound-group-stop function) ;; (function sound-group int)
;; (define-extern sound-group-continue function) ;; (function sound-group int)
;; (define-extern sound-set-flava function) ;; (function uint uint int)
;; (define-extern sound-set-midi-reg function) ;; (function int int int)
;; (define-extern sound-set-fps function) ;; (function int int)
;; (define-extern sound-volume-off function) ;; (function int)
;; (define-extern *ambient-spec* sound-spec) ;; sound-spec
;; (define-extern show-iop-info function) ;; (function dma-buffer int)
;; (define-extern show-iop-memory function) ;; (function dma-buffer int)
;; (define-extern ear-trans function) ;; (function int vector)
;; (define-extern make-sqrt-table function) ;; (function int)
;; (define-extern loader-test-command function) ;; (function sound-command uint none)
;; (define-extern doppler-pitch-shift function) ;; (function vector vector float)
;; (define-extern sound-bank-reload function) ;; (function none)
(define-extern *sound-loop-engine* engine-sound-pers)
(define-extern *sound-player-rpc* rpc-buffer-pair)
(define-extern *sound-loader-rpc* rpc-buffer-pair)
(define-extern sound-name= "Are two sound names the same?" (function sound-name sound-name symbol))
(define-extern *sound-iop-info* sound-iop-info)
(define-extern str-is-playing? "Is any streaming audio playing?" (function symbol))
(define-extern str-id-is-playing? "Is any streaming audio with the given ID playing?" (function sound-id symbol))
(define-extern current-str-pos "Get the current stream position of the given sound ID, or -1 if it is not playing." (function sound-id int))
(define-extern current-str-status "Get the status of the stream playing the given sound, or 0 if it is not playing." (function sound-id stream-status))
(define-extern is-ramdisk-loaded? "Check if the ramdisk-name is set to this (unused)." (function symbol symbol))
(define-extern is-cd-in? "Is the CD/DVD in the ps2?" (function symbol))
(define-extern new-sound-id "Allocate a new sound ID, used to identify a unique playback of a sound." (function sound-id))
(define-extern check-irx-version "Confirm OVERLORD version is correct and set up the sound-iop-info address so the OVERLORD can report back to the EE." (function int))
(define-extern sound-bank-iop-store "Send a iop-store RPC to loader with the given name" (function sound-name sound-id))
(define-extern sound-bank-iop-free "Send a iop-free RPC to loader with the given name" (function sound-name sound-id))
(define-extern sound-bank-load "Send RPC to load a sound bank." (function sound-name int int sound-id))
(define-extern sound-bank-load-from-iop "Send load-bank-from-iop rpc to loader" (function sound-name sound-id))
(define-extern sound-bank-load-from-ee "Send load-bank-from-ee rpc to loader" (function sound-name pointer sound-id))
(define-extern sound-bank-unload "Send unload-bank rpc to loader" (function sound-name int))
(define-extern sound-music-load "Send load-music rpc to loader" (function sound-name int))
(define-extern sound-music-unload "Send unload-music rpc to loader." (function int))
(define-extern set-language "Send set-language rpc to loader. Note this is only for sound, no game text is changed." (function language-enum int))
(define-extern sound-set-stereo-mode "Send set-stereo-mode rpc to loader." (function int none))
(define-extern list-sounds "Send list-sounds rpc to loader." (function none))
(define-extern sound-command->string "Convert sound-command enum to string." (function sound-command string))
(define-extern sound-buffer-dump "Print out all sound-commands in the buffer." (function int))
(define-extern *sound-player-enable* symbol)
(define-extern swap-sound-buffers "Per-frame update of sound system - update loop-engine, update ear trans, send player RPC, check for missing/dirty CD." (function vector vector vector vector vector float int))
(define-extern get-sound-buffer-entry "Allocate a new entry in the player RPC queue, to be flushed on the next frame." (function pointer))
(define-extern free-last-sound-buffer-entry "Remove the last thing added with get-sound-buffer-entry." (function none))
(define-extern sound-basic-cb "Unknown and unused callback." (function int (pointer int32) none))
(define-extern sound-trans-convert "Convert a GOAL translation (meters) to integer format for the IOP" (function (pointer int32) vector int))
(define-extern sound-unit-vector-convert "Convert a GOAL unit-vector (float) to integer format for the IOP" (function (pointer int32) vector none))
(define-extern sound-angle-convert "Convert a GOAL angle to integer format for the iop" (function float int))
(define-extern string->sound-name "Create a sound-name from a string" (function string sound-name))
(define-extern sound-name->string "Create a string from a sound-name. Returns pointer to a single shared static string." (function sound-name string))
(define-extern sound-set-volume "Send set-master-volume rpc." (function sound-group float int))
(define-extern sound-set-reverb "Send set-reverb rpc" (function int float float uint int))
(define-extern sound-set-ear-trans "Send set-ear-trans rpc" (function vector vector vector vector vector float int))
(define-extern sound-play-by-name "Send play rpc to play a sound!" (function sound-name sound-id int int int sound-group object sound-id :behavior process-drawable)) ;
(define-extern sound-play-by-spec "Send play rpc to play a sound!" (function sound-spec sound-id vector sound-id :behavior process-drawable))
(define-extern sound-pause "Send pause-sound rpc to pause by id" (function sound-id int))
(define-extern sound-stop "Send stop-sound rpc to stop by id" (function sound-id int))
(define-extern sound-continue "Send continue-sound rpc to continue by id" (function sound-id int))
(define-extern sound-group-pause "Send pause-group rpc" (function sound-group int))
(define-extern sound-group-stop "Send stop-group rpc" (function sound-group int))
(define-extern sound-group-continue "Send continue-group rpc" (function sound-group int))
(define-extern sound-set-flava "Send set-flava rpc" (function uint uint int))
(define-extern sound-set-midi-reg "Send set-midi-reg rpc" (function int int int))
(define-extern sound-set-fps "Send set-fps rpc" (function int int))
(define-extern sound-volume-off "Adjust settings to turn all sound volume off" (function int))
(define-extern *ambient-spec* sound-spec)
(define-extern show-iop-info "Display iop info on screen." (function dma-buffer int))
(define-extern show-iop-memory "Display iop memory stats on screen" (function dma-buffer int))
(define-extern ear-trans "Get the current location of the ear. Use 1 for the settings ear-handle, or 0 for the camera." (function int vector))
(define-extern make-sqrt-table "Generate integer square-root table used in the IOP." (function none))
(define-extern loader-test-command "Send a command to loader by ID." (function sound-command uint none))
(define-extern doppler-pitch-shift "Compute pitch shift for the doppler effect. This is done assuming the listener is *target* and has *target*'s velocity." (function vector vector float))
(define-extern sound-bank-reload "Start a background process to unload all sound banks, then load them again." (function none))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; transformq ;;
@@ -29404,7 +29473,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-extern get-current-language (function language-enum))
;; (define-extern *setting-control* object) ;; setting-control
(define-extern *setting-control* setting-control)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mood-tables ;;
@@ -30664,7 +30733,7 @@
;; (define-extern matrix-world->local function) ;; (function symbol object matrix)
;; (define-extern *camera-dummy-vector* object) ;; vector
(define-extern camera-pos (function vector))
;; (define-extern math-camera-pos function) ;; (function vector)
(define-extern math-camera-pos (function vector))
;; (define-extern camera-matrix function) ;; (function matrix)
(define-extern math-camera-matrix (function matrix))
;; (define-extern camera-angle function) ;; (function float)
@@ -33439,7 +33508,7 @@
;; (define-extern target-log-attack function) ;; (function attack-info symbol symbol :behavior target)
;; (define-extern ground-tween-initialize function) ;; (function ground-tween-info uint uint uint uint uint uint float ground-tween-info :behavior target)
;; (define-extern ground-tween-update function) ;; (function ground-tween-info float float float none :behavior target)
;; (define-extern target-pos function) ;; (function int vector)
(define-extern target-pos (function int vector))
;; (define-extern target-cam-pos function) ;; (function vector)
;; (define-extern target-rot function) ;; (function quaternion)
;; (define-extern external-target-spawn function)
@@ -35849,9 +35918,9 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (define-extern *footstep-surface* object) ;; pat-surface
;; (define-extern *debug-effect-control* object) ;; symbol
(define-extern *debug-effect-control* symbol)
;; (define-extern sound-name-with-material function) ;; (function string pat-surface string sound-name)
;; (define-extern effect-param->sound-spec function) ;; (function sound-spec (pointer float) int process-focusable sound-spec)
(define-extern effect-param->sound-spec (function sound-spec (pointer float) int process-focusable sound-spec))
;; (define-extern target-land-effect function) ;; (function none :behavior target)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -36684,7 +36753,7 @@
|#
;; (define-extern *progress-stack* object) ;; (pointer uint8)
;; (define-extern *progress-process* object) ;; (pointer progress)
(define-extern *progress-process* (pointer progress))
;; (define-extern *progress-save-info* object) ;; mc-slot-info
;; (define-extern *progress-work* object)
;; (define-extern min-max-wrap-around function) ;; (function int int int int)
@@ -36693,7 +36762,7 @@
;; (define-extern hud-ring-cell-init-by-other function) ;; (function int float int object :behavior hud-ring-cell)
;; (define-extern progress-init-by-other function) ;; (function symbol object :behavior progress)
;; (define-extern set-ring-position function) ;; (function progress float)
;; (define-extern activate-progress function) ;; (function process symbol none)
(define-extern activate-progress (function process symbol none))
;; (define-extern deactivate-progress function) ;; (function none)
;; (define-extern hide-progress-screen function) ;; (function none)
;; (define-extern progress-allowed? function) ;; (function symbol)
decompiler/config/jak3/ntsc_v1/anonymous_function_types.jsonc
+2 -1
View File
@@ -13,5 +13,6 @@
[0, "(function none)"],
[1, "(function none)"],
[2, "(function none)"]
]
],
"gsound": [[1, "(function none)"]]
}
decompiler/config/jak3/ntsc_v1/stack_structures.jsonc
+9 -1
View File
@@ -14,6 +14,14 @@
"show-mc-info": [[16, "mc-slot-info"]],
"joint-mod-blend-world-callback": [[16, "joint-mod-blend-world-work"]],
"(method 42 nav-mesh)": [[16, "vector"], [32, "vector"]],
"(method 44 nav-mesh)": [[16, "vector"], [32, "vector"]]
"(method 44 nav-mesh)": [[16, "vector"], [32, "vector"]],
"string->sound-name": [[16, ["array", "sound-name", 1]]],
"sound-name->string": [[16, ["array", "uint8", 16]]],
"doppler-pitch-shift": [[16, ["inline-array", "vector", 2]]],
"(anon-function 1 gsound)": [
[16, ["array", "symbol", 4]],
[32, ["array", "symbol", 4]]
]
}
decompiler/config/jak3/ntsc_v1/type_casts.jsonc
+54 -1
View File
@@ -372,6 +372,59 @@
[27, "s4", "uint"],
[37, "s4", "uint"],
[60, "s4", "pointer"]
]
],
"ramdisk-load": [[[7, 12], "v1", "ramdisk-rpc-load"]],
"sound-buffer-dump": [[[13, 39], "s3", "sound-rpc-play"]],
"(method 10 engine-sound-pers)": [[[2, 17], "v1", "sound-rpc-set-param"]],
"check-irx-version": [[[3, 51], "gp", "sound-rpc-get-irx-version"]],
"sound-bank-iop-store": [[[7, 11], "v1", "sound-rpc-bank-cmd"]],
"sound-bank-iop-free": [[[7, 12], "v1", "sound-rpc-bank-cmd"]],
"sound-bank-load": [[[11, 16], "v1", "sound-rpc-load-bank"]],
"sound-bank-load-from-iop": [[[7, 12], "v1", "sound-rpc-load-bank"]],
"sound-bank-load-from-ee": [[[8, 14], "v1", "sound-rpc-load-bank"]],
"sound-bank-unload": [[[6, 11], "v1", "sound-rpc-unload-bank"]],
"sound-music-load": [[[6, 11], "v1", "sound-rpc-load-music"]],
"sound-music-unload": [[[3, 8], "v1", "sound-rpc-unload-music"]],
"set-language": [[[6, 9], "v1", "sound-rpc-set-language"]],
"sound-set-stereo-mode": [[[4, 9], "v1", "sound-rpc-set-stereo-mode"]],
"list-sounds": [[[3, 7], "v1", "sound-rpc-list-sounds"]],
"string->sound-name": [[[2, 18], "a1", "(pointer uint8)"]],
"sound-set-volume": [[[3, 16], "v1", "sound-rpc-set-master-volume"]],
"sound-set-reverb": [[[5, 25], "v1", "sound-rpc-set-reverb"]],
"sound-set-ear-trans": [[[7, 45], "gp", "sound-rpc-set-ear-trans"]],
"sound-name->string": [[2, "a1", "(pointer sound-name)"]],
"sound-play-by-name": [
[[12, 45], "s5", "sound-rpc-play"],
[[22, 39], "s3", "process-drawable"]
],
"sound-play-by-spec": [
[[4, 54], "s5", "sound-rpc-play"],
[[31, 47], "s3", "process-drawable"]
],
"sound-pause": [[[3, 8], "v1", "sound-rpc-pause-sound"]],
"sound-stop": [[[3, 8], "v1", "sound-rpc-stop-sound"]],
"sound-continue": [[[3, 8], "v1", "sound-rpc-continue-sound"]],
"sound-group-pause": [[[3, 7], "v1", "sound-rpc-pause-group"]],
"sound-group-stop": [[[3, 7], "v1", "sound-rpc-stop-group"]],
"sound-group-continue": [[[3, 7], "v1", "sound-rpc-continue-group"]],
"sound-set-flava": [[[3, 10], "v1", "sound-rpc-set-flava"]],
"sound-set-midi-reg": [[[3, 10], "v1", "sound-rpc-set-midi-reg"]],
"sound-set-fps": [[[3, 10], "v1", "sound-rpc-set-fps"]],
"(method 0 ambient-sound)": [
[143, "v1", "sound-spec"],
[147, "v1", "sound-spec"],
[150, "v1", "sound-spec"],
[154, "v1", "sound-spec"],
["_stack_", 16, "sound-spec"],
["_stack_", 64, "res-tag"],
["_stack_", 48, "(pointer float)"],
["_stack_", 32, "sound-name"],
[[117, 183], "s5", "ambient-sound"]
],
"ear-trans": [
[32, "s5", "process-focusable"]
],
"loader-test-command": [[[5, 10], "v1", "sound-rpc-test-cmd"]]
}
decompiler/config/jak3/ntsc_v1/var_names.jsonc
+249
View File
@@ -979,5 +979,254 @@
"start",
"end"
]
},
"sound-name=": {
"args": [
"a",
"b"
]
},
"str-id-is-playing?": {
"args": [
"id"
]
},
"current-str-pos": {
"args": [
"id"
]
},
"current-str-status": {
"args": [
"id"
]
},
"is-ramdisk-loaded?": {
"args": [
"name"
]
},
"sound-bank-iop-store": {
"args": [
"name"
]
},
"sound-bank-iop-free": {
"args": [
"name"
]
},
"sound-bank-load": {
"args": [
"name",
"mode",
"priority"
]
},
"sound-bank-load-from-iop": {
"args": [
"name"
]
},
"sound-bank-load-from-ee": {
"args": [
"name",
"addr"
]
},
"sound-bank-unload": {
"args": [
"name"
]
},
"sound-music-load": {
"args": [
"name"
]
},
"set-language": {
"args": [
"lang"
]
},
"sound-set-stereo-mode": {
"args": [
"mode"
]
},
"sound-command->string": {
"args": [
"cmd"
]
},
"sound-trans-convert": {
"args": [
"int-trans",
"meter-trans"
]
},
"sound-unit-vector-convert": {
"args": [
"int-unit-vector",
"float-unit-vector"
]
},
"sound-angle-convert": {
"args": [
"float-angle"
]
},
"string->sound-name": {
"args": [
"str"
]
},
"sound-name->string": {
"args": [
"name"
]
},
"sound-set-volume": {
"args": [
"group",
"vol"
]
},
"sound-set-reverb": {
"args": [
"reverb",
"left",
"right",
"core"
]
},
"sound-set-ear-trans": {
"args": [
"ear0",
"ear1",
"cam",
"fwd",
"left",
"scale"
]
},
"sound-play-by-name": {
"args": [
"name",
"id",
"vol",
"pitch",
"bend",
"group",
"trans"
]
},
"sound-play-by-spec": {
"args": [
"spec",
"name",
"trans"
]
},
"sound-pause": {
"args": [
"id"
]
},
"sound-stop": {
"args": [
"id"
]
},
"sound-continue": {
"args": [
"id"
]
},
"sound-group-pause": {
"args": [
"group"
]
},
"sound-group-stop": {
"args": [
"group"
]
},
"sound-group-continue": {
"args": [
"group"
]
},
"sound-set-flava": {
"args": [
"flava",
"excitement"
]
},
"sound-set-midi-reg": {
"args": [
"reg",
"val"
]
},
"sound-set-fps": {
"args": [
"fps"
]
},
"show-iop-info": {
"args": [
"dma"
]
},
"show-iop-memory": {
"args": [
"dma"
]
},
"ear-trans": {
"args": [
"mode"
]
},
"loader-test-command": {
"args": [
"cmd",
"param"
]
},
"doppler-pitch-shift": {
"args": [
"sound-pos",
"sound-vel"
]
},
"(method 0 ambient-sound)": {
"args": [
"allocation",
"type-to-make",
"spec",
"trans",
"lump-time"
]
},
"(method 10 ambient-sound)": {
"args": [
"this",
"new-sound"
]
},
"(method 11 ambient-sound)": {
"args": [
"this",
"new-trans"
]
},
"(method 12 ambient-sound)": {
"args": [
"this",
"new-vol"
]
}
}
goal_src/jak3/engine/camera/cam-interface-h.gc
+1
View File
@@ -7,6 +7,7 @@
(define-extern math-camera-matrix (function matrix))
(define-extern camera-pos (function vector))
(define-extern math-camera-pos (function vector))
;; DECOMP BEGINS
goal_src/jak3/engine/game/effect-control-h.gc
+2
View File
@@ -12,6 +12,8 @@
)
;; ---effect-control-flag
(define-extern effect-param->sound-spec (function sound-spec (pointer float) int process-focusable sound-spec))
(define-extern *debug-effect-control* symbol)
;; DECOMP BEGINS
goal_src/jak3/engine/game/game-info-h.gc
+1 -1
View File
@@ -239,7 +239,7 @@
(load-state-method-9 () none)
(load-state-method-10 () none)
(load-state-method-11 () none)
(load-state-method-12 () none)
(want-sound-banks (_type_ (pointer symbol)) none)
(load-state-method-13 () none)
(load-state-method-14 () none)
(load-state-method-15 () none)
goal_src/jak3/engine/game/main-h.gc
+1
View File
@@ -6,6 +6,7 @@
;; dgos: GAME
(declare-type debug-menu-context basic)
(define-extern movie? (function symbol))
;; +++main-h:collide-spec
(defenum collide-spec
goal_src/jak3/engine/game/settings-h.gc
+30 -1
View File
@@ -5,6 +5,9 @@
;; name in dgo: settings-h
;; dgos: GAME
(declare-type setting-control structure)
(define-extern *setting-control* setting-control)
;; +++cam-master-options
(defenum cam-master-options
:type uint64
@@ -148,7 +151,7 @@
(gs12 12)
(gs13 13)
(gs14 14)
(gs15 15)
(screen-flip 15)
(gs16 16)
(gs17 17)
(gs18 18)
@@ -200,6 +203,31 @@
)
;; ---game-secrets
(defmacro setting-control-func! (func s &rest args)
(let ((argb #f)
(argi 0)
(argf 0.0)
(setting (car s)))
(cond
(#t
(set! argb (car args))
(set! argf (cadr args))
(set! argi (caddr args))
)
)
`(,func *setting-control* (with-pp pp) ,s ,argb ,argf ,argi)
)
)
(defmacro add-setting! (s &rest args)
`(setting-control-func! add-setting ,s ,@args)
)
(defmacro set-setting! (s &rest args)
`(setting-control-func! set-setting ,s ,@args)
)
(defmacro remove-setting! (s)
`(remove-setting *setting-control* (with-pp pp) ,s)
)
;; DECOMP BEGINS
@@ -312,6 +340,7 @@
(borrow-city-count uint32 :offset 620)
(borrow-city pair 3)
(audio-language language-enum :offset 748)
(ear-handle handle :offset 784)
(special-volume float :offset 796)
(pad uint8 108 :offset 800)
)
goal_src/jak3/engine/load/load-dgo.gc
+1 -1
View File
@@ -293,7 +293,7 @@
(defun dgo-load-cancel ((arg0 int))
"Abort a DGO load."
(let ((v1-0 (the-as sound-rpc-cancel-dgo (get-sound-buffer-entry))))
(set! (-> v1-0 command) (the-as uint 49))
(set! (-> v1-0 command) (sound-command cancel-dgo))
(set! (-> v1-0 id) (the-as uint arg0))
)
0
goal_src/jak3/engine/load/ramdisk.gc
+50
View File
@@ -7,3 +7,53 @@
;; DECOMP BEGINS
(deftype ramdisk-rpc-fill (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd1 int32)
(ee-id int32)
(rsvd2 int32 2)
(filename uint128)
)
)
(deftype ramdisk-rpc-load (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd int32)
(ee-id int32)
(offset uint32)
(length uint32)
)
)
(deftype ramdisk-rpc-load-to-ee (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd int32)
(addr int32)
(offset int32)
(length int32)
(filename uint128)
)
)
(define *ramdisk-rpc* (new 'global 'rpc-buffer-pair (the-as uint 32) (the-as uint 1) 2))
(define *current-ramdisk-id* 0)
(defun ramdisk-load ((arg0 int) (arg1 uint) (arg2 uint) (arg3 pointer))
(let ((v1-1 (the-as ramdisk-rpc-load (add-element *ramdisk-rpc*))))
(set! (-> v1-1 offset) arg1)
(set! (-> v1-1 ee-id) arg0)
(set! (-> v1-1 length) arg2)
)
(call *ramdisk-rpc* (the-as uint 0) arg3 arg2)
0
)
(defun ramdisk-sync ()
(sync *ramdisk-rpc* #t)
0
(none)
)
goal_src/jak3/engine/sound/gsound-h.gc
+114 -16
View File
@@ -7,6 +7,57 @@
(defenum sound-command
:type uint16
(iop-store)
(iop-free)
(load-bank)
(load-bank-from-iop)
(load-bank-from-ee)
(load-music)
(unload-bank)
(play)
(pause-sound)
(stop-sound)
(continue-sound)
(set-param)
(set-master-volume)
(pause-group)
(stop-group)
(continue-group)
(get-irx-version)
(set-falloff-curve)
(set-sound-falloff)
(reload-info)
(set-language)
(set-flava)
(set-midi-reg)
(set-reverb)
(set-ear-trans)
(shutdown)
(list-sounds)
(unload-music)
(set-fps)
(boot-load)
(game-load)
(num-tests)
(num-testruns)
(num-sectors)
(num-streamsectors)
(num-streambanks)
(track-pitch)
(linvel-nom)
(linvel-stm)
(seek-nom)
(seek-stm)
(read-seq-nom)
(read-seq-stm)
(read-spr-nom)
(read-spr-stm)
(read-spr-strn-nom)
(rand-stm-abort)
(rand-nom-abort)
(iop-mem)
(cancel-dgo)
(set-stereo-mode)
)
(defenum sound-group
@@ -17,20 +68,63 @@
(defenum sound-mask
:bitfield #t
:type uint16
(volume) ;; 1
(pitch) ;; 2
(bend) ;; 4
(unused) ;; 8
(time) ;; 10
(trans) ;; 20
(fo-min) ;; 40
(fo-max) ;; 80
(fo-curve) ;; 100
(sm-unk1)
(sm-unk2)
(reg0)
(reg1)
(reg2)
(unk)
)
(defenum stream-status
:type uint32
:bitfield #t
(ss1 1) ;; id-is-playing
(ss4 4) ;; is-playing
(ss6 6) ;; id-is-playing
)
(defmacro static-sound-name (str)
"Convert a string constant to a static sound-name."
;; all this is done at compile-time so we can come up with 2
;; 64-bit constants to use
(when (> (string-length str) 16)
(error "static-sound-name got a string that is too long")
)
(let ((lo-val 0)
(hi-val 0)
)
(dotimes (i (string-length str))
(if (>= i 8)
(+! hi-val (ash (string-ref str i) (* 8 (- i 8))))
(+! lo-val (ash (string-ref str i) (* 8 i)))
)
)
`(new 'static 'sound-name :lo ,lo-val :hi ,hi-val)
)
)
(define-extern get-sound-buffer-entry (function pointer))
(define-extern sound-set-ear-trans (function vector vector vector vector vector float int))
(define-extern ear-trans (function int vector))
;; DECOMP BEGINS
(deftype sound-stream-name (structure)
((name uint8 48)
)
:pack-me
)
@@ -46,14 +140,16 @@
)
(deftype sound-name (uint128)
()
((lo uint64 :offset 0) ;; added to help with cases where they access it by u64.
(hi uint64 :offset 64)
)
)
(define-extern string->sound-name (function string sound-name))
(deftype sound-rpc-cmd (structure)
((rsvd1 uint16)
(command uint16)
(command sound-command)
)
)
@@ -70,6 +166,7 @@
(trans int32 3)
(group uint8)
(reg uint8 3)
(group-and-reg uint32 :overlay-at group)
)
:pack-me
)
@@ -283,6 +380,7 @@
(num float)
(group sound-group)
(reg uint8 3)
(group-and-reg uint32 :overlay-at group)
(sound-name-char uint8 16)
(sound-name sound-name :overlay-at (-> sound-name-char 0))
(trans int32 4)
@@ -300,7 +398,7 @@
(deftype sound-bank-state (structure)
((name basic)
((name symbol)
(mode uint32)
)
:pack-me
@@ -313,10 +411,10 @@
((spec sound-spec)
(playing-id sound-id)
(trans vector :inline)
(name uint128)
(play-time uint64)
(time-base uint64)
(time-random uint64)
(name sound-name)
(play-time time-frame)
(time-base time-frame)
(time-random time-frame)
(volume int32)
(pitch int32)
(falloff-near int32)
@@ -329,14 +427,14 @@
(sound-state int32)
)
(:methods
(new (symbol type) _type_)
(ambient-sound-method-9 () none)
(ambient-sound-method-10 () none)
(ambient-sound-method-11 () none)
(ambient-sound-method-12 () none)
(ambient-sound-method-13 () none)
(ambient-sound-method-14 () none)
(ambient-sound-method-15 () none)
(ambient-sound-method-16 () none)
(new (symbol type basic vector float) _type_)
(update! (_type_) int)
(change-sound! (_type_ sound-name) int)
(update-trans! (_type_ vector) int)
(update-vol! (_type_ float) int)
(update-pitch-mod! (_type_ float) none)
(set-falloff-far! (_type_ float) none)
(set-falloff-mode! (_type_ int) none)
(stop! (_type_) int)
)
)
goal_src/jak3/engine/sound/gsound.gc
+1302
View File
File diff suppressed because it is too large Load Diff
goal_src/jak3/engine/target/target-h.gc
+3
View File
@@ -27,6 +27,9 @@
(declare-type darkjak-info basic)
(declare-type lightjak-info basic)
(define-extern target-pos (function int vector))
;; DECOMP BEGINS
(deftype target (process-focusable)
goal_src/jak3/engine/ui/progress/progress-h.gc
+4
View File
@@ -5,6 +5,10 @@
;; name in dgo: progress-h
;; dgos: GAME
(declare-type progress process)
(define-extern *progress-process* (pointer progress))
(define-extern activate-progress (function process symbol none))
;; +++progress-icon-flags
(defenum progress-icon-flags
:type uint32
goal_src/jak3/kernel/gstate.gc
+14 -14
View File
@@ -14,21 +14,21 @@
)
)
;; disable for now, since the extra arg to get-process is unknown.
; (defmacro process-spawn-function (proc-type func &key (from *default-dead-pool*) &key (to *default-pool*) &key (name #f) &key (stack-size #x4000) &key (stack *scratch-memory-top*) &rest args)
; "Start a new process that runs a function on its main thread.
; Returns a pointer to the new process (or #f? on error)."
(defmacro process-spawn-function (proc-type func &key (from *default-dead-pool*) &key (to *default-pool*) &key (name #f) &key (stack-size #x4000) &key (stack *scratch-memory-top*) &rest args)
"Start a new process that runs a function on its main thread.
Returns a pointer to the new process (or #f? on error).
Note that the extra jak 3 arg is so far always 1 (checked in decompiler)"
; (with-gensyms (new-proc)
; `(let ((,new-proc (the-as ,proc-type (get-process ,from ,proc-type ,stack-size))))
; (when ,new-proc
; ((method-of-type ,proc-type activate) ,new-proc ,to ,(if name name `(symbol->string ',proc-type)) ,stack)
; (run-next-time-in-process ,new-proc ,func ,@args)
; (the (pointer ,proc-type) (-> ,new-proc ppointer))
; )
; )
; )
; )
(with-gensyms (new-proc)
`(let ((,new-proc (the-as ,proc-type (get-process ,from ,proc-type ,stack-size 1))))
(when ,new-proc
((method-of-type ,proc-type activate) ,new-proc ,to ,(if name name `(symbol->string ',proc-type)) ,stack)
(run-next-time-in-process ,new-proc ,func ,@args)
(the (pointer ,proc-type) (-> ,new-proc ppointer))
)
)
)
)
; (defmacro process-spawn (proc-type &key (init #f) &key (from *default-dead-pool*) &key (to *default-pool*) &key (name #f) &key (stack-size #x4000) &key (stack *scratch-memory-top*) &rest args)
; "Start a new process and run an init function on it.
test/decompiler/reference/jak3/decompiler-macros.gc
Generated Vendored
+69
View File
@@ -819,4 +819,73 @@
,@(apply-i (lambda (x i) `(set! (-> event-data param ,i) (the-as uint ,x))) params)
(send-event-function ,proc event-data)
)
)
(defmacro setting-control-func! (func s &rest args)
(let ((argb #f)
(argi 0)
(argf 0.0)
(setting (cadr s)))
(cond
(#t
(set! argb (car args))
(set! argf (cadr args))
(set! argi (caddr args))
)
)
`(,func *setting-control* (with-pp pp) ,s ,argb ,argf ,argi)
)
)
(defmacro add-setting! (s &rest args)
`(setting-control-func! add-setting ,s ,@args)
)
(defmacro set-setting! (s &rest args)
`(setting-control-func! set-setting ,s ,@args)
)
(defmacro remove-setting! (s)
`(remove-setting *setting-control* (with-pp pp) ,s)
)
(defmacro static-sound-name (str)
"Convert a string constant to a static sound-name."
;; all this is done at compile-time so we can come up with 2
;; 64-bit constants to use
(when (> (string-length str) 16)
(error "static-sound-name got a string that is too long")
)
(let ((lo-val 0)
(hi-val 0)
)
(dotimes (i (string-length str))
(if (>= i 8)
(+! hi-val (ash (string-ref str i) (* 8 (- i 8))))
(+! lo-val (ash (string-ref str i) (* 8 i)))
)
)
`(new 'static 'sound-name :lo ,lo-val :hi ,hi-val)
)
)
(defmacro time-elapsed? (time duration)
`(>= (- (current-time) ,time) ,duration)
)
(defconstant *scratch-memory-top* (the pointer #x70004000))
(defconstant DPROCESS_STACK_SIZE #x8000)
(defmacro process-spawn-function (proc-type func &key (from *default-dead-pool*) &key (to *default-pool*) &key (name #f) &key (stack-size #x4000) &key (stack *scratch-memory-top*) &rest args)
"Start a new process that runs a function on its main thread.
Returns a pointer to the new process (or #f? on error)."
(with-gensyms (new-proc)
`(let ((,new-proc (the-as ,proc-type (get-process ,from ,proc-type ,stack-size 1))))
(when ,new-proc
((method-of-type ,proc-type activate) ,new-proc ,to ,(if name name `(symbol->string (-> ,proc-type symbol))) ,stack)
(run-next-time-in-process ,new-proc ,func ,@args)
(the (pointer ,proc-type) (-> ,new-proc ppointer))
)
)
)
)
test/decompiler/reference/jak3/engine/game/game-info-h_REF.gc
Generated Vendored
+1 -1
View File
@@ -137,7 +137,7 @@
(load-state-method-9 () none)
(load-state-method-10 () none)
(load-state-method-11 () none)
(load-state-method-12 () none)
(want-sound-banks (_type_ (pointer symbol)) none)
(load-state-method-13 () none)
(load-state-method-14 () none)
(load-state-method-15 () none)
test/decompiler/reference/jak3/engine/game/settings-h_REF.gc
Generated Vendored
+1 -4
View File
@@ -111,6 +111,7 @@
(borrow-city-count uint32 :offset 620)
(borrow-city pair 3)
(audio-language language-enum :offset 748)
(ear-handle handle :offset 784)
(special-volume float :offset 796)
(pad uint8 108 :offset 800)
)
@@ -673,7 +674,3 @@
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/load/load-dgo_REF.gc
Generated Vendored
+1 -5
View File
@@ -353,7 +353,7 @@
(defun dgo-load-cancel ((arg0 int))
"Abort a DGO load."
(let ((v1-0 (the-as sound-rpc-cancel-dgo (get-sound-buffer-entry))))
(set! (-> v1-0 command) (the-as uint 49))
(set! (-> v1-0 command) (sound-command cancel-dgo))
(set! (-> v1-0 id) (the-as uint arg0))
)
0
@@ -448,7 +448,3 @@
0
(none)
)
test/decompiler/reference/jak3/engine/load/ramdisk_REF.gc
Generated Vendored
+113
View File
@@ -0,0 +1,113 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type ramdisk-rpc-fill
(deftype ramdisk-rpc-fill (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd1 int32)
(ee-id int32)
(rsvd2 int32 2)
(filename uint128)
)
)
;; definition for method 3 of type ramdisk-rpc-fill
;; INFO: Used lq/sq
(defmethod inspect ((this ramdisk-rpc-fill))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'ramdisk-rpc-fill)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tee-id: ~D~%" (-> this ee-id))
(format #t "~1Trsvd2[2] @ #x~X~%" (-> this rsvd2))
(format #t "~1Tfilename: ~D~%" (-> this filename))
(label cfg-4)
this
)
;; definition of type ramdisk-rpc-load
(deftype ramdisk-rpc-load (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd int32)
(ee-id int32)
(offset uint32)
(length uint32)
)
)
;; definition for method 3 of type ramdisk-rpc-load
(defmethod inspect ((this ramdisk-rpc-load))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'ramdisk-rpc-load)
(format #t "~1Trsvd: ~D~%" (-> this rsvd))
(format #t "~1Tee-id: ~D~%" (-> this ee-id))
(format #t "~1Toffset: ~D~%" (-> this offset))
(format #t "~1Tlength: ~D~%" (-> this length))
(label cfg-4)
this
)
;; definition of type ramdisk-rpc-load-to-ee
(deftype ramdisk-rpc-load-to-ee (structure)
"Unused RAMDISK rpc to load files from DVD to the IOP RAM."
((rsvd int32)
(addr int32)
(offset int32)
(length int32)
(filename uint128)
)
)
;; definition for method 3 of type ramdisk-rpc-load-to-ee
;; INFO: Used lq/sq
(defmethod inspect ((this ramdisk-rpc-load-to-ee))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'ramdisk-rpc-load-to-ee)
(format #t "~1Trsvd: ~D~%" (-> this rsvd))
(format #t "~1Taddr: ~D~%" (-> this addr))
(format #t "~1Toffset: ~D~%" (-> this offset))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tfilename: ~D~%" (-> this filename))
(label cfg-4)
this
)
;; definition for symbol *ramdisk-rpc*, type rpc-buffer-pair
(define *ramdisk-rpc* (new 'global 'rpc-buffer-pair (the-as uint 32) (the-as uint 1) 2))
;; definition for symbol *current-ramdisk-id*, type int
(define *current-ramdisk-id* 0)
;; definition for function ramdisk-load
(defun ramdisk-load ((arg0 int) (arg1 uint) (arg2 uint) (arg3 pointer))
(let ((v1-1 (the-as ramdisk-rpc-load (add-element *ramdisk-rpc*))))
(set! (-> v1-1 offset) arg1)
(set! (-> v1-1 ee-id) arg0)
(set! (-> v1-1 length) arg2)
)
(call *ramdisk-rpc* (the-as uint 0) arg3 arg2)
0
)
;; definition for function ramdisk-sync
;; WARN: Return type mismatch int vs none.
(defun ramdisk-sync ()
(sync *ramdisk-rpc* #t)
0
(none)
)
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/sound/gsound-h_REF.gc
Generated Vendored
+894
View File
@@ -0,0 +1,894 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type sound-stream-name
(deftype sound-stream-name (structure)
((name uint8 48)
)
:pack-me
)
;; definition for method 3 of type sound-stream-name
(defmethod inspect ((this sound-stream-name))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-stream-name)
(format #t "~1Tname[48] @ #x~X~%" (-> this name))
(label cfg-4)
this
)
;; definition of type sound-id
(deftype sound-id (uint32)
()
(:methods
(unknown () none)
)
)
;; definition of type sound-bank-id
(deftype sound-bank-id (uint32)
()
)
;; definition of type sound-name
(deftype sound-name (uint128)
((lo uint64 :offset 0 :size 64)
(hi uint64 :offset 64 :size 64)
)
)
;; definition of type sound-rpc-cmd
(deftype sound-rpc-cmd (structure)
((rsvd1 uint16)
(command sound-command)
)
)
;; definition for method 3 of type sound-rpc-cmd
(defmethod inspect ((this sound-rpc-cmd))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-cmd)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(label cfg-4)
this
)
;; definition of type sound-play-params
(deftype sound-play-params (structure)
((mask uint16)
(pitch-mod int16)
(bend int16)
(fo-min int16)
(fo-max int16)
(fo-curve int8)
(priority int8)
(volume int32)
(trans int32 3)
(group uint8)
(reg uint8 3)
(group-and-reg uint32 :overlay-at group)
)
:pack-me
)
;; definition for method 3 of type sound-play-params
(defmethod inspect ((this sound-play-params))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-play-params)
(format #t "~1Tmask: ~D~%" (-> this mask))
(format #t "~1Tpitch-mod: ~D~%" (-> this pitch-mod))
(format #t "~1Tbend: ~D~%" (-> this bend))
(format #t "~1Tfo-min: ~D~%" (-> this fo-min))
(format #t "~1Tfo-max: ~D~%" (-> this fo-max))
(format #t "~1Tfo-curve: ~D~%" (-> this fo-curve))
(format #t "~1Tpriority: ~D~%" (-> this priority))
(format #t "~1Tvolume: ~D~%" (-> this volume))
(format #t "~1Ttrans[3] @ #x~X~%" (-> this trans))
(format #t "~1Tgroup: ~D~%" (-> this group))
(format #t "~1Treg[3] @ #x~X~%" (-> this reg))
(label cfg-4)
this
)
;; definition of type sound-rpc-bank-cmd
(deftype sound-rpc-bank-cmd (sound-rpc-cmd)
((bank-name sound-name)
)
)
;; definition for method 3 of type sound-rpc-bank-cmd
;; INFO: Used lq/sq
(defmethod inspect ((this sound-rpc-bank-cmd))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-bank-cmd)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
(label cfg-4)
this
)
;; definition of type sound-rpc-test-cmd
(deftype sound-rpc-test-cmd (sound-rpc-cmd)
((ee-addr pointer)
(param0 uint16)
)
)
;; definition for method 3 of type sound-rpc-test-cmd
(defmethod inspect ((this sound-rpc-test-cmd))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-test-cmd)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tee-addr: ~D~%" (-> this ee-addr))
(format #t "~1Tparam0: ~D~%" (-> this param0))
(label cfg-4)
this
)
;; definition of type sound-rpc-sound-cmd
(deftype sound-rpc-sound-cmd (sound-rpc-cmd)
((id sound-id)
)
)
;; definition for method 3 of type sound-rpc-sound-cmd
(defmethod inspect ((this sound-rpc-sound-cmd))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-sound-cmd)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tid: ~D~%" (-> this id))
(label cfg-4)
this
)
;; definition of type sound-rpc-group-cmd
(deftype sound-rpc-group-cmd (sound-rpc-cmd)
((group uint32)
)
)
;; definition for method 3 of type sound-rpc-group-cmd
(defmethod inspect ((this sound-rpc-group-cmd))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-group-cmd)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tgroup: ~D~%" (-> this group))
(label cfg-4)
this
)
;; definition of type sound-rpc-load-bank
(deftype sound-rpc-load-bank (sound-rpc-bank-cmd)
((ee-addr pointer)
(mode uint32)
(priority uint32)
)
)
;; definition for method 3 of type sound-rpc-load-bank
;; INFO: Used lq/sq
(defmethod inspect ((this sound-rpc-load-bank))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-load-bank)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
(format #t "~1Tee-addr: ~D~%" (-> this ee-addr))
(format #t "~1Tmode: ~D~%" (-> this mode))
(format #t "~1Tpriority: ~D~%" (-> this priority))
(label cfg-4)
this
)
;; definition of type sound-rpc-load-music
(deftype sound-rpc-load-music (sound-rpc-bank-cmd)
()
)
;; definition for method 3 of type sound-rpc-load-music
;; INFO: Used lq/sq
(defmethod inspect ((this sound-rpc-load-music))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-load-music)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
(label cfg-4)
this
)
;; definition of type sound-rpc-unload-bank
(deftype sound-rpc-unload-bank (sound-rpc-bank-cmd)
()
)
;; definition for method 3 of type sound-rpc-unload-bank
;; INFO: Used lq/sq
(defmethod inspect ((this sound-rpc-unload-bank))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-unload-bank)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
(label cfg-4)
this
)
;; definition of type sound-rpc-play
(deftype sound-rpc-play (sound-rpc-sound-cmd)
((name sound-name)
(params sound-play-params :inline)
)
)
;; definition for method 3 of type sound-rpc-play
;; INFO: Used lq/sq
(defmethod inspect ((this sound-rpc-play))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-play)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tname: ~D~%" (-> this name))
(format #t "~1Tparams: #<sound-play-params @ #x~X>~%" (-> this params))
(label cfg-4)
this
)
;; definition of type sound-rpc-pause-sound
(deftype sound-rpc-pause-sound (sound-rpc-sound-cmd)
()
)
;; definition for method 3 of type sound-rpc-pause-sound
(defmethod inspect ((this sound-rpc-pause-sound))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-pause-sound)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tid: ~D~%" (-> this id))
(label cfg-4)
this
)
;; definition of type sound-rpc-stop-sound
(deftype sound-rpc-stop-sound (sound-rpc-sound-cmd)
()
)
;; definition for method 3 of type sound-rpc-stop-sound
(defmethod inspect ((this sound-rpc-stop-sound))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-stop-sound)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tid: ~D~%" (-> this id))
(label cfg-4)
this
)
;; definition of type sound-rpc-continue-sound
(deftype sound-rpc-continue-sound (sound-rpc-sound-cmd)
()
)
;; definition for method 3 of type sound-rpc-continue-sound
(defmethod inspect ((this sound-rpc-continue-sound))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-continue-sound)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tid: ~D~%" (-> this id))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-param
(deftype sound-rpc-set-param (sound-rpc-sound-cmd)
((params sound-play-params :inline)
(auto-time int32)
(auto-from int32)
)
)
;; definition for method 3 of type sound-rpc-set-param
(defmethod inspect ((this sound-rpc-set-param))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-param)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tparams: #<sound-play-params @ #x~X>~%" (-> this params))
(format #t "~1Tauto-time: ~D~%" (-> this auto-time))
(format #t "~1Tauto-from: ~D~%" (-> this auto-from))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-master-volume
(deftype sound-rpc-set-master-volume (sound-rpc-group-cmd)
((volume int32)
)
)
;; definition for method 3 of type sound-rpc-set-master-volume
(defmethod inspect ((this sound-rpc-set-master-volume))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-master-volume)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tgroup: ~D~%" (-> this group))
(format #t "~1Tvolume: ~D~%" (-> this volume))
(label cfg-4)
this
)
;; definition of type sound-rpc-pause-group
(deftype sound-rpc-pause-group (sound-rpc-group-cmd)
()
)
;; definition for method 3 of type sound-rpc-pause-group
(defmethod inspect ((this sound-rpc-pause-group))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-pause-group)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tgroup: ~D~%" (-> this group))
(label cfg-4)
this
)
;; definition of type sound-rpc-stop-group
(deftype sound-rpc-stop-group (sound-rpc-group-cmd)
()
)
;; definition for method 3 of type sound-rpc-stop-group
(defmethod inspect ((this sound-rpc-stop-group))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-stop-group)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tgroup: ~D~%" (-> this group))
(label cfg-4)
this
)
;; definition of type sound-rpc-continue-group
(deftype sound-rpc-continue-group (sound-rpc-group-cmd)
()
)
;; definition for method 3 of type sound-rpc-continue-group
(defmethod inspect ((this sound-rpc-continue-group))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-continue-group)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tgroup: ~D~%" (-> this group))
(label cfg-4)
this
)
;; definition of type sound-rpc-cancel-dgo
(deftype sound-rpc-cancel-dgo (sound-rpc-group-cmd)
((id uint32)
)
)
;; definition for method 3 of type sound-rpc-cancel-dgo
(defmethod inspect ((this sound-rpc-cancel-dgo))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-cancel-dgo)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tgroup: ~D~%" (-> this group))
(format #t "~1Tid: ~D~%" (-> this id))
(label cfg-4)
this
)
;; definition of type sound-rpc-get-irx-version
(deftype sound-rpc-get-irx-version (sound-rpc-cmd)
((major uint32)
(minor uint32)
(ee-addr pointer)
)
)
;; definition for method 3 of type sound-rpc-get-irx-version
(defmethod inspect ((this sound-rpc-get-irx-version))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-get-irx-version)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tmajor: ~D~%" (-> this major))
(format #t "~1Tminor: ~D~%" (-> this minor))
(format #t "~1Tee-addr: ~D~%" (-> this ee-addr))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-language
(deftype sound-rpc-set-language (sound-rpc-cmd)
((lang uint32)
)
)
;; definition for method 3 of type sound-rpc-set-language
(defmethod inspect ((this sound-rpc-set-language))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-language)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tlang: ~D~%" (-> this lang))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-stereo-mode
(deftype sound-rpc-set-stereo-mode (sound-rpc-cmd)
((mode int32)
)
)
;; definition for method 3 of type sound-rpc-set-stereo-mode
(defmethod inspect ((this sound-rpc-set-stereo-mode))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-stereo-mode)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tmode: ~D~%" (-> this mode))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-reverb
(deftype sound-rpc-set-reverb (sound-rpc-cmd)
((core uint8)
(reverb int32)
(left uint32)
(right uint32)
)
)
;; definition for method 3 of type sound-rpc-set-reverb
(defmethod inspect ((this sound-rpc-set-reverb))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-reverb)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tcore: ~D~%" (-> this core))
(format #t "~1Treverb: ~D~%" (-> this reverb))
(format #t "~1Tleft: ~D~%" (-> this left))
(format #t "~1Tright: ~D~%" (-> this right))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-ear-trans
(deftype sound-rpc-set-ear-trans (sound-rpc-cmd)
((ear-trans1 int32 3)
(ear-trans0 int32 3)
(cam-trans int32 3)
(cam-forward int32 3)
(cam-left int32 3)
(cam-scale int32)
(cam-inverted int32)
)
)
;; definition for method 3 of type sound-rpc-set-ear-trans
(defmethod inspect ((this sound-rpc-set-ear-trans))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-ear-trans)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tear-trans1[3] @ #x~X~%" (-> this ear-trans1))
(format #t "~1Tear-trans0[3] @ #x~X~%" (-> this ear-trans0))
(format #t "~1Tcam-trans[3] @ #x~X~%" (-> this cam-trans))
(format #t "~1Tcam-forward[3] @ #x~X~%" (-> this cam-forward))
(format #t "~1Tcam-left[3] @ #x~X~%" (-> this cam-left))
(format #t "~1Tcam-scale: ~D~%" (-> this cam-scale))
(format #t "~1Tcam-inverted: ~D~%" (-> this cam-inverted))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-flava
(deftype sound-rpc-set-flava (sound-rpc-cmd)
((flava uint8)
(excitement uint8)
)
)
;; definition for method 3 of type sound-rpc-set-flava
(defmethod inspect ((this sound-rpc-set-flava))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-flava)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tflava: ~D~%" (-> this flava))
(format #t "~1Texcitement: ~D~%" (-> this excitement))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-midi-reg
(deftype sound-rpc-set-midi-reg (sound-rpc-cmd)
((reg int32)
(value int16)
)
)
;; definition for method 3 of type sound-rpc-set-midi-reg
(defmethod inspect ((this sound-rpc-set-midi-reg))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-midi-reg)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Treg: ~D~%" (-> this reg))
(format #t "~1Tvalue: ~D~%" (-> this value))
(label cfg-4)
this
)
;; definition of type sound-rpc-shutdown
(deftype sound-rpc-shutdown (sound-rpc-cmd)
()
)
;; definition for method 3 of type sound-rpc-shutdown
(defmethod inspect ((this sound-rpc-shutdown))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-shutdown)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(label cfg-4)
this
)
;; definition of type sound-rpc-set-fps
(deftype sound-rpc-set-fps (sound-rpc-cmd)
((fps uint8)
)
)
;; definition for method 3 of type sound-rpc-set-fps
(defmethod inspect ((this sound-rpc-set-fps))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-set-fps)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(format #t "~1Tfps: ~D~%" (-> this fps))
(label cfg-4)
this
)
;; definition of type sound-rpc-list-sounds
(deftype sound-rpc-list-sounds (sound-rpc-cmd)
()
)
;; definition for method 3 of type sound-rpc-list-sounds
(defmethod inspect ((this sound-rpc-list-sounds))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-list-sounds)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(label cfg-4)
this
)
;; definition of type sound-rpc-unload-music
(deftype sound-rpc-unload-music (sound-rpc-cmd)
()
)
;; definition for method 3 of type sound-rpc-unload-music
(defmethod inspect ((this sound-rpc-unload-music))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-unload-music)
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
(format #t "~1Tcommand: ~D~%" (-> this command))
(label cfg-4)
this
)
;; definition of type sound-rpc-union
(deftype sound-rpc-union (structure)
((data uint32 20)
(load-bank sound-rpc-load-bank :overlay-at (-> data 0))
(unload-bank sound-rpc-unload-bank :overlay-at (-> data 0))
(play sound-rpc-play :overlay-at (-> data 0))
(pause-sound sound-rpc-pause-sound :overlay-at (-> data 0))
(stop-sound sound-rpc-stop-sound :overlay-at (-> data 0))
(continue-sound sound-rpc-continue-sound :overlay-at (-> data 0))
(set-param sound-rpc-set-param :overlay-at (-> data 0))
(set-master-volume sound-rpc-set-master-volume :overlay-at (-> data 0))
(pause-group sound-rpc-pause-group :overlay-at (-> data 0))
(stop-group sound-rpc-stop-group :overlay-at (-> data 0))
(continue-group sound-rpc-continue-group :overlay-at (-> data 0))
(get-irx-version sound-rpc-get-irx-version :overlay-at (-> data 0))
(set-language sound-rpc-set-language :overlay-at (-> data 0))
(set-reverb sound-rpc-set-reverb :overlay-at (-> data 0))
(set-ear-trans sound-rpc-set-ear-trans :overlay-at (-> data 0))
(set-flava sound-rpc-set-flava :overlay-at (-> data 0))
(set-midi-reg sound-rpc-set-midi-reg :overlay-at (-> data 0))
(set-fps sound-rpc-set-fps :overlay-at (-> data 0))
(shutdown sound-rpc-shutdown :overlay-at (-> data 0))
(list-sounds sound-rpc-list-sounds :overlay-at (-> data 0))
(unload-music sound-rpc-unload-music :overlay-at (-> data 0))
)
)
;; definition for method 3 of type sound-rpc-union
(defmethod inspect ((this sound-rpc-union))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-rpc-union)
(format #t "~1Tdata[20] @ #x~X~%" (-> this data))
(format #t "~1Tload-bank: #<sound-rpc-load-bank @ #x~X>~%" (-> this load-bank))
(format #t "~1Tunload-bank: #<sound-rpc-unload-bank @ #x~X>~%" (-> this load-bank))
(format #t "~1Tplay: #<sound-rpc-play @ #x~X>~%" (-> this load-bank))
(format #t "~1Tpause-sound: #<sound-rpc-pause-sound @ #x~X>~%" (-> this load-bank))
(format #t "~1Tstop-sound: #<sound-rpc-stop-sound @ #x~X>~%" (-> this load-bank))
(format #t "~1Tcontinue-sound: #<sound-rpc-continue-sound @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-param: #<sound-rpc-set-param @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-master-volume: #<sound-rpc-set-master-volume @ #x~X>~%" (-> this load-bank))
(format #t "~1Tpause-group: #<sound-rpc-pause-group @ #x~X>~%" (-> this load-bank))
(format #t "~1Tstop-group: #<sound-rpc-stop-group @ #x~X>~%" (-> this load-bank))
(format #t "~1Tcontinue-group: #<sound-rpc-continue-group @ #x~X>~%" (-> this load-bank))
(format #t "~1Tget-irx-version: #<sound-rpc-get-irx-version @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-language: #<sound-rpc-set-language @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-reverb: #<sound-rpc-set-reverb @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-ear-trans: #<sound-rpc-set-ear-trans @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-flava: #<sound-rpc-set-flava @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-midi-reg: #<sound-rpc-set-midi-reg @ #x~X>~%" (-> this load-bank))
(format #t "~1Tset-fps: #<sound-rpc-set-fps @ #x~X>~%" (-> this load-bank))
(format #t "~1Tshutdown: #<sound-rpc-shutdown @ #x~X>~%" (-> this load-bank))
(format #t "~1Tlist-sounds: #<sound-rpc-list-sounds @ #x~X>~%" (-> this load-bank))
(format #t "~1Tunload-music: #<sound-rpc-unload-music @ #x~X>~%" (-> this load-bank))
(label cfg-4)
this
)
;; definition of type sound-spec
(deftype sound-spec (basic)
((mask sound-mask)
(num float)
(group sound-group)
(reg uint8 3)
(group-and-reg uint32 :overlay-at group)
(sound-name-char uint8 16)
(sound-name sound-name :overlay-at (-> sound-name-char 0))
(trans int32 4)
(volume int32)
(pitch-mod int32)
(bend int32)
(fo-min int16)
(fo-max int16)
(fo-curve int8)
(priority int8)
(auto-time int32)
(auto-from int32)
)
)
;; definition for method 3 of type sound-spec
;; INFO: Used lq/sq
(defmethod inspect ((this sound-spec))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tmask: ~D~%" (-> this mask))
(format #t "~1Tnum: ~f~%" (-> this num))
(format #t "~1Tgroup: ~D~%" (-> this group))
(format #t "~1Treg[3] @ #x~X~%" (-> this reg))
(format #t "~1Tsound-name-char: ~g~%" (-> this sound-name-char))
(format #t "~1Tsound-name: ~D~%" (-> this sound-name))
(format #t "~1Ttrans[4] @ #x~X~%" (-> this trans))
(format #t "~1Tvolume: ~D~%" (-> this volume))
(format #t "~1Tpitch-mod: ~D~%" (-> this pitch-mod))
(format #t "~1Tbend: ~D~%" (-> this bend))
(format #t "~1Tfo-min: ~D~%" (-> this fo-min))
(format #t "~1Tfo-max: ~D~%" (-> this fo-max))
(format #t "~1Tfo-curve: ~D~%" (-> this fo-curve))
(format #t "~1Tpriority: ~D~%" (-> this priority))
(format #t "~1Tauto-time: ~D~%" (-> this auto-time))
(format #t "~1Tauto-from: ~D~%" (-> this auto-from))
(label cfg-4)
this
)
;; definition of type sound-bank-state
(deftype sound-bank-state (structure)
((name symbol)
(mode uint32)
)
:pack-me
)
;; definition for method 3 of type sound-bank-state
(defmethod inspect ((this sound-bank-state))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sound-bank-state)
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tmode: ~D~%" (-> this mode))
(label cfg-4)
this
)
;; definition for symbol *current-sound-id*, type sound-id
(define *current-sound-id* (the-as sound-id #x10000))
;; definition of type ambient-sound
(deftype ambient-sound (basic)
((spec sound-spec)
(playing-id sound-id)
(trans vector :inline)
(name sound-name)
(play-time time-frame)
(time-base time-frame)
(time-random time-frame)
(volume int32)
(pitch int32)
(falloff-near int32)
(falloff-far int32)
(falloff-mode int32)
(params (pointer float))
(param-count int32)
(entity entity)
(sound-count int32)
(sound-state int32)
)
(:methods
(new (symbol type basic vector float) _type_)
(update! (_type_) int)
(change-sound! (_type_ sound-name) int)
(update-trans! (_type_ vector) int)
(update-vol! (_type_ float) int)
(update-pitch-mod! (_type_ float) none)
(set-falloff-far! (_type_ float) none)
(set-falloff-mode! (_type_ int) none)
(stop! (_type_) int)
)
)
;; definition for method 3 of type ambient-sound
;; INFO: Used lq/sq
(defmethod inspect ((this ambient-sound))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tspec: ~A~%" (-> this spec))
(format #t "~1Tplaying-id: ~D~%" (-> this playing-id))
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
(format #t "~1Tname: ~D~%" (-> this name))
(format #t "~1Tplay-time: ~D~%" (-> this play-time))
(format #t "~1Ttime-base: ~D~%" (-> this time-base))
(format #t "~1Ttime-random: ~D~%" (-> this time-random))
(format #t "~1Tvolume: ~D~%" (-> this volume))
(format #t "~1Tpitch: ~D~%" (-> this pitch))
(format #t "~1Tfalloff-near: ~D~%" (-> this falloff-near))
(format #t "~1Tfalloff-far: ~D~%" (-> this falloff-far))
(format #t "~1Tfalloff-mode: ~D~%" (-> this falloff-mode))
(format #t "~1Tparams: #x~X~%" (-> this params))
(format #t "~1Tparam-count: ~D~%" (-> this param-count))
(format #t "~1Tentity: ~A~%" (-> this entity))
(format #t "~1Tsound-count: ~D~%" (-> this sound-count))
(format #t "~1Tsound-state: ~D~%" (-> this sound-state))
(label cfg-4)
this
)
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/sound/gsound_REF.gc
Generated Vendored
+1485
View File
File diff suppressed because it is too large Load Diff