groonga 0.9.1 → 1.0.0

data/ext/rb-grn-logger.c

@@ -1,325 +0,0 @@
-/* -*- c-file-style: "ruby" -*- */
-/*
-  Copyright (C) 2009  Kouhei Sutou <kou@clear-code.com>
-
-  This library is free software; you can redistribute it and/or
-  modify it under the terms of the GNU Lesser General Public
-  License version 2.1 as published by the Free Software Foundation.
-
-  This library is distributed in the hope that it will be useful,
-  but WITHOUT ANY WARRANTY; without even the implied warranty of
-  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-  Lesser General Public License for more details.
-
-  You should have received a copy of the GNU Lesser General Public
-  License along with this library; if not, write to the Free Software
-  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-*/
-
-#include "rb-grn.h"
-
-/*
- * Document-class: Groonga::Logger
- *
- * groongaから出力されるログを記録するためのクラス。
- *
- */
-
-#define RVAL2GRNWRAPPER(object)  (rb_grn_logger_info_wrapper_from_ruby_object(object))
-#define RVAL2GRNLOGLEVEL(object) (rb_grn_log_level_from_ruby_object(object))
-#define GRNLOGLEVEL2RVAL(level)  (rb_grn_log_level_to_ruby_object(level))
-
-VALUE cGrnLogger;
-
-typedef struct _rb_grn_logger_info_wrapper
-{
-    grn_logger_info *logger;
-    VALUE handler;
-} rb_grn_logger_info_wrapper;
-
-static rb_grn_logger_info_wrapper *
-rb_grn_logger_info_wrapper_from_ruby_object (VALUE object)
-{
-    rb_grn_logger_info_wrapper *wrapper;
-
-    if (NIL_P(object))
-        return NULL;
-
-    if (!RVAL2CBOOL(rb_obj_is_kind_of(object, cGrnLogger))) {
-	rb_raise(rb_eTypeError, "not a groonga logger");
-    }
-
-    Data_Get_Struct(object, rb_grn_logger_info_wrapper, wrapper);
-    if (!wrapper)
-        rb_raise(rb_eTypeError, "groonga logger is NULL");
-
-    return wrapper;
-}
-
-grn_logger_info *
-rb_grn_logger_from_ruby_object (VALUE object)
-{
-    rb_grn_logger_info_wrapper *wrapper;
-
-    wrapper = RVAL2GRNWRAPPER(object);
-    if (!wrapper)
-        return NULL;
-
-    return wrapper->logger;
-}
-
-static void
-rb_grn_logger_free (void *object)
-{
-    rb_grn_logger_info_wrapper *wrapper = object;
-
-    xfree(wrapper->logger);
-    xfree(wrapper);
-}
-
-static VALUE
-rb_grn_logger_alloc (VALUE klass)
-{
-    return Data_Wrap_Struct(klass, NULL, rb_grn_logger_free, NULL);
-}
-
-static grn_log_level
-rb_grn_log_level_from_ruby_object (VALUE rb_level)
-{
-    grn_log_level level = GRN_LOG_NONE;
-
-    if (NIL_P(rb_level)) {
-        level = GRN_LOG_DEFAULT_LEVEL;
-    } else if (rb_grn_equal_option(rb_level, "none")) {
-        level = GRN_LOG_NONE;
-    } else if (rb_grn_equal_option(rb_level, "emergency")) {
-        level = GRN_LOG_EMERG;
-    } else if (rb_grn_equal_option(rb_level, "alert")) {
-        level = GRN_LOG_ALERT;
-    } else if (rb_grn_equal_option(rb_level, "critical")) {
-        level = GRN_LOG_CRIT;
-    } else if (rb_grn_equal_option(rb_level, "error")) {
-        level = GRN_LOG_ERROR;
-    } else if (rb_grn_equal_option(rb_level, "warning")) {
-        level = GRN_LOG_WARNING;
-    } else if (rb_grn_equal_option(rb_level, "notice")) {
-        level = GRN_LOG_NOTICE;
-    } else if (rb_grn_equal_option(rb_level, "info")) {
-        level = GRN_LOG_INFO;
-    } else if (rb_grn_equal_option(rb_level, "debug")) {
-        level = GRN_LOG_DEBUG;
-    } else if (rb_grn_equal_option(rb_level, "dump")) {
-        level = GRN_LOG_DUMP;
-    } else {
-        rb_raise(rb_eArgError,
-                 "log level should be one of "
-                 "[nil, :none, :emergency, :alert, :critical, :error, "
-                 ":warning, :notice, :info, :debug, :dump]: %s",
-                 rb_grn_inspect(rb_level));
-    }
-
-    return level;
-}
-
-static VALUE
-rb_grn_log_level_to_ruby_object (grn_log_level level)
-{
-    VALUE rb_level = Qnil;
-
-    switch (level) {
-      case GRN_LOG_NONE:
-	rb_level = RB_GRN_INTERN("none");
-	break;
-      case GRN_LOG_EMERG:
-	rb_level = RB_GRN_INTERN("emergency");
-	break;
-      case GRN_LOG_ALERT:
-	rb_level = RB_GRN_INTERN("alert");
-	break;
-      case GRN_LOG_CRIT:
-	rb_level = RB_GRN_INTERN("critical");
-	break;
-      case GRN_LOG_ERROR:
-	rb_level = RB_GRN_INTERN("error");
-	break;
-      case GRN_LOG_WARNING:
-	rb_level = RB_GRN_INTERN("warning");
-	break;
-      case GRN_LOG_NOTICE:
-	rb_level = RB_GRN_INTERN("notice");
-	break;
-      case GRN_LOG_INFO:
-	rb_level = RB_GRN_INTERN("info");
-	break;
-      case GRN_LOG_DEBUG:
-	rb_level = RB_GRN_INTERN("debug");
-	break;
-      case GRN_LOG_DUMP:
-	rb_level = RB_GRN_INTERN("dump");
-	break;
-      default:
-	rb_level = INT2NUM(level);
-	break;
-    }
-
-    return rb_level;
-}
-
-static void
-rb_grn_log (int level, const char *time, const char *title,
-            const char *message, const char *location, void *func_arg)
-{
-    rb_grn_logger_info_wrapper *wrapper = func_arg;
-
-    rb_funcall(wrapper->handler, rb_intern("call"), 5,
-               GRNLOGLEVEL2RVAL(level),
-               rb_str_new2(time),
-               rb_str_new2(title),
-               rb_str_new2(message),
-               rb_str_new2(location));
-}
-
-static void
-rb_grn_logger_set_handler (VALUE self, VALUE rb_handler)
-{
-    rb_grn_logger_info_wrapper *wrapper;
-    grn_logger_info *logger;
-
-    wrapper = RVAL2GRNWRAPPER(self);
-    wrapper->handler = rb_handler;
-    rb_iv_set(self, "@handler", rb_handler);
-
-    logger = wrapper->logger;
-    if (NIL_P(rb_handler)) {
-        logger->func = NULL;
-        logger->func_arg = NULL;
-    } else {
-        logger->func = rb_grn_log;
-        logger->func_arg = wrapper;
-    }
-}
-
-static VALUE
-rb_grn_logger_initialize (int argc, VALUE *argv, VALUE self)
-{
-    rb_grn_logger_info_wrapper *wrapper;
-    grn_logger_info *logger;
-    grn_log_level level;
-    int flags = 0;
-    VALUE options, rb_level, rb_time, rb_title, rb_message, rb_location;
-    VALUE rb_handler;
-
-    rb_scan_args(argc, argv, "01&", &options, &rb_handler);
-
-    rb_grn_scan_options(options,
-                        "level", &rb_level,
-                        "time", &rb_time,
-                        "title", &rb_title,
-                        "message", &rb_message,
-                        "location", &rb_location,
-                        NULL);
-
-    level = RVAL2GRNLOGLEVEL(rb_level);
-
-    if (NIL_P(rb_time) || RVAL2CBOOL(rb_time))
-        flags |= GRN_LOG_TIME;
-    if (NIL_P(rb_title) || RVAL2CBOOL(rb_title))
-        flags |= GRN_LOG_TITLE;
-    if (NIL_P(rb_message) || RVAL2CBOOL(rb_message))
-        flags |= GRN_LOG_MESSAGE;
-    if (NIL_P(rb_location) || RVAL2CBOOL(rb_location))
-        flags |= GRN_LOG_LOCATION;
-
-    wrapper = ALLOC(rb_grn_logger_info_wrapper);
-    logger = ALLOC(grn_logger_info);
-    wrapper->logger = logger;
-    DATA_PTR(self) = wrapper;
-
-    logger->max_level = level;
-    logger->flags = flags;
-    rb_grn_logger_set_handler(self, rb_handler);
-
-    return Qnil;
-}
-
-/*
- * call-seq:
- *   Groonga::Logger.register(options={})
-       {|level, time, title, message, location| ...}
- *
- * groongaがログを出力する度に呼び出されるブロックを登録す
- * る。
- *
- * ブロックに渡されてくる引数は_level_, _time_, _title_,
- * _message_, _location_の5つで、_level_はSymbol、それ以外は
- * 全て文字列で渡される。その4つについては_options_で+false+
- * を指定することでブロックに渡さないようにすることができ、
- * その場合は空文字列が実際には渡される。
- *
- * _options_に指定可能な値は以下の通り。
- *
- * [+:level+]
- *   ログのレベルを+:none+, +:emergency+, +:alert+,
- *   +:critical+, +:error+, +:warning+, +:notice+, +:info+,
- *   +:debug+, +:dump+のいずれかで指定する。それより重要度が
- *   低いログはブロックに渡されなくなる。デフォルトでは
- *   +:notice+。
- *
- * [+:time+]
- *   ログが出力された時間をブロックに渡したいなら+true+を指
- *   定する。デフォルトでは渡す。
- *
- * [+:title+]
- *   ログのタイトルをブロックに渡したいなら+true+を指定す
- *   る。デフォルトでは渡す。(FIXME: groongaで実装されてい
- *   ない?)
- *
- * [+:message+]
- *   ログのメッセージをブロックに渡したいなら+true+を指定す
- *   る。デフォルトでは渡す。
- *
- * [+:location+]
- *   ログの発生元のプロセスIDとgroongaのソースコードのファイ
- *   ル名、行番号、関数名をブロックに渡したいなら+true+を指
- *   定する。デフォルトでは渡す。
- */
-static VALUE
-rb_grn_logger_s_register (int argc, VALUE *argv, VALUE klass)
-{
-    VALUE logger;
-    grn_rc  rc;
-
-    logger = rb_funcall2(klass, rb_intern("new"), argc, argv);
-    rb_grn_logger_set_handler(logger, rb_block_proc());
-    rc = grn_logger_info_set(NULL, RVAL2GRNLOGGER(logger));
-    rb_grn_rc_check(rc, logger);
-    rb_cv_set(klass, "@@current_logger", logger);
-
-    return Qnil;
-}
-
-static void
-rb_grn_logger_reset (VALUE klass)
-{
-    VALUE current_logger;
-
-    current_logger = rb_cv_get(klass, "@@current_logger");
-    if (NIL_P(current_logger))
-        return;
-
-    grn_logger_info_set(NULL, NULL);
-}
-
-void
-rb_grn_init_logger (VALUE mGrn)
-{
-    cGrnLogger = rb_define_class_under(mGrn, "Logger", rb_cObject);
-    rb_define_alloc_func(cGrnLogger, rb_grn_logger_alloc);
-
-    rb_cv_set(cGrnLogger, "@@current_logger", Qnil);
-    rb_define_singleton_method(cGrnLogger, "register",
-                               rb_grn_logger_s_register, -1);
-    rb_set_end_proc(rb_grn_logger_reset, cGrnLogger);
-
-    rb_define_method(cGrnLogger, "initialize", rb_grn_logger_initialize, -1);
-}

data/ext/rb-grn-object.c

@@ -1,1335 +0,0 @@
-/* -*- c-file-style: "ruby" -*- */
-/*
-  Copyright (C) 2009-2010  Kouhei Sutou <kou@clear-code.com>
-
-  This library is free software; you can redistribute it and/or
-  modify it under the terms of the GNU Lesser General Public
-  License version 2.1 as published by the Free Software Foundation.
-
-  This library is distributed in the hope that it will be useful,
-  but WITHOUT ANY WARRANTY; without even the implied warranty of
-  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-  Lesser General Public License for more details.
-
-  You should have received a copy of the GNU Lesser General Public
-  License along with this library; if not, write to the Free Software
-  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-*/
-
-/*
- * Document-class: Groonga::Object
- *
- * Ruby/groongaが提供するクラスのベースとなるクラス。
- * Groonga::ContextとGroonga::Logger以外はGroonga::Objectを継
- * 承している。
- */
-
-#include "rb-grn.h"
-
-#define SELF(object) ((RbGrnObject *)DATA_PTR(object))
-
-VALUE rb_cGrnObject;
-
-grn_obj *
-rb_grn_object_from_ruby_object (VALUE object, grn_ctx **context)
-{
-    RbGrnObject *rb_grn_object;
-
-    if (NIL_P(object))
-        return NULL;
-
-    if (context && *context) {
-	grn_obj *grn_object;
-	if (RVAL2CBOOL(rb_obj_is_kind_of(object, rb_cString))) {
-	    const char *name;
-	    unsigned int name_size;
-
-	    name = StringValuePtr(object);
-	    name_size = RSTRING_LEN(object);
-	    grn_object = rb_grn_context_get_backward_compatibility(*context,
-								   name,
-								   name_size);
-	    if (!grn_object)
-		rb_raise(rb_eArgError,
-			 "unregistered groonga object: name: <%s>",
-			 rb_grn_inspect(object));
-	    return grn_object;
-	} else if (RVAL2CBOOL(rb_obj_is_kind_of(object, rb_cInteger))) {
-	    grn_object = grn_ctx_at(*context, NUM2UINT(object));
-	    if (!grn_object)
-		rb_raise(rb_eArgError,
-			 "unregistered groonga object: ID: <%s>",
-			 rb_grn_inspect(object));
-	    return grn_object;
-	}
-    }
-
-    if (!RVAL2CBOOL(rb_obj_is_kind_of(object, rb_cGrnObject))) {
-	rb_raise(rb_eTypeError, "not a groonga object: <%s>",
-		 rb_grn_inspect(object));
-    }
-
-    Data_Get_Struct(object, RbGrnObject, rb_grn_object);
-    if (!rb_grn_object)
-	rb_raise(rb_eGrnError, "groonga object is NULL");
-
-    if (context && !*context)
-	*context = rb_grn_object->context;
-
-    return rb_grn_object->object;
-}
-
-static grn_obj *
-rb_grn_object_finalizer (grn_ctx *context, int n_args, grn_obj **grn_objects,
-			 grn_user_data *user_data)
-{
-    RbGrnObject *rb_grn_object;
-    grn_obj *grn_object = *grn_objects;
-
-    if (rb_grn_exited)
-	return NULL;
-
-    rb_grn_object = user_data->ptr;
-
-    grn_obj_user_data(context, grn_object)->ptr = NULL;
-    grn_obj_set_finalizer(context, grn_object, NULL);
-
-    debug("finalize: %p:%p:%p:%p:%p 0x%x\n",
-	  context, grn_object, rb_grn_object,
-	  rb_grn_object->context, rb_grn_object->object,
-	  grn_object->header.type);
-
-    rb_grn_object->context = NULL;
-    rb_grn_object->object = NULL;
-
-    switch (grn_object->header.type) {
-      case GRN_DB:
-	grn_ctx_use(context, NULL);
-	break;
-      case GRN_TYPE:
-      case GRN_PROC:
-      case GRN_CURSOR_TABLE_HASH_KEY:
-      case GRN_CURSOR_TABLE_PAT_KEY:
-      case GRN_CURSOR_TABLE_NO_KEY:
-	break;
-      case GRN_TABLE_HASH_KEY:
-      case GRN_TABLE_PAT_KEY:
-	rb_grn_table_key_support_finalizer(context, grn_object,
-					   RB_GRN_TABLE_KEY_SUPPORT(rb_grn_object));
-	break;
-      case GRN_TABLE_NO_KEY:
-	rb_grn_table_finalizer(context, grn_object,
-			       RB_GRN_TABLE(rb_grn_object));
-	break;
-      case GRN_COLUMN_FIX_SIZE:
-      case GRN_COLUMN_VAR_SIZE:
-	rb_grn_column_finalizer(context, grn_object,
-				RB_GRN_COLUMN(rb_grn_object));
-	break;
-      case GRN_COLUMN_INDEX:
-	rb_grn_index_column_finalizer(context, grn_object,
-				      RB_GRN_INDEX_COLUMN(rb_grn_object));
-	break;
-      case GRN_ACCESSOR:
-	rb_grn_named_object_finalizer(context, grn_object,
-				      RB_GRN_NAMED_OBJECT(rb_grn_object));
-	break;
-      case GRN_EXPR:
-	rb_grn_expression_finalizer(context, grn_object,
-				    RB_GRN_EXPRESSION(rb_grn_object));
-	break;
-      default:
-	rb_raise(rb_eTypeError,
-		 "unsupported groonga object type for finalizer: 0x%x",
-		 grn_object->header.type);
-	break;
-    }
-
-    return NULL;
-}
-
-void
-rb_grn_object_free (RbGrnObject *rb_grn_object)
-{
-    grn_ctx *context;
-    grn_obj *grn_object;
-
-    context = rb_grn_object->context;
-    grn_object = rb_grn_object->object;
-    debug("rb-free: %p:%p:%p\n", context, grn_object, rb_grn_object);
-    if (!rb_grn_exited && context && grn_object) {
-	rb_grn_object->context = NULL;
-	rb_grn_object->object = NULL;
-	debug("type: %x\n", grn_object->header.type);
-	if (rb_grn_object->need_close) {
-	    grn_obj_unlink(context, grn_object);
-	}
-    }
-    xfree(rb_grn_object);
-}
-
-VALUE
-rb_grn_object_to_ruby_class (grn_obj *object)
-{
-    VALUE klass = Qnil;
-
-    switch (object->header.type) {
-      case GRN_DB:
-	klass = rb_cGrnDatabase;
-	break;
-      case GRN_TABLE_HASH_KEY:
-	klass = rb_cGrnHash;
-	break;
-      case GRN_TABLE_PAT_KEY:
-	klass = rb_cGrnPatriciaTrie;
-	break;
-      case GRN_TABLE_NO_KEY:
-	klass = rb_cGrnArray;
-	break;
-      case GRN_TYPE:
-	klass = rb_cGrnType;
-	break;
-      case GRN_ACCESSOR:
-	klass = rb_cGrnAccessor;
-	break;
-      case GRN_PROC:
-	klass = rb_cGrnProcedure;
-	break;
-      case GRN_COLUMN_FIX_SIZE:
-	klass = rb_cGrnFixSizeColumn;
-	break;
-      case GRN_COLUMN_VAR_SIZE:
-	klass = rb_cGrnVariableSizeColumn;
-	break;
-      case GRN_COLUMN_INDEX:
-	klass = rb_cGrnIndexColumn;
-	break;
-      case GRN_EXPR:
-	klass = rb_cGrnExpression;
-	break;
-      case GRN_CURSOR_TABLE_HASH_KEY:
-	klass = rb_cGrnHashCursor;
-	break;
-      case GRN_CURSOR_TABLE_PAT_KEY:
-	klass = rb_cGrnPatriciaTrieCursor;
-	break;
-      case GRN_CURSOR_TABLE_NO_KEY:
-	klass = rb_cGrnArrayCursor;
-	break;
-      default:
-	rb_raise(rb_eTypeError,
-		 "unsupported groonga object type for class detection: 0x%x",
-		 object->header.type);
-	break;
-    }
-
-    return klass;
-}
-
-VALUE
-rb_grn_object_to_ruby_object (VALUE klass, grn_ctx *context, grn_obj *object,
-			      rb_grn_boolean owner)
-{
-    RbGrnContext *rb_grn_context;
-    VALUE rb_object, rb_context = Qnil;
-    grn_user_data *user_data;
-
-    if (!object)
-        return Qnil;
-
-    user_data = grn_obj_user_data(context, object);
-    if (user_data && user_data->ptr) {
-	return RB_GRN_OBJECT(user_data->ptr)->self;
-    }
-
-    if (NIL_P(klass))
-        klass = GRNOBJECT2RCLASS(object);
-
-    rb_grn_context = GRN_CTX_USER_DATA(context)->ptr;
-    if (rb_grn_context)
-	rb_context = rb_grn_context->self;
-    rb_object = rb_obj_alloc(klass);
-    rb_grn_object_assign(klass, rb_object, rb_context, context, object);
-
-    return rb_object;
-}
-
-VALUE
-rb_grn_object_alloc (VALUE klass)
-{
-    return Data_Wrap_Struct(klass, NULL, rb_grn_object_free, NULL);
-}
-
-static void
-rb_grn_object_bind_common (VALUE klass, VALUE self, VALUE rb_context,
-			   RbGrnObject *rb_grn_object,
-			   grn_ctx *context, grn_obj *object)
-{
-    rb_grn_object->context = context;
-    rb_grn_object->object = object;
-    rb_grn_object->self = self;
-    rb_grn_object->need_close = RB_GRN_TRUE;
-
-    switch (object->header.type) {
-      case GRN_DB:
-      case GRN_CURSOR_TABLE_HASH_KEY:
-      case GRN_CURSOR_TABLE_PAT_KEY:
-      case GRN_CURSOR_TABLE_NO_KEY:
-      case GRN_TABLE_HASH_KEY:
-      case GRN_TABLE_PAT_KEY:
-      case GRN_TABLE_NO_KEY:
-      case GRN_COLUMN_FIX_SIZE:
-      case GRN_COLUMN_VAR_SIZE:
-      case GRN_COLUMN_INDEX:
-      case GRN_EXPR:
-	grn_obj_user_data(context, object)->ptr = rb_grn_object;
-	grn_obj_set_finalizer(context, object, rb_grn_object_finalizer);
-	break;
-      case GRN_PROC:
-      case GRN_TYPE:
-	rb_grn_object->need_close = RB_GRN_FALSE;
-	break;
-      default:
-	if (klass == rb_cGrnVariable)
-	    rb_grn_object->need_close = RB_GRN_FALSE;
-	break;
-    }
-
-    rb_grn_object->domain_id = GRN_ID_NIL;
-    if (object)
-	rb_grn_object->domain_id = object->header.domain;
-    if (rb_grn_object->domain_id == GRN_ID_NIL)
-	rb_grn_object->domain = NULL;
-    else
-	rb_grn_object->domain = grn_ctx_at(context, rb_grn_object->domain_id);
-
-    rb_grn_object->range_id = GRN_ID_NIL;
-    if (object && object->header.type != GRN_TYPE)
-	rb_grn_object->range_id = grn_obj_get_range(context, object);
-    if (rb_grn_object->range_id == GRN_ID_NIL)
-	rb_grn_object->range = NULL;
-    else
-	rb_grn_object->range = grn_ctx_at(context, rb_grn_object->range_id);
-
-    DATA_PTR(self) = rb_grn_object;
-    rb_iv_set(self, "@context", rb_context);
-}
-
-void
-rb_grn_object_assign (VALUE klass, VALUE self, VALUE rb_context,
-		      grn_ctx *context, grn_obj *object)
-{
-    void *rb_grn_object;
-
-    if (!object)
-	return;
-
-    if (NIL_P(klass))
-	klass = rb_obj_class(self);
-
-    if (klass == rb_cGrnDatabase ||
-	(RVAL2CBOOL(rb_obj_is_kind_of(self, rb_cGrnType))) ||
-	klass == rb_cGrnHashCursor ||
-	klass == rb_cGrnPatriciaTrieCursor ||
-	klass == rb_cGrnArrayCursor ||
-	klass == rb_cGrnProcedure ||
-	klass == rb_cGrnVariable) {
-	rb_grn_object = ALLOC(RbGrnObject);
-	rb_grn_object_bind_common(klass, self, rb_context, rb_grn_object,
-				  context, object);
-    } else if (RVAL2CBOOL(rb_obj_is_kind_of(self, rb_mGrnTableKeySupport))) {
-	rb_grn_object = ALLOC(RbGrnTableKeySupport);
-	rb_grn_object_bind_common(klass, self, rb_context, rb_grn_object,
-				  context, object);
-	rb_grn_table_key_support_bind(RB_GRN_TABLE_KEY_SUPPORT(rb_grn_object),
-				      context, object);
-    } else if (RVAL2CBOOL(rb_obj_is_kind_of(self, rb_cGrnTable))) {
-	rb_grn_object = ALLOC(RbGrnTable);
-	rb_grn_object_bind_common(klass, self, rb_context, rb_grn_object,
-				  context, object);
-	rb_grn_table_bind(RB_GRN_TABLE(rb_grn_object), context, object);
-    } else if (RVAL2CBOOL(rb_obj_is_kind_of(self, rb_cGrnIndexColumn))) {
-	rb_grn_object = ALLOC(RbGrnIndexColumn);
-	rb_grn_object_bind_common(klass, self, rb_context, rb_grn_object,
-				  context, object);
-	rb_grn_index_column_bind(RB_GRN_INDEX_COLUMN(rb_grn_object),
-				 context, object);
-    } else if (RVAL2CBOOL(rb_obj_is_kind_of(self, rb_cGrnColumn))) {
-	rb_grn_object = ALLOC(RbGrnColumn);
-	rb_grn_object_bind_common(klass, self, rb_context, rb_grn_object,
-				  context, object);
-	rb_grn_column_bind(RB_GRN_COLUMN(rb_grn_object), context, object);
-    } else if (klass == rb_cGrnAccessor) {
-	rb_grn_object = ALLOC(RbGrnNamedObject);
-	rb_grn_object_bind_common(klass, self, rb_context, rb_grn_object,
-				  context, object);
-	rb_grn_named_object_bind(RB_GRN_NAMED_OBJECT(rb_grn_object),
-				 context, object);
-    } else if (klass == rb_cGrnExpression) {
-	rb_grn_object = ALLOC(RbGrnExpression);
-	rb_grn_object_bind_common(klass, self, rb_context, rb_grn_object,
-				  context, object);
-	rb_grn_expression_bind(RB_GRN_EXPRESSION(rb_grn_object),
-			       context, object);
-    } else {
-	rb_raise(rb_eTypeError,
-		 "unsupported groonga object type for assignment: 0x%x",
-		 object->header.type);
-    }
-
-    debug("assign: %p:%p:%p 0x%x\n", context, object, rb_grn_object,
-	   object->header.type);
-}
-
-void
-rb_grn_named_object_bind (RbGrnNamedObject *rb_grn_named_object,
-			  grn_ctx *context, grn_obj *object)
-{
-    RbGrnObject *rb_grn_object;
-
-    rb_grn_object = RB_GRN_OBJECT(rb_grn_named_object);
-
-    rb_grn_named_object->name = NULL;
-    rb_grn_named_object->name_size = 0;
-}
-
-void
-rb_grn_named_object_finalizer (grn_ctx *context, grn_obj *grn_object,
-			       RbGrnNamedObject *rb_grn_named_object)
-{
-    if (rb_grn_named_object->name)
-	free(rb_grn_named_object->name);
-    rb_grn_named_object->name = NULL;
-    rb_grn_named_object->name_size = 0;
-}
-
-void
-rb_grn_named_object_set_name (RbGrnNamedObject *rb_grn_named_object,
-			      const char *name, unsigned name_size)
-{
-    if (rb_grn_named_object->name) {
-	free(rb_grn_named_object->name);
-	rb_grn_named_object->name = NULL;
-    }
-    if (name_size > 0) {
-	rb_grn_named_object->name = strndup(name, name_size);
-    }
-    rb_grn_named_object->name_size = name_size;
-}
-
-
-void
-rb_grn_object_deconstruct (RbGrnObject *rb_grn_object,
-			   grn_obj **object,
-			   grn_ctx **context,
-			   grn_id *domain_id,
-			   grn_obj **domain,
-			   grn_id *range_id,
-			   grn_obj **range)
-{
-    if (!rb_grn_object)
-	return;
-
-    if (!rb_grn_object->object) {
-	rb_raise(rb_eGrnObjectClosed,
-		 "can't access already closed groonga object: %s",
-		 rb_grn_inspect(CLASS_OF(rb_grn_object->self)));
-    }
-
-    if (object)
-	*object = rb_grn_object->object;
-    if (context)
-	*context = rb_grn_object->context;
-    if (domain_id)
-	*domain_id = rb_grn_object->domain_id;
-    if (domain)
-	*domain = rb_grn_object->domain;
-    if (range_id)
-	*range_id = rb_grn_object->range_id;
-    if (range)
-	*range = rb_grn_object->range;
-}
-
-/*
- * Document-method: close
- *
- * call-seq:
- *   object.close
- *
- * _object_が使用しているリソースを開放する。これ以降_object_を
- * 使うことはできない。
- */
-VALUE
-rb_grn_object_close (VALUE self)
-{
-    grn_obj *object;
-    grn_ctx *context;
-
-    rb_grn_object_deconstruct(SELF(self), &object, &context,
-			      NULL, NULL, NULL, NULL);
-    if (object && context)
-	grn_obj_close(context, object);
-    return Qnil;
-}
-
-/*
- * Document-method: closed?
- *
- * call-seq:
- *   object.closed? -> true/false
- *
- * _object_が開放済みの場合は+true+を返し、そうでない場合は
- * +false+を返す。
- */
-VALUE
-rb_grn_object_closed_p (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-
-    rb_grn_object = SELF(self);
-    if (rb_grn_object->context && rb_grn_object->object) {
-        return Qfalse;
-    } else {
-        return Qtrue;
-    }
-}
-
-VALUE
-rb_grn_object_inspect_object (VALUE inspected, grn_ctx *context, grn_obj *object)
-{
-    VALUE rb_object;
-
-    rb_object = GRNOBJECT2RVAL(Qnil, context, object, RB_GRN_FALSE);
-    rb_str_concat(inspected, rb_inspect(rb_object));
-
-    return inspected;
-}
-
-VALUE
-rb_grn_object_inspect_header (VALUE self, VALUE inspected)
-{
-    rb_str_cat2(inspected, "#<");
-    rb_str_concat(inspected, rb_inspect(rb_obj_class(self)));
-
-    return inspected;
-}
-
-static VALUE
-rb_grn_object_inspect_content_id_with_label (VALUE inspected,
-					     grn_ctx *context, grn_obj *object)
-{
-    grn_id id;
-
-    rb_str_cat2(inspected, "id: <");
-    id = grn_obj_id(context, object);
-    if (id == GRN_ID_NIL)
-	rb_str_cat2(inspected, "nil");
-    else
-	rb_str_concat(inspected, rb_obj_as_string(UINT2NUM(id)));
-    rb_str_cat2(inspected, ">");
-
-    return inspected;
-}
-
-static VALUE
-rb_grn_object_inspect_content_name (VALUE inspected,
-				    grn_ctx *context, grn_obj *object)
-{
-    int name_size;
-
-    name_size = grn_obj_name(context, object, NULL, 0);
-    if (name_size == 0) {
-	rb_str_cat2(inspected, "(anonymous)");
-    } else {
-	grn_obj name;
-
-	GRN_OBJ_INIT(&name, GRN_BULK, 0, GRN_ID_NIL);
-	grn_bulk_space(context, &name, name_size);
-	grn_obj_name(context, object, GRN_BULK_HEAD(&name), name_size);
-	GRN_TEXT_PUTC(context, &name, '\0');
-	rb_str_cat2(inspected, "<");
-	rb_str_cat2(inspected, GRN_BULK_HEAD(&name));
-	rb_str_cat2(inspected, ">");
-	grn_obj_close(context, &name);
-    }
-
-    return inspected;
-}
-
-static VALUE
-rb_grn_object_inspect_content_name_with_label (VALUE inspected,
-					       grn_ctx *context, grn_obj *object)
-{
-
-    rb_str_cat2(inspected, "name: ");
-    rb_grn_object_inspect_content_name(inspected, context, object);
-    return inspected;
-}
-
-static VALUE
-rb_grn_object_inspect_content_path_with_label (VALUE inspected,
-					       grn_ctx *context, grn_obj *object)
-{
-    const char *path;
-
-    rb_str_cat2(inspected, "path: ");
-    path = grn_obj_path(context, object);
-    if (path) {
-	rb_str_cat2(inspected, "<");
-	rb_str_cat2(inspected, path);
-	rb_str_cat2(inspected, ">");
-    } else {
-	rb_str_cat2(inspected, "(temporary)");
-    }
-
-    return inspected;
-}
-
-static VALUE
-rb_grn_object_inspect_content_domain_with_label (VALUE inspected,
-						 grn_ctx *context,
-						 grn_obj *object)
-{
-    grn_id domain;
-
-    rb_str_cat2(inspected, "domain: ");
-    domain = object->header.domain;
-    if (domain == GRN_ID_NIL) {
-	rb_str_cat2(inspected, "(nil)");
-    } else {
-	grn_obj *domain_object;
-
-	domain_object = grn_ctx_at(context, domain);
-	if (domain_object) {
-	    if (domain_object == object) {
-		rb_str_cat2(inspected, "(self)");
-	    } else {
-		rb_grn_object_inspect_content_name(inspected,
-						   context, domain_object);
-	    }
-	} else {
-	    rb_str_cat2(inspected, "(");
-	    rb_str_concat(inspected, rb_obj_as_string(UINT2NUM(domain)));
-	    rb_str_cat2(inspected, ")");
-	}
-    }
-
-    return inspected;
-}
-
-static VALUE
-rb_grn_object_inspect_content_range_with_label (VALUE inspected,
-						grn_ctx *context,
-						grn_obj *object)
-{
-    grn_id range;
-
-    rb_str_cat2(inspected, "range: ");
-
-    range = grn_obj_get_range(context, object);
-    switch (object->header.type) {
-      case GRN_TYPE:
-	rb_str_cat2(inspected, "<");
-	rb_str_concat(inspected, rb_inspect(UINT2NUM(range)));
-	rb_str_cat2(inspected, ">");
-	break;
-      default:
-	if (range == GRN_ID_NIL) {
-	    rb_str_cat2(inspected, "(nil)");
-	} else {
-	    grn_obj *range_object;
-
-	    range_object = grn_ctx_at(context, range);
-	    if (range_object) {
-		if (range_object == object) {
-		    rb_str_cat2(inspected, "(self)");
-		} else {
-		    rb_grn_object_inspect_content_name(inspected,
-						       context, range_object);
-		}
-	    } else {
-		rb_str_cat2(inspected, "(");
-		rb_str_concat(inspected, rb_obj_as_string(UINT2NUM(range)));
-		rb_str_cat2(inspected, ")");
-	    }
-	}
-    }
-
-    return inspected;
-}
-
-static VALUE
-rb_grn_object_inspect_content_flags_with_label (VALUE inspected,
-						grn_ctx *context,
-						grn_obj *object)
-{
-    grn_obj_flags flags;
-    VALUE inspected_flags;
-
-    rb_str_cat2(inspected, "flags: ");
-
-    flags = object->header.flags;
-
-    inspected_flags = rb_ary_new();
-
-    if (0) {
-	if (flags & GRN_OBJ_TABLE_HASH_KEY)
-	    rb_ary_push(inspected_flags, rb_str_new2("TABLE_HASH_KEY"));
-	if (flags & GRN_OBJ_TABLE_PAT_KEY)
-	    rb_ary_push(inspected_flags, rb_str_new2("TABLE_PAT_KEY"));
-	if (flags & GRN_OBJ_TABLE_NO_KEY)
-	    rb_ary_push(inspected_flags, rb_str_new2("TABLE_NO_KEY"));
-	if (flags & GRN_OBJ_TABLE_VIEW)
-	    rb_ary_push(inspected_flags, rb_str_new2("TABLE_VIEW"));
-    }
-
-    switch (object->header.type) {
-      case GRN_COLUMN_FIX_SIZE:
-      case GRN_COLUMN_VAR_SIZE:
-      case GRN_TYPE:
-	if (flags & GRN_OBJ_KEY_UINT)
-	    rb_ary_push(inspected_flags, rb_str_new2("KEY_UINT"));
-	if (flags & GRN_OBJ_KEY_INT)
-	    rb_ary_push(inspected_flags, rb_str_new2("KEY_INT"));
-	if (flags & GRN_OBJ_KEY_FLOAT)
-	    rb_ary_push(inspected_flags, rb_str_new2("KEY_FLOAT"));
-	break;
-      default:
-	break;
-    }
-
-    switch (object->header.type) {
-      case GRN_TABLE_HASH_KEY:
-      case GRN_TABLE_PAT_KEY:
-	if (flags & GRN_OBJ_KEY_WITH_SIS)
-	    rb_ary_push(inspected_flags, rb_str_new2("KEY_WITH_SIS"));
-	if (flags & GRN_OBJ_KEY_NORMALIZE)
-	    rb_ary_push(inspected_flags, rb_str_new2("KEY_NORMALIZE"));
-	break;
-      default:
-	break;
-    }
-
-    if (0) {
-	if (flags & GRN_OBJ_COLUMN_SCALAR)
-	    rb_ary_push(inspected_flags, rb_str_new2("COLUMN_SCALAR"));
-	if (flags & GRN_OBJ_COLUMN_VECTOR)
-	    rb_ary_push(inspected_flags, rb_str_new2("COLUMN_VECTOR"));
-	if (flags & GRN_OBJ_COLUMN_INDEX)
-	    rb_ary_push(inspected_flags, rb_str_new2("COLUMN_INDEX"));
-    }
-
-    switch (object->header.type) {
-      case GRN_COLUMN_FIX_SIZE:
-      case GRN_COLUMN_VAR_SIZE:
-	if (flags & GRN_OBJ_COMPRESS_ZLIB)
-	    rb_ary_push(inspected_flags, rb_str_new2("COMPRESS_ZLIB"));
-	if (flags & GRN_OBJ_COMPRESS_LZO)
-	    rb_ary_push(inspected_flags, rb_str_new2("COMPRESS_LZO"));
-	break;
-      default:
-	break;
-    }
-
-    if (flags & GRN_OBJ_WITH_SECTION)
-	rb_ary_push(inspected_flags, rb_str_new2("WITH_SECTION"));
-    if (flags & GRN_OBJ_WITH_WEIGHT)
-	rb_ary_push(inspected_flags, rb_str_new2("WITH_WEIGHT"));
-    if (flags & GRN_OBJ_WITH_POSITION)
-	rb_ary_push(inspected_flags, rb_str_new2("WITH_POSITION"));
-    if (flags & GRN_OBJ_WITH_BUFFER)
-	rb_ary_push(inspected_flags, rb_str_new2("WITH_BUFFER"));
-
-    if (flags & GRN_OBJ_UNIT_DOCUMENT_SECTION)
-	rb_ary_push(inspected_flags, rb_str_new2("UNIT_DOCUMENT_SECTION"));
-    if (flags & GRN_OBJ_UNIT_DOCUMENT_POSITION)
-	rb_ary_push(inspected_flags, rb_str_new2("UNIT_DOCUMENT_POSITION"));
-
-    if (flags & GRN_OBJ_UNIT_SECTION_POSITION)
-	rb_ary_push(inspected_flags, rb_str_new2("UNIT_SECTION_POSITION"));
-
-    if (flags & GRN_OBJ_UNIT_USERDEF_DOCUMENT)
-	rb_ary_push(inspected_flags, rb_str_new2("UNIT_USERDEF_DOCUMENT"));
-    if (flags & GRN_OBJ_UNIT_USERDEF_SECTION)
-	rb_ary_push(inspected_flags, rb_str_new2("UNIT_USERDEF_SECTION"));
-    if (flags & GRN_OBJ_UNIT_USERDEF_POSITION)
-	rb_ary_push(inspected_flags, rb_str_new2("UNIT_USERDEF_POSITION"));
-
-    if (flags & GRN_OBJ_WITH_SUBREC)
-	rb_ary_push(inspected_flags, rb_str_new2("WITH_SUBREC"));
-
-    rb_str_cat2(inspected, "<");
-    rb_str_concat(inspected, rb_ary_join(inspected_flags, rb_str_new2("|")));
-    rb_str_cat2(inspected, ">");
-
-    return inspected;
-}
-
-VALUE
-rb_grn_object_inspect_object_content (VALUE inspected,
-				      grn_ctx *context, grn_obj *object)
-{
-    rb_grn_object_inspect_content_id_with_label(inspected, context, object);
-    rb_str_cat2(inspected, ", ");
-    rb_grn_object_inspect_content_name_with_label(inspected, context, object);
-    rb_str_cat2(inspected, ", ");
-    rb_grn_object_inspect_content_path_with_label(inspected, context, object);
-    rb_str_cat2(inspected, ", ");
-    rb_grn_object_inspect_content_domain_with_label(inspected, context, object);
-    rb_str_cat2(inspected, ", ");
-    rb_grn_object_inspect_content_range_with_label(inspected, context, object);
-    rb_str_cat2(inspected, ", ");
-    rb_grn_object_inspect_content_flags_with_label(inspected, context, object);
-
-    return inspected;
-}
-
-VALUE
-rb_grn_object_inspect_content (VALUE self, VALUE inspected)
-{
-    RbGrnObject *rb_grn_object;
-    grn_ctx *context;
-    grn_obj *object;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object)
-	return inspected;
-
-    context = rb_grn_object->context;
-    object = rb_grn_object->object;
-
-    rb_str_cat2(inspected, " ");
-    if (object) {
-	rb_grn_object_inspect_object_content(inspected, context, object);
-    } else {
-	rb_str_cat2(inspected, "(closed)");
-    }
-
-    return inspected;
-}
-
-VALUE
-rb_grn_object_inspect_footer (VALUE self, VALUE inspected)
-{
-    rb_str_cat2(inspected, ">");
-
-    return inspected;
-}
-
-/*
- * Document-method: inspect
- *
- * call-seq:
- *   object.inspect -> 詳細情報
- *
- * _object_の詳細を示した文字列を返す。デバッグ用。
- */
-static VALUE
-rb_grn_object_inspect (VALUE self)
-{
-    VALUE inspected;
-
-    inspected = rb_str_new2("");
-    rb_grn_object_inspect_header(self, inspected);
-    rb_grn_object_inspect_content(self, inspected);
-    rb_grn_object_inspect_footer(self, inspected);
-
-    return inspected;
-}
-
-/*
- * Document-method: id
- *
- * call-seq:
- *   object.id -> ID/nil
- *
- * _object_のIDを返す。_object_が#closed?なときやIDがない場合
- * は+nil+を返す。
- */
-VALUE
-rb_grn_object_get_id (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-    grn_id id;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object->object)
-	return Qnil;
-
-    id = grn_obj_id(rb_grn_object->context, rb_grn_object->object);
-    if (id == GRN_ID_NIL)
-	return Qnil;
-    else
-        return UINT2NUM(id);
-}
-
-/*
- * Document-method: path
- *
- * call-seq:
- *   object.path -> ファイルパス/nil
- *
- * _object_に対応するファイルパスを返す。一時_object_
- * なら+nil+を返す。
- */
-static VALUE
-rb_grn_object_get_path (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-    const char *path;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object->object)
-	return Qnil;
-
-    path = grn_obj_path(rb_grn_object->context, rb_grn_object->object);
-
-    if (!path)
-	return Qnil;
-    else
-	return rb_str_new2(path);
-}
-
-/*
- * Document-method: temporary?
- *
- * call-seq:
- *   object.temporary? -> true/false
- *
- * _object_が一時オブジェクトなら+true+、永続オブジェクトな
- * ら+false+を返す。
- */
-static VALUE
-rb_grn_object_temporary_p (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object->object)
-	return Qnil;
-
-    return !(rb_grn_object->object->header.flags & GRN_OBJ_PERSISTENT);
-}
-
-/*
- * Document-method: persistent?
- *
- * call-seq:
- *   object.persistent? -> true/false
- *
- * _object_が永続オブジェクトなら+true+、一時オブジェクトな
- * ら+false+を返す。
- */
-static VALUE
-rb_grn_object_persistent_p (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object->object)
-	return Qnil;
-
-    return rb_grn_object->object->header.flags & GRN_OBJ_PERSISTENT;
-}
-
-/*
- * Document-method: domain
- *
- * call-seq:
- *   object.domain -> Groonga::Object/nil
- *
- * _object_の属しているGroonga::Objectを返す。例えば、
- * Groonga::ColumnはGroonga::Tableを返す。属している
- * Groonga::Objectがない場合は+nil+を返す。
- */
-static VALUE
-rb_grn_object_get_domain (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-    grn_ctx *context;
-    grn_obj *object;
-    grn_id domain;
-
-    rb_grn_object = SELF(self);
-    object = rb_grn_object->object;
-    if (!object)
-	return Qnil;
-
-    context = rb_grn_object->context;
-    domain = object->header.domain;
-    if (domain == GRN_ID_NIL) {
-	return Qnil;
-    } else {
-	grn_obj *domain_object;
-
-	domain_object = grn_ctx_at(context, domain);
-	if (domain_object)
-	    return GRNOBJECT2RVAL(Qnil, context, domain_object, RB_GRN_FALSE);
-	else
-	    return UINT2NUM(domain);
-    }
-}
-
-/*
- * Document-method: name
- *
- * call-seq:
- *   object.name -> 名前/nil
- *
- * _object_の名前を返す。無名オブジェクトの場合は+nil+を返す。
- */
-static VALUE
-rb_grn_object_get_name (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-    VALUE rb_name;
-    int name_size;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object->object)
-	return Qnil;
-
-    name_size = grn_obj_name(rb_grn_object->context, rb_grn_object->object,
-			     NULL, 0);
-    if (name_size == 0)
-	return Qnil;
-
-    rb_name = rb_str_buf_new(name_size);
-    rb_str_set_len(rb_name, name_size);
-    grn_obj_name(rb_grn_object->context, rb_grn_object->object,
-		 RSTRING_PTR(rb_name), name_size);
-    return rb_name;
-}
-
-/*
- * Document-method: range
- *
- * call-seq:
- *   object.range -> Groonga::Object/nil
- *
- * _object_の値がとりうる範囲を示したGroonga::Objectを返す。
- * 例えば、Groonga::Columnの場合は
- * Groonga::Table#define_columnで指定されたGroonga::Typeや
- * Groonga::Tableを返す。
- * 範囲が指定されていないオブジェクトの場合は+nil+を返す。
- */
-static VALUE
-rb_grn_object_get_range (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-    grn_ctx *context;
-    grn_obj *object;
-    grn_id range;
-
-    rb_grn_object = SELF(self);
-    object = rb_grn_object->object;
-    if (!object)
-	return Qnil;
-
-    context = rb_grn_object->context;
-    range = grn_obj_get_range(context, object);
-    if (range == GRN_ID_NIL) {
-	return Qnil;
-    } else {
-	grn_obj *range_object;
-
-	range_object = grn_ctx_at(context, range);
-	if (range_object)
-	    return GRNOBJECT2RVAL(Qnil, context, range_object, RB_GRN_FALSE);
-	else
-	    return UINT2NUM(range);
-    }
-}
-
-/*
- * Document-method: ==
- *
- * call-seq:
- *   object == other -> true/false
- *
- * _object_と_other_が同じgroongaのオブジェクトなら+true+を返
- * し、そうでなければ+false+を返す。
- */
-static VALUE
-rb_grn_object_equal (VALUE self, VALUE other)
-{
-    RbGrnObject *self_rb_grn_object, *other_rb_grn_object;
-
-    if (self == other)
-        return Qtrue;
-
-    if (!RVAL2CBOOL(rb_funcall(rb_obj_class(self), rb_intern("=="), 1,
-                               rb_obj_class(other))))
-        return Qfalse;
-
-    self_rb_grn_object = SELF(self);
-    other_rb_grn_object = SELF(other);
-
-    return self_rb_grn_object->object == other_rb_grn_object->object;
-}
-
-/*
- * Document-method: []
- *
- * call-seq:
- *   object[id] -> 値
- *
- * _object_の_id_に対応する値を返す。
- */
-VALUE
-rb_grn_object_array_reference (VALUE self, VALUE rb_id)
-{
-    VALUE exception;
-    RbGrnObject *rb_grn_object;
-    grn_id id, range_id;
-    grn_ctx *context;
-    grn_obj *object;
-    grn_obj *range;
-    unsigned char range_type;
-    grn_obj value;
-    VALUE rb_value = Qnil;
-
-    rb_grn_object = SELF(self);
-    context = rb_grn_object->context;
-    object = rb_grn_object->object;
-    if (!object)
-	return Qnil;
-
-    id = NUM2UINT(rb_id);
-    range_id = grn_obj_get_range(context, object);
-    range = grn_ctx_at(context, range_id);
-    range_type = range ? range->header.type : GRN_VOID;
-    switch (object->header.type) {
-      case GRN_TABLE_HASH_KEY:
-      case GRN_TABLE_PAT_KEY:
-      case GRN_TABLE_NO_KEY:
-	GRN_OBJ_INIT(&value, GRN_BULK, 0, GRN_ID_NIL);
-	break;
-      case GRN_TYPE:
-      case GRN_ACCESSOR: /* FIXME */
-	GRN_OBJ_INIT(&value, GRN_BULK, 0, range_id);
-	break;
-      case GRN_COLUMN_VAR_SIZE:
-      case GRN_COLUMN_FIX_SIZE:
-	switch (object->header.flags & GRN_OBJ_COLUMN_TYPE_MASK) {
-	  case GRN_OBJ_COLUMN_VECTOR:
-	    GRN_OBJ_INIT(&value, GRN_VECTOR, 0, range_id);
-	    break;
-	  case GRN_OBJ_COLUMN_SCALAR:
-	    GRN_OBJ_INIT(&value, GRN_BULK, 0, range_id);
-	    break;
-	  default:
-	    rb_raise(rb_eGrnError, "unsupported column type: %u: %s",
-		     range_type, rb_grn_inspect(self));
-	    break;
-	}
-	break;
-      case GRN_COLUMN_INDEX:
-	GRN_UINT32_INIT(&value, 0);
-	break;
-      default:
-	rb_raise(rb_eGrnError,
-		 "unsupported type: %s", rb_grn_inspect(self));
-	break;
-    }
-
-    grn_obj_get_value(context, object, id, &value);
-    exception = rb_grn_context_to_exception(context, self);
-    if (NIL_P(exception))
-	rb_value = GRNVALUE2RVAL(context, &value, range, self);
-    grn_obj_close(context, &value);
-    if (!NIL_P(exception))
-	rb_exc_raise(exception);
-
-    return rb_value;
-}
-
-static rb_grn_boolean
-rb_uvector_value_p (RbGrnObject *rb_grn_object, VALUE rb_value)
-{
-    VALUE first_element;
-
-    switch (rb_grn_object->range->header.type) {
-      case GRN_TYPE:
-	/* TODO: support not sizeof(grn_id) uvector. */
-	/*
-	if (!(rb_grn_object->range->header.flags | GRN_OBJ_KEY_VAR_SIZE)) {
-	    return RB_GRN_TRUE;
-	}
-	*/
-	break;
-      case GRN_TABLE_HASH_KEY:
-      case GRN_TABLE_PAT_KEY:
-      case GRN_TABLE_NO_KEY:
-      case GRN_TABLE_VIEW:
-	first_element = rb_ary_entry(rb_value, 0);
-	if (RVAL2CBOOL(rb_obj_is_kind_of(first_element, rb_cGrnRecord))) {
-	    return RB_GRN_TRUE;
-	}
-	break;
-      default:
-	break;
-    }
-
-    return RB_GRN_FALSE;
-}
-
-VALUE
-rb_grn_object_set_raw (RbGrnObject *rb_grn_object, grn_id id,
-		       VALUE rb_value, int flags, VALUE related_object)
-{
-    grn_ctx *context;
-    grn_obj value;
-    grn_rc rc;
-    VALUE exception;
-
-    context = rb_grn_object->context;
-    if (RVAL2CBOOL(rb_obj_is_kind_of(rb_value, rb_cArray))) {
-	if (rb_uvector_value_p(rb_grn_object, rb_value)) {
-	    GRN_OBJ_INIT(&value, GRN_UVECTOR, 0,
-			 rb_grn_object->object->header.domain);
-	    RVAL2GRNUVECTOR(rb_value, context, &value, related_object);
-	} else {
-	    GRN_OBJ_INIT(&value, GRN_VECTOR, 0, GRN_ID_NIL);
-	    RVAL2GRNVECTOR(rb_value, context, &value);
-	}
-    } else {
-	if (NIL_P(rb_value)) {
-	    GRN_OBJ_INIT(&value, GRN_BULK, 0, GRN_ID_NIL);
-	} else {
-	    GRN_OBJ_INIT(&value, GRN_BULK, 0, GRN_ID_NIL);
-	    RVAL2GRNBULK(rb_value, context, &value);
-	}
-    }
-    rc = grn_obj_set_value(context, rb_grn_object->object, id,
-			   &value, flags);
-    exception = rb_grn_context_to_exception(context, related_object);
-    grn_obj_close(context, &value);
-    if (!NIL_P(exception))
-	rb_exc_raise(exception);
-    rb_grn_rc_check(rc, related_object);
-
-    return Qnil;
-}
-
-static VALUE
-rb_grn_object_set (VALUE self, VALUE rb_id, VALUE rb_value, int flags)
-{
-    RbGrnObject *rb_grn_object;
-    grn_ctx *context;
-    grn_id id;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object->object)
-	return Qnil;
-
-    context = rb_grn_object->context;
-    id = NUM2UINT(rb_id);
-
-    return rb_grn_object_set_raw(rb_grn_object, id, rb_value, flags, self);
-}
-
-/*
- * Document-method: []=
- *
- * call-seq:
- *   object[id] = value
- *
- * _object_の_id_に対応する値を設定する。既存の値は上書きさ
- * れる。
- */
-static VALUE
-rb_grn_object_array_set (VALUE self, VALUE rb_id, VALUE rb_value)
-{
-    return rb_grn_object_set(self, rb_id, rb_value, GRN_OBJ_SET);
-}
-
-/*
- * Document-method: append
- *
- * call-seq:
- *   object.append(id, value)
- *
- * _object_の_id_に対応する値の最後に_value_を追加する。
- */
-static VALUE
-rb_grn_object_append_value (VALUE self, VALUE rb_id, VALUE rb_value)
-{
-    return rb_grn_object_set(self, rb_id, rb_value, GRN_OBJ_APPEND);
-}
-
-/*
- * Document-method: prepend
- *
- * call-seq:
- *   object.prepend(id, value)
- *
- * _object_の_id_に対応する値の最初に_value_を追加する。
- */
-static VALUE
-rb_grn_object_prepend_value (VALUE self, VALUE rb_id, VALUE rb_value)
-{
-    return rb_grn_object_set(self, rb_id, rb_value, GRN_OBJ_PREPEND);
-}
-
-/*
- * Document-method: remove
- *
- * call-seq:
- *   object.remove
- *
- * _object_をメモリから解放し、それが永続オブジェクトであっ
- * た場合は、該当するファイル一式を削除する。
- */
-static VALUE
-rb_grn_object_remove (VALUE self)
-{
-    RbGrnObject *rb_grn_object;
-    grn_ctx *context;
-    grn_rc rc;
-
-    rb_grn_object = SELF(self);
-    if (!rb_grn_object->object)
-	return Qnil;
-
-    context = rb_grn_object->context;
-    rc = grn_obj_remove(context, rb_grn_object->object);
-    rb_grn_rc_check(rc, self);
-
-    rb_iv_set(self, "@context", Qnil);
-
-    return Qnil;
-}
-
-void
-rb_grn_init_object (VALUE mGrn)
-{
-    rb_cGrnObject = rb_define_class_under(mGrn, "Object", rb_cObject);
-    rb_define_alloc_func(rb_cGrnObject, rb_grn_object_alloc);
-
-    rb_define_attr(rb_cGrnObject, "context", RB_GRN_TRUE, RB_GRN_FALSE);
-
-    rb_define_method(rb_cGrnObject, "inspect", rb_grn_object_inspect, 0);
-
-    rb_define_method(rb_cGrnObject, "id", rb_grn_object_get_id, 0);
-    rb_define_method(rb_cGrnObject, "domain", rb_grn_object_get_domain, 0);
-    rb_define_method(rb_cGrnObject, "name", rb_grn_object_get_name, 0);
-    rb_define_method(rb_cGrnObject, "range", rb_grn_object_get_range, 0);
-    rb_define_method(rb_cGrnObject, "path", rb_grn_object_get_path, 0);
-
-    rb_define_method(rb_cGrnObject, "temporary?", rb_grn_object_temporary_p, 0);
-    rb_define_method(rb_cGrnObject, "persistent?",
-		     rb_grn_object_persistent_p, 0);
-
-    rb_define_method(rb_cGrnObject, "==", rb_grn_object_equal, 1);
-
-    rb_define_method(rb_cGrnObject, "close", rb_grn_object_close, 0);
-    rb_define_method(rb_cGrnObject, "closed?", rb_grn_object_closed_p, 0);
-
-    rb_define_method(rb_cGrnObject, "[]", rb_grn_object_array_reference, 1);
-    rb_define_method(rb_cGrnObject, "[]=", rb_grn_object_array_set, 2);
-    rb_define_method(rb_cGrnObject, "append", rb_grn_object_append_value, 2);
-    rb_define_method(rb_cGrnObject, "prepend", rb_grn_object_prepend_value, 2);
-
-    rb_define_method(rb_cGrnObject, "remove", rb_grn_object_remove, 0);
-}