diff options
author | ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2015-12-07 15:10:00 +0000 |
---|---|---|
committer | ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2015-12-07 15:10:00 +0000 |
commit | 6d8bf54c440fd38eb12b3780556d6f7b88beb1ba (patch) | |
tree | 025393fd97224c56104624276b716058c695cddd /string.c | |
parent | 9a28a29b870b5f45d370bc8f16c431b435f0bbb3 (diff) | |
download | ruby-6d8bf54c440fd38eb12b3780556d6f7b88beb1ba.tar.gz |
* string.c: introduce String#+@ and String#-@ to control
String mutability.
[Feature #11782]
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@52917 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'string.c')
-rw-r--r-- | string.c | 42 |
1 files changed, 42 insertions, 0 deletions
@@ -2227,6 +2227,46 @@ rb_str_freeze(VALUE str) return rb_obj_freeze(str); } + +/* + * call-seq: + * +str -> str (mutable) + * + * If the string is frozen, then return duplicated mutable string. + * + * If the string is not frozen, then return the string itself. + */ +static VALUE +str_uplus(VALUE str) +{ + if (OBJ_FROZEN(str)) { + return rb_str_dup(str); + } + else { + return str; + } +} + +/* + * call-seq: + * -str -> str (frozen) + * + * If the string is frozen, then return the string itself. + * + * If the string is not frozen, then duplicate the string + * freeze it and return it. + */ +static VALUE +str_uminus(VALUE str) +{ + if (OBJ_FROZEN(str)) { + return str; + } + else { + return rb_str_freeze(rb_str_dup(str)); + } +} + RUBY_ALIAS_FUNCTION(rb_str_dup_frozen(VALUE str), rb_str_new_frozen, (str)) #define rb_str_dup_frozen rb_str_new_frozen @@ -9295,6 +9335,8 @@ Init_String(void) rb_define_method(rb_cString, "scrub", str_scrub, -1); rb_define_method(rb_cString, "scrub!", str_scrub_bang, -1); rb_define_method(rb_cString, "freeze", rb_str_freeze, 0); + rb_define_method(rb_cString, "+@", str_uplus, 0); + rb_define_method(rb_cString, "-@", str_uminus, 0); rb_define_method(rb_cString, "to_i", rb_str_to_i, -1); rb_define_method(rb_cString, "to_f", rb_str_to_f, 0); |