pretty.toit

/// Simple pretty-printer for JSON-compatible objects (maps, lists, strings,
///   numbers, booleans, and null).
pretty-print data --indent/string="" --prefix/string?=null --suffix/string?="" -> none:
  str := json.stringify data
  if str.size < 80:
    print "$(prefix or indent)$str$suffix"
    return
  if data is Map:
    print "$(prefix or indent){"
    i := 0
    data.do: | key value |
      suffix2 := i == data.size - 1 ? null : ","
      pretty-print value --indent="$indent  " --prefix="$indent  \"$key\": " --suffix=suffix2
      i++
    print "$indent}$suffix"
  else if data is List:
    print "$(prefix or indent)["
    for i := 0; i < data.size; i++:
      value := data[i]
      suffix2 := i == data.size - 1 ? null : ","
      pretty-print value --indent="$indent  " --suffix=suffix2
    print "$indent]$suffix"
  else:
    print "$(prefix or indent)$str$suffix"