oj 3.13.17 → 3.16.3

data/ext/oj/saj2.c

@@ -1,22 +1,14 @@
 // Copyright (c) 2021, Peter Ohler, All rights reserved.
 
+#include "saj2.h"
+
 #include "cache.h"
+#include "mem.h"
 #include "oj.h"
 #include "parser.h"
 
-typedef struct _delegate {
-    VALUE          handler;
-    VALUE         *keys;
-    VALUE         *tail;
-    size_t         klen;
-    struct _cache *str_cache;
-    uint8_t        cache_str;
-    bool           cache_keys;
-    bool           thread_safe;
-} * Delegate;
-
 static VALUE get_key(ojParser p) {
-    Delegate       d   = (Delegate)p->ctx;
+    Saj            d   = (Saj)p->ctx;
     const char    *key = buf_str(&p->key);
     size_t         len = buf_len(&p->key);
     volatile VALUE rkey;
@@ -29,12 +21,12 @@ static VALUE get_key(ojParser p) {
     return rkey;
 }
 
-static void push_key(Delegate d, VALUE key) {
+static void push_key(Saj d, VALUE key) {
     if (d->klen <= (size_t)(d->tail - d->keys)) {
         size_t off = d->tail - d->keys;
 
         d->klen += d->klen / 2;
-        REALLOC_N(d->keys, VALUE, d->klen);
+        OJ_R_REALLOC_N(d->keys, VALUE, d->klen);
         d->tail = d->keys + off;
     }
     *d->tail = key;
@@ -45,15 +37,15 @@ static void noop(ojParser p) {
 }
 
 static void open_object(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_hash_start_id, 1, Qnil);
+    rb_funcall(((Saj)p->ctx)->handler, oj_hash_start_id, 1, Qnil);
 }
 
 static void open_object_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_hash_start_id, 3, Qnil, LONG2FIX(p->line), LONG2FIX(p->cur - p->col));
+    rb_funcall(((Saj)p->ctx)->handler, oj_hash_start_id, 3, Qnil, LONG2FIX(p->line), LONG2FIX(p->cur - p->col));
 }
 
 static void open_object_key(ojParser p) {
-    Delegate       d   = (Delegate)p->ctx;
+    Saj            d   = (Saj)p->ctx;
     volatile VALUE key = get_key(p);
 
     push_key(d, key);
@@ -61,7 +53,7 @@ static void open_object_key(ojParser p) {
 }
 
 static void open_object_loc_key(ojParser p) {
-    Delegate       d   = (Delegate)p->ctx;
+    Saj            d   = (Saj)p->ctx;
     volatile VALUE key = get_key(p);
 
     push_key(d, key);
@@ -69,15 +61,15 @@ static void open_object_loc_key(ojParser p) {
 }
 
 static void open_array(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_array_start_id, 1, Qnil);
+    rb_funcall(((Saj)p->ctx)->handler, oj_array_start_id, 1, Qnil);
 }
 
 static void open_array_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_array_start_id, 3, Qnil, LONG2FIX(p->line), LONG2FIX(p->cur - p->col));
