ruby-dev

とみたです。

Ruby の多言語化について [ruby-dev:11445] で作ったサンプルを
C で拡張ライブラリとして書き直してみました。

実装してるメソッドがまだほとんどないんですが、こんな感じで
使えます。

まつもとさんの意図するところと、そんなにズレてないんじゃないかと
思うんですが、どんなもんでしょ。

% gcc -I /usr/local/lib/ruby/1.6/i686-linux/ -fPIC -g -shared -o mbstring.so mbstring.c
% gcc -I /usr/local/lib/ruby/1.6/i686-linux/ -fPIC -g -shared -o eucjp.so eucjp.c ./mbstring.so
% gcc -I /usr/local/lib/ruby/1.6/i686-linux/ -fPIC -g -shared -o sjis.so sjis.c ./mbstring.so

% ruby -r./eucjp -e 'e=EucJp::new("あいうえお"); p e.length, e[1]'
5
42148

% ruby -r./eucjp -r./sjis -e 'e=EucJp::new("abc"); s=Sjis::new("abc"); p e == s'
false

---
とみたまさひろ <tommy@tmtm.org> http://www.tmtm.org
日本MySQLユーザ会 http://www.mysql.gr.jp

Attachments (4)

mbstring.c (2.04 KB, text/x-csrc)

#include "ruby.h"
#include "mbstring.h"

static struct mbstr_ctype** ctype_list = NULL;
static int n_ctype_list =  0;

VALUE	cMBString;

void mbstr_set_ctype(struct mbstr_ctype* p)
{
    REALLOC_N(ctype_list, struct mbstr_ctype*, n_ctype_list+1);
    ctype_list[n_ctype_list++] = p;
}

struct mbstr_ctype* get_mbstr_ctype(VALUE obj)
{
    int i;
    for (i = 0; i < n_ctype_list; i++) {
	if (ctype_list[i]->klass == RBASIC(obj)->klass)
	    return ctype_list[i];
    }
    rb_raise(rb_eArgError, "MBString: unknown class: %d", RBASIC(obj)->klass);
}

static VALUE length(VALUE obj)
{
    struct mbstr_ctype* p = get_mbstr_ctype(obj);
    char* ptr = RSTRING(obj)->ptr;
    char* e = ptr + RSTRING(obj)->len;
    int	i, c;

    for (i=0, c=0; i<RSTRING(obj)->len; c++)
	i += p->char_width(ptr+i, e);
    return INT2FIX(c);
}

static VALUE aref(int argc, VALUE *argv, VALUE obj)
{
    struct mbstr_ctype* p = get_mbstr_ctype(obj);
    char* ptr = RSTRING(obj)->ptr;
    int len = RSTRING(obj)->len;
    char* e = ptr + len;
    int ret = 0;
    int idx;
    int i, c, l;

    if (argc != 1 || TYPE(argv[0]) != T_FIXNUM)
	rb_raise(rb_eArgError, "not implemented");
    idx = FIX2LONG(argv[0]);
    for (i=0, c=0; i<len && c<idx; c++)
	i += p->char_width(ptr+i, e);
    if (i >= len)
	return Qnil;
    for (l=p->char_width(ptr+i, e); l>0; l--)
	ret = ret * 256 + (unsigned char)ptr[i++];
    return INT2FIX(ret);
}

static VALUE equal(VALUE obj, VALUE arg)
{
    if (RBASIC(obj)->klass != RBASIC(arg)->klass)
	return Qfalse;
    if (RSTRING(obj)->len != RSTRING(arg)->len)
	return Qfalse;
    if (memcmp(RSTRING(obj)->ptr, RSTRING(arg)->ptr, RSTRING(obj)->len) != 0)
	return Qfalse;
    return Qtrue;
}

void Init_mbstring(void)
{
    cMBString = rb_define_class("MBString", rb_cString);
    rb_define_method(cMBString, "==", equal, 1);
    rb_define_method(cMBString, "===", equal, 1);
    rb_define_method(cMBString, "eql?", equal, 1);
    rb_define_method(cMBString, "length", length, 0);
    rb_define_method(cMBString, "size", length, 0);
    rb_define_method(cMBString, "[]", aref, -1);
}

mbstring.h (122 Bytes, text/x-c++hdr)

struct mbstr_ctype {
    VALUE	klass;
    int		(*char_width)(unsigned char*, unsigned char*);
};

extern VALUE cMBString;

eucjp.c (524 Bytes, text/x-csrc)

#include "ruby.h"
#include "mbstring.h"

VALUE cEucJp;

static struct mbstr_ctype eucjp_ctype;

static int char_width(unsigned char* ptr, unsigned char* e)
{
    return *ptr < 0x80 ? 1 :
	0xa1 <= *ptr && *ptr <= 0xfe && e-ptr >= 2 ? 2 :
	*ptr == 0x8e && e-ptr >= 2 ? 2 :
	*ptr == 0x8f && e-ptr >= 3 ? 3 :
	1;
}

void Init_eucjp(void)
{
    rb_require("mbstring");
    cEucJp = rb_define_class("EucJp", cMBString);
    eucjp_ctype.klass = cEucJp;
    eucjp_ctype.char_width = char_width;
    mbstr_set_ctype(&eucjp_ctype);
}

sjis.c (447 Bytes, text/x-csrc)

#include "ruby.h"
#include "mbstring.h"

VALUE cSjis;

static struct mbstr_ctype sjis_ctype;

static int char_width(unsigned char* ptr, unsigned char* e)
{
    return *ptr <= 0x80 || 0xa0 <= *ptr && *ptr <= 0xdf ? 1 :
	e-ptr >=2 ? 2 :
	1;
}

void Init_sjis(void)
{
    rb_require("mbstring");
    cSjis = rb_define_class("Sjis", cMBString);
    sjis_ctype.klass = cSjis;
    sjis_ctype.char_width = char_width;
    mbstr_set_ctype(&sjis_ctype);
}

Thread

Prev Next

In This Thread

Prev Next