Parse heading

This commit is contained in:
Florian Schroedl
2022-01-20 17:00:00 +01:00
parent 3c6bea01a6
commit 1bc7db6be3

View File

@@ -301,6 +301,10 @@ when isMainModule:
ignore(ch(' '))
]
let parseHeadingText = @[
anyUntil(endOfStream),
]
type StringBuilderT = string
type StringBuilder = Builder[StringBuilderT]
type StringBuilderResult = BuilderResult[StringBuilderT]
@@ -319,8 +323,8 @@ when isMainModule:
tokenFoldFn = stringConcat("Stars: ")
))
.flatMap((x: StringBuilder) => x.applyParsers(
parsers = parseHeadingStars,
tokenFoldFn = stringConcat("Stars: ")
parsers = parseHeadingText,
tokenFoldFn = stringConcat("Text: ")
))