mirror of
https://github.com/open-goal/jak-project
synced 2026-07-10 23:22:17 -04:00
Tyler Wilding
d1ece445d4
Relates to #1353 This adds no new functionality or overhead to the compiler, yet. This is the preliminary work that has: - added code to the compiler in several spots to flag when something is used without being properly required/imported/whatever (disabled by default) - that was used to generate project wide file dependencies (some circulars were manually fixed) - then that graph underwent a transitive reduction and the result was written to all `jak1` source files. The next step will be making this actually produce and use a dependency graph. Some of the reasons why I'm working on this: - eliminates more `game.gp` boilerplate. This includes the `.gd` files to some extent (`*-ag` files and `tpage` files will still need to be handled) this is the point of the new `bundles` form. This should make it even easier to add a new file into the source tree. - a build order that is actually informed from something real and compiler warnings that tell you when you are using something that won't be available at build time. - narrows the search space for doing LSP actions -- like searching for references. Since it would be way too much work to store in the compiler every location where every symbol/function/etc is used, I have to do ad-hoc searches. By having a dependency graph i can significantly reduce that search space. - opens the doors for common shared code with a legitimate pattern. Right now jak 2 shares code from the jak 1 folder. This is basically a hack -- but by having an explicit require syntax, it would be possible to reference arbitrary file paths, such as a `common` folder. Some stats: - Jak 1 has about 2500 edges between files, including transitives - With transitives reduced at the source code level, each file seems to have a modest amount of explicit requirements. Known issues: - Tracking the location for where `defmacro`s and virtual state definitions were defined (and therefore the file) is still problematic. Because those forms are in a macro environment, the reader does not track them. I'm wondering if a workaround could be to search the reader's text_db by not just the `goos::Object` but by the text position. But for the purposes of finishing this work, I just statically analyzed and searched the code with throwaway python code.
199 lines
6.4 KiB
Common Lisp
199 lines
6.4 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
(bundles "ENGINE.CGO" "GAME.CGO")
|
|
|
|
(require "engine/entity/entity-h.gc")
|
|
|
|
;; name: entity-table.gc
|
|
;; name in dgo: entity-table
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; The *entity-info* table contains some simple information that can be used to
|
|
;; spawn a process for an entity.
|
|
;; :ptype the type of the process
|
|
;; :package the package that must be loaded (not used?)
|
|
;; :art-group the art that must be loaded
|
|
;; :pool the pool that the process should be allocated from
|
|
;; :heap-size the required size for the process heap
|
|
|
|
;; At one point, this was much bigger, but got smaller between
|
|
;; the demo and final build. The entity info is possibly stored somewhere else
|
|
;; and this may not even be used.
|
|
|
|
(define *entity-info*
|
|
(new 'static 'boxed-array :type entity-info :length 19 :allocated-length 19
|
|
(new 'static 'entity-info
|
|
:ptype
|
|
(type-ref sage-finalboss :method-count 53)
|
|
:package "l1"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x8000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref robotboss :method-count 21)
|
|
:package "l1"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x8000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype
|
|
(type-ref assistant-levitator :method-count 53)
|
|
:package "l1"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x8000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref babak :method-count 76)
|
|
:package "l1"
|
|
:art-group '("babak")
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x2800
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref racer :method-count 24)
|
|
:package "game"
|
|
:art-group '("racer")
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x4000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref springbox :method-count 20)
|
|
:package "game"
|
|
:art-group '("bounceytarp")
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x1400
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref launcher :method-count 20)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x400
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype
|
|
(type-ref pickup-spawner :method-count 30)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #xc00
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref bucket :method-count 30)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #xc00
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref barrel :method-count 30)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #xc00
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref crate :method-count 30)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #xc00
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype
|
|
(type-ref orb-cache-top :method-count 29)
|
|
:package "game"
|
|
:art-group '("orb-cache-top")
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x1000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref eco :method-count 31)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x1000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref ecovent :method-count 21)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x1000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref fuel-cell :method-count 31)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x1400
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref buzzer :method-count 31)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x1000
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref money :method-count 31)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #xc00 ;; og:preserve-this CHANGED from 2k!!
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype (type-ref water-vol :method-count 30)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #xc00
|
|
)
|
|
(new 'static 'entity-info
|
|
:ptype
|
|
(type-ref target-start :method-count 15)
|
|
:package "game"
|
|
:art-group '()
|
|
:pool '*16k-dead-pool*
|
|
:heap-size #x400
|
|
)
|
|
)
|
|
)
|
|
|
|
(defun entity-info-lookup ((arg0 type))
|
|
"Look up the entity-info for a given type.
|
|
to speed-up the lookup in the future,
|
|
this caches the result in the method table..."
|
|
(the-as entity-info
|
|
(cond
|
|
((nonzero? (-> arg0 method-table 13))
|
|
;; we already cached the type in the method table
|
|
(-> arg0 method-table 13)
|
|
)
|
|
(else
|
|
;; search the table
|
|
(let ((v1-1 *entity-info*))
|
|
(dotimes (a1-0 (-> v1-1 length))
|
|
(when (= arg0 (-> v1-1 a1-0 ptype))
|
|
;; found it, cache it in the method table
|
|
(set! (-> arg0 method-table 13)
|
|
(the-as function (-> v1-1 a1-0))
|
|
)
|
|
(return (-> v1-1 a1-0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; didn't find it, cache and return #f
|
|
(set! (-> arg0 method-table 13) #f)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
|