diff options
11 files changed, 11 insertions, 231 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/js/extension.lux b/stdlib/source/lux/tool/compiler/phase/generation/js/extension.lux index a40b4953f..3bc0a0887 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/js/extension.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/js/extension.lux @@ -6,10 +6,8 @@ [// [runtime (#+ Bundle)]] [/ - ["." common] - ["." host]]) + ["." common]]) (def: #export bundle Bundle - (|> common.bundle - (dictionary.merge host.bundle))) + common.bundle) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/js/extension/host.lux b/stdlib/source/lux/tool/compiler/phase/generation/js/extension/host.lux deleted file mode 100644 index f78daf215..000000000 --- a/stdlib/source/lux/tool/compiler/phase/generation/js/extension/host.lux +++ /dev/null @@ -1,122 +0,0 @@ -(.module: - [lux #* - [abstract - ["." monad (#+ do)]] - [data - ["." product] - [collection - ["." dictionary]]] - [host - ["_" js (#+ Expression)]]] - ["." /// #_ - ["#." runtime (#+ Handler Bundle)] - ["#/" // #_ - ["#." extension (#+ Nullary Unary Binary Trinary Variadic - nullary unary binary trinary variadic)] - ["#/" // - ["#." extension - ["." bundle]] - ["#/" // #_ - ["#." synthesis]]]]]) - -(template [<name> <js>] - [(def: (<name> _) (Nullary Expression) <js>)] - - [js//null _.null] - [js//undefined _.undefined] - [js//object (_.object (list))] - ) - -(def: (js//global name generate inputs) - Handler - (case inputs - (^ (list (//////synthesis.text global))) - (:: /////.monad wrap (_.var global)) - - _ - (/////.throw /////extension.incorrect-syntax name))) - -(def: (js//call name generate inputs) - Handler - (case inputs - (^ (list& functionS argsS+)) - (do /////.monad - [functionJS (generate functionS) - argsJS+ (monad.map @ generate argsS+)] - (wrap (_.apply/* functionJS argsJS+))) - - _ - (/////.throw /////extension.incorrect-syntax name))) - -(def: js - Bundle - (|> bundle.empty - (bundle.install "null" (nullary js//null)) - (bundle.install "undefined" (nullary js//undefined)) - (bundle.install "object" (nullary js//object)) - (bundle.install "array" (variadic _.array)) - (bundle.install "global" js//global) - (bundle.install "call" js//call))) - -(def: (object//new name generate inputs) - Handler - (case inputs - (^ (list& constructorS argsS+)) - (do /////.monad - [constructorJS (generate constructorS) - argsJS+ (monad.map @ generate argsS+)] - (wrap (_.new constructorJS argsJS+))) - - _ - (/////.throw /////extension.incorrect-syntax name))) - -(def: (object//call name generate inputs) - Handler - (case inputs - (^ (list& objectS methodS argsS+)) - (do /////.monad - [objectJS (generate objectS) - methodJS (generate methodS) - argsJS+ (monad.map @ generate argsS+)] - (wrap (|> objectJS - (_.at methodJS) - (_.do "apply" (list& objectJS argsJS+))))) - - _ - (/////.throw /////extension.incorrect-syntax name))) - -(def: (object//set [fieldJS valueJS objectJS]) - (Trinary Expression) - (///runtime.js//set objectJS fieldJS valueJS)) - -(def: object - Bundle - (<| (bundle.prefix "object") - (|> bundle.empty - (bundle.install "new" object//new) - (bundle.install "call" object//call) - (bundle.install "read" (binary (product.uncurry ///runtime.js//get))) - (bundle.install "write" (trinary object//set)) - (bundle.install "delete" (binary (product.uncurry ///runtime.js//delete))) - ))) - -(def: (array//write [indexJS valueJS arrayJS]) - (Trinary Expression) - (///runtime.array//write indexJS valueJS arrayJS)) - -(def: array - Bundle - (<| (bundle.prefix "array") - (|> bundle.empty - (bundle.install "read" (binary (product.uncurry ///runtime.array//read))) - (bundle.install "write" (trinary array//write)) - (bundle.install "delete" (binary (product.uncurry ///runtime.array//delete))) - (bundle.install "length" (unary (_.the "length"))) - ))) - -(def: #export bundle - Bundle - (<| (bundle.prefix "js") - (|> ..js - (dictionary.merge ..object) - (dictionary.merge ..array)))) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/extension.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/extension.lux index a40b4953f..3bc0a0887 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/lua/extension.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/extension.lux @@ -6,10 +6,8 @@ [// [runtime (#+ Bundle)]] [/ - ["." common] - ["." host]]) + ["." common]]) (def: #export bundle Bundle - (|> common.bundle - (dictionary.merge host.bundle))) + common.bundle) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/extension/host.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/extension/host.lux deleted file mode 100644 index 9c178e79c..000000000 --- a/stdlib/source/lux/tool/compiler/phase/generation/lua/extension/host.lux +++ /dev/null @@ -1,25 +0,0 @@ -(.module: - [lux #* - [abstract - ["." monad (#+ do)]] - [data - ["." product] - [collection - ["." dictionary]]] - [host - ["_" lua (#+ Expression)]]] - ["." /// #_ - ["#." runtime (#+ Handler Bundle)] - ["#/" // #_ - ["#." extension (#+ Nullary Unary Binary Trinary Variadic - nullary unary binary trinary variadic)] - ["#/" // - ["#." extension - ["." bundle]] - ["#/" // #_ - ["#." synthesis]]]]]) - -(def: #export bundle - Bundle - (<| (bundle.prefix "lua") - bundle.empty)) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/extension.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/extension.lux index a40b4953f..3bc0a0887 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/python/extension.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/python/extension.lux @@ -6,10 +6,8 @@ [// [runtime (#+ Bundle)]] [/ - ["." common] - ["." host]]) + ["." common]]) (def: #export bundle Bundle - (|> common.bundle - (dictionary.merge host.bundle))) + common.bundle) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/extension/host.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/extension/host.lux deleted file mode 100644 index 242022c87..000000000 --- a/stdlib/source/lux/tool/compiler/phase/generation/python/extension/host.lux +++ /dev/null @@ -1,25 +0,0 @@ -(.module: - [lux #* - [abstract - ["." monad (#+ do)]] - [data - ["." product] - [collection - ["." dictionary]]] - [host - ["_" python (#+ Expression)]]] - ["." /// #_ - ["#." runtime (#+ Handler Bundle)] - ["#/" // #_ - ["#." extension (#+ Nullary Unary Binary Trinary Variadic - nullary unary binary trinary variadic)] - ["#/" // - ["#." extension - ["." bundle]] - ["#/" // #_ - ["#." synthesis]]]]]) - -(def: #export bundle - Bundle - (<| (bundle.prefix "python") - bundle.empty)) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/ruby/extension.lux b/stdlib/source/lux/tool/compiler/phase/generation/ruby/extension.lux index a40b4953f..3bc0a0887 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/ruby/extension.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/ruby/extension.lux @@ -6,10 +6,8 @@ [// [runtime (#+ Bundle)]] [/ - ["." common] - ["." host]]) + ["." common]]) (def: #export bundle Bundle - (|> common.bundle - (dictionary.merge host.bundle))) + common.bundle) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/ruby/extension/host.lux b/stdlib/source/lux/tool/compiler/phase/generation/ruby/extension/host.lux deleted file mode 100644 index c8b6dcb27..000000000 --- a/stdlib/source/lux/tool/compiler/phase/generation/ruby/extension/host.lux +++ /dev/null @@ -1,25 +0,0 @@ -(.module: - [lux #* - [abstract - ["." monad (#+ do)]] - [data - ["." product] - [collection - ["." dictionary]]] - [host - ["_" ruby (#+ Expression)]]] - ["." /// #_ - ["#." runtime (#+ Handler Bundle)] - ["#/" // #_ - ["#." extension (#+ Nullary Unary Binary Trinary Variadic - nullary unary binary trinary variadic)] - ["#/" // - ["#." extension - ["." bundle]] - ["#/" // #_ - ["#." synthesis]]]]]) - -(def: #export bundle - Bundle - (<| (bundle.prefix "ruby") - bundle.empty)) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/scheme/extension.jvm.lux b/stdlib/source/lux/tool/compiler/phase/generation/scheme/extension.jvm.lux index a40b4953f..3bc0a0887 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/scheme/extension.jvm.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/scheme/extension.jvm.lux @@ -6,10 +6,8 @@ [// [runtime (#+ Bundle)]] [/ - ["." common] - ["." host]]) + ["." common]]) (def: #export bundle Bundle - (|> common.bundle - (dictionary.merge host.bundle))) + common.bundle) diff --git a/stdlib/source/lux/tool/compiler/phase/generation/scheme/extension/host.jvm.lux b/stdlib/source/lux/tool/compiler/phase/generation/scheme/extension/host.jvm.lux deleted file mode 100644 index b8b2b7612..000000000 --- a/stdlib/source/lux/tool/compiler/phase/generation/scheme/extension/host.jvm.lux +++ /dev/null @@ -1,11 +0,0 @@ -(.module: - [lux #*] - [/// - [runtime (#+ Bundle)] - [/// - [extension - ["." bundle]]]]) - -(def: #export bundle - Bundle - bundle.empty) diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 99276bcf1..08bc451b1 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -5,9 +5,7 @@ [case (#+)] [loop (#+)] [function (#+)] - [extension (#+) - [common (#+)] - [host (#+)]])] + [extension (#+)])] (.module: ["/" lux #* [abstract |