Parse heading
This commit is contained in:
@@ -301,6 +301,10 @@ when isMainModule:
|
|||||||
ignore(ch(' '))
|
ignore(ch(' '))
|
||||||
]
|
]
|
||||||
|
|
||||||
|
let parseHeadingText = @[
|
||||||
|
anyUntil(endOfStream),
|
||||||
|
]
|
||||||
|
|
||||||
type StringBuilderT = string
|
type StringBuilderT = string
|
||||||
type StringBuilder = Builder[StringBuilderT]
|
type StringBuilder = Builder[StringBuilderT]
|
||||||
type StringBuilderResult = BuilderResult[StringBuilderT]
|
type StringBuilderResult = BuilderResult[StringBuilderT]
|
||||||
@@ -319,8 +323,8 @@ when isMainModule:
|
|||||||
tokenFoldFn = stringConcat("Stars: ")
|
tokenFoldFn = stringConcat("Stars: ")
|
||||||
))
|
))
|
||||||
.flatMap((x: StringBuilder) => x.applyParsers(
|
.flatMap((x: StringBuilder) => x.applyParsers(
|
||||||
parsers = parseHeadingStars,
|
parsers = parseHeadingText,
|
||||||
tokenFoldFn = stringConcat("Stars: ")
|
tokenFoldFn = stringConcat("Text: ")
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user