From 6916a864871247a2f6aa60d5c69814cd2ba8ae4b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 17 May 2019 20:03:39 -0400
Subject: Forgot to actually compile the methods. Now doing so.

---
 new-luxc/source/luxc/lang/host/jvm/def.lux | 72 +++++++++++++++---------------
 1 file changed, 36 insertions(+), 36 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 06e6963a3..ce236c905 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -13,7 +13,7 @@
    [target
     [jvm
      ["$t" type (#+ Method Class Type Parameter)]]]]
-  ["$" //])
+  ["." //])
 
 (import: #long java/lang/Object)
 (import: #long java/lang/String)
@@ -78,45 +78,45 @@
        string-array))
 
 (def: (version-flag version)
-  (-> $.Version Int)
+  (-> //.Version Int)
   (case version
-    #$.V1_1 (Opcodes::V1_1)
-    #$.V1_2 (Opcodes::V1_2)
-    #$.V1_3 (Opcodes::V1_3)
-    #$.V1_4 (Opcodes::V1_4)
-    #$.V1_5 (Opcodes::V1_5)
-    #$.V1_6 (Opcodes::V1_6)
-    #$.V1_7 (Opcodes::V1_7)
-    #$.V1_8 (Opcodes::V1_8)))
+    #//.V1_1 (Opcodes::V1_1)
+    #//.V1_2 (Opcodes::V1_2)
+    #//.V1_3 (Opcodes::V1_3)
+    #//.V1_4 (Opcodes::V1_4)
+    #//.V1_5 (Opcodes::V1_5)
+    #//.V1_6 (Opcodes::V1_6)
+    #//.V1_7 (Opcodes::V1_7)
+    #//.V1_8 (Opcodes::V1_8)))
 
 (def: (visibility-flag visibility)
-  (-> $.Visibility Int)
+  (-> //.Visibility Int)
   (case visibility
-    #$.Public    (Opcodes::ACC_PUBLIC)
-    #$.Protected (Opcodes::ACC_PROTECTED)
-    #$.Private   (Opcodes::ACC_PRIVATE)
-    #$.Default   +0))
+    #//.Public    (Opcodes::ACC_PUBLIC)
+    #//.Protected (Opcodes::ACC_PROTECTED)
+    #//.Private   (Opcodes::ACC_PRIVATE)
+    #//.Default   +0))
 
 (def: (class-flags config)
-  (-> $.Class-Config Int)
+  (-> //.Class-Config Int)
   ($_ i/+
-      (if (get@ #$.finalC config) (Opcodes::ACC_FINAL) +0)))
+      (if (get@ #//.finalC config) (Opcodes::ACC_FINAL) +0)))
 
 (def: (method-flags config)
-  (-> $.Method-Config Int)
+  (-> //.Method-Config Int)
   ($_ i/+
-      (if (get@ #$.staticM config) (Opcodes::ACC_STATIC) +0)
-      (if (get@ #$.finalM config) (Opcodes::ACC_FINAL) +0)
-      (if (get@ #$.synchronizedM config) (Opcodes::ACC_SYNCHRONIZED) +0)
-      (if (get@ #$.strictM config) (Opcodes::ACC_STRICT) +0)))
+      (if (get@ #//.staticM config) (Opcodes::ACC_STATIC) +0)
+      (if (get@ #//.finalM config) (Opcodes::ACC_FINAL) +0)
+      (if (get@ #//.synchronizedM config) (Opcodes::ACC_SYNCHRONIZED) +0)
+      (if (get@ #//.strictM config) (Opcodes::ACC_STRICT) +0)))
 
 (def: (field-flags config)
-  (-> $.Field-Config Int)
+  (-> //.Field-Config Int)
   ($_ i/+
-      (if (get@ #$.staticF config) (Opcodes::ACC_STATIC) +0)
-      (if (get@ #$.finalF config) (Opcodes::ACC_FINAL) +0)
-      (if (get@ #$.transientF config) (Opcodes::ACC_TRANSIENT) +0)
-      (if (get@ #$.volatileF config) (Opcodes::ACC_VOLATILE) +0)))
+      (if (get@ #//.staticF config) (Opcodes::ACC_STATIC) +0)
+      (if (get@ #//.finalF config) (Opcodes::ACC_FINAL) +0)
+      (if (get@ #//.transientF config) (Opcodes::ACC_TRANSIENT) +0)
+      (if (get@ #//.volatileF config) (Opcodes::ACC_VOLATILE) +0)))
 
 (def: class-to-type
   (-> Class Type)
@@ -160,7 +160,7 @@
 (template [<name> <flag>]
   [(def: #export (<name> version visibility config name parameters super interfaces
                          definitions)
-     (-> $.Version $.Visibility $.Class-Config Text (List Parameter) Class (List Class) $.Def
+     (-> //.Version //.Visibility //.Class-Config Text (List Parameter) Class (List Class) //.Def
          (host.type (Array byte)))
      (let [writer (|> (do-to (ClassWriter::new class-computes)
                         (ClassWriter::visit (version-flag version)
@@ -187,7 +187,7 @@
 
 (def: #export (interface version visibility config name parameters interfaces
                          definitions)
-  (-> $.Version $.Visibility $.Class-Config Text (List Parameter) (List Class) $.Def
+  (-> //.Version //.Visibility //.Class-Config Text (List Parameter) (List Class) //.Def
       (host.type (Array byte)))
   (let [writer (|> (do-to (ClassWriter::new class-computes)
                      (ClassWriter::visit (version-flag version)
@@ -207,8 +207,8 @@
     (ClassWriter::toByteArray writer)))
 
 (def: #export (method visibility config name type then)
-  (-> $.Visibility $.Method-Config Text Method $.Inst
-      $.Def)
+  (-> //.Visibility //.Method-Config Text Method //.Inst
+      //.Def)
   (function (_ writer)
     (let [=method (ClassWriter::visitMethod ($_ i/+
                                                 (visibility-flag visibility)
@@ -225,8 +225,8 @@
       writer)))
 
 (def: #export (abstract-method visibility config name type)
-  (-> $.Visibility $.Method-Config Text Method
-      $.Def)
+  (-> //.Visibility //.Method-Config Text Method
+      //.Def)
   (function (_ writer)
     (let [=method (ClassWriter::visitMethod ($_ i/+
                                                 (visibility-flag visibility)
@@ -241,7 +241,7 @@
       writer)))
 
 (def: #export (field visibility config name type)
-  (-> $.Visibility $.Field-Config Text Type $.Def)
+  (-> //.Visibility //.Field-Config Text Type //.Def)
   (function (_ writer)
     (let [=field (do-to (ClassWriter::visitField ($_ i/+
                                                      (visibility-flag visibility)
@@ -256,7 +256,7 @@
 
 (template [<name> <lux-type> <jvm-type> <prepare>]
   [(def: #export (<name> visibility config name value)
-     (-> $.Visibility $.Field-Config Text <lux-type> $.Def)
+     (-> //.Visibility //.Field-Config Text <lux-type> //.Def)
      (function (_ writer)
        (let [=field (do-to (ClassWriter::visitField ($_ i/+
                                                         (visibility-flag visibility)
@@ -281,7 +281,7 @@
   )
 
 (def: #export (fuse defs)
-  (-> (List $.Def) $.Def)
+  (-> (List //.Def) //.Def)
   (case defs
     #.Nil
     function.identity
-- 
cgit v1.2.3