[decompiler] implement defskelgroup (#955)

* implement `defskelgroup` in decompiler

0 lines removed!

* clang

* fix matcher code

* it was fine actually

* update all files (pt 1)

* update all files

* remaining fixes!

* null deref

* use METER_LENGTH

* move max lod warning

* clang

* math error

* fix macros too

* fix bug in a print

test/decompiler/reference/engine/target/target-util_REF.gc

@@ -2,25 +2,15 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(let
-  ((v1-0
-    (new 'static 'skeleton-group
-     :art-group-name "eichar"
-     :bounds
-     (new 'static 'vector :y 8192.0 :w 12288.0)
-     :longest-edge (meters 1.0)
-     :texture-level 2
-     :version #x6
-     :shadow 2
-     :sort 1
-     )
-    )
-   )
-  (set! (-> v1-0 jgeo) 0)
-  (set! (-> v1-0 janim) -1)
-  (set! (-> v1-0 mgeo 0) 1)
-  (set! (-> v1-0 lod-dist 0) 4095996000.0)
-  (set! *jchar-sg* v1-0)
+(defskelgroup *jchar-sg* eichar
+  0
+  -1
+  ((1 (meters 999999)))
+  :bounds (static-spherem 0 2 0 3)
+  :longest-edge (meters 1)
+  :shadow 2
+  :texture-level 2
+  :sort 1
   )
 
 ;; definition for symbol *target-shadow-control*, type shadow-control

test/decompiler/reference/engine/ui/hud-classes_REF.gc

@@ -1248,22 +1248,13 @@
   )
 
 ;; failed to figure out what this is:
-(let
-  ((v1-24
-    (new 'static 'skeleton-group
-     :art-group-name "fuelcell-naked"
-     :bounds
-     (new 'static 'vector :y 4096.0 :w 6553.6)
-     :texture-level 2
-     :version #x6
-     )
-    )
-   )
-  (set! (-> v1-24 jgeo) 0)
-  (set! (-> v1-24 janim) 2)
-  (set! (-> v1-24 mgeo 0) 1)
-  (set! (-> v1-24 lod-dist 0) 4095996000.0)
-  (set! *fuelcell-naked-sg* v1-24)
+(defskelgroup *fuelcell-naked-sg* fuelcell-naked
+  0
+  2
+  ((1 (meters 999999)))
+  :bounds (static-spherem 0 1 0 1.6)
+  :longest-edge (meters 0)
+  :texture-level 2
   )
 
 ;; failed to figure out what this is: