diff options
Diffstat (limited to 'stdlib/source/program/aedifex/parser.lux')
-rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index 7fa14fb60..435e0fb79 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -34,49 +34,49 @@ ["[1][0]" artifact (.only Artifact) ["[1]/[0]" type]]]) -(def: (singular input tag parser) +(def (singular input tag parser) (All (_ a) (-> (Dictionary Text Code) Text (Parser a) (Parser a))) (<code>.locally (maybe.list (dictionary.value tag input)) parser)) -(def: (plural input tag parser) +(def (plural input tag parser) (All (_ a) (-> (Dictionary Text Code) Text (Parser a) (Parser (List a)))) (<code>.locally (maybe.list (dictionary.value tag input)) (<code>.tuple (<>.some parser)))) -(def: group +(def group (Parser //artifact.Group) <code>.text) -(def: name +(def name (Parser //artifact.Name) <code>.text) -(def: version +(def version (Parser //artifact.Version) <code>.text) -(def: artifact' +(def artifact' (Parser //artifact.Artifact) (all <>.and ..group ..name ..version)) -(def: artifact +(def artifact (Parser //artifact.Artifact) (<code>.tuple ..artifact')) -(def: url +(def url (Parser URL) <code>.text) -(def: scm +(def scm (Parser /.SCM) ..url) -(def: description +(def description (Parser Text) <code>.text) -(def: license +(def license (Parser /.License) (do [! <>.monad] [input (at ! each @@ -91,7 +91,7 @@ (<>.or (<code>.this (' "repo")) (<code>.this (' "manual")))))))) -(def: organization +(def organization (Parser /.Organization) (do [! <>.monad] [input (at ! each @@ -102,7 +102,7 @@ (..singular input "name" ..name) (..singular input "url" ..url)))) -(def: developer +(def developer (Parser /.Developer) (do [! <>.monad] [input (at ! each @@ -115,11 +115,11 @@ (<>.maybe (..singular input "organization" ..organization)) ))) -(def: contributor +(def contributor (Parser /.Contributor) ..developer) -(def: info +(def info (Parser /.Info) (do [! <>.monad] [input (at ! each @@ -137,15 +137,15 @@ (<>.else (list) (..plural input "contributors" ..contributor)) ))) -(def: repository +(def repository (Parser //repository.Address) ..url) -(def: type +(def type (Parser //artifact/type.Type) <code>.text) -(def: dependency +(def dependency (Parser //dependency.Dependency) (<code>.tuple (all <>.and @@ -153,7 +153,7 @@ (<>.else //artifact/type.lux_library ..type) ))) -(def: compiler +(def compiler (Parser Compiler) (<code>.tuple (all <>.and @@ -161,29 +161,29 @@ (<>.some <code>.text) ))) -(def: source +(def source (Parser /.Source) <code>.text) -(def: target +(def target (Parser /.Target) <code>.text) -(def: module +(def module (Parser Module) <code>.text) -(def: deploy_repository +(def deploy_repository (Parser [Text //repository.Address]) (<>.and <code>.text ..repository)) -(def: configuration/1 +(def configuration/1 (Parser [Text Text]) (<>.and <code>.text <code>.text)) -(def: runtime +(def runtime (Parser Runtime) (let [environment (<>#each (dictionary.of_list text.hash) (<>.some (<code>.tuple (<>.and <code>.text <code>.text))))] @@ -193,7 +193,7 @@ <code>.text (<>.some <code>.text))))) -(def: profile +(def profile (Parser /.Profile) (do [! <>.monad] [input (at ! each @@ -281,7 +281,7 @@ ^ruby ))) -(def: .public project +(def .public project (Parser Project) (at <>.monad each (dictionary.of_list text.hash) |