* ext/iconv/iconv.c (map_charset): use lower case keys.

* ext/iconv/iconv.c (iconv_fail): just yield error and return the
  result if a block is given.

* ext/iconv/iconv.c (iconv_convert): yield error and append the
  result if a block is given.

* ext/iconv/charset_alias.rb (charset_alias): optional third
  argument.

* ext/iconv/charset_alias.rb (charset_alias): use CP932 instead of
  SHIFT_JIS on cygwin.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4476 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 33 insertions, 7 deletions

diff --git a/ext/iconv/iconv.c b/ext/iconv/iconv.c
index cbb89dca48..b15332e386 100644
--- a/ext/iconv/iconv.c
+++ b/ext/iconv/iconv.c
@@ -59,6 +59,7 @@ static VALUE rb_eIconvOutOfRange;
 static ID rb_inserter;
 
 static ID rb_success, rb_failed, rb_mesg;
+static VALUE iconv_fail _((VALUE error, VALUE success, VALUE failed, struct iconv_env_t* env));
 static VALUE iconv_failure_initialize _((VALUE error, VALUE success, VALUE failed, struct iconv_env_t* env));
 static VALUE iconv_failure_success _((VALUE self));
 static VALUE iconv_failure_failed _((VALUE self));
@@ -108,13 +109,17 @@ map_charset
 {
     VALUE val = *code;
 
-    StringValuePtr(val);
     if (RHASH(charset_map)->tbl && RHASH(charset_map)->tbl->num_entries) {
+	val = rb_funcall2(val, rb_intern("downcase"), 0, 0);
+	StringValuePtr(val);
 	if (st_lookup(RHASH(charset_map)->tbl, val, &val)) {
 	    StringValuePtr(val);
 	    *code = val;
 	}
     }
+    else {
+	StringValuePtr(val);
+    }
     return RSTRING(val)->ptr;
 }
 
@@ -231,9 +236,6 @@ iconv_try
     return Qfalse;
 }
 
-#define iconv_fail(error, success, failed, env) \
-	rb_exc_raise(iconv_failure_initialize(error, success, failed, env))
-
 #define FAILED_MAXLEN 16
 
 static VALUE
@@ -271,6 +273,21 @@ iconv_failure_initialize
 }
 
 static VALUE
+iconv_fail
+#ifdef HAVE_PROTOTYPES
+    (VALUE error, VALUE success, VALUE failed, struct iconv_env_t* env)
+#else /* HAVE_PROTOTYPES */
+    (error, success, failed, env)
+    VALUE error, success, failed;
+    struct iconv_env_t *env;
+#endif /* HAVE_PROTOTYPES */
+{
+    error = iconv_failure_initialize(error, success, failed, env);
+    if (!rb_block_given_p()) rb_exc_raise(error);
+    return rb_yield(error);
+}
+
+static VALUE
 rb_str_derive
 #ifdef HAVE_PROTOTYPES
     (VALUE str, const char* ptr, int len)
@@ -327,8 +344,17 @@ iconv_convert
 	outptr = buffer;
 	outlen = sizeof(buffer);
 	error = iconv_try(cd, &inptr, &inlen, &outptr, &outlen);
-	if (error)
-	    iconv_fail(error, Qnil, Qnil, env);
+	if (error) {
+	    unsigned int i;
+	    str = iconv_fail(error, Qnil, Qnil, env);
+	    if (FIXNUM_P(str) && (i = FIX2INT(str)) <= 0xff) {
+		char c = i;
+		str = rb_str_new(&c, 1);
+	    }
+	    else if (!NIL_P(str)) {
+		StringValue(str);
+	    }
+	}
 
 	inptr = NULL;
 	length = 0;
@@ -395,7 +421,7 @@ iconv_convert
 	    if (!ret)
 		ret = rb_str_derive(str, instart, inptr - instart);
 	    str = rb_str_derive(str, inptr, inlen);
-	    iconv_fail(error, ret, str, env);
+	    rb_str_concat(str, iconv_fail(error, ret, str, env));
 	}
     } while (inlen > 0);