mirror of
https://github.com/open-goal/jak-project
synced 2026-06-01 09:48:00 -04:00
Hat Kid
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...
116 lines
3.3 KiB
Common Lisp
Vendored
Generated
116 lines
3.3 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type ramdisk-rpc-fill
|
|
(deftype ramdisk-rpc-fill (structure)
|
|
((rsvd1 int32 :offset-assert 0)
|
|
(ee-id int32 :offset-assert 4)
|
|
(rsvd2 int32 2 :offset-assert 8)
|
|
(filename uint128 :offset-assert 16)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x20
|
|
:flag-assert #x900000020
|
|
)
|
|
|
|
;; definition for method 3 of type ramdisk-rpc-fill
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ramdisk-rpc-fill ((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)
|
|
((rsvd int32 :offset-assert 0)
|
|
(ee-id int32 :offset-assert 4)
|
|
(offset uint32 :offset-assert 8)
|
|
(length uint32 :offset-assert 12)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
;; definition for method 3 of type ramdisk-rpc-load
|
|
(defmethod inspect ramdisk-rpc-load ((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)
|
|
((rsvd int32 :offset-assert 0)
|
|
(addr int32 :offset-assert 4)
|
|
(offset int32 :offset-assert 8)
|
|
(length int32 :offset-assert 12)
|
|
(filename uint128 :offset-assert 16)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x20
|
|
:flag-assert #x900000020
|
|
)
|
|
|
|
;; definition for method 3 of type ramdisk-rpc-load-to-ee
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ramdisk-rpc-load-to-ee ((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
|