aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/ruby/primitive.jvm.lux
diff options
context:
space:
mode:
authorEduardo Julian2019-04-08 20:39:39 -0400
committerEduardo Julian2019-04-08 20:39:39 -0400
commit0e8ad54e4b9a285a213478232d0155466854225b (patch)
tree421a72647be1fa2cea429dc1018c4f23ed8bda11 /new-luxc/source/luxc/lang/translation/ruby/primitive.jvm.lux
parentd4ded2084127fd8953d2889d72bab889213000a1 (diff)
Moved Ruby back-end code to stdlib.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/ruby/primitive.jvm.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/ruby/primitive.jvm.lux34
1 files changed, 0 insertions, 34 deletions
diff --git a/new-luxc/source/luxc/lang/translation/ruby/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/ruby/primitive.jvm.lux
deleted file mode 100644
index cc5e5752e..000000000
--- a/new-luxc/source/luxc/lang/translation/ruby/primitive.jvm.lux
+++ /dev/null
@@ -1,34 +0,0 @@
-(.module:
- lux
- (lux (control pipe)
- (data [number]
- text/format)
- [macro "meta/" Monad<Meta>])
- (luxc (lang (host [ruby #+ Ruby Expression Statement]))))
-
-(def: #export translate-bit
- (-> Bit (Meta Expression))
- (|>> ruby.bool meta/wrap))
-
-(def: #export translate-int
- (-> Int (Meta Expression))
- (|>> ruby.int meta/wrap))
-
-(def: #export translate-frac
- (-> Frac (Meta Expression))
- (|>> (cond> [(f/= number.positive-infinity)]
- [(new> "(1.0/0.0)")]
-
- [(f/= number.negative-infinity)]
- [(new> "(-1.0/0.0)")]
-
- [(f/= number.not-a-number)]
- [(new> "(0.0/0.0)")]
-
- ## else
- [%f])
- meta/wrap))
-
-(def: #export translate-text
- (-> Text (Meta Expression))
- (|>> %t meta/wrap))