mirror of
https://github.com/open-goal/jak-project
synced 2026-09-08 20:02:39 -04:00
Tyler Wilding
9c86c86c74
Breaks the 300 file milestone, also includes the majority of mips2c functions carried forward. Some functions need some fixes in the c++ code to mips2c properly, and a small handful of the mips2c functions require manual patching -- all spots were marked with `TODO - fix` that had to be commented out to get things compiling.
42 lines
990 B
Common Lisp
Vendored
Generated
42 lines
990 B
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type net-log-event-header
|
|
(deftype net-log-event-header (structure)
|
|
((length uint16)
|
|
(type uint8)
|
|
(pad int8)
|
|
(time int32)
|
|
(id int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type net-log-event-header
|
|
(defmethod inspect ((this net-log-event-header))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'net-log-event-header)
|
|
(format #t "~1Tlength: ~D~%" (-> this length))
|
|
(format #t "~1Ttype: ~D~%" (-> this type))
|
|
(format #t "~1Tpad: ~D~%" (-> this pad))
|
|
(format #t "~1Ttime: ~D~%" (-> this time))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for symbol *net-log-tmp-header*, type net-log-event-header
|
|
(define *net-log-tmp-header* (new 'static 'net-log-event-header))
|
|
|
|
;; definition for symbol *comment-string*, type string
|
|
(define *comment-string* (new 'global 'string 200 ""))
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|