Merge pull request #2351 from mattn/add-string-utf8.chr

Add string String#chr for utf8

mrbgems/mruby-string-utf8/src/string.c

@@ -667,6 +667,12 @@ mrb_str_split_m(mrb_state *mrb, mrb_value str)
   return result;
 }
 
+static mrb_value
+mrb_str_chr(mrb_state *mrb, mrb_value self)
+{
+  return str_substr(mrb, self, 0, 1);
+}
+
 void
 mrb_mruby_string_utf8_gem_init(mrb_state* mrb)
 {
@@ -682,6 +688,7 @@ mrb_mruby_string_utf8_gem_init(mrb_state* mrb)
   mrb_define_method(mrb, s, "reverse",  mrb_str_reverse, MRB_ARGS_NONE());
   mrb_define_method(mrb, s, "reverse!", mrb_str_reverse_bang, MRB_ARGS_NONE());
   mrb_define_method(mrb, s, "rindex", mrb_str_rindex_m, MRB_ARGS_ANY());
+  mrb_define_method(mrb, s, "chr", mrb_str_chr, MRB_ARGS_NONE());
 
   mrb_define_method(mrb, mrb->fixnum_class, "chr", mrb_fixnum_chr, MRB_ARGS_NONE());
 }

mrbgems/mruby-string-utf8/test/string.rb

@@ -66,3 +66,7 @@ assert('String#rindex') do
   assert_equal 12, str.rindex('ち')
   assert_equal 3, str.rindex('ち', 10)
 end
+
+assert('String#chr') do
+  assert_equal "こ", "こんにちは世界!".chr
+end