From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 12 Sep 2021 15:39:55 -0400 Subject: Re-named \ => # && \\ => ## --- stdlib/source/program/aedifex/command/auto.lux | 14 +++---- stdlib/source/program/aedifex/command/build.lux | 48 +++++++++++------------ stdlib/source/program/aedifex/command/clean.lux | 18 ++++----- stdlib/source/program/aedifex/command/deploy.lux | 10 ++--- stdlib/source/program/aedifex/command/deps.lux | 12 +++--- stdlib/source/program/aedifex/command/install.lux | 6 +-- stdlib/source/program/aedifex/command/pom.lux | 12 +++--- stdlib/source/program/aedifex/command/test.lux | 10 ++--- 8 files changed, 65 insertions(+), 65 deletions(-) (limited to 'stdlib/source/program/aedifex/command') diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux index 2160398eb..863251305 100644 --- a/stdlib/source/program/aedifex/command/auto.lux +++ b/stdlib/source/program/aedifex/command/auto.lux @@ -29,11 +29,11 @@ (-> (file.System Async) file.Path (Async (List file.Path))) (let [! async.monad] (|> path - (\ fs sub_directories) - (\ ! each (|>> (try.else (list)) + (# fs sub_directories) + (# ! each (|>> (try.else (list)) (monad.each ! (targets fs)))) - (\ ! conjoint) - (\ ! each (|>> list.together (list& path)))))) + (# ! conjoint) + (# ! each (|>> list.together (list& path)))))) (def: .public delay Nat @@ -56,14 +56,14 @@ (value@ ///.#sources) set.list (monad.each ! (..targets fs)) - (\ ! each list.together))] + (# ! each list.together))] (do [! ///action.monad] - [_ (monad.each ! (\ watcher start watch.modification) targets) + [_ (monad.each ! (# watcher start watch.modification) targets) _ ] (loop [_ []] (do ! [_ (..pause delay) - events (\ watcher poll [])] + events (# watcher poll [])] (case events {.#Item _} (do ! diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index c16f7c9ef..d20b00479 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -10,13 +10,13 @@ ["[0]" exception {"+" [exception:]}] ["[0]" io {"+" [IO]}] [concurrency - ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] + ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]] [data ["[0]" product] - ["[0]" text ("[1]\[0]" order) + ["[0]" text ("[1]#[0]" order) ["%" format {"+" [format]}]] [collection - ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" list ("[1]#[0]" functor mix)] ["[0]" dictionary {"+" [Dictionary]}] ["[0]" set]]] [math @@ -49,8 +49,8 @@ (-> Group Name Finder) (|>> dictionary.entries (list.one (function (_ [dependency package]) - (if (and (text\= group (value@ [///dependency.#artifact ///artifact.#group] dependency)) - (text\= name (value@ [///dependency.#artifact ///artifact.#name] dependency))) + (if (and (text#= group (value@ [///dependency.#artifact ///artifact.#group] dependency)) + (text#= name (value@ [///dependency.#artifact ///artifact.#name] dependency))) {.#Some dependency} {.#None}))))) @@ -111,7 +111,7 @@ (def: (path fs home dependency) (All (_ !) (-> (file.System !) Path Dependency Path)) - (let [/ (\ fs separator) + (let [/ (# fs separator) artifact (value@ ///dependency.#artifact dependency)] (|> artifact (///local.uri (value@ ///artifact.#version artifact)) @@ -123,8 +123,8 @@ (All (_ !) (-> (file.System !) Path Resolution (List Path))) (|>> dictionary.keys (list.only (|>> (value@ ///dependency.#type) - (text\= ///artifact/type.lux_library))) - (list\each (..path fs home)))) + (text#= ///artifact/type.lux_library))) + (list#each (..path fs home)))) (def: version_separator ".") @@ -140,10 +140,10 @@ right (text.all_split_by ..version_separator right)] (case [left right] [{.#Item leftH leftT} {.#Item rightH rightT}] - (if (text\= leftH rightH) + (if (text#= leftH rightH) (recur leftT rightT) (or (n.< (text.size leftH) (text.size rightH)) - (text\< leftH rightH))) + (text#< leftH rightH))) [{.#Item leftH leftT} {.#End}] false @@ -158,16 +158,16 @@ (All (_ !) (-> (file.System !) Path Resolution (List Path))) (|>> dictionary.keys (list.only (|>> (value@ ///dependency.#type) - (text\= ///artifact/type.lux_library) + (text#= ///artifact/type.lux_library) not)) - (list\mix (function (_ dependency uniques) + (list#mix (function (_ dependency uniques) (let [artifact (value@ ///dependency.#artifact dependency) identity [(value@ ///artifact.#group artifact) (value@ ///artifact.#name artifact)] version (value@ ///artifact.#version artifact)] (case (dictionary.value identity uniques) {.#Some [current_version current_path]} - (if (\ version_order < version current_version) + (if (# version_order < version current_version) (dictionary.has identity [version dependency] uniques) uniques) @@ -176,7 +176,7 @@ (: (Dictionary [Group Name] [Version Dependency]) (dictionary.empty (product.hash text.hash text.hash)))) dictionary.values - (list\each (|>> product.right (..path fs home))))) + (list#each (|>> product.right (..path fs home))))) (def: (singular name) (-> Text Text (List Text)) @@ -184,7 +184,7 @@ (def: (plural name) (-> Text (List Text) (List Text)) - (|>> (list\each (|>> (list name))) list.together)) + (|>> (list#each (|>> (list name))) list.together)) (def: .public start "[BUILD STARTED]") (def: .public success "[BUILD ENDED]") @@ -200,7 +200,7 @@ (let [[read! write!] (: [(Async (Try Any)) (async.Resolver (Try Any))] (async.async [])) - _ (|> (\ process []) + _ (|> (# process []) (async.upon! (function (recur ?line) (case ?line {try.#Failure error} @@ -216,7 +216,7 @@ {try.#Success _} (async.upon! recur - (\ process [])))) + (# process [])))) (console.write_line line console))))) io.run!)] read!))] @@ -265,15 +265,15 @@ (let [target (value@ ///.#target profile)] (case (value@ ///.#program profile) {.#None} - (async\in (exception.except ..no_specified_program [])) + (async#in (exception.except ..no_specified_program [])) {.#Some program_module} (do async.monad [environment (program.environment async.monad program) - .let [home (\ program home) - working_directory (\ program directory)]] + .let [home (# program home) + working_directory (# program directory)]] (do ///action.monad - [[resolution compiler] (async\in (..compiler resolution (value@ ///.#compiler profile))) + [[resolution compiler] (async#in (..compiler resolution (value@ ///.#compiler profile))) .let [host_dependencies (..host_dependencies fs home resolution) [[command compiler_params] output] (case compiler {#JVM dependency} @@ -292,7 +292,7 @@ [#Python ///.#java "program.py"] [#Lua ///.#java "program.lua"] [#Ruby ///.#java "program.rb"])) - / (\ fs separator) + / (# fs separator) cache_directory (format working_directory / target)] _ (console.write_line ..start console) .let [full_parameters (list.together (list compiler_params @@ -302,13 +302,13 @@ (..plural "--source" (set.list (value@ ///.#sources profile))) (..singular "--target" cache_directory) (..singular "--module" program_module)))] - process (\ shell execute [environment + process (# shell execute [environment working_directory command full_parameters]) _ (..log_output! console process) _ (..log_error! console process) - exit (\ process await []) + exit (# process await []) _ (console.write_line (if (i.= shell.normal exit) ..success ..failure) diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux index d175ae291..bbdec8763 100644 --- a/stdlib/source/program/aedifex/command/clean.lux +++ b/stdlib/source/program/aedifex/command/clean.lux @@ -22,9 +22,9 @@ (-> (file.System Async) Path (Async (Try Any))) (let [! ///action.monad] (|> root - (\ fs directory_files) - (\ ! each (monad.each ! (\ fs delete))) - (\ ! conjoint)))) + (# fs directory_files) + (# ! each (monad.each ! (# fs delete))) + (# ! conjoint)))) (def: .public success (-> ///.Target Text) @@ -34,16 +34,16 @@ (-> (Console Async) (file.System Async) (Command Any)) (do [! async.monad] [.let [target (value@ ///.#target profile)] - ? (\ fs directory? target) + ? (# fs directory? target) _ (let [! ///action.monad] (if ? (loop [root target] (do ! [_ (..clean_files! fs root) _ (|> root - (\ fs sub_directories) - (\ ! each (monad.each ! recur)) - (\ ! conjoint))] - (\ fs delete root))) - (\ ! in [])))] + (# fs sub_directories) + (# ! each (monad.each ! recur)) + (# ! conjoint))] + (# fs delete root))) + (# ! in [])))] (console.write_line (..success target) console))) diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index 7210e9a30..d6d783113 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -7,7 +7,7 @@ [pipe {"+" [do>]}] ["[0]" try {"+" [Try]}] [concurrency - ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] + ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]] ["<>" parser ["<[0]>" xml]]] [data @@ -63,14 +63,14 @@ (value@ /.#sources) set.list (export.library fs) - (\ ! each (binary.result tar.writer))) - pom (\ async.monad in (///pom.write profile)) + (# ! each (binary.result tar.writer))) + pom (# async.monad in (///pom.write profile)) _ (///dependency/deployment.one repository [artifact ///artifact/type.lux_library] (let [pom_data (|> pom - (\ xml.codec encoded) - (\ utf8.codec encoded))] + (# xml.codec encoded) + (# utf8.codec encoded))] [///package.#origin {///repository/origin.#Remote ""} ///package.#library [library (///dependency/status.verified library)] diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux index ed636efeb..50df346db 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -10,7 +10,7 @@ [data [collection ["[0]" set {"+" [Set]}] - ["[0]" list ("[1]\[0]" mix)] + ["[0]" list ("[1]#[0]" mix)] ["[0]" dictionary]] [text ["%" format]]] @@ -55,23 +55,23 @@ cache)] (do ///action.monad [cached (|> (dictionary.keys cache) - (list\mix dictionary.lacks resolution) + (list#mix dictionary.lacks resolution) (///dependency/deployment.all local)) _ (console.write_line (exception.report ["Local successes" (|> local_successes - (list.sorted (\ ///dependency.order <)) + (list.sorted (# ///dependency.order <)) (exception.listing ..format))] ["Local failures" (|> local_failures - (list.sorted (\ ///dependency.order <)) + (list.sorted (# ///dependency.order <)) (exception.listing ..format))] ["Remote successes" (|> remote_successes (set.of_list ///dependency.hash) (set.difference (set.of_list ///dependency.hash local_successes)) set.list - (list.sorted (\ ///dependency.order <)) + (list.sorted (# ///dependency.order <)) (exception.listing ..format))] ["Remote failures" (|> remote_failures - (list.sorted (\ ///dependency.order <)) + (list.sorted (# ///dependency.order <)) (exception.listing ..format))]) console)] (in resolution)))) diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux index 4b413faa5..d89773504 100644 --- a/stdlib/source/program/aedifex/command/install.lux +++ b/stdlib/source/program/aedifex/command/install.lux @@ -60,12 +60,12 @@ (export.library fs)) pom (|> profile ///pom.write - (\ async.monad in)) + (# async.monad in)) _ (///dependency/deployment.one repository [identity ///artifact/type.lux_library] (let [pom_data (|> pom - (\ xml.codec encoded) - (\ utf8.codec encoded))] + (# xml.codec encoded) + (# utf8.codec encoded))] [///package.#origin {///origin.#Local ""} ///package.#library (let [library (binary.result tar.writer package)] [library (///dependency/status.verified library)]) diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux index b176232aa..f4eee1c2b 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -4,9 +4,9 @@ [abstract [monad {"+" [do]}]] [control - ["[0]" try ("[1]\[0]" functor)] + ["[0]" try ("[1]#[0]" functor)] [concurrency - ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] + ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]] [data [text ["%" format {"+" [format]}] @@ -29,8 +29,8 @@ (-> (Console Async) (file.System Async) (Command Any)) (do ///action.monad [content (|> (///pom.write profile) - (try\each (|>> (\ xml.codec encoded) - (\ utf8.codec encoded))) - async\in) - _ (\ fs write content ///pom.file)] + (try#each (|>> (# xml.codec encoded) + (# utf8.codec encoded))) + async#in) + _ (# fs write content ///pom.file)] (console.write_line ..success console))) diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index 04f4e8e27..d017dd228 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -5,7 +5,7 @@ [monad {"+" [do]}]] [control [concurrency - ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] + ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]] [math [number ["i" int]]] @@ -32,9 +32,9 @@ (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any])) (do async.monad [environment (program.environment async.monad program) - .let [working_directory (\ program directory)]] + .let [working_directory (# program directory)]] (do [! ///action.monad] - [.let [home (\ program home)] + [.let [home (# program home)] [build_exit compiler program] (//build.do! console program fs shell resolution (with@ ///.#program (value@ ///.#test profile) profile))] (if (i.= shell.normal build_exit) @@ -55,13 +55,13 @@ [//build.#Python ///.#python] [//build.#Lua ///.#lua] [//build.#Ruby ///.#ruby]))] - process (\ shell execute [environment + process (# shell execute [environment working_directory test_command test_parameters]) _ (//build.log_output! console process) _ (//build.log_error! console process) - exit (\ process await []) + exit (# process await []) _ (console.write_line (if (i.= shell.normal exit) ..success ..failure) -- cgit v1.2.3