From be3e93a0688d1fee7fcb6ee464642451b0e43fe0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 20 Feb 2019 00:00:57 -0400
Subject: Moved function machinery over.

---
 .../luxc/lang/translation/js/function.jvm.lux      | 77 ----------------------
 1 file changed, 77 deletions(-)
 delete mode 100644 new-luxc/source/luxc/lang/translation/js/function.jvm.lux

(limited to 'new-luxc/source')

diff --git a/new-luxc/source/luxc/lang/translation/js/function.jvm.lux b/new-luxc/source/luxc/lang/translation/js/function.jvm.lux
deleted file mode 100644
index ef5ea668e..000000000
--- a/new-luxc/source/luxc/lang/translation/js/function.jvm.lux
+++ /dev/null
@@ -1,77 +0,0 @@
-(.module:
-  lux
-  (lux (control [monad #+ do])
-       (data [text]
-             text/format
-             (coll [list "list/" Functor<List>]))
-       [macro])
-  (luxc ["&" lang]
-        (lang ["ls" synthesis]
-              [".L" variable #+ Variable]
-              (host [js #+ JS Expression Statement])))
-  [//]
-  (// [".T" reference]
-      [".T" loop]))
-
-(def: #export (translate-apply translate functionS argsS+)
-  (-> (-> ls.Synthesis (Meta Expression)) ls.Synthesis (List ls.Synthesis) (Meta Expression))
-  (do macro.Monad<Meta>
-    [functionJS (translate functionS)
-     argsJS+ (monad.map @ translate argsS+)]
-    (wrap (format functionJS "(" (text.join-with "," argsJS+) ")"))))
-
-(def: (input-declaration register)
-  (format "var " (referenceT.variable (inc register)) " = arguments[" (|> register .int %i) "];"))
-
-(def: (with-closure inits function)
-  (-> (List Expression) Expression Expression)
-  (let [closure (case inits
-                  #.Nil
-                  (list)
-
-                  _
-                  (|> (list.n/range +0 (dec (list.size inits)))
-                      (list/map referenceT.closure)))]
-    (format "(function(" (text.join-with "," closure) ") {"
-            "return " function
-            ";})(" (text.join-with "," inits) ")")))
-
-(def: #export (translate-function translate env arity bodyS)
-  (-> (-> ls.Synthesis (Meta Expression))
-      (List Variable) ls.Arity ls.Synthesis
-      (Meta Expression))
-  (do macro.Monad<Meta>
-    [[function-name bodyJS] (//.with-sub-context
-                              (do @
-                                [function-name //.context]
-                                (//.with-anchor [function-name +1]
-                                  (translate bodyS))))
-     closureJS+ (monad.map @ referenceT.translate-variable env)
-     #let [args-initsJS+ (|> (list.n/range +0 (dec arity))
-                             (list/map input-declaration)
-                             (text.join-with ""))
-           selfJS (format "var " (referenceT.variable +0) " = " function-name ";")
-           arityJS (|> arity .int %i)]]
-    (wrap (<| (with-closure closureJS+)
-              (format "(function " function-name "() {"
-                      "\"use strict\";"
-                      "var num_args = arguments.length;"
-                      "if(num_args == " arityJS ") {"
-                      selfJS
-                      args-initsJS+
-                      (format "while(true) {"
-                              "return " bodyJS ";"
-                              "}")
-                      "}"
-                      "else if(num_args > " arityJS ") {"
-                      "return " function-name ".apply(null, [].slice.call(arguments,0," arityJS "))"
-                      ".apply(null, [].slice.call(arguments," arityJS "));"
-                      "}"
-                      ## Less than arity
-                      "else {"
-                      "var curried = [].slice.call(arguments);"
-                      "return function() { "
-                      "return " function-name ".apply(null, curried.concat([].slice.call(arguments)));"
-                      " };"
-                      "}"
-                      "})")))))
-- 
cgit v1.2.3