diff options
| author | Yukihiro "Matz" Matsumoto <[email protected]> | 2014-06-04 09:11:23 +0900 |
|---|---|---|
| committer | Yukihiro "Matz" Matsumoto <[email protected]> | 2014-06-04 09:11:23 +0900 |
| commit | 863abfc298e7b6601640489a6830090fa2884ef5 (patch) | |
| tree | 3115981e2484e546d14c054371f5dcc46350e797 /mrbgems/mruby-string-ext/src/string.c | |
| parent | c3ed6e3d25ff3b6c4980ae8f2c4d0665a1d95d69 (diff) | |
| parent | e67817fcec489d06b8d58033e49c7de05b8844ff (diff) | |
| download | mruby-863abfc298e7b6601640489a6830090fa2884ef5.tar.gz mruby-863abfc298e7b6601640489a6830090fa2884ef5.zip | |
Merge pull request #2350 from suzukaze/add-string.chr
Implement String#chr
Diffstat (limited to 'mrbgems/mruby-string-ext/src/string.c')
| -rw-r--r-- | mrbgems/mruby-string-ext/src/string.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/mrbgems/mruby-string-ext/src/string.c b/mrbgems/mruby-string-ext/src/string.c index 2c0a406ad..b811d9c59 100644 --- a/mrbgems/mruby-string-ext/src/string.c +++ b/mrbgems/mruby-string-ext/src/string.c @@ -175,6 +175,21 @@ mrb_str_oct(mrb_state *mrb, mrb_value self) return mrb_str_to_inum(mrb, self, 8, FALSE); } +/* + * call-seq: + * string.chr -> string + * + * Returns a one-character string at the beginning of the string. + * + * a = "abcde" + * a.chr #=> "a" + */ +static mrb_value +mrb_str_chr(mrb_state *mrb, mrb_value self) +{ + return mrb_str_substr(mrb, self, 0, 1); +} + void mrb_mruby_string_ext_gem_init(mrb_state* mrb) { @@ -190,6 +205,7 @@ mrb_mruby_string_ext_gem_init(mrb_state* mrb) mrb_define_method(mrb, s, "end_with?", mrb_str_end_with, MRB_ARGS_REST()); mrb_define_method(mrb, s, "hex", mrb_str_hex, MRB_ARGS_NONE()); mrb_define_method(mrb, s, "oct", mrb_str_oct, MRB_ARGS_NONE()); + mrb_define_method(mrb, s, "chr", mrb_str_chr, MRB_ARGS_NONE()); } void |