From a85bfc405e7acaf86c61fcd8f7987da0200d7b03 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 29 May 2019 23:34:17 -0400
Subject: Various fixes and tweaks.

---
 new-luxc/source/luxc/lang/host/jvm/def.lux | 31 ++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/jvm')

diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index bf4abc8ed..4d1b99da0 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -12,7 +12,8 @@
      ["." list ("#/." functor)]]]
    [target
     [jvm
-     ["$t" type (#+ Method Class Type Parameter)]]]]
+     ["$t" type (#+ Method Class Type Parameter)
+      ["." reflection]]]]]
   ["." //])
 
 (import: #long java/lang/Object)
@@ -71,10 +72,36 @@
                     (list.enumerate values))
       output)))
 
+(def: (exception-class-name type)
+  (-> Type Text)
+  (case type
+    (#$t.Primitive prim)
+    (case prim
+      #$t.Boolean reflection.boolean
+      #$t.Byte    reflection.byte
+      #$t.Short   reflection.short
+      #$t.Int     reflection.int
+      #$t.Long    reflection.long
+      #$t.Float   reflection.float
+      #$t.Double  reflection.double
+      #$t.Char    reflection.char)
+
+    (#$t.Array sub)
+    (format $t.array-prefix (exception-class-name sub))
+
+    (#$t.Generic generic)
+    (case generic
+      (#$t.Class class params)
+      ($t.binary-name class)
+
+      (^or (#$t.Var _) (#$t.Wildcard _))
+      ($t.binary-name $t.object-class))
+    ))
+
 (def: exceptions-array
   (-> Method (Array Text))
   (|>> (get@ #$t.exceptions)
-       (list/map (|>> #$t.Generic $t.descriptor))
+       (list/map (|>> #$t.Generic ..exception-class-name))
        string-array))
 
 (def: (version-flag version)
-- 
cgit v1.2.3