diff options
author | Eduardo Julian | 2022-07-03 00:35:32 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-07-03 00:35:32 -0400 |
commit | 9e7ddacf853efd7a18c1911d2f287d483b083229 (patch) | |
tree | 140eee091b7453879f072a48044635d03aa5096b /stdlib/source/documentation/lux/control/parser/analysis.lux | |
parent | 7e4c9ba2e02f06fa621ffe24bc0ca046536429ef (diff) |
Added a new custom type for pattern-matching macros.
Diffstat (limited to 'stdlib/source/documentation/lux/control/parser/analysis.lux')
-rw-r--r-- | stdlib/source/documentation/lux/control/parser/analysis.lux | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/stdlib/source/documentation/lux/control/parser/analysis.lux b/stdlib/source/documentation/lux/control/parser/analysis.lux deleted file mode 100644 index 14ff24f04..000000000 --- a/stdlib/source/documentation/lux/control/parser/analysis.lux +++ /dev/null @@ -1,71 +0,0 @@ -(.require - [library - [lux (.except nat int rev local) - ["$" documentation (.only documentation:)] - [data - [text (.only \n) - ["%" \\format (.only format)]]] - [macro - ["[0]" template]]]] - [\\library - ["[0]" /]]) - -(documentation: (/.Parser it) - "A parser for Lux code analysis nodes.") - -(documentation: /.result - "Executes a parser and makes sure no inputs go unconsumed." - [(result parser input)]) - -(documentation: /.any - "Matches any value, without discrimination.") - -(documentation: /.end - "Ensures there are no more inputs.") - -(documentation: /.end? - "Checks whether there are no more inputs.") - -(with_template [<query> <assertion>] - [(`` (these (`` (documentation: <query> - (format "Queries for a " (,, (template.text [<query>])) " value."))) - (`` (documentation: <assertion> - (format "Assert a specific " (,, (template.text [<query>])) " value.")))))] - - [/.bit /.this_bit] - [/.nat /.this_nat] - [/.int /.this_int] - [/.rev /.this_rev] - [/.frac /.this_frac] - [/.text /.this_text] - [/.local /.this_local] - [/.foreign /.this_foreign] - [/.constant /.this_constant] - ) - -(documentation: /.tuple - "Parses only within the context of a tuple's contents." - [(tuple parser)]) - -(.def .public documentation - (.List $.Module) - ($.module /._ - "" - [..Parser - ..result - ..any - ..end - ..end? - ..bit ..this_bit - ..nat ..this_nat - ..int ..this_int - ..rev ..this_rev - ..frac ..this_frac - ..text ..this_text - ..local ..this_local - ..foreign ..this_foreign - ..constant ..this_constant - ..tuple - ($.default /.cannot_parse) - ($.default /.unconsumed_input)] - [])) |