Parse heading
This commit is contained in:
@@ -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: ")
|
||||
))
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user