Made some new-luxc modules "old".

1 files changed, 33 insertions, 0 deletions

diff --git a/new-luxc/source/luxc/lang/translation/jvm/primitive.lux b/new-luxc/source/luxc/lang/translation/jvm/primitive.lux
new file mode 100644
index 000000000..f9d9034ea
--- /dev/null
+++ b/new-luxc/source/luxc/lang/translation/jvm/primitive.lux
@@ -0,0 +1,33 @@
+(.module:
+  [lux (#- i64)
+   [abstract
+    monad]
+   [data
+    [text
+     format]]
+   [tool
+    [compiler
+     [phase ("operation/." monad)]]]]
+  [luxc
+   [lang
+    [host
+     ["." jvm (#+ Inst Operation)
+      ["_" inst]
+      ["$t" type]]]]])
+
+(def: #export (bit value)
+  (-> Bit (Operation Inst))
+  (operation/wrap (_.GETSTATIC "java.lang.Boolean"
+                               (if value "TRUE" "FALSE")
+                               ($t.class "java.lang.Boolean" (list)))))
+
+(template [<name> <type> <load> <wrap>]
+  [(def: #export (<name> value)
+     (-> <type> (Operation Inst))
+     (let [loadI (|> value <load>)]
+       (operation/wrap (|>> loadI <wrap>))))]
+
+  [i64  (I64 Any) (<| _.long .int) (_.wrap #jvm.Long)]
+  [f64  Frac      _.double         (_.wrap #jvm.Double)]
+  [text Text      _.string         (<|)]
+  )