diff options
author | Stephen Dolan <mu@netsoc.tcd.ie> | 2012-09-18 17:44:43 +0100 |
---|---|---|
committer | Stephen Dolan <mu@netsoc.tcd.ie> | 2012-09-18 17:44:43 +0100 |
commit | a4eea165bbab6d13f89b59707e835d58b7014a66 (patch) | |
tree | b99ee5dde8540f8dbe5de3d87b99e04ac4dd2673 /jv_print.c | |
parent | 25cbab056b1f73e96b636c88779a92400d92dc15 (diff) |
Move everything around - delete old Haskell code, clean up build.
Diffstat (limited to 'jv_print.c')
-rw-r--r-- | jv_print.c | 203 |
1 files changed, 203 insertions, 0 deletions
diff --git a/jv_print.c b/jv_print.c new file mode 100644 index 00000000..64bf178a --- /dev/null +++ b/jv_print.c @@ -0,0 +1,203 @@ +#include "jv.h" +#include <stdio.h> +#include <float.h> +#include <string.h> + +#include "jv_dtoa.h" +#include "jv_unicode.h" + +static void put_buf(const char* s, int len, FILE* fout, jv* strout) { + if (strout) { + *strout = jv_string_append_buf(*strout, s, len); + } else { + fwrite(s, 1, len, fout); + } +} + +static void put_char(char c, FILE* fout, jv* strout) { + put_buf(&c, 1, fout, strout); +} + +static void put_str(const char* s, FILE* fout, jv* strout) { + put_buf(s, strlen(s), fout, strout); +} + +static void put_space(int n, FILE* fout, jv* strout) { + while (n--) { + put_char(' ', fout, strout); + } +} + +static void jvp_dump_string(jv str, int ascii_only, FILE* F, jv* S) { + assert(jv_get_kind(str) == JV_KIND_STRING); + const char* i = jv_string_value(str); + const char* end = i + jv_string_length(jv_copy(str)); + int c = 0; + char buf[32]; + while ((i = jvp_utf8_next(i, end, &c))) { + assert(c != -1); + int unicode_escape = 0; + if (0x20 <= c && c <= 0x7E) { + // printable ASCII + if (c == '"' || c == '\\') { + put_char('\\', F, S); + } + put_char(c, F, S); + } else if (c < 0x20 || c == 0x7F) { + // ASCII control character + switch (c) { + case '\b': + put_char('\\', F, S); + put_char('b', F, S); + break; + case '\t': + put_char('\\', F, S); + put_char('t', F, S); + break; + case '\r': + put_char('\\', F, S); + put_char('r', F, S); + break; + case '\n': + put_char('\\', F, S); + put_char('n', F, S); + break; + case '\f': + put_char('\\', F, S); + put_char('f', F, S); + break; + default: + unicode_escape = 1; + break; + } + } else { + unicode_escape = 1; + } + if (unicode_escape) { + if (c <= 0xffff) { + sprintf(buf, "\\u%04x", c); + } else { + c -= 0x10000; + sprintf(buf, "\\u%04x\\u%04x", + 0xD800 | ((c & 0xffc00) >> 10), + 0xDC00 | (c & 0x003ff)); + } + put_str(buf, F, S); + } + } + assert(c != -1); +} + +enum { INDENT = 2 }; + +static void jv_dump_term(struct dtoa_context* C, jv x, int flags, int indent, FILE* F, jv* S) { + char buf[JVP_DTOA_FMT_MAX_LEN]; + switch (jv_get_kind(x)) { + case JV_KIND_INVALID: + assert(0 && "Invalid value"); + break; + case JV_KIND_NULL: + put_str("null", F, S); + break; + case JV_KIND_FALSE: + put_str("false", F, S); + break; + case JV_KIND_TRUE: + put_str("true", F, S); + break; + case JV_KIND_NUMBER: { + double d = jv_number_value(x); + if (d != d) { + // JSON doesn't have NaN, so we'll render it as "null" + put_str("null", F, S); + } else { + // Normalise infinities to something we can print in valid JSON + if (d > DBL_MAX) d = DBL_MAX; + if (d < -DBL_MAX) d = -DBL_MAX; + put_str(jvp_dtoa_fmt(C, buf, d), F, S); + } + break; + } + case JV_KIND_STRING: + put_char('"', F, S); + jvp_dump_string(x, 0, F, S); + put_char('"', F, S); + break; + case JV_KIND_ARRAY: { + if (jv_array_length(jv_copy(x)) == 0) { + put_str("[]", F, S); + break; + } + put_str("[", F, S); + if (flags & JV_PRINT_PRETTY) { + put_char('\n', F, S); + put_space(indent+INDENT, F, S); + } + for (int i=0; i<jv_array_length(jv_copy(x)); i++) { + if (i!=0) { + if (flags & JV_PRINT_PRETTY) { + put_str(",\n", F, S); + put_space(indent+INDENT, F, S); + } else { + put_str(", ", F, S); + } + } + jv_dump_term(C, jv_array_get(jv_copy(x), i), flags, indent + INDENT, F, S); + } + if (flags & JV_PRINT_PRETTY) { + put_char('\n', F, S); + put_space(indent, F, S); + } + put_char(']', F, S); + break; + } + case JV_KIND_OBJECT: { + if (jv_object_length(jv_copy(x)) == 0) { + put_str("{}", F, S); + break; + } + put_char('{', F, S); + if (flags & JV_PRINT_PRETTY) { + put_char('\n', F, S); + put_space(indent+INDENT, F, S); + } + int first = 1; + jv_object_foreach(i, x) { + if (!first) { + if (flags & JV_PRINT_PRETTY){ + put_str(",\n", F, S); + put_space(indent+INDENT, F, S); + } else { + put_str(", ", F, S); + } + } + first = 0; + jv_dump_term(C, jv_object_iter_key(x, i), flags, indent + INDENT, F, S); + put_str(": ", F, S); + jv_dump_term(C, jv_object_iter_value(x, i), flags, indent + INDENT, F, S); + } + if (flags & JV_PRINT_PRETTY) { + put_char('\n', F, S); + put_space(indent, F, S); + } + put_char('}', F, S); + } + } + jv_free(x); +} + +void jv_dump(jv x, int flags) { + struct dtoa_context C; + jvp_dtoa_context_init(&C); + jv_dump_term(&C, x, flags, 0, stdout, 0); + jvp_dtoa_context_free(&C); +} + +jv jv_dump_string(jv x, int flags) { + struct dtoa_context C; + jvp_dtoa_context_init(&C); + jv s = jv_string(""); + jv_dump_term(&C, x, flags, 0, 0, &s); + jvp_dtoa_context_free(&C); + return s; +} |