From cf943041cc2229cbe91bd036525c47e741219730 Mon Sep 17 00:00:00 2001 From: naruse Date: Tue, 9 Nov 2004 13:24:07 +0000 Subject: * fix bug arround parse options * add versioning constants git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7234 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/nkf/nkf.c | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/ext/nkf/nkf.c b/ext/nkf/nkf.c index 6517b3aba1..849ab52fac 100644 --- a/ext/nkf/nkf.c +++ b/ext/nkf/nkf.c @@ -1,11 +1,14 @@ /* * NKF Module for Ruby base on nkf 2.x * - * original nkf2.0 is maintained at http://sourceforge.jp/projects/nkf/ + * original nkf2.x is maintained at http://sourceforge.jp/projects/nkf/ + * + * $Id$ * */ -static char *RVersion = "2.0.4.1r1"; +#define RUBY_NKF_REVISION "$Revision$" +#define RUBY_NKF_DATETIME __DATE__ " " __TIME__ #include "ruby.h" @@ -71,6 +74,7 @@ rb_nkf_putchar(c) /* getchar and putchar will be replaced during inclusion */ #define PERL_XS 1 +#include "nkf-utf8/config.h" #include "nkf-utf8/utf8tbl.c" #include "nkf-utf8/nkf.c" @@ -85,12 +89,7 @@ rb_nkf_kconv(obj, opt, src) StringValue(opt); opt_ptr = RSTRING(opt)->ptr; opt_end = opt_ptr + RSTRING(opt)->len; - for (; opt_ptr < opt_end; opt_ptr++) { - if (*opt_ptr != '-') { - continue; - } - options(opt_ptr); - } + options(opt_ptr); incsize = INCSIZE; @@ -285,5 +284,9 @@ Init_nkf() rb_define_const(mKconv, "UTF16", INT2FIX(_UTF16)); rb_define_const(mKconv, "UTF32", INT2FIX(_UTF32)); rb_define_const(mKconv, "UNKNOWN", INT2FIX(_UNKNOWN)); - rb_define_const(mKconv, "VERSION", rb_str_new2(RVersion)); + /* for debug */ + rb_define_const(mKconv, "REVISION", rb_str_new2(RUBY_NKF_REVISION)); + rb_define_const(mKconv, "DATETIME", rb_str_new2(RUBY_NKF_DATETIME)); + rb_define_const(mKconv, "NKF_VERSION", rb_str_new2(NKF_VERSION)); + rb_define_const(mKconv, "NKF_RELEASE_DATE", rb_str_new2(NKF_RELEASE_DATE)); } -- cgit v1.2.3