From 5fdf2b62f1f97026f76c0336a225f8b510762b46 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 16 Sep 2021 20:16:22 -0400 Subject: Adapted Lua, Python and Ruby compilers to the new variant format. --- stdlib/source/library/lux.lux | 88 ++++++------ .../language/lux/phase/generation/lua/case.lux | 11 +- .../language/lux/phase/generation/lua/function.lux | 2 +- .../language/lux/phase/generation/lua/loop.lux | 2 +- .../lux/phase/generation/lua/reference.lux | 4 +- .../language/lux/phase/generation/lua/runtime.lux | 70 +++++----- .../lux/phase/generation/lua/structure.lux | 35 +++-- .../language/lux/phase/generation/python/case.lux | 11 +- .../lux/phase/generation/python/reference.lux | 4 +- .../lux/phase/generation/python/runtime.lux | 152 +++++++++++---------- .../lux/phase/generation/python/structure.lux | 35 +++-- .../language/lux/phase/generation/reference.lux | 10 +- .../language/lux/phase/generation/ruby/case.lux | 9 +- .../lux/phase/generation/ruby/reference.lux | 4 +- .../language/lux/phase/generation/ruby/runtime.lux | 70 +++++----- .../lux/phase/generation/ruby/structure.lux | 35 +++-- .../lux/tool/compiler/language/lux/synthesis.lux | 2 +- 17 files changed, 279 insertions(+), 265 deletions(-) (limited to 'stdlib/source') diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index a474ac1a4..3cf71545b 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -823,18 +823,52 @@ (failure "Wrong syntax for $'")} tokens)) +... (def:'' .private (list#each f xs) +... {#UnivQ {#End} +... {#UnivQ {#End} +... {#Function {#Function {#Parameter 3} {#Parameter 1}} +... {#Function ($' List {#Parameter 3}) +... ($' List {#Parameter 1})}}}} +... ({{#End} +... {#End} + +... {#Item x xs'} +... {#Item (f x) (list#each f xs')}} +... xs)) + +(def:'' .private (list#mix f init xs) + ... (All (_ a b) (-> (-> b a a) a (List b) a)) + {#UnivQ {#End} {#UnivQ {#End} {#Function {#Function {#Parameter 1} + {#Function {#Parameter 3} + {#Parameter 3}}} + {#Function {#Parameter 3} + {#Function ($' List {#Parameter 1}) + {#Parameter 3}}}}}} + ({{#End} + init + + {#Item x xs'} + (list#mix f (f x init) xs')} + xs)) + +(def:'' .private (list#reversed list) + {#UnivQ {#End} + {#Function ($' List {#Parameter 1}) ($' List {#Parameter 1})}} + (list#mix ("lux type check" {#UnivQ {#End} + {#Function {#Parameter 1} {#Function ($' List {#Parameter 1}) ($' List {#Parameter 1})}}} + (function'' [head tail] {#Item head tail})) + {#End} + list)) + (def:'' .private (list#each f xs) {#UnivQ {#End} {#UnivQ {#End} {#Function {#Function {#Parameter 3} {#Parameter 1}} {#Function ($' List {#Parameter 3}) ($' List {#Parameter 1})}}}} - ({{#End} - {#End} - - {#Item x xs'} - {#Item (f x) (list#each f xs')}} - xs)) + (list#mix (function'' [head tail] {#Item (f head) tail}) + {#End} + (list#reversed xs))) (def:'' .private Replacement_Environment Type @@ -897,21 +931,6 @@ ("lux type as" Int param) ("lux type as" Int subject)))) -(def:'' .private (list#mix f init xs) - ... (All (_ a b) (-> (-> b a a) a (List b) a)) - {#UnivQ {#End} {#UnivQ {#End} {#Function {#Function {#Parameter 1} - {#Function {#Parameter 3} - {#Parameter 3}}} - {#Function {#Parameter 3} - {#Function ($' List {#Parameter 1}) - {#Parameter 3}}}}}} - ({{#End} - init - - {#Item x xs'} - (list#mix f (f x init) xs')} - xs)) - (def:'' .private (list#size list) {#UnivQ {#End} {#Function ($' List {#Parameter 1}) Nat}} @@ -1132,15 +1151,6 @@ {#Left "Wrong syntax for Ex"}} tokens)) -(def:'' .private (list#reversed list) - (All (_ a) - {#Function ($' List a) ($' List a)}) - (list#mix ("lux type check" (All (_ a) - {#Function a {#Function ($' List a) ($' List a)}}) - (function'' [head tail] {#Item head tail})) - {#End} - list)) - (macro:' .public (-> tokens) ({{#Item output inputs} (in_meta {#Item (list#mix ("lux type check" {#Function Code {#Function Code Code}} @@ -4878,8 +4888,8 @@ (in (` [(~ g!meta) { (~ (untemplated_list =elems))}])))))] [.#Form untemplated_form] - [.#Tuple untemplated_tuple] [.#Variant untemplated_variant] + [.#Tuple untemplated_tuple] ) (def: (untemplated_pattern pattern) @@ -4890,12 +4900,12 @@ (^template [ ] [[_ { value}] (in (` [(~ g!meta) { (~ ( value))}]))]) - ([.#Bit bit$] - [.#Nat nat$] - [.#Int int$] - [.#Rev rev$] - [.#Frac frac$] - [.#Text text$] + ([.#Bit bit$] + [.#Nat nat$] + [.#Int int$] + [.#Rev rev$] + [.#Frac frac$] + [.#Text text$] [.#Symbol name$]) [_ {#Form {#Item [[_ {#Symbol ["" "~"]}] {#Item [unquoted {#End}]}]}}] @@ -4945,7 +4955,7 @@ (list localT (` (..as_is (~ valueT)))))) (list#mix list#composite (list))))] (~ bodyT))))) - + {#None} (..failure ":let requires an even number of parts")) @@ -4981,7 +4991,7 @@ {#Some methods} (in (list (` (..Tuple (~+ (list#each product#right methods)))) (tuple$ (list#each (|>> product#left text$) methods)))) - + {#None} (failure "Wrong syntax for Interface")))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux index e4d3f24eb..3afa582f0 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux @@ -65,7 +65,7 @@ (in (list#mix (function (_ side source) (.let [method (.case side (^template [ ] - [( lefts) + [{ lefts} ( (_.int (.int lefts)))]) ([.#Left //runtime.tuple//left] [.#Right //runtime.tuple//right]))] @@ -132,11 +132,12 @@ (def: fail! _.break) -(template [ ] +(template [ ] [(def: ( simple? idx) (-> Bit Nat Statement) ($_ _.then - (_.set (list @temp) (|> idx .int _.int (//runtime.sum//get ..peek ))) + (_.set (list @temp) (//runtime.sum//get ..peek + (|> idx .int _.int))) (.if simple? (_.when (_.= _.nil @temp) fail!) @@ -144,8 +145,8 @@ fail! (..push! @temp)))))] - [left_choice _.nil (<|)] - [right_choice (_.string "") ++] + [left_choice _.nil] + [right_choice //runtime.unit] ) (def: (alternation pre! post!) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux index 2efddb21e..5b5d0be04 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux @@ -1,6 +1,6 @@ (.using [library - [lux {"-" Tuple Variant function} + [lux {"-" Tuple Variant Label function} [abstract ["[0]" monad {"+" do}]] [control diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux index f620e0445..2bc8a7868 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux @@ -1,6 +1,6 @@ (.using [library - [lux {"-" Scope} + [lux {"-" Label Scope} [abstract ["[0]" monad {"+" do}]] [data diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux index 55cd8de06..f3ff385ae 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux @@ -9,5 +9,5 @@ (implementation: .public system (System Expression) - (def: constant _.var) - (def: variable _.var)) + (def: constant' _.var) + (def: variable' _.var)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux index 6c584f9b2..087f3e146 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux @@ -1,6 +1,6 @@ (.using [library - [lux {"-" Location} + [lux {"-" Label Location} ["[0]" meta] [abstract ["[0]" monad {"+" do}]] @@ -82,21 +82,21 @@ (flag last?) value)) -(def: .public none - Literal - (..variant 0 #0 ..unit)) - -(def: .public some - (-> Expression Literal) - (..variant 1 #1)) - (def: .public left (-> Expression Literal) (..variant 0 #0)) (def: .public right (-> Expression Literal) - (..variant 1 #1)) + (..variant 0 #1)) + +(def: .public none + Literal + (..left ..unit)) + +(def: .public some + (-> Expression Literal) + ..right) (def: (feature name definition) (-> Var (-> Var Statement) Statement) @@ -198,30 +198,34 @@ (_.var "table.move")))) ))))) -(runtime: (sum//get sum wants_last wanted_tag) - (let [no_match! (_.return _.nil) - sum_tag (_.the ..variant_tag_field sum) - sum_flag (_.the ..variant_flag_field sum) - sum_value (_.the ..variant_value_field sum) - is_last? (_.= ..unit sum_flag) - extact_match! (_.return sum_value) - test_recursion! (_.if is_last? - ... Must recurse. - ($_ _.then - (_.set (list wanted_tag) (_.- sum_tag wanted_tag)) - (_.set (list sum) sum_value)) - no_match!) - extrac_sub_variant! (_.return (variant' (_.- wanted_tag sum_tag) sum_flag sum_value))] +(runtime: (sum//get sum expected##right? expected##lefts) + (let [mismatch! (_.return _.nil) + actual##lefts (_.the ..variant_tag_field sum) + actual##right? (_.the ..variant_flag_field sum) + actual##value (_.the ..variant_value_field sum) + recur! ($_ _.then + (_.set (list expected##lefts) (|> expected##lefts + (_.- actual##lefts) + (_.- (_.int +1)))) + (_.set (list sum) actual##value))] (<| (_.while (_.bool true)) - (_.cond (list [(_.= sum_tag wanted_tag) - (_.if (_.= wants_last sum_flag) - extact_match! - test_recursion!)] - [(_.< wanted_tag sum_tag) - test_recursion!] - [(_.= ..unit wants_last) - extrac_sub_variant!]) - no_match!)))) + (_.cond (list [(_.= expected##lefts actual##lefts) + (_.if (_.= expected##right? actual##right?) + (_.return actual##value) + mismatch!)] + + [(_.< expected##lefts actual##lefts) + (_.if (_.= ..unit actual##right?) + recur! + mismatch!)] + + [(_.= ..unit expected##right?) + (_.return (variant' (|> actual##lefts + (_.- expected##lefts) + (_.- (_.int +1))) + actual##right? + actual##value))]) + mismatch!)))) (def: runtime//adt Statement diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux index f42206a3c..3c491e788 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux @@ -1,18 +1,18 @@ (.using - [library - [lux {"-" Tuple Variant} - [abstract - ["[0]" monad {"+" do}]] - [target - ["_" lua {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] - ["[1][0]" primitive] - ["///[1]" //// "_" - [analysis {"+" Variant Tuple}] - ["[1][0]" synthesis {"+" Synthesis}] - ["//[1]" /// "_" - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + [library + [lux {"-" Tuple Variant} + [abstract + ["[0]" monad {"+" do}]] + [target + ["_" lua {"+" Expression}]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" primitive] + ["///[1]" //// "_" + [analysis {"+" Variant Tuple}] + ["[1][0]" synthesis {"+" Synthesis}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]#[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) @@ -30,8 +30,5 @@ (def: .public (variant generate archive [lefts right? valueS]) (Generator (Variant Synthesis)) - (let [tag (if right? - (++ lefts) - lefts)] - (///////phase#each (//runtime.variant tag right?) - (generate archive valueS)))) + (///////phase#each (//runtime.variant lefts right?) + (generate archive valueS))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux index c2b153439..4be219e6f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux @@ -91,7 +91,7 @@ (in (list#mix (function (_ side source) (.let [method (.case side (^template [ ] - [( lefts) + [{ lefts} ( (_.int (.int lefts)))]) ([.#Left //runtime.tuple::left] [.#Right //runtime.tuple::right]))] @@ -134,11 +134,12 @@ (-> Nat (Statement Any)) (_.delete (_.slice_from (_.int (i.* -1 (.int pops))) @cursor))) -(template [ ] +(template [ ] [(def: ( simple? idx) (-> Bit Nat (Statement Any)) ($_ _.then - (_.set (list @temp) (|> idx .int _.int (//runtime.sum::get ..peek ))) + (_.set (list @temp) (//runtime.sum::get ..peek + (|> idx .int _.int))) (.if simple? (_.when (_.= _.none @temp) fail_pm!) @@ -147,8 +148,8 @@ (..push! @temp)) )))] - [left_choice _.none (<|)] - [right_choice (_.string "") ++] + [left_choice _.none] + [right_choice //runtime.unit] ) (def: (with_looping in_closure? g!once body!) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux index 82d999675..10dcfeec9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux @@ -9,5 +9,5 @@ (implementation: .public system (System (Expression Any)) - (def: constant _.var) - (def: variable _.var)) + (def: constant' _.var) + (def: variable' _.var)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux index 51127770a..1b89fd694 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux @@ -1,44 +1,44 @@ (.using - [library - [lux {"-" ++} - ["[0]" meta] - [abstract - ["[0]" monad {"+" do}]] - [control - ["[0]" function] - ["<>" parser - ["<[0]>" code]]] - [data - ["[0]" product] - ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] - [encoding - ["[0]" utf8]]] - [collection - ["[0]" list ("[1]#[0]" functor)] - ["[0]" sequence]]] - ["[0]" macro - [syntax {"+" syntax:}] - ["[0]" code]] - [math - [number {"+" hex} - ["f" frac] - ["[0]" i64]]] - ["@" target - ["_" python {"+" Expression SVar Computation Literal Statement}]]]] - ["[0]" /// "_" - ["[1][0]" reference] - ["//[1]" /// "_" - ["$" version] - ["[1][0]" synthesis {"+" Synthesis}] - ["[1][0]" generation] - ["//[1]" /// - ["[1][0]" phase] - [reference - [variable {"+" Register}]] - [meta - [archive {"+" Output Archive} - ["[0]" artifact {"+" Registry}]]]]]]) + [library + [lux {"-" ++} + ["[0]" meta] + [abstract + ["[0]" monad {"+" do}]] + [control + ["[0]" function] + ["<>" parser + ["<[0]>" code]]] + [data + ["[0]" product] + ["[0]" text ("[1]#[0]" hash) + ["%" format {"+" format}] + [encoding + ["[0]" utf8]]] + [collection + ["[0]" list ("[1]#[0]" functor)] + ["[0]" sequence]]] + ["[0]" macro + [syntax {"+" syntax:}] + ["[0]" code]] + [math + [number {"+" hex} + ["f" frac] + ["[0]" i64]]] + ["@" target + ["_" python {"+" Expression SVar Computation Literal Statement}]]]] + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["$" version] + ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] + [reference + [variable {"+" Register}]] + [meta + [archive {"+" Output Archive} + ["[0]" artifact {"+" Registry}]]]]]]) (template [ ] [(type: .public @@ -62,8 +62,7 @@ (def: prefix "LuxRuntime") -(def: .public - unit +(def: .public unit (_.unicode /////synthesis.unit)) (def: (flag value) @@ -82,21 +81,21 @@ (flag last?) value)) -(def: .public none - Literal - (..variant 0 #0 unit)) - -(def: .public some - (-> (Expression Any) Literal) - (..variant 1 #1)) - (def: .public left (-> (Expression Any) Literal) (..variant 0 #0)) (def: .public right (-> (Expression Any) Literal) - (..variant 1 #1)) + (..variant 0 #1)) + +(def: .public none + Literal + (..left ..unit)) + +(def: .public some + (-> (Expression Any) Literal) + ..right) (def: (runtime_name name) (-> Text SVar) @@ -236,31 +235,34 @@ (_.return (_.slice_from right_index tuple)))) {.#None})))) -(runtime: (sum::get sum wantsLast wantedTag) - (let [no_match! (_.return _.none) - sum_tag (_.item (_.int +0) sum) - sum_flag (_.item (_.int +1) sum) - sum_value (_.item (_.int +2) sum) - is_last? (_.= ..unit sum_flag) - test_recursion! (_.if is_last? - ... Must recurse. - ($_ _.then - (_.set (list wantedTag) (_.- sum_tag wantedTag)) - (_.set (list sum) sum_value)) - no_match!)] +(runtime: (sum::get sum expected##right? expected##lefts) + (let [mismatch! (_.return _.none) + actual##lefts (_.item (_.int +0) sum) + actual##right? (_.item (_.int +1) sum) + actual##value (_.item (_.int +2) sum) + recur! ($_ _.then + (_.set (list expected##lefts) (|> expected##lefts + (_.- actual##lefts) + (_.- (_.int +1)))) + (_.set (list sum) actual##value))] (_.while (_.bool true) - (_.cond (list [(_.= wantedTag sum_tag) - (_.if (_.= wantsLast sum_flag) - (_.return sum_value) - test_recursion!)] - - [(_.< wantedTag sum_tag) - test_recursion!] - - [(_.= ..unit wantsLast) - (_.return (variant' (_.- wantedTag sum_tag) sum_flag sum_value))]) - - no_match!) + (_.cond (list [(_.= expected##lefts actual##lefts) + (_.if (_.= expected##right? actual##right?) + (_.return actual##value) + mismatch!)] + + [(_.< expected##lefts actual##lefts) + (_.if (_.= ..unit actual##right?) + recur! + mismatch!)] + + [(_.= ..unit expected##right?) + (_.return (variant' (|> actual##lefts + (_.- expected##lefts) + (_.- (_.int +1))) + actual##right? + actual##value))]) + mismatch!) {.#None}))) (def: runtime::adt diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux index b4bb7afe1..0b3183166 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux @@ -1,18 +1,18 @@ (.using - [library - [lux {"-" Variant Tuple} - [abstract - ["[0]" monad {"+" do}]] - [target - ["_" python {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] - ["[1][0]" primitive] - ["///[1]" //// "_" - [analysis {"+" Variant Tuple}] - ["[1][0]" synthesis {"+" Synthesis}] - ["//[1]" /// "_" - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + [library + [lux {"-" Variant Tuple} + [abstract + ["[0]" monad {"+" do}]] + [target + ["_" python {"+" Expression}]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" primitive] + ["///[1]" //// "_" + [analysis {"+" Variant Tuple}] + ["[1][0]" synthesis {"+" Synthesis}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]#[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) @@ -30,8 +30,5 @@ (def: .public (variant generate archive [lefts right? valueS]) (Generator (Variant Synthesis)) - (let [tag (if right? - (++ lefts) - lefts)] - (///////phase#each (//runtime.variant tag right?) - (generate archive valueS)))) + (///////phase#each (//runtime.variant lefts right?) + (generate archive valueS))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux index 00a31a308..34ecfcf7a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux @@ -47,15 +47,15 @@ (type: .public (System expression) (Interface (: (-> Text expression) - constant) + constant') (: (-> Text expression) - variable))) + variable'))) (def: .public (constant system archive name) (All (_ anchor expression directive) - (-> (System expression) Archive Name + (-> (System expression) Archive Symbol (////generation.Operation anchor expression directive expression))) - (phase#each (|>> ..artifact (# system constant)) + (phase#each (|>> ..artifact (# system constant')) (////generation.remember archive name))) (template [ ] @@ -63,7 +63,7 @@ (All (_ expression) (-> (System expression) (-> Register expression))) - (|>> %.nat (format ) (# system variable)))] + (|>> %.nat (format ) (# system variable')))] ["f" foreign] ["l" local] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux index 1be61b59b..499bc7c36 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux @@ -138,11 +138,12 @@ (_.int (.int pops))) @cursor))) -(template [ ] +(template [ ] [(def: ( simple? idx) (-> Bit Nat Statement) ($_ _.then - (_.set (list @temp) (|> idx .int _.int (//runtime.sum//get ..peek ))) + (_.set (list @temp) (//runtime.sum//get ..peek + (|> idx .int _.int))) (.if simple? (_.when (_.= _.nil @temp) fail!) @@ -150,8 +151,8 @@ fail! (..push! @temp)))))] - [left_choice _.nil (<|)] - [right_choice (_.string "") ++] + [left_choice _.nil] + [right_choice //runtime.unit] ) (def: (with_looping in_closure? g!once g!continue? body!) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux index c08799435..47c60feac 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux @@ -9,5 +9,5 @@ (implementation: .public system (System Expression) - (def: constant _.global) - (def: variable _.local)) + (def: constant' _.global) + (def: variable' _.local)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux index 782ae34f7..adf786058 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux @@ -171,47 +171,51 @@ (-> Nat Bit Expression Computation) (sum//make (_.int (.int tag)) (..flag last?) value)) -(def: .public none - Computation - (..variant 0 #0 ..unit)) - -(def: .public some - (-> Expression Computation) - (..variant 1 #1)) - (def: .public left (-> Expression Computation) (..variant 0 #0)) (def: .public right (-> Expression Computation) - (..variant 1 #1)) - -(runtime: (sum//get sum wantsLast wantedTag) - (let [no_match! (_.return _.nil) - sum_tag (_.item (_.string ..variant_tag_field) sum) - sum_flag (_.item (_.string ..variant_flag_field) sum) - sum_value (_.item (_.string ..variant_value_field) sum) - is_last? (_.= ..unit sum_flag) - test_recursion! (_.if is_last? - ... Must recurse. - ($_ _.then - (_.set (list wantedTag) (_.- sum_tag wantedTag)) - (_.set (list sum) sum_value)) - no_match!)] - (<| (_.while (_.bool true)) - (_.cond (list [(_.= sum_tag wantedTag) - (_.if (_.= wantsLast sum_flag) - (_.return sum_value) - test_recursion!)] + (..variant 0 #1)) - [(_.< wantedTag sum_tag) - test_recursion!] - - [(_.= ..unit wantsLast) - (_.return (sum//make (_.- wantedTag sum_tag) sum_flag sum_value))]) +(def: .public none + Computation + (..left ..unit)) - no_match!)))) +(def: .public some + (-> Expression Computation) + ..right) + +(runtime: (sum//get sum expected##right? expected##lefts) + (let [mismatch! (_.return _.nil) + actual##lefts (_.item (_.string ..variant_tag_field) sum) + actual##right? (_.item (_.string ..variant_flag_field) sum) + actual##value (_.item (_.string ..variant_value_field) sum) + recur! ($_ _.then + (_.set (list expected##lefts) (|> expected##lefts + (_.- actual##lefts) + (_.- (_.int +1)))) + (_.set (list sum) actual##value))] + (<| (_.while (_.bool true)) + (_.cond (list [(_.= expected##lefts actual##lefts) + (_.if (_.= expected##right? actual##right?) + (_.return actual##value) + mismatch!)] + + [(_.< expected##lefts actual##lefts) + (_.if (_.= ..unit actual##right?) + recur! + mismatch!)] + + [(_.= ..unit expected##right?) + (_.return (sum//make (|> actual##lefts + (_.- expected##lefts) + (_.- (_.int +1))) + actual##right? + actual##value))]) + + mismatch!)))) (def: runtime//adt Statement diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux index 6b9ddd993..72c620827 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux @@ -1,18 +1,18 @@ (.using - [library - [lux {"-" Variant Tuple} - [abstract - ["[0]" monad {"+" do}]] - [target - ["_" ruby {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] - ["[1][0]" primitive] - ["///[1]" //// "_" - [analysis {"+" Variant Tuple}] - ["[1][0]" synthesis {"+" Synthesis}] - ["//[1]" /// "_" - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + [library + [lux {"-" Variant Tuple} + [abstract + ["[0]" monad {"+" do}]] + [target + ["_" ruby {"+" Expression}]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" primitive] + ["///[1]" //// "_" + [analysis {"+" Variant Tuple}] + ["[1][0]" synthesis {"+" Synthesis}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]#[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) @@ -30,8 +30,5 @@ (def: .public (variant generate archive [lefts right? valueS]) (Generator (Variant Synthesis)) - (let [tag (if right? - (++ lefts) - lefts)] - (///////phase#each (//runtime.variant tag right?) - (generate archive valueS)))) + (///////phase#each (//runtime.variant lefts right?) + (generate archive valueS))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux index 56902d682..13d773310 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux @@ -816,7 +816,7 @@ [(template: .public ( idx nextP) [($_ ..path/seq ( idx) - ..#Pop + {..#Pop} nextP)])] [simple_left_side ..side/left] -- cgit v1.2.3