aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/command')
-rw-r--r--stdlib/source/program/aedifex/command/auto.lux14
-rw-r--r--stdlib/source/program/aedifex/command/build.lux48
-rw-r--r--stdlib/source/program/aedifex/command/clean.lux18
-rw-r--r--stdlib/source/program/aedifex/command/deploy.lux10
-rw-r--r--stdlib/source/program/aedifex/command/deps.lux12
-rw-r--r--stdlib/source/program/aedifex/command/install.lux6
-rw-r--r--stdlib/source/program/aedifex/command/pom.lux12
-rw-r--r--stdlib/source/program/aedifex/command/test.lux10
8 files changed, 65 insertions, 65 deletions
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)
_ <call>]
(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 <capability> [])
+ _ (|> (# process <capability> [])
(async.upon! (function (recur ?line)
(case ?line
{try.#Failure error}
@@ -216,7 +216,7 @@
{try.#Success _}
(async.upon! recur
- (\ process <capability> []))))
+ (# process <capability> []))))
(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)
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-05 07:17:50 +0000