[runtime] pckernel implementation (#1032)

* toggle for ripping level models

* Create pckernel.gc

* builds and works

* fix defs

* resolution info works

* native letterboxing

* menu

* Fullscreen buttons

* Update glfw

* fix fullscreen taking over everything for some reason

* fix screenshots and add more menu options

* Cleanup DMA mess in load boundary render code (first try!!)

* Update default-menu.gc

* clang

* fix accidental macros in pairs

* refs

* fix null reference bugs

* add lavatube

* custom aspect ratios work (3D only)

* custom aspect ratios work (3D only)

* fix aspect ratio and non-4x3 debug text

* change `sceOpen`

* deadzone setting

* merge fixes

* check out `debug-pad-display`

* update readme imgs

* settings save works

* oops

* settings read/load (incomplete)

* add `:stop` to debugger and fix detach on Windows

* settings load works

* fullscreen and aspect ratio setting fixes

* swap menu options for convenience

* settings loads automatically properly

* fix panic and font hack edge case

* add rolling, ogre, snow, swamp, sunken b, jungle b

* Fixed borderless on windows please work

* Update fake_iso.txt

* remove error from opengl debug filter

* update refs

* minor tfrag tod palette lookup change

* accidentally nuked all opengl errors

test/decompiler/reference/engine/camera/cam-debug-h_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition for symbol *redline-table*, type (pointer float)
 (define *redline-table* (the-as (pointer float) (malloc 'debug 1600)))

test/decompiler/reference/engine/camera/cam-layout_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition for symbol *camera-layout-blink*, type symbol
 (define *camera-layout-blink* #f)

test/decompiler/reference/engine/camera/cam-update_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; definition for function plane-from-points
+;; INFO: Return type mismatch float vs none.
 (defun plane-from-points ((arg0 (inline-array plane)) (arg1 vector) (arg2 vector) (arg3 vector) (arg4 int))
   (let ((s4-0 (new 'stack-no-clear 'vector)))
     (vector-cross! s4-0 arg1 arg2)
@@ -10,22 +11,19 @@
     (set! (-> (&-> arg0 0 data arg4) 0) (-> s4-0 x))
     (set! (-> (&-> arg0 0 data arg4) 4) (-> s4-0 y))
     (set! (-> (&-> arg0 0 data arg4) 8) (-> s4-0 z))
-    (let ((f0-5 (-> s4-0 w)))
-      (set! (-> (&-> arg0 0 data arg4) 12) f0-5)
-      f0-5
-      )
+    (set! (-> (&-> arg0 0 data arg4) 12) (-> s4-0 w))
     )
+  (none)
   )
 
 ;; definition for function set-point
+;; INFO: Return type mismatch float vs none.
 (defun set-point ((arg0 vector) (arg1 float) (arg2 float) (arg3 float))
   (set! (-> arg0 x) arg1)
   (set! (-> arg0 y) arg2)
   (set! (-> arg0 z) arg3)
-  (let ((f0-3 1.0))
-    (set! (-> arg0 w) f0-3)
-    f0-3
-    )
+  (set! (-> arg0 w) 1.0)
+  (none)
   )
 
 ;; definition for function update-view-planes
@@ -82,6 +80,7 @@
         )
       )
     )
+  (none)
   )
 
 ;; definition for symbol *update-leaf-when-outside-bsp*, type symbol

test/decompiler/reference/engine/debug/anim-tester_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition of type list-control
 (deftype list-control (structure)

test/decompiler/reference/engine/debug/default-menu_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition for symbol *debug-menu-context*, type debug-menu-context
 (define *debug-menu-context* (new 'debug 'debug-menu-context))

test/decompiler/reference/engine/debug/memory-usage-h_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition of type memory-usage-info
 (deftype memory-usage-info (structure)

test/decompiler/reference/engine/debug/memory-usage_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition for method 3 of type memory-usage-block
 ;; INFO: this function exists in multiple non-identical object files

test/decompiler/reference/engine/debug/menu_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition of type debug-menu-context
 (deftype debug-menu-context (basic)

test/decompiler/reference/engine/debug/part-tester_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; failed to figure out what this is:
 (set! (-> *part-group-id-table* 105)

test/decompiler/reference/engine/dma/dma-disasm_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition of type vif-disasm-element
 (deftype vif-disasm-element (structure)

test/decompiler/reference/engine/gfx/capture_REF.gc

@@ -2,6 +2,7 @@
 (in-package goal)
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 ;; definition of type gs-store-image-packet
 (deftype gs-store-image-packet (structure)

test/decompiler/reference/engine/load/file-io_REF.gc

@@ -4,7 +4,7 @@
 ;; definition of type file-stream
 (deftype file-stream (basic)
   ((flags uint32  :offset-assert   4)
-   (mode  basic   :offset-assert   8)
+   (mode  symbol  :offset-assert   8)
    (name  string  :offset-assert  12)
    (file  uint32  :offset-assert  16)
    )
@@ -12,7 +12,7 @@
   :size-assert         #x14
   :flag-assert         #x900000014
   (:methods
-    (new (symbol type string basic) _type_ 0)
+    (new (symbol type string symbol) _type_ 0)
     )
   )
 
@@ -27,7 +27,7 @@
   )
 
 ;; definition for method 0 of type file-stream
-(defmethod new file-stream ((allocation symbol) (type-to-make type) (arg0 string) (arg1 basic))
+(defmethod new file-stream ((allocation symbol) (type-to-make type) (arg0 string) (arg1 symbol))
   (let ((a0-1 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
     (file-stream-open a0-1 arg0 arg1)
     )

test/decompiler/reference/kernel/gstring_REF.gc

@@ -452,7 +452,7 @@
 (defun string->int ((str string))
   (let ((str-ptr (-> str data))
         (result 0)
-        (v1-0 #f)
+        (negate #f)
         )
     (cond
       ((= (-> str-ptr 0) 35)
@@ -461,7 +461,7 @@
            ((or (= (-> next-char-1 0) 120) (= (-> next-char-1 0) 88))
             (let ((next-char-2 (&-> next-char-1 1)))
               (when (= (-> next-char-2 1) 45)
-                (set! v1-0 #t)
+                (set! negate #t)
                 (set! next-char-2 (&-> next-char-2 1))
                 )
               (while (or
@@ -497,7 +497,7 @@
        )
       (else
         (when (= (-> str-ptr 1) 45)
-          (set! v1-0 #t)
+          (set! negate #t)
           (set! str-ptr (&-> str-ptr 1))
           )
         (while (and (>= (-> str-ptr 0) (the-as uint 48)) (>= (the-as uint 57) (-> str-ptr 0)))
@@ -507,7 +507,7 @@
         )
       )
     (cond
-      (v1-0
+      (negate
         (- result)
         )
       (else