diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command')
| -rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 16 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 24 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 18 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy/release.lux | 36 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy/snapshot.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/deps.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/install.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/pom.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/test.lux | 14 |
9 files changed, 68 insertions, 68 deletions
diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux index dc922b4c1..07842d32e 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)) - (monad.each ! (targets fs)))) - (# ! conjoint) - (# ! each (|>> list.together (partial_list path)))))) + (at fs sub_directories) + (at ! each (|>> (try.else (list)) + (monad.each ! (targets fs)))) + (at ! conjoint) + (at ! each (|>> list.together (partial_list path)))))) (def: .public delay Nat @@ -56,14 +56,14 @@ (the ///.#sources) set.list (monad.each ! (..targets fs)) - (# ! each list.together))] + (at ! each list.together))] (do [! ///action.monad] - [_ (monad.each ! (# watcher start watch.modification) targets) + [_ (monad.each ! (at watcher start watch.modification) targets) _ <call>] (loop (again [_ []]) (do ! [_ (..pause delay) - events (# watcher poll [])] + events (at 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 d08f7f7b1..0454a4a60 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -122,7 +122,7 @@ (def: (path fs home dependency) (All (_ !) (-> (file.System !) Path Dependency Path)) - (let [/ (# fs separator) + (let [/ (at fs separator) artifact (the ///dependency.#artifact dependency)] (|> artifact (///local.uri (the ///artifact.#version artifact)) @@ -178,7 +178,7 @@ version (the ///artifact.#version artifact)] (case (dictionary.value identity uniques) {.#Some [current_version current_path]} - (if (# version_order < version current_version) + (if (at version_order < version current_version) (dictionary.has identity [version dependency] uniques) uniques) @@ -212,7 +212,7 @@ (let [[read! write!] (is [(Async (Try Any)) (async.Resolver (Try Any))] (async.async [])) - _ (|> (# process <capability> []) + _ (|> (at process <capability> []) (async.upon! (function (again ?line) (case ?line {try.#Failure error} @@ -229,7 +229,7 @@ {try.#Success _} (async.upon! again - (# process <capability> [])))) + (at process <capability> [])))) (is (Async (Try Any)) (console.write_line line console)))))) io.run!)] @@ -287,8 +287,8 @@ {.#Some program_module} (do async.monad [environment (program.environment async.monad program) - .let [home (# program home) - working_directory (# program directory)]] + .let [home (at program home) + working_directory (at program directory)]] (do ///action.monad [[resolution lux] (async#in (..lux resolution (the ///.#lux profile))) .let [host_dependencies (..host_dependencies fs home resolution) @@ -310,7 +310,7 @@ [#Python ///.#java "program.py"] [#Lua ///.#java "program.lua"] [#Ruby ///.#java (file.rooted fs "program" ruby_packager.main_file)])) - / (# fs separator) + / (at fs separator) cache_directory (format working_directory / target)] _ (is (Async (Try Any)) (console.write_line ..start console)) @@ -323,13 +323,13 @@ (..singular "--target" cache_directory) (..singular "--module" program_module) (..singular "--configuration" (configuration.format (the ///.#configuration profile)))))] - process (# shell execute [(dictionary.composite environment command_environment) - working_directory - command - full_parameters]) + process (at shell execute [(dictionary.composite environment command_environment) + working_directory + command + full_parameters]) _ (..log_output! console process) _ (..log_error! console process) - exit (# process await []) + exit (at process await []) _ (is (Async (Try Any)) (console.write_line (if (i.= shell.normal exit) ..success diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux index 3187376e8..7798a2006 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))) (do [! ///action.monad] [_ (|> root - (# fs directory_files) - (# ! each (monad.each ! (# fs delete))) - (# ! conjoint))] + (at fs directory_files) + (at ! each (monad.each ! (at fs delete))) + (at ! conjoint))] (in []))) (def: .public success @@ -35,16 +35,16 @@ (-> (Console Async) (file.System Async) (Command Any)) (do [! async.monad] [.let [target (the ///.#target profile)] - ? (# fs directory? target) + ? (at fs directory? target) _ (let [! ///action.monad] (if ? (loop (again [root target]) (do ! [_ (..clean_files! fs root) _ (|> root - (# fs sub_directories) - (# ! each (monad.each ! again)) - (# ! conjoint))] - (# fs delete root))) - (# ! in [])))] + (at fs sub_directories) + (at ! each (monad.each ! again)) + (at ! conjoint))] + (at fs delete root))) + (at ! in [])))] (console.write_line (..success target) console))) diff --git a/stdlib/source/program/aedifex/command/deploy/release.lux b/stdlib/source/program/aedifex/command/deploy/release.lux index 2f7d1e4d7..b6d93b30b 100644 --- a/stdlib/source/program/aedifex/command/deploy/release.lux +++ b/stdlib/source/program/aedifex/command/deploy/release.lux @@ -70,9 +70,9 @@ (def: windows? (IO (Try Bit)) - (# (try.with io.monad) each - (|>> java/lang/String::toLowerCase ffi.of_string (text.starts_with? "windows")) - (java/lang/System::getProperty (ffi.as_string "os.name")))) + (at (try.with io.monad) each + (|>> java/lang/String::toLowerCase ffi.of_string (text.starts_with? "windows")) + (java/lang/System::getProperty (ffi.as_string "os.name")))) (def: dummy_jar Binary @@ -117,9 +117,9 @@ (-> (Program Async) (Repository Async) (file.System Async) Artifact (Async (Try Any))) (do (try.with async.monad) [.let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)] - _ (# local upload (..jar $artifact) ..dummy_jar) - _ (# local upload (..javadoc $artifact) ..dummy_jar) - _ (# local upload (..sources $artifact) ..dummy_jar)] + _ (at local upload (..jar $artifact) ..dummy_jar) + _ (at local upload (..javadoc $artifact) ..dummy_jar) + _ (at local upload (..sources $artifact) ..dummy_jar)] (in []))) (def: (signed it) @@ -129,8 +129,8 @@ (def: (release_unsigned_artifact! local remote uri) (-> (Repository Async) (Repository Async) Text (Async (Try Binary))) (do [! ////action.monad] - [it (# local download uri) - _ (# remote upload uri it)] + [it (at local download uri) + _ (at remote upload uri it)] (in it))) (def: (release_signed_artifact! local remote [artifact signature]) @@ -139,9 +139,9 @@ [it (..release_unsigned_artifact! local remote artifact) _ (|> it ////hash.md5 - (# ////hash.md5_codec encoded) - (# utf8.codec encoded) - (# remote upload (..md5 artifact))) + (at ////hash.md5_codec encoded) + (at utf8.codec encoded) + (at remote upload (..md5 artifact))) _ (..release_unsigned_artifact! local remote signature)] (in []))) @@ -150,19 +150,19 @@ (do [! ////action.monad] [_ (///install.do! console fs local profile) _ (install_dummies! program local fs artifact) - .let [working_directory (# program directory) + .let [working_directory (at program directory) @root (////repository/local.root program fs) $bundle (////artifact.bundle (the ////artifact.#version artifact) artifact) - / (# fs separator) + / (at fs separator) @local (%.format @root / $bundle)] windows? (async.future ..windows?) process (is (Async (Try (shell.Process Async))) - (# shell execute [environment.empty @local - (if windows? - ["cmd" (list "/c" "for %file in (.\*) do gpg.exe -ab %file")] - ["sh" (list "-c" "for file in *.*; do gpg -ab $file; done")])])) + (at shell execute [environment.empty @local + (if windows? + ["cmd" (list "/c" "for %file in (.\*) do gpg.exe -ab %file")] + ["sh" (list "-c" "for file in *.*; do gpg -ab $file; done")])])) exit (is (Async (Try shell.Exit)) - (# process await [])) + (at process await [])) .let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)] _ (monad.each ! (release_signed_artifact! local remote) (list (..signed (..pom $artifact)) diff --git a/stdlib/source/program/aedifex/command/deploy/snapshot.lux b/stdlib/source/program/aedifex/command/deploy/snapshot.lux index 90251c3bd..1fd2c8793 100644 --- a/stdlib/source/program/aedifex/command/deploy/snapshot.lux +++ b/stdlib/source/program/aedifex/command/deploy/snapshot.lux @@ -50,14 +50,14 @@ (the /.#sources) set.list (export.library fs) - (# ! each (binary.result tar.writer))) - pom (# async.monad in (////pom.write profile)) + (at ! each (binary.result tar.writer))) + pom (at async.monad in (////pom.write profile)) _ (////dependency/deployment.one remote [artifact ////artifact/type.lux_library] (let [pom_data (|> pom - (# xml.codec encoded) - (# utf8.codec encoded))] + (at xml.codec encoded) + (at 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 915ac8db0..e113616ef 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -59,19 +59,19 @@ (///dependency/deployment.all local)) _ (console.write_line (exception.report "Local successes" (|> local_successes - (list.sorted (# ///dependency.order <)) + (list.sorted (at ///dependency.order <)) (exception.listing ..format)) "Local failures" (|> local_failures - (list.sorted (# ///dependency.order <)) + (list.sorted (at ///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 (at ///dependency.order <)) (exception.listing ..format)) "Remote failures" (|> remote_failures - (list.sorted (# ///dependency.order <)) + (list.sorted (at ///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 90ace7b46..e6e85948c 100644 --- a/stdlib/source/program/aedifex/command/install.lux +++ b/stdlib/source/program/aedifex/command/install.lux @@ -61,12 +61,12 @@ (export.library fs)) pom (|> profile ///pom.write - (# async.monad in)) + (at async.monad in)) _ (///dependency/deployment.one local [identity ///artifact/type.lux_library] (let [pom_data (|> pom - (# xml.codec encoded) - (# utf8.codec encoded))] + (at xml.codec encoded) + (at 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 784a07d9a..2abff6969 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -29,9 +29,9 @@ (-> (Console Async) (file.System Async) (Command Any)) (do ///action.monad [content (|> (///pom.write profile) - (try#each (|>> (# xml.codec encoded) - (# utf8.codec encoded))) + (try#each (|>> (at xml.codec encoded) + (at utf8.codec encoded))) async#in) - _ (# fs write ///pom.file content)] + _ (at fs write ///pom.file content)] (is (Async (Try Any)) (console.write_line ..success console)))) diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index fa3d55d1d..0c6c03db9 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -38,9 +38,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 (at program directory)]] (do [! ///action.monad] - [.let [home (# program home)] + [.let [home (at program home)] [build_exit compiler program] (//build.do! console program fs shell resolution (has ///.#program (the ///.#test profile) profile))] (if (i.= shell.normal build_exit) @@ -62,13 +62,13 @@ [//build.#Python ///.#python] [//build.#Lua ///.#lua] [//build.#Ruby ///.#ruby]))] - process (# shell execute [(dictionary.composite environment command_environment) - working_directory - test_command - test_parameters]) + process (at shell execute [(dictionary.composite environment command_environment) + working_directory + test_command + test_parameters]) _ (//build.log_output! console process) _ (//build.log_error! console process) - exit (# process await []) + exit (at process await []) _ (is (Async (Try Any)) (console.write_line (if (i.= shell.normal exit) ..success |