json_parse_error.pony

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
class val JSONParseError is Stringable
  """
  Structured parse error with location information.
  """

  let message: String
  let offset: USize
  let line: USize

  new val create(message': String, offset': USize, line': USize) =>
    message = message'
    offset = offset'
    line = line'

  fun string(): String =>
    recover val
      String(64)
        .> append("JSON parse error at line ")
        .> append(line.string())
        .> append(", byte ")
        .> append(offset.string())
        .> append(": ")
        .> append(message)
    end