json.xh

#include <string.xh>
#include <vector.xh>
#include <stdlib.h>

#ifndef _JSON_XH
#define _JSON_XH

// TODO: belongs in a more general library
template <typename T>
datatype Result {
  Ok(T value);
  Err(string msg);
};

template <typename T>
_Bool isErr(Result<T> r) {
  return match (r) (Ok(_) -> 0; Err(_) -> 1;);
}

typedef datatype Json Json;
typedef struct JsonItem JsonItem;

datatype Json {
  JsonNull();
  JsonBool(_Bool b);
  JsonInteger(long i);
  JsonNumber(double f);
  JsonString(string s);
  JsonArray(vector<Json> a);
  JsonObject(vector<JsonItem> o);
};

struct JsonItem {
  string key;
  Json value;
};

size_t showJsonMaxLen(Json j);
size_t showJson(char buf[], Json j);
show datatype Json with showJsonMaxLen, showJson;

Result<Json> parseJson(string s, arena_t ar);

Json getJsonField(Json j, string key);

#endif