+    rb_funcall(((Saj)p->ctx)->handler, oj_array_start_id, 3, Qnil, LONG2FIX(p->line), LONG2FIX(p->cur - p->col));
 }
 
 static void open_array_key(ojParser p) {
-    Delegate       d   = (Delegate)p->ctx;
+    Saj            d   = (Saj)p->ctx;
     volatile VALUE key = get_key(p);
 
     push_key(d, key);
@@ -85,7 +77,7 @@ static void open_array_key(ojParser p) {
 }
 
 static void open_array_loc_key(ojParser p) {
-    Delegate       d   = (Delegate)p->ctx;
+    Saj            d   = (Saj)p->ctx;
     volatile VALUE key = get_key(p);
 
     push_key(d, key);
@@ -93,8 +85,8 @@ static void open_array_loc_key(ojParser p) {
 }
 
 static void close_object(ojParser p) {
-    Delegate d   = (Delegate)p->ctx;
-    VALUE    key = Qnil;
+    Saj   d   = (Saj)p->ctx;
+    VALUE key = Qnil;
 
     if (OBJECT_FUN == p->stack[p->depth]) {
         d->tail--;
@@ -107,8 +99,8 @@ static void close_object(ojParser p) {
 }
 
 static void close_object_loc(ojParser p) {
-    Delegate d   = (Delegate)p->ctx;
-    VALUE    key = Qnil;
+    Saj   d   = (Saj)p->ctx;
+    VALUE key = Qnil;
 
     if (OBJECT_FUN == p->stack[p->depth]) {
         d->tail--;
@@ -121,8 +113,8 @@ static void close_object_loc(ojParser p) {
 }
 
 static void close_array(ojParser p) {
-    Delegate d   = (Delegate)p->ctx;
-    VALUE    key = Qnil;
+    Saj   d   = (Saj)p->ctx;
+    VALUE key = Qnil;
 
     if (OBJECT_FUN == p->stack[p->depth]) {
         d->tail--;
@@ -135,8 +127,8 @@ static void close_array(ojParser p) {
 }
 
 static void close_array_loc(ojParser p) {
-    Delegate d   = (Delegate)p->ctx;
-    VALUE    key = Qnil;
+    Saj   d   = (Saj)p->ctx;
+    VALUE key = Qnil;
 
     if (OBJECT_FUN == p->stack[p->depth]) {
         d->tail--;
@@ -149,25 +141,19 @@ static void close_array_loc(ojParser p) {
 }
 
 static void add_null(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, Qnil, Qnil);
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, Qnil, Qnil);
 }
 
 static void add_null_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
-               oj_add_value_id,
-               4,
-               Qnil,
-               Qnil,
-               LONG2FIX(p->line),
-               LONG2FIX(p->cur - p->col));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 4, Qnil, Qnil, LONG2FIX(p->line), LONG2FIX(p->cur - p->col));
 }
 
 static void add_null_key(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, Qnil, get_key(p));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, Qnil, get_key(p));
 }
 
 static void add_null_key_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                Qnil,
@@ -177,25 +163,19 @@ static void add_null_key_loc(ojParser p) {
 }
 
 static void add_true(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, Qtrue, Qnil);
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, Qtrue, Qnil);
 }
 
 static void add_true_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
-               oj_add_value_id,
-               4,
-               Qtrue,
-               Qnil,
-               LONG2FIX(p->line),
-               LONG2FIX(p->cur - p->col));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 4, Qtrue, Qnil, LONG2FIX(p->line), LONG2FIX(p->cur - p->col));
 }
 
 static void add_true_key(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, Qtrue, get_key(p));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, Qtrue, get_key(p));
 }
 
 static void add_true_key_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                Qtrue,
@@ -205,25 +185,19 @@ static void add_true_key_loc(ojParser p) {
 }
 
 static void add_false(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, Qfalse, Qnil);
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, Qfalse, Qnil);
 }
 
 static void add_false_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
-               oj_add_value_id,
-               4,
-               Qfalse,
-               Qnil,
-               LONG2FIX(p->line),
-               LONG2FIX(p->cur - p->col));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 4, Qfalse, Qnil, LONG2FIX(p->line), LONG2FIX(p->cur - p->col));
 }
 
 static void add_false_key(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, Qfalse, get_key(p));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, Qfalse, get_key(p));
 }
 
 static void add_false_key_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                Qfalse,
@@ -233,11 +207,11 @@ static void add_false_key_loc(ojParser p) {
 }
 
 static void add_int(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, LONG2NUM(p->num.fixnum), Qnil);
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, LONG2NUM(p->num.fixnum), Qnil);
 }
 
 static void add_int_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                LONG2NUM(p->num.fixnum),
@@ -247,11 +221,11 @@ static void add_int_loc(ojParser p) {
 }
 
 static void add_int_key(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, LONG2NUM(p->num.fixnum), get_key(p));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, LONG2NUM(p->num.fixnum), get_key(p));
 }
 
 static void add_int_key_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                LONG2NUM(p->num.fixnum),
@@ -261,11 +235,11 @@ static void add_int_key_loc(ojParser p) {
 }
 
 static void add_float(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, rb_float_new(p->num.dub), Qnil);
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, rb_float_new(p->num.dub), Qnil);
 }
 
 static void add_float_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                rb_float_new(p->num.dub),
@@ -275,11 +249,11 @@ static void add_float_loc(ojParser p) {
 }
 
 static void add_float_key(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler, oj_add_value_id, 2, rb_float_new(p->num.dub), get_key(p));
