oj 2.18.5 → 3.16.11

data/ext/oj/circarray.c

@@ -1,93 +1,64 @@
-/* circarray.c
- * Copyright (c) 2012, Peter Ohler
- * All rights reserved.
- * 
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- * 
- *  - Redistributions of source code must retain the above copyright notice, this
- *    list of conditions and the following disclaimer.
- * 
- *  - Redistributions in binary form must reproduce the above copyright notice,
- *    this list of conditions and the following disclaimer in the documentation
- *    and/or other materials provided with the distribution.
- * 
- *  - Neither the name of Peter Ohler nor the names of its contributors may be
- *    used to endorse or promote products derived from this software without
- *    specific prior written permission.
- * 
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
- * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
- * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
- * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
- * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
+// Copyright (c) 2012 Peter Ohler. All rights reserved.
+// Licensed under the MIT License. See LICENSE file in the project root for license details.
 
 #include "circarray.h"
 
-CircArray
-oj_circ_array_new() {
-    CircArray	ca;
-    
-    if (0 == (ca = ALLOC(struct _CircArray))) {
-	rb_raise(rb_eNoMemError, "not enough memory\n");
+#include "mem.h"
+
+CircArray oj_circ_array_new(void) {
+    CircArray ca;
+
+    if (0 == (ca = OJ_R_ALLOC(struct _circArray))) {
+        rb_raise(rb_eNoMemError, "not enough memory\n");
     }
     ca->objs = ca->obj_array;
     ca->size = sizeof(ca->obj_array) / sizeof(VALUE);
-    ca->cnt = 0;
-    
+    ca->cnt  = 0;
+
     return ca;
 }
 
-void
-oj_circ_array_free(CircArray ca) {
+void oj_circ_array_free(CircArray ca) {
     if (ca->objs != ca->obj_array) {
-	xfree(ca->objs);
+        OJ_R_FREE(ca->objs);
     }
-    xfree(ca);
+    OJ_R_FREE(ca);
 }
 
-void
-oj_circ_array_set(CircArray ca, VALUE obj, unsigned long id) {
+void oj_circ_array_set(CircArray ca, VALUE obj, unsigned long id) {
     if (0 < id && 0 != ca) {
-	unsigned long	i;
+        unsigned long i;
 
-	if (ca->size < id) {
-	    unsigned long	cnt = id + 512;
+        if (ca->size < id) {
+            unsigned long cnt = id + 512;
 
-	    if (ca->objs == ca->obj_array) {
-		if (0 == (ca->objs = ALLOC_N(VALUE, cnt))) {
-		    rb_raise(rb_eNoMemError, "not enough memory\n");
-		}
-		memcpy(ca->objs, ca->obj_array, sizeof(VALUE) * ca->cnt);
-	    } else { 
-		REALLOC_N(ca->objs, VALUE, cnt);
-	    }
-	    ca->size = cnt;
-	}
-	id--;
-	for (i = ca->cnt; i < id; i++) {
-	    ca->objs[i] = Qnil;
-	}
-	ca->objs[id] = obj;
-	if (ca->cnt <= id) {
-	    ca->cnt = id + 1;
-	}
+            if (ca->objs == ca->obj_array) {
+                if (0 == (ca->objs = OJ_R_ALLOC_N(VALUE, cnt))) {
+                    rb_raise(rb_eNoMemError, "not enough memory\n");
+                }
+                memcpy(ca->objs, ca->obj_array, sizeof(VALUE) * ca->cnt);
+            } else {
+                OJ_R_REALLOC_N(ca->objs, VALUE, cnt);
+            }
+            ca->size = cnt;
+        }
+        id--;
+        for (i = ca->cnt; i < id; i++) {
+            ca->objs[i] = Qnil;
+        }
+        ca->objs[id] = obj;
+        if (ca->cnt <= id) {
+            ca->cnt = id + 1;
+        }
     }
 }
 
 VALUE
 oj_circ_array_get(CircArray ca, unsigned long id) {
-    VALUE	obj = Qnil;
+    VALUE obj = Qnil;
 
     if (id <= ca->cnt && 0 != ca) {
-	obj = ca->objs[id - 1];
+        obj = ca->objs[id - 1];
     }
     return obj;
 }
-

data/ext/oj/circarray.h

@@ -1,48 +1,22 @@
-/* circarray.h
- * Copyright (c) 2012, Peter Ohler
- * All rights reserved.
- * 
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- * 
- *  - Redistributions of source code must retain the above copyright notice, this
- *    list of conditions and the following disclaimer.
- * 
- *  - Redistributions in binary form must reproduce the above copyright notice,
- *    this list of conditions and the following disclaimer in the documentation
- *    and/or other materials provided with the distribution.
- * 
- *  - Neither the name of Peter Ohler nor the names of its contributors may be
- *    used to endorse or promote products derived from this software without
- *    specific prior written permission.
- * 
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
- * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
- * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
- * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
- * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
+// Copyright (c) 2012 Peter Ohler. All rights reserved.
+// Licensed under the MIT License. See LICENSE file in the project root for
+// license details.
 
-#ifndef __OJ_CIRCARRAY_H__
-#define __OJ_CIRCARRAY_H__
+#ifndef OJ_CIRCARRAY_H
+#define OJ_CIRCARRAY_H
 
 #include "ruby.h"
 
-typedef struct _CircArray {
-    VALUE		obj_array[1024];
-    VALUE		*objs;
-    unsigned long	size; // allocated size or initial array size
-    unsigned long	cnt;
-} *CircArray;
+typedef struct _circArray {
+    VALUE         obj_array[1024];
+    VALUE*        objs;
+    unsigned long size;  // allocated size or initial array size
+    unsigned long cnt;
+}* CircArray;
 
-extern CircArray	oj_circ_array_new(void);
-extern void		oj_circ_array_free(CircArray ca);
-extern void		oj_circ_array_set(CircArray ca, VALUE obj, unsigned long id);
-extern VALUE		oj_circ_array_get(CircArray ca, unsigned long id);
+extern CircArray oj_circ_array_new(void);
+extern void      oj_circ_array_free(CircArray ca);
+extern void      oj_circ_array_set(CircArray ca, VALUE obj, unsigned long id);
+extern VALUE     oj_circ_array_get(CircArray ca, unsigned long id);
 
-#endif /* __OJ_CIRCARRAY_H__ */
+#endif /* OJ_CIRCARRAY_H */

data/ext/oj/code.c

@@ -0,0 +1,214 @@
+// Copyright (c) 2017 Peter Ohler. All rights reserved.
+// Licensed under the MIT License. See LICENSE file in the project root for license details.
+
+#include "code.h"
+
+#include "dump.h"
+
+inline static VALUE resolve_classname(VALUE mod, const char *classname) {
+    VALUE clas = Qundef;
+    ID    ci   = rb_intern(classname);
+
+    if (rb_const_defined_at(mod, ci)) {
+        clas = rb_const_get_at(mod, ci);
+    }
+    return clas;
+}
+
+static VALUE path2class(const char *name) {
+    char        class_name[1024];
+    VALUE       clas;
+    char       *end = class_name + sizeof(class_name) - 1;
+    char       *s;
+    const char *n = name;
+
+    clas = rb_cObject;
+    for (s = class_name; '\0' != *n; n++) {
+        if (':' == *n) {
+            *s = '\0';
+            n++;
+            if (':' != *n) {
+                return Qundef;
+            }
+            if (Qundef == (clas = resolve_classname(clas, class_name))) {
+                return Qundef;
+            }
+            s = class_name;
+        } else if (end <= s) {
+            return Qundef;
+        } else {
+            *s++ = *n;
+        }
+    }
+    *s = '\0';
+
+    return resolve_classname(clas, class_name);
+}
+
+bool oj_code_dump(Code codes, VALUE obj, int depth, Out out) {
+    VALUE clas = rb_obj_class(obj);
+    Code  c    = codes;
+
+    for (; NULL != c->name; c++) {
+        if (Qundef == c->clas) {  // indicates not defined
+            continue;
+        }
+        if (Qnil == c->clas) {
+            c->clas = path2class(c->name);
+        }
+        if (clas == c->clas && c->active) {
+            c->encode(obj, depth, out);
+            return true;
+        }
+    }
+    return false;
+}
+
+VALUE
+oj_code_load(Code codes, VALUE clas, VALUE args) {
+    Code c = codes;
+
+    for (; NULL != c->name; c++) {
+        if (Qundef == c->clas) {  // indicates not defined
+            continue;
+        }
+        if (Qnil == c->clas) {
+            c->clas = path2class(c->name);
+        }
+        if (clas == c->clas) {
+            if (NULL == c->decode) {
+                break;
+            }
+            return c->decode(clas, args);
+        }
+    }
+    return Qnil;
+}
+
+void oj_code_set_active(Code codes, VALUE clas, bool active) {
+    Code c = codes;
+
+    for (; NULL != c->name; c++) {
+        if (Qundef == c->clas) {  // indicates not defined
+            continue;
+        }
+        if (Qnil == c->clas) {
+            c->clas = path2class(c->name);
+        }
+        if (clas == c->clas || Qnil == clas) {
+            c->active = active;
+            if (Qnil != clas) {
+                break;
+            }
+        }
+    }
+}
+
+bool oj_code_has(Code codes, VALUE clas, bool encode) {
+    Code c = codes;
+
+    for (; NULL != c->name; c++) {
+        if (Qundef == c->clas) {  // indicates not defined
+            continue;
+        }
+        if (Qnil == c->clas) {
+            c->clas = path2class(c->name);
+        }
+        if (clas == c->clas) {
+            if (encode) {
+                return c->active && NULL != c->encode;
+            } else {
+                return c->active && NULL != c->decode;
+            }
+        }
+    }
+    return false;
+}
+
+void oj_code_attrs(VALUE obj, Attr attrs, int depth, Out out, bool with_class) {
+    int         d2        = depth + 1;
+    int         d3        = d2 + 1;
+    size_t      sep_len   = out->opts->dump_opts.before_size + out->opts->dump_opts.after_size + 2;
+    const char *classname = rb_obj_classname(obj);
+    size_t      len       = strlen(classname);
+    size_t      size      = d2 * out->indent + 10 + len + out->opts->create_id_len + sep_len;
+    bool        no_comma  = true;
+
+    assure_size(out, size);
+    *out->cur++ = '{';
+
+    if (with_class) {
+        fill_indent(out, d2);
+        *out->cur++ = '"';
+        APPEND_CHARS(out->cur, out->opts->create_id, out->opts->create_id_len);
+        *out->cur++ = '"';
+        if (0 < out->opts->dump_opts.before_size) {
+            APPEND_CHARS(out->cur, out->opts->dump_opts.before_sep, out->opts->dump_opts.before_size);
+        }
+        *out->cur++ = ':';
+        if (0 < out->opts->dump_opts.after_size) {
+            APPEND_CHARS(out->cur, out->opts->dump_opts.after_sep, out->opts->dump_opts.after_size);
+        }
+        *out->cur++ = '"';
+        APPEND_CHARS(out->cur, classname, len);
+        *out->cur++ = '"';
+        no_comma    = false;
+    }
+    size = d3 * out->indent + 2;
+    for (; NULL != attrs->name; attrs++) {
+        assure_size(out, size + attrs->len + sep_len + 2);
+        if (no_comma) {
+            no_comma = false;
+        } else {
+            *out->cur++ = ',';
+        }
+        fill_indent(out, d2);
+        *out->cur++ = '"';
+        APPEND_CHARS(out->cur, attrs->name, attrs->len);
+        *out->cur++ = '"';
+        if (0 < out->opts->dump_opts.before_size) {
+            APPEND_CHARS(out->cur, out->opts->dump_opts.before_sep, out->opts->dump_opts.before_size);
+        }
+        *out->cur++ = ':';
+        if (0 < out->opts->dump_opts.after_size) {
+            APPEND_CHARS(out->cur, out->opts->dump_opts.after_sep, out->opts->dump_opts.after_size);
+        }
+        if (Qundef == attrs->value) {
+            if (Qundef != attrs->time) {
+                switch (out->opts->time_format) {
+                case RubyTime: oj_dump_ruby_time(attrs->time, out); break;
+                case XmlTime: oj_dump_xml_time(attrs->time, out); break;
+                case UnixZTime: oj_dump_time(attrs->time, out, true); break;
+                case UnixTime:
+                default: oj_dump_time(attrs->time, out, false); break;
+                }
+            } else {
+                char   buf[32];
+                char  *b   = buf + sizeof(buf) - 1;
+                bool   neg = false;
+                long   num = attrs->num;
+                size_t cnt = 0;
+
+                if (0 > num) {
+                    neg = true;
+                    num = -num;
+                }
+                *b-- = '\0';
+                if (0 < num) {
+                    b = oj_longlong_to_string(num, neg, b);
+                } else {
+                    *b = '0';
+                }
+                cnt = sizeof(buf) - (b - buf) - 1;
+                assure_size(out, cnt);
+                APPEND_CHARS(out->cur, b, cnt);
+            }
+        } else {
+            oj_dump_compat_val(attrs->value, d3, out, true);
+        }
+    }
+    assure_size(out, depth * out->indent + 2);
+    fill_indent(out, depth);
+    *out->cur++ = '}';
+    *out->cur   = '\0';
+}

data/ext/oj/code.h

@@ -0,0 +1,40 @@
+// Copyright (c) 2017 Peter Ohler. All rights reserved.
+// Licensed under the MIT License. See LICENSE file in the project root for license details.
+
+#ifndef OJ_CODE_H
+#define OJ_CODE_H
+
+#include <ruby.h>
+
+#include "oj.h"
+
+typedef void (*EncodeFunc)(VALUE obj, int depth, Out out);
+typedef VALUE (*DecodeFunc)(VALUE clas, VALUE args);
+
+typedef struct _code {
+    const char *name;
+    VALUE       clas;
+    EncodeFunc  encode;
+    DecodeFunc  decode;
+    bool        active;  // For compat mode.
+} *Code;
+
+// Used by encode functions.
+typedef struct _attr {
+    const char *name;
+    int         len;
+    VALUE       value;
+    long        num;
+    VALUE       time;
+} *Attr;
+
+extern bool  oj_code_dump(Code codes, VALUE obj, int depth, Out out);
+extern VALUE oj_code_load(Code codes, VALUE clas, VALUE args);
+extern void  oj_code_set_active(Code codes, VALUE clas, bool active);
+extern bool  oj_code_has(Code codes, VALUE clas, bool encode);
+
+extern void oj_code_attrs(VALUE obj, Attr attrs, int depth, Out out, bool with_class);
+
+extern struct _code oj_compat_codes[];
+
+#endif /* OJ_CODE_H */