Document and move tryParseBuild

This commit is contained in:
Florian Schroedl
2022-01-20 17:00:00 +01:00
parent b1e4a36e36
commit c19dd096c3
3 changed files with 99 additions and 5 deletions

View File

@@ -8,6 +8,7 @@ import ./org_types
import ../utils/fp
import ../parser/parser_internals
import ../parser/parser_types
import ../parser/builder_api
let parseBetweenDelimiter* = proc(start: (Parser -> ParserResult), stop: (Parser -> ParserResult)): (Parser -> ParserResult) {.closure.} =
ignore(start) +
@@ -74,7 +75,7 @@ proc makeOrgToken*(orgTokenFn: string -> OrgBuilderT): (seq[ParserToken], seq[Or
return proc(parserTokens: seq[ParserToken], builderTokens: seq[OrgBuilderT]): seq[OrgBuilderT] =
return builderTokens & parserTokens.foldl(a & b.tokenStringValue(), "").orgTokenFn()
proc parseText[T](
proc tryParseBuild[T](
builder: Builder[T],
builderFns: seq[tuple[
parserFn: Parser -> ParserResult,
@@ -149,7 +150,7 @@ when isMainModule:
parser: initParser("Regular *bold* /italic/ _underline_ =verbatim= ~code~ +strikethrough+"),
tree: newSeq[OrgBuilderT](),
)))
.flatMap((builder: OrgBuilder) => parseText(
.flatMap((builder: OrgBuilder) => tryParseBuild(
builder = builder,
builderFns = @[
(boldParser, makeOrgToken(makeBoldToken)),