+    rb_funcall(((Saj)p->ctx)->handler, oj_add_value_id, 2, rb_float_new(p->num.dub), get_key(p));
 }
 
 static void add_float_key_loc(ojParser p) {
-    rb_funcall(((Delegate)p->ctx)->handler,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                rb_float_new(p->num.dub),
@@ -289,7 +263,7 @@ static void add_float_key_loc(ojParser p) {
 }
 
 static void add_big(ojParser p) {
-    rb_funcall((VALUE)p->ctx,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                2,
                rb_funcall(rb_cObject, oj_bigdecimal_id, 1, rb_str_new(buf_str(&p->buf), buf_len(&p->buf))),
@@ -297,7 +271,7 @@ static void add_big(ojParser p) {
 }
 
 static void add_big_loc(ojParser p) {
-    rb_funcall((VALUE)p->ctx,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                rb_funcall(rb_cObject, oj_bigdecimal_id, 1, rb_str_new(buf_str(&p->buf), buf_len(&p->buf))),
@@ -307,7 +281,7 @@ static void add_big_loc(ojParser p) {
 }
 
 static void add_big_key(ojParser p) {
-    rb_funcall((VALUE)p->ctx,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                2,
                rb_funcall(rb_cObject, oj_bigdecimal_id, 1, rb_str_new(buf_str(&p->buf), buf_len(&p->buf))),
@@ -315,7 +289,7 @@ static void add_big_key(ojParser p) {
 }
 
 static void add_big_key_loc(ojParser p) {
-    rb_funcall((VALUE)p->ctx,
+    rb_funcall(((Saj)p->ctx)->handler,
                oj_add_value_id,
                4,
                rb_funcall(rb_cObject, oj_bigdecimal_id, 1, rb_str_new(buf_str(&p->buf), buf_len(&p->buf))),
@@ -325,7 +299,7 @@ static void add_big_key_loc(ojParser p) {
 }
 
 static void add_str(ojParser p) {
-    Delegate       d = (Delegate)p->ctx;
+    Saj            d = (Saj)p->ctx;
     volatile VALUE rstr;
     const char    *str = buf_str(&p->buf);
     size_t         len = buf_len(&p->buf);
@@ -339,7 +313,7 @@ static void add_str(ojParser p) {
 }
 
 static void add_str_loc(ojParser p) {
-    Delegate       d = (Delegate)p->ctx;
+    Saj            d = (Saj)p->ctx;
     volatile VALUE rstr;
     const char    *str = buf_str(&p->buf);
     size_t         len = buf_len(&p->buf);
@@ -353,7 +327,7 @@ static void add_str_loc(ojParser p) {
 }
 
 static void add_str_key(ojParser p) {
-    Delegate       d = (Delegate)p->ctx;
+    Saj            d = (Saj)p->ctx;
     volatile VALUE rstr;
     const char    *str = buf_str(&p->buf);
     size_t         len = buf_len(&p->buf);
@@ -367,7 +341,7 @@ static void add_str_key(ojParser p) {
 }
 
 static void add_str_key_loc(ojParser p) {
-    Delegate       d = (Delegate)p->ctx;
+    Saj            d = (Saj)p->ctx;
     volatile VALUE rstr;
     const char    *str = buf_str(&p->buf);
     size_t         len = buf_len(&p->buf);
@@ -400,7 +374,7 @@ static void reset(ojParser p) {
 }
 
 static VALUE option(ojParser p, const char *key, VALUE value) {
-    Delegate d = (Delegate)p->ctx;
+    Saj d = (Saj)p->ctx;
 
     if (0 == strcmp(key, "handler")) {
         return d->handler;
@@ -537,7 +511,7 @@ static VALUE option(ojParser p, const char *key, VALUE value) {
 
         return INT2NUM((int)d->cache_str);
     }
-    rb_raise(rb_eArgError, "%s is not an option for the SAJ (Simple API for JSON) delegate", key);
+    rb_raise(rb_eArgError, "%s is not an option for the SAJ (Simple API for JSON) saj", key);
 
     return Qnil;  // Never reached due to the raise but required by the compiler.
 }
@@ -547,27 +521,27 @@ static VALUE result(ojParser p) {
 }
 
 static void start(ojParser p) {
-    Delegate d = (Delegate)p->ctx;
+    Saj d = (Saj)p->ctx;
 
     d->tail = d->keys;
 }
 
 static void dfree(ojParser p) {
-    Delegate d = (Delegate)p->ctx;
+    Saj d = (Saj)p->ctx;
 
     if (NULL != d->keys) {
-        xfree(d->keys);
+        OJ_R_FREE(d->keys);
     }
     cache_free(d->str_cache);
-    xfree(p->ctx);
+    OJ_R_FREE(p->ctx);
 }
 
 static void mark(ojParser p) {
-    if (NULL == p->ctx) {
+    if (NULL == p || NULL == p->ctx) {
         return;
     }
-    Delegate d = (Delegate)p->ctx;
-    VALUE   *kp;
+    Saj    d = (Saj)p->ctx;
+    VALUE *kp;
 
     cache_mark(d->str_cache);
     if (Qnil != d->handler) {
@@ -584,13 +558,15 @@ static VALUE form_str(const char *str, size_t len) {
     return rb_str_freeze(rb_utf8_str_new(str, len));
 }
 
-void oj_set_parser_saj(ojParser p) {
-    Delegate d = ALLOC(struct _delegate);
-
-    d->klen      = 256;
-    d->keys      = ALLOC_N(VALUE, d->klen);
-    d->tail      = d->keys;
-    d->str_cache = cache_create(0, form_str, true, false);
+void oj_init_saj(ojParser p, Saj d) {
+    d->klen        = 256;
+    d->keys        = OJ_R_ALLOC_N(VALUE, d->klen);
+    d->tail        = d->keys;
+    d->handler     = Qnil;
+    d->str_cache   = cache_create(0, form_str, true, false);
+    d->cache_str   = 16;
+    d->cache_keys  = true;
+    d->thread_safe = false;
 
     p->ctx = (void *)d;
     reset(p);
@@ -600,3 +576,9 @@ void oj_set_parser_saj(ojParser p) {
     p->mark   = mark;
     p->start  = start;
 }
+
+void oj_set_parser_saj(ojParser p) {
+    Saj d = OJ_R_ALLOC(struct _saj);
+
+    oj_init_saj(p, d);
+}

data/ext/oj/saj2.h

@@ -0,0 +1,23 @@
+// Copyright (c) 2021, Peter Ohler, All rights reserved.
+
+#include <ruby.h>
+#include <stdbool.h>
+
+struct _cache;
+struct _ojParser;
+
+typedef struct _saj {
+    VALUE          handler;
+    VALUE         *keys;
+    VALUE         *tail;
+    size_t         klen;
+    struct _cache *str_cache;
+    uint8_t        cache_str;
+    bool           cache_keys;
+    bool           thread_safe;
+} *Saj;
+
+// Initialize the parser with the SAJ delegate. If the SAJ delegate is wrapped
+// then this function is called first and then the parser functions can be
+// replaced.
+extern void oj_init_saj(struct _ojParser *p, Saj d);

data/ext/oj/scp.c

@@ -33,8 +33,7 @@ static VALUE noop_hash_key(ParseInfo pi, const char *key, size_t klen) {
     return Qundef;
 }
 
-static void
-noop_hash_set_cstr(ParseInfo pi, Val kval, const char *str, size_t len, const char *orig) {
+static void noop_hash_set_cstr(ParseInfo pi, Val kval, const char *str, size_t len, const char *orig) {
 }
 
 static void noop_hash_set_num(ParseInfo pi, Val kval, NumInfo ni) {
@@ -91,12 +90,7 @@ static void hash_set_cstr(ParseInfo pi, Val kval, const char *str, size_t len, c
     volatile VALUE rstr = rb_str_new(str, len);
 
     rstr = oj_encode(rstr);
-    rb_funcall(pi->handler,
-               oj_hash_set_id,
-               3,
-               stack_peek(&pi->stack)->val,
-               oj_calc_hash_key(pi, kval),
-               rstr);
+    rb_funcall(pi->handler, oj_hash_set_id, 3, stack_peek(&pi->stack)->val, oj_calc_hash_key(pi, kval), rstr);
 }
 
 static void hash_set_num(ParseInfo pi, Val kval, NumInfo ni) {
@@ -109,12 +103,7 @@ static void hash_set_num(ParseInfo pi, Val kval, NumInfo ni) {
 }
 
 static void hash_set_value(ParseInfo pi, Val kval, VALUE value) {
-    rb_funcall(pi->handler,
-               oj_hash_set_id,
-               3,
-               stack_peek(&pi->stack)->val,
-               oj_calc_hash_key(pi, kval),
-               value);
+    rb_funcall(pi->handler, oj_hash_set_id, 3, stack_peek(&pi->stack)->val, oj_calc_hash_key(pi, kval), value);
 }
 
 static void array_append_cstr(ParseInfo pi, const char *str, size_t len, const char *orig) {