mirror of
https://github.com/roc-lang/roc.git
synced 2025-10-01 15:51:12 +00:00
46 lines
1.4 KiB
Text
46 lines
1.4 KiB
Text
app "main"
|
|
packages { pf: "platform/main.roc" }
|
|
imports [Parser.Core.{Parser}, Parser.Str.{RawStr}, Parser.CSV.{CSV}]
|
|
provides [main] to pf
|
|
|
|
# Until issue https://github.com/rtfeldman/roc/issues/3438 is fixed,
|
|
# use the simple 'hello world' platform for testing
|
|
# with hard-coded input.
|
|
|
|
main : Str
|
|
main = fullTest myparser "10,20\r\n30,40\r\n"
|
|
|
|
partialTest = \parser, input ->
|
|
when Parser.Str.runPartialStr parser input is
|
|
Ok result ->
|
|
val = result.val |> Str.joinWith("\r\n")
|
|
# val = result.val
|
|
leftover = result.input
|
|
"Parse success: \(val) (leftover string: \(leftover))\n"
|
|
Err (ParsingFailure problem) ->
|
|
"Parse failure: \(problem)\n"
|
|
|
|
fullTest = \parser, input ->
|
|
when Parser.Str.runStr parser input is
|
|
Ok result ->
|
|
# val = result |> Str.joinWith(", ")
|
|
val = result |> Str.joinWith("\r\n")
|
|
# val = result
|
|
"Parse success: \(val)\n"
|
|
Err (ParsingFailure problem) ->
|
|
"Parse failure: \(problem)\n"
|
|
Err (ParsingIncomplete leftover) ->
|
|
"Parse failure: Expected to reach end of input, but the following was still left: `\(leftover)`\n"
|
|
|
|
myparser : Parser RawStr (List Str)
|
|
myparser =
|
|
Parser.CSV.file
|
|
|> Parser.Core.map \records ->
|
|
records
|
|
|> List.map (\record ->
|
|
record
|
|
|> List.map (\field ->
|
|
field
|
|
|> Str.fromUtf8
|
|
|> Result.withDefault "Unexpected problem while turning a List U8 back into a Str")
|
|
|> Str.joinWith ", ")
|