aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux33
1 files changed, 0 insertions, 33 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
deleted file mode 100644
index f9d9034ea..000000000
--- a/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
+++ /dev/null
@@ -1,33 +0,0 @@
-(.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 (<|)]
- )