mirror of
https://github.com/open-goal/jak-project
synced 2026-07-29 23:49:11 -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.
71 lines
1.6 KiB
Common Lisp
71 lines
1.6 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
(bundles "ENGINE.CGO" "GAME.CGO")
|
|
|
|
(require "engine/ps2/rpc-h.gc")
|
|
|
|
;; name: ramdisk.gc
|
|
;; name in dgo: ramdisk
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; see game/overlord/ramdisk.cpp
|
|
;; unlike most other loads, ramdisk actually uses the response buffer of the RPC
|
|
;; to send the data.
|
|
|
|
(defconstant RAMDISK_RPC_FILL_FNO (the uint 1))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
;; command to load something into the OVERLORD RAMDISK from the DVD
|
|
;; use with fno = 1
|
|
(deftype ramdisk-rpc-fill (structure)
|
|
((rsvd1 int32)
|
|
(ee-id int32)
|
|
(rsvd2 int32 2)
|
|
(filename uint128)
|
|
)
|
|
)
|
|
|
|
;; get data in ramdisk on EE.
|
|
(deftype ramdisk-rpc-load (structure)
|
|
((rsvd int32)
|
|
(ee-id int32)
|
|
(offset uint32)
|
|
(length uint32)
|
|
)
|
|
)
|
|
|
|
;; load file directly to EE.
|
|
;; this seems very similar to some functionality in STR.
|
|
(deftype ramdisk-rpc-load-to-ee (structure)
|
|
((rsvd int32)
|
|
(addr int32)
|
|
(offset int32)
|
|
(length int32)
|
|
(filename uint128)
|
|
)
|
|
)
|
|
|
|
;; allocate the ramdisk RPC buffer
|
|
(define *ramdisk-rpc* (new 'global 'rpc-buffer-pair (the-as uint 32) (the-as uint 1) RPC-RAMDISK))
|
|
|
|
(define *current-ramdisk-id* 0)
|
|
|
|
(defun ramdisk-load ((file-id int) (offset uint) (length uint) (buffer pointer))
|
|
"Helper to grab load from ramdisk to ee"
|
|
(let ((cmd (the-as ramdisk-rpc-load (add-element *ramdisk-rpc*))))
|
|
(set! (-> cmd offset) offset)
|
|
(set! (-> cmd ee-id) file-id)
|
|
(set! (-> cmd length) length)
|
|
)
|
|
(call *ramdisk-rpc* (the-as uint 0) buffer length)
|
|
0
|
|
)
|
|
|
|
(defun ramdisk-sync ()
|
|
"Wait for ramdisk RPC to complete."
|
|
(sync *ramdisk-rpc* #t)
|
|
0
|
|
(none)
|
|
)
|