diff options
| author | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
| commit | 35c0807799717cd720ab28b35851c1a01a67445d (patch) | |
| tree | c6237b79fb262d24c8a46ee3ecb714df3e9874d8 /stdlib/source/library | |
| parent | b55cefcb258f11eeee32c1478faefd1bd09ec871 (diff) | |
De-taggification | part 4
Diffstat (limited to 'stdlib/source/library')
402 files changed, 4075 insertions, 4071 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index 5b6a2ba6e..bc5393c3c 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -3825,14 +3825,18 @@ ("lux text concat" left right)))) "" template)) -(def: contextual_reference "#") -(def: self_reference ".") - -(def: (module_alias context self aliased) - (-> Text Text Text Text) - (|> aliased - (replaced ..self_reference self) - (replaced ..contextual_reference context))) +(def: (alias_stand_in index) + (-> Nat Text) + ($_ "lux text concat" "[" (nat\encoded index) "]")) + +(def: (module_alias context aliased) + (-> (List Text) Text Text) + (product\right + (list\mix (function (_ replacement [index aliased]) + [("lux i64 +" 1 index) + (replaced (alias_stand_in index) replacement aliased)]) + [0 aliased] + context))) (def: .public module_separator "/") @@ -3909,8 +3913,8 @@ "Importing module: " module ..\n " Relative Root: " relative_root ..\n)))))) -(def: (imports_parser nested? relative_root context_alias imports) - (-> Bit Text Text (List Code) (Meta (List Importation))) +(def: (imports_parser nested? relative_root context imports) + (-> Bit Text (List Text) (List Code) (Meta (List Importation))) (do meta_monad [imports' (monad\each meta_monad (: (-> Code (Meta (List Importation))) @@ -3938,7 +3942,7 @@ .let [[referral extra] referral+extra] openings+extra (openings_parser extra) .let [[openings extra] openings+extra] - sub_imports (imports_parser #1 absolute_module_name context_alias extra)] + sub_imports (imports_parser #1 absolute_module_name context extra)] (in (case [referral openings] [#Nothing #End] sub_imports @@ -3962,8 +3966,8 @@ .let [[referral extra] referral+extra] openings+extra (openings_parser extra) .let [[openings extra] openings+extra - module_alias (..module_alias context_alias module_name alias)] - sub_imports (imports_parser #1 absolute_module_name module_alias extra)] + module_alias (..module_alias (#Item module_name context) alias)] + sub_imports (imports_parser #1 absolute_module_name (#Item module_alias context) extra)] (in (case [referral openings] [#Ignore #End] sub_imports @@ -4242,7 +4246,7 @@ [full_body ((: (-> Name [(List Name) (List Type)] Code (Meta Code)) (function (recur source [tags members] target) (let [locals (list\each (function (_ [t_module t_name]) - ["" (..module_alias "" t_name alias)]) + ["" (..module_alias (list t_name) alias)]) tags) pattern (tuple$ (list\each identifier$ locals))] (do meta_monad @@ -4363,7 +4367,7 @@ (in_meta (list\conjoint decls'))) _ - (in_meta (list (` ("lux def" (~ (local_identifier$ (..module_alias "" short alias))) + (in_meta (list (` ("lux def" (~ (local_identifier$ (..module_alias (list short) alias))) (~ source+) [(~ location_code) (#.Record #.End)] #0))))))) @@ -4516,7 +4520,7 @@ #Nothing (list))) openings (list\each (function (_ [alias structs]) - (form$ (list& (text$ (..replaced ..contextual_reference module_alias alias)) + (form$ (list& (text$ (..module_alias (list (alias_stand_in 0) module_alias) alias)) (list\each local_identifier$ structs)))) r_opens)] (` ((~! ..refer) (~ (text$ module_name)) @@ -4533,7 +4537,7 @@ _ [(list) tokens]))] current_module current_module_name - imports (imports_parser #0 current_module "" _imports) + imports (imports_parser #0 current_module #End _imports) .let [=imports (|> imports (list\each (: (-> Importation Code) (function (_ [module_name m_alias =refer]) @@ -4551,7 +4555,7 @@ (macro: .public (\ tokens) (case tokens (^ (list struct [_ (#Identifier member)])) - (in_meta (list (` (let [(^open (~ (text$ ..self_reference))) (~ struct)] (~ (identifier$ member)))))) + (in_meta (list (` (let [(^open (~ (text$ (alias_stand_in 0)))) (~ struct)] (~ (identifier$ member)))))) (^ (list& struct member args)) (in_meta (list (` ((..\ (~ struct) (~ member)) (~+ args))))) diff --git a/stdlib/source/library/lux/abstract/apply.lux b/stdlib/source/library/lux/abstract/apply.lux index f50403a4b..48598dfa5 100644 --- a/stdlib/source/library/lux/abstract/apply.lux +++ b/stdlib/source/library/lux/abstract/apply.lux @@ -4,7 +4,7 @@ ["@" target]]] [// [monad {"+" [Monad]}] - ["." functor {"+" [Functor]}]]) + ["[0]" functor {"+" [Functor]}]]) (type: .public (Apply f) (Interface diff --git a/stdlib/source/library/lux/abstract/codec.lux b/stdlib/source/library/lux/abstract/codec.lux index 7308a0cd7..9a772accf 100644 --- a/stdlib/source/library/lux/abstract/codec.lux +++ b/stdlib/source/library/lux/abstract/codec.lux @@ -2,10 +2,10 @@ [library [lux "*" [control - ["." try {"+" [Try]}]]]] + ["[0]" try {"+" [Try]}]]]] [// [monad {"+" [do]}] - ["." functor]]) + ["[0]" functor]]) (type: .public (Codec m a) (Interface diff --git a/stdlib/source/library/lux/abstract/comonad.lux b/stdlib/source/library/lux/abstract/comonad.lux index b9175ecf1..2e37a943e 100644 --- a/stdlib/source/library/lux/abstract/comonad.lux +++ b/stdlib/source/library/lux/abstract/comonad.lux @@ -3,12 +3,12 @@ [lux "*" [data [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat]]] [meta - ["." location]]]] + ["[0]" location]]]] [// [functor {"+" [Functor]}]]) diff --git a/stdlib/source/library/lux/abstract/enum.lux b/stdlib/source/library/lux/abstract/enum.lux index fdd7e30e1..390bd9956 100644 --- a/stdlib/source/library/lux/abstract/enum.lux +++ b/stdlib/source/library/lux/abstract/enum.lux @@ -2,7 +2,7 @@ [library [lux "*"]] [// - ["." order {"+" [Order]}]]) + ["[0]" order {"+" [Order]}]]) (type: .public (Enum e) (Interface @@ -12,7 +12,7 @@ (def: .public (range enum from to) (All (_ a) (-> (Enum a) a a (List a))) - (let [(^open ".") enum] + (let [(^open "[0]") enum] (loop [end to output #.End] (cond (< end from) diff --git a/stdlib/source/library/lux/abstract/equivalence.lux b/stdlib/source/library/lux/abstract/equivalence.lux index 6e6b2e834..28dd71ce1 100644 --- a/stdlib/source/library/lux/abstract/equivalence.lux +++ b/stdlib/source/library/lux/abstract/equivalence.lux @@ -3,7 +3,7 @@ [lux "*"]] [// [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Equivalence a) (Interface diff --git a/stdlib/source/library/lux/abstract/functor.lux b/stdlib/source/library/lux/abstract/functor.lux index 50ad52f37..c72ae415b 100644 --- a/stdlib/source/library/lux/abstract/functor.lux +++ b/stdlib/source/library/lux/abstract/functor.lux @@ -15,7 +15,7 @@ (type: .public (Or f g) (All (_ a) (.Or (f a) (g a)))) -(def: .public (sum (^open "f\.") (^open "g\.")) +(def: .public (sum (^open "f\[0]") (^open "g\[0]")) (All (_ F G) (-> (Functor F) (Functor G) (Functor (..Or F G)))) (implementation (def: (each f fa|ga) @@ -29,7 +29,7 @@ (type: .public (And f g) (All (_ a) (.And (f a) (g a)))) -(def: .public (product (^open "f\.") (^open "g\.")) +(def: .public (product (^open "f\[0]") (^open "g\[0]")) (All (_ F G) (-> (Functor F) (Functor G) (Functor (..And F G)))) (implementation (def: (each f [fa ga]) @@ -39,7 +39,7 @@ (type: .public (Then f g) (All (_ a) (f (g a)))) -(def: .public (composite (^open "f\.") (^open "g\.")) +(def: .public (composite (^open "f\[0]") (^open "g\[0]")) (All (_ F G) (-> (Functor F) (Functor G) (Functor (..Then F G)))) (implementation (def: (each f fga) diff --git a/stdlib/source/library/lux/abstract/hash.lux b/stdlib/source/library/lux/abstract/hash.lux index 4ad150417..5b753b484 100644 --- a/stdlib/source/library/lux/abstract/hash.lux +++ b/stdlib/source/library/lux/abstract/hash.lux @@ -2,9 +2,9 @@ [library [lux "*"]] [// - ["." equivalence {"+" [Equivalence]}] + ["[0]" equivalence {"+" [Equivalence]}] [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Hash a) (Interface diff --git a/stdlib/source/library/lux/abstract/interval.lux b/stdlib/source/library/lux/abstract/interval.lux index 66b57a5e6..c39ac868c 100644 --- a/stdlib/source/library/lux/abstract/interval.lux +++ b/stdlib/source/library/lux/abstract/interval.lux @@ -4,7 +4,7 @@ [lux "*"]] [// [equivalence {"+" [Equivalence]}] - ["." order] + ["[0]" order] [enum {"+" [Enum]}]]) (type: .public (Interval a) @@ -35,7 +35,7 @@ (template [<name> <comp>] [(def: .public (<name> interval) (All (_ a) (-> (Interval a) Bit)) - (let [(^open ",\.") interval] + (let [(^open ",\[0]") interval] (<comp> ,\bottom ,\top)))] [inner? (order.> ,\&order)] @@ -45,7 +45,7 @@ (def: .public (within? interval elem) (All (_ a) (-> (Interval a) a Bit)) - (let [(^open ",\.") interval] + (let [(^open ",\[0]") interval] (cond (inner? interval) (and (order.>= ,\&order ,\bottom elem) (order.<= ,\&order ,\top elem)) @@ -61,7 +61,7 @@ (template [<name> <limit>] [(def: .public (<name> elem interval) (All (_ a) (-> a (Interval a) Bit)) - (let [(^open ".") interval] + (let [(^open "[0]") interval] (= <limit> elem)))] [starts_with? bottom] @@ -96,7 +96,7 @@ (def: .public (precedes? reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ".") reference + (let [(^open "[0]") reference limit (\ reference bottom)] (and (< limit (\ sample bottom)) (< limit (\ sample top))))) @@ -108,7 +108,7 @@ (template [<name> <comp>] [(def: .public (<name> reference sample) (All (_ a) (-> a (Interval a) Bit)) - (let [(^open ",\.") sample] + (let [(^open ",\[0]") sample] (and (<comp> reference ,\bottom) (<comp> reference ,\top))))] @@ -118,7 +118,7 @@ (def: .public (meets? reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ",\.") reference + (let [(^open ",\[0]") reference limit (\ reference bottom)] (and (,\= limit (\ sample top)) (order.<= ,\&order limit (\ sample bottom))))) @@ -131,7 +131,7 @@ (template [<name> <eq_side> <ineq> <ineq_side>] [(def: .public (<name> reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (,\= (\ reference <eq_side>) (\ sample <eq_side>)) (<ineq> ,\&order @@ -146,7 +146,7 @@ (All (_ a) (Equivalence (Interval a))) (def: (= reference sample) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (,\= ,\bottom (\ sample bottom)) (,\= ,\top (\ sample top)))))) @@ -155,7 +155,7 @@ (cond (or (singleton? sample) (and (inner? reference) (inner? sample)) (and (outer? reference) (outer? sample))) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (order.>= ,\&order (\ reference bottom) (\ sample bottom)) (order.<= ,\&order (\ reference top) (\ sample top)))) @@ -164,7 +164,7 @@ #0 ... (and (outer? reference) (inner? sample)) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (or (and (order.>= ,\&order (\ reference bottom) (\ sample bottom)) (order.> ,\&order (\ reference bottom) (\ sample top))) (and (,\< (\ reference top) (\ sample bottom)) @@ -173,7 +173,7 @@ (def: .public (overlaps? reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (not (\ ..equivalence = reference sample)) (cond (singleton? sample) #0 diff --git a/stdlib/source/library/lux/abstract/mix.lux b/stdlib/source/library/lux/abstract/mix.lux index 0999616bc..53e6fbcf8 100644 --- a/stdlib/source/library/lux/abstract/mix.lux +++ b/stdlib/source/library/lux/abstract/mix.lux @@ -13,5 +13,5 @@ (def: .public (with_monoid monoid mix value) (All (_ F a) (-> (Monoid a) (Mix F) (F a) a)) - (let [(^open "/\.") monoid] + (let [(^open "/\[0]") monoid] (mix /\composite /\identity value))) diff --git a/stdlib/source/library/lux/abstract/monad.lux b/stdlib/source/library/lux/abstract/monad.lux index cc2aadad1..b90a93580 100644 --- a/stdlib/source/library/lux/abstract/monad.lux +++ b/stdlib/source/library/lux/abstract/monad.lux @@ -2,7 +2,7 @@ [library [lux "*" [meta - ["." location]]]] + ["[0]" location]]]] [// [functor {"+" [Functor]}]]) @@ -117,7 +117,7 @@ (All (_ ! a) (-> (Monad !) (List (! a)) (! (List a)))) - (let [(^open "!\.") monad] + (let [(^open "!\[0]") monad] (function (recur xs) (case xs #.End @@ -133,7 +133,7 @@ (All (_ M a b) (-> (Monad M) (-> a (M b)) (List a) (M (List b)))) - (let [(^open "!\.") monad] + (let [(^open "!\[0]") monad] (function (recur xs) (case xs #.End @@ -149,7 +149,7 @@ (All (_ ! a b) (-> (Monad !) (-> a (! Bit)) (List a) (! (List a)))) - (let [(^open "!\.") monad] + (let [(^open "!\[0]") monad] (function (recur xs) (case xs #.End diff --git a/stdlib/source/library/lux/abstract/monad/indexed.lux b/stdlib/source/library/lux/abstract/monad/indexed.lux index 704213215..99446f84f 100644 --- a/stdlib/source/library/lux/abstract/monad/indexed.lux +++ b/stdlib/source/library/lux/abstract/monad/indexed.lux @@ -3,14 +3,14 @@ [lux "*" [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." list ("#\." functor mix)]]] - ["." macro + ["[0]" list ("[1]\[0]" functor mix)]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]]]] - ["." //]) + ["[0]" code]]]] + ["[0]" //]) (type: .public (IxMonad m) (Interface diff --git a/stdlib/source/library/lux/abstract/order.lux b/stdlib/source/library/lux/abstract/order.lux index 067e21e91..878a167f5 100644 --- a/stdlib/source/library/lux/abstract/order.lux +++ b/stdlib/source/library/lux/abstract/order.lux @@ -2,11 +2,11 @@ [library [lux "*" [control - ["." function]]]] + ["[0]" function]]]] [// - ["." equivalence {"+" [Equivalence]}] + ["[0]" equivalence {"+" [Equivalence]}] [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Order a) (Interface diff --git a/stdlib/source/library/lux/abstract/predicate.lux b/stdlib/source/library/lux/abstract/predicate.lux index ca38d26d3..0009a8467 100644 --- a/stdlib/source/library/lux/abstract/predicate.lux +++ b/stdlib/source/library/lux/abstract/predicate.lux @@ -2,11 +2,11 @@ [library [lux {"-" [or and]} [control - ["." function]]]] + ["[0]" function]]]] [// [monoid {"+" [Monoid]}] [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Predicate a) (-> a Bit)) diff --git a/stdlib/source/library/lux/control/concatenative.lux b/stdlib/source/library/lux/control/concatenative.lux index 9d9e419f7..ee8cc8af9 100644 --- a/stdlib/source/library/lux/control/concatenative.lux +++ b/stdlib/source/library/lux/control/concatenative.lux @@ -1,21 +1,21 @@ (.module: [library [lux {"-" [Alias if loop]} - ["." meta] + ["[0]" meta] [abstract - ["." monad]] + ["[0]" monad]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix functor)]]] - ["." macro {"+" [with_identifiers]} - ["." code] - ["." template] + ["[0]" list ("[1]\[0]" mix functor)]]] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] + ["[0]" template] [syntax {"+" [syntax:]} - ["|.|" annotations]]] + ["|[0]|" annotations]]] [math [number ["n" nat] @@ -23,8 +23,8 @@ ["r" rev] ["f" frac]]]]] [// - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]]) + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]]) (type: Alias [Text Code]) diff --git a/stdlib/source/library/lux/control/concurrency/actor.lux b/stdlib/source/library/lux/control/concurrency/actor.lux index 9958c7e0b..d127feec3 100644 --- a/stdlib/source/library/lux/control/concurrency/actor.lux +++ b/stdlib/source/library/lux/control/concurrency/actor.lux @@ -1,40 +1,40 @@ (.module: [library [lux "*" - ["." debug] + ["[0]" debug] [abstract monad] [control [pipe {"+" [case>]}] - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." bit] - ["." product] + ["[0]" bit] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid monad)]]] - ["." macro {"+" [with_identifiers]} - ["." code] + ["[0]" list ("[1]\[0]" monoid monad)]]] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" input] - ["|.|" annotations]]] + ["|[0]|" input] + ["|[0]|" annotations]]] [math [number ["n" nat]]] - ["." meta {"+" [monad]} - ["." annotation]] + ["[0]" meta {"+" [monad]} + ["[0]" annotation]] [type {"+" [:sharing]} - ["." abstract {"+" [abstract: :representation :abstraction]}]]]] + ["[0]" abstract {"+" [abstract: :representation :abstraction]}]]]] [// - ["." atom {"+" [Atom atom]}] - ["." async {"+" [Async Resolver]} ("#\." monad)] - ["." frp {"+" [Channel]}]]) + ["[0]" atom {"+" [Atom atom]}] + ["[0]" async {"+" [Async Resolver]} ("[1]\[0]" monad)] + ["[0]" frp {"+" [Channel]}]]) (exception: .public poisoned) (exception: .public dead) diff --git a/stdlib/source/library/lux/control/concurrency/async.lux b/stdlib/source/library/lux/control/concurrency/async.lux index b959ef3b7..aec52dcf9 100644 --- a/stdlib/source/library/lux/control/concurrency/async.lux +++ b/stdlib/source/library/lux/control/concurrency/async.lux @@ -4,18 +4,18 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control [pipe {"+" [case>]}] - ["." function] - ["." io {"+" [IO io]}]] + ["[0]" function] + ["[0]" io {"+" [IO io]}]] [data - ["." product]] + ["[0]" product]] [type {"+" [:sharing]} abstract]]] [// - ["." thread] - ["." atom {"+" [Atom atom]}]]) + ["[0]" thread] + ["[0]" atom {"+" [Atom atom]}]]) (abstract: .public (Async a) {} diff --git a/stdlib/source/library/lux/control/concurrency/atom.lux b/stdlib/source/library/lux/control/concurrency/atom.lux index d08b80b42..802ea9298 100644 --- a/stdlib/source/library/lux/control/concurrency/atom.lux +++ b/stdlib/source/library/lux/control/concurrency/atom.lux @@ -1,22 +1,22 @@ (.module: [library [lux "*" - ["." ffi] ["@" target] + ["[0]" ffi] [abstract [monad {"+" [do]}]] [control - ["." function] - ["." io {"+" [IO]} ("#\." functor)]] + ["[0]" function] + ["[0]" io {"+" [IO]} ("[1]\[0]" functor)]] [data - ["." product] + ["[0]" product] [collection - ["." array]]] + ["[0]" array]]] [type abstract]]]) (with_expansions [<jvm> (as_is (ffi.import: (java/util/concurrent/atomic/AtomicReference a) - ["#::." + ["[1]::[0]" (new [a]) (get [] a) (compareAndSet [a a] boolean)]))] diff --git a/stdlib/source/library/lux/control/concurrency/frp.lux b/stdlib/source/library/lux/control/concurrency/frp.lux index eab415358..1021c7e05 100644 --- a/stdlib/source/library/lux/control/concurrency/frp.lux +++ b/stdlib/source/library/lux/control/concurrency/frp.lux @@ -5,17 +5,17 @@ [equivalence {"+" [Equivalence]}] [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}]] [type {"+" [:sharing]} abstract]]] [// - ["." atom {"+" [Atom]}] - ["." async {"+" [Async]} ("#\." functor)]]) + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async]} ("[1]\[0]" functor)]]) (type: .public (Channel a) (Async (Maybe [a (Channel a)]))) diff --git a/stdlib/source/library/lux/control/concurrency/semaphore.lux b/stdlib/source/library/lux/control/concurrency/semaphore.lux index 8256f221b..3b0461579 100644 --- a/stdlib/source/library/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/library/lux/control/concurrency/semaphore.lux @@ -5,24 +5,24 @@ [monad {"+" [do]}]] [control [pipe {"+" [if>]}] - ["." io {"+" [IO]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." queue {"+" [Queue]}]]] + ["[0]" queue {"+" [Queue]}]]] [math [number ["n" nat] ["i" int]]] [type abstract - ["." refinement]]]] + ["[0]" refinement]]]] [// - ["." atom {"+" [Atom]}] - ["." async {"+" [Async Resolver]}]]) + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async Resolver]}]]) (type: State (Record diff --git a/stdlib/source/library/lux/control/concurrency/stm.lux b/stdlib/source/library/lux/control/concurrency/stm.lux index 36508615e..c62540890 100644 --- a/stdlib/source/library/lux/control/concurrency/stm.lux +++ b/stdlib/source/library/lux/control/concurrency/stm.lux @@ -4,21 +4,21 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." io {"+" [IO io]}] - ["." maybe] - ["." try]] + ["[0]" io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try]] [data - ["." product] + ["[0]" product] [collection - ["." list]]] + ["[0]" list]]] [type abstract]]] [// - ["." atom {"+" [Atom atom]}] - ["." async {"+" [Async Resolver]}] - ["." frp {"+" [Channel Sink]}]]) + ["[0]" atom {"+" [Atom atom]}] + ["[0]" async {"+" [Async Resolver]}] + ["[0]" frp {"+" [Channel Sink]}]]) (type: (Observer a) (-> a (IO Any))) diff --git a/stdlib/source/library/lux/control/concurrency/thread.lux b/stdlib/source/library/lux/control/concurrency/thread.lux index 5ad9c4265..b0571cc64 100644 --- a/stdlib/source/library/lux/control/concurrency/thread.lux +++ b/stdlib/source/library/lux/control/concurrency/thread.lux @@ -2,47 +2,47 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}]] [data - ["." text] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [math [number ["n" nat] ["f" frac]]] [time - ["." instant]]]] + ["[0]" instant]]]] [// - ["." atom {"+" [Atom]}]]) + ["[0]" atom {"+" [Atom]}]]) (with_expansions [<jvm> (as_is (ffi.import: java/lang/Object) (ffi.import: java/lang/Runtime - ["#::." + ["[1]::[0]" ("static" getRuntime [] java/lang/Runtime) (availableProcessors [] int)]) (ffi.import: java/lang/Runnable) (ffi.import: java/util/concurrent/TimeUnit - ["#::." + ["[1]::[0]" ("enum" MILLISECONDS)]) (ffi.import: java/util/concurrent/Executor - ["#::." + ["[1]::[0]" (execute [java/lang/Runnable] "io" void)]) (ffi.import: (java/util/concurrent/ScheduledFuture a)) (ffi.import: java/util/concurrent/ScheduledThreadPoolExecutor - ["#::." + ["[1]::[0]" (new [int]) (schedule [java/lang/Runnable long java/util/concurrent/TimeUnit] "io" (java/util/concurrent/ScheduledFuture java/lang/Object))]))] (for {@.old (as_is <jvm>) @@ -53,7 +53,7 @@ @.python (ffi.import: threading/Timer - ["#::." + ["[1]::[0]" (new [ffi.Float ffi.Function]) (start [] "io" "?" Any)])} diff --git a/stdlib/source/library/lux/control/continuation.lux b/stdlib/source/library/lux/control/continuation.lux index 48b752ef5..013c849da 100644 --- a/stdlib/source/library/lux/control/continuation.lux +++ b/stdlib/source/library/lux/control/continuation.lux @@ -6,12 +6,12 @@ [apply {"+" [Apply]}] [monad {"+" [Monad do]}]] [control - ["." function] + ["[0]" function] [parser - ["<.>" code]]] + ["<[0]>" code]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]]]]) + ["[0]" code]]]]) (type: .public (Cont i o) (-> (-> i o) o)) diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux index 49daeec7e..ecf71dc49 100644 --- a/stdlib/source/library/lux/control/exception.lux +++ b/stdlib/source/library/lux/control/exception.lux @@ -1,28 +1,28 @@ (.module: [library [lux "*" - ["." macro] - ["." meta] + ["[0]" macro] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." monoid)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro - ["." code] + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" input] - ["." type "_" - ["|#_.|" variable]]]] + ["|[0]|" input] + ["[0]" type "_" + ["|[1]_[0]|" variable]]]] [math [number - ["n" nat ("#\." decimal)]]]]] + ["n" nat ("[1]\[0]" decimal)]]]]] [// ["//" try {"+" [Try]}]]) diff --git a/stdlib/source/library/lux/control/function/contract.lux b/stdlib/source/library/lux/control/function/contract.lux index b101cc43f..4b349c534 100644 --- a/stdlib/source/library/lux/control/function/contract.lux +++ b/stdlib/source/library/lux/control/function/contract.lux @@ -2,15 +2,15 @@ [library [lux "*" [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [text ["%" format {"+" [format]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["i" int]]]]]) diff --git a/stdlib/source/library/lux/control/function/memo.lux b/stdlib/source/library/lux/control/function/memo.lux index 6ed8b6576..8e99b18ab 100644 --- a/stdlib/source/library/lux/control/function/memo.lux +++ b/stdlib/source/library/lux/control/function/memo.lux @@ -7,13 +7,13 @@ [hash {"+" [Hash]}] [monad {"+" [do]}]] [control - ["." state {"+" [State]}]] + ["[0]" state {"+" [State]}]] [data - ["." product] + ["[0]" product] [collection - ["." dictionary {"+" [Dictionary]}]]]]] - ["." // "_" - ["#" mixin {"+" [Mixin Recursive]}]]) + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" // "_" + ["[1]" mixin {"+" [Mixin Recursive]}]]) (def: .public memoization (All (_ i o) diff --git a/stdlib/source/library/lux/control/function/mutual.lux b/stdlib/source/library/lux/control/function/mutual.lux index 7781fd3e5..159f037e3 100644 --- a/stdlib/source/library/lux/control/function/mutual.lux +++ b/stdlib/source/library/lux/control/function/mutual.lux @@ -1,28 +1,28 @@ (.module: [library [lux {"-" [Definition let def: macro]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] + ["[0]" list ("[1]\[0]" functor)] [dictionary - ["." plist {"+" [PList]}]]]] - ["." macro - ["." local] - ["." code] + ["[0]" plist {"+" [PList]}]]]] + ["[0]" macro + ["[0]" local] + ["[0]" code] [syntax {"+" [syntax:]} - ["." declaration {"+" [Declaration]}]]]]] - ["." //]) + ["[0]" declaration {"+" [Declaration]}]]]]] + ["[0]" //]) (type: Mutual (Record diff --git a/stdlib/source/library/lux/control/io.lux b/stdlib/source/library/lux/control/io.lux index d7aac7fed..8ff12b40b 100644 --- a/stdlib/source/library/lux/control/io.lux +++ b/stdlib/source/library/lux/control/io.lux @@ -7,12 +7,12 @@ [monad {"+" [Monad do]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." template]]]]) + ["[0]" template]]]]) (abstract: .public (IO a) {} diff --git a/stdlib/source/library/lux/control/lazy.lux b/stdlib/source/library/lux/control/lazy.lux index b4a3567d4..e38166d14 100644 --- a/stdlib/source/library/lux/control/lazy.lux +++ b/stdlib/source/library/lux/control/lazy.lux @@ -7,11 +7,11 @@ [monad {"+" [Monad do]}] [equivalence {"+" [Equivalence]}]] [control - ["." io] + ["[0]" io] [parser - ["<.>" code]] + ["<[0]>" code]] [concurrency - ["." atom]]] + ["[0]" atom]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}]] [type @@ -44,7 +44,7 @@ (with_identifiers [g!_] (in (list (` ((~! ..lazy') (function ((~ g!_) (~ g!_)) (~ expression)))))))) -(implementation: .public (equivalence (^open "\.")) +(implementation: .public (equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Lazy a)))) (def: (= left right) diff --git a/stdlib/source/library/lux/control/maybe.lux b/stdlib/source/library/lux/control/maybe.lux index 1131dbe49..036377285 100644 --- a/stdlib/source/library/lux/control/maybe.lux +++ b/stdlib/source/library/lux/control/maybe.lux @@ -6,10 +6,10 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] [apply {"+" [Apply]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]] + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}]] [meta - ["." location]]]]) + ["[0]" location]]]]) ... (type: (Maybe a) ... #.None diff --git a/stdlib/source/library/lux/control/parser.lux b/stdlib/source/library/lux/control/parser.lux index 34a00fa6a..7b7c499aa 100644 --- a/stdlib/source/library/lux/control/parser.lux +++ b/stdlib/source/library/lux/control/parser.lux @@ -7,11 +7,11 @@ [monad {"+" [Monad do]}] [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/control/parser/analysis.lux b/stdlib/source/library/lux/control/parser/analysis.lux index 0744391c2..9bbb6840b 100644 --- a/stdlib/source/library/lux/control/parser/analysis.lux +++ b/stdlib/source/library/lux/control/parser/analysis.lux @@ -4,24 +4,24 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit] - ["." name] - ["." text + ["[0]" bit] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i64] - ["." nat] - ["." int] - ["." rev] - ["." frac]]] + ["[0]" i64] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]] [tool [compiler [arity {"+" [Arity]}] @@ -30,7 +30,7 @@ [language [lux ["/" analysis {"+" [Variant Tuple Environment Analysis]}]]]]]]] - ["." //]) + ["[0]" //]) (def: (remaining_inputs asts) (-> (List Analysis) Text) diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux index 846f952d3..4304bbc02 100644 --- a/stdlib/source/library/lux/control/parser/binary.lux +++ b/stdlib/source/library/lux/control/parser/binary.lux @@ -6,25 +6,25 @@ [hash {"+" [Hash]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data ["/" binary {"+" [Binary]}] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list] - ["." row {"+" [Row]}] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" row {"+" [Row]}] + ["[0]" set {"+" [Set]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] - ["." frac]]]]] - ["." // ("#\." monad)]) + ["[0]" frac]]]]] + ["[0]" // ("[1]\[0]" monad)]) (type: .public Offset Nat) diff --git a/stdlib/source/library/lux/control/parser/cli.lux b/stdlib/source/library/lux/control/parser/cli.lux index 4a7e4149e..c60b80d6a 100644 --- a/stdlib/source/library/lux/control/parser/cli.lux +++ b/stdlib/source/library/lux/control/parser/cli.lux @@ -4,11 +4,11 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]]]] - ["." //]) + ["[0]" //]) (type: .public (Parser a) (//.Parser (List Text) a)) diff --git a/stdlib/source/library/lux/control/parser/code.lux b/stdlib/source/library/lux/control/parser/code.lux index 2b8e7d799..f04dddc6c 100644 --- a/stdlib/source/library/lux/control/parser/code.lux +++ b/stdlib/source/library/lux/control/parser/code.lux @@ -2,24 +2,24 @@ [library [lux {"-" [nat int rev local not]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." bit] - ["." text ("#\." monoid)] - ["." name] + ["[0]" bit] + ["[0]" text ("[1]\[0]" monoid)] + ["[0]" name] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." code ("#\." equivalence)]] + ["[0]" code ("[1]\[0]" equivalence)]] [math [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]]]] - ["." //]) + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]] + ["[0]" //]) (def: (un_paired pairs) (All (_ a) (-> (List [a a]) (List a))) diff --git a/stdlib/source/library/lux/control/parser/environment.lux b/stdlib/source/library/lux/control/parser/environment.lux index ad4d2c3c9..ab577eeb4 100644 --- a/stdlib/source/library/lux/control/parser/environment.lux +++ b/stdlib/source/library/lux/control/parser/environment.lux @@ -2,15 +2,15 @@ [library [lux "*" [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]]]] - ["." //]) + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" //]) (type: .public Property Text) diff --git a/stdlib/source/library/lux/control/parser/json.lux b/stdlib/source/library/lux/control/parser/json.lux index 02b5c406a..114b49f3b 100644 --- a/stdlib/source/library/lux/control/parser/json.lux +++ b/stdlib/source/library/lux/control/parser/json.lux @@ -2,25 +2,25 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit] - ["." text ("#\." equivalence monoid)] + ["[0]" bit] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." functor)] - ["." row] - ["." dictionary {"+" [Dictionary]}]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row] + ["[0]" dictionary {"+" [Dictionary]}]] [format ["/" json {"+" [JSON]}]]] [macro - ["." code]] + ["[0]" code]] [math [number - ["." frac]]]]] - ["." // ("#\." functor)]) + ["[0]" frac]]]]] + ["[0]" // ("[1]\[0]" functor)]) (type: .public (Parser a) (//.Parser (List JSON) a)) diff --git a/stdlib/source/library/lux/control/parser/synthesis.lux b/stdlib/source/library/lux/control/parser/synthesis.lux index 224eee314..a4927b521 100644 --- a/stdlib/source/library/lux/control/parser/synthesis.lux +++ b/stdlib/source/library/lux/control/parser/synthesis.lux @@ -4,18 +4,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit] - ["." name] - ["." text + ["[0]" bit] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]]] [math [number ["n" nat] - ["." i64] - ["." frac]]] + ["[0]" i64] + ["[0]" frac]]] [tool [compiler [reference {"+" []} @@ -25,7 +25,7 @@ [lux [analysis {"+" [Variant Tuple Environment]}] ["/" synthesis {"+" [Synthesis Abstraction]}]]]]]]] - ["." //]) + ["[0]" //]) (exception: .public (cannot_parse {input (List Synthesis)}) (exception.report diff --git a/stdlib/source/library/lux/control/parser/text.lux b/stdlib/source/library/lux/control/parser/text.lux index 2d3e404d8..256d749bc 100644 --- a/stdlib/source/library/lux/control/parser/text.lux +++ b/stdlib/source/library/lux/control/parser/text.lux @@ -4,21 +4,21 @@ [abstract [monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["/" text {"+" [Char]} ("#\." monoid)] - ["." product] + ["/" text {"+" [Char]} ("[1]\[0]" monoid)] + ["[0]" product] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [macro - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number - ["n" nat ("#\." decimal)]]]]] - ["." //]) + ["n" nat ("[1]\[0]" decimal)]]]]] + ["[0]" //]) (type: .public Offset Nat) diff --git a/stdlib/source/library/lux/control/parser/tree.lux b/stdlib/source/library/lux/control/parser/tree.lux index 4b8f9e2a3..7a28812ac 100644 --- a/stdlib/source/library/lux/control/parser/tree.lux +++ b/stdlib/source/library/lux/control/parser/tree.lux @@ -4,13 +4,13 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [collection [tree {"+" [Tree]} - ["." zipper {"+" [Zipper]}]]]]]] - ["." //]) + ["[0]" zipper {"+" [Zipper]}]]]]]] + ["[0]" //]) (type: .public (Parser t a) (//.Parser (Zipper t) a)) diff --git a/stdlib/source/library/lux/control/parser/type.lux b/stdlib/source/library/lux/control/parser/type.lux index 5724fc98a..437574acb 100644 --- a/stdlib/source/library/lux/control/parser/type.lux +++ b/stdlib/source/library/lux/control/parser/type.lux @@ -2,25 +2,25 @@ [library [lux {"-" [function local]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." function]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" function]] [data - ["." text ("#\." monoid) + ["[0]" text ("[1]\[0]" monoid) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." code]] + ["[0]" code]] [math [number - ["n" nat ("#\." decimal)]]] - ["." type ("#\." equivalence) - ["." check]]]] - ["." //]) + ["n" nat ("[1]\[0]" decimal)]]] + ["[0]" type ("[1]\[0]" equivalence) + ["[0]" check]]]] + ["[0]" //]) (template: (|recursion_dummy|) [(#.Primitive "" #.End)]) diff --git a/stdlib/source/library/lux/control/parser/xml.lux b/stdlib/source/library/lux/control/parser/xml.lux index 66b5da36f..55d18cab2 100644 --- a/stdlib/source/library/lux/control/parser/xml.lux +++ b/stdlib/source/library/lux/control/parser/xml.lux @@ -4,18 +4,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]} ("#\." functor)] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}]] [data - ["." name ("#\." equivalence codec)] - ["." text + ["[0]" name ("[1]\[0]" equivalence codec)] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list] - ["." dictionary]] + ["[0]" list] + ["[0]" dictionary]] [format ["/" xml {"+" [Attribute Attrs Tag XML]}]]]]] - ["." //]) + ["[0]" //]) (type: .public (Parser a) (//.Parser [Attrs (List XML)] a)) diff --git a/stdlib/source/library/lux/control/pipe.lux b/stdlib/source/library/lux/control/pipe.lux index f8370f8b1..9c3c5ce36 100644 --- a/stdlib/source/library/lux/control/pipe.lux +++ b/stdlib/source/library/lux/control/pipe.lux @@ -4,16 +4,16 @@ [abstract [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." identity] + ["[0]" identity] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/control/reader.lux b/stdlib/source/library/lux/control/reader.lux index 91439facf..e7c59e57b 100644 --- a/stdlib/source/library/lux/control/reader.lux +++ b/stdlib/source/library/lux/control/reader.lux @@ -3,8 +3,8 @@ [lux {"-" [local]} [abstract [apply {"+" [Apply]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]]]]) + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}]]]]) (type: .public (Reader r a) (-> r a)) diff --git a/stdlib/source/library/lux/control/region.lux b/stdlib/source/library/lux/control/region.lux index 79bf84c90..26dd017e8 100644 --- a/stdlib/source/library/lux/control/region.lux +++ b/stdlib/source/library/lux/control/region.lux @@ -4,16 +4,16 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix)]]]]] + ["[0]" list ("[1]\[0]" mix)]]]]] [// - ["." exception {"+" [Exception exception:]}]]) + ["[0]" exception {"+" [Exception exception:]}]]) (type: (Cleaner r !) (-> r (! (Try Any)))) diff --git a/stdlib/source/library/lux/control/remember.lux b/stdlib/source/library/lux/control/remember.lux index f220af759..a65e9fc2d 100644 --- a/stdlib/source/library/lux/control/remember.lux +++ b/stdlib/source/library/lux/control/remember.lux @@ -4,21 +4,21 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." try] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." functor) + ["[0]" io] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" functor) ["<c>" code {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [time - ["." instant] - ["." date {"+" [Date]} ("#\." order)]] - ["." meta] + ["[0]" instant] + ["[0]" date {"+" [Date]} ("[1]\[0]" order)]] + ["[0]" meta] [macro - ["." code] - ["." template] + ["[0]" code] + ["[0]" template] [syntax {"+" [syntax:]}]]]]) (exception: .public (must_remember {deadline Date} {today Date} {message Text} {focus (Maybe Code)}) diff --git a/stdlib/source/library/lux/control/security/capability.lux b/stdlib/source/library/lux/control/security/capability.lux index 7a05d848e..49b19e07f 100644 --- a/stdlib/source/library/lux/control/security/capability.lux +++ b/stdlib/source/library/lux/control/security/capability.lux @@ -4,25 +4,25 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] + ["[0]" io {"+" [IO]}] ["<>" parser ["<c>" code]] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] - ["." meta] - ["." macro - ["." code] + ["[0]" meta] + ["[0]" macro + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" export] - ["|.|" declaration] - ["|.|" annotations]]]]]) + ["|[0]|" export] + ["|[0]|" declaration] + ["|[0]|" annotations]]]]]) (abstract: .public (Capability brand input output) {} diff --git a/stdlib/source/library/lux/control/thread.lux b/stdlib/source/library/lux/control/thread.lux index 660be7bd1..c583a4709 100644 --- a/stdlib/source/library/lux/control/thread.lux +++ b/stdlib/source/library/lux/control/thread.lux @@ -7,10 +7,10 @@ [apply {"+" [Apply]}] [monad {"+" [Monad do]}]] [control - ["." io {"+" [IO]}]] + ["[0]" io {"+" [IO]}]] [data [collection - ["." array {"+" [Array]}]]] + ["[0]" array {"+" [Array]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/control/try.lux b/stdlib/source/library/lux/control/try.lux index 1d3535ba2..16d58007c 100644 --- a/stdlib/source/library/lux/control/try.lux +++ b/stdlib/source/library/lux/control/try.lux @@ -4,10 +4,10 @@ [abstract [apply {"+" [Apply]}] [equivalence {"+" [Equivalence]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]] + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}]] [meta - ["." location]]]]) + ["[0]" location]]]]) (type: .public (Try a) (Variant @@ -84,7 +84,7 @@ (All (_ ! a) (-> (Monad !) (-> (! a) (! (Try a))))) (\ monad each (\ ..monad in))) -(implementation: .public (equivalence (^open "_\.")) +(implementation: .public (equivalence (^open "_\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Try a)))) (def: (= reference sample) diff --git a/stdlib/source/library/lux/control/writer.lux b/stdlib/source/library/lux/control/writer.lux index 74b0c997b..cabc9268c 100644 --- a/stdlib/source/library/lux/control/writer.lux +++ b/stdlib/source/library/lux/control/writer.lux @@ -5,8 +5,8 @@ [abstract [monoid {"+" [Monoid]}] [apply {"+" [Apply]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]]]]) + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}]]]]) (type: .public (Writer log value) (Record diff --git a/stdlib/source/library/lux/data/binary.lux b/stdlib/source/library/lux/data/binary.lux index 2f56f33aa..de9481bc5 100644 --- a/stdlib/source/library/lux/data/binary.lux +++ b/stdlib/source/library/lux/data/binary.lux @@ -2,25 +2,25 @@ [library [lux {"-" [i64]} ["@" target] - ["." ffi] + ["[0]" ffi] [abstract [monad {"+" [do]}] [equivalence {"+" [Equivalence]}] [monoid {"+" [Monoid]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." array]]] + ["[0]" array]]] [math [number {"+" [hex]} ["n" nat] ["f" frac] - ["." i64]]]]]) + ["[0]" i64]]]]]) (exception: .public (index_out_of_bounds {size Nat} {index Nat}) (exception.report @@ -39,11 +39,11 @@ (ffi.import: java/lang/Object) (ffi.import: java/lang/System - ["#::." + ["[1]::[0]" ("static" arraycopy [java/lang/Object int java/lang/Object int int] "try" void)]) (ffi.import: java/util/Arrays - ["#::." + ["[1]::[0]" ("static" copyOfRange [[byte] int int] [byte]) ("static" equals [[byte] [byte]] boolean)]) @@ -67,11 +67,11 @@ @.js (as_is (ffi.import: ArrayBuffer - ["#::." + ["[1]::[0]" (new [ffi.Number])]) (ffi.import: Uint8Array - ["#::." + ["[1]::[0]" (new [ArrayBuffer]) (length ffi.Number)]) diff --git a/stdlib/source/library/lux/data/bit.lux b/stdlib/source/library/lux/data/bit.lux index b0fd566db..b1926e164 100644 --- a/stdlib/source/library/lux/data/bit.lux +++ b/stdlib/source/library/lux/data/bit.lux @@ -7,7 +7,7 @@ [hash {"+" [Hash]}] [codec {"+" [Codec]}]] [control - ["." function]]]]) + ["[0]" function]]]]) (template [<zero> <one>] [(def: .public <zero> Bit #0) diff --git a/stdlib/source/library/lux/data/collection/array.lux b/stdlib/source/library/lux/data/collection/array.lux index 0574b2fe7..3c04a7d7f 100644 --- a/stdlib/source/library/lux/data/collection/array.lux +++ b/stdlib/source/library/lux/data/collection/array.lux @@ -9,11 +9,11 @@ [mix {"+" [Mix]}] [predicate {"+" [Predicate]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat]]]]]) @@ -314,7 +314,7 @@ #.None (list|-default array))) -(implementation: .public (equivalence (^open ",\.")) +(implementation: .public (equivalence (^open ",\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Array a)))) (def: (= xs ys) diff --git a/stdlib/source/library/lux/data/collection/bits.lux b/stdlib/source/library/lux/data/collection/bits.lux index b218e57bf..8bfe7f2f9 100644 --- a/stdlib/source/library/lux/data/collection/bits.lux +++ b/stdlib/source/library/lux/data/collection/bits.lux @@ -5,14 +5,14 @@ [equivalence {"+" [Equivalence]}]] [control pipe - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." array {"+" [Array]} ("#\." mix)]]] + ["[0]" array {"+" [Array]} ("[1]\[0]" mix)]]] [math [number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) (type: .public Chunk I64) diff --git a/stdlib/source/library/lux/data/collection/dictionary.lux b/stdlib/source/library/lux/data/collection/dictionary.lux index 1418b56d6..3d7e785f3 100644 --- a/stdlib/source/library/lux/data/collection/dictionary.lux +++ b/stdlib/source/library/lux/data/collection/dictionary.lux @@ -6,18 +6,18 @@ [equivalence {"+" [Equivalence]}] [functor {"+" [Functor]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix functor monoid)] - ["." array {"+" [Array]} ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" mix functor monoid)] + ["[0]" array {"+" [Array]} ("[1]\[0]" functor mix)]]] [math - ["." number + ["[0]" number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) ... This implementation of Hash Array Mapped Trie (HAMT) is based on ... Clojure's PersistentHashMap implementation. @@ -687,7 +687,7 @@ (empty key_hash) keys))) -(implementation: .public (equivalence (^open ",\.")) +(implementation: .public (equivalence (^open ",\[0]")) (All (_ k v) (-> (Equivalence v) (Equivalence (Dictionary k v)))) (def: (= reference subject) diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux index a18f5b7ce..8407703a0 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux @@ -4,13 +4,13 @@ [abstract equivalence [monad {"+" [Monad do]}] - ["." order {"+" [Order]}]] + ["[0]" order {"+" [Order]}]] [control - ["." maybe]] + ["[0]" maybe]] [data ["p" product] [collection - ["." list ("#\." monoid mix)]]] + ["[0]" list ("[1]\[0]" monoid mix)]]] [math [number ["n" nat]]]]]) @@ -58,7 +58,7 @@ ... TODO: Must improve it as soon as bug is fixed. (def: .public (value key dict) (All (_ k v) (-> k (Dictionary k v) (Maybe v))) - (let [... (^open "_\.") (value@ #&order dict) + (let [... (^open "_\[0]") (value@ #&order dict) ] (loop [node (value@ #root dict)] (case node @@ -83,7 +83,7 @@ ... TODO: Must improve it as soon as bug is fixed. (def: .public (key? dict key) (All (_ k v) (-> (Dictionary k v) k Bit)) - (let [... (^open "_\.") (value@ #&order dict) + (let [... (^open "_\[0]") (value@ #&order dict) ] (loop [node (value@ #root dict)] (case node @@ -249,7 +249,7 @@ (def: .public (has key value dict) (All (_ k v) (-> k v (Dictionary k v) (Dictionary k v))) - (let [(^open "_\.") (value@ #&order dict) + (let [(^open "_\[0]") (value@ #&order dict) root' (loop [?root (value@ #root dict)] (case ?root #.None @@ -472,7 +472,7 @@ (def: .public (lacks key dict) (All (_ k v) (-> k (Dictionary k v) (Dictionary k v))) - (let [(^open "_\.") (value@ #&order dict) + (let [(^open "_\[0]") (value@ #&order dict) [?root found?] (loop [?root (value@ #root dict)] (case ?root #.None @@ -560,11 +560,11 @@ [values v (value@ #value node')] ) -(implementation: .public (equivalence (^open ",\.")) +(implementation: .public (equivalence (^open ",\[0]")) (All (_ k v) (-> (Equivalence v) (Equivalence (Dictionary k v)))) (def: (= reference sample) - (let [(^open "/\.") (value@ #&order reference)] + (let [(^open "/\[0]") (value@ #&order reference)] (loop [entriesR (entries reference) entriesS (entries sample)] (case [entriesR entriesS] diff --git a/stdlib/source/library/lux/data/collection/dictionary/plist.lux b/stdlib/source/library/lux/data/collection/dictionary/plist.lux index d26859f71..9bd4665df 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/plist.lux @@ -4,10 +4,10 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." text ("#\." equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/list.lux b/stdlib/source/library/lux/data/collection/list.lux index b4aa38cf7..ead69db05 100644 --- a/stdlib/source/library/lux/data/collection/list.lux +++ b/stdlib/source/library/lux/data/collection/list.lux @@ -9,12 +9,12 @@ [hash {"+" [Hash]}] [mix {"+" [Mix]}] [predicate {"+" [Predicate]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}] - ["." enum]] + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum]] [data - ["." bit] - ["." product]] + ["[0]" bit] + ["[0]" product]] [math [number ["n" nat]]]]]) @@ -320,7 +320,7 @@ (#.Item x xs') (#.Item x (composite xs' ys))))) -(open: "." ..monoid) +(open: "[0]" ..monoid) (implementation: .public functor (Functor List) @@ -333,7 +333,7 @@ (#.Item a ma') (#.Item (f a) (each f ma'))))) -(open: "." ..functor) +(open: "[0]" ..functor) (implementation: .public apply (Apply List) @@ -445,7 +445,7 @@ (case tokens (^ (list [_ (#.Nat num_lists)])) (if (n.> 0 num_lists) - (let [(^open ".") ..functor + (let [(^open "[0]") ..functor indices (..indices num_lists) type_vars (: (List Code) (each (|>> nat\encoded identifier$) indices)) zipped_type (` (.All ((~ (identifier$ "0_")) (~+ type_vars)) @@ -485,7 +485,7 @@ (case tokens (^ (list [_ (#.Nat num_lists)])) (if (n.> 0 num_lists) - (let [(^open ".") ..functor + (let [(^open "[0]") ..functor indices (..indices num_lists) g!return_type (identifier$ "0return_type0") g!func (identifier$ "0func0") diff --git a/stdlib/source/library/lux/data/collection/queue.lux b/stdlib/source/library/lux/data/collection/queue.lux index 12bb5b68e..3e3bd9e87 100644 --- a/stdlib/source/library/lux/data/collection/queue.lux +++ b/stdlib/source/library/lux/data/collection/queue.lux @@ -6,7 +6,7 @@ [functor {"+" [Functor]}]] [data [collection - ["." list ("#\." monoid functor)]]] + ["[0]" list ("[1]\[0]" monoid functor)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/queue/priority.lux b/stdlib/source/library/lux/data/collection/queue/priority.lux index 7d609c439..f6fc98d98 100644 --- a/stdlib/source/library/lux/data/collection/queue/priority.lux +++ b/stdlib/source/library/lux/data/collection/queue/priority.lux @@ -5,14 +5,14 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." tree "_" - ["#" finger {"+" [Tree]}]]]] + ["[0]" tree "_" + ["[1]" finger {"+" [Tree]}]]]] [math [number - ["n" nat ("#\." interval)]]] + ["n" nat ("[1]\[0]" interval)]]] [type {"+" [:by_example]} [abstract {"+" [abstract: :abstraction :representation]}]]]]) diff --git a/stdlib/source/library/lux/data/collection/row.lux b/stdlib/source/library/lux/data/collection/row.lux index 1b2b0764d..438e1a408 100644 --- a/stdlib/source/library/lux/data/collection/row.lux +++ b/stdlib/source/library/lux/data/collection/row.lux @@ -14,23 +14,23 @@ [mix {"+" [Mix]}] [predicate {"+" [Predicate]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix functor monoid)] - ["." array {"+" [Array]} ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" mix functor monoid)] + ["[0]" array {"+" [Array]} ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) (type: (Node a) (Variant @@ -386,7 +386,7 @@ (def: (= v1 v2) (and (n.= (value@ #size v1) (value@ #size v2)) - (let [(^open "node\.") (node_equivalence Equivalence<a>)] + (let [(^open "node\[0]") (node_equivalence Equivalence<a>)] (and (node\= (#Base (value@ #tail v1)) (#Base (value@ #tail v2))) (node\= (#Hierarchy (value@ #root v1)) @@ -409,7 +409,7 @@ (Mix Row) (def: (mix f init xs) - (let [(^open ".") node_mix] + (let [(^open "[0]") node_mix] (mix f (mix f init @@ -450,9 +450,9 @@ (def: &functor ..functor) (def: (on fa ff) - (let [(^open ".") ..functor - (^open ".") ..mix - (^open ".") ..monoid + (let [(^open "[0]") ..functor + (^open "[0]") ..mix + (^open "[0]") ..monoid results (each (function (_ f) (each f fa)) ff)] (mix composite identity results)))) @@ -466,8 +466,8 @@ (|>> row)) (def: conjoint - (let [(^open ".") ..mix - (^open ".") ..monoid] + (let [(^open "[0]") ..mix + (^open "[0]") ..monoid] (mix (function (_ post pre) (composite pre post)) identity)))) (def: .public reversed diff --git a/stdlib/source/library/lux/data/collection/sequence.lux b/stdlib/source/library/lux/data/collection/sequence.lux index 35b9a1102..a641721c8 100644 --- a/stdlib/source/library/lux/data/collection/sequence.lux +++ b/stdlib/source/library/lux/data/collection/sequence.lux @@ -7,14 +7,14 @@ [control ["//" continuation {"+" [Cont]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [data - ["." bit] + ["[0]" bit] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/set.lux b/stdlib/source/library/lux/data/collection/set.lux index 32fabd6b7..585ee60eb 100644 --- a/stdlib/source/library/lux/data/collection/set.lux +++ b/stdlib/source/library/lux/data/collection/set.lux @@ -8,12 +8,12 @@ [monoid {"+" [Monoid]}]] [data [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#" dictionary {"+" [Dictionary]}]]) + ["[0]" // "_" + ["[1]" dictionary {"+" [Dictionary]}]]) (type: .public (Set a) (Dictionary a Any)) diff --git a/stdlib/source/library/lux/data/collection/set/multi.lux b/stdlib/source/library/lux/data/collection/set/multi.lux index abc0836c5..f3df37d57 100644 --- a/stdlib/source/library/lux/data/collection/set/multi.lux +++ b/stdlib/source/library/lux/data/collection/set/multi.lux @@ -6,17 +6,17 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [control - ["." function] - ["." maybe]] + ["[0]" function] + ["[0]" maybe]] [math [number ["n" nat]]] [type [abstract {"+" [abstract: :abstraction :representation ^:representation]}]]]] - ["." // + ["[0]" // [// - ["." list ("#\." mix monoid)] - ["." dictionary {"+" [Dictionary]}]]]) + ["[0]" list ("[1]\[0]" mix monoid)] + ["[0]" dictionary {"+" [Dictionary]}]]]) (abstract: .public (Set a) {} diff --git a/stdlib/source/library/lux/data/collection/set/ordered.lux b/stdlib/source/library/lux/data/collection/set/ordered.lux index dc8a825e6..91edd4642 100644 --- a/stdlib/source/library/lux/data/collection/set/ordered.lux +++ b/stdlib/source/library/lux/data/collection/set/ordered.lux @@ -6,7 +6,7 @@ [order {"+" [Order]}]] [data [collection - ["." list ("#\." mix)] + ["[0]" list ("[1]\[0]" mix)] [dictionary ["/" ordered]]]] [type diff --git a/stdlib/source/library/lux/data/collection/tree.lux b/stdlib/source/library/lux/data/collection/tree.lux index 2216a7b11..b1d158c65 100644 --- a/stdlib/source/library/lux/data/collection/tree.lux +++ b/stdlib/source/library/lux/data/collection/tree.lux @@ -8,13 +8,13 @@ [monad {"+" [do]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." list ("#\." monad mix)]]] + ["[0]" list ("[1]\[0]" monad mix)]]] [macro [syntax {"+" [syntax:]}] - ["." code]]]]) + ["[0]" code]]]]) (type: .public (Tree a) (Record diff --git a/stdlib/source/library/lux/data/collection/tree/finger.lux b/stdlib/source/library/lux/data/collection/tree/finger.lux index 40a70ac2d..998ccde41 100644 --- a/stdlib/source/library/lux/data/collection/tree/finger.lux +++ b/stdlib/source/library/lux/data/collection/tree/finger.lux @@ -3,10 +3,10 @@ [lux "*" [abstract [predicate {"+" [Predicate]}] - ["." monoid {"+" [Monoid]}]] + ["[0]" monoid {"+" [Monoid]}]] [data [collection - ["." list ("#\." monoid)]]] + ["[0]" list ("[1]\[0]" monoid)]]] [type [abstract {"+" [abstract: :abstraction :representation]}]]]]) @@ -88,7 +88,7 @@ (All (_ @ t v) (-> (Predicate t) (Tree @ t v) (Maybe v))) (let [[monoid tag root] (:representation tree)] (if (predicate tag) - (let [(^open "tag//.") monoid] + (let [(^open "tag//[0]") monoid] (loop [_tag tag//identity _node root] (case _node diff --git a/stdlib/source/library/lux/data/collection/tree/zipper.lux b/stdlib/source/library/lux/data/collection/tree/zipper.lux index 613e3aeed..36b162843 100644 --- a/stdlib/source/library/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/library/lux/data/collection/tree/zipper.lux @@ -8,14 +8,14 @@ [monad {"+" [do]}] [equivalence {"+" [Equivalence]}]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]]]] - ["." // {"+" [Tree]} ("#\." functor)]) + ["[0]" list ("[1]\[0]" functor monoid)]]]]] + ["[0]" // {"+" [Tree]} ("[1]\[0]" functor)]) (type: (Family Zipper a) (Record diff --git a/stdlib/source/library/lux/data/color.lux b/stdlib/source/library/lux/data/color.lux index 52b4cfac0..82a44b4cb 100644 --- a/stdlib/source/library/lux/data/color.lux +++ b/stdlib/source/library/lux/data/color.lux @@ -4,20 +4,20 @@ [abstract [equivalence {"+" [Equivalence]}] [monoid {"+" [Monoid]}] - ["." hash {"+" [Hash]}]] + ["[0]" hash {"+" [Hash]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [collection - ["." list ("#\." functor)]]] - ["." math + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" math [number ["n" nat] ["f" frac] - ["." int] - ["." rev ("#\." interval)] - ["." i64]]] + ["[0]" int] + ["[0]" rev ("[1]\[0]" interval)] + ["[0]" i64]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/data/color/named.lux b/stdlib/source/library/lux/data/color/named.lux index b2d26139a..822708ccc 100644 --- a/stdlib/source/library/lux/data/color/named.lux +++ b/stdlib/source/library/lux/data/color/named.lux @@ -3,7 +3,7 @@ [lux "*" [math [number {"+" [hex]}]]]] - ["." // {"+" [Color]}]) + ["[0]" // {"+" [Color]}]) (template [<red> <green> <blue> <name>] [(`` (def: .public <name> diff --git a/stdlib/source/library/lux/data/format/binary.lux b/stdlib/source/library/lux/data/format/binary.lux index 71aeb6fc6..3ee903853 100644 --- a/stdlib/source/library/lux/data/format/binary.lux +++ b/stdlib/source/library/lux/data/format/binary.lux @@ -7,26 +7,26 @@ [equivalence {"+" [Equivalence]}]] [control [pipe {"+" [case>]}] - ["." function] - ["." try {"+" [Try]}] - ["<>" parser ("#\." monad) + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["<>" parser ("[1]\[0]" monad) ["/" binary {"+" [Offset Size Parser]}]]] [data - ["." product] - ["." binary {"+" [Binary]}] + ["[0]" product] + ["[0]" binary {"+" [Binary]}] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list] - ["." row {"+" [Row]} ("#\." functor)] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" row {"+" [Row]} ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]}]]] [math [number - ["." i64] + ["[0]" i64] ["n" nat] - ["." frac]]]]]) + ["[0]" frac]]]]]) (def: mask (-> Size (I64 Any)) @@ -185,7 +185,7 @@ value (if (n.= original_count capped_count) value (|> value row.list (list.first capped_count) row.of_list)) - (^open "specification\.") ..monoid + (^open "specification\[0]") ..monoid [size mutation] (|> value (row\each valueW) (\ row.mix mix diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux index 7fd5e28d9..8f0cc2f06 100644 --- a/stdlib/source/library/lux/data/format/css.lux +++ b/stdlib/source/library/lux/data/format/css.lux @@ -2,25 +2,25 @@ [library [lux {"-" [and]} [control - ["." maybe]] + ["[0]" maybe]] [data [number - ["." nat]] - ["." text + ["[0]" nat]] + ["[0]" text ["%" format {"+" [format]}] - ["." encoding {"+" [Encoding]}]] + ["[0]" encoding {"+" [Encoding]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [world [net {"+" [URL]}]]]] - ["." / "_" - ["#." selector {"+" [Selector Combinator]}] - ["#." value {"+" [Value Animation Percentage]}] - ["#." font {"+" [Font]}] - ["#." style {"+" [Style]}] - ["#." query {"+" [Query]}]]) + ["[0]" / "_" + ["[1][0]" selector {"+" [Selector Combinator]}] + ["[1][0]" value {"+" [Value Animation Percentage]}] + ["[1][0]" font {"+" [Font]}] + ["[1][0]" style {"+" [Style]}] + ["[1][0]" query {"+" [Query]}]]) (abstract: .public Common {} Any) (abstract: .public Special {} Any) diff --git a/stdlib/source/library/lux/data/format/css/font.lux b/stdlib/source/library/lux/data/format/css/font.lux index 21f983a86..abfa332d1 100644 --- a/stdlib/source/library/lux/data/format/css/font.lux +++ b/stdlib/source/library/lux/data/format/css/font.lux @@ -6,12 +6,12 @@ [control [parser ["s" code]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}]] [world [net {"+" [URL]}]]]] - ["." // "_" - ["#." value {"+" [Value Font_Stretch Font_Style Font_Weight]}]]) + ["[0]" // "_" + ["[1][0]" value {"+" [Value Font_Stretch Font_Style Font_Weight]}]]) (type: .public Unicode_Range (Record diff --git a/stdlib/source/library/lux/data/format/css/property.lux b/stdlib/source/library/lux/data/format/css/property.lux index 0f0553b77..19b11209c 100644 --- a/stdlib/source/library/lux/data/format/css/property.lux +++ b/stdlib/source/library/lux/data/format/css/property.lux @@ -7,8 +7,8 @@ [type abstract] [macro - ["." template] - ["." code] + ["[0]" template] + ["[0]" code] [syntax {"+" [syntax:]}]]]] [// [value {"+" [All diff --git a/stdlib/source/library/lux/data/format/css/query.lux b/stdlib/source/library/lux/data/format/css/query.lux index e48c1716c..adaed39ab 100644 --- a/stdlib/source/library/lux/data/format/css/query.lux +++ b/stdlib/source/library/lux/data/format/css/query.lux @@ -8,18 +8,18 @@ [text ["%" format {"+" [format]}]]] [macro - ["." template] - ["." code] + ["[0]" template] + ["[0]" code] [syntax {"+" [syntax:]}]] [type abstract]]] - ["." // "_" - ["#." value {"+" [Value Length Count Resolution Ratio - Orientation Scan Boolean Update - Block_Overflow Inline_Overflow - Display_Mode Color_Gamut Inverted_Colors - Pointer Hover - Light Scripting Motion Color_Scheme]}]]) + ["[0]" // "_" + ["[1][0]" value {"+" [Value Length Count Resolution Ratio + Orientation Scan Boolean Update + Block_Overflow Inline_Overflow + Display_Mode Color_Gamut Inverted_Colors + Pointer Hover + Light Scripting Motion Color_Scheme]}]]) (syntax: (text_identifier [identifier s.text]) (in (list (code.local_identifier (text.replaced "-" "_" identifier))))) diff --git a/stdlib/source/library/lux/data/format/css/selector.lux b/stdlib/source/library/lux/data/format/css/selector.lux index f73ddcd9c..c2742f93a 100644 --- a/stdlib/source/library/lux/data/format/css/selector.lux +++ b/stdlib/source/library/lux/data/format/css/selector.lux @@ -2,15 +2,15 @@ [library [lux {"-" [or and for same? not]} [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [number ["i" int]]] [type abstract] [macro - ["." template]] - ["." locale {"+" [Locale]}]]]) + ["[0]" template]] + ["[0]" locale {"+" [Locale]}]]]) (type: .public Label Text) diff --git a/stdlib/source/library/lux/data/format/css/style.lux b/stdlib/source/library/lux/data/format/css/style.lux index fa13ff2e1..8fe761893 100644 --- a/stdlib/source/library/lux/data/format/css/style.lux +++ b/stdlib/source/library/lux/data/format/css/style.lux @@ -6,9 +6,9 @@ ["%" format {"+" [format]}]]] [type abstract]]] - ["." // "_" - ["#." value {"+" [Value]}] - ["#." property {"+" [Property]}]]) + ["[0]" // "_" + ["[1][0]" value {"+" [Value]}] + ["[1][0]" property {"+" [Property]}]]) (abstract: .public Style {#.doc "The style associated with a CSS selector."} diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux index 037bec265..9569c445b 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/data/format/css/value.lux @@ -2,26 +2,26 @@ [library [lux {"-" [All Cursor and static false true]} [control - ["." maybe] + ["[0]" maybe] [parser ["s" code]]] [data - ["." color] - ["." product] + ["[0]" color] + ["[0]" product] [number ["n" nat] ["i" int] ["r" rev] ["f" frac]] - ["." text + ["[0]" text ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro - ["." template] - ["." code] + ["[0]" template] + ["[0]" code] [syntax {"+" [syntax:]}]] [world [net {"+" [URL]}]]]] diff --git a/stdlib/source/library/lux/data/format/html.lux b/stdlib/source/library/lux/data/format/html.lux index c58187017..6b662a38d 100644 --- a/stdlib/source/library/lux/data/format/html.lux +++ b/stdlib/source/library/lux/data/format/html.lux @@ -2,27 +2,27 @@ [library [lux {"-" [Meta Source comment and]} [control - ["." function] - ["." maybe ("#\." functor)]] + ["[0]" function] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [type abstract] [host - ["." js]] + ["[0]" js]] [macro - ["." template]] + ["[0]" template]] [world [net {"+" [URL]}]]]] [// [css - ["." selector] - ["." style {"+" [Style]}]] - ["." xml {"+" [XML]}]]) + ["[0]" selector] + ["[0]" style {"+" [Style]}]] + ["[0]" xml {"+" [XML]}]]) (type: .public Tag selector.Tag) (type: .public ID selector.ID) diff --git a/stdlib/source/library/lux/data/format/json.lux b/stdlib/source/library/lux/data/format/json.lux index 5a261ecde..a7f22c7c0 100644 --- a/stdlib/source/library/lux/data/format/json.lux +++ b/stdlib/source/library/lux/data/format/json.lux @@ -1,34 +1,34 @@ (.module: [library [lux "*" - ["." meta {"+" [monad]}] + ["[0]" meta {"+" [monad]}] [abstract [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] [predicate {"+" [Predicate]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe - ["." maybe] - ["." try {"+" [Try]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." bit] - ["." product] - ["." text ("#\." equivalence monoid)] + ["[0]" bit] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." mix functor)] - ["." row {"+" [Row row]} ("#\." monad)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" row {"+" [Row row]} ("[1]\[0]" monad)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] - ["f" frac ("#\." decimal)]]]]]) + ["f" frac ("[1]\[0]" decimal)]]]]]) (template [<name> <type>] [(type: .public <name> @@ -68,7 +68,7 @@ (|>> (dictionary.of_list text.hash) #..Object)) (syntax: .public (json [token <code>.any]) - (let [(^open ".") ..monad + (let [(^open "[0]") ..monad wrapper (function (_ x) (` (..json (~ x))))] (case token (^template [<ast_tag> <ctor> <json_tag>] diff --git a/stdlib/source/library/lux/data/format/markdown.lux b/stdlib/source/library/lux/data/format/markdown.lux index c2dd1778e..da6a5d7c6 100644 --- a/stdlib/source/library/lux/data/format/markdown.lux +++ b/stdlib/source/library/lux/data/format/markdown.lux @@ -2,10 +2,10 @@ [library [lux {"-" [and]} [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [world diff --git a/stdlib/source/library/lux/data/format/tar.lux b/stdlib/source/library/lux/data/format/tar.lux index cbe8c38ea..bb8228146 100644 --- a/stdlib/source/library/lux/data/format/tar.lux +++ b/stdlib/source/library/lux/data/format/tar.lux @@ -5,31 +5,31 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data - ["." product] - ["." binary {"+" [Binary]}] - ["." text {"+" [Char]} + ["[0]" product] + ["[0]" binary {"+" [Binary]}] + ["[0]" text {"+" [Char]} ["%" format {"+" [format]}] [encoding - ["." utf8]]] - ["." format "_" - ["#" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]" utf8]]] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." list ("#\." mix)] - ["." row {"+" [Row]} ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)]]] [math - ["." number + ["[0]" number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [time - ["." instant {"+" [Instant]}] - ["." duration]] + ["[0]" instant {"+" [Instant]}] + ["[0]" duration]] [world - ["." file]] + ["[0]" file]] [type abstract]]]) diff --git a/stdlib/source/library/lux/data/format/xml.lux b/stdlib/source/library/lux/data/format/xml.lux index 1cb7ecce4..5131090ec 100644 --- a/stdlib/source/library/lux/data/format/xml.lux +++ b/stdlib/source/library/lux/data/format/xml.lux @@ -7,19 +7,19 @@ [codec {"+" [Codec]}]] [control [try {"+" [Try]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}]]] [data - ["." product] - ["." name ("#\." equivalence codec)] - ["." text ("#\." equivalence monoid)] + ["[0]" product] + ["[0]" name ("[1]\[0]" equivalence codec)] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat] - ["." int]]]]]) + ["[0]" int]]]]]) (type: .public Tag Name) diff --git a/stdlib/source/library/lux/data/identity.lux b/stdlib/source/library/lux/data/identity.lux index 68af3d52a..f37f94b99 100644 --- a/stdlib/source/library/lux/data/identity.lux +++ b/stdlib/source/library/lux/data/identity.lux @@ -7,7 +7,7 @@ [monad {"+" [Monad]}] [comonad {"+" [CoMonad]}]] [control - ["." function]]]]) + ["[0]" function]]]]) (type: .public (Identity a) a) diff --git a/stdlib/source/library/lux/data/name.lux b/stdlib/source/library/lux/data/name.lux index 7235c0a5c..64d1f19ff 100644 --- a/stdlib/source/library/lux/data/name.lux +++ b/stdlib/source/library/lux/data/name.lux @@ -7,8 +7,8 @@ [order {"+" [Order]}] [codec {"+" [Codec]}]] [data - ["." text ("#\." equivalence monoid)] - ["." product]]]]) + ["[0]" text ("[1]\[0]" equivalence monoid)] + ["[0]" product]]]]) ... (type: Name ... [Text Text]) diff --git a/stdlib/source/library/lux/data/text.lux b/stdlib/source/library/lux/data/text.lux index e553d69b1..aadcb9dbe 100644 --- a/stdlib/source/library/lux/data/text.lux +++ b/stdlib/source/library/lux/data/text.lux @@ -10,14 +10,14 @@ [monad {"+" [do]}] [codec {"+" [Codec]}]] [control - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) (type: .public Char Nat) @@ -282,7 +282,7 @@ (def: .public together (-> (List Text) Text) - (let [(^open ".") ..monoid] + (let [(^open "[0]") ..monoid] (|>> list.reversed (list\mix composite identity)))) diff --git a/stdlib/source/library/lux/data/text/buffer.lux b/stdlib/source/library/lux/data/text/buffer.lux index a9c3c7a41..828a4772e 100644 --- a/stdlib/source/library/lux/data/text/buffer.lux +++ b/stdlib/source/library/lux/data/text/buffer.lux @@ -2,42 +2,42 @@ [library [lux "*" ["@" target] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [control - ["." function]] + ["[0]" function]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." array] - ["." row {"+" [Row]} ("#\." mix)]]] + ["[0]" array] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)]]] [math [number ["n" nat]]] [type abstract]]] - ["." //]) + ["[0]" //]) (with_expansions [<jvm> (as_is (import: java/lang/CharSequence) (import: java/lang/Appendable - ["#::." + ["[1]::[0]" (append [java/lang/CharSequence] java/lang/Appendable)]) (import: java/lang/String - ["#::." + ["[1]::[0]" (new [int]) (toString [] java/lang/String)]) (import: java/lang/StringBuilder - ["#::." + ["[1]::[0]" (new [int]) (toString [] java/lang/String)]))] (`` (for {@.old (as_is <jvm>) @.jvm (as_is <jvm>) @.js (as_is (import: (JS_Array a) - ["#::." + ["[1]::[0]" (push [a] a) (join [Text] Text)])) @.lua (as_is (import: (table/concat [(array.Array Text) Text] Text)) diff --git a/stdlib/source/library/lux/data/text/encoding.lux b/stdlib/source/library/lux/data/text/encoding.lux index 3e139fde1..952c285f0 100644 --- a/stdlib/source/library/lux/data/text/encoding.lux +++ b/stdlib/source/library/lux/data/text/encoding.lux @@ -2,7 +2,7 @@ [library [lux "*" [macro - ["." template]] + ["[0]" template]] [type abstract]]]) diff --git a/stdlib/source/library/lux/data/text/encoding/utf8.lux b/stdlib/source/library/lux/data/text/encoding/utf8.lux index f95ce62c3..19867bae4 100644 --- a/stdlib/source/library/lux/data/text/encoding/utf8.lux +++ b/stdlib/source/library/lux/data/text/encoding/utf8.lux @@ -2,17 +2,17 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." binary {"+" [Binary]}]]]] - ["." //]) + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" //]) (with_expansions [<jvm> (as_is (ffi.import: java/lang/String - ["#::." + ["[1]::[0]" (new [[byte] java/lang/String]) (getBytes [java/lang/String] [byte])]))] (for {@.old (as_is <jvm>) @@ -23,31 +23,31 @@ ... On Node (ffi.import: Buffer - ["#::." + ["[1]::[0]" ("static" from "as" from|encoded [ffi.String ffi.String] Buffer) ("static" from "as" from|decoded [Uint8Array] Buffer) (toString [ffi.String] ffi.String)]) ... On the browser (ffi.import: TextEncoder - ["#::." + ["[1]::[0]" (new [ffi.String]) (encode [ffi.String] Uint8Array)]) (ffi.import: TextDecoder - ["#::." + ["[1]::[0]" (new [ffi.String]) (decode [Uint8Array] ffi.String)])) @.ruby (as_is (ffi.import: String "as" RubyString - ["#::." + ["[1]::[0]" (encode [Text] RubyString) (force_encoding [Text] Text) (bytes [] Binary)]) (ffi.import: Array "as" RubyArray - ["#::." + ["[1]::[0]" (pack [Text] RubyString)])) @.php diff --git a/stdlib/source/library/lux/data/text/escape.lux b/stdlib/source/library/lux/data/text/escape.lux index 2dcbbbece..de20d1ee1 100644 --- a/stdlib/source/library/lux/data/text/escape.lux +++ b/stdlib/source/library/lux/data/text/escape.lux @@ -1,22 +1,22 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [math [number {"+" [hex]} ["n" nat]]] [macro [syntax {"+" [syntax:]}] - ["." code]]]] - ["." // {"+" [Char]} + ["[0]" code]]]] + ["[0]" // {"+" [Char]} ["%" format {"+" [format]}]]) (def: sigil "\") diff --git a/stdlib/source/library/lux/data/text/format.lux b/stdlib/source/library/lux/data/text/format.lux index d79aed559..759ccb847 100644 --- a/stdlib/source/library/lux/data/text/format.lux +++ b/stdlib/source/library/lux/data/text/format.lux @@ -4,40 +4,40 @@ [abstract [monad {"+" [do]}] [functor - ["." contravariant]]] + ["[0]" contravariant]]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." bit] - ["." name] - ["." text] + ["[0]" bit] + ["[0]" name] + ["[0]" text] [format - ["." xml] - ["." json]] + ["[0]" xml] + ["[0]" json]] [collection - ["." list ("#\." monad)]]] - ["." time - ["." instant] - ["." duration] - ["." date] - ["." day] - ["." month]] + ["[0]" list ("[1]\[0]" monad)]]] + ["[0]" time + ["[0]" instant] + ["[0]" duration] + ["[0]" date] + ["[0]" day] + ["[0]" month]] [math - ["." modular] + ["[0]" modular] [number - ["." nat] - ["." int] - ["." rev] - ["." frac] - ["." ratio]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac] + ["[0]" ratio]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [meta - ["." location]] - ["." type]]]) + ["[0]" location]] + ["[0]" type]]]) (type: .public (Format a) (-> a Text)) diff --git a/stdlib/source/library/lux/data/text/regex.lux b/stdlib/source/library/lux/data/text/regex.lux index 5fa4e399d..714a84445 100644 --- a/stdlib/source/library/lux/data/text/regex.lux +++ b/stdlib/source/library/lux/data/text/regex.lux @@ -1,27 +1,27 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract monad] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix monad)]]] + ["[0]" list ("[1]\[0]" mix monad)]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["n" nat ("#\." decimal)]]]]] - ["." // + ["n" nat ("[1]\[0]" decimal)]]]]] + ["[0]" // ["%" format {"+" [format]}]]) (def: regex_char^ diff --git a/stdlib/source/library/lux/data/text/unicode/block.lux b/stdlib/source/library/lux/data/text/unicode/block.lux index f001fe99b..7d0bfca33 100644 --- a/stdlib/source/library/lux/data/text/unicode/block.lux +++ b/stdlib/source/library/lux/data/text/unicode/block.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] [monoid {"+" [Monoid]}] - ["." interval {"+" [Interval]}]] + ["[0]" interval {"+" [Interval]}]] [math [number {"+" [hex]} - ["n" nat ("#\." interval)] - ["." i64]]] + ["n" nat ("[1]\[0]" interval)] + ["[0]" i64]]] [type abstract]]] [/// {"+" [Char]}]) diff --git a/stdlib/source/library/lux/data/text/unicode/set.lux b/stdlib/source/library/lux/data/text/unicode/set.lux index fe2f5d6fe..bab5bf9ae 100644 --- a/stdlib/source/library/lux/data/text/unicode/set.lux +++ b/stdlib/source/library/lux/data/text/unicode/set.lux @@ -5,16 +5,16 @@ [equivalence {"+" [Equivalence]}]] [data [collection - ["." list ("#\." mix functor)] - ["." set ("#\." equivalence)] - ["." tree "_" - ["#" finger {"+" [Tree]}]]]] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" set ("[1]\[0]" equivalence)] + ["[0]" tree "_" + ["[1]" finger {"+" [Tree]}]]]] [type {"+" [:by_example]} abstract]]] - ["." / "_" - ["/#" // "_" + ["[0]" / "_" + ["/[1]" // "_" [// {"+" [Char]}] - ["#." block {"+" [Block]}]]]) + ["[1][0]" block {"+" [Block]}]]]) (def: builder (tree.builder //block.monoid)) diff --git a/stdlib/source/library/lux/data/trace.lux b/stdlib/source/library/lux/data/trace.lux index 9d5698bbc..156497e43 100644 --- a/stdlib/source/library/lux/data/trace.lux +++ b/stdlib/source/library/lux/data/trace.lux @@ -2,7 +2,7 @@ [library [lux "*" [abstract - ["." monoid {"+" [Monoid]}] + ["[0]" monoid {"+" [Monoid]}] [functor {"+" [Functor]}] comonad] function]]) diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux index ef3bcdf57..ffda8f9fe 100644 --- a/stdlib/source/library/lux/debug.lux +++ b/stdlib/source/library/lux/debug.lux @@ -2,33 +2,33 @@ [library [lux {"-" [type private]} ["@" target] - ["." type] - ["." ffi {"+" [import:]}] - ["." meta] + ["[0]" type] + ["[0]" ffi {"+" [import:]}] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [new>]}] - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" type {"+" [Parser]}] - ["<.>" code]]] + ["<[0]>" type {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [Format]}]] [format [xml {"+" [XML]}] - ["." json]] + ["[0]" json]] [collection - ["." array] - ["." list ("#\." functor)] - ["." dictionary]]] + ["[0]" array] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary]]] [macro - ["." template] - ["." syntax {"+" [syntax:]}] - ["." code]] + ["[0]" template] + ["[0]" syntax {"+" [syntax:]}] + ["[0]" code]] [math [number [ratio {"+" [Ratio]}] @@ -44,25 +44,25 @@ (with_expansions [<jvm> (as_is (import: java/lang/String) (import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getCanonicalName [] java/lang/String)]) (import: java/lang/Object - ["#::." + ["[1]::[0]" (new []) (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] long)]) (import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] int)]) (import: java/lang/Number - ["#::." + ["[1]::[0]" (intValue [] int) (longValue [] long) (doubleValue [] double)]))] @@ -71,10 +71,10 @@ @.js (as_is (import: JSON - ["#::." + ["[1]::[0]" ("static" stringify [.Any] ffi.String)]) (import: Array - ["#::." + ["[1]::[0]" ("static" isArray [.Any] ffi.Boolean)])) @.python @@ -89,14 +89,14 @@ (import: (tostring [.Any] ffi.String)) (import: math - ["#::." + ["[1]::[0]" ("static" type [.Any] "?" ffi.String)])) @.ruby (as_is (import: Class) (import: Object - ["#::." + ["[1]::[0]" (class [] Class) (to_s [] ffi.String)])) diff --git a/stdlib/source/library/lux/documentation.lux b/stdlib/source/library/lux/documentation.lux index 2985309ae..64df69b6d 100644 --- a/stdlib/source/library/lux/documentation.lux +++ b/stdlib/source/library/lux/documentation.lux @@ -1,30 +1,30 @@ (.module: [library [lux {"-" [Definition Module type]} - ["." meta] - ["." type ("#\." equivalence)] + ["[0]" meta] + ["[0]" type ("[1]\[0]" equivalence)] [abstract [monad {"+" [do]}] - ["." enum]] + ["[0]" enum]] [control - ["." maybe ("#\." functor)] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text {"+" [\n]} ("#\." order) + ["[0]" product] + ["[0]" text {"+" [\n]} ("[1]\[0]" order) ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad mix monoid)] - ["." set {"+" [Set]}] - ["." sequence {"+" [Sequence]}]] + ["[0]" list ("[1]\[0]" monad mix monoid)] + ["[0]" set {"+" [Set]}] + ["[0]" sequence {"+" [Sequence]}]] [format ["md" markdown {"+" [Markdown Block]}]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number ["n" nat]]] @@ -32,7 +32,7 @@ [compiler [language [lux - ["." syntax]]]]]]]) + ["[0]" syntax]]]]]]]) (template: (|recursion_dummy|) [(#.Primitive "" #.End)]) diff --git a/stdlib/source/library/lux/extension.lux b/stdlib/source/library/lux/extension.lux index e72731be4..885c32fbc 100644 --- a/stdlib/source/library/lux/extension.lux +++ b/stdlib/source/library/lux/extension.lux @@ -2,22 +2,22 @@ [library [lux "*" [abstract - ["." monad]] + ["[0]" monad]] [control - ["<>" parser ("#\." monad) + ["<>" parser ("[1]\[0]" monad) ["<c>" code {"+" [Parser]}] ["<a>" analysis] ["<s>" synthesis]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro {"+" [with_identifiers]} - ["." code] + ["[0]" code] [syntax {"+" [syntax:]}]] [tool [compiler - ["." phase]]]]]) + ["[0]" phase]]]]]) (type: Declaration (Record diff --git a/stdlib/source/library/lux/ffi.js.lux b/stdlib/source/library/lux/ffi.js.lux index c93a0ab0d..49cd0067a 100644 --- a/stdlib/source/library/lux/ffi.js.lux +++ b/stdlib/source/library/lux/ffi.js.lux @@ -1,26 +1,26 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -248,7 +248,7 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" class_name) + (text.replaced "[1]" class_name) (text.replaced "." member_name) code.local_identifier))) class_parameters (list\each code.local_identifier class_parameters) diff --git a/stdlib/source/library/lux/ffi.jvm.lux b/stdlib/source/library/lux/ffi.jvm.lux index e31607e0b..be7835ad0 100644 --- a/stdlib/source/library/lux/ffi.jvm.lux +++ b/stdlib/source/library/lux/ffi.jvm.lux @@ -1,43 +1,43 @@ (.module: [library - ["." lux {"-" [Type type int char :as]} - ["#_." type ("#\." equivalence)] + ["[0]" lux {"-" [Type type int char :as]} + ["[1]_[0]" type ("[1]\[0]" equivalence)] [abstract - ["." monad {"+" [Monad do]}] - ["." enum]] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum]] [control - ["." function] - ["." io] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [Exception exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" function] + ["[0]" io] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [Exception exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array] - ["." list ("#\." monad mix monoid)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" array] + ["[0]" list ("[1]\[0]" monad mix monoid)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]] - ["." meta - ["." annotation]] + ["[0]" code] + ["[0]" template]] + ["[0]" meta + ["[0]" annotation]] [target [jvm [encoding - ["." name {"+" [External]}]] - ["." type {"+" [Type Argument Typed]} - ["." category {"+" [Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["." box] - ["." descriptor] - ["." signature] - ["." reflection] - ["." parser]]]]]]) + ["[0]" name {"+" [External]}]] + ["[0]" type {"+" [Type Argument Typed]} + ["[0]" category {"+" [Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration]}] + ["[0]" box] + ["[0]" descriptor] + ["[0]" signature] + ["[0]" reflection] + ["[0]" parser]]]]]]) (def: internal (-> External Text) @@ -536,7 +536,7 @@ (def: privacy_modifier^ (Parser Privacy) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "public")) (<code>.this! (' "private")) @@ -545,7 +545,7 @@ (def: inheritance_modifier^ (Parser Inheritance) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "final")) (<code>.this! (' "abstract")) @@ -1484,8 +1484,8 @@ (def: (import_name format class member) (-> Text Text Text Text) (|> format - (text.replaced "#" class) - (text.replaced "." member))) + (text.replaced "[1]" class) + (text.replaced "[0]" member))) (def: syntax_inputs (-> (List Code) (List Code)) @@ -1592,7 +1592,7 @@ (#FieldAccessDecl fad) (do meta.monad - [.let [(^open ".") fad + [.let [(^open "[0]") fad getter_name (code.identifier ["" (..import_name import_format method_prefix import_field_name)]) setter_name (code.identifier ["" (..import_name import_format method_prefix (format import_field_name "!"))])] getter_interop (with_identifiers [g!obj] diff --git a/stdlib/source/library/lux/ffi.lua.lux b/stdlib/source/library/lux/ffi.lua.lux index 8a8abbe14..4144c573f 100644 --- a/stdlib/source/library/lux/ffi.lua.lux +++ b/stdlib/source/library/lux/ffi.lua.lux @@ -2,26 +2,26 @@ [library [lux "*" ["@" target] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -228,8 +228,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" class) - (text.replaced "." member_name) + (text.replaced "[1]" class) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier class) real_class (text.replaced "/" "." class) diff --git a/stdlib/source/library/lux/ffi.old.lux b/stdlib/source/library/lux/ffi.old.lux index 04078189d..ea8b13a7c 100644 --- a/stdlib/source/library/lux/ffi.old.lux +++ b/stdlib/source/library/lux/ffi.old.lux @@ -1,31 +1,31 @@ (.module: [library [lux {"-" [type]} - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [abstract - ["." monad {"+" [Monad do]}] - ["." enum]] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum]] [control - ["." function] - ["." io] - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" function] + ["[0]" io] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." bit ("#\." codec)] - ["." text ("#\." equivalence monoid) + ["[0]" product] + ["[0]" bit ("[1]\[0]" codec)] + ["[0]" text ("[1]\[0]" equivalence monoid) ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." monad mix monoid)]]] - ["." macro {"+" [with_identifiers]} + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" monad mix monoid)]]] + ["[0]" macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]] - ["." meta - ["." annotation]]]]) + ["[0]" code] + ["[0]" template]] + ["[0]" meta + ["[0]" annotation]]]]) (template [<name> <op> <from> <to>] [(def: .public (<name> value) @@ -528,7 +528,7 @@ ... Parsers (def: privacy_modifier^ (Parser Privacy) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "public")) (<code>.this! (' "private")) @@ -537,7 +537,7 @@ (def: inheritance_modifier^ (Parser Inheritance) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "final")) (<code>.this! (' "abstract")) @@ -1015,7 +1015,7 @@ (-> Type_Parameter JVM_Code) (format "(" name " " (spaced (list\each generic_type$ bounds)) ")")) -(def: (class_decl$ (^open ".")) +(def: (class_decl$ (^open "[0]")) (-> Class_Declaration JVM_Code) (format "(" (safe class_name) " " (spaced (list\each type_param$ class_params)) ")")) @@ -1425,8 +1425,8 @@ (def: (import_name format class member) (-> Text Text Text Text) (|> format - (text.replaced "#" class) - (text.replaced "." member))) + (text.replaced "[1]" class) + (text.replaced "[0]" member))) (def: syntax_inputs (-> (List Code) (List Code)) @@ -1511,7 +1511,7 @@ (#FieldAccessDecl fad) (do meta.monad - [.let [(^open ".") fad + [.let [(^open "[0]") fad base_gtype (class_type import_field_mode type_params import_field_type) classC (class_decl_type$ class) typeC (if import_field_maybe? diff --git a/stdlib/source/library/lux/ffi.php.lux b/stdlib/source/library/lux/ffi.php.lux index 668ff816d..245c56391 100644 --- a/stdlib/source/library/lux/ffi.php.lux +++ b/stdlib/source/library/lux/ffi.php.lux @@ -1,27 +1,27 @@ (.module: [library [lux {"-" [Alias]} - ["." meta] ["@" target] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} Any) @@ -244,8 +244,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" (maybe.else class alias)) - (text.replaced "." member_name) + (text.replaced "[1]" (maybe.else class alias)) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier (maybe.else class alias)) class_import (` ("php constant" (~ (code.text class))))] diff --git a/stdlib/source/library/lux/ffi.py.lux b/stdlib/source/library/lux/ffi.py.lux index 9a4a20ff3..b6f7eced4 100644 --- a/stdlib/source/library/lux/ffi.py.lux +++ b/stdlib/source/library/lux/ffi.py.lux @@ -1,27 +1,27 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] ["@" target] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] + ["[0]" io] + ["[0]" maybe] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -221,7 +221,7 @@ (syntax: .public (import: [import ..import]) {#.doc (example "Easily import types, methods, functions and constants." (import: os - ["#::." + ["[1]::[0]" ("static" F_OK ..Integer) ("static" R_OK ..Integer) ("static" W_OK ..Integer) @@ -235,7 +235,7 @@ ("static" listdir [..String] "io" "try" (Array ..String))]) (import: os/path - ["#::." + ["[1]::[0]" ("static" isfile [..String] "io" "try" ..Boolean) ("static" isdir [..String] "io" "try" ..Boolean) ("static" sep ..String) @@ -248,8 +248,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" class) - (text.replaced "." member_name) + (text.replaced "[1]" class) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier class) real_class (text.replaced "/" "." class) diff --git a/stdlib/source/library/lux/ffi.rb.lux b/stdlib/source/library/lux/ffi.rb.lux index 4781ec987..54900494b 100644 --- a/stdlib/source/library/lux/ffi.rb.lux +++ b/stdlib/source/library/lux/ffi.rb.lux @@ -2,26 +2,26 @@ [library [lux {"-" [Alias]} ["@" target] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -239,8 +239,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" (maybe.else class alias)) - (text.replaced "." member_name) + (text.replaced "[1]" (maybe.else class alias)) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier (maybe.else class alias)) module_import (: (List Code) diff --git a/stdlib/source/library/lux/ffi.scm.lux b/stdlib/source/library/lux/ffi.scm.lux index 6e861cb86..f4f0a0cda 100644 --- a/stdlib/source/library/lux/ffi.scm.lux +++ b/stdlib/source/library/lux/ffi.scm.lux @@ -2,26 +2,26 @@ [library [lux {"-" [Alias]} ["@" target] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} Any) diff --git a/stdlib/source/library/lux/locale.lux b/stdlib/source/library/lux/locale.lux index 53b363c45..5b855793b 100644 --- a/stdlib/source/library/lux/locale.lux +++ b/stdlib/source/library/lux/locale.lux @@ -3,18 +3,18 @@ [lux "*" [abstract [equivalence {"+" [Equivalence]}] - ["." hash {"+" [Hash]}]] + ["[0]" hash {"+" [Hash]}]] [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}] - ["." encoding {"+" [Encoding]}]]] + ["[0]" encoding {"+" [Encoding]}]]] [type abstract]]] [/ - ["." language {"+" [Language]}] - ["." territory {"+" [Territory]}]]) + ["[0]" language {"+" [Language]}] + ["[0]" territory {"+" [Territory]}]]) (abstract: .public Locale {} diff --git a/stdlib/source/library/lux/locale/language.lux b/stdlib/source/library/lux/locale/language.lux index 38da0fd18..e3a48b904 100644 --- a/stdlib/source/library/lux/locale/language.lux +++ b/stdlib/source/library/lux/locale/language.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." text]] + ["[0]" text]] [type abstract] [macro - ["." template]]]]) + ["[0]" template]]]]) ... https://en.wikipedia.org/wiki/List_of_ISO_639-2_codes (abstract: .public Language diff --git a/stdlib/source/library/lux/locale/territory.lux b/stdlib/source/library/lux/locale/territory.lux index 9a30ff70d..834828075 100644 --- a/stdlib/source/library/lux/locale/territory.lux +++ b/stdlib/source/library/lux/locale/territory.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." text]] + ["[0]" text]] [type abstract] [macro - ["." template]]]]) + ["[0]" template]]]]) ... https://en.wikipedia.org/wiki/ISO_3166-1 (abstract: .public Territory diff --git a/stdlib/source/library/lux/macro.lux b/stdlib/source/library/lux/macro.lux index bbbe8765b..db6a7427c 100644 --- a/stdlib/source/library/lux/macro.lux +++ b/stdlib/source/library/lux/macro.lux @@ -2,21 +2,21 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." text ("#\." monoid)] - ["." name ("#\." codec)] + ["[0]" text ("[1]\[0]" monoid)] + ["[0]" name ("[1]\[0]" codec)] [collection - ["." list ("#\." monoid monad)]]] + ["[0]" list ("[1]\[0]" monoid monad)]]] [macro - ["." code]] + ["[0]" code]] [math [number - ["." nat] - ["." int]]]]] - ["." // "_" - ["#" meta - ["." location]]]) + ["[0]" nat] + ["[0]" int]]]]] + ["[0]" // "_" + ["[1]" meta + ["[0]" location]]]) (def: .public (single_expansion syntax) (-> Code (Meta (List Code))) diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index fb4b6498e..f266c5642 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -4,20 +4,20 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." bit] - ["." name] - ["." text ("#\." monoid equivalence)] + ["[0]" product] + ["[0]" bit] + ["[0]" name] + ["[0]" text ("[1]\[0]" monoid equivalence)] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]] [meta - ["." location]]]]) + ["[0]" location]]]]) ... (type: (Code' w) ... (#.Bit Bit) diff --git a/stdlib/source/library/lux/macro/local.lux b/stdlib/source/library/lux/macro/local.lux index c4e134336..683926d3f 100644 --- a/stdlib/source/library/lux/macro/local.lux +++ b/stdlib/source/library/lux/macro/local.lux @@ -1,21 +1,21 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list ("#\." functor)] + ["[0]" list ("[1]\[0]" functor)] [dictionary - ["." plist {"+" [PList]}]]]]]] - ["." // - ["#." code]]) + ["[0]" plist {"+" [PList]}]]]]]] + ["[0]" // + ["[1][0]" code]]) (exception: .public (unknown_module {module Text}) (exception.report diff --git a/stdlib/source/library/lux/macro/syntax.lux b/stdlib/source/library/lux/macro/syntax.lux index ca06801ea..8d06987e0 100644 --- a/stdlib/source/library/lux/macro/syntax.lux +++ b/stdlib/source/library/lux/macro/syntax.lux @@ -1,27 +1,27 @@ (.module: [library [lux "*" - ["." macro {"+" [with_identifiers]}] - ["." meta] + ["[0]" macro {"+" [with_identifiers]}] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] + ["[0]" maybe] + ["[0]" try] ["<>" parser ["</>" code {"+" [Parser]}]]] [data - ["." text ("#\." monoid)] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]] [// - ["." code]]) + ["[0]" code]]) (def: (self_documenting binding parser) (All (_ a) (-> Code (Parser a) (Parser a))) diff --git a/stdlib/source/library/lux/macro/syntax/annotations.lux b/stdlib/source/library/lux/macro/syntax/annotations.lux index 89a45ddf6..6366f725f 100644 --- a/stdlib/source/library/lux/macro/syntax/annotations.lux +++ b/stdlib/source/library/lux/macro/syntax/annotations.lux @@ -4,16 +4,16 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." name] + ["[0]" product] + ["[0]" name] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." code]]]]) + ["[0]" code]]]]) (type: .public Annotations (List [Name Code])) diff --git a/stdlib/source/library/lux/macro/syntax/check.lux b/stdlib/source/library/lux/macro/syntax/check.lux index 750ac56d2..54558b914 100644 --- a/stdlib/source/library/lux/macro/syntax/check.lux +++ b/stdlib/source/library/lux/macro/syntax/check.lux @@ -1,18 +1,18 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product]] + ["[0]" product]] [macro - ["." code]]]]) + ["[0]" code]]]]) (def: extension "lux check") diff --git a/stdlib/source/library/lux/macro/syntax/declaration.lux b/stdlib/source/library/lux/macro/syntax/declaration.lux index b2d81ff4d..db8d135ca 100644 --- a/stdlib/source/library/lux/macro/syntax/declaration.lux +++ b/stdlib/source/library/lux/macro/syntax/declaration.lux @@ -4,15 +4,15 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." code]]]]) + ["[0]" code]]]]) (type: .public Declaration (Record diff --git a/stdlib/source/library/lux/macro/syntax/definition.lux b/stdlib/source/library/lux/macro/syntax/definition.lux index 2fcef6e2b..ac65e7357 100644 --- a/stdlib/source/library/lux/macro/syntax/definition.lux +++ b/stdlib/source/library/lux/macro/syntax/definition.lux @@ -5,25 +5,25 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." sum] - ["." product] - ["." bit] - ["." name] - ["." text + ["[0]" sum] + ["[0]" product] + ["[0]" bit] + ["[0]" name] + ["[0]" text ["%" format]] [collection - ["." list]]] - ["." macro - ["." code]] - ["." meta - ["." location]]]] - ["." // - ["#." annotations {"+" [Annotations]}] - ["#." check {"+" [Check]}]]) + ["[0]" list]]] + ["[0]" macro + ["[0]" code]] + ["[0]" meta + ["[0]" location]]]] + ["[0]" // + ["[1][0]" annotations {"+" [Annotations]}] + ["[1][0]" check {"+" [Check]}]]) (type: .public Definition (Record diff --git a/stdlib/source/library/lux/macro/syntax/export.lux b/stdlib/source/library/lux/macro/syntax/export.lux index 2ea86c378..164032dcb 100644 --- a/stdlib/source/library/lux/macro/syntax/export.lux +++ b/stdlib/source/library/lux/macro/syntax/export.lux @@ -2,8 +2,8 @@ [library [lux "*" [control - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]]]]) + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]]]]) (def: .public default_policy Code diff --git a/stdlib/source/library/lux/macro/syntax/input.lux b/stdlib/source/library/lux/macro/syntax/input.lux index 81cd983d1..b7ff83a59 100644 --- a/stdlib/source/library/lux/macro/syntax/input.lux +++ b/stdlib/source/library/lux/macro/syntax/input.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product]] + ["[0]" product]] [macro - ["." code]]]]) + ["[0]" code]]]]) (type: .public Input (Record diff --git a/stdlib/source/library/lux/macro/syntax/type/variable.lux b/stdlib/source/library/lux/macro/syntax/type/variable.lux index b079e3485..fbbac219f 100644 --- a/stdlib/source/library/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/library/lux/macro/syntax/type/variable.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}]] [control [parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." text]] + ["[0]" text]] [macro - ["." code]]]]) + ["[0]" code]]]]) (type: .public Variable Text) diff --git a/stdlib/source/library/lux/macro/template.lux b/stdlib/source/library/lux/macro/template.lux index 2c51b4963..cef131e88 100644 --- a/stdlib/source/library/lux/macro/template.lux +++ b/stdlib/source/library/lux/macro/template.lux @@ -1,30 +1,30 @@ (.module: [library [lux {"-" [let local macro]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." functor) - ["<.>" code {"+" [Parser]}]]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" functor) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." bit ("#\." codec)] - ["." text] + ["[0]" bit ("[1]\[0]" codec)] + ["[0]" text] [collection - ["." list ("#\." monad)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number - ["." nat ("#\." decimal)] - ["." int ("#\." decimal)] - ["." rev ("#\." decimal)] - ["." frac ("#\." decimal)]]]]] - ["." // + ["[0]" nat ("[1]\[0]" decimal)] + ["[0]" int ("[1]\[0]" decimal)] + ["[0]" rev ("[1]\[0]" decimal)] + ["[0]" frac ("[1]\[0]" decimal)]]]]] + ["[0]" // [syntax {"+" [syntax:]}] - ["." code] - ["." local]]) + ["[0]" code] + ["[0]" local]]) (syntax: .public (spliced [parts (<code>.tuple (<>.some <code>.any))]) (in parts)) diff --git a/stdlib/source/library/lux/math/infix.lux b/stdlib/source/library/lux/math/infix.lux index 8e10d4ae0..616c62709 100644 --- a/stdlib/source/library/lux/math/infix.lux +++ b/stdlib/source/library/lux/math/infix.lux @@ -4,15 +4,15 @@ [abstract [monad {"+" [do]}]] [control - ["<>" parser ("#\." functor) - ["<.>" code {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" functor) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/math/logic/continuous.lux b/stdlib/source/library/lux/math/logic/continuous.lux index 807cdba9c..26d77139c 100644 --- a/stdlib/source/library/lux/math/logic/continuous.lux +++ b/stdlib/source/library/lux/math/logic/continuous.lux @@ -6,7 +6,7 @@ [monoid {"+" [Monoid]}]] [math [number - ["/" rev ("#\." interval)]]]]]) + ["/" rev ("[1]\[0]" interval)]]]]]) (def: .public false Rev /\bottom) (def: .public true Rev /\top) diff --git a/stdlib/source/library/lux/math/logic/fuzzy.lux b/stdlib/source/library/lux/math/logic/fuzzy.lux index a30c42d8c..079d5fe16 100644 --- a/stdlib/source/library/lux/math/logic/fuzzy.lux +++ b/stdlib/source/library/lux/math/logic/fuzzy.lux @@ -5,16 +5,16 @@ [abstract [predicate {"+" [Predicate]}] [functor - ["." contravariant]]] + ["[0]" contravariant]]] [data [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [math [number ["/" rev]]]]] - ["." // "_" - ["#" continuous]]) + ["[0]" // "_" + ["[1]" continuous]]) (type: .public (Fuzzy a) (-> a Rev)) diff --git a/stdlib/source/library/lux/math/modular.lux b/stdlib/source/library/lux/math/modular.lux index 012af5c4b..bc496557f 100644 --- a/stdlib/source/library/lux/math/modular.lux +++ b/stdlib/source/library/lux/math/modular.lux @@ -8,24 +8,24 @@ [codec {"+" [Codec]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." monoid)]] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid)]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number - ["i" int ("#\." decimal)]]] + ["i" int ("[1]\[0]" decimal)]]] [type abstract]]] - ["." // "_" - ["#" modulus {"+" [Modulus]}]]) + ["[0]" // "_" + ["[1]" modulus {"+" [Modulus]}]]) (abstract: .public (Mod m) {} diff --git a/stdlib/source/library/lux/math/modulus.lux b/stdlib/source/library/lux/math/modulus.lux index 8fda89368..6879bd012 100644 --- a/stdlib/source/library/lux/math/modulus.lux +++ b/stdlib/source/library/lux/math/modulus.lux @@ -1,17 +1,17 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["i" int]]] diff --git a/stdlib/source/library/lux/math/number.lux b/stdlib/source/library/lux/math/number.lux index 6722c0329..da7aa73fd 100644 --- a/stdlib/source/library/lux/math/number.lux +++ b/stdlib/source/library/lux/math/number.lux @@ -4,14 +4,14 @@ [abstract [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text]]]] - ["." / "_" - ["#." nat] - ["#." int] - ["#." rev] - ["#." frac]]) + ["[0]" text]]]] + ["[0]" / "_" + ["[1][0]" nat] + ["[1][0]" int] + ["[1][0]" rev] + ["[1][0]" frac]]) (def: separator ",") diff --git a/stdlib/source/library/lux/math/number/complex.lux b/stdlib/source/library/lux/math/number/complex.lux index 6aa8bae30..8e649252e 100644 --- a/stdlib/source/library/lux/math/number/complex.lux +++ b/stdlib/source/library/lux/math/number/complex.lux @@ -1,26 +1,26 @@ (.module: [library [lux "*" - ["." math] + ["[0]" math] [abstract [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] ["M" monad {"+" [Monad do]}]] [control - ["." maybe] + ["[0]" maybe] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] ["f" frac] - ["." int]]]]]) + ["[0]" int]]]]]) (type: .public Complex (Record diff --git a/stdlib/source/library/lux/math/number/frac.lux b/stdlib/source/library/lux/math/number/frac.lux index 0809a0c7a..c919e8ab5 100644 --- a/stdlib/source/library/lux/math/number/frac.lux +++ b/stdlib/source/library/lux/math/number/frac.lux @@ -11,16 +11,16 @@ [order {"+" [Order]}] [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data - ["." text]]]] - ["." // "_" - ["#." i64] - ["#." nat] - ["#." int] - ["#." rev] - ["/#" //]]) + ["[0]" text]]]] + ["[0]" // "_" + ["[1][0]" i64] + ["[1][0]" nat] + ["[1][0]" int] + ["[1][0]" rev] + ["/[1]" //]]) (def: .public (= reference sample) (-> Frac Frac Bit) diff --git a/stdlib/source/library/lux/math/number/i16.lux b/stdlib/source/library/lux/math/number/i16.lux index 1eaf89c0d..d16ebb6a3 100644 --- a/stdlib/source/library/lux/math/number/i16.lux +++ b/stdlib/source/library/lux/math/number/i16.lux @@ -4,10 +4,10 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]] + ["[0]" maybe]] [type {"+" [:by_example]}]]] [// - ["." i64 {"+" [Sub]}]]) + ["[0]" i64 {"+" [Sub]}]]) (def: sub (maybe.trusted (i64.sub 16))) diff --git a/stdlib/source/library/lux/math/number/i32.lux b/stdlib/source/library/lux/math/number/i32.lux index bba3a2fb4..9c71cfdff 100644 --- a/stdlib/source/library/lux/math/number/i32.lux +++ b/stdlib/source/library/lux/math/number/i32.lux @@ -5,9 +5,9 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]]]] + ["[0]" maybe]]]] [// - ["." i64 {"+" [Sub]}]]) + ["[0]" i64 {"+" [Sub]}]]) (def: sub (maybe.trusted (i64.sub 32))) diff --git a/stdlib/source/library/lux/math/number/i64.lux b/stdlib/source/library/lux/math/number/i64.lux index 673d99ab2..4fbab4334 100644 --- a/stdlib/source/library/lux/math/number/i64.lux +++ b/stdlib/source/library/lux/math/number/i64.lux @@ -6,7 +6,7 @@ [hash {"+" [Hash]}] [monoid {"+" [Monoid]}]] [control - ["." try]]]] + ["[0]" try]]]] [// ["n" nat]]) diff --git a/stdlib/source/library/lux/math/number/i8.lux b/stdlib/source/library/lux/math/number/i8.lux index b5fa6f6aa..6f6c77175 100644 --- a/stdlib/source/library/lux/math/number/i8.lux +++ b/stdlib/source/library/lux/math/number/i8.lux @@ -4,10 +4,10 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]] + ["[0]" maybe]] [type {"+" [:by_example]}]]] [// - ["." i64 {"+" [Sub]}]]) + ["[0]" i64 {"+" [Sub]}]]) (def: sub (maybe.trusted (i64.sub 8))) diff --git a/stdlib/source/library/lux/math/number/int.lux b/stdlib/source/library/lux/math/number/int.lux index 53effd0c1..0e515f8a5 100644 --- a/stdlib/source/library/lux/math/number/int.lux +++ b/stdlib/source/library/lux/math/number/int.lux @@ -9,15 +9,15 @@ [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] [predicate {"+" [Predicate]}] - ["." order {"+" [Order]}]] + ["[0]" order {"+" [Order]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data [text {"+" [Char]}]]]] - ["." // "_" - ["#." nat] - ["#." i64]]) + ["[0]" // "_" + ["[1][0]" nat] + ["[1][0]" i64]]) (def: .public (= reference sample) (-> Int Int Bit) diff --git a/stdlib/source/library/lux/math/number/nat.lux b/stdlib/source/library/lux/math/number/nat.lux index 5de9ab23d..3efe7f197 100644 --- a/stdlib/source/library/lux/math/number/nat.lux +++ b/stdlib/source/library/lux/math/number/nat.lux @@ -8,11 +8,11 @@ [monoid {"+" [Monoid]}] [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] - ["." order {"+" [Order]}]] + ["[0]" order {"+" [Order]}]] [control - ["." function] - ["." maybe] - ["." try {"+" [Try]}]]]]) + ["[0]" function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]]]]) (template [<extension> <output> <name>] [(def: .public (<name> parameter subject) diff --git a/stdlib/source/library/lux/math/number/ratio.lux b/stdlib/source/library/lux/math/number/ratio.lux index 5d1ab4acf..1e6aff940 100644 --- a/stdlib/source/library/lux/math/number/ratio.lux +++ b/stdlib/source/library/lux/math/number/ratio.lux @@ -8,19 +8,19 @@ [codec {"+" [Codec]}] [monad {"+" [do]}]] [control - ["." function] - ["." maybe] - ["." try] + ["[0]" function] + ["[0]" maybe] + ["[0]" try] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." monoid)]] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid)]] [macro [syntax {"+" [syntax:]}] - ["." code]]]] + ["[0]" code]]]] [// - ["n" nat ("#\." decimal)]]) + ["n" nat ("[1]\[0]" decimal)]]) (type: .public Ratio (Record diff --git a/stdlib/source/library/lux/math/number/rev.lux b/stdlib/source/library/lux/math/number/rev.lux index e5975ffec..07013dc94 100644 --- a/stdlib/source/library/lux/math/number/rev.lux +++ b/stdlib/source/library/lux/math/number/rev.lux @@ -10,15 +10,15 @@ [codec {"+" [Codec]}] [order {"+" [Order]}]] [control - ["." maybe] - ["." try]] + ["[0]" maybe] + ["[0]" try]] [data [collection - ["." array {"+" [Array]}]]]]] - ["." // "_" - ["#." i64] - ["#." nat] - ["#." int]]) + ["[0]" array {"+" [Array]}]]]]] + ["[0]" // "_" + ["[1][0]" i64] + ["[1][0]" nat] + ["[1][0]" int]]) (def: .public /1 Rev diff --git a/stdlib/source/library/lux/math/random.lux b/stdlib/source/library/lux/math/random.lux index d370085ff..348482e63 100644 --- a/stdlib/source/library/lux/math/random.lux +++ b/stdlib/source/library/lux/math/random.lux @@ -5,21 +5,21 @@ [hash {"+" [Hash]}] [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [data - ["." text {"+" [Char]} ("#\." monoid) - ["." unicode "_" - ["#" set]]] + ["[0]" text {"+" [Char]} ("[1]\[0]" monoid) + ["[0]" unicode "_" + ["[1]" set]]] [collection - ["." list ("#\." mix)] - ["." array {"+" [Array]}] - ["." dictionary {"+" [Dictionary]}] - ["." queue {"+" [Queue]}] - ["." set {"+" [Set]}] - ["." stack {"+" [Stack]}] - ["." row {"+" [Row]}] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" queue {"+" [Queue]}] + ["[0]" set {"+" [Set]}] + ["[0]" stack {"+" [Stack]}] + ["[0]" row {"+" [Row]}] [tree - ["." finger {"+" [Tree]}]]]] + ["[0]" finger {"+" [Tree]}]]]] [math [number {"+" [hex]} ["n" nat] @@ -27,13 +27,13 @@ ["f" frac] ["r" ratio] ["c" complex] - ["." i64]]] - ["." time {"+" [Time]} - ["." instant {"+" [Instant]}] - ["." date {"+" [Date]}] - ["." duration {"+" [Duration]}] - ["." month {"+" [Month]}] - ["." day {"+" [Day]}]] + ["[0]" i64]]] + ["[0]" time {"+" [Time]} + ["[0]" instant {"+" [Instant]}] + ["[0]" date {"+" [Date]}] + ["[0]" duration {"+" [Duration]}] + ["[0]" month {"+" [Month]}] + ["[0]" day {"+" [Day]}]] [type [refinement {"+" [Refiner Refined]}]]]]) @@ -309,7 +309,7 @@ (def: .public month (Random Month) - (let [(^open "\.") ..monad] + (let [(^open "\[0]") ..monad] (..either (..either (..either (\in #month.January) (..either (\in #month.February) (\in #month.March))) @@ -325,7 +325,7 @@ (def: .public day (Random Day) - (let [(^open "\.") ..monad] + (let [(^open "\[0]") ..monad] (..either (..either (\in #day.Sunday) (..either (\in #day.Monday) (\in #day.Tuesday))) diff --git a/stdlib/source/library/lux/meta.lux b/stdlib/source/library/lux/meta.lux index 658d17af4..bd36de002 100644 --- a/stdlib/source/library/lux/meta.lux +++ b/stdlib/source/library/lux/meta.lux @@ -4,26 +4,26 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." text ("#\." monoid order)] - ["." name ("#\." codec equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid order)] + ["[0]" name ("[1]\[0]" codec equivalence)] [collection - ["." list ("#\." monoid monad)] + ["[0]" list ("[1]\[0]" monoid monad)] [dictionary - ["." plist]]]] + ["[0]" plist]]]] [macro - ["." code]] + ["[0]" code]] [math [number ["n" nat] ["i" int]]]]] [/ - ["." location]]) + ["[0]" location]]) ... (type: (Meta a) ... (-> Lux (Try [Lux a]))) @@ -135,7 +135,7 @@ (def: .public current_module (Meta Module) - (let [(^open "\.") ..monad] + (let [(^open "\[0]") ..monad] (|> ..current_module_name (\each ..module) \conjoint))) diff --git a/stdlib/source/library/lux/meta/annotation.lux b/stdlib/source/library/lux/meta/annotation.lux index 1b5c7f4f0..49ea4fe44 100644 --- a/stdlib/source/library/lux/meta/annotation.lux +++ b/stdlib/source/library/lux/meta/annotation.lux @@ -2,11 +2,11 @@ [library [lux {"-" [nat int rev]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." name ("#\." equivalence)]]]]) + ["[0]" name ("[1]\[0]" equivalence)]]]]) (type: .public Annotation Code) diff --git a/stdlib/source/library/lux/program.lux b/stdlib/source/library/lux/program.lux index ccd1633a6..00e75d32c 100644 --- a/stdlib/source/library/lux/program.lux +++ b/stdlib/source/library/lux/program.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}]] [control - ["." io] + ["[0]" io] [concurrency - ["." thread]] + ["[0]" thread]] ["<>" parser - ["<.>" code] - ["<.>" cli]]] + ["<[0]>" code] + ["<[0]>" cli]]] [data - ["." text] + ["[0]" text] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]]]]) + ["[0]" code]]]]) (type: Arguments (Variant diff --git a/stdlib/source/library/lux/static.lux b/stdlib/source/library/lux/static.lux index 3f9d9caed..83bc9358e 100644 --- a/stdlib/source/library/lux/static.lux +++ b/stdlib/source/library/lux/static.lux @@ -1,18 +1,18 @@ (.module: [library [lux {"-" [nat int rev]} - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]}] - ["." random {"+" [Random]}]]]]) + ["[0]" random {"+" [Random]}]]]]) (template [<name> <type> <format>] [(syntax: .public (<name> [expression <code>.any]) diff --git a/stdlib/source/library/lux/target/common_lisp.lux b/stdlib/source/library/lux/target/common_lisp.lux index d57cb51c9..db711eabf 100644 --- a/stdlib/source/library/lux/target/common_lisp.lux +++ b/stdlib/source/library/lux/target/common_lisp.lux @@ -4,12 +4,12 @@ [control [pipe {"+" [case> cond> new>]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad monoid)]]] + ["[0]" list ("[1]\[0]" monad monoid)]]] [macro - ["." template]] + ["[0]" template]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux index 2882fe5db..d6eff28b5 100644 --- a/stdlib/source/library/lux/target/js.lux +++ b/stdlib/source/library/lux/target/js.lux @@ -4,12 +4,12 @@ [control [pipe {"+" [case>]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int] diff --git a/stdlib/source/library/lux/target/jvm.lux b/stdlib/source/library/lux/target/jvm.lux index 8da4679fc..e32769bbc 100644 --- a/stdlib/source/library/lux/target/jvm.lux +++ b/stdlib/source/library/lux/target/jvm.lux @@ -7,7 +7,7 @@ [target [jvm [type {"+" [Type]} - ["." category {"+" [Primitive Class Value Method]}]]]]]]) + ["[0]" category {"+" [Primitive Class Value Method]}]]]]]]) (type: .public Literal (Variant diff --git a/stdlib/source/library/lux/target/jvm/attribute.lux b/stdlib/source/library/lux/target/jvm/attribute.lux index 053c59e3f..78ce1854d 100644 --- a/stdlib/source/library/lux/target/jvm/attribute.lux +++ b/stdlib/source/library/lux/target/jvm/attribute.lux @@ -3,27 +3,27 @@ [lux {"-" [Info Code]} [abstract [monad {"+" [do]}] - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [control - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." sum] - ["." product] + ["[0]" sum] + ["[0]" product] [format - [".F" binary {"+" [Writer]}]]] + ["[0]F" binary {"+" [Writer]}]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#." index {"+" [Index]}] + ["[0]" // "_" + ["[1][0]" index {"+" [Index]}] [encoding - ["#." unsigned {"+" [U2 U4]}]] - ["#." constant {"+" [UTF8 Class Value]} - ["#/." pool {"+" [Pool Resource]}]]] - ["." / "_" - ["#." constant {"+" [Constant]}] - ["#." code]]) + ["[1][0]" unsigned {"+" [U2 U4]}]] + ["[1][0]" constant {"+" [UTF8 Class Value]} + ["[1]/[0]" pool {"+" [Pool Resource]}]]] + ["[0]" / "_" + ["[1][0]" constant {"+" [Constant]}] + ["[1][0]" code]]) (type: .public (Info about) (Record diff --git a/stdlib/source/library/lux/target/jvm/attribute/code.lux b/stdlib/source/library/lux/target/jvm/attribute/code.lux index eec5e8233..e887537cc 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/code.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/code.lux @@ -4,23 +4,23 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." binary {"+" [Binary]}] + ["[0]" product] + ["[0]" binary {"+" [Binary]}] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]} ("#\." functor mix)]]] + ["[0]" row {"+" [Row]} ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]]]] - ["." /// "_" + ["[0]" /// "_" [bytecode [environment - ["#." limit {"+" [Limit]}]]] + ["[1][0]" limit {"+" [Limit]}]]] [encoding - ["#." unsigned {"+" [U2]}]]] - ["." / "_" - ["#." exception {"+" [Exception]}]]) + ["[1][0]" unsigned {"+" [U2]}]]] + ["[0]" / "_" + ["[1][0]" exception {"+" [Exception]}]]) (type: .public (Code Attribute) (Record diff --git a/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux b/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux index 97cda5be3..fe7f8abd9 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux @@ -4,20 +4,20 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." format "_" - ["#" binary {"+" [Writer]}]]] + ["[0]" product] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]] [math [number ["n" nat]]]]] - ["." // "_" - ["//#" /// "_" + ["[0]" // "_" + ["//[1]" /// "_" [constant {"+" [Class]}] - ["#." index {"+" [Index]}] + ["[1][0]" index {"+" [Index]}] [bytecode - ["#." address {"+" [Address]}]] + ["[1][0]" address {"+" [Address]}]] [encoding - ["#." unsigned {"+" [U2]}]]]]) + ["[1][0]" unsigned {"+" [U2]}]]]]) (type: .public Exception (Record diff --git a/stdlib/source/library/lux/target/jvm/attribute/constant.lux b/stdlib/source/library/lux/target/jvm/attribute/constant.lux index 1f03b9162..fbb01cb30 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/constant.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/constant.lux @@ -6,11 +6,11 @@ [data [format [binary {"+" [Writer]}]]]]] - ["." /// "_" + ["[0]" /// "_" [constant {"+" [Value]}] - ["#." index {"+" [Index]}] + ["[1][0]" index {"+" [Index]}] [encoding - ["#." unsigned {"+" [U2 U4]}]]]) + ["[1][0]" unsigned {"+" [U2 U4]}]]]) (type: .public (Constant a) (Index (Value a))) diff --git a/stdlib/source/library/lux/target/jvm/bytecode.lux b/stdlib/source/library/lux/target/jvm/bytecode.lux index e906aaa0d..2c78e57d0 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode.lux @@ -1,55 +1,55 @@ (.module: [library [lux {"-" [Type Label int try]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [monoid {"+" [Monoid]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." writer {"+" [Writer]}] - ["." state {"+" [+State]}] - ["." function] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" writer {"+" [Writer]}] + ["[0]" state {"+" [+State]}] + ["[0]" function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] ["i" int] - ["." i32 {"+" [I32]}]]]]] - ["." / "_" - ["#." address {"+" [Address]}] - ["#." jump {"+" [Jump Big_Jump]}] - ["_" instruction {"+" [Primitive_Array_Type Instruction Estimator]} ("#\." monoid)] - ["#." environment {"+" [Environment]} + ["[0]" i32 {"+" [I32]}]]]]] + ["[0]" / "_" + ["[1][0]" address {"+" [Address]}] + ["[1][0]" jump {"+" [Jump Big_Jump]}] + ["_" instruction {"+" [Primitive_Array_Type Instruction Estimator]} ("[1]\[0]" monoid)] + ["[1][0]" environment {"+" [Environment]} [limit - ["/." registry {"+" [Register Registry]}] - ["/." stack {"+" [Stack]}]]] - ["/#" // "_" - ["#." index {"+" [Index]}] + ["/[0]" registry {"+" [Register Registry]}] + ["/[0]" stack {"+" [Stack]}]]] + ["/[1]" // "_" + ["[1][0]" index {"+" [Index]}] [encoding - ["#." name] - ["#." unsigned {"+" [U1 U2]}] - ["#." signed {"+" [S1 S2 S4]}]] - ["#." constant {"+" [UTF8]} - ["#/." pool {"+" [Pool Resource]}]] + ["[1][0]" name] + ["[1][0]" unsigned {"+" [U1 U2]}] + ["[1][0]" signed {"+" [S1 S2 S4]}]] + ["[1][0]" constant {"+" [UTF8]} + ["[1]/[0]" pool {"+" [Pool Resource]}]] [attribute [code - ["#." exception {"+" [Exception]}]]] - ["." type {"+" [Type]} + ["[1][0]" exception {"+" [Exception]}]]] + ["[0]" type {"+" [Type]} [category {"+" [Class Object Value' Value Return' Return Method]}] - ["." reflection] - ["." parser]]]]) + ["[0]" reflection] + ["[0]" parser]]]]) (type: .public Label Nat) @@ -462,11 +462,11 @@ (..bytecode $0 $1 @_ _.ldc_w/string [index])))) (import: java/lang/Float - ["#::." + ["[1]::[0]" ("static" floatToRawIntBits "manual" [float] int)]) (import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" doubleToRawLongBits "manual" [double] long)]) (template [<name> <type> <constructor> <constant> <wide> <to_lux> <specializations>] diff --git a/stdlib/source/library/lux/target/jvm/bytecode/address.lux b/stdlib/source/library/lux/target/jvm/bytecode/address.lux index 302fbcc8e..063c3eff6 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/address.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/address.lux @@ -5,7 +5,7 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data [format [binary {"+" [Writer]}]] @@ -16,12 +16,12 @@ ["n" nat]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [jump {"+" [Big_Jump]}] - ["/#" // "_" + ["/[1]" // "_" [encoding - ["#." unsigned {"+" [U2]}] - ["#." signed {"+" [S4]}]]]]) + ["[1][0]" unsigned {"+" [U2]}] + ["[1][0]" signed {"+" [S4]}]]]]) (abstract: .public Address {} diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux index ade32b3d4..99bb9946a 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux @@ -5,12 +5,12 @@ [monad {"+" [do]}] [monoid {"+" [Monoid]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]]]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]]]] [/ - ["/." limit {"+" [Limit]} - ["/." stack {"+" [Stack]}] - ["/." registry {"+" [Registry]}]] + ["/[0]" limit {"+" [Limit]} + ["/[0]" stack {"+" [Stack]}] + ["/[0]" registry {"+" [Registry]}]] [/// [encoding [unsigned {"+" [U2]}]] diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux index faac0819b..131d968ef 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux @@ -5,17 +5,17 @@ [monad {"+" [do]}] [equivalence {"+" [Equivalence]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." format "_" - ["#" binary {"+" [Writer]} ("#\." monoid)]]] + ["[0]" product] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("[1]\[0]" monoid)]]] [math [number ["n" nat]]]]] - ["." / "_" - ["#." stack {"+" [Stack]}] - ["#." registry {"+" [Registry]}] + ["[0]" / "_" + ["[1][0]" stack {"+" [Stack]}] + ["[1][0]" registry {"+" [Registry]}] [//// [type {"+" [Type]} [category {"+" [Method]}]]]]) diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux index e2fa1461f..9a111eb22 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux @@ -2,25 +2,25 @@ [library [lux {"-" [Type for static]} [abstract - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [control - ["." try {"+" [Try]} ("#\." functor)]] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)]] [data [format [binary {"+" [Writer]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]] [type abstract]]] - ["." ///// "_" + ["[0]" ///// "_" [encoding - ["#." unsigned {"+" [U1 U2]}]] - ["#." type {"+" [Type]} + ["[1][0]" unsigned {"+" [U1 U2]}]] + ["[1][0]" type {"+" [Type]} [category {"+" [Method]}] - ["#/." parser]]]) + ["[1]/[0]" parser]]]) (type: .public Register U1) diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux index 396c972c5..48cfba7a8 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux @@ -2,10 +2,10 @@ [library [lux "*" [abstract - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data [text ["%" format {"+" [Format]}]] @@ -13,9 +13,9 @@ [binary {"+" [Writer]}]]] [type abstract]]] - ["." ///// "_" + ["[0]" ///// "_" [encoding - ["#." unsigned {"+" [U2]}]]]) + ["[1][0]" unsigned {"+" [U2]}]]]) (abstract: .public Stack {} diff --git a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux index dce6ef723..449eb0d19 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux @@ -5,34 +5,34 @@ [monad {"+" [do]}] [monoid {"+" [Monoid]}]] [control - ["." function] - ["." try]] + ["[0]" function] + ["[0]" try]] [data - ["." product] - ["." binary] - ["." format "_" - ["#" binary {"+" [Mutation Specification]}]] + ["[0]" product] + ["[0]" binary] + ["[0]" format "_" + ["[1]" binary {"+" [Mutation Specification]}]] [collection - ["." list]]] + ["[0]" list]]] [macro - ["." template]] + ["[0]" template]] [math [number {"+" [hex]} ["n" nat]]] [type abstract]]] - ["." // "_" - ["#." address {"+" [Address]}] - ["#." jump {"+" [Jump Big_Jump]}] + ["[0]" // "_" + ["[1][0]" address {"+" [Address]}] + ["[1][0]" jump {"+" [Jump Big_Jump]}] [environment [limit [registry {"+" [Register]}]]] - ["/#" // "_" - ["#." index {"+" [Index]}] - ["#." constant {"+" [Class Reference]}] + ["/[1]" // "_" + ["[1][0]" index {"+" [Index]}] + ["[1][0]" constant {"+" [Class Reference]}] [encoding - ["#." unsigned {"+" [U1 U2 U4]}] - ["#." signed {"+" [S1 S2 S4]}]] + ["[1][0]" unsigned {"+" [U1 U2 U4]}] + ["[1][0]" signed {"+" [S1 S2 S4]}]] [type [category {"+" [Value Method]}]]]]) diff --git a/stdlib/source/library/lux/target/jvm/bytecode/jump.lux b/stdlib/source/library/lux/target/jvm/bytecode/jump.lux index 615b7f9ac..e300e51ae 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/jump.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/jump.lux @@ -4,11 +4,11 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." format "_" - ["#" binary {"+" [Writer]}]]]]] - ["." /// "_" + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]]]] + ["[0]" /// "_" [encoding - ["#." signed {"+" [S2 S4]}]]]) + ["[1][0]" signed {"+" [S2 S4]}]]]) (type: .public Jump S2) diff --git a/stdlib/source/library/lux/target/jvm/class.lux b/stdlib/source/library/lux/target/jvm/class.lux index c8e23ad0e..4d4333238 100644 --- a/stdlib/source/library/lux/target/jvm/class.lux +++ b/stdlib/source/library/lux/target/jvm/class.lux @@ -3,29 +3,29 @@ [lux {"-" [public private]} [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." state] - ["." try {"+" [Try]}]] + ["[0]" state] + ["[0]" try {"+" [Try]}]] [data - ["." product] + ["[0]" product] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]]]] - ["." // "_" - ["#." modifier {"+" [Modifier modifiers:]}] - ["#." version {"+" [Version Minor Major]}] - ["#." magic {"+" [Magic]}] - ["#." index {"+" [Index]}] - ["#." attribute {"+" [Attribute]}] - ["#." field {"+" [Field]}] - ["#." method {"+" [Method]}] + ["[0]" row {"+" [Row]}]]]]] + ["[0]" // "_" + ["[1][0]" modifier {"+" [Modifier modifiers:]}] + ["[1][0]" version {"+" [Version Minor Major]}] + ["[1][0]" magic {"+" [Magic]}] + ["[1][0]" index {"+" [Index]}] + ["[1][0]" attribute {"+" [Attribute]}] + ["[1][0]" field {"+" [Field]}] + ["[1][0]" method {"+" [Method]}] [encoding - ["#." unsigned] - ["#." name {"+" [Internal]}]] - ["#." constant {"+" [Constant]} - ["#/." pool {"+" [Pool Resource]}]]]) + ["[1][0]" unsigned] + ["[1][0]" name {"+" [Internal]}]] + ["[1][0]" constant {"+" [Constant]} + ["[1]/[0]" pool {"+" [Pool Resource]}]]]) (type: .public Class (Rec Class diff --git a/stdlib/source/library/lux/target/jvm/constant.lux b/stdlib/source/library/lux/target/jvm/constant.lux index 82e4c49e1..742c1101e 100644 --- a/stdlib/source/library/lux/target/jvm/constant.lux +++ b/stdlib/source/library/lux/target/jvm/constant.lux @@ -1,38 +1,38 @@ (.module: [library [lux "*" - ["." ffi {"+" [import:]}] ["@" target] + ["[0]" ffi {"+" [import:]}] [abstract [monad {"+" [do]}] - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [data - ["." sum] - ["." product] - ["." text] + ["[0]" sum] + ["[0]" product] + ["[0]" text] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]] + ["[0]" row {"+" [Row]}]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i32 {"+" [I32]}] - ["." i64] - ["." int] - ["." frac]]] + ["[0]" i32 {"+" [I32]}] + ["[0]" i64] + ["[0]" int] + ["[0]" frac]]] [type abstract]]] - ["." / "_" - ["#." tag] - ["/#" // "_" - ["#." index {"+" [Index]}] + ["[0]" / "_" + ["[1][0]" tag] + ["/[1]" // "_" + ["[1][0]" index {"+" [Index]}] [type - ["#." category] - ["#." descriptor {"+" [Descriptor]}]] + ["[1][0]" category] + ["[1][0]" descriptor {"+" [Descriptor]}]] [encoding - ["#." unsigned]]]]) + ["[1][0]" unsigned]]]]) (type: .public UTF8 Text) @@ -66,7 +66,7 @@ ) (import: java/lang/Float - ["#::." + ["[1]::[0]" ("static" floatToRawIntBits "manual" [float] int)]) (implementation: .public float_equivalence @@ -82,7 +82,7 @@ ("jvm object cast" subject))}))) (import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" doubleToRawLongBits [double] long)]) (abstract: .public (Value kind) diff --git a/stdlib/source/library/lux/target/jvm/constant/pool.lux b/stdlib/source/library/lux/target/jvm/constant/pool.lux index e79cd40d6..2ae78260d 100644 --- a/stdlib/source/library/lux/target/jvm/constant/pool.lux +++ b/stdlib/source/library/lux/target/jvm/constant/pool.lux @@ -1,39 +1,39 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract [equivalence {"+" [Equivalence]}] [monad {"+" [Monad do]}]] [control - ["." state {"+" [+State]}] - ["." try {"+" [Try]}]] + ["[0]" state {"+" [+State]}] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." text] - ["." format "_" - ["#" binary {"+" [Writer]} ("specification\." monoid)]] + ["[0]" product] + ["[0]" text] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("specification\[0]" monoid)]] [collection - ["." row {"+" [Row]} ("#\." mix)]]] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i32] + ["[0]" i32] ["n" nat] - ["." int] - ["." frac]]] + ["[0]" int] + ["[0]" frac]]] [type abstract]]] - ["." // {"+" [UTF8 String Class Integer Float Long Double Constant Name_And_Type Reference]} + ["[0]" // {"+" [UTF8 String Class Integer Float Long Double Constant Name_And_Type Reference]} [// [encoding - ["#." name {"+" [Internal External]}] - ["#." unsigned]] - ["#." index {"+" [Index]}] + ["[1][0]" name {"+" [Internal External]}] + ["[1][0]" unsigned]] + ["[1][0]" index {"+" [Index]}] [type [category {"+" [Value Method]}] - ["#." descriptor {"+" [Descriptor]}]]]]) + ["[1][0]" descriptor {"+" [Descriptor]}]]]]) (type: .public Pool [Index (Row [Index Constant])]) diff --git a/stdlib/source/library/lux/target/jvm/constant/tag.lux b/stdlib/source/library/lux/target/jvm/constant/tag.lux index 75afcd52c..ad56d1042 100644 --- a/stdlib/source/library/lux/target/jvm/constant/tag.lux +++ b/stdlib/source/library/lux/target/jvm/constant/tag.lux @@ -4,15 +4,15 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." try]] + ["[0]" try]] [data [format [binary {"+" [Writer]}]]] [type abstract]]] - ["." /// "_" + ["[0]" /// "_" [encoding - ["#." unsigned {"+" [U1]} ("u1//." equivalence)]]]) + ["[1][0]" unsigned {"+" [U1]} ("u1//[0]" equivalence)]]]) (abstract: .public Tag {} diff --git a/stdlib/source/library/lux/target/jvm/encoding/name.lux b/stdlib/source/library/lux/target/jvm/encoding/name.lux index b515e1d6b..7553285f2 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/name.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/name.lux @@ -2,7 +2,7 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/target/jvm/encoding/signed.lux b/stdlib/source/library/lux/target/jvm/encoding/signed.lux index abd02e3d8..e2aa094dc 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/signed.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/signed.lux @@ -5,18 +5,18 @@ [equivalence {"+" [Equivalence]}] [order {"+" [Order]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] - ["." format "_" - ["#" binary {"+" [Writer]}]]] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i64] + ["[0]" i64] ["n" nat] ["i" int]]] [type diff --git a/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux b/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux index 6d0f259cb..863aadea3 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux @@ -5,19 +5,19 @@ [equivalence {"+" [Equivalence]}] [order {"+" [Order]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] - ["." format "_" - ["#" binary {"+" [Writer]}]]] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/target/jvm/field.lux b/stdlib/source/library/lux/target/jvm/field.lux index b3f41c3f1..9dcc7abe9 100644 --- a/stdlib/source/library/lux/target/jvm/field.lux +++ b/stdlib/source/library/lux/target/jvm/field.lux @@ -3,20 +3,20 @@ [lux {"-" [Type static public private]} [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]]]] - ["." // "_" - ["." modifier {"+" [Modifier modifiers:]}] - ["#." constant {"+" [UTF8]} - ["#/." pool {"+" [Pool Resource]}]] - ["#." index {"+" [Index]}] - ["#." attribute {"+" [Attribute]}] - ["#." type {"+" [Type]} + ["[0]" row {"+" [Row]}]]]]] + ["[0]" // "_" + ["[0]" modifier {"+" [Modifier modifiers:]}] + ["[1][0]" constant {"+" [UTF8]} + ["[1]/[0]" pool {"+" [Pool Resource]}]] + ["[1][0]" index {"+" [Index]}] + ["[1][0]" attribute {"+" [Attribute]}] + ["[1][0]" type {"+" [Type]} [category {"+" [Value]}] [descriptor {"+" [Descriptor]}]]]) diff --git a/stdlib/source/library/lux/target/jvm/index.lux b/stdlib/source/library/lux/target/jvm/index.lux index 178586d44..6a45de99d 100644 --- a/stdlib/source/library/lux/target/jvm/index.lux +++ b/stdlib/source/library/lux/target/jvm/index.lux @@ -2,15 +2,15 @@ [library [lux "*" [abstract - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [data [format [binary {"+" [Writer]}]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." unsigned {"+" [U2]}]]]) + ["[1][0]" unsigned {"+" [U2]}]]]) (def: .public length //unsigned.bytes/2) diff --git a/stdlib/source/library/lux/target/jvm/loader.lux b/stdlib/source/library/lux/target/jvm/loader.lux index 6d01eb532..039ae4c0f 100644 --- a/stdlib/source/library/lux/target/jvm/loader.lux +++ b/stdlib/source/library/lux/target/jvm/loader.lux @@ -2,22 +2,22 @@ [library [lux "*" ["@" target] - ["." ffi {"+" [import: object do_to]}] + ["[0]" ffi {"+" [import: object do_to]}] [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] [concurrency - ["." atom {"+" [Atom]}]]] + ["[0]" atom {"+" [Atom]}]]] [data - ["." binary {"+" [Binary]}] - ["." text + ["[0]" binary {"+" [Binary]}] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." array] - ["." dictionary {"+" [Dictionary]}]]]]]) + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}]]]]]) (type: .public Library (Atom (Dictionary Text Binary))) @@ -36,29 +36,29 @@ ["Error" error])) (import: java/lang/Object - ["#::." + ["[1]::[0]" (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/String) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (invoke [java/lang/Object [java/lang/Object]] "try" java/lang/Object)]) (import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getDeclaredMethod [java/lang/String [(java/lang/Class [? < java/lang/Object])]] java/lang/reflect/Method)]) (import: java/lang/Integer - ["#::." + ["[1]::[0]" ("static" TYPE (java/lang/Class java/lang/Integer))]) (import: java/lang/reflect/AccessibleObject - ["#::." + ["[1]::[0]" (setAccessible [boolean] void)]) (import: java/lang/ClassLoader - ["#::." + ["[1]::[0]" (loadClass [java/lang/String] "io" "try" (java/lang/Class java/lang/Object))]) diff --git a/stdlib/source/library/lux/target/jvm/magic.lux b/stdlib/source/library/lux/target/jvm/magic.lux index a29a6a73b..eb49b52f3 100644 --- a/stdlib/source/library/lux/target/jvm/magic.lux +++ b/stdlib/source/library/lux/target/jvm/magic.lux @@ -2,12 +2,12 @@ [library [lux "*" [control - ["." try]] + ["[0]" try]] [math [number {"+" [hex]}]]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." unsigned {"+" [U4]}]]]) + ["[1][0]" unsigned {"+" [U4]}]]]) (type: .public Magic U4) diff --git a/stdlib/source/library/lux/target/jvm/method.lux b/stdlib/source/library/lux/target/jvm/method.lux index d53c7d847..11e8e1c06 100644 --- a/stdlib/source/library/lux/target/jvm/method.lux +++ b/stdlib/source/library/lux/target/jvm/method.lux @@ -3,28 +3,28 @@ [lux {"-" [Type static public private]} [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data - ["." product] - ["." format "_" - ["#" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]" product] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]]]] - ["." // "_" - ["#." modifier {"+" [Modifier modifiers:]}] - ["#." index {"+" [Index]}] - ["#." attribute {"+" [Attribute]} - ["#/." code]] - ["#." constant {"+" [UTF8]} - ["#/." pool {"+" [Pool Resource]}]] - ["#." bytecode {"+" [Bytecode]} - ["#/." environment {"+" [Environment]}] - ["#/." instruction]] - ["#." type {"+" [Type]} - ["#/." category] - ["#." descriptor {"+" [Descriptor]}]]]) + ["[0]" row {"+" [Row]}]]]]] + ["[0]" // "_" + ["[1][0]" modifier {"+" [Modifier modifiers:]}] + ["[1][0]" index {"+" [Index]}] + ["[1][0]" attribute {"+" [Attribute]} + ["[1]/[0]" code]] + ["[1][0]" constant {"+" [UTF8]} + ["[1]/[0]" pool {"+" [Pool Resource]}]] + ["[1][0]" bytecode {"+" [Bytecode]} + ["[1]/[0]" environment {"+" [Environment]}] + ["[1]/[0]" instruction]] + ["[1][0]" type {"+" [Type]} + ["[1]/[0]" category] + ["[1][0]" descriptor {"+" [Descriptor]}]]]) (type: .public Method (Rec Method diff --git a/stdlib/source/library/lux/target/jvm/modifier.lux b/stdlib/source/library/lux/target/jvm/modifier.lux index 86a63b6fe..bb066ab29 100644 --- a/stdlib/source/library/lux/target/jvm/modifier.lux +++ b/stdlib/source/library/lux/target/jvm/modifier.lux @@ -2,26 +2,26 @@ [library [lux "*" [abstract - ["." equivalence {"+" [Equivalence]}] - ["." monoid {"+" [Monoid]}]] + ["[0]" equivalence {"+" [Equivalence]}] + ["[0]" monoid {"+" [Monoid]}]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data [format - [".F" binary {"+" [Writer]}]]] + ["[0]F" binary {"+" [Writer]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math - ["." number {"+" [hex]} - ["." i64]]] + ["[0]" number {"+" [hex]} + ["[0]" i64]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." unsigned]]]) + ["[1][0]" unsigned]]]) (abstract: .public (Modifier of) {} diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux index 28ef3ca54..5f24cce7f 100644 --- a/stdlib/source/library/lux/target/jvm/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/reflection.lux @@ -1,67 +1,67 @@ (.module: [library [lux {"-" [type]} - ["." ffi {"+" [import:]}] - ["." type] + ["[0]" ffi {"+" [import:]}] + ["[0]" type] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [parser ["<t>" text]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix functor)] - ["." array] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" array] + ["[0]" dictionary]]] [math [number ["n" nat]]]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." name {"+" [External]}]] + ["[1][0]" name {"+" [External]}]] ["/" type [category {"+" [Void Value Return Method Primitive Object Class Array Parameter]}] - ["#." lux {"+" [Mapping]}] - ["#." descriptor] - ["#." reflection] - ["#." parser]]]) + ["[1][0]" lux {"+" [Mapping]}] + ["[1][0]" descriptor] + ["[1][0]" reflection] + ["[1][0]" parser]]]) (import: java/lang/String) (import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/reflect/Type - ["#::." + ["[1]::[0]" (getTypeName [] java/lang/String)]) (import: java/lang/reflect/GenericArrayType - ["#::." + ["[1]::[0]" (getGenericComponentType [] java/lang/reflect/Type)]) (import: java/lang/reflect/ParameterizedType - ["#::." + ["[1]::[0]" (getRawType [] java/lang/reflect/Type) (getActualTypeArguments [] [java/lang/reflect/Type])]) (import: (java/lang/reflect/TypeVariable d) - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getBounds [] [java/lang/reflect/Type])]) (import: (java/lang/reflect/WildcardType d) - ["#::." + ["[1]::[0]" (getLowerBounds [] [java/lang/reflect/Type]) (getUpperBounds [] [java/lang/reflect/Type])]) (import: java/lang/reflect/Modifier - ["#::." + ["[1]::[0]" ("static" isStatic [int] boolean) ("static" isFinal [int] boolean) ("static" isInterface [int] boolean) @@ -72,14 +72,14 @@ (import: java/lang/Deprecated) (import: java/lang/reflect/Field - ["#::." + ["[1]::[0]" (getDeclaringClass [] (java/lang/Class java/lang/Object)) (getModifiers [] int) (getGenericType [] java/lang/reflect/Type) (getDeclaredAnnotations [] [java/lang/annotation/Annotation])]) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getModifiers [] int) (getDeclaringClass [] (java/lang/Class java/lang/Object)) @@ -89,7 +89,7 @@ (getGenericExceptionTypes [] [java/lang/reflect/Type])]) (import: (java/lang/reflect/Constructor c) - ["#::." + ["[1]::[0]" (getModifiers [] int) (getDeclaringClass [] (java/lang/Class c)) (getTypeParameters [] [(java/lang/reflect/TypeVariable (java/lang/reflect/Constructor c))]) @@ -99,7 +99,7 @@ (import: java/lang/ClassLoader) (import: (java/lang/Class c) - ["#::." + ["[1]::[0]" ("static" forName [java/lang/String boolean java/lang/ClassLoader] "try" (java/lang/Class java/lang/Object)) (getName [] java/lang/String) (getModifiers [] int) diff --git a/stdlib/source/library/lux/target/jvm/type.lux b/stdlib/source/library/lux/target/jvm/type.lux index eb3bece00..8cac8e4df 100644 --- a/stdlib/source/library/lux/target/jvm/type.lux +++ b/stdlib/source/library/lux/target/jvm/type.lux @@ -5,25 +5,25 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text + ["[0]" text ["%" format {"+" [Format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." name {"+" [External]}]]] - ["." / "_" + ["[1][0]" name {"+" [External]}]]] + ["[0]" / "_" [category {"+" [Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." signature {"+" [Signature]}] - ["#." descriptor {"+" [Descriptor]}] - ["#." reflection {"+" [Reflection]}]]) + ["[1][0]" signature {"+" [Signature]}] + ["[1][0]" descriptor {"+" [Descriptor]}] + ["[1][0]" reflection {"+" [Reflection]}]]) (abstract: .public (Type category) {} diff --git a/stdlib/source/library/lux/target/jvm/type/alias.lux b/stdlib/source/library/lux/target/jvm/type/alias.lux index cff9f623c..c624f5751 100644 --- a/stdlib/source/library/lux/target/jvm/type/alias.lux +++ b/stdlib/source/library/lux/target/jvm/type/alias.lux @@ -2,27 +2,27 @@ [library [lux {"-" [Type int char type primitive]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]]]] - ["." // {"+" [Type]} + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" // {"+" [Type]} [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] - ["#." descriptor] - ["#." signature {"+" [Signature]}] - ["#." reflection] - ["#." parser] - ["/#" // "_" + ["[1][0]" descriptor] + ["[1][0]" signature {"+" [Signature]}] + ["[1][0]" reflection] + ["[1][0]" parser] + ["/[1]" // "_" [encoding - ["#." name]]]]) + ["[1][0]" name]]]]) (type: .public Aliasing (Dictionary Text Text)) diff --git a/stdlib/source/library/lux/target/jvm/type/category.lux b/stdlib/source/library/lux/target/jvm/type/category.lux index d4ddd056f..b6096e241 100644 --- a/stdlib/source/library/lux/target/jvm/type/category.lux +++ b/stdlib/source/library/lux/target/jvm/type/category.lux @@ -2,7 +2,7 @@ [library [lux "*" [macro - ["." template]] + ["[0]" template]] [type abstract]]]) diff --git a/stdlib/source/library/lux/target/jvm/type/descriptor.lux b/stdlib/source/library/lux/target/jvm/type/descriptor.lux index 9d0cc7813..85d659e2c 100644 --- a/stdlib/source/library/lux/target/jvm/type/descriptor.lux +++ b/stdlib/source/library/lux/target/jvm/type/descriptor.lux @@ -4,22 +4,22 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["/#" // "_" + ["/[1]" // "_" [encoding - ["#." name {"+" [Internal External]}]]]]) + ["[1][0]" name {"+" [Internal External]}]]]]) (abstract: .public (Descriptor category) {} diff --git a/stdlib/source/library/lux/target/jvm/type/lux.lux b/stdlib/source/library/lux/target/jvm/type/lux.lux index f1609e495..38569af4b 100644 --- a/stdlib/source/library/lux/target/jvm/type/lux.lux +++ b/stdlib/source/library/lux/target/jvm/type/lux.lux @@ -2,32 +2,32 @@ [library [lux {"-" [int char type primitive]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}]]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}]]] [type abstract - ["." check {"+" [Check]} ("#\." monad)]]]] - ["." // + ["[0]" check {"+" [Check]} ("[1]\[0]" monad)]]]] + ["[0]" // [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] - ["#." descriptor] - ["#." signature] - ["#." reflection] - ["#." parser] - ["#." box] - ["/#" // "_" + ["[1][0]" descriptor] + ["[1][0]" signature] + ["[1][0]" reflection] + ["[1][0]" parser] + ["[1][0]" box] + ["/[1]" // "_" [encoding - ["#." name]]]]) + ["[1][0]" name]]]]) (template [<name>] [(abstract: .public (<name> class) {} Any)] diff --git a/stdlib/source/library/lux/target/jvm/type/parser.lux b/stdlib/source/library/lux/target/jvm/type/parser.lux index 3d68ddb85..f9d79bb16 100644 --- a/stdlib/source/library/lux/target/jvm/type/parser.lux +++ b/stdlib/source/library/lux/target/jvm/type/parser.lux @@ -4,23 +4,23 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." function] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}]]] + ["[0]" try] + ["[0]" function] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." // {"+" [Type]} + ["[0]" list]]]]] + ["[0]" // {"+" [Type]} [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." signature] - ["#." descriptor] - ["." // "_" + ["[1][0]" signature] + ["[1][0]" descriptor] + ["[0]" // "_" [encoding - ["#." name {"+" [External]}]]]]) + ["[1][0]" name {"+" [External]}]]]]) (template [<category> <name> <signature> <type>] [(def: .public <name> diff --git a/stdlib/source/library/lux/target/jvm/type/reflection.lux b/stdlib/source/library/lux/target/jvm/type/reflection.lux index 576fb0abc..510505c85 100644 --- a/stdlib/source/library/lux/target/jvm/type/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/type/reflection.lux @@ -4,16 +4,16 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." descriptor] + ["[1][0]" descriptor] [// [encoding - ["#." name {"+" [External]}]]]]) + ["[1][0]" name {"+" [External]}]]]]) (abstract: .public (Reflection category) {} diff --git a/stdlib/source/library/lux/target/jvm/type/signature.lux b/stdlib/source/library/lux/target/jvm/type/signature.lux index 667457d61..124e3e550 100644 --- a/stdlib/source/library/lux/target/jvm/type/signature.lux +++ b/stdlib/source/library/lux/target/jvm/type/signature.lux @@ -5,18 +5,18 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." descriptor] - ["/#" // "_" + ["[1][0]" descriptor] + ["/[1]" // "_" [encoding - ["#." name {"+" [External]}]]]]) + ["[1][0]" name {"+" [External]}]]]]) (abstract: .public (Signature category) {} diff --git a/stdlib/source/library/lux/target/jvm/version.lux b/stdlib/source/library/lux/target/jvm/version.lux index 79e839977..acc54e154 100644 --- a/stdlib/source/library/lux/target/jvm/version.lux +++ b/stdlib/source/library/lux/target/jvm/version.lux @@ -2,10 +2,10 @@ [library [lux "*" [control - ["." try]]]] - ["." // "_" + ["[0]" try]]]] + ["[0]" // "_" [encoding - ["#." unsigned {"+" [U2]}]]]) + ["[1][0]" unsigned {"+" [U2]}]]]) (type: .public Version U2) (type: .public Minor Version) diff --git a/stdlib/source/library/lux/target/lua.lux b/stdlib/source/library/lux/target/lua.lux index d0c43b23d..4097a3433 100644 --- a/stdlib/source/library/lux/target/lua.lux +++ b/stdlib/source/library/lux/target/lua.lux @@ -5,20 +5,20 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [case> cond> new>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/target/php.lux b/stdlib/source/library/lux/target/php.lux index 5bc937489..ff6afe19f 100644 --- a/stdlib/source/library/lux/target/php.lux +++ b/stdlib/source/library/lux/target/php.lux @@ -5,20 +5,20 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [case> cond> new>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/target/python.lux b/stdlib/source/library/lux/target/python.lux index db46ffe6b..038641b6e 100644 --- a/stdlib/source/library/lux/target/python.lux +++ b/stdlib/source/library/lux/target/python.lux @@ -2,24 +2,24 @@ [library [lux {"-" [Location Code Label not or and list if cond int comment exec try]} ["@" target] - ["." ffi] + ["[0]" ffi] [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [new> case> cond>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] @@ -33,7 +33,7 @@ (for {@.old (as_is (ffi.import: java/lang/CharSequence) (ffi.import: java/lang/String - ["#::." + ["[1]::[0]" (replace [java/lang/CharSequence java/lang/CharSequence] java/lang/String)]))} (as_is)) diff --git a/stdlib/source/library/lux/target/r.lux b/stdlib/source/library/lux/target/r.lux index e6b4bb611..3e7e5e63e 100644 --- a/stdlib/source/library/lux/target/r.lux +++ b/stdlib/source/library/lux/target/r.lux @@ -3,19 +3,19 @@ [lux {"-" [Code or and list if function cond not int]} [control [pipe {"+" [case> cond> new>]}] - ["." function] - ["." maybe ("#\." functor)] + ["[0]" function] + ["[0]" maybe ("[1]\[0]" functor)] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/target/ruby.lux b/stdlib/source/library/lux/target/ruby.lux index 57aa8e41a..fdb76ac76 100644 --- a/stdlib/source/library/lux/target/ruby.lux +++ b/stdlib/source/library/lux/target/ruby.lux @@ -5,20 +5,20 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [case> cond> new>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/target/scheme.lux b/stdlib/source/library/lux/target/scheme.lux index fcf575658..89bea0ca8 100644 --- a/stdlib/source/library/lux/target/scheme.lux +++ b/stdlib/source/library/lux/target/scheme.lux @@ -8,12 +8,12 @@ [control [pipe {"+" [new> cond> case>]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/test.lux b/stdlib/source/library/lux/test.lux index 61af7a127..a0d2c802d 100644 --- a/stdlib/source/library/lux/test.lux +++ b/stdlib/source/library/lux/test.lux @@ -1,44 +1,44 @@ (.module: [library [lux {"-" [and for]} - ["." meta] - ["." debug] + ["[0]" meta] + ["[0]" debug] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] - ["." io] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["[0]" io] [concurrency - ["." atom {"+" [Atom]}] - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." name] - ["." text + ["[0]" product] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set {"+" [Set]}] - ["." dictionary "_" - ["#" ordered {"+" [Dictionary]}]]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set {"+" [Set]}] + ["[0]" dictionary "_" + ["[1]" ordered {"+" [Dictionary]}]]]] [time - ["." instant] - ["." duration {"+" [Duration]}]] + ["[0]" instant] + ["[0]" duration {"+" [Duration]}]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number {"+" [hex]} ["n" nat] ["f" frac]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [world - ["." program]]]]) + ["[0]" program]]]]) (type: .public Tally (Record diff --git a/stdlib/source/library/lux/time.lux b/stdlib/source/library/lux/time.lux index 9bf79a46f..6e0c41380 100644 --- a/stdlib/source/library/lux/time.lux +++ b/stdlib/source/library/lux/time.lux @@ -9,19 +9,19 @@ [monad {"+" [Monad do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)]] + ["[0]" text ("[1]\[0]" monoid)]] [math [number - ["n" nat ("#\." decimal)]]] + ["n" nat ("[1]\[0]" decimal)]]] [type abstract]]] [/ - ["." duration {"+" [Duration]}]]) + ["[0]" duration {"+" [Duration]}]]) (template [<name> <singular> <plural>] [(def: .public <name> diff --git a/stdlib/source/library/lux/time/date.lux b/stdlib/source/library/lux/time/date.lux index be4742376..450ab5b0b 100644 --- a/stdlib/source/library/lux/time/date.lux +++ b/stdlib/source/library/lux/time/date.lux @@ -8,25 +8,25 @@ [codec {"+" [Codec]}] [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." list ("#\." mix)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number - ["n" nat ("#\." decimal)] + ["n" nat ("[1]\[0]" decimal)] ["i" int]]] [type abstract]]] - ["." // "_" - ["#." year {"+" [Year]}] - ["#." month {"+" [Month]}]]) + ["[0]" // "_" + ["[1][0]" year {"+" [Year]}] + ["[1][0]" month {"+" [Month]}]]) (def: month_by_number (Dictionary Nat Month) diff --git a/stdlib/source/library/lux/time/day.lux b/stdlib/source/library/lux/time/day.lux index ebc24879c..0a5c006d4 100644 --- a/stdlib/source/library/lux/time/day.lux +++ b/stdlib/source/library/lux/time/day.lux @@ -8,12 +8,12 @@ [enum {"+" [Enum]}] [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text]] + ["[0]" text]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/time/duration.lux b/stdlib/source/library/lux/time/duration.lux index 3e8063563..769d38e62 100644 --- a/stdlib/source/library/lux/time/duration.lux +++ b/stdlib/source/library/lux/time/duration.lux @@ -9,19 +9,19 @@ [monoid {"+" [Monoid]}] [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)]] + ["[0]" text ("[1]\[0]" monoid)]] [math [number ["i" int] - ["." nat ("#\." decimal)]]] + ["[0]" nat ("[1]\[0]" decimal)]]] [type abstract]]] - ["." // "_" - ["#." year]]) + ["[0]" // "_" + ["[1][0]" year]]) (abstract: .public Duration {} diff --git a/stdlib/source/library/lux/time/instant.lux b/stdlib/source/library/lux/time/instant.lux index 96856d9b8..7c0ecdc7f 100644 --- a/stdlib/source/library/lux/time/instant.lux +++ b/stdlib/source/library/lux/time/instant.lux @@ -10,27 +10,27 @@ [monad {"+" [Monad do]}]] [control [io {"+" [IO io]}] - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." row]]] + ["[0]" row]]] [math [number ["i" int] ["f" frac]]] [type abstract]]] - ["." // {"+" [Time]} - ["." duration {"+" [Duration]}] - ["." year {"+" [Year]}] - ["." month {"+" [Month]}] - ["." day {"+" [Day]}] - ["." date {"+" [Date]}]]) + ["[0]" // {"+" [Time]} + ["[0]" duration {"+" [Duration]}] + ["[0]" year {"+" [Year]}] + ["[0]" month {"+" [Month]}] + ["[0]" day {"+" [Day]}] + ["[0]" date {"+" [Date]}]]) (abstract: .public Instant {} diff --git a/stdlib/source/library/lux/time/month.lux b/stdlib/source/library/lux/time/month.lux index 772b58c0b..4ae8ce7f8 100644 --- a/stdlib/source/library/lux/time/month.lux +++ b/stdlib/source/library/lux/time/month.lux @@ -8,12 +8,12 @@ [enum {"+" [Enum]}] [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text]] + ["[0]" text]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/time/year.lux b/stdlib/source/library/lux/time/year.lux index 630e514c3..76fdd859d 100644 --- a/stdlib/source/library/lux/time/year.lux +++ b/stdlib/source/library/lux/time/year.lux @@ -7,16 +7,16 @@ [equivalence {"+" [Equivalence]}] [order {"+" [Order]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)]] + ["[0]" text ("[1]\[0]" monoid)]] [math [number - ["n" nat ("#\." decimal)] - ["i" int ("#\." decimal)]]] + ["n" nat ("[1]\[0]" decimal)] + ["i" int ("[1]\[0]" decimal)]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/tool/compiler.lux b/stdlib/source/library/lux/tool/compiler.lux index 5f9f7e4dd..a91d6846b 100644 --- a/stdlib/source/library/lux/tool/compiler.lux +++ b/stdlib/source/library/lux/tool/compiler.lux @@ -2,18 +2,18 @@ [library [lux {"-" [Module Code]} [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [binary {"+" [Binary]}] - ["." text] + ["[0]" text] [collection - ["." row {"+" [Row]}]]] + ["[0]" row {"+" [Row]}]]] [world - ["." file {"+" [Path]}]]]] + ["[0]" file {"+" [Path]}]]]] [/ [meta - ["." archive {"+" [Output Archive]} + ["[0]" archive {"+" [Output Archive]} [key {"+" [Key]}] [descriptor {"+" [Descriptor Module]}] [document {"+" [Document]}]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/default/init.lux b/stdlib/source/library/lux/tool/compiler/default/init.lux index 2635b73ee..35759ca87 100644 --- a/stdlib/source/library/lux/tool/compiler/default/init.lux +++ b/stdlib/source/library/lux/tool/compiler/default/init.lux @@ -3,52 +3,52 @@ [lux {"-" [Module]} ["@" target {"+" [Target]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary] - ["." set] - ["." row ("#\." functor)]]] - ["." meta] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary] + ["[0]" set] + ["[0]" row ("[1]\[0]" functor)]]] + ["[0]" meta] [world - ["." file]]]] - ["." // "_" - ["/#" // {"+" [Instancer]} - ["#." phase] + ["[0]" file]]]] + ["[0]" // "_" + ["/[1]" // {"+" [Instancer]} + ["[1][0]" phase] [language [lux [program {"+" [Program]}] - ["#." version] - ["#." syntax {"+" [Aliases]}] - ["#." synthesis] - ["#." directive {"+" [Requirements]}] - ["#." generation] - ["#." analysis + ["[1][0]" version] + ["[1][0]" syntax {"+" [Aliases]}] + ["[1][0]" synthesis] + ["[1][0]" directive {"+" [Requirements]}] + ["[1][0]" generation] + ["[1][0]" analysis [macro {"+" [Expander]}] - ["#/." evaluation]] + ["[1]/[0]" evaluation]] [phase - [".P" synthesis] - [".P" directive] - [".P" analysis - ["." module]] - ["." extension {"+" [Extender]} - [".E" analysis] - [".E" synthesis] + ["[0]P" synthesis] + ["[0]P" directive] + ["[0]P" analysis + ["[0]" module]] + ["[0]" extension {"+" [Extender]} + ["[0]E" analysis] + ["[0]E" synthesis] [directive - [".D" lux]]]]]] + ["[0]D" lux]]]]]] [meta - ["." archive {"+" [Archive]} - ["." descriptor {"+" [Module]}] - ["." artifact] - ["." document]]]] + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact] + ["[0]" document]]]] ]) (def: .public (state target module expander host_analysis host generate generation_bundle) diff --git a/stdlib/source/library/lux/tool/compiler/default/platform.lux b/stdlib/source/library/lux/tool/compiler/default/platform.lux index 8d169ff97..c2442dd78 100644 --- a/stdlib/source/library/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/library/lux/tool/compiler/default/platform.lux @@ -3,64 +3,64 @@ [lux {"-" [Module]} [type {"+" [:sharing]}] ["@" target] - ["." debug] + ["[0]" debug] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." function] - ["." maybe] - ["." try {"+" [Try]} ("#\." monad)] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" monad)] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async Resolver]} ("#\." monad)] - ["." stm {"+" [Var STM]}]]] + ["[0]" async {"+" [Async Resolver]} ("[1]\[0]" monad)] + ["[0]" stm {"+" [Var STM]}]]] [data - ["." binary {"+" [Binary]}] - ["." bit] - ["." product] - ["." text ("#\." equivalence) + ["[0]" binary {"+" [Binary]}] + ["[0]" bit] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]} ("#\." mix)] - ["." set {"+" [Set]}] - ["." list ("#\." monoid functor mix)]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)] + ["[0]" set {"+" [Set]}] + ["[0]" list ("[1]\[0]" monoid functor mix)]] [format ["_" binary {"+" [Writer]}]]] [world - ["." file {"+" [Path]}]]]] - ["." // "_" - ["#." init] - ["/#" // - ["#." phase {"+" [Phase]}] + ["[0]" file {"+" [Path]}]]]] + ["[0]" // "_" + ["[1][0]" init] + ["/[1]" // + ["[1][0]" phase {"+" [Phase]}] [language [lux [program {"+" [Program]}] ["$" /] - ["#." version] - ["." syntax] - ["#." analysis + ["[1][0]" version] + ["[0]" syntax] + ["[1][0]" analysis [macro {"+" [Expander]}]] - ["#." synthesis] - ["#." generation {"+" [Buffer]}] - ["#." directive] + ["[1][0]" synthesis] + ["[1][0]" generation {"+" [Buffer]}] + ["[1][0]" directive] [phase - ["." extension {"+" [Extender]}] + ["[0]" extension {"+" [Extender]}] [analysis - ["." module]]]]] + ["[0]" module]]]]] [meta - ["." archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}] - ["." descriptor {"+" [Descriptor Module]}] - ["." document {"+" [Document]}]] + ["[0]" archive {"+" [Output Archive]} + ["[0]" artifact {"+" [Registry]}] + ["[0]" descriptor {"+" [Descriptor Module]}] + ["[0]" document {"+" [Document]}]] [io {"+" [Context]} - ["." context] + ["[0]" context] ["ioW" archive]]]]] [program [compositor [cli {"+" [Compilation Library]}] [import {"+" [Import]}] - ["." static {"+" [Static]}]]]) + ["[0]" static {"+" [Static]}]]]) (with_expansions [<type_vars> (as_is anchor expression directive) <Operation> (as_is ///generation.Operation <type_vars>)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux.lux index 8d0ac3171..16493d1dc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux.lux @@ -7,16 +7,16 @@ [data [format ["_" binary {"+" [Writer]}]]]]] - ["." / "_" - ["#." version] + ["[0]" / "_" + ["[1][0]" version] [phase [analysis - ["." module]]] + ["[0]" module]]] [/// [meta [archive - ["." signature] - ["." key {"+" [Key]}]]]]]) + ["[0]" signature] + ["[0]" key {"+" [Key]}]]]]]) ... TODO: Remove #module_hash, #imports & #module_state ASAP. ... TODO: Not just from this parser, but from the lux.Module type. diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux index 5522749e0..35c150116 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux @@ -6,17 +6,17 @@ [hash {"+" [Hash]}] [monad {"+" [do]}]] [control - ["." function] - ["." maybe] - ["." try] - ["." exception {"+" [Exception]}]] + ["[0]" function] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [Exception]}]] [data - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat] @@ -24,16 +24,16 @@ ["r" rev] ["f" frac]]] [meta - ["." location]]]] + ["[0]" location]]]] [// [phase - ["." extension {"+" [Extension]}]] + ["[0]" extension {"+" [Extension]}]] [/// [arity {"+" [Arity]}] [version {"+" [Version]}] - ["." phase] - ["." reference {"+" [Reference]} - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" phase] + ["[0]" reference {"+" [Reference]} + ["[0]" variable {"+" [Register Variable]}]]]]) (type: .public Primitive (.Variant @@ -136,7 +136,7 @@ _ false))) -(implementation: .public (composite_equivalence (^open "/\.")) +(implementation: .public (composite_equivalence (^open "/\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Composite a)))) (def: (= reference sample) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux index 94305f30a..5a7ca089f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux @@ -1,27 +1,27 @@ (.module: [library [lux {"-" [Module]} - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [math [number ["n" nat]]]]] - ["." // {"+" [Operation]} + ["[0]" // {"+" [Operation]} [macro {"+" [Expander]}] [// [phase - [".P" extension] - [".P" synthesis] - [".P" analysis - ["." type]] + ["[0]P" extension] + ["[0]P" synthesis] + ["[0]P" analysis + ["[0]" type]] [// - ["." synthesis] - ["." generation {"+" [Context]}] + ["[0]" synthesis] + ["[0]" generation {"+" [Context]}] [/// - ["." phase] + ["[0]" phase] [meta [archive {"+" [Archive]} [descriptor {"+" [Module]}]]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux index f6b4d0c3b..c0bc4a79e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux @@ -4,14 +4,14 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] - ["." meta]]] + ["[0]" meta]]] [///// - ["." phase]]) + ["[0]" phase]]) (exception: .public (expansion_failed {macro Name} {inputs (List Code)} {error Text}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux index e2c1899de..dd8d86836 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux @@ -4,18 +4,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data [collection - ["." list ("#\." monoid)]]]]] + ["[0]" list ("[1]\[0]" monoid)]]]]] [// - ["." analysis] - ["." synthesis] - ["." generation] + ["[0]" analysis] + ["[0]" synthesis] + ["[0]" generation] [phase - ["." extension]] + ["[0]" extension]] [/// - ["." phase] + ["[0]" phase] [meta [archive [descriptor {"+" [Module]}]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux index f5eb64da7..efad246fd 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux @@ -4,31 +4,31 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." function]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" function]] [data [binary {"+" [Binary]}] - ["." product] - ["." name] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" name] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." row {"+" [Row]}] - ["." list ("#\." functor)]]] + ["[0]" row {"+" [Row]}] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]]]] [// [synthesis {"+" [Synthesis]}] [phase - ["." extension]] + ["[0]" extension]] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive {"+" [Archive]} - ["." descriptor {"+" [Module]}] - ["." artifact]]]]]) + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact]]]]]) (type: .public Context [archive.ID artifact.ID]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux index b52a4de35..c7f8130fe 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux @@ -4,27 +4,27 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]]] - ["." meta - ["." location]]]] - ["." / "_" - ["#." type] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." function] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[0]" meta + ["[0]" location]]]] + ["[0]" / "_" + ["[1][0]" type] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" ["/" analysis {"+" [Analysis Operation Phase]} - ["#." macro {"+" [Expander]}]] + ["[1][0]" macro {"+" [Expander]}]] [/// ["//" phase] - ["." reference] + ["[0]" reference] [meta [archive {"+" [Archive]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux index c624c2549..fda27838d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux @@ -1,38 +1,38 @@ (.module: [library [lux {"-" [case]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix monoid functor)]]] + ["[0]" list ("[1]\[0]" mix monoid functor)]]] [math [number ["n" nat]]] [macro - ["." code]] - ["." type - ["." check]]]] - ["." / "_" - ["#." coverage {"+" [Coverage]}] - ["/#" // "_" - ["#." scope] - ["#." type] - ["#." structure] - ["/#" // "_" - ["#." extension] + ["[0]" code]] + ["[0]" type + ["[0]" check]]]] + ["[0]" / "_" + ["[1][0]" coverage {"+" [Coverage]}] + ["/[1]" // "_" + ["[1][0]" scope] + ["[1][0]" type] + ["[1][0]" structure] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Pattern Analysis Operation Phase]}] [/// - ["#" phase]]]]]]) + ["[1]" phase]]]]]]) (exception: .public (cannot_match_with_pattern {type Type} {pattern Code}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux index eff243340..8427dd68b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux @@ -3,26 +3,26 @@ [lux {"-" [Variant]} [abstract equivalence - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]} ("#\." monad)] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" monad)] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit ("#\." equivalence)] - ["." text + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat]]]]] - ["." //// "_" + ["[0]" //// "_" [// ["/" analysis {"+" [Pattern Variant Operation]}] [/// - ["#" phase ("#\." monad)]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]) (exception: .public (invalid_tuple_pattern) "Tuple size must be >= 2") @@ -210,7 +210,7 @@ _ #0))) -(open: "coverage/." ..equivalence) +(open: "coverage/[0]" ..equivalence) (exception: .public (variants_do_not_match {addition_cases Nat} {so_far_cases Nat}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux index 42eb48102..7574d89aa 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux @@ -4,26 +4,26 @@ [abstract monad] [control - ["." maybe] + ["[0]" maybe] ["ex" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid monad)]]] - ["." type - ["." check]] - ["." meta]]] - ["." // "_" - ["#." scope] - ["#." type] - ["#." inference] - ["/#" // "_" - ["#." extension] + ["[0]" list ("[1]\[0]" monoid monad)]]] + ["[0]" type + ["[0]" check]] + ["[0]" meta]]] + ["[0]" // "_" + ["[1][0]" scope] + ["[1][0]" type] + ["[1][0]" inference] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Analysis Operation Phase]}] [/// - ["#" phase] + ["[1]" phase] [reference {"+" []} [variable {"+" []}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux index fd49fe528..96d5b870e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux @@ -4,27 +4,27 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [math [number ["n" nat]]] - ["." type - ["." check]] - ["." meta]]] - ["." // "_" - ["#." type] - ["/#" // "_" - ["#." extension] + ["[0]" type + ["[0]" check]] + ["[0]" meta]]] + ["[0]" // "_" + ["[1][0]" type] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Tag Analysis Operation Phase]}] [/// - ["#" phase ("#\." monad)] + ["[1]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux index 1657f2b84..62bf284c3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux @@ -2,25 +2,25 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix functor)] + ["[0]" list ("[1]\[0]" mix functor)] [dictionary - ["." plist]]]] - ["." meta]]] - ["." /// "_" - ["#." extension] + ["[0]" plist]]]] + ["[0]" meta]]] + ["[0]" /// "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Operation]}] [/// - ["#" phase]]]]) + ["[1]" phase]]]]) (type: .public Tag Text) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux index d3351fdf8..17b41ba71 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux @@ -3,13 +3,13 @@ [lux {"-" [nat int rev]} [abstract monad]]] - ["." // "_" - ["#." type] - ["/#" // "_" + ["[0]" // "_" + ["[1][0]" type] + ["/[1]" // "_" [// ["/" analysis {"+" [Analysis Operation]}] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (template [<name> <type> <tag>] [(def: .public (<name> value) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux index 490b7d24a..b38712c22 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux @@ -4,21 +4,21 @@ [abstract monad] [control - ["." exception {"+" [exception:]}]] - ["." meta] + ["[0]" exception {"+" [exception:]}]] + ["[0]" meta] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]]]] - ["." // "_" - ["#." scope] - ["#." type] - ["/#" // "_" - ["#." extension] + ["[0]" // "_" + ["[1][0]" scope] + ["[1][0]" type] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Analysis Operation]}] [/// - ["#." reference] - ["#" phase]]]]]) + ["[1][0]" reference] + ["[1]" phase]]]]]) (exception: .public (foreign_module_has_not_been_imported {current Text} {foreign Text}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux index 4f99341c0..aa452e685 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux @@ -4,24 +4,24 @@ [abstract monad] [control - ["." maybe ("#\." monad)] - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" maybe ("[1]\[0]" monad)] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." text ("#\." equivalence)] - ["." product] + ["[0]" text ("[1]\[0]" equivalence)] + ["[0]" product] [collection - ["." list ("#\." functor mix monoid)] + ["[0]" list ("[1]\[0]" functor mix monoid)] [dictionary - ["." plist]]]]]] - ["." /// "_" - ["#." extension] + ["[0]" plist]]]]]] + ["[0]" /// "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Operation Phase]}] [/// [reference - ["." variable {"+" [Register Variable]}]] - ["#" phase]]]]) + ["[0]" variable {"+" [Register Variable]}]] + ["[1]" phase]]]]) (type: Local (Bindings Text [Type Register])) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux index 7d544b4e6..3c18c178b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux @@ -1,39 +1,39 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] - ["." state]] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["[0]" state]] [data - ["." name] - ["." product] + ["[0]" name] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." code]] + ["[0]" code]] [math [number ["n" nat]]] - ["." type - ["." check]]]] - ["." // "_" - ["#." type] - ["#." primitive] - ["#." inference] - ["/#" // "_" - ["#." extension] + ["[0]" type + ["[0]" check]]]] + ["[0]" // "_" + ["[1][0]" type] + ["[1][0]" primitive] + ["[1][0]" inference] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Tag Analysis Operation Phase]}] [/// - ["#" phase] + ["[1]" phase] [meta [archive {"+" [Archive]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux index 33c58b397..7a5bde817 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux @@ -4,17 +4,17 @@ [abstract [monad {"+" [do]}]] [control - ["." function] - ["." try]] + ["[0]" function] + ["[0]" try]] [type - ["." check {"+" [Check]}]] - ["." meta]]] - ["." /// "_" - ["#." extension] + ["[0]" check {"+" [Check]}]] + ["[0]" meta]]] + ["[0]" /// "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Operation]}] [/// - ["#" phase]]]]) + ["[1]" phase]]]]) (def: .public (with_type expected) (All (_ a) (-> Type (Operation a) (Operation a))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux index 652330748..7a42fbb7e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux @@ -1,26 +1,26 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix monoid)]]]]] - ["." // "_" - ["#." extension] - ["#." analysis - ["#/." type]] - ["/#" // "_" + ["[0]" list ("[1]\[0]" mix monoid)]]]]] + ["[0]" // "_" + ["[1][0]" extension] + ["[1][0]" analysis + ["[1]/[0]" type]] + ["/[1]" // "_" ["/" directive {"+" [Phase]}] - ["#." analysis - ["." evaluation] - ["#/." macro {"+" [Expander]}]] + ["[1][0]" analysis + ["[0]" evaluation] + ["[1]/[0]" macro {"+" [Expander]}]] [/// ["//" phase] [reference {"+" []} diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux index 4812e38e3..637c7e0a6 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux @@ -4,18 +4,18 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text ("#\." order) + ["[0]" product] + ["[0]" text ("[1]\[0]" order) ["%" format {"+" [Format format]}]] [collection - ["." list] - ["." dictionary {"+" [Dictionary]}]]]]] + ["[0]" list] + ["[0]" dictionary {"+" [Dictionary]}]]]]] [///// ["//" phase] [meta diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux index 1cba7387f..7cc98e804 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux @@ -3,12 +3,12 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [//// [analysis {"+" [Bundle]} [evaluation {"+" [Eval]}]]] - ["." / "_" - ["#." lux]]) + ["[0]" / "_" + ["[1][0]" lux]]) (def: .public (bundle eval host_specific) (-> Eval Bundle Bundle) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux index 7f013b821..199bac7ce 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" common_lisp]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux index d0e1c2fa4..f5f47f98d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" js]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux index fc78d4fdb..8591286fb 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux @@ -1,59 +1,59 @@ (.module: [library [lux {"-" [Type Module primitive type char int]} - ["." ffi {"+" [import:]}] - ["." meta] + ["[0]" ffi {"+" [import:]}] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe - ["." maybe] - ["." try {"+" [Try]} ("#\." monad)] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" monad)] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" code {"+" [Parser]}] + ["<[0]>" text]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix monad monoid)] - ["." array] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" mix monad monoid)] + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat]]] [target - ["." jvm "_" - [".!" reflection] + ["[0]" jvm "_" + ["[0]!" reflection] [encoding [name {"+" [External]}]] - ["#" type {"+" [Type Argument Typed]} ("#\." equivalence) - ["." category {"+" [Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method]}] - ["." box] - ["." reflection] - ["." descriptor] - ["." signature] - ["#_." parser] - ["#_." alias {"+" [Aliasing]}] - [".T" lux {"+" [Mapping]}]]]] - ["." type - ["." check {"+" [Check]} ("#\." monad)]]]] - ["." // "_" - ["#." lux {"+" [custom]}] - ["/#" // - ["#." bundle] - ["/#" // "_" + ["[1]" type {"+" [Type Argument Typed]} ("[1]\[0]" equivalence) + ["[0]" category {"+" [Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method]}] + ["[0]" box] + ["[0]" reflection] + ["[0]" descriptor] + ["[0]" signature] + ["[1]_[0]" parser] + ["[1]_[0]" alias {"+" [Aliasing]}] + ["[0]T" lux {"+" [Mapping]}]]]] + ["[0]" type + ["[0]" check {"+" [Check]} ("[1]\[0]" monad)]]]] + ["[0]" // "_" + ["[1][0]" lux {"+" [custom]}] + ["/[1]" // + ["[1][0]" bundle] + ["/[1]" // "_" [analysis - [".A" type] - [".A" inference] - ["." scope]] - ["/#" // "_" - ["#." analysis {"+" [Analysis Operation Phase Handler Bundle]}] - ["#." synthesis] + ["[0]A" type] + ["[0]A" inference] + ["[0]" scope]] + ["/[1]" // "_" + ["[1][0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[1][0]" synthesis] [/// - ["." phase ("#\." monad)] + ["[0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]} [descriptor {"+" [Module]}]]]]]]]]) @@ -61,18 +61,18 @@ (import: java/lang/ClassLoader) (import: java/lang/Object - ["#::." + ["[1]::[0]" (equals [java/lang/Object] boolean)]) (import: java/lang/reflect/Type) (import: (java/lang/reflect/TypeVariable d) - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getBounds [] [java/lang/reflect/Type])]) (import: java/lang/reflect/Modifier - ["#::." + ["[1]::[0]" ("static" isStatic [int] boolean) ("static" isFinal [int] boolean) ("static" isInterface [int] boolean) @@ -81,7 +81,7 @@ (import: java/lang/annotation/Annotation) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getModifiers [] int) (getDeclaringClass [] (java/lang/Class java/lang/Object)) @@ -92,7 +92,7 @@ (getDeclaredAnnotations [] [java/lang/annotation/Annotation])]) (import: (java/lang/reflect/Constructor c) - ["#::." + ["[1]::[0]" (getModifiers [] int) (getDeclaringClass [] (java/lang/Class c)) (getTypeParameters [] [(java/lang/reflect/TypeVariable (java/lang/reflect/Constructor c))]) @@ -101,7 +101,7 @@ (getDeclaredAnnotations [] [java/lang/annotation/Annotation])]) (import: (java/lang/Class c) - ["#::." + ["[1]::[0]" ("static" forName [java/lang/String] "try" (java/lang/Class java/lang/Object)) (getName [] java/lang/String) (getModifiers [] int) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux index 83aad6970..dd7d43516 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" lua]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: Nil (for {@.lua ffi.Nil} diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux index f83870333..bf517b526 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux @@ -2,35 +2,35 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat]]] [type - ["." check]] - ["." meta]]] - ["." /// - ["#." bundle] - ["/#" // "_" + ["[0]" check]] + ["[0]" meta]]] + ["[0]" /// + ["[1][0]" bundle] + ["/[1]" // "_" [analysis - [".A" type]] + ["[0]A" type]] [// - ["#." analysis {"+" [Analysis Operation Phase Handler Bundle]} + ["[1][0]" analysis {"+" [Analysis Operation Phase Handler Bundle]} [evaluation {"+" [Eval]}]] [/// - ["#" phase] + ["[1]" phase] [meta [archive {"+" [Archive]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux index 631e22949..227bc4539 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" php]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux index 6b43a1179..2f07f677b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" python]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux index b9a92f5fe..f0e6cb835 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" r]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux index bcb639c95..d267ca612 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" ruby]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux index 0e149963c..688803a33 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" scheme]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux index 07efebff3..b8c30a7bb 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux @@ -4,11 +4,11 @@ [abstract [monad {"+" [do]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]]]] [// {"+" [Handler Bundle]}]) (def: .public empty diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux index 8f98a4a0c..6dc2b393d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux @@ -1,65 +1,65 @@ (.module: [library [lux {"-" [Type Definition]} - ["." host] + ["[0]" host] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["<>" parser ("#\." monad) + ["<>" parser ("[1]\[0]" monad) ["<c>" code {"+" [Parser]}] ["<t>" text]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary] - ["." row]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary] + ["[0]" row]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i32]]] + ["[0]" i32]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." attribute] - ["." field] - ["." version] - ["." class] - ["." constant - ["." pool {"+" [Resource]}]] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" attribute] + ["[0]" field] + ["[0]" version] + ["[0]" class] + ["[0]" constant + ["[0]" pool {"+" [Resource]}]] [encoding - ["." name]] - ["." type {"+" [Type Constraint Argument Typed]} + ["[0]" name]] + ["[0]" type {"+" [Type Constraint Argument Typed]} [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] - [".T" lux {"+" [Mapping]}] - ["." signature] - ["." descriptor {"+" [Descriptor]}] - ["." parser]]]] + ["[0]T" lux {"+" [Mapping]}] + ["[0]" signature] + ["[0]" descriptor {"+" [Descriptor]}] + ["[0]" parser]]]] [tool [compiler - ["." analysis] - ["." synthesis] - ["." generation] - ["." directive {"+" [Handler Bundle]}] - ["." phase + ["[0]" analysis] + ["[0]" synthesis] + ["[0]" generation] + ["[0]" directive {"+" [Handler Bundle]}] + ["[0]" phase [analysis - [".A" type]] - ["." generation + ["[0]A" type]] + ["[0]" generation [jvm [runtime {"+" [Anchor Definition]}]]] - ["." extension - ["." bundle] + ["[0]" extension + ["[0]" bundle] [analysis - ["." jvm]] + ["[0]" jvm]] [directive ["/" lux]]]]]] [type - ["." check {"+" [Check]}]]]]) + ["[0]" check {"+" [Check]}]]]]) (type: Operation (directive.Operation Anchor (Bytecode Any) Definition)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux index c1c0ee476..c9a050c6d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux @@ -1,47 +1,47 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [io {"+" [IO]}] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [macro - ["." code]] + ["[0]" code]] [math [number ["n" nat]]] - ["." type {"+" [:sharing]} - ["." check]]]] - ["." /// {"+" [Extender]} - ["#." bundle] - ["#." analysis] - ["/#" // "_" + ["[0]" type {"+" [:sharing]} + ["[0]" check]]]] + ["[0]" /// {"+" [Extender]} + ["[1][0]" bundle] + ["[1][0]" analysis] + ["/[1]" // "_" [analysis - ["." module] - [".A" type]] - ["/#" // "_" - ["#." analysis + ["[0]" module] + ["[0]A" type]] + ["/[1]" // "_" + ["[1][0]" analysis [macro {"+" [Expander]}] - ["#/." evaluation]] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["#." directive {"+" [Import Requirements Phase Operation Handler Bundle]}] - ["#." program {"+" [Program]}] + ["[1]/[0]" evaluation]] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation {"+" [Context]}] + ["[1][0]" directive {"+" [Import Requirements Phase Operation Handler Bundle]}] + ["[1][0]" program {"+" [Program]}] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive {"+" [Archive]}]]]]]]) + ["[0]" archive {"+" [Archive]}]]]]]]) (def: .public (custom [syntax handler]) (All (_ anchor expression directive s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux index 0992cd220..269dcfc5d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [common_lisp diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux index e10996079..facb40e7e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux @@ -2,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" common_lisp {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" common_lisp "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux index 5a3e8bc9a..6d5f5fdd5 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" common_lisp {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" common_lisp "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux index 4f4bb191f..967a2df34 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [js diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux index 6e910d32c..1072bffe4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux @@ -2,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary]]] [math [number ["f" frac]]] ["@" target ["_" js {"+" [Literal Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" js "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function]]] [// [analysis {"+" []}] - ["." synthesis {"+" [%synthesis]}] + ["[0]" synthesis {"+" [%synthesis]}] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux index a78bfe796..49d99437e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux @@ -2,33 +2,33 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [target ["_" js {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" js "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: array::new (Unary Expression) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux index cbd03e12b..77c0d6572 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [jvm diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux index 56daa1075..2ff3fd02a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux @@ -2,43 +2,43 @@ [library [lux {"-" [Type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [number - ["." i32] + ["[0]" i32] ["f" frac]] [collection - ["." list ("#\." monad)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" dictionary]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] [encoding - ["." signed {"+" [S4]}]] - ["." type {"+" [Type]} + ["[0]" signed {"+" [S4]}]] + ["[0]" type {"+" [Type]} [category {"+" [Primitive Class]}]]]]]] - ["." ///// "_" + ["[0]" ///// "_" [generation [extension {"+" [Nullary Unary Binary Trinary Variadic nullary unary binary trinary variadic]}] ["///" jvm "_" - ["#." value] - ["#." runtime {"+" [Operation Phase Bundle Handler]}] - ["#." function "_" - ["#" abstract]]]] + ["[1][0]" value] + ["[1][0]" runtime {"+" [Operation Phase Bundle Handler]}] + ["[1][0]" function "_" + ["[1]" abstract]]]] [extension - ["#extension" /] - ["#." bundle]] + ["[1]extension" /] + ["[1][0]" bundle]] [// - ["/#." synthesis {"+" [Synthesis %synthesis]}] + ["/[1][0]" synthesis {"+" [Synthesis %synthesis]}] [/// - ["#" phase] + ["[1]" phase] [meta [archive {"+" [Archive]}]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux index 847609d5d..ac5f0fce9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux @@ -2,72 +2,72 @@ [library [lux {"-" [Type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser ["<t>" text] ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [number - ["." i32]] + ["[0]" i32]] [collection - ["." list ("#\." monad)] - ["." dictionary {"+" [Dictionary]}] - ["." set] - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm - ["." version] - ["." modifier ("#\." monoid)] - ["." method {"+" [Method]}] - ["." class {"+" [Class]}] + ["[0]" version] + ["[0]" modifier ("[1]\[0]" monoid)] + ["[0]" method {"+" [Method]}] + ["[0]" class {"+" [Class]}] [constant [pool {"+" [Resource]}]] [encoding - ["." name]] - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad) + ["[0]" name]] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad) ["__" instruction {"+" [Primitive_Array_Type]}]] - ["." type {"+" [Type Typed Argument]} - ["." category {"+" [Void Value' Value Return' Return Primitive Object Array Var Parameter]}] - ["." box] - ["." reflection] - ["." signature] - ["." parser]]]]]] - ["." // "_" + ["[0]" type {"+" [Type Typed Argument]} + ["[0]" category {"+" [Void Value' Value Return' Return Primitive Object Array Var Parameter]}] + ["[0]" box] + ["[0]" reflection] + ["[0]" signature] + ["[0]" parser]]]]]] + ["[0]" // "_" [common {"+" [custom]}] - ["///#" //// "_" + ["///[1]" //// "_" [generation [extension {"+" [Nullary Unary Binary Trinary Variadic nullary unary binary trinary variadic]}] ["///" jvm - ["#." runtime {"+" [Operation Bundle Phase Handler]}] - ["#." reference] + ["[1][0]" runtime {"+" [Operation Bundle Phase Handler]}] + ["[1][0]" reference] [function [field [variable - ["." foreign]]]]]] + ["[0]" foreign]]]]]] [extension - ["#." bundle] + ["[1][0]" bundle] [analysis ["/" jvm]]] - ["/#" // "_" + ["/[1]" // "_" [analysis {"+" [Environment]}] - ["#." synthesis {"+" [Synthesis Path %synthesis]}] - ["#." generation] + ["[1][0]" synthesis {"+" [Synthesis Path %synthesis]}] + ["[1][0]" generation] [/// - ["#" phase] + ["[1]" phase] [reference - ["#." variable {"+" [Variable]}]] + ["[1][0]" variable {"+" [Variable]}]] [meta - ["." archive {"+" [Archive]}]]]]]]) + ["[0]" archive {"+" [Archive]}]]]]]]) (template [<name> <0> <1>] [(def: <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux index 55320a5dd..37a52ca08 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [lua diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux index f40334ae1..e71de0758 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux @@ -2,44 +2,44 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" lua {"+" [Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" lua "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux index 336736dac..4cbfa5401 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" lua {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" lua "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: array::new (Unary Expression) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux index 1815d08fa..1e07b97ce 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [php diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux index 9c58243d3..d5f740ed4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux @@ -2,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" php {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" php "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux index aaff32f29..c13c86c19 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" php {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" php "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new size) (Unary Expression) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux index 17c4e2402..54ab164b6 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [python diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux index b6345fac4..03cb557dc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux @@ -2,46 +2,46 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser - ["<.>" synthesis {"+" [Parser]}]]] + ["<[0]>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] [target ["_" python {"+" [Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation - ["." reference] + ["[0]" reference] [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" python "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop]]] [// [analysis {"+" []}] - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (statement expression archive synthesis) Phase! diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux index e802fcfe8..422a21b47 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux @@ -2,33 +2,33 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [target ["_" python {"+" [Expression SVar]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" python "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new size) (Unary (Expression Any)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux index 256bca1b1..56a20b22c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [r diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux index 8515f321b..68725c83a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux @@ -2,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" r {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" r "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux index 38613dbe3..38b20cb41 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" r {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" r "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux index e638baf9e..5c4160d69 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [ruby diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux index b570e2bf9..a253cb8de 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux @@ -2,44 +2,44 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] [target ["_" ruby {"+" [Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" ruby "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux index 1a0c27c4d..f44831709 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" ruby {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" ruby "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new [size]) (Unary Expression) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux index 83b5f4a56..52cafa261 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [scheme diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux index 62edb14aa..bc2ad5cba 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux @@ -2,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" scheme {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" scheme "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux index 10992b491..b389f72dd 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" scheme {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" scheme "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new size) (Unary Expression) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux index 69be9bd6e..e68f8b780 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux @@ -2,7 +2,7 @@ [library [lux "*"]] [// - ["." bundle] + ["[0]" bundle] [/// [synthesis {"+" [Bundle]}]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux index 00f493422..1b1f29f46 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux @@ -3,23 +3,23 @@ [lux "*" [abstract [monad {"+" [do]}]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux index 34208d7f3..90f67a68a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux @@ -2,36 +2,36 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix monoid)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix monoid)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" common_lisp {"+" [Expression Var/1]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux index 6e255664b..ebdd43f89 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux @@ -3,11 +3,11 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [// [runtime {"+" [Bundle]}]] [/ - ["." common]]) + ["[0]" common]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux index ec5baaf7f..6144a74c6 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux @@ -2,26 +2,26 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data - ["." product] + ["[0]" product] [number ["f" frac]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [target ["_" common_lisp {"+" [Expression]}]]]] - ["." /// "_" - ["#." runtime {"+" [Operation Phase Handler Bundle]}] - ["#." primitive] + ["[0]" /// "_" + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle]}] + ["[1][0]" primitive] [// [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] [// [extension - ["." bundle]]]]]) + ["[0]" bundle]]]]]) (def: lux_procs Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux index 27d017a8a..5f38c7bad 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux @@ -2,30 +2,30 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target ["_" common_lisp {"+" [Expression Var/1]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux index 670fb1b12..bae37c835 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux @@ -2,31 +2,31 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] [target ["_" common_lisp {"+" [Expression]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux index 0ee7c1e55..0f7c76ed8 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux @@ -1,42 +1,42 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] - ["." encoding]] + ["[0]" encoding]] [collection - ["." list ("#\." functor monoid)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor monoid)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" common_lisp {"+" [Expression Computation Literal]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant]}] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (def: module_id 0) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux index d370aca6a..eb78e6402 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" common_lisp {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux index afb6af8a5..962323b3d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux @@ -2,24 +2,24 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [collection - ["." list ("#\." functor)]]] - ["." meta] - ["." macro {"+" [with_identifiers]} - ["." code] + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" meta] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] [syntax {"+" [syntax:]}]]]] - ["." /// "_" - ["#." extension] + ["[0]" /// "_" + ["[1][0]" extension] [// [synthesis {"+" [Synthesis]}] - ["." generation] + ["[0]" generation] [/// - ["#" phase]]]]) + ["[1]" phase]]]]) (syntax: (Vector [size <code>.nat elemT <code>.any]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux index c37946c77..e6aa9cdce 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" js]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase Phase!]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [js - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux index 2ed5094bc..5f634c533 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux @@ -2,33 +2,33 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text] + ["[0]" text] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]] [target ["_" js {"+" [Expression Computation Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["//[1]" /// "_" [reference [variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux index 44001087c..f9e8d9c10 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux @@ -2,28 +2,28 @@ [library [lux {"-" [Variant Tuple function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" js {"+" [Expression Computation Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux index 461e565b0..52600eaeb 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux @@ -2,26 +2,26 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]] [target ["_" js {"+" [Computation Var Expression Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." case] - ["///#" //// "_" + ["[1][0]" case] + ["///[1]" //// "_" [synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [reference [variable {"+" [Register]}]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux index ba2d683f0..e8145500a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux @@ -3,8 +3,8 @@ [lux {"-" [i64]} [target ["_" js {"+" [Computation]}]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" // "_" + ["[1][0]" runtime]]) (def: .public bit _.boolean) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux index 08160d998..58bf53a29 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux @@ -1,28 +1,28 @@ (.module: [library [lux {"-" [i64]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] [target ["_" js {"+" [Expression Var Computation Statement]}]] [tool @@ -30,18 +30,18 @@ [language [lux ["$" version]]]]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux index 84af08804..c4284d345 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux @@ -2,17 +2,17 @@ [library [lux {"-" [Variant Tuple]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" js {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux index 07045ccdd..c2a125d4a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux @@ -3,21 +3,21 @@ [lux "*" [abstract [monad {"+" [do]}]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop] - ["//#" /// "_" - ["#." extension] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop] + ["//[1]" /// "_" + ["[1][0]" extension] [// - ["." synthesis] + ["[0]" synthesis] [/// - ["." reference] - ["#" phase ("#\." monad)]]]]]) + ["[0]" reference] + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (generate archive synthesis) Phase diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux index 61f9ce83b..075e8d68a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux @@ -2,30 +2,30 @@ [library [lux {"-" [Type if let case int]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data [number - ["." i32] + ["[0]" i32] ["n" nat]] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] - ["." type {"+" [Type]} + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] + ["[0]" type {"+" [Type]} [category {"+" [Method]}]]]]]] - ["." // "_" - ["#." type] - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." value] - ["#." structure] + ["[0]" // "_" + ["[1][0]" type] + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" value] + ["[1][0]" structure] [//// - ["." synthesis {"+" [Path Synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [Path Synthesis]}] + ["[0]" generation] [/// - ["." phase ("operation\." monad)] + ["[0]" phase ("operation\[0]" monad)] [reference [variable {"+" [Register]}]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux index d4a2c34f4..d1785ac0a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux @@ -4,14 +4,14 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." try {"+" [Try]}]] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]}]] [data [binary {"+" [Binary]}] [text ["%" format {"+" [format]}]]] [world - ["." file {"+" [File]}]]]]) + ["[0]" file {"+" [File]}]]]]) (def: extension ".class") diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux index d8adc4f60..0aa307c72 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux @@ -2,59 +2,59 @@ [library [lux {"-" [Type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [number - ["." i32] + ["[0]" i32] ["n" nat]] [collection - ["." list ("#\." monoid functor)] - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" list ("[1]\[0]" monoid functor)] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm - ["." version] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] - ["." class {"+" [Class]}] - ["." type {"+" [Type]} + ["[0]" version] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" field {"+" [Field]}] + ["[0]" method {"+" [Method]}] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] + ["[0]" class {"+" [Class]}] + ["[0]" type {"+" [Type]} [category {"+" [Return' Value']}] - ["." reflection]] - ["." constant + ["[0]" reflection]] + ["[0]" constant [pool {"+" [Resource]}]] [encoding - ["." name {"+" [External Internal]}] - ["." unsigned]]]] + ["[0]" name {"+" [External Internal]}] + ["[0]" unsigned]]]] [tool [compiler [meta - ["." archive {"+" [Archive]}]]]]]] - ["." / "_" - ["#." abstract] + ["[0]" archive {"+" [Archive]}]]]]]] + ["[0]" / "_" + ["[1][0]" abstract] [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." foreign] - ["#." partial]]] + ["[1][0]" foreign] + ["[1][0]" partial]]] [method - ["#." init] - ["#." new] - ["#." implementation] - ["#." reset] - ["#." apply]] - ["/#" // "_" - ["#." runtime {"+" [Operation Phase Generator]}] + ["[1][0]" init] + ["[1][0]" new] + ["[1][0]" implementation] + ["[1][0]" reset] + ["[1][0]" apply]] + ["/[1]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis Abstraction Apply]}] - ["." generation] + ["[0]" generation] [/// - ["." arity {"+" [Arity]}] - ["." phase] + ["[0]" arity {"+" [Arity]}] + ["[0]" phase] [reference [variable {"+" [Register]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux index 653af8aaf..50f29310f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux @@ -6,12 +6,12 @@ ["%" format]]] [target [jvm - ["." type {"+" [Type]} + ["[0]" type {"+" [Type]} [category {"+" [Method]}]]]]]] [// [field [constant - ["." arity]]]]) + ["[0]" arity]]]]) (def: .public artifact_id 1) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux index abbf547d4..510e77552 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux @@ -3,11 +3,11 @@ [lux {"-" [Type type]} [data [collection - ["." row]]] + ["[0]" row]]] [target [jvm - ["." field {"+" [Field]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] + ["[0]" field {"+" [Field]}] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] [type {"+" [Type]} [category {"+" [Value]}]] [constant diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux index 365e68c2c..ede38774c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux @@ -3,11 +3,11 @@ [lux {"-" [type]} [target [jvm - ["." type] - ["." field {"+" [Field]}] + ["[0]" type] + ["[0]" field {"+" [Field]}] [constant [pool {"+" [Resource]}]]]]]] - ["." // + ["[0]" // [///////// [arity {"+" [Arity]}]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux index 7a8493260..d62a1f5d3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux @@ -3,20 +3,20 @@ [lux {"-" [Type type]} [data [collection - ["." list ("#\." functor)] - ["." row]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] [target [jvm - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" field {"+" [Field]}] ["_" bytecode {"+" [Bytecode]}] [type {"+" [Type]} [category {"+" [Value Class]}]] [constant [pool {"+" [Resource]}]]]]]] - ["." //// "_" - ["#." type] - ["#." reference] + ["[0]" //// "_" + ["[1][0]" type] + ["[1][0]" reference] [////// [reference [variable {"+" [Register]}]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux index f2c1e2189..c21896ac9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux @@ -2,16 +2,16 @@ [library [lux {"-" [type]} [control - ["." try]] + ["[0]" try]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding [name {"+" [External]}] - ["." signed]]]]]] - ["." //// "_" - ["#." abstract]]) + ["[0]" signed]]]]]] + ["[0]" //// "_" + ["[1][0]" abstract]]) (def: .public field "partials") (def: .public type type.int) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux index 53a486d88..f1f03af6c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux @@ -3,19 +3,19 @@ [lux {"-" [Type]} [data [collection - ["." list] - ["." row]]] + ["[0]" list] + ["[0]" row]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." field {"+" [Field]}] + ["[0]" field {"+" [Field]}] [constant [pool {"+" [Resource]}]] [type {"+" [Type]} [category {"+" [Value Class]}]]]]]] - ["." // - ["///#" //// "_" - ["#." reference] + ["[0]" // + ["///[1]" //// "_" + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux index 1755ea7df..e2bee647f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux @@ -2,31 +2,31 @@ [library [lux {"-" [Type]} [abstract - ["." monad]] + ["[0]" monad]] [data [number ["n" nat]] [collection - ["." list ("#\." functor)] - ["." row]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] [target [jvm - ["." field {"+" [Field]}] - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] + ["[0]" field {"+" [Field]}] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] [type {"+" [Type]} [category {"+" [Class]}]] [constant [pool {"+" [Resource]}]]]]]] - ["." / "_" - ["#." count] - ["/#" // - ["/#" // "_" + ["[0]" / "_" + ["[1][0]" count] + ["/[1]" // + ["/[1]" // "_" [constant - ["#." arity]] - ["//#" /// "_" - ["#." reference] + ["[1][0]" arity]] + ["//[1]" /// "_" + ["[1][0]" reference] [////// - ["." arity {"+" [Arity]}] + ["[0]" arity {"+" [Arity]}] [reference [variable {"+" [Register]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux index 6463a0983..1269972ec 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux @@ -3,8 +3,8 @@ [lux "*" [target [jvm - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." method {"+" [Method]}]]]]]) + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" method {"+" [Method]}]]]]]) (def: .public modifier (Modifier Method) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux index bb78e1b8a..a16c047e7 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux @@ -2,43 +2,43 @@ [library [lux {"-" [Type type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data [number ["n" nat] ["i" int] - ["." i32]] + ["[0]" i32]] [collection - ["." list ("#\." monoid functor)]]] + ["[0]" list ("[1]\[0]" monoid functor)]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] - ["." method {"+" [Method]}] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] + ["[0]" method {"+" [Method]}] [constant [pool {"+" [Resource]}]] [encoding - ["." signed]] - ["." type {"+" [Type]} - ["." category {"+" [Class]}]]]]]] - ["." // - ["#." reset] - ["#." implementation] - ["#." init] - ["/#" // "_" - ["#." abstract] + ["[0]" signed]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Class]}]]]]]] + ["[0]" // + ["[1][0]" reset] + ["[1][0]" implementation] + ["[1][0]" init] + ["/[1]" // "_" + ["[1][0]" abstract] [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." partial - ["#/." count]] - ["#." foreign]]] - ["/#" // "_" - ["#." runtime] - ["#." value] - ["#." reference] + ["[1][0]" partial + ["[1]/[0]" count]] + ["[1][0]" foreign]]] + ["/[1]" // "_" + ["[1][0]" runtime] + ["[1][0]" value] + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux index 12c181265..ae02754ae 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux @@ -3,18 +3,18 @@ [lux {"-" [Type type]} [data [collection - ["." list]]] + ["[0]" list]]] [target [jvm - ["." method {"+" [Method]}] + ["[0]" method {"+" [Method]}] ["_" bytecode {"+" [Label Bytecode]}] [constant [pool {"+" [Resource]}]] - ["." type {"+" [Type]} - ["." category]]]]]] - ["." // - ["//#" /// "_" - ["#." type] + ["[0]" type {"+" [Type]} + ["[0]" category]]]]]] + ["[0]" // + ["//[1]" /// "_" + ["[1][0]" type] [////// [arity {"+" [Arity]}]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux index 05cb6db7d..e39e582db 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux @@ -2,42 +2,42 @@ [library [lux {"-" [Type type]} [abstract - ["." monad]] + ["[0]" monad]] [control - ["." try]] + ["[0]" try]] [data [number ["n" nat]] [collection - ["." list ("#\." monoid functor)]]] + ["[0]" list ("[1]\[0]" monoid functor)]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." method {"+" [Method]}] + ["[0]" method {"+" [Method]}] [encoding - ["." unsigned]] + ["[0]" unsigned]] [constant [pool {"+" [Resource]}]] - ["." type {"+" [Type]} - ["." category {"+" [Class Value]}]]]]]] - ["." // - ["#." implementation] - ["/#" // "_" - ["#." abstract] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Class Value]}]]]]]] + ["[0]" // + ["[1][0]" implementation] + ["/[1]" // "_" + ["[1][0]" abstract] [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." foreign] - ["#." partial]]] - ["/#" // "_" - ["#." type] - ["#." reference] + ["[1][0]" foreign] + ["[1][0]" partial]]] + ["/[1]" // "_" + ["[1][0]" type] + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] [/// - ["." arity {"+" [Arity]}] + ["[0]" arity {"+" [Arity]}] [reference [variable {"+" [Register]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux index 85e19d830..0e8365945 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux @@ -2,45 +2,45 @@ [library [lux {"-" [Type type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [number ["n" nat]] [collection - ["." list]]] + ["[0]" list]]] [target [jvm - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] + ["[0]" field {"+" [Field]}] + ["[0]" method {"+" [Method]}] ["_" bytecode {"+" [Bytecode]}] - ["." constant + ["[0]" constant [pool {"+" [Resource]}]] [type {"+" [Type]} - ["." category {"+" [Class Value Return]}]]]] + ["[0]" category {"+" [Class Value Return]}]]]] [tool [compiler [meta - ["." archive {"+" [Archive]}]]]]]] - ["." // - ["#." init] - ["#." implementation] - ["/#" // "_" + ["[0]" archive {"+" [Archive]}]]]]]] + ["[0]" // + ["[1][0]" init] + ["[1][0]" implementation] + ["/[1]" // "_" [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." foreign] - ["#." partial]]] - ["/#" // "_" + ["[1][0]" foreign] + ["[1][0]" partial]]] + ["/[1]" // "_" [runtime {"+" [Operation Phase]}] - ["#." value] - ["#." reference] + ["[1][0]" value] + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] [/// - ["." arity {"+" [Arity]}] - ["." phase]]]]]]) + ["[0]" arity {"+" [Arity]}] + ["[0]" phase]]]]]]) (def: .public (instance' foreign_setup class environment arity) (-> (List (Bytecode Any)) (Type Class) (Environment Synthesis) Arity (Bytecode Any)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux index 502a48fd9..f406c2879 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux @@ -3,28 +3,28 @@ [lux {"-" [Type type]} [data [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target [jvm - ["." method {"+" [Method]}] + ["[0]" method {"+" [Method]}] ["_" bytecode {"+" [Bytecode]}] [constant [pool {"+" [Resource]}]] - ["." type {"+" [Type]} - ["." category {"+" [Class]}]]]]]] - ["." // - ["#." new] - ["/#" // "_" + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Class]}]]]]]] + ["[0]" // + ["[1][0]" new] + ["/[1]" // "_" [field [variable - ["#." foreign]]] - ["/#" // "_" - ["#." reference] + ["[1][0]" foreign]]] + ["/[1]" // "_" + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] [/// - ["." arity {"+" [Arity]}]]]]]]) + ["[0]" arity {"+" [Arity]}]]]]]]) (def: .public name "reset") diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux index 0a65489d9..df781631c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux @@ -1,45 +1,45 @@ (.module: [library [lux {"-" [Definition]} - ["." ffi {"+" [import: do_to object]}] + ["[0]" ffi {"+" [import: do_to object]}] [abstract [monad {"+" [do]}]] [control pipe - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." atom {"+" [Atom atom]}]]] + ["[0]" atom {"+" [Atom atom]}]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}]] [collection - ["." array] - ["." dictionary {"+" [Dictionary]}] - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm - ["." loader {"+" [Library]}] + ["[0]" loader {"+" [Library]}] ["_" bytecode {"+" [Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] - ["." version] - ["." class {"+" [Class]}] - ["." encoding "_" - ["#/." name]] - ["." type - ["." descriptor]]]] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" field {"+" [Field]}] + ["[0]" method {"+" [Method]}] + ["[0]" version] + ["[0]" class {"+" [Class]}] + ["[0]" encoding "_" + ["[1]/[0]" name]] + ["[0]" type + ["[0]" descriptor]]]] [tool [compiler - ["." name]]]]] - ["." // "_" - ["#." runtime {"+" [Definition]}]] + ["[0]" name]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Definition]}]] ) (import: java/lang/reflect/Field diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux index d42c88f53..c98f530a2 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux @@ -2,26 +2,26 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data - ["." product] + ["[0]" product] [number ["n" nat]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)]]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." value] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" value] [//// - ["." synthesis {"+" [Path Synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [Path Synthesis]}] + ["[0]" generation] [/// - ["." phase] + ["[0]" phase] [reference [variable {"+" [Register]}]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux index a2019c13c..3edc41c03 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux @@ -1,17 +1,17 @@ (.module: [library [lux {"-" [i64]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [monad {"+" [do]}]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding - ["." signed]]]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" signed]]]]]] + ["[0]" // "_" + ["[1][0]" runtime]]) (def: $Boolean (type.class "java.lang.Boolean" (list))) (def: $Long (type.class "java.lang.Long" (list))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux index 536b23ca1..8ba5655a1 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux @@ -4,26 +4,26 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data [collection - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." method {"+" [Method]}] - ["." version] - ["." class {"+" [Class]}] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" method {"+" [Method]}] + ["[0]" version] + ["[0]" class {"+" [Class]}] [encoding - ["." name]] - ["." type - ["." reflection]]]]]] - ["." // - ["#." runtime {"+" [Definition]}] - ["#." function/abstract]]) + ["[0]" name]] + ["[0]" type + ["[0]" reflection]]]]]] + ["[0]" // + ["[1][0]" runtime {"+" [Definition]}] + ["[1][0]" function/abstract]]) (def: .public class "LuxProgram") diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux index 85fec6709..931f8fd72 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux @@ -9,20 +9,20 @@ [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding - ["." unsigned]]]]]] - ["." // "_" - ["#." runtime {"+" [Operation]}] - ["#." value] - ["#." type] - ["//#" /// "_" + ["[0]" unsigned]]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation]}] + ["[1][0]" value] + ["[1][0]" type] + ["//[1]" /// "_" [// - ["." generation] + ["[0]" generation] [/// - ["#" phase ("operation\." monad)] + ["[1]" phase ("operation\[0]" monad)] [reference - ["." variable {"+" [Register Variable]}]] + ["[0]" variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux index 392e36692..ad6166d3f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux @@ -2,56 +2,56 @@ [library [lux {"-" [Type Definition Label case false true try]} [abstract - ["." monad {"+" [do]}] - ["." enum]] + ["[0]" monad {"+" [do]}] + ["[0]" enum]] [control - ["." try]] + ["[0]" try]] [data [binary {"+" [Binary]}] [collection - ["." list ("#\." functor)] - ["." row]] - ["." format "_" - ["#" binary]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]] [text ["%" format {"+" [format]}]]] [math [number ["n" nat] - ["." i32] - ["." i64]]] + ["[0]" i32] + ["[0]" i64]]] [target - ["." jvm "_" + ["[0]" jvm "_" ["_" bytecode {"+" [Label Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] - ["#/." version] - ["." class {"+" [Class]}] - ["." constant + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" field {"+" [Field]}] + ["[0]" method {"+" [Method]}] + ["[1]/[0]" version] + ["[0]" class {"+" [Class]}] + ["[0]" constant [pool {"+" [Resource]}]] [encoding - ["." name]] - ["." type {"+" [Type]} - ["." category {"+" [Return' Value']}] - ["." reflection]]]]]] - ["." // "_" - ["#." type] - ["#." value] - ["#." function "_" - ["#" abstract] + ["[0]" name]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Return' Value']}] + ["[0]" reflection]]]]]] + ["[0]" // "_" + ["[1][0]" type] + ["[1][0]" value] + ["[1][0]" function "_" + ["[1]" abstract] [field [constant - ["#/." arity]] + ["[1]/[0]" arity]] [variable - ["#/." count]]]] - ["//#" /// "_" + ["[1]/[0]" count]]]] + ["//[1]" /// "_" [// - ["." version] - ["." synthesis] - ["." generation] + ["[0]" version] + ["[0]" synthesis] + ["[0]" generation] [/// - ["#" phase] + ["[1]" phase] [arity {"+" [Arity]}] [reference [variable {"+" [Register]}]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux index c243107b7..c3bb19132 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux @@ -2,26 +2,26 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [number - ["." i32]] + ["[0]" i32]] [collection - ["." list]]] + ["[0]" list]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding - ["." signed]]]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" signed]]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] + ["[1][0]" synthesis {"+" [Synthesis]}] [/// - ["." phase]]]]) + ["[0]" phase]]]]) (def: $Object (type.class "java.lang.Object" (list))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux index 7ad6dffdd..786c52d26 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux @@ -3,7 +3,7 @@ [lux "*" [target [jvm - ["." type]]]]]) + ["[0]" type]]]]]) (def: .public frac (type.class "java.lang.Double" (list))) (def: .public text (type.class "java.lang.String" (list))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux index badc179a7..cec3d3b97 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux @@ -4,9 +4,9 @@ [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type {"+" [Type]} ("#\." equivalence) + ["[0]" type {"+" [Type]} ("[1]\[0]" equivalence) [category {"+" [Primitive]}] - ["." box]]]]]]) + ["[0]" box]]]]]]) (def: .public field "value") diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux index 363f94d93..7cc28fb4d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" lua]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [lua - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 63ea61d7b..d21406763 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 @@ -2,31 +2,31 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [target ["_" lua {"+" [Expression Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) 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 4f40af927..dbae0c91b 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 @@ -2,30 +2,30 @@ [library [lux {"-" [Tuple Variant function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" lua {"+" [Var Expression Label Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) 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 83cd08060..57b7261ff 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 @@ -2,29 +2,29 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" lua {"+" [Var Expression Label Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference 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 af7eba43a..d2b823b85 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,42 +1,42 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" lua {"+" [Expression Location Var Computation Literal Label Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> 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 41cf85418..10be9ba18 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 @@ -2,17 +2,17 @@ [library [lux {"-" [Tuple Variant]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" lua {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux index c6b0decce..fae8d8d61 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux @@ -4,26 +4,26 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" php]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase Phase!]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux index b3db682aa..295d24457 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux @@ -2,35 +2,35 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["i" int]]] [target ["_" php {"+" [Expression Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux index 6e255664b..ebdd43f89 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux @@ -3,11 +3,11 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [// [runtime {"+" [Bundle]}]] [/ - ["." common]]) + ["[0]" common]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux index 07a9c41ab..2a821d617 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux @@ -2,27 +2,27 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [number ["f" frac]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [target ["_" php {"+" [Expression]}]]]] - ["." /// "_" - ["#." runtime {"+" [Operation Phase Handler Bundle]}] - ["#." primitive] + ["[0]" /// "_" + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle]}] + ["[1][0]" primitive] [// [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] [// [extension - ["." bundle]]]]]) + ["[0]" bundle]]]]]) (def: lux_procs Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux index c5febd5c4..f630ec274 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux @@ -2,30 +2,30 @@ [library [lux {"-" [Global function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" php {"+" [Var Global Expression Argument Label Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux index 307bb9718..055e107e0 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux @@ -2,32 +2,32 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat]]] [target ["_" php {"+" [Var Expression Label Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux index 1b5d3138d..d70ccee56 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux @@ -5,11 +5,11 @@ [pipe {"+" [cond> new>]}]] [math [number - ["." frac]]] + ["[0]" frac]]] [target ["_" php {"+" [Literal Expression]}]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" // "_" + ["[1][0]" runtime]]) (def: .public bit (-> Bit Literal) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux index e91f6a919..0fe181b78 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux @@ -1,42 +1,42 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" php {"+" [Expression Label Constant Var Computation Literal Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux index 5fa169955..69f687713 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [collection - ["." list]]] + ["[0]" list]]] [target ["_" php {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux index 6140dbc57..86433d927 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" python]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [python - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 b9b2b1eba..c4f914d01 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 @@ -2,35 +2,35 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat] ["i" int]]] [target ["_" python {"+" [Expression SVar Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator Phase! Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux index 7e7197047..fa9fc1656 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux @@ -2,34 +2,34 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" python {"+" [SVar Expression Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Environment Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase] + ["[1][0]" phase] [reference [variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]} - ["." artifact]]]]]]]) + ["[0]" artifact]]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux index 8f3496364..b84826a26 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux @@ -2,34 +2,34 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" python {"+" [Expression SVar Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["." synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]" synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [reference - ["#." variable {"+" [Register]}]]]]]]]) + ["[1][0]" variable {"+" [Register]}]]]]]]]) (def: (setup offset bindings body) (-> Register (List (Expression Any)) (Statement Any) (Statement Any)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux index c9c505798..7ba155bbd 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux @@ -3,8 +3,8 @@ [lux {"-" [i64]} [target ["_" python {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" // "_" + ["[1][0]" runtime]]) (template [<type> <name> <implementation>] [(def: .public <name> 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 e71d26058..bfdf279fa 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 @@ (.module: [library [lux {"-" [++]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} ["f" frac] - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" python {"+" [Expression SVar Computation Literal Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" ["$" version] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> 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 4ecbea30f..3d0903731 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 @@ -2,17 +2,17 @@ [library [lux {"-" [Variant Tuple]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" python {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux index 36950ea53..4a6d95239 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux @@ -5,23 +5,23 @@ [monad {"+" [do]}]] [target ["_" r]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux index 298daa8f7..83859e8be 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux @@ -2,37 +2,37 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int]]] [target ["_" r {"+" [Expression SVar]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux index c14be2795..87487db01 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux @@ -2,35 +2,35 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" r {"+" [Expression SVar]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]] [meta [archive - ["." artifact]]]]]]]) + ["[0]" artifact]]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux index ce3face36..02d6712ec 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux @@ -2,32 +2,32 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat]]] [target ["_" r]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux index 5d4361b81..2aa8b7645 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux @@ -3,8 +3,8 @@ [lux {"-" [i64]} [target ["_" r {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" // "_" + ["[1][0]" runtime]]) (template [<name> <type> <code>] [(def: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux index 94f19f5a0..3b820934f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux @@ -19,10 +19,10 @@ ["ls" synthesis] (host [r {"+" [Expression]}]))) [///] - (/// [".T" runtime] - [".T" case] - [".T" function] - [".T" loop])) + (/// ["[0]T" runtime] + ["[0]T" case] + ["[0]T" function] + ["[0]T" loop])) ... [Types] (type: .public Translator diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux index 416560b36..ea6f59abd 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux @@ -12,7 +12,7 @@ ["ls" synthesis] (host [ruby {"+" [Ruby Expression Statement]}]))) [///] - (/// [".T" runtime]) + (/// ["[0]T" runtime]) (// ["@" common])) ... (template [<name> <lua>] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux index 361552285..e7d794d5e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux @@ -1,45 +1,45 @@ (.module: [library [lux {"-" [Location ++ i64]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} ["n" nat] - ["i" int ("#\." interval)] - ["." i64]]] + ["i" int ("[1]\[0]" interval)] + ["[0]" i64]]] ["@" target ["_" r {"+" [SVar Expression]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant]}] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (def: module_id 0) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux index bbe263ee8..4d6562a4f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [collection - ["." list]]] + ["[0]" list]]] [target ["_" r {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) 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 5ccc49977..b256823f5 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 @@ -5,13 +5,13 @@ [data [text ["%" format {"+" [format]}]]]]] - ["." //// "_" - ["." version] - ["#." generation {"+" [Context]}] - ["//#" /// "_" - ["." reference {"+" [Reference]} - ["." variable {"+" [Register Variable]}]] - ["." phase ("#\." monad)] + ["[0]" //// "_" + ["[0]" version] + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" + ["[0]" reference {"+" [Reference]} + ["[0]" variable {"+" [Register Variable]}]] + ["[0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux index e0df52b0d..9202b75d3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" ruby]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase Phase!]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [ruby - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 1954b88e9..8d19caff8 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 @@ -2,37 +2,37 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat] ["i" int]]] [target ["_" ruby {"+" [Expression LVar Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator Phase! Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux index 022b449f0..108f98020 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux @@ -2,34 +2,34 @@ [library [lux {"-" [Variant Tuple function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" ruby {"+" [LVar GVar Expression Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Environment Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase] + ["[1][0]" phase] [reference [variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]} - ["." artifact]]]]]]]) + ["[0]" artifact]]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux index b28c4683e..1aa61c2bc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux @@ -2,34 +2,34 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" ruby {"+" [Expression LVar Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["." synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]" synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [reference - ["#." variable {"+" [Register]}]]]]]]]) + ["[1][0]" variable {"+" [Register]}]]]]]]]) (def: (setup offset bindings body) (-> Register (List Expression) Statement Statement) 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 b683c967f..c5f424373 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 @@ -1,43 +1,43 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" ruby {"+" [Expression LVar Computation Literal Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" ["$" version] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> 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 e66199340..a93fba45e 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 @@ -2,17 +2,17 @@ [library [lux {"-" [Variant Tuple]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" ruby {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux index c1ec7c339..079ef448c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux @@ -5,23 +5,23 @@ [monad {"+" [do]}]] [target ["_" scheme]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux index 887614298..16a00e907 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux @@ -2,37 +2,37 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int]]] [target ["_" scheme {"+" [Expression Computation Var]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux index 6e255664b..ebdd43f89 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux @@ -3,11 +3,11 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [// [runtime {"+" [Bundle]}]] [/ - ["." common]]) + ["[0]" common]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux index 380b59265..27ca252f9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux @@ -2,31 +2,31 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["ex" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [number {"+" [hex]} ["f" frac]] [collection - ["." list ("#\." functor)] + ["[0]" list ("[1]\[0]" functor)] ["dict" dictionary {"+" [Dictionary]}]]] - ["." macro {"+" [with_identifiers]} - ["." code] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] [syntax {"+" [syntax:]}]] [target ["_" scheme {"+" [Expression Computation]}]]]] - ["." /// "_" - ["#." runtime {"+" [Operation Phase Handler Bundle]}] - ["#//" /// - ["#." extension - ["." bundle]] - ["#/" // "_" - ["#." synthesis {"+" [Synthesis]}]]]]) + ["[0]" /// "_" + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle]}] + ["[1]//" /// + ["[1][0]" extension + ["[0]" bundle]] + ["[1]/" // "_" + ["[1][0]" synthesis {"+" [Synthesis]}]]]]) (syntax: (Vector [size <code>.nat elemT <code>.any]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux index 1985f5101..d18881c4d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux @@ -2,30 +2,30 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target ["_" scheme {"+" [Expression Computation Var]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux index 301679a58..c5e6b5e0e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux @@ -2,32 +2,32 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat]]] [target ["_" scheme]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux index 9da1f2a8f..996f552b1 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux @@ -1,43 +1,43 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" scheme {"+" [Expression Computation Var]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant]}] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (def: module_id 0) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux index a0cf0e8d6..ad071de02 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [collection - ["." list]]] + ["[0]" list]]] [target ["_" scheme {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux index 65ba177f3..5b5403a37 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux @@ -2,25 +2,25 @@ [library [lux {"-" [primitive]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try]] + ["[0]" try]] [data [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]]]] - ["." / "_" - ["#." function] - ["#." case] - ["#." variable] - ["/#" // "_" - ["#." extension] - ["/#" // "_" - ["#." analysis {"+" [Analysis]}] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" / "_" + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" variable] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" + ["[1][0]" analysis {"+" [Analysis]}] ["/" synthesis {"+" [Synthesis Phase]}] [/// - ["." phase ("#\." monad)] + ["[0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux index b92c07953..d42f0da7e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux @@ -3,29 +3,29 @@ [lux "*" [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [when> new> case>]}]] [data - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence)] + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list ("#\." functor mix monoid)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor mix monoid)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat] - ["." i64] - ["." frac ("#\." equivalence)]]]]] - ["." /// "_" + ["[0]" i64] + ["[0]" frac ("[1]\[0]" equivalence)]]]]] + ["[0]" /// "_" [// - ["#." analysis {"+" [Pattern Match Analysis]}] + ["[1][0]" analysis {"+" [Pattern Match Analysis]}] ["/" synthesis {"+" [Path Synthesis Operation Phase]}] [/// - ["#" phase ("#\." monad)] - ["#." reference - ["#/." variable {"+" [Register Variable]}]] + ["[1]" phase ("[1]\[0]" monad)] + ["[1][0]" reference + ["[1]/[0]" variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]}]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux index ca9a467de..316a1bed0 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux @@ -2,30 +2,30 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}] - ["." enum]] + ["[0]" monad {"+" [do]}] + ["[0]" enum]] [control [pipe {"+" [case>]}] - ["." maybe ("#\." functor)] - ["." exception {"+" [exception:]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#." loop {"+" [Transform]}] - ["//#" /// "_" - ["#." analysis {"+" [Environment Analysis]}] + ["[0]" // "_" + ["[1][0]" loop {"+" [Transform]}] + ["//[1]" /// "_" + ["[1][0]" analysis {"+" [Environment Analysis]}] ["/" synthesis {"+" [Path Abstraction Synthesis Operation Phase]}] [/// [arity {"+" [Arity]}] - ["#." reference - ["#/." variable {"+" [Register Variable]}]] - ["." phase ("#\." monad)]]]]) + ["[1][0]" reference + ["[1]/[0]" variable {"+" [Register Variable]}]] + ["[0]" phase ("[1]\[0]" monad)]]]]) (exception: .public (cannot_find_foreign_variable_in_environment {foreign Register} {environment (Environment Synthesis)}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux index 614a0e998..3b9d37fdd 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux @@ -2,22 +2,22 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data [collection - ["." list]]] + ["[0]" list]]] [math [number ["n" nat]]]]] [//// - ["." analysis {"+" [Environment]}] + ["[0]" analysis {"+" [Environment]}] ["/" synthesis {"+" [Path Abstraction Synthesis]}] [/// [arity {"+" [Arity]}] - ["." reference - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" reference + ["[0]" variable {"+" [Register Variable]}]]]]) (type: .public (Transform a) (-> a (Maybe a))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux index 225cf2ad5..afa30d83c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux @@ -2,29 +2,29 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat]]]]] [//// ["/" synthesis {"+" [Path Synthesis]}] - ["." analysis] + ["[0]" analysis] [/// [arity {"+" [Arity]}] - ["." reference - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" reference + ["[0]" variable {"+" [Register Variable]}]]]]) (def: (prune redundant register) (-> Register Register Register) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux index 297721289..ecafe7615 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux @@ -2,24 +2,24 @@ [library [lux {"-" [Module]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]]]] + ["[0]" list ("[1]\[0]" functor)]]]]] [// [generation {"+" [Context]}] [/// [meta - ["." archive {"+" [Archive]} - ["." descriptor {"+" [Module]}] - ["." artifact]]]]]) + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact]]]]]) (type: .public (Program expression directive) (-> Context expression directive)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux b/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux index 08bff3cbf..a04571b5b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux @@ -31,24 +31,24 @@ [abstract monad] [control - ["." maybe] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}] [parser [text {"+" [Offset]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] - ["." int] - ["." rev] - ["." frac]]]]]) + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]]) (template: (inline: <declaration> <type> <body>) [(for {@.python (def: <declaration> <type> <body>)} 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 3d1067415..2209cdcce 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux @@ -7,32 +7,32 @@ [hash {"+" [Hash]}]] [control [pipe {"+" [case>]}] - ["." maybe] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}]] [data - ["." sum] - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" sum] + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number - ["." i64] + ["[0]" i64] ["n" nat] ["i" int] ["f" frac]]]]] [// - ["." analysis {"+" [Environment Composite Analysis]}] + ["[0]" analysis {"+" [Environment Composite Analysis]}] [phase - ["." extension {"+" [Extension]}]] + ["[0]" extension {"+" [Extension]}]] [/// [arity {"+" [Arity]}] - ["." phase] - ["." reference {"+" [Reference]} - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" phase] + ["[0]" reference {"+" [Reference]} + ["[0]" variable {"+" [Register Variable]}]]]]) (type: .public Resolver (Dictionary Variable Variable)) @@ -588,7 +588,7 @@ (n.* 29 (\ super hash body)) ))) -(implementation: (branch_equivalence (^open "\.")) +(implementation: (branch_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Branch a)))) (def: (= reference sample) @@ -649,7 +649,7 @@ (\ (..path'_hash super) hash path)) ))) -(implementation: (loop_equivalence (^open "\.")) +(implementation: (loop_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Loop a)))) (def: (= reference sample) @@ -685,7 +685,7 @@ (\ (list.hash super) hash resets)) ))) -(implementation: (function_equivalence (^open "\.")) +(implementation: (function_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Function a)))) (def: (= reference sample) @@ -724,7 +724,7 @@ (\ (list.hash super) hash arguments)) ))) -(implementation: (control_equivalence (^open "\.")) +(implementation: (control_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Control a)))) (def: (= reference sample) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/archive.lux index 55f1bd5c0..96a8683de 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive.lux @@ -2,39 +2,39 @@ [library [lux {"-" [Module]} [abstract - ["." equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" equivalence {"+" [Equivalence]}] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" function] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data [binary {"+" [Binary]}] - ["." bit] - ["." product] - ["." name] - ["." text + ["[0]" bit] + ["[0]" product] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [format - ["." binary {"+" [Writer]}]] + ["[0]" binary {"+" [Writer]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set] - ["." row {"+" [Row]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set] + ["[0]" row {"+" [Row]}]]] [math [number - ["n" nat ("#\." equivalence)]]] + ["n" nat ("[1]\[0]" equivalence)]]] [type abstract]]] [/ - ["." artifact] - ["." signature {"+" [Signature]}] - ["." key {"+" [Key]}] - ["." descriptor {"+" [Module Descriptor]}] - ["." document {"+" [Document]}] + ["[0]" artifact] + ["[0]" signature {"+" [Signature]}] + ["[0]" key {"+" [Key]}] + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" document {"+" [Document]}] [/// [version {"+" [Version]}]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux index 37a3109c0..e0bb8536f 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux @@ -5,19 +5,19 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list] - ["." row {"+" [Row]} ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}]] + ["[0]" list] + ["[0]" row {"+" [Row]} ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux index 28fedf1b7..e45c69fa2 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux @@ -5,15 +5,15 @@ ["<>" parser ["<b>" binary {"+" [Parser]}]]] [data - ["." text] + ["[0]" text] [collection [set {"+" [Set]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [world [file {"+" [Path]}]]]] [// - ["." artifact {"+" [Registry]}]]) + ["[0]" artifact {"+" [Registry]}]]) (type: .public Module Text) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux index ce7ebd327..6e56f7f8b 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux @@ -4,20 +4,20 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser [binary {"+" [Parser]}]]] [data [collection - ["." dictionary {"+" [Dictionary]}]] + ["[0]" dictionary {"+" [Dictionary]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [type {"+" [:sharing]} abstract]]] [// - ["." signature {"+" [Signature]}] - ["." key {"+" [Key]}] + ["[0]" signature {"+" [Signature]}] + ["[0]" key {"+" [Key]}] [descriptor {"+" [Module]}]]) (exception: .public (invalid_signature {expected Signature} {actual Signature}) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux index acfedec58..2ad3b7b96 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux @@ -7,15 +7,15 @@ ["<>" parser ["<b>" binary {"+" [Parser]}]]] [data - ["." product] - ["." name] - ["." text + ["[0]" product] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [math [number - ["." nat]]]]] + ["[0]" nat]]]]] [//// [version {"+" [Version]}]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux index fa4e2af3d..e839651e4 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux @@ -2,25 +2,25 @@ [library [lux {"-" [Module]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] - ["." state] - ["." function - ["." memo {"+" [Memo]}]]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] + ["[0]" state] + ["[0]" function + ["[0]" memo {"+" [Memo]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set {"+" [Set]}]]]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set {"+" [Set]}]]]]] [/// - ["." archive {"+" [Output Archive]} + ["[0]" archive {"+" [Output Archive]} [key {"+" [Key]}] - ["." descriptor {"+" [Module Descriptor]}] - ["." document {"+" [Document]}]]]) + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" document {"+" [Document]}]]]) (type: Ancestry (Set Module)) diff --git a/stdlib/source/library/lux/tool/compiler/meta/io.lux b/stdlib/source/library/lux/tool/compiler/meta/io.lux index 25a77d0af..0d7ab9698 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io.lux @@ -2,7 +2,7 @@ [library [lux {"-" [Code]} [data - ["." text]] + ["[0]" text]] [world [file {"+" [Path System]}]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux index 41710dfb8..cdd999306 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux @@ -4,52 +4,52 @@ [target {"+" [Target]}] [abstract [predicate {"+" [Predicate]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]}] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]}] + ["[0]" set]]] [math [number ["n" nat]]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor [import {"+" [Import]}] - ["." static {"+" [Static]}]]] - ["." // {"+" [Context]} - ["#." context] - ["/#" // - ["." archive {"+" [Output Archive]} - ["." artifact {"+" [Artifact]}] - ["." descriptor {"+" [Module Descriptor]}] - ["." document {"+" [Document]}]] + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Context]} + ["[1][0]" context] + ["/[1]" // + ["[0]" archive {"+" [Output Archive]} + ["[0]" artifact {"+" [Artifact]}] + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" document {"+" [Document]}]] [cache - ["." dependency]] - ["/#" // {"+" [Input]} + ["[0]" dependency]] + ["/[1]" // {"+" [Input]} [language ["$" lux - ["." version] - ["." analysis] - ["." synthesis] - ["." generation] - ["." directive] - ["#/." program]]]]]]) + ["[0]" version] + ["[0]" analysis] + ["[0]" synthesis] + ["[0]" generation] + ["[0]" directive] + ["[1]/[0]" program]]]]]]) (exception: .public (cannot_prepare {archive file.Path} {module_id archive.ID} diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux index 5331608b7..177f552e3 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux @@ -4,32 +4,32 @@ ["@" target] [abstract [predicate {"+" [Predicate]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] [data [binary {"+" [Binary]}] - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list]]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor [import {"+" [Import]}]]] - ["." // {"+" [Context Code]} - ["/#" // "_" + ["[0]" // {"+" [Context Code]} + ["/[1]" // "_" [archive [descriptor {"+" [Module]}]] - ["/#" // {"+" [Input]}]]]) + ["/[1]" // {"+" [Input]}]]]) (exception: .public (cannot_find_module {importer Module} {module Module}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager.lux b/stdlib/source/library/lux/tool/compiler/meta/packager.lux index 5a4a7ea1f..e9224a8d0 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager.lux @@ -7,16 +7,16 @@ [binary {"+" [Binary]}] [collection [dictionary {"+" [Dictionary]}] - ["." row] - ["." list ("#\." functor)]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor)]]] [world - ["." file]]]] + ["[0]" file]]]] [// [cache - ["." dependency]] - ["." archive {"+" [Archive]} - ["." descriptor] - ["." artifact]] + ["[0]" dependency]] + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor] + ["[0]" artifact]] [// [language [lux diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux index 1bd4e94a9..f8bb67b70 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux @@ -1,21 +1,21 @@ (.module: [library [lux {"-" [Module Definition]} - ["." ffi {"+" [import: do_to]}] + ["[0]" ffi {"+" [import: do_to]}] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}]] [data - ["." binary {"+" [Binary]}] - ["." text + ["[0]" binary {"+" [Binary]}] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." row] - ["." list ("#\." functor)] - ["." dictionary] - ["." set {"+" [Set]}]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat] @@ -23,21 +23,21 @@ [target [jvm [encoding - ["." name]]]] + ["[0]" name]]]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor - ["." static {"+" [Static]}]]] - ["." // {"+" [Packager]} + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Packager]} [// - ["." archive {"+" [Output]} - ["." descriptor {"+" [Module]}] - ["." artifact]] + ["[0]" archive {"+" [Output]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact]] [cache - ["." dependency]] - ["." io "_" - ["#" archive]] + ["[0]" dependency]] + ["[0]" io "_" + ["[1]" archive]] [// [language ["$" lux @@ -45,73 +45,73 @@ [phase [generation [jvm - ["." runtime {"+" [Definition]}]]]]]]]]]) + ["[0]" runtime {"+" [Definition]}]]]]]]]]]) (import: java/lang/Object) (import: java/lang/String) (import: java/util/jar/Attributes - ["#::." + ["[1]::[0]" (put [java/lang/Object java/lang/Object] "?" java/lang/Object)]) (import: java/util/jar/Attributes$Name - ["#::." + ["[1]::[0]" ("static" MAIN_CLASS java/util/jar/Attributes$Name) ("static" MANIFEST_VERSION java/util/jar/Attributes$Name)]) (import: java/util/jar/Manifest - ["#::." + ["[1]::[0]" (new []) (getMainAttributes [] java/util/jar/Attributes)]) (import: java/io/Flushable - ["#::." + ["[1]::[0]" (flush [] void)]) (import: java/io/Closeable - ["#::." + ["[1]::[0]" (close [] void)]) (import: java/io/OutputStream - ["#::." + ["[1]::[0]" (write [[byte] int int] void)]) (import: java/io/ByteArrayOutputStream - ["#::." + ["[1]::[0]" (new [int]) (toByteArray [] [byte])]) (import: java/util/zip/ZipEntry - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (isDirectory [] boolean) (getSize [] long)]) (import: java/util/zip/ZipOutputStream - ["#::." + ["[1]::[0]" (write [[byte] int int] void) (closeEntry [] void)]) (import: java/util/jar/JarEntry - ["#::." + ["[1]::[0]" (new [java/lang/String])]) (import: java/util/jar/JarOutputStream - ["#::." + ["[1]::[0]" (new [java/io/OutputStream java/util/jar/Manifest]) (putNextEntry [java/util/zip/ZipEntry] "try" void)]) (import: java/io/ByteArrayInputStream - ["#::." + ["[1]::[0]" (new [[byte]])]) (import: java/io/InputStream - ["#::." + ["[1]::[0]" (read [[byte] int int] int)]) (import: java/util/jar/JarInputStream - ["#::." + ["[1]::[0]" (new [java/io/InputStream]) (getNextJarEntry [] "try" "?" java/util/jar/JarEntry)]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux index 21e2bc7b4..b471a30f5 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux @@ -3,42 +3,42 @@ [lux {"-" [Module]} [type {"+" [:sharing]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data [binary {"+" [Binary]}] - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}] - ["." encoding]] + ["[0]" encoding]] [collection - ["." row] - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set]] [format - ["." tar] - ["." binary]]] + ["[0]" tar] + ["[0]" binary]]] [target ["_" scheme]] [time - ["." instant {"+" [Instant]}]] + ["[0]" instant {"+" [Instant]}]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor - ["." static {"+" [Static]}]]] - ["." // {"+" [Packager]} + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Packager]} [// - ["." archive {"+" [Output]} - ["." descriptor {"+" [Module Descriptor]}] - ["." artifact] - ["." document {"+" [Document]}]] + ["[0]" archive {"+" [Output]} + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" artifact] + ["[0]" document {"+" [Document]}]] [cache - ["." dependency]] - ["." io "_" - ["#" archive]] + ["[0]" dependency]] + ["[0]" io "_" + ["[1]" archive]] [// [language ["$" lux diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux index 43ba5c04a..aa79bf5b5 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux @@ -3,31 +3,31 @@ [lux "*" [type {"+" [:sharing]}] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data [binary {"+" [Binary]}] - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." row] - ["." list ("#\." functor)]]]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor)]]]]] [program [compositor - ["." static {"+" [Static]}]]] - ["." // {"+" [Packager]} + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Packager]} [// - ["." archive {"+" [Output]} - ["." descriptor] - ["." artifact]] + ["[0]" archive {"+" [Output]} + ["[0]" descriptor] + ["[0]" artifact]] [cache - ["." dependency]] - ["." io "_" - ["#" archive]] + ["[0]" dependency]] + ["[0]" io "_" + ["[1]" archive]] [// [language ["$" lux diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux index 80dfdb208..3f6caddbf 100644 --- a/stdlib/source/library/lux/tool/compiler/phase.lux +++ b/stdlib/source/library/lux/tool/compiler/phase.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." debug] + ["[0]" debug] [abstract [monad {"+" [Monad do]}]] [control - ["." state] - ["." try {"+" [Try]} ("#\." functor)] + ["[0]" state] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] ["ex" exception {"+" [Exception exception:]}] - ["." io] + ["[0]" io] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]]] [time - ["." instant] - ["." duration]] + ["[0]" instant] + ["[0]" duration]] [macro [syntax {"+" [syntax:]}]]]] [// diff --git a/stdlib/source/library/lux/tool/compiler/reference.lux b/stdlib/source/library/lux/tool/compiler/reference.lux index b3e804abb..4e48f1db9 100644 --- a/stdlib/source/library/lux/tool/compiler/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/reference.lux @@ -7,14 +7,14 @@ [control [pipe {"+" [case>]}]] [data - ["." name] + ["[0]" name] [text ["%" format {"+" [Format]}]]] [math [number ["n" nat]]]]] - ["." / "_" - ["#." variable {"+" [Variable]}]]) + ["[0]" / "_" + ["[1][0]" variable {"+" [Variable]}]]) (type: .public Constant Name) diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index b101a278a..6385fe34c 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -3,31 +3,31 @@ [lux "*" [control [monad {"+" [Monad do]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["ex" exception {"+" [exception:]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [type {"+" [:sharing]} - ["." check]] + ["[0]" check]] [compiler - ["." phase - ["." analysis - ["." module] - ["." type]] - ["." generation] - ["." directive {"+" [State+ Operation]} - ["." total]] - ["." extension]] - ["." default - ["." syntax] - ["." platform {"+" [Platform]}] - ["." init]] - ["." cli {"+" [Configuration]}]] + ["[0]" phase + ["[0]" analysis + ["[0]" module] + ["[0]" type]] + ["[0]" generation] + ["[0]" directive {"+" [State+ Operation]} + ["[0]" total]] + ["[0]" extension]] + ["[0]" default + ["[0]" syntax] + ["[0]" platform {"+" [Platform]}] + ["[0]" init]] + ["[0]" cli {"+" [Configuration]}]] [world - ["." file {"+" [File]}] - ["." console {"+" [Console]}]]]] - ["." /type]) + ["[0]" file {"+" [File]}] + ["[0]" console {"+" [Console]}]]]] + ["[0]" /type]) (exception: .public (error {message Text}) message) diff --git a/stdlib/source/library/lux/tool/mediator.lux b/stdlib/source/library/lux/tool/mediator.lux index a73bb0bfd..9f214862e 100644 --- a/stdlib/source/library/lux/tool/mediator.lux +++ b/stdlib/source/library/lux/tool/mediator.lux @@ -2,12 +2,12 @@ [library [lux {"-" [Source Module]} [world - ["." binary {"+" [Binary]}] - ["." file {"+" [Path]}]]]] + ["[0]" binary {"+" [Binary]}] + ["[0]" file {"+" [Path]}]]]] [// [compiler {"+" [Compiler]} [meta - ["." archive {"+" [Archive]} + ["[0]" archive {"+" [Archive]} [descriptor {"+" [Module]}]]]]]) (type: .public Source diff --git a/stdlib/source/library/lux/type.lux b/stdlib/source/library/lux/type.lux index c60be0b73..effdf2251 100644 --- a/stdlib/source/library/lux/type.lux +++ b/stdlib/source/library/lux/type.lux @@ -6,26 +6,26 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [Monad do]}]] [control - ["." function] - ["." maybe] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." monoid equivalence)] - ["." name ("#\." equivalence codec)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid equivalence)] + ["[0]" name ("[1]\[0]" equivalence codec)] [collection - ["." array] - ["." list ("#\." functor monoid mix)]]] - ["." macro + ["[0]" array] + ["[0]" list ("[1]\[0]" functor monoid mix)]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number - ["n" nat ("#\." decimal)]]] - ["." meta - ["." location]]]]) + ["n" nat ("[1]\[0]" decimal)]]] + ["[0]" meta + ["[0]" location]]]]) (template [<name> <tag>] [(def: .public (<name> type) diff --git a/stdlib/source/library/lux/type/abstract.lux b/stdlib/source/library/lux/type/abstract.lux index 8ea539e97..15483af23 100644 --- a/stdlib/source/library/lux/type/abstract.lux +++ b/stdlib/source/library/lux/type/abstract.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [Monad do]}]] [control - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." name ("#\." codec)] - ["." text ("#\." equivalence monoid)] + ["[0]" name ("[1]\[0]" codec)] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [macro - ["." code] + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" annotations]]]]] - ["." //]) + ["|[0]|" annotations]]]]] + ["[0]" //]) (type: Stack List) diff --git a/stdlib/source/library/lux/type/check.lux b/stdlib/source/library/lux/type/check.lux index df52d36eb..310918cee 100644 --- a/stdlib/source/library/lux/type/check.lux +++ b/stdlib/source/library/lux/type/check.lux @@ -5,21 +5,21 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [Exception exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [Exception exception:]}]] [data - ["." product] - ["." text ("#\." monoid equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid equivalence)] [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [math [number - ["n" nat ("#\." decimal)]]]]] - ["." // ("#\." equivalence)]) + ["n" nat ("[1]\[0]" decimal)]]]]] + ["[0]" // ("[1]\[0]" equivalence)]) (template: (!n\= reference subject) [("lux i64 =" reference subject)]) @@ -124,7 +124,7 @@ ))) ) -(open: "check\." ..monad) +(open: "check\[0]" ..monad) (def: (var::new id plist) (-> Var Type_Vars Type_Vars) diff --git a/stdlib/source/library/lux/type/dynamic.lux b/stdlib/source/library/lux/type/dynamic.lux index 6311e8a2f..2f21ae4af 100644 --- a/stdlib/source/library/lux/type/dynamic.lux +++ b/stdlib/source/library/lux/type/dynamic.lux @@ -1,18 +1,18 @@ (.module: [library [lux "*" - ["." debug] + ["[0]" debug] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [text ["%" format]]] [macro {"+" [with_identifiers]} - ["." syntax {"+" [syntax:]}]] - ["." type + ["[0]" syntax {"+" [syntax:]}]] + ["[0]" type abstract]]]) (exception: .public (wrong_type {expected Type} {actual Type}) diff --git a/stdlib/source/library/lux/type/implicit.lux b/stdlib/source/library/lux/type/implicit.lux index 8546ffe51..d8c5c90c7 100644 --- a/stdlib/source/library/lux/type/implicit.lux +++ b/stdlib/source/library/lux/type/implicit.lux @@ -2,30 +2,30 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}] - ["." equivalence]] + ["[0]" monad {"+" [do]}] + ["[0]" equivalence]] [control - ["." maybe] - ["." try] + ["[0]" maybe] + ["[0]" try] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad mix)] - ["." dictionary {"+" [Dictionary]}]]] - ["." macro - ["." code] + ["[0]" list ("[1]\[0]" monad mix)] + ["[0]" dictionary {"+" [Dictionary]}]]] + ["[0]" macro + ["[0]" code] [syntax {"+" [syntax:]}]] [math - ["." number + ["[0]" number ["n" nat]]] - ["." meta - ["." annotation]] - ["." type - ["." check {"+" [Check]}]]]]) + ["[0]" meta + ["[0]" annotation]] + ["[0]" type + ["[0]" check {"+" [Check]}]]]]) (def: (type_var id env) (-> Nat Type_Context (Meta Type)) diff --git a/stdlib/source/library/lux/type/poly.lux b/stdlib/source/library/lux/type/poly.lux index 7c98bf699..5bc9254c8 100644 --- a/stdlib/source/library/lux/type/poly.lux +++ b/stdlib/source/library/lux/type/poly.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." meta] - ["." type] + ["[0]" meta] + ["[0]" type] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" type {"+" [Env]}] - ["<.>" code {"+" [Parser]}]]] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" type {"+" [Env]}] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list ("#\." functor)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary]]] [macro {"+" [with_identifiers]} - ["." code] + ["[0]" code] [syntax {"+" [syntax:]}]] [math [number diff --git a/stdlib/source/library/lux/type/quotient.lux b/stdlib/source/library/lux/type/quotient.lux index 5033db2a0..5e052acf2 100644 --- a/stdlib/source/library/lux/type/quotient.lux +++ b/stdlib/source/library/lux/type/quotient.lux @@ -5,10 +5,10 @@ [equivalence {"+" [Equivalence]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}]] - ["." type + ["[0]" type abstract]]]) (abstract: .public (Class t c %) diff --git a/stdlib/source/library/lux/type/refinement.lux b/stdlib/source/library/lux/type/refinement.lux index 172ddee2c..379ac2b6a 100644 --- a/stdlib/source/library/lux/type/refinement.lux +++ b/stdlib/source/library/lux/type/refinement.lux @@ -5,10 +5,10 @@ [predicate {"+" [Predicate]}]] [control [parser - ["<.>" code]]] - ["." macro + ["<[0]>" code]]] + ["[0]" macro [syntax {"+" [syntax:]}]] - ["." type + ["[0]" type abstract]]]) (abstract: .public (Refined t %) diff --git a/stdlib/source/library/lux/type/resource.lux b/stdlib/source/library/lux/type/resource.lux index ba56544aa..52813f686 100644 --- a/stdlib/source/library/lux/type/resource.lux +++ b/stdlib/source/library/lux/type/resource.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [Monad do]} + ["[0]" monad {"+" [Monad do]} [indexed {"+" [IxMonad]}]]] [control - ["." maybe] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [text ["%" format {"+" [format]}]] [collection - ["." set] - ["." row {"+" [Row]}] - ["." list ("#\." functor mix)]]] - ["." macro + ["[0]" set] + ["[0]" row {"+" [Row]}] + ["[0]" list ("[1]\[0]" functor mix)]]] + ["[0]" macro [syntax {"+" [syntax:]}]] [math [number diff --git a/stdlib/source/library/lux/type/unit.lux b/stdlib/source/library/lux/type/unit.lux index 8ace4333f..f5e8060a4 100644 --- a/stdlib/source/library/lux/type/unit.lux +++ b/stdlib/source/library/lux/type/unit.lux @@ -1,29 +1,29 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [Monad do]}] [equivalence {"+" [Equivalence]}] [order {"+" [Order]}] [enum {"+" [Enum]}]] [control - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [macro - ["." code] - ["." template] + ["[0]" code] + ["[0]" template] [syntax {"+" [syntax:]} - ["|.|" export] - ["|.|" annotations]]] + ["|[0]|" export] + ["|[0]|" annotations]]] [math [number ["n" nat] ["i" int] - ["." ratio {"+" [Ratio]}]]] + ["[0]" ratio {"+" [Ratio]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/world/console.lux b/stdlib/source/library/lux/world/console.lux index 2c8a07f38..304c8c3c9 100644 --- a/stdlib/source/library/lux/world/console.lux +++ b/stdlib/source/library/lux/world/console.lux @@ -6,14 +6,14 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." async {"+" [Async]}] - ["." atom]]] + ["[0]" async {"+" [Async]}] + ["[0]" atom]]] [data - ["." text {"+" [Char]} + ["[0]" text {"+" [Char]} ["%" format {"+" [format]}]]]]]) (type: .public (Console !) @@ -42,19 +42,19 @@ (with_expansions [<jvm> (as_is (import: java/lang/String) (import: java/io/Console - ["#::." + ["[1]::[0]" (readLine [] "io" "try" java/lang/String)]) (import: java/io/InputStream - ["#::." + ["[1]::[0]" (read [] "io" "try" int)]) (import: java/io/PrintStream - ["#::." + ["[1]::[0]" (print [java/lang/String] "io" "try" void)]) (import: java/lang/System - ["#::." + ["[1]::[0]" ("static" console [] "io" "?" java/io/Console) ("static" in java/io/InputStream) ("static" out java/io/PrintStream)]) diff --git a/stdlib/source/library/lux/world/db/jdbc.lux b/stdlib/source/library/lux/world/db/jdbc.lux index e9df26b7f..c67d9a8bb 100644 --- a/stdlib/source/library/lux/world/db/jdbc.lux +++ b/stdlib/source/library/lux/world/db/jdbc.lux @@ -5,25 +5,25 @@ [functor {"+" [Functor]}] [apply {"+" [Apply]}] [monad {"+" [Monad do]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["ex" exception] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] [security ["!" capability {"+" [capability:]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]]] - ["." io {"+" [IO]}] + ["[0]" io {"+" [IO]}] [world [net {"+" [URL]}]] [host {"+" [import:]}]]] [// - ["." sql]] - ["." / "_" - ["#." input {"+" [Input]}] - ["#." output {"+" [Output]}]]) + ["[0]" sql]] + ["[0]" / "_" + ["[1][0]" input {"+" [Input]}] + ["[1][0]" output {"+" [Output]}]]) (import: java/lang/String) diff --git a/stdlib/source/library/lux/world/db/jdbc/input.lux b/stdlib/source/library/lux/world/db/jdbc/input.lux index 790e60c83..1819241b3 100644 --- a/stdlib/source/library/lux/world/db/jdbc/input.lux +++ b/stdlib/source/library/lux/world/db/jdbc/input.lux @@ -5,10 +5,10 @@ [control [functor {"+" [Contravariant]}] [monad {"+" [Monad do]}] - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [time - ["." instant {"+" [Instant]}]] - ["." io {"+" [IO]}] + ["[0]" instant {"+" [Instant]}]] + ["[0]" io {"+" [IO]}] [world [binary {"+" [Binary]}]]]]) diff --git a/stdlib/source/library/lux/world/db/jdbc/output.lux b/stdlib/source/library/lux/world/db/jdbc/output.lux index c36a4f2c0..25b4b0668 100644 --- a/stdlib/source/library/lux/world/db/jdbc/output.lux +++ b/stdlib/source/library/lux/world/db/jdbc/output.lux @@ -7,10 +7,10 @@ [apply {"+" [Apply]}] [monad {"+" [Monad do]}] ["ex" exception] - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [time - ["." instant {"+" [Instant]}]] - ["." io {"+" [IO]}] + ["[0]" instant {"+" [Instant]}]] + ["[0]" io {"+" [IO]}] [world [binary {"+" [Binary]}]]]]) diff --git a/stdlib/source/library/lux/world/db/sql.lux b/stdlib/source/library/lux/world/db/sql.lux index 1db248bbb..205e5e03e 100644 --- a/stdlib/source/library/lux/world/db/sql.lux +++ b/stdlib/source/library/lux/world/db/sql.lux @@ -6,12 +6,12 @@ [data [number ["i" int]] - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." template]] + ["[0]" template]] [type abstract]]]) diff --git a/stdlib/source/library/lux/world/file.lux b/stdlib/source/library/lux/world/file.lux index 047e1eaca..3eb8ea3e6 100644 --- a/stdlib/source/library/lux/world/file.lux +++ b/stdlib/source/library/lux/world/file.lux @@ -2,38 +2,38 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control [pipe {"+" [case>]}] - ["." maybe ("#\." functor)] - ["." try {"+" [Try]} ("#\." functor)] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]} ("#\." functor)] - ["." function] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]} ("[1]\[0]" functor)] + ["[0]" function] [concurrency - ["." async {"+" [Async]}] - ["." stm {"+" [Var STM]}]]] + ["[0]" async {"+" [Async]}] + ["[0]" stm {"+" [Var STM]}]]] [data - ["." bit ("#\." equivalence)] - ["." product] - ["." binary {"+" [Binary]}] - ["." text ("#\." equivalence) + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" product] + ["[0]" binary {"+" [Binary]}] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int] ["f" frac]]] [time - ["." instant {"+" [Instant]}] - ["." duration]]]]) + ["[0]" instant {"+" [Instant]}] + ["[0]" duration]]]]) (type: .public Path Text) @@ -164,7 +164,7 @@ (ffi.import: java/lang/String) (`` (ffi.import: java/io/File - ["#::." + ["[1]::[0]" (new [java/lang/String]) (~~ (template [<name>] [(<name> [] "io" "try" boolean)] @@ -183,24 +183,24 @@ ("static" separator java/lang/String)])) (ffi.import: java/lang/AutoCloseable - ["#::." + ["[1]::[0]" (close [] "io" "try" void)]) (ffi.import: java/io/OutputStream - ["#::." + ["[1]::[0]" (write [[byte]] "io" "try" void) (flush [] "io" "try" void)]) (ffi.import: java/io/FileOutputStream - ["#::." + ["[1]::[0]" (new [java/io/File boolean] "io" "try")]) (ffi.import: java/io/InputStream - ["#::." + ["[1]::[0]" (read [[byte]] "io" "try" int)]) (ffi.import: java/io/FileInputStream - ["#::." + ["[1]::[0]" (new [java/io/File] "io" "try")]) (`` (implementation: .public default @@ -301,27 +301,27 @@ @.js (as_is (ffi.import: Buffer - ["#::." + ["[1]::[0]" ("static" from [Binary] ..Buffer)]) (ffi.import: FileDescriptor) (ffi.import: Stats - ["#::." + ["[1]::[0]" (size ffi.Number) (mtimeMs ffi.Number) (isFile [] ffi.Boolean) (isDirectory [] ffi.Boolean)]) (ffi.import: FsConstants - ["#::." + ["[1]::[0]" (F_OK ffi.Number) (R_OK ffi.Number) (W_OK ffi.Number) (X_OK ffi.Number)]) (ffi.import: Error - ["#::." + ["[1]::[0]" (toString [] ffi.String)]) (template: (with_async <write> <type> <body>) @@ -333,7 +333,7 @@ <read>)))]) (ffi.import: Fs - ["#::." + ["[1]::[0]" (constants FsConstants) (readFile [ffi.String ffi.Function] Any) (appendFile [ffi.String Buffer ffi.Function] Any) @@ -366,7 +366,7 @@ (#try.Failure (Error::toString [] (:as Error error)))))) (ffi.import: JsPath - ["#::." + ["[1]::[0]" (sep ffi.String)]) (template [<name> <path>] @@ -540,7 +540,7 @@ (primitive "python_tuple[2]" [left right])) (ffi.import: PyFile - ["#::." + ["[1]::[0]" (read [] "io" "try" Binary) (write [Binary] "io" "try" "?" Any) (close [] "io" "try" "?" Any)]) @@ -549,7 +549,7 @@ (ffi.import: (tuple [[ffi.Integer ffi.Integer]] (Tuple/2 ffi.Integer ffi.Integer))) (ffi.import: os - ["#::." + ["[1]::[0]" ("static" F_OK ffi.Integer) ("static" R_OK ffi.Integer) ("static" W_OK ffi.Integer) @@ -564,7 +564,7 @@ ("static" listdir [ffi.String] "io" "try" (Array ffi.String))]) (ffi.import: os/path - ["#::." + ["[1]::[0]" ("static" isfile [ffi.String] "io" "try" ffi.Boolean) ("static" isdir [ffi.String] "io" "try" ffi.Boolean) ("static" sep ffi.String) @@ -658,18 +658,18 @@ @.ruby (as_is (ffi.import: Time "as" RubyTime - ["#::." + ["[1]::[0]" ("static" at [Frac] RubyTime) (to_f [] Frac)]) (ffi.import: Stat "as" RubyStat - ["#::." + ["[1]::[0]" (executable? [] Bit) (size Int) (mtime [] RubyTime)]) (ffi.import: File "as" RubyFile - ["#::." + ["[1]::[0]" ("static" SEPARATOR ffi.String) ("static" open [Path ffi.String] "io" "try" RubyFile) ("static" stat [Path] "io" "try" RubyStat) @@ -684,14 +684,14 @@ (close [] "io" "try" "?" Any)]) (ffi.import: Dir "as" RubyDir - ["#::." + ["[1]::[0]" ("static" open [Path] "io" "try" RubyDir) (children [] "io" "try" (Array Path)) (close [] "io" "try" "?" Any)]) (ffi.import: "fileutils" FileUtils "as" RubyFileUtils - ["#::." + ["[1]::[0]" ("static" move [Path Path] "io" "try" "?" Any) ("static" rmdir [Path] "io" "try" "?" Any) ("static" mkdir [Path] "io" "try" "?" Any)]) diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux index 6950e0df9..ca06e9f74 100644 --- a/stdlib/source/library/lux/world/file/watch.lux +++ b/stdlib/source/library/lux/world/file/watch.lux @@ -2,35 +2,35 @@ [library [lux "*" ["@" target] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [predicate {"+" [Predicate]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]}] - ["." stm {"+" [STM Var]}]]] + ["[0]" async {"+" [Async]}] + ["[0]" stm {"+" [STM Var]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor monoid mix)] - ["." set] - ["." array]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor monoid mix)] + ["[0]" set] + ["[0]" array]]] [math [number ["n" nat]]] [time - ["." instant {"+" [Instant]} ("#\." equivalence)]] + ["[0]" instant {"+" [Instant]} ("[1]\[0]" equivalence)]] [type [abstract {"+" [abstract: :representation :abstraction]}]]]] - ["." //]) + ["[0]" //]) (abstract: .public Concern {} @@ -269,7 +269,7 @@ (import: java/lang/String) (import: (java/util/List a) - ["#::." + ["[1]::[0]" (size [] int) (get [int] a)]) @@ -287,18 +287,18 @@ (import: (java/nio/file/WatchEvent$Kind a)) (import: (java/nio/file/WatchEvent a) - ["#::." + ["[1]::[0]" (kind [] (java/nio/file/WatchEvent$Kind a))]) (import: java/nio/file/Watchable) (import: java/nio/file/Path - ["#::." + ["[1]::[0]" (register [java/nio/file/WatchService [(java/nio/file/WatchEvent$Kind [? < java/lang/Object])]] "io" "try" java/nio/file/WatchKey) (toString [] java/lang/String)]) (import: java/nio/file/StandardWatchEventKinds - ["#::." + ["[1]::[0]" ("static" ENTRY_CREATE (java/nio/file/WatchEvent$Kind java/nio/file/Path)) ("static" ENTRY_MODIFY (java/nio/file/WatchEvent$Kind java/nio/file/Path)) ("static" ENTRY_DELETE (java/nio/file/WatchEvent$Kind java/nio/file/Path))]) @@ -325,7 +325,7 @@ ))) (import: java/nio/file/WatchKey - ["#::." + ["[1]::[0]" (reset [] "io" boolean) (cancel [] "io" void) (watchable [] java/nio/file/Watchable) @@ -339,19 +339,19 @@ (list\mix ..also ..none))))) (import: java/nio/file/WatchService - ["#::." + ["[1]::[0]" (poll [] "io" "try" "?" java/nio/file/WatchKey)]) (import: java/nio/file/FileSystem - ["#::." + ["[1]::[0]" (newWatchService [] "io" "try" java/nio/file/WatchService)]) (import: java/nio/file/FileSystems - ["#::." + ["[1]::[0]" ("static" getDefault [] java/nio/file/FileSystem)]) (import: java/io/File - ["#::." + ["[1]::[0]" (new [java/lang/String]) (toPath [] java/nio/file/Path)]) diff --git a/stdlib/source/library/lux/world/net/http.lux b/stdlib/source/library/lux/world/net/http.lux index 05466bc1c..8afbd105b 100644 --- a/stdlib/source/library/lux/world/net/http.lux +++ b/stdlib/source/library/lux/world/net/http.lux @@ -6,7 +6,7 @@ [concurrency [frp {"+" [Channel]}]] [parser - ["." environment {"+" [Environment]}]]] + ["[0]" environment {"+" [Environment]}]]] [data [binary {"+" [Binary]}]]]] [// {"+" [URL]} diff --git a/stdlib/source/library/lux/world/net/http/client.lux b/stdlib/source/library/lux/world/net/http/client.lux index 793486d5b..a2ec857a0 100644 --- a/stdlib/source/library/lux/world/net/http/client.lux +++ b/stdlib/source/library/lux/world/net/http/client.lux @@ -2,32 +2,32 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." io {"+" [IO]}] - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] + ["[0]" io {"+" [IO]}] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." binary {"+" [Binary]}] - ["." text] + ["[0]" binary {"+" [Binary]}] + ["[0]" text] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number ["n" nat] ["i" int]]]]] - ["." // + ["[0]" // [// {"+" [URL]}]]) (type: .public (Client !) @@ -72,18 +72,18 @@ (with_expansions [<jvm> (as_is (ffi.import: java/lang/String) (ffi.import: java/lang/AutoCloseable - ["#::." + ["[1]::[0]" (close [] "io" "try" void)]) (ffi.import: java/io/InputStream) (ffi.import: java/io/OutputStream - ["#::." + ["[1]::[0]" (flush [] "io" "try" void) (write [[byte]] "io" "try" void)]) (ffi.import: java/net/URLConnection - ["#::." + ["[1]::[0]" (setDoOutput [boolean] "io" "try" void) (setRequestProperty [java/lang/String java/lang/String] "io" "try" void) (getInputStream [] "io" "try" java/io/InputStream) @@ -92,17 +92,17 @@ (getHeaderField [int] "io" "try" "?" java/lang/String)]) (ffi.import: java/net/HttpURLConnection - ["#::." + ["[1]::[0]" (setRequestMethod [java/lang/String] "io" "try" void) (getResponseCode [] "io" "try" int)]) (ffi.import: java/net/URL - ["#::." + ["[1]::[0]" (new [java/lang/String]) (openConnection [] "io" "try" java/net/URLConnection)]) (ffi.import: java/io/BufferedInputStream - ["#::." + ["[1]::[0]" (new [java/io/InputStream]) (read [[byte] int int] "io" "try" int)]) diff --git a/stdlib/source/library/lux/world/net/http/cookie.lux b/stdlib/source/library/lux/world/net/http/cookie.lux index 1f894d194..b1a829f9a 100644 --- a/stdlib/source/library/lux/world/net/http/cookie.lux +++ b/stdlib/source/library/lux/world/net/http/cookie.lux @@ -3,8 +3,8 @@ [lux "*" [control [monad {"+" [do]}] - ["." try {"+" [Try]}] - ["p" parser ("#\." monad) + ["[0]" try {"+" [Try]}] + ["p" parser ("[1]\[0]" monad) ["l" text {"+" [Parser]}]]] [data [number @@ -12,13 +12,13 @@ [text ["%" format {"+" [format]}]] [format - ["." context {"+" [Context]}]] + ["[0]" context {"+" [Context]}]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [time - ["." duration {"+" [Duration]}]]]] - ["." // {"+" [Header]} - ["." header]]) + ["[0]" duration {"+" [Duration]}]]]] + ["[0]" // {"+" [Header]} + ["[0]" header]]) (type: .public Directive (-> Text Text)) diff --git a/stdlib/source/library/lux/world/net/http/header.lux b/stdlib/source/library/lux/world/net/http/header.lux index d593ee3e5..ec716819d 100644 --- a/stdlib/source/library/lux/world/net/http/header.lux +++ b/stdlib/source/library/lux/world/net/http/header.lux @@ -7,9 +7,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]]]] + ["[0]" dictionary {"+" [Dictionary]}]]]]] [// {"+" [Header]} - ["." mime {"+" [MIME]}] + ["[0]" mime {"+" [MIME]}] [// {"+" [URL]}]]) (def: .public (has name value) diff --git a/stdlib/source/library/lux/world/net/http/mime.lux b/stdlib/source/library/lux/world/net/http/mime.lux index 6f18a1399..257a4d5a5 100644 --- a/stdlib/source/library/lux/world/net/http/mime.lux +++ b/stdlib/source/library/lux/world/net/http/mime.lux @@ -2,9 +2,9 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}] - ["." encoding {"+" [Encoding]}]]] + ["[0]" encoding {"+" [Encoding]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/world/net/http/query.lux b/stdlib/source/library/lux/world/net/http/query.lux index ccfb68d2b..6a07496d4 100644 --- a/stdlib/source/library/lux/world/net/http/query.lux +++ b/stdlib/source/library/lux/world/net/http/query.lux @@ -4,18 +4,18 @@ [control pipe [monad {"+" [do]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["p" parser ["l" text {"+" [Parser]}]]] [data [number - ["." nat]] - ["." text + ["[0]" nat]] + ["[0]" text ["%" format {"+" [format]}]] [format - ["." context {"+" [Context]}]] + ["[0]" context {"+" [Context]}]] [collection - ["." dictionary]]]]]) + ["[0]" dictionary]]]]]) (def: component (Parser Text) diff --git a/stdlib/source/library/lux/world/net/http/request.lux b/stdlib/source/library/lux/world/net/http/request.lux index 8ab8781cf..9ab4b1d32 100644 --- a/stdlib/source/library/lux/world/net/http/request.lux +++ b/stdlib/source/library/lux/world/net/http/request.lux @@ -3,31 +3,31 @@ [lux "*" [control pipe - ["." monad {"+" [do]}] - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" monad {"+" [do]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}] - ["." frp]] + ["[0]" async {"+" [Async]}] + ["[0]" frp]] [parser - ["<.>" json]]] + ["<[0]>" json]]] [data - ["." number + ["[0]" number ["n" nat]] - ["." text - ["." encoding]] + ["[0]" text + ["[0]" encoding]] [format - ["." json {"+" [JSON]}] - ["." context {"+" [Context Property]}]] + ["[0]" json {"+" [JSON]}] + ["[0]" context {"+" [Context Property]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary]]] [world - ["." binary {"+" [Binary]}]]]] - ["." // {"+" [Body Response Server]} - ["#." response] - ["#." query] - ["#." cookie]]) + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" // {"+" [Body Response Server]} + ["[1][0]" response] + ["[1][0]" query] + ["[1][0]" cookie]]) (def: (merge inputs) (-> (List Binary) Binary) diff --git a/stdlib/source/library/lux/world/net/http/response.lux b/stdlib/source/library/lux/world/net/http/response.lux index a69eacb5c..0a03f9f31 100644 --- a/stdlib/source/library/lux/world/net/http/response.lux +++ b/stdlib/source/library/lux/world/net/http/response.lux @@ -3,23 +3,23 @@ [lux {"-" [static]} [control [concurrency - ["." async] - ["." frp ("#\." monad)]]] + ["[0]" async] + ["[0]" frp ("[1]\[0]" monad)]]] [data - ["." text - ["." encoding]] + ["[0]" text + ["[0]" encoding]] [format - ["." html] - ["." css {"+" [CSS]}] - ["." context] - ["." json {"+" [JSON]} ("#\." codec)]]] - ["." io] + ["[0]" html] + ["[0]" css {"+" [CSS]}] + ["[0]" context] + ["[0]" json {"+" [JSON]} ("[1]\[0]" codec)]]] + ["[0]" io] [world - ["." binary {"+" [Binary]}]]]] - ["." // {"+" [Status Body Response Server]} - ["." status] - ["." mime {"+" [MIME]}] - ["." header] + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" // {"+" [Status Body Response Server]} + ["[0]" status] + ["[0]" mime {"+" [MIME]}] + ["[0]" header] [// {"+" [URL]}]]) (def: .public (static response) diff --git a/stdlib/source/library/lux/world/net/http/route.lux b/stdlib/source/library/lux/world/net/http/route.lux index 07578b549..4232f4481 100644 --- a/stdlib/source/library/lux/world/net/http/route.lux +++ b/stdlib/source/library/lux/world/net/http/route.lux @@ -3,16 +3,16 @@ [lux {"-" [or]} [control [monad {"+" [do]}] - ["." maybe] + ["[0]" maybe] [concurrency - ["." async]]] + ["[0]" async]]] [data - ["." text] + ["[0]" text] [number ["n" nat]]]]] - ["." // {"+" [URI Server]} - ["#." status] - ["#." response]]) + ["[0]" // {"+" [URI Server]} + ["[1][0]" status] + ["[1][0]" response]]) (template [<scheme> <name>] [(def: .public (<name> server) diff --git a/stdlib/source/library/lux/world/output/video/resolution.lux b/stdlib/source/library/lux/world/output/video/resolution.lux index 81a0e96b8..f83a2dd75 100644 --- a/stdlib/source/library/lux/world/output/video/resolution.lux +++ b/stdlib/source/library/lux/world/output/video/resolution.lux @@ -5,10 +5,10 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." product]] + ["[0]" product]] [math [number - ["." nat]]]]]) + ["[0]" nat]]]]]) (type: .public Resolution (Record diff --git a/stdlib/source/library/lux/world/program.lux b/stdlib/source/library/lux/world/program.lux index ac93b9667..6e535fef3 100644 --- a/stdlib/source/library/lux/world/program.lux +++ b/stdlib/source/library/lux/world/program.lux @@ -2,30 +2,30 @@ [library [lux "*" ["@" target] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." function] - ["." io {"+" [IO]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" io {"+" [IO]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." atom] - ["." async {"+" [Async]}]] + ["[0]" atom] + ["[0]" async {"+" [Async]}]] [parser - ["." environment {"+" [Environment]}]]] + ["[0]" environment {"+" [Environment]}]]] [data - ["." bit ("#\." equivalence)] - ["." text + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor)]]] - ["." macro - ["." template]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" macro + ["[0]" template]] [math [number ["i" int]]] @@ -115,20 +115,20 @@ (with_expansions [<jvm> (as_is (import: java/lang/String) (import: (java/util/Iterator a) - ["#::." + ["[1]::[0]" (hasNext [] boolean) (next [] a)]) (import: (java/util/Set a) - ["#::." + ["[1]::[0]" (iterator [] (java/util/Iterator a))]) (import: (java/util/Map k v) - ["#::." + ["[1]::[0]" (keySet [] (java/util/Set k))]) (import: java/lang/System - ["#::." + ["[1]::[0]" ("static" getenv [] (java/util/Map java/lang/String java/lang/String)) ("static" getenv "as" resolveEnv [java/lang/String] "io" "?" java/lang/String) ("static" getProperty [java/lang/String] "?" java/lang/String) @@ -148,7 +148,7 @@ (|>> %.int panic! io.io)) (import: NodeJs_Process - ["#::." + ["[1]::[0]" (exit [ffi.Number] "io" Nothing) (cwd [] "io" Path)]) @@ -162,11 +162,11 @@ (..default_exit! code))) (import: Browser_Window - ["#::." + ["[1]::[0]" (close [] Nothing)]) (import: Browser_Location - ["#::." + ["[1]::[0]" (reload [] Nothing)]) (def: (exit_browser! code) @@ -193,11 +193,11 @@ (..default_exit! code))) (import: Object - ["#::." + ["[1]::[0]" ("static" entries [Object] (Array (Array ffi.String)))]) (import: NodeJs_OS - ["#::." + ["[1]::[0]" (homedir [] "io" Path)]) (template [<name> <path>] @@ -221,20 +221,20 @@ _ (undefined)))) @.python (as_is (import: os - ["#::." + ["[1]::[0]" ("static" getcwd [] "io" ffi.String) ("static" _exit [ffi.Integer] "io" Nothing)]) (import: os/path - ["#::." + ["[1]::[0]" ("static" expanduser [ffi.String] "io" ffi.String)]) (import: os/environ - ["#::." + ["[1]::[0]" ("static" keys [] "io" (Array ffi.String)) ("static" get [ffi.String] "io" "?" ffi.String)])) @.lua (as_is (ffi.import: LuaFile - ["#::." + ["[1]::[0]" (read [ffi.String] "io" "?" ffi.String) (close [] "io" ffi.Boolean)]) @@ -261,20 +261,20 @@ (#try.Failure _) (in default))))) @.ruby (as_is (ffi.import: Env "as" RubyEnv - ["#::." + ["[1]::[0]" ("static" keys [] (Array Text)) ("static" fetch [Text] "io" "?" Text)]) (ffi.import: "fileutils" FileUtils "as" RubyFileUtils - ["#::." + ["[1]::[0]" ("static" pwd Path)]) (ffi.import: Dir "as" RubyDir - ["#::." + ["[1]::[0]" ("static" home Path)]) (ffi.import: Kernel "as" RubyKernel - ["#::." + ["[1]::[0]" ("static" exit [Int] "io" Nothing)])) ... @.php diff --git a/stdlib/source/library/lux/world/service/crud.lux b/stdlib/source/library/lux/world/service/crud.lux index 876f5e4cb..eeb245fea 100644 --- a/stdlib/source/library/lux/world/service/crud.lux +++ b/stdlib/source/library/lux/world/service/crud.lux @@ -2,11 +2,11 @@ [library [lux "*" [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [security ["!" capability {"+" [capability:]}]]] [time - ["." instant {"+" [Instant]}]]]]) + ["[0]" instant {"+" [Instant]}]]]]) (type: .public ID Nat) diff --git a/stdlib/source/library/lux/world/service/journal.lux b/stdlib/source/library/lux/world/service/journal.lux index 878da3eb7..6f080a26f 100644 --- a/stdlib/source/library/lux/world/service/journal.lux +++ b/stdlib/source/library/lux/world/service/journal.lux @@ -8,9 +8,9 @@ [security ["!" capability {"+" [capability:]}]]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [time - ["." instant {"+" [Instant]} ("#\." equivalence)]]]]) + ["[0]" instant {"+" [Instant]} ("[1]\[0]" equivalence)]]]]) (type: .public (Entry a) (Record @@ -31,7 +31,7 @@ (def: bottom start) (def: top end))) -(implementation: .public (equivalence (^open "_\.")) +(implementation: .public (equivalence (^open "_\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Entry a)))) (def: (= reference sample) (and (_\= (value@ #what reference) (value@ #what sample)) diff --git a/stdlib/source/library/lux/world/shell.lux b/stdlib/source/library/lux/world/shell.lux index 927412def..07a9b3f3f 100644 --- a/stdlib/source/library/lux/world/shell.lux +++ b/stdlib/source/library/lux/world/shell.lux @@ -6,27 +6,27 @@ [abstract [monad {"+" [do]}]] [control - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]}] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] [security ["?" policy {"+" [Context Safety Safe]}]] [concurrency - ["." atom {"+" [Atom]}] - ["." async {"+" [Async]}]] + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async]}]] [parser [environment {"+" [Environment]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." mix functor)] - ["." dictionary]]] + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" dictionary]]] [math [number {"+" [hex]} ["n" nat]]]]] @@ -140,7 +140,7 @@ (Ex (_ ?) (-> (Sanitizer Command) (Sanitizer Argument) (Policy ?))) (?.with_policy (: (Context Safety Policy) - (function (_ (^open "?\.")) + (function (_ (^open "?\[0]")) (implementation (def: command (|>> safe_command ?\can_upgrade)) (def: argument (|>> safe_argument ?\can_upgrade)) @@ -171,7 +171,7 @@ (..policy safe_command safe_argument))) (with_expansions [<jvm> (as_is (import: java/lang/String - ["#::." + ["[1]::[0]" (toLowerCase [] java/lang/String)]) (def: (jvm::arguments_array arguments) @@ -185,7 +185,7 @@ arguments))) (import: (java/util/Map k v) - ["#::." + ["[1]::[0]" (put [k v] v)]) (def: (jvm::load_environment input target) @@ -202,26 +202,26 @@ (dictionary.entries input))) (import: java/io/Reader - ["#::." + ["[1]::[0]" (read [] "io" "try" int)]) (import: java/io/BufferedReader - ["#::." + ["[1]::[0]" (new [java/io/Reader]) (readLine [] "io" "try" "?" java/lang/String)]) (import: java/io/InputStream) (import: java/io/InputStreamReader - ["#::." + ["[1]::[0]" (new [java/io/InputStream])]) (import: java/io/OutputStream - ["#::." + ["[1]::[0]" (write [[byte]] "io" "try" void)]) (import: java/lang/Process - ["#::." + ["[1]::[0]" (getInputStream [] "io" "try" java/io/InputStream) (getErrorStream [] "io" "try" java/io/InputStream) (getOutputStream [] "io" "try" java/io/OutputStream) @@ -269,18 +269,18 @@ )))))))) (import: java/io/File - ["#::." + ["[1]::[0]" (new [java/lang/String])]) (import: java/lang/ProcessBuilder - ["#::." + ["[1]::[0]" (new [[java/lang/String]]) (environment [] "try" (java/util/Map java/lang/String java/lang/String)) (directory [java/io/File] java/lang/ProcessBuilder) (start [] "io" "try" java/lang/Process)]) (import: java/lang/System - ["#::." + ["[1]::[0]" ("static" getProperty [java/lang/String] "io" "try" java/lang/String)]) ... https://en.wikipedia.org/wiki/Code_injection#Shell_injection |