mirror of
https://github.com/open-goal/jak-project
synced 2026-07-10 07:07:04 -04:00
Tyler Wilding
95 lines
2.2 KiB
Common Lisp
95 lines
2.2 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: obj-list.gc
|
|
;; name in dgo: obj-list
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
;; definition of type list-link
|
|
(deftype list-link (structure)
|
|
((prev list-link)
|
|
(next list-link)
|
|
)
|
|
:pack-me
|
|
)
|
|
|
|
;; definition for method 3 of type list-link
|
|
(defmethod inspect ((this list-link))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'list-link)
|
|
(format #t "~1Tprev: #<list-link @ #x~X>~%" (-> this prev))
|
|
(format #t "~1Tnext: #<list-link @ #x~X>~%" (-> this next))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type linked-list
|
|
(deftype linked-list (structure)
|
|
((head list-link)
|
|
(tail list-link)
|
|
)
|
|
(:methods
|
|
(clear! (_type_) none)
|
|
(linked-list-method-10 (_type_ list-link) none)
|
|
(linked-list-method-11 (_type_ list-link) none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type linked-list
|
|
(defmethod inspect ((this linked-list))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'linked-list)
|
|
(format #t "~1Thead: #<list-link @ #x~X>~%" (-> this head))
|
|
(format #t "~1Ttail: #<list-link @ #x~X>~%" (-> this tail))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for method 9 of type linked-list
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod clear! ((this linked-list))
|
|
(set! (-> this head) #f)
|
|
(set! (-> this tail) #f)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 10 of type linked-list
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod linked-list-method-10 ((this linked-list) (arg0 list-link))
|
|
(set! (-> arg0 next) #f)
|
|
(set! (-> arg0 prev) (-> this tail))
|
|
(if (-> this tail)
|
|
(set! (-> this tail next) arg0)
|
|
(set! (-> this head) arg0)
|
|
)
|
|
(set! (-> this tail) arg0)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 11 of type linked-list
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod linked-list-method-11 ((this linked-list) (arg0 list-link))
|
|
(if (-> arg0 prev)
|
|
(set! (-> arg0 prev next) (-> arg0 next))
|
|
(set! (-> this head) (-> arg0 next))
|
|
)
|
|
(if (-> arg0 next)
|
|
(set! (-> arg0 next prev) (-> arg0 prev))
|
|
(set! (-> this tail) (-> arg0 prev))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function fixup-relocated-link
|
|
;; ERROR: failed type prop at 7: add failed: list-link int |