aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/host
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/host/ruby.lux223
1 files changed, 0 insertions, 223 deletions
diff --git a/new-luxc/source/luxc/lang/host/ruby.lux b/new-luxc/source/luxc/lang/host/ruby.lux
deleted file mode 100644
index 61c0f8bb5..000000000
--- a/new-luxc/source/luxc/lang/host/ruby.lux
+++ /dev/null
@@ -1,223 +0,0 @@
-(.module:
- [lux #- not or and]
- (lux
- (control
- pipe)
- (data [text]
- text/format
- (coll [list "list/" Functor<List> Fold<List>]))))
-
-(type: #export Ruby Text)
-
-(type: #export Expression Ruby)
-
-(type: #export Statement Ruby)
-
-(def: #export nil
- Expression
- "nil")
-
-(def: #export bool
- (-> Bit Expression)
- (|>> (case> #0 "false"
- #1 "true")))
-
-(def: #export int
- (-> Int Expression)
- %i)
-
-(def: #export float
- (-> Frac Expression)
- %f)
-
-(def: #export (string value)
- (-> Text Expression)
- (%t value))
-
-(def: #export splat
- (-> Expression Expression)
- (|>> (format "*")))
-
-(def: #export (array-range from to array)
- (-> Expression Expression Expression Expression)
- (format "(" array "[" from ".." to "])"))
-
-(def: #export (array elements)
- (-> (List Expression) Expression)
- (format "([" (text.join-with "," elements) "])"))
-
-(def: #export (dictionary kvs)
- (-> (List [Expression Expression]) Expression)
- (format "({"
- (|> kvs
- (list/map (.function (_ [k v])
- (format k " => " v)))
- (text.join-with ", "))
- "})"))
-
-(def: #export (apply func args)
- (-> Expression (List Expression) Expression)
- (format "(" func "(" (text.join-with "," args) ")" ")"))
-
-(def: #export (send method args object)
- (-> Text (List Expression) Expression Expression)
- (apply (format object "." method) args))
-
-(def: #export call
- (-> (List Expression) Expression Expression)
- (send "call"))
-
-(def: #export (nth idx array)
- (-> Expression Expression Expression)
- (format "(" array "[" idx "])"))
-
-(def: #export (set-nth! idx value array)
- (-> Expression Expression Expression Statement)
- (format array "[" idx "] = " value ";"))
-
-(def: #export (field name object)
- (-> Text Expression Expression)
- (format "(" object "." name ")"))
-
-(def: #export (length array)
- (-> Expression Expression)
- (format "(" array ".length)"))
-
-(def: #export (set! vars value)
- (-> (List Text) Expression Statement)
- (format (text.join-with ", " vars) " = " value ";"))
-
-(def: #export (global var)
- (-> Text Expression)
- (format "$" var))
-
-(def: #export (global! var value)
- (-> Text Expression Statement)
- (set! (list (global var)) value))
-
-(def: #export (? test then! else!)
- (-> Expression Expression Expression Expression)
- (format "(" test " ? " then! " : " else! ")"))
-
-(def: #export (if! test then! else!)
- (-> Expression Statement Statement Statement)
- (format "if " test
- "\n" then!
- "\n" "else"
- "\n" else!
- "\n" "end;"))
-
-(def: #export (when! test then!)
- (-> Expression Statement Statement)
- (format "if " test
- "\n" then!
- "\n" "end;"))
-
-(def: #export (cond! clauses else!)
- (-> (List [Expression Statement]) Statement Statement)
- (list/fold (.function (_ [test then!] next!)
- (if! test then! next!))
- else!
- (list.reverse clauses)))
-
-(def: #export (block! statements)
- (-> (List Statement) Statement)
- (text.join-with " " statements))
-
-(def: #export (statement expression)
- (-> Expression Statement)
- (format expression ";"))
-
-(def: #export (while! test body)
- (-> Expression Statement Statement)
- (format "while " test
- "\n" body
- "\n" "end;"))
-
-(def: #export (for-in! var array body)
- (-> Text Expression Statement Statement)
- (format "for " var " in " array "do" "\n"
- body "\n"
- "end;" "\n"))
-
-(def: #export (begin! body rescues)
- (-> Statement (List [(List Text) Text Statement]) Statement)
- (format "begin"
- "\n" body "\n"
- (|> rescues
- (list/map (function (_ [ex-classes ex-value ex-handler])
- (format "rescue " (text.join-with ", " ex-classes)
- (case ex-value
- "" ""
- _ (format " => " ex-value))
- "\n"
- ex-handler)))
- (text.join-with "\n"))
- "\n" "end;"))
-
-(def: #export (raise message)
- (-> Expression Expression)
- (format "raise " message ";"))
-
-(def: #export (return! value)
- (-> Expression Statement)
- (format "return " value ";"))
-
-(def: #export (function! name args body)
- (-> Text (List Text) Statement Statement)
- (format "def " name "(" (text.join-with "," args) ")\n"
- body
- "\n" "end;"))
-
-(def: #export (lambda name args body)
- (-> (Maybe Text) (List Text) Statement Expression)
- (let [proc (format "lambda {" (format "|" (text.join-with ", " args) "|") " " body "}")]
- (case name
- #.None
- (format "(" proc ")")
-
- (#.Some name)
- (format "(" name " = " proc ")"))))
-
-(template [<name> <op>]
- [(def: #export (<name> param subject)
- (-> Expression Expression Expression)
- (format "(" subject " " <op> " " param ")"))]
-
- [= "=="]
- [< "<"]
- [<= "<="]
- [> ">"]
- [>= ">="]
- [+ "+"]
- [- "-"]
- [* "*"]
- [/ "/"]
- [% "%"]
- [pow "**"]
- )
-
-(template [<name> <op>]
- [(def: #export (<name> param subject)
- (-> Expression Expression Expression)
- (format "(" param " " <op> " " subject ")"))]
-
- [or "||"]
- [and "&&"]
- [bit-or "|"]
- [bit-and "&"]
- [bit-xor "^"]
- )
-
-(template [<name> <op>]
- [(def: #export (<name> param subject)
- (-> Expression Expression Expression)
- (format "(" subject " " <op> " " param ")"))]
-
- [bit-shl "<<"]
- [bit-shr ">>"]
- )
-
-(def: #export (not subject)
- (-> Expression Expression)
- (format "(!" subject ")"))