clear

static VALUE
rb_str_clear(VALUE str)
{
    /* rb_str_modify() */       /* no need for str_make_independent */
    if (str_independent(str) && !STR_EMBED_P(str)) {
        xfree(RSTRING_PTR(str));
    }
    STR_SET_EMBED(str);
    STR_SET_EMBED_LEN(str, 0);
    RSTRING_PTR(str)[0] = 0;
    if (rb_enc_asciicompat(STR_ENC_GET(str)))
        ENC_CODERANGE_SET(str, ENC_CODERANGE_7BIT);
    else
        ENC_CODERANGE_SET(str, ENC_CODERANGE_VALID);
    return str;
}