Big Sky

JSON-Cという、C言語からJSONを扱う為のライブラリを見つけました。

Index of /json-c

C言語って言いながら、実際もともと/TPオプションでCPPビルドしてるし、それJSON-CPPちゃうんかいという気もしなくないですが...。
foreachなんかもあり、結構使い勝手は良さそうです。

ただ、同梱されている物の中には*.vcprojしか入っておらず、Makefileでゴニョゴニョするのが好きな私には絶えられないものであったり...
最近はMakefileを書く習慣って無くなってきたんですかねぇ...
で、VC6でビルドしようと思ったけどエラーがワンサカ。
どうやら

キャスト漏れ
変数名に「this」を使用
C99の可変個引数マクロを使用

とはっきり言ってVC6を捨てているコードだったりしました。
なにくそーとパッチを書いたので、公開しておきます。
ただ大したパッチでもないので、オフィシャルに送るのはやめときます。
しかもトリッキーな事やってます。
デバッグ用の可変個引数マクロ


#define MC_DEBUG(x, ...) mc_debug(x, ##__VA_ARGS__)

を


#define MC_DEBUG if (0)

みたくして無理やり殺しています。
で、できたパッチは以下の通り。


Index: json_object.c

===================================================================

--- json_object.c   (revision 21)

+++ json_object.c   (working copy)

@@ -28,7 +28,9 @@

   char* strndup(const char* str, size_t n);

 #endif /* !HAVE_STRNDUP */

 

+#if _MSC_VER >= 1400

 #define REFCOUNT_DEBUG 1

+#endif

 

 char *json_number_chars = "0123456789.+-eE";

 char *json_hex_chars = "0123456789abcdef";

@@ -160,7 +162,7 @@

 

 static struct json_object* json_object_new(enum json_type o_type)

 {

-  struct json_object *this = calloc(sizeof(struct json_object), 1);

+  struct json_object *this = (struct json_object*)calloc(sizeof(struct json_object), 1);

   if(!this) return NULL;

   this->o_type = o_type;

   this->_ref_count = 1;

Index: json_tokener.c

===================================================================

--- json_tokener.c  (revision 21)

+++ json_tokener.c  (working copy)

@@ -57,7 +57,7 @@

 

 struct json_tokener* json_tokener_new()

 {

-  struct json_tokener *tok = calloc(1, sizeof(struct json_tokener));

+  struct json_tokener *tok = (struct json_tokener*)calloc(1, sizeof(struct json_tokener));

   tok->pb = printbuf_new();

   json_tokener_reset(tok);

   return tok;

@@ -97,7 +97,7 @@

   tok = json_tokener_new();

   obj = json_tokener_parse_ex(tok, str, -1);

   if(tok->err != json_tokener_success)

-    obj = error_ptr(-tok->err);

+    obj = (struct json_object*)error_ptr(-tok->err);

   json_tokener_free(tok);

   return obj;

 }

Index: linkhash.c

===================================================================

--- linkhash.c  (revision 21)

+++ linkhash.c  (working copy)

@@ -42,7 +42,7 @@

 unsigned long lh_char_hash(void *k)

 {

    unsigned int h = 0;

-   const char* data = k;

+   const char* data = (const char*)k;

  

    while( *data!=0 ) h = h*129 + (unsigned int)(*data++) + LH_PRIME;

 

@@ -62,12 +62,12 @@

    int i;

    struct lh_table *t;

 

-   t = calloc(1, sizeof(struct lh_table));

+   t = (struct lh_table*)calloc(1, sizeof(struct lh_table));

    if(!t) lh_abort("lh_table_new: calloc failed\n");

    t->count = 0;

    t->size = size;

    t->name = name;

-   t->table = calloc(size, sizeof(struct lh_entry));

+   t->table = (struct lh_entry*)calloc(size, sizeof(struct lh_entry));

    if(!t->table) lh_abort("lh_table_new: calloc failed\n");

    t->free_fn = free_fn;

    t->hash_fn = hash_fn;

Index: json_util.c

===================================================================

--- json_util.c (revision 21)

+++ json_util.c (working copy)

@@ -62,11 +62,11 @@

   if((fd = open(filename, O_RDONLY)) < 0) {

     MC_ERROR("json_object_from_file: error reading file %s: %s\n",

         filename, strerror(errno));

-    return error_ptr(-1);

+    return (struct json_object*)error_ptr(-1);

   }

   if(!(pb = printbuf_new())) {

     MC_ERROR("json_object_from_file: printbuf_new failed\n");

-    return error_ptr(-1);

+    return (struct json_object*)error_ptr(-1);

   }

   while((ret = read(fd, buf, JSON_FILE_BUF_SIZE)) > 0) {

     printbuf_memappend(pb, buf, ret);

@@ -76,7 +76,7 @@

     MC_ABORT("json_object_from_file: error reading file %s: %s\n",

         filename, strerror(errno));

     printbuf_free(pb);

-    return error_ptr(-1);

+    return (struct json_object*)error_ptr(-1);

   }

   obj = json_tokener_parse(pb->buf);

   printbuf_free(pb);

Index: debug.h

===================================================================

--- debug.h (revision 21)

+++ debug.h (working copy)

@@ -21,6 +21,7 @@

 extern void mc_error(const char *msg, ...);

 extern void mc_info(const char *msg, ...);

 

+#if _MSC_VER >= 1400

 #ifdef MC_MAINTAINER_MODE

 #define MC_SET_DEBUG(x) mc_set_debug(x)

 #define MC_GET_DEBUG() mc_get_debug()

@@ -38,5 +39,14 @@

 #define MC_ERROR(x, ...) if (0) mc_error(x, ##__VA_ARGS__)

 #define MC_INFO(x, ...) if (0) mc_info(x, ##__VA_ARGS__)

 #endif

+#else

+#define MC_SET_DEBUG(x)

+#define MC_GET_DEBUG()

+#define MC_SET_SYSLOG(x)

+#define MC_ABORT if (0)

+#define MC_DEBUG if (0)

+#define MC_ERROR if (0)

+#define MC_INFO if (0)

+#endif

 

 #endif

Index: arraylist.c

===================================================================

--- arraylist.c (revision 21)

+++ arraylist.c (working copy)

@@ -28,11 +28,11 @@

 {

   struct array_list *this;

 

-  if(!(this = calloc(1, sizeof(struct array_list)))) return NULL;

+  if(!(this = (struct array_list*)calloc(1, sizeof(struct array_list)))) return NULL;

   this->size = ARRAY_LIST_DEFAULT_SIZE;

   this->length = 0;

   this->free_fn = free_fn;

-  if(!(this->array = calloc(sizeof(void*), this->size))) {

+  if(!(this->array = (void**)calloc(sizeof(void*), this->size))) {

     free(this);

     return NULL;

   }

@@ -64,7 +64,7 @@

   if(max < this->size) return 0;

   new_size = max(this->size << 1, max);

   if(!(t = realloc(this->array, new_size*sizeof(void*)))) return -1;

-  this->array = t;

+  this->array = (void**)t;

   (void)memset(this->array + this->size, 0, (new_size-this->size)*sizeof(void*));

   this->size = new_size;

   return 0;

Index: json.h

===================================================================

--- json.h  (revision 21)

+++ json.h  (working copy)

@@ -13,8 +13,10 @@

 #define _json_h_

 

 #ifdef __cplusplus

+#if _MSC_VER >= 1400

 extern "C" {

 #endif

+#endif

 

 #include "bits.h"

 #include "debug.h"

@@ -25,7 +27,9 @@

 #include "json_tokener.h"

 

 #ifdef __cplusplus

+#if _MSC_VER >= 1400

 }

 #endif

+#endif

 

 #endif

Index: printbuf.c

===================================================================

--- printbuf.c  (revision 21)

+++ printbuf.c  (working copy)

@@ -29,10 +29,10 @@

 {

   struct printbuf *p;

 

-  if(!(p = calloc(1, sizeof(struct printbuf)))) return NULL;

+  if(!(p = (struct printbuf*)calloc(1, sizeof(struct printbuf)))) return NULL;

   p->size = 32;

   p->bpos = 0;

-  if(!(p->buf = malloc(p->size))) {

+  if(!(p->buf = (char*)malloc(p->size))) {

     free(p);

     return NULL;

   }

@@ -50,7 +50,7 @@

         "bpos=%d wrsize=%d old_size=%d new_size=%d\n",

         p->bpos, size, p->size, new_size);

 #endif /* PRINTBUF_DEBUG */

-    if(!(t = realloc(p->buf, new_size))) return -1;

+    if(!(t = (char*)realloc(p->buf, new_size))) return -1;

     p->size = new_size;

     p->buf = t;

   }

@@ -70,7 +70,7 @@

 /* CAW: compliant version of vasprintf */

 static int vasprintf(char **buf, const char *fmt, va_list ap)

 {

-#ifndef WIN32

+#if !defined(WIN32) || _MSC_VER < 1400

    static char _T_emptybuffer = '\0';

 #endif /* !defined(WIN32) */

    int chars;

@@ -78,7 +78,7 @@

 

    if(!buf) { return -1; }

 

-#ifdef WIN32

+#if defined(WIN32) && _MSC_VER >= 1400

    chars = _vscprintf(fmt, ap)+1;

 #else /* !defined(WIN32) */

    /* CAW: RAWR! We have to hope to god here that vsnprintf doesn't overwrite

さらにVC6でビルドする為のMakefile


CFLAGS = -DWIN32 -Dthis=o_this -O2 -MT -W3 -nologo -TP -EHsc

SRC = arraylist.c json_object.c json_tokener.c json_util.c linkhash.c printbuf.c

OBJ = $(SRC:.c=.obj)



all : json.lib



json.lib : $(OBJ)

    lib /out:json.lib $(OBJ)



hoge.exe : hoge.obj

    cl /Fohoge.exe hoge.obj json.lib



clean :

    del /Q *.obj *.lib

あと、サンプル「hoge.c」


#include <stdio.h>

#include <stdlib.h>

#include <stddef.h>

#include <string.h>



#include "json.h"



int main(int argc, char **argv)

{

    struct json_object *obj;

    int i;



    obj = json_tokener_parse("[1,2,3]");

    for(i=0; i < json_object_array_length(obj); i++) {

        struct json_object *a = json_object_array_get_idx(obj, i);

        printf("\t[%d]=%s\n", i, json_object_to_json_string(a));

    }

    obj = json_tokener_parse("{'a':1,'b':2,'c':3}");

    json_object_object_foreach(obj, key, val) {

        printf("\t%s: %s\n", key, json_object_to_json_string(val));

    }



    return 0;

}

「hoge.c」の実行結果は


    [0]=1

    [1]=2

    [2]=3

    a: 1

    b: 2

    c: 3

こんな感じ。
うむ。これでgtkwassrにTODO機能が付けれるかも...

そうなのか...知らなかった。

The Future of JavaScript

var a = [1,2,3]; var a2 = a.pop; var b = a2() は？
this のコンテキストが変わってるのでエラーになる

なんでだろ。メソッド呼び出し時に正しくコンテキストスイッチしてないって事？

例えば


var obj = new(function Clazz() {

  var self = this;

  self.value = 0;

  self.plus = function() { self.value++; };

})();

var func_plus = obj.plus;

func_plus();

alert(obj.value);

なら結果は「1」になるよね？それってもしかして


var obj = new(function Clazz() {

  this.value = 0;

  this.plus = function() { this.value++; };

})();

var func_plus = obj.plus;

func_plus();

alert(obj.value);

こうなってるって事じゃないの？うむ...それっていいの？
コンテキスト保持しておけば


function Clazz() {

  var self = this;

  self.value = 0;

  self.plus = function() { self.value++; };

}

var obj1 = new Clazz();

var obj2 = new Clazz();

var func_plus = obj1.plus;

func_plus();

obj2.plus = func_plus;

obj2.plus();

alert(obj1.value + "," + obj2.value);

こんな事しても、例外出ずに動くよね？obj1.valueがインクリメントされる結果になるけど...

これってperlなら


#!/usr/bin/perl



use strict;

use warnings;



package Clazz;

sub new {

  my $class = shift;

  my $self = { value => 0 };

  return bless $self, $class;

}

sub plus {

  my $self = shift;

  ++$self->{value};

  1;

}



my $obj1 = Clazz->new;

my $obj2 = Clazz->new;



my $func_plus = *Clazz::plus;

warn "func_plus=".$func_plus."\n";

$func_plus->($obj1);

warn sprintf "obj1->{value}=%d, obj2->{value}=%d\n",

    $obj1->{value}, $obj2->{value};



$obj2->{plus} = $func_plus;

$obj2->plus();

warn sprintf "obj1->{value}=%d, obj2->{value}=%d\n",

    $obj1->{value}, $obj2->{value};

こんなサンプルかな。実行結果は


func_plus=*Clazz::plus

obj1->{value}=1, obj2->{value}=0

obj1->{value}=1, obj2->{value}=1

サブルーチンにはselfを渡すのはインスタンス自身になるから問題無く動くね。javascriptのようにfunctionの参照自身がインスタンス参照を保持しちゃってる訳じゃなので問題は発生しないか...

pythonなら


class Clazz:

  def __init__(self):

    self.value = 0



  def plus(self):

    self.value = self.value + 1



obj1 = Clazz()

obj2 = Clazz()



func_plus = obj1.plus

print "func_plus=%s" % func_plus

func_plus()

print "obj1.value=%d, obj2.value=%d" % (obj1.value, obj2.value)



obj2.plus = func_plus

obj2.plus()

print "obj1.value=%d, obj2.value=%d" % (obj1.value, obj2.value)

こんなサンプルかな？実行結果は


func_plus=<bound method Clazz.plus of <__main__.Clazz instance at 0xb7ef828c>>

obj1.value=1, obj2.value=0

obj1.value=2, obj2.value=0

pythonの場合は関数の参照自身がインスタンスの参照も保持しているから、いくらobj2.plusを上書きしてもobj2.valueが更新される訳じゃない。

rubyなら


class Clazz

    def initialize() @value = 0 end

    def plus() @value += 1 end

    attr_accessor :value

end



obj1 = Clazz::new

obj2 = Clazz::new

func_plus = Clazz.instance_method :plus

puts "func_plus=%s" % func_plus

func_plus.bind(obj1).call

printf("obj1.value=%d, obj2.value=%d\n", obj1.value, obj2.value)

func_plus.bind(obj2).call

printf("obj1.value=%d, obj2.value=%d\n", obj1.value, obj2.value)

こんな感じ？実行結果は


func_plus=#<UnboundMethod: Clazz#plus>

obj1.value=1, obj2.value=0

obj1.value=1, obj2.value=1

rubyの場合はperlぽいけど、UnboundMethodの呼び出しはまずインスタンスをbindしてから呼ぶ事になるので問題は発生しない。ちなみにobj1.plusを取得してobj2.plusに代入できないかやってみたけど、私の力足らずなのか出来なかった。

luaなら


function Clazz()

  return {

    value = 0,

    plus = function(self)

      self.value = self.value + 1

    end

  }

end

local obj1 = Clazz()

local obj2 = Clazz()

local func_plus = obj1.plus

print("func_plus", func_plus)

func_plus(obj1)

func_plus(obj2)

print("obj1.value=", obj1.value)

print("obj2.value=", obj2.value)

こんな感じ？実行結果は


func_plus   function: 0x8f36270

obj1.value= 1

obj2.value= 1

luaも結局selfを渡す事になるので、問題は派生しない。
ちなみにC++なら


#include <stdio.h>



class Clazz {

private:

  int _value;

public:

  Clazz() : _value(0) {}

  void plus() { _value++; }

  int value() { return _value; }

};



int

main(int argc, char* argv[])

{

    Clazz* obj1 = new Clazz();

    Clazz* obj2 = new Clazz();



    typedef void (Clazz::*def_func_plus)();

    def_func_plus func_plus = &Clazz::plus;

    printf("func_plus=%p\n", func_plus);

    (obj1->*func_plus)();

    printf("obj1->value=%d, obj2->value=%d\n",

            obj1->value(), obj2->value());



    // obj2->plus = func_plus; # compile error



    return 0;

}

こんな感じ？実行結果は


func_plus=0x8048574

obj1->value=1, obj2->value=0

まぁ、無茶すればobj2->plusも置き換えられない事はないけど、結果は見えてるからいいでしょ...

つまり、著名な言語で問題が発生しているのはjavascriptだけって事か...
それって...

まずくない？

Big Sky

2008/02/07

C言語からJSONを扱う為のライブラリ、JSON-CをVC6でビルドする為のパッチ

あわせて読みたいJSONを使ってみる

2008/01/31

javascriptのArray.popがfunction越しに呼び出せない件