groonga 0.9.1 → 1.0.0

data/ext/rb-grn-expression-builder.c

@@ -1,75 +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"
-
-VALUE rb_cGrnRecordExpressionBuilder;
-VALUE rb_cGrnColumnExpressionBuilder;
-
-VALUE
-rb_grn_record_expression_builder_new (VALUE table, VALUE name)
-{
-    return rb_funcall(rb_cGrnRecordExpressionBuilder,
-		      rb_intern("new"), 2, table, name);
-}
-
-VALUE
-rb_grn_column_expression_builder_new (VALUE column, VALUE name, VALUE query)
-{
-    return rb_funcall(rb_cGrnColumnExpressionBuilder,
-		      rb_intern("new"), 3, column, name, query);
-}
-
-static VALUE
-build (VALUE self)
-{
-    return rb_funcall(self, rb_intern("build"), 0);
-}
-
-static VALUE
-build_block (VALUE self)
-{
-    return rb_funcall(rb_block_proc(), rb_intern("call"), 1, self);
-}
-
-VALUE
-rb_grn_record_expression_builder_build (VALUE self)
-{
-    if (rb_block_given_p())
-	return rb_iterate(build, self, build_block, self);
-    else
-	return build(self);
-}
-
-VALUE
-rb_grn_column_expression_builder_build (VALUE self)
-{
-    if (rb_block_given_p())
-	return rb_iterate(build, self, build_block, self);
-    else
-	return build(self);
-}
-
-void
-rb_grn_init_expression_builder (VALUE mGrn)
-{
-    rb_cGrnRecordExpressionBuilder =
-        rb_const_get(mGrn, rb_intern("RecordExpressionBuilder"));
-    rb_cGrnColumnExpressionBuilder =
-        rb_const_get(mGrn, rb_intern("ColumnExpressionBuilder"));
-}

data/ext/rb-grn-expression.c

@@ -1,732 +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"
-
-#define SELF(object) ((RbGrnExpression *)DATA_PTR(object))
-
-VALUE rb_cGrnExpression;
-
-/*
- * Document-class: Groonga::Expression < Groonga::Object
- *
- * 検索条件やデータベースへの操作を表現するオブジェクト。
- *
- */
-
-void
-rb_grn_expression_finalizer (grn_ctx *context, grn_obj *object,
-			     RbGrnExpression *rb_grn_expression)
-{
-    if (context && rb_grn_expression->value)
-	grn_obj_close(context, rb_grn_expression->value);
-
-    rb_grn_expression->value = NULL;
-}
-
-void
-rb_grn_expression_bind (RbGrnExpression *rb_grn_expression,
-                        grn_ctx *context, grn_obj *expression)
-{
-    RbGrnObject *rb_grn_object;
-
-    rb_grn_object = RB_GRN_OBJECT(rb_grn_expression);
-
-    rb_grn_expression->value = grn_obj_open(context, GRN_BULK, 0,
-                                            rb_grn_object->range_id);
-}
-
-void
-rb_grn_expression_deconstruct (RbGrnExpression *rb_grn_expression,
-                               grn_obj **expression,
-                               grn_ctx **context,
-                               grn_id *domain_id,
-                               grn_obj **domain,
-			       grn_obj **value,
-                               grn_id *range_id,
-                               grn_obj **range)
-{
-    RbGrnObject *rb_grn_object;
-
-    rb_grn_object = RB_GRN_OBJECT(rb_grn_expression);
-    rb_grn_object_deconstruct(rb_grn_object, expression, context,
-			      domain_id, domain,
-			      range_id, range);
-
-    if (value)
-	*value = rb_grn_expression->value;
-}
-
-static VALUE
-rb_grn_expression_initialize (int argc, VALUE *argv, VALUE self)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression;
-    VALUE options, rb_context, rb_name;
-    char *name = NULL;
-    unsigned name_size = 0;
-
-    rb_scan_args(argc, argv, "01", &options);
-    rb_grn_scan_options(options,
-                        "context", &rb_context,
-                        "name", &rb_name,
-                        NULL);
-
-    context = rb_grn_context_ensure(&rb_context);
-
-    if (!NIL_P(rb_name)) {
-	name = StringValuePtr(rb_name);
-	name_size = RSTRING_LEN(rb_name);
-    }
-
-    expression = grn_expr_create(context, name, name_size);
-    rb_grn_object_assign(Qnil, self, rb_context, context, expression);
-    rb_grn_context_check(context, self);
-
-    return Qnil;
-}
-
-/*
- * call-seq:
- *   expression.define_variable(options={}) -> Groonga::Variable
- *
- * _expression_で使用可能な変数を作成する。
- *
- * _options_に指定可能な値は以下の通り。
- *
- * [+:name+]
- *   変数の名前。省略した場合は名前を付けない。
- *
- * [+:domain+]
- *   テーブルを指定すると、そのテーブル用のレコードとして初期化する。
- */
-static VALUE
-rb_grn_expression_define_variable (int argc, VALUE *argv, VALUE self)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression, *variable;
-    char *name = NULL;
-    unsigned name_size = 0;
-    VALUE options, rb_name, rb_domain, rb_variable;
-
-    rb_scan_args(argc, argv, "01", &options);
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    rb_grn_scan_options(options,
-			"name", &rb_name,
-			"domain", &rb_domain,
-			NULL);
-
-    if (!NIL_P(rb_name)) {
-	name = StringValuePtr(rb_name);
-	name_size = RSTRING_LEN(rb_name);
-    }
-
-    variable = grn_expr_add_var(context, expression, name, name_size);
-    rb_variable = GRNVARIABLE2RVAL(context, variable);
-
-    if (RVAL2CBOOL(rb_obj_is_kind_of(rb_domain, rb_cGrnTable))) {
-	grn_id domain_id;
-	domain_id = NUM2UINT(rb_funcall(rb_domain, rb_intern("id"), 0));
-	GRN_RECORD_INIT(variable, 0, domain_id);
-    }
-
-    return rb_variable;
-}
-
-/*
- * call-seq:
- *   expression.append_object(object,
- *                            operation=Groonga::Operation::PUSH,
- *                            n_arguments=1) -> self
- *
- * _object_を追加し、_n_arguments_個の引数を取る_operation_を追加する。
- */
-static VALUE
-rb_grn_expression_append_object (int argc, VALUE *argv, VALUE self)
-{
-    VALUE rb_object, rb_operation, rb_n_arguments;
-    grn_ctx *context = NULL;
-    grn_obj *expression, *object;
-    grn_operator operation = GRN_OP_PUSH;
-    int n_arguments = 1;
-
-    rb_scan_args(argc, argv, "12", &rb_object, &rb_operation, &rb_n_arguments);
-    if (!NIL_P(rb_operation))
-        operation = NUM2INT(rb_operation);
-    if (!NIL_P(rb_n_arguments))
-        n_arguments = NUM2INT(rb_n_arguments);
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    object = RVAL2GRNOBJECT(rb_object, &context);
-    grn_expr_append_obj(context, expression, object,
-                        operation, n_arguments);
-    rb_grn_context_check(context, self);
-    return self;
-}
-
-/*
- * call-seq:
- *   expression.append_constant(constant,
- *                              operation=Groonga::Operation::PUSH,
- *                              n_arguments=1) -> self
- *
- * _constant_を追加し、_n_arguments_個の引数を取る_operation_を追加する。
- */
-static VALUE
-rb_grn_expression_append_constant (int argc, VALUE *argv, VALUE self)
-{
-    VALUE rb_constant, rb_operator, rb_n_arguments;
-    VALUE exception;
-    grn_ctx *context = NULL;
-    grn_obj *expression, *constant = NULL;
-    grn_operator operator = GRN_OP_PUSH;
-    int n_arguments = 1;
-
-    rb_scan_args(argc, argv, "12", &rb_constant, &rb_operator, &rb_n_arguments);
-    if (!NIL_P(rb_operator))
-        operator = NUM2INT(rb_operator);
-    if (!NIL_P(rb_n_arguments))
-        n_arguments = NUM2INT(rb_n_arguments);
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL, NULL,
-				  NULL, NULL);
-
-    RVAL2GRNOBJ(rb_constant, context, &constant);
-    grn_expr_append_const(context, expression, constant, operator, n_arguments);
-
-    exception = rb_grn_context_to_exception(context, self);
-    grn_obj_close(context, constant);
-    if (!NIL_P(exception))
-	rb_exc_raise(exception);
-
-    return self;
-}
-
-/*
- * call-seq:
- *   expression.append_operation(operation, n_arguments)
- *
- * _n_arguments_個の引数を取る_operation_を追加する。
- */
-static VALUE
-rb_grn_expression_append_operation (VALUE self, VALUE rb_operation,
-				    VALUE rb_n_arguments)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression;
-    grn_operator operation;
-    int n_arguments = 0;
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    operation = NUM2INT(rb_operation);
-    n_arguments = NUM2INT(rb_n_arguments);
-    grn_expr_append_op(context, expression, operation, n_arguments);
-    rb_grn_context_check(context, self);
-    return Qnil;
-}
-
-/*
- * call-seq:
- *   expression.parse(query, options={})
- *
- * 文字列_query_をパースする。
- *
- * _options_に指定可能な値は以下の通り。
- *
- * [+:default_column+]
- *   "column_name:hoge"ではなく"hoge"のようにcolumn_nameが指
- *   定されない条件の検索対象となるカラムを指定する。
- *
- * [+:default_operator+]
- *   "+"や"OR"で繋がれず、ただ列挙された複数の条件があった時、
- *   _expression_全体として各レコードをヒットとみなすかの論理
- *   条件を指定する。省略した場合はGroonga::Operation::AND。
- *
- *   [Groonga::Operation::OR]
- *     レコードはいずれかの条件にマッチすればいい。
- *   [Groonga::Operation::AND]
- *     レコードは全ての条件にマッチしなければならない。
- *   [Groonga::Operation::BUT]
- *     最初の条件にレコードはマッチし、残りの条件にレコードは
- *     マッチしてはならない。
- *
- * [+:default_mode+]
- *   検索時のモードを指定する。省略した場合は
- *   Groonga::Operation::MATCH。（FIXME: モードによってどう
- *   いう動作になるかを書く。）
- *
- * [+:syntax+]
- *   _query_の構文を指定する。指定可能な値は以下の通り。省略
- *   した場合は+:query+。
- *
- *   [+nil+]
- *     +:query+と同様。
- *   [+:query+]
- *     「文字列1 OR 文字列2」で「"文字列1"あるいは"文字列2"
- *     にマッチという検索エンジンで利用できるような構文を使
- *     う。
- *
- *     参考: grn式のquery形式（link:text/expression_rdoc.html）
- *   [+:script+]
- *     「[カラム名] == [値]」というようにECMAScript風の構文
- *     を使う。
- *
- *     参考: grn式のscript形式（link:text/expression_rdoc.html）
- *
- * [+:allow_pragma+]
- *   _query_の構文にqueryを用いているとき（+:syntax+オプショ
- *   ン参照）、「*E-1」というようにクエリの先頭でpragmaを利
- *   用できるようにする。script構文を用いているときはこのオ
- *   プションを利用できない。
- *
- *   デフォルトではプラグマを利用できる。
- *
- *   参考: grn式のquery形式（link:text/expression_rdoc.html）
- *
- * [+:allow_column+]
- *   _query_の構文にqueryを用いているとき（+:syntax+オプショ
- *   ン参照）、「カラム名:値」というようにカラム名を指定した
- *   条件式を利用できるようにする。script構文を用いていると
- *   きはこのオプションを利用できない。
- *
- *   デフォルトではカラム名を指定した条件式を利用できる。
- *
- *   参考: grn式のquery形式（link:text/expression_rdoc.html）
- *
- * [+:allow_update+]
- *   _query_の構文にscriptを用いているとき（+:syntax+オプショ
- *   ン参照）、「カラム名 = 値」というように更新操作を利用で
- *   きるようにする。query構文を用いているときはこのオプショ
- *   ンを利用できない。
- *
- *   デフォルトでは更新操作を利用できる。
- *
- *   参考: grn式のscript形式（link:text/expression_rdoc.html）
- */
-static VALUE
-rb_grn_expression_parse (int argc, VALUE *argv, VALUE self)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression, *default_column = NULL;
-    grn_operator default_operator = GRN_OP_AND;
-    grn_operator default_mode = GRN_OP_MATCH;
-    grn_rc rc;
-    char *query = NULL;
-    unsigned query_size = 0;
-    grn_expr_flags flags = 0;
-    VALUE options, rb_query, rb_default_column, rb_default_operator;
-    VALUE rb_default_mode, rb_syntax;
-    VALUE rb_allow_pragma, rb_allow_column, rb_allow_update;
-    VALUE exception = Qnil;
-
-    rb_scan_args(argc, argv, "11", &rb_query, &options);
-    rb_grn_scan_options(options,
-                        "default_column", &rb_default_column,
-                        "default_operator", &rb_default_operator,
-                        "default_mode", &rb_default_mode,
-			"syntax", &rb_syntax,
-			"allow_pragma", &rb_allow_pragma,
-			"allow_column", &rb_allow_column,
-			"allow_update", &rb_allow_update,
-                        NULL);
-
-    query = StringValuePtr(rb_query);
-    query_size = RSTRING_LEN(rb_query);
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    default_column = RVAL2GRNBULK(rb_default_column, context, default_column);
-    if (!NIL_P(rb_default_mode))
-	default_mode = RVAL2GRNOPERATOR(rb_default_mode);
-    if (!NIL_P(rb_default_operator))
-	default_operator = RVAL2GRNOPERATOR(rb_default_operator);
-
-    if (NIL_P(rb_syntax) ||
-	rb_grn_equal_option(rb_syntax, "query")) {
-	flags = GRN_EXPR_SYNTAX_QUERY;
-    } else if (rb_grn_equal_option(rb_syntax, "script")) {
-	flags = GRN_EXPR_SYNTAX_SCRIPT;
-    } else {
-	rb_raise(rb_eArgError,
-		 "syntax should be one of "
-		 "[nil, :query, :script]: %s",
-		 rb_grn_inspect(rb_syntax));
-    }
-
-    if (NIL_P(rb_allow_pragma)) {
-	if ((flags & GRN_EXPR_SYNTAX_QUERY) == GRN_EXPR_SYNTAX_QUERY)
-	    flags |= GRN_EXPR_ALLOW_PRAGMA;
-    } else {
-	if ((flags & GRN_EXPR_SYNTAX_SCRIPT) == GRN_EXPR_SYNTAX_SCRIPT)
-	    rb_raise(rb_eArgError,
-		 ":allow_pragma isn't allowed in script syntax");
-	if (RVAL2CBOOL(rb_allow_pragma))
-	    flags |= GRN_EXPR_ALLOW_PRAGMA;
-    }
-
-    if (NIL_P(rb_allow_column)) {
-	if ((flags & GRN_EXPR_SYNTAX_QUERY) == GRN_EXPR_SYNTAX_QUERY)
-	    flags |= GRN_EXPR_ALLOW_COLUMN;
-    } else {
-	if ((flags & GRN_EXPR_SYNTAX_SCRIPT) == GRN_EXPR_SYNTAX_SCRIPT)
-	    rb_raise(rb_eArgError,
-		     ":allow_column isn't allowed in script syntax");
-	if (RVAL2CBOOL(rb_allow_column))
-	    flags |= GRN_EXPR_ALLOW_COLUMN;
-    }
-
-    if (NIL_P(rb_allow_update)) {
-	if ((flags & GRN_EXPR_SYNTAX_SCRIPT) == GRN_EXPR_SYNTAX_SCRIPT)
-	    flags |= GRN_EXPR_ALLOW_UPDATE;
-    } else {
-	if ((flags & GRN_EXPR_SYNTAX_QUERY) == GRN_EXPR_SYNTAX_QUERY)
-	    rb_raise(rb_eArgError,
-		     ":allow_update isn't allowed in query syntax");
-	if (RVAL2CBOOL(rb_allow_update))
-	    flags |= GRN_EXPR_ALLOW_UPDATE;
-    }
-
-    rc = grn_expr_parse(context, expression, query, query_size,
-			default_column, default_mode, default_operator,
-			flags);
-    if (rc != GRN_SUCCESS) {
-	VALUE related_object;
-
-	related_object = rb_ary_new3(2, self, rb_ary_new4(argc, argv));
-	exception = rb_grn_context_to_exception(context, related_object);
-    }
-    grn_obj_close(context, default_column);
-
-    if (!NIL_P(exception))
-	rb_exc_raise(exception);
-
-    return Qnil;
-}
-
-/*
- * call-seq:
- *   expression.execute
- *
- * _expression_を実行する。
- */
-static VALUE
-rb_grn_expression_execute (VALUE self)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression;
-    grn_rc rc;
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    rc = grn_expr_exec(context, expression, 0);
-    rb_grn_context_check(context, self);
-    rb_grn_rc_check(rc, self);
-
-    return Qnil;
-}
-
-/*
- * call-seq:
- *   expression.compile
- *
- * _expression_をコンパイルする。
- */
-static VALUE
-rb_grn_expression_compile (VALUE self)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression;
-    grn_rc rc;
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    rc = grn_expr_compile(context, expression);
-    rb_grn_context_check(context, self);
-    rb_grn_rc_check(rc, self);
-
-    return Qnil;
-}
-
-/*
- * call-seq:
- *   expression[name] -> 変数の値
- *   expression[offset] -> 変数の値
- *
- * _expression_で使用可能な変数のうち、名前が_name_または
- * _offset_番目にExpression#append_objectされた変数の値を返
- * す。
- */
-static VALUE
-rb_grn_expression_array_reference (VALUE self, VALUE rb_name_or_offset)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression, *variable, *value;
-    char *name = NULL;
-    unsigned name_size = 0;
-    int offset;
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    switch (TYPE(rb_name_or_offset)) {
-    case T_STRING:
-        name = RSTRING_PTR(rb_name_or_offset);
-        name_size = RSTRING_LEN(rb_name_or_offset);
-        variable = grn_expr_get_var(context, expression, name, name_size);
-        return GRNBULK2RVAL(context, variable, NULL, self);
-        break;
-    case T_FIXNUM:
-        offset = NUM2INT(rb_name_or_offset);
-        value = grn_expr_get_var_by_offset(context, expression, offset);
-        return GRNBULK2RVAL(context, value, NULL, self);
-        break;
-    default:
-        rb_raise(rb_eArgError, "xxx");
-        break;
-    }
-
-    return Qnil;
-}
-
-/* REMOVE ME */
-grn_rc grn_expr_inspect(grn_ctx *ctx, grn_obj *buf, grn_obj *expr);
-
-/*
- * call-seq:
- *   _expression_.inspect -> String
- *
- * _expression_の中身を人に見やすい文字列で返す。
- */
-static VALUE
-rb_grn_expression_inspect (VALUE self)
-{
-    grn_rc rc;
-    grn_ctx *context = NULL;
-    grn_obj inspected;
-    grn_obj *expression;
-    VALUE rb_inspected;
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    GRN_TEXT_INIT(&inspected, 0);
-    GRN_TEXT_PUTS(context, &inspected, "#<Groonga::Expression ");
-    rc = grn_expr_inspect(context, &inspected, expression);
-    GRN_TEXT_PUTS(context, &inspected, ">");
-    rb_inspected = rb_str_new(GRN_TEXT_VALUE(&inspected),
-			      GRN_TEXT_LEN(&inspected));
-    GRN_OBJ_FIN(context, &inspected);
-
-    return rb_inspected;
-}
-
-/*
- * call-seq:
- *   expression.snippet(tags, options) -> Groonga::Snippet
- *
- * _expression_からGroonga::Snippetを生成する。_tags_にはキー
- * ワードの前後に挿入するタグの配列を以下のような形式で指定
- * する。
- *
- *   [
- *    ["キーワード前に挿入する文字列1", "キーワード後に挿入する文字列1"],
- *    ["キーワード前に挿入する文字列2", "キーワード後に挿入する文字列2"],
- *    ...,
- *   ]
- *
- * もし、1つのスニペットの中に_tags_で指定したタグより多くの
- * キーワードが含まれている場合は、以下のように、また、先頭
- * のタグから順番に使われる。
- *
- *   expression.parse("Ruby groonga 検索")
- *   tags = [["<tag1>", "</tag1>"], ["<tag2>", "</tag2>"]]
- *   snippet = expression.snippet(tags)
- *   p snippet.execute("Rubyでgroonga使って全文検索、高速検索。")
- *     # => ["<tag1>Ruby</tag1>で<tag2>groonga</tag2>"
- *     #     "使って全文<tag1>検索</tag1>、高速<tag2>検索</tag2>。"]
- *
- * _options_に指定可能な値は以下の通り。
- *
- * [+:normalize+]
- *   キーワード文字列・スニペット元の文字列を正規化するかど
- *   うか。省略した場合は+false+で正規化しない。
- *
- * [+:skip_leading_spaces+]
- *   先頭の空白を無視するかどうか。省略した場合は+false+で無
- *   視しない。
- *
- * [+:width+]
- *   スニペット文字列の長さ。省略した場合は100文字。
- *
- * [+:max_results+]
- *   生成するスニペットの最大数。省略した場合は3。
- *
- * [+:html_escape+]
- *   スニペット内の+<+, +>+, +&+, +"+をHTMLエスケープするか
- *   どうか。省略した場合は+false+で、HTMLエスケープしない。
- */
-static VALUE
-rb_grn_expression_snippet (int argc, VALUE *argv, VALUE self)
-{
-    grn_ctx *context = NULL;
-    grn_obj *expression;
-    grn_snip *snippet;
-    VALUE options;
-    VALUE rb_normalize, rb_skip_leading_spaces;
-    VALUE rb_width, rb_max_results, rb_tags;
-    VALUE rb_html_escape;
-    VALUE *rb_tag_values;
-    unsigned int i;
-    int flags = GRN_SNIP_COPY_TAG;
-    unsigned int width = 100;
-    unsigned int max_results = 3;
-    unsigned int n_tags = 0;
-    char **open_tags = NULL;
-    unsigned int *open_tag_lengths = NULL;
-    char **close_tags = NULL;
-    unsigned int *close_tag_lengths = NULL;
-    grn_snip_mapping *mapping = NULL;
-
-    rb_grn_expression_deconstruct(SELF(self), &expression, &context,
-                                  NULL, NULL,
-                                  NULL, NULL, NULL);
-
-    rb_scan_args(argc, argv, "11", &rb_tags, &options);
-
-    rb_grn_scan_options(options,
-                        "normalize", &rb_normalize,
-                        "skip_leading_spaces", &rb_skip_leading_spaces,
-                        "width", &rb_width,
-                        "max_results", &rb_max_results,
-                        "html_escape", &rb_html_escape,
-                        NULL);
-
-    if (TYPE(rb_tags) != T_ARRAY) {
-	rb_raise(rb_eArgError,
-		 "tags should be "
-		 "[\"open_tag\", \"close_tag\"] or"
-		 "[[\"open_tag1\", \"close_tag1\"], ...]: %s",
-		 rb_grn_inspect(rb_tags));
-    }
-
-    if (TYPE(RARRAY_PTR(rb_tags)[0]) == T_STRING) {
-	rb_tags = rb_ary_new3(1, rb_tags);
-    }
-
-    rb_tag_values = RARRAY_PTR(rb_tags);
-    n_tags = RARRAY_LEN(rb_tags);
-    open_tags = ALLOCA_N(char *, n_tags);
-    open_tag_lengths = ALLOCA_N(unsigned int, n_tags);
-    close_tags = ALLOCA_N(char *, n_tags);
-    close_tag_lengths = ALLOCA_N(unsigned int, n_tags);
-    for (i = 0; i < n_tags; i++) {
-	VALUE *tag_pair;
-
-	if (TYPE(rb_tag_values[i]) != T_ARRAY ||
-	    RARRAY_LEN(rb_tag_values[i]) != 2) {
-	    rb_raise(rb_eArgError,
-		     "tags should be "
-		     "[\"open_tag\", \"close_tag\"] or"
-		     "[[\"open_tag1\", \"close_tag1\"], ...]: %s",
-		     rb_grn_inspect(rb_tags));
-	}
-	tag_pair = RARRAY_PTR(rb_tag_values[i]);
-	open_tags[i] = StringValuePtr(tag_pair[0]);
-	open_tag_lengths[i] = RSTRING_LEN(tag_pair[0]);
-	close_tags[i] = StringValuePtr(tag_pair[1]);
-	close_tag_lengths[i] = RSTRING_LEN(tag_pair[1]);
-    }
-
-    if (RVAL2CBOOL(rb_normalize))
-        flags |= GRN_SNIP_NORMALIZE;
-    if (RVAL2CBOOL(rb_skip_leading_spaces))
-        flags |= GRN_SNIP_SKIP_LEADING_SPACES;
-
-    if (!NIL_P(rb_width))
-        width = NUM2UINT(rb_width);
-
-    if (!NIL_P(rb_max_results))
-        max_results = NUM2UINT(rb_max_results);
-
-    if (RVAL2CBOOL(rb_html_escape))
-        mapping = (grn_snip_mapping *)-1;
-
-    snippet = grn_expr_snip(context, expression, flags, width, max_results,
-			    n_tags,
-                            (const char **)open_tags, open_tag_lengths,
-                            (const char **)close_tags, close_tag_lengths,
-                            mapping);
-    rb_grn_context_check(context,
-			 rb_ary_new3(2, self, rb_ary_new4(argc, argv)));
-
-    return GRNSNIPPET2RVAL(context, snippet, RB_GRN_TRUE);
-}
-
-void
-rb_grn_init_expression (VALUE mGrn)
-{
-    rb_cGrnExpression = rb_define_class_under(mGrn, "Expression", rb_cGrnObject);
-
-    rb_define_method(rb_cGrnExpression, "initialize",
-                     rb_grn_expression_initialize, -1);
-
-    rb_define_method(rb_cGrnExpression, "define_variable",
-                     rb_grn_expression_define_variable, -1);
-    rb_define_method(rb_cGrnExpression, "append_object",
-                     rb_grn_expression_append_object, -1);
-    rb_define_method(rb_cGrnExpression, "append_constant",
-                     rb_grn_expression_append_constant, -1);
-    rb_define_method(rb_cGrnExpression, "append_operation",
-                     rb_grn_expression_append_operation, 2);
-
-    rb_define_method(rb_cGrnExpression, "parse",
-                     rb_grn_expression_parse, -1);
-
-    rb_define_method(rb_cGrnExpression, "execute",
-                     rb_grn_expression_execute, 0);
-    rb_define_method(rb_cGrnExpression, "compile",
-                     rb_grn_expression_compile, 0);
-
-    rb_define_method(rb_cGrnExpression, "[]",
-                     rb_grn_expression_array_reference, 1);
-
-    rb_define_method(rb_cGrnExpression, "snippet",
-                     rb_grn_expression_snippet, -1);
-
-    rb_define_method(rb_cGrnExpression, "inspect",
-                     rb_grn_expression_inspect, 0);
-}