diff options
Diffstat (limited to 'string.c')
| -rw-r--r-- | string.c | 547 |
1 files changed, 150 insertions, 397 deletions
@@ -40,10 +40,7 @@ VALUE rb_cString; VALUE rb_fs; static inline void -str_mod_check(s, p, len) - VALUE s; - char *p; - long len; +str_mod_check(VALUE s, char *p, long len) { if (RSTRING(s)->ptr != p || RSTRING(s)->len != len){ rb_raise(rb_eRuntimeError, "string modified"); @@ -51,18 +48,15 @@ str_mod_check(s, p, len) } static inline void -str_frozen_check(s) - VALUE s; +str_frozen_check(VALUE s) { if (OBJ_FROZEN(s)) { rb_raise(rb_eRuntimeError, "string frozen"); } } -static VALUE str_alloc _((VALUE)); static VALUE -str_alloc(klass) - VALUE klass; +str_alloc(VALUE klass) { NEWOBJ(str, struct RString); OBJSETUP(str, klass, T_STRING); @@ -75,10 +69,7 @@ str_alloc(klass) } static VALUE -str_new(klass, ptr, len) - VALUE klass; - const char *ptr; - long len; +str_new(VALUE klass, const char *ptr, long len) { VALUE str; @@ -98,16 +89,13 @@ str_new(klass, ptr, len) } VALUE -rb_str_new(ptr, len) - const char *ptr; - long len; +rb_str_new(const char *ptr, long len) { return str_new(rb_cString, ptr, len); } VALUE -rb_str_new2(ptr) - const char *ptr; +rb_str_new2(const char *ptr) { if (!ptr) { rb_raise(rb_eArgError, "NULL pointer given"); @@ -116,9 +104,7 @@ rb_str_new2(ptr) } VALUE -rb_tainted_str_new(ptr, len) - const char *ptr; - long len; +rb_tainted_str_new(const char *ptr, long len) { VALUE str = rb_str_new(ptr, len); @@ -127,8 +113,7 @@ rb_tainted_str_new(ptr, len) } VALUE -rb_tainted_str_new2(ptr) - const char *ptr; +rb_tainted_str_new2(const char *ptr) { VALUE str = rb_str_new2(ptr); @@ -137,8 +122,7 @@ rb_tainted_str_new2(ptr) } static VALUE -str_new3(klass, str) - VALUE klass, str; +str_new3(VALUE klass, VALUE str) { VALUE str2 = str_alloc(klass); @@ -152,15 +136,13 @@ str_new3(klass, str) } VALUE -rb_str_new3(str) - VALUE str; +rb_str_new3(VALUE str) { return str_new3(rb_obj_class(str), str); } static VALUE -str_new4(klass, str) - VALUE klass, str; +str_new4(VALUE klass, VALUE str) { VALUE str2 = str_alloc(klass); @@ -179,8 +161,7 @@ str_new4(klass, str) } VALUE -rb_str_new4(orig) - VALUE orig; +rb_str_new4(VALUE orig) { VALUE klass, str; @@ -207,10 +188,7 @@ rb_str_new4(orig) } VALUE -rb_str_new5(obj, ptr, len) - VALUE obj; - const char *ptr; - long len; +rb_str_new5(VALUE obj, const char *ptr, long len) { return str_new(rb_obj_class(obj), ptr, len); } @@ -218,8 +196,7 @@ rb_str_new5(obj, ptr, len) #define STR_BUF_MIN_SIZE 128 VALUE -rb_str_buf_new(capa) - long capa; +rb_str_buf_new(long capa) { VALUE str = str_alloc(rb_cString); @@ -236,8 +213,7 @@ rb_str_buf_new(capa) } VALUE -rb_str_buf_new2(ptr) - const char *ptr; +rb_str_buf_new2(const char *ptr) { VALUE str; long len = strlen(ptr); @@ -249,15 +225,13 @@ rb_str_buf_new2(ptr) } VALUE -rb_str_to_str(str) - VALUE str; +rb_str_to_str(VALUE str) { return rb_convert_type(str, T_STRING, "String", "to_str"); } static void -rb_str_shared_replace(str, str2) - VALUE str, str2; +rb_str_shared_replace(VALUE str, VALUE str2) { if (str == str2) return; rb_str_modify(str); @@ -282,8 +256,7 @@ rb_str_shared_replace(str, str2) static ID id_to_s; VALUE -rb_obj_as_string(obj) - VALUE obj; +rb_obj_as_string(VALUE obj) { VALUE str; @@ -300,8 +273,7 @@ rb_obj_as_string(obj) static VALUE rb_str_replace _((VALUE, VALUE)); VALUE -rb_str_dup(str) - VALUE str; +rb_str_dup(VALUE str) { VALUE dup = str_alloc(rb_obj_class(str)); rb_str_replace(dup, str); @@ -317,10 +289,7 @@ rb_str_dup(str) */ static VALUE -rb_str_init(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_init(int argc, VALUE *argv, VALUE str) { VALUE orig; @@ -337,8 +306,7 @@ rb_str_init(argc, argv, str) */ static VALUE -rb_str_length(str) - VALUE str; +rb_str_length(VALUE str) { return LONG2NUM(RSTRING(str)->len); } @@ -354,8 +322,7 @@ rb_str_length(str) */ static VALUE -rb_str_empty(str) - VALUE str; +rb_str_empty(VALUE str) { if (RSTRING(str)->len == 0) return Qtrue; @@ -373,8 +340,7 @@ rb_str_empty(str) */ VALUE -rb_str_plus(str1, str2) - VALUE str1, str2; +rb_str_plus(VALUE str1, VALUE str2) { VALUE str3; @@ -401,9 +367,7 @@ rb_str_plus(str1, str2) */ VALUE -rb_str_times(str, times) - VALUE str; - VALUE times; +rb_str_times(VALUE str, VALUE times) { VALUE str2; long i, len; @@ -443,8 +407,7 @@ rb_str_times(str, times) */ static VALUE -rb_str_format_m(str, arg) - VALUE str, arg; +rb_str_format_m(VALUE str, VALUE arg) { if (TYPE(arg) == T_ARRAY) { return rb_str_format(RARRAY(arg)->len, RARRAY(arg)->ptr, str); @@ -453,8 +416,7 @@ rb_str_format_m(str, arg) } static int -str_independent(str) - VALUE str; +str_independent(VALUE str) { if (FL_TEST(str, STR_TMPLOCK)) { rb_raise(rb_eRuntimeError, "can't modify string; temporarily locked"); @@ -467,8 +429,7 @@ str_independent(str) } static void -str_make_independent(str) - VALUE str; +str_make_independent(VALUE str) { char *ptr; @@ -483,16 +444,14 @@ str_make_independent(str) } void -rb_str_modify(str) - VALUE str; +rb_str_modify(VALUE str) { if (!str_independent(str)) str_make_independent(str); } void -rb_str_associate(str, add) - VALUE str, add; +rb_str_associate(VALUE str, VALUE add) { if (FL_TEST(str, STR_ASSOC)) { /* already associated */ @@ -511,8 +470,7 @@ rb_str_associate(str, add) } VALUE -rb_str_associated(str) - VALUE str; +rb_str_associated(VALUE str) { if (FL_TEST(str, STR_ASSOC)) { return RSTRING(str)->aux.shared; @@ -523,8 +481,7 @@ rb_str_associated(str) static char *null_str = ""; VALUE -rb_string_value(ptr) - volatile VALUE *ptr; +rb_string_value(volatile VALUE *ptr) { VALUE s = *ptr; if (TYPE(s) != T_STRING) { @@ -539,15 +496,13 @@ rb_string_value(ptr) } char * -rb_string_value_ptr(ptr) - volatile VALUE *ptr; +rb_string_value_ptr(volatile VALUE *ptr) { return RSTRING(rb_string_value(ptr))->ptr; } char * -rb_string_value_cstr(ptr) - volatile VALUE *ptr; +rb_string_value_cstr(volatile VALUE *ptr) { VALUE str = rb_string_value(ptr); char *s = RSTRING(str)->ptr; @@ -559,8 +514,7 @@ rb_string_value_cstr(ptr) } VALUE -rb_check_string_type(str) - VALUE str; +rb_check_string_type(VALUE str) { str = rb_check_convert_type(str, T_STRING, "String", "to_str"); if (!NIL_P(str) && !RSTRING(str)->ptr) { @@ -571,9 +525,7 @@ rb_check_string_type(str) } VALUE -rb_str_substr(str, beg, len) - VALUE str; - long beg, len; +rb_str_substr(VALUE str, long beg, long len) { VALUE str2; @@ -606,15 +558,13 @@ rb_str_substr(str, beg, len) } VALUE -rb_str_freeze(str) - VALUE str; +rb_str_freeze(VALUE str) { return rb_obj_freeze(str); } VALUE -rb_str_dup_frozen(str) - VALUE str; +rb_str_dup_frozen(VALUE str) { if (FL_TEST(str, ELTS_SHARED) && RSTRING(str)->aux.shared) { VALUE shared = RSTRING(str)->aux.shared; @@ -630,8 +580,7 @@ rb_str_dup_frozen(str) } VALUE -rb_str_locktmp(str) - VALUE str; +rb_str_locktmp(VALUE str) { if (FL_TEST(str, STR_TMPLOCK)) { rb_raise(rb_eRuntimeError, "temporal locking already locked string"); @@ -641,8 +590,7 @@ rb_str_locktmp(str) } VALUE -rb_str_unlocktmp(str) - VALUE str; +rb_str_unlocktmp(VALUE str) { if (!FL_TEST(str, STR_TMPLOCK)) { rb_raise(rb_eRuntimeError, "temporal unlocking already unlocked string"); @@ -652,9 +600,7 @@ rb_str_unlocktmp(str) } VALUE -rb_str_resize(str, len) - VALUE str; - long len; +rb_str_resize(VALUE str, long len) { if (len < 0) { rb_raise(rb_eArgError, "negative string size (or size too big)"); @@ -675,10 +621,7 @@ rb_str_resize(str, len) } VALUE -rb_str_buf_cat(str, ptr, len) - VALUE str; - const char *ptr; - long len; +rb_str_buf_cat(VALUE str, const char *ptr, long len) { long capa, total; @@ -709,18 +652,13 @@ rb_str_buf_cat(str, ptr, len) } VALUE -rb_str_buf_cat2(str, ptr) - VALUE str; - const char *ptr; +rb_str_buf_cat2(VALUE str, const char *ptr) { return rb_str_buf_cat(str, ptr, strlen(ptr)); } VALUE -rb_str_cat(str, ptr, len) - VALUE str; - const char *ptr; - long len; +rb_str_cat(VALUE str, const char *ptr, long len) { if (len < 0) { rb_raise(rb_eArgError, "negative string size (or size too big)"); @@ -738,16 +676,13 @@ rb_str_cat(str, ptr, len) } VALUE -rb_str_cat2(str, ptr) - VALUE str; - const char *ptr; +rb_str_cat2(VALUE str, const char *ptr) { return rb_str_cat(str, ptr, strlen(ptr)); } VALUE -rb_str_buf_append(str, str2) - VALUE str, str2; +rb_str_buf_append(VALUE str, VALUE str2) { long capa, len; @@ -776,8 +711,7 @@ rb_str_buf_append(str, str2) } VALUE -rb_str_append(str, str2) - VALUE str, str2; +rb_str_append(VALUE str, VALUE str2) { StringValue(str2); rb_str_modify(str); @@ -816,8 +750,7 @@ rb_str_append(str, str2) */ VALUE -rb_str_concat(str1, str2) - VALUE str1, str2; +rb_str_concat(VALUE str1, VALUE str2) { if (FIXNUM_P(str2)) { int i = FIX2INT(str2); @@ -832,8 +765,7 @@ rb_str_concat(str1, str2) } int -rb_str_hash(str) - VALUE str; +rb_str_hash(VALUE str) { register long len = RSTRING(str)->len; register char *p = RSTRING(str)->ptr; @@ -875,8 +807,7 @@ rb_str_hash(str) */ static VALUE -rb_str_hash_m(str) - VALUE str; +rb_str_hash_m(VALUE str) { int key = rb_str_hash(str); return INT2FIX(key); @@ -885,8 +816,7 @@ rb_str_hash_m(str) #define lesser(a,b) (((a)>(b))?(b):(a)) int -rb_str_cmp(str1, str2) - VALUE str1, str2; +rb_str_cmp(VALUE str1, VALUE str2) { long len; int retval; @@ -913,8 +843,7 @@ rb_str_cmp(str1, str2) */ static VALUE -rb_str_equal(str1, str2) - VALUE str1, str2; +rb_str_equal(VALUE str1, VALUE str2) { if (str1 == str2) return Qtrue; if (TYPE(str2) != T_STRING) { @@ -938,8 +867,7 @@ rb_str_equal(str1, str2) */ static VALUE -rb_str_eql(str1, str2) - VALUE str1, str2; +rb_str_eql(VALUE str1, VALUE str2) { if (TYPE(str2) != T_STRING || RSTRING(str1)->len != RSTRING(str2)->len) return Qfalse; @@ -977,8 +905,7 @@ rb_str_eql(str1, str2) */ static VALUE -rb_str_cmp_m(str1, str2) - VALUE str1, str2; +rb_str_cmp_m(VALUE str1, VALUE str2) { long result; @@ -1018,8 +945,7 @@ rb_str_cmp_m(str1, str2) */ static VALUE -rb_str_casecmp(str1, str2) - VALUE str1, str2; +rb_str_casecmp(VALUE str1, VALUE str2) { long len; int retval; @@ -1038,9 +964,7 @@ rb_str_casecmp(str1, str2) } static long -rb_str_index(str, sub, offset) - VALUE str, sub; - long offset; +rb_str_index(VALUE str, VALUE sub, long offset) { long pos; @@ -1076,10 +1000,7 @@ rb_str_index(str, sub, offset) */ static VALUE -rb_str_index_m(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_index_m(int argc, VALUE *argv, VALUE str) { VALUE sub; VALUE initpos; @@ -1140,9 +1061,7 @@ rb_str_index_m(argc, argv, str) } static long -rb_str_rindex(str, sub, pos) - VALUE str, sub; - long pos; +rb_str_rindex(VALUE str, VALUE sub, long pos) { long len = RSTRING(sub)->len; char *s, *sbeg, *t; @@ -1190,10 +1109,7 @@ rb_str_rindex(str, sub, pos) */ static VALUE -rb_str_rindex_m(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_rindex_m(int argc, VALUE *argv, VALUE str) { VALUE sub; VALUE position; @@ -1272,8 +1188,7 @@ rb_str_rindex_m(argc, argv, str) */ static VALUE -rb_str_match(x, y) - VALUE x, y; +rb_str_match(VALUE x, VALUE y) { switch (TYPE(y)) { case T_STRING: @@ -1307,10 +1222,7 @@ static VALUE get_pat _((VALUE, int)); */ static VALUE -rb_str_match_m(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_match_m(int argc, VALUE *argv, VALUE str) { VALUE re; if (argc < 1) @@ -1321,8 +1233,7 @@ rb_str_match_m(argc, argv, str) } static char -succ_char(s) - char *s; +succ_char(char *s) { char c = *s; @@ -1372,8 +1283,7 @@ succ_char(s) */ static VALUE -rb_str_succ(orig) - VALUE orig; +rb_str_succ(VALUE orig) { VALUE str; char *sbeg, *s; @@ -1424,8 +1334,7 @@ rb_str_succ(orig) */ static VALUE -rb_str_succ_bang(str) - VALUE str; +rb_str_succ_bang(VALUE str) { rb_str_shared_replace(str, rb_str_succ(str)); @@ -1433,9 +1342,7 @@ rb_str_succ_bang(str) } VALUE -rb_str_upto(beg, end, excl) - VALUE beg, end; - int excl; +rb_str_upto(VALUE beg, VALUE end, int excl) { VALUE current, after_end; ID succ = rb_intern("succ"); @@ -1482,16 +1389,13 @@ rb_str_upto(beg, end, excl) */ static VALUE -rb_str_upto_m(beg, end) - VALUE beg, end; +rb_str_upto_m(VALUE beg, VALUE end) { return rb_str_upto(beg, end, Qfalse); } static VALUE -rb_str_subpat(str, re, nth) - VALUE str, re; - int nth; +rb_str_subpat(VALUE str, VALUE re, int nth) { if (rb_reg_search(re, str, 0, 0) >= 0) { return rb_reg_nth_match(nth, rb_backref_get()); @@ -1500,9 +1404,7 @@ rb_str_subpat(str, re, nth) } static VALUE -rb_str_aref(str, indx) - VALUE str; - VALUE indx; +rb_str_aref(VALUE str, VALUE indx) { long idx; @@ -1595,10 +1497,7 @@ rb_str_aref(str, indx) */ static VALUE -rb_str_aref_m(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_aref_m(int argc, VALUE *argv, VALUE str) { if (argc == 2) { if (TYPE(argv[0]) == T_REGEXP) { @@ -1613,10 +1512,7 @@ rb_str_aref_m(argc, argv, str) } static void -rb_str_splice(str, beg, len, val) - VALUE str; - long beg, len; - VALUE val; +rb_str_splice(VALUE str, long beg, long len, VALUE val) { if (len < 0) rb_raise(rb_eIndexError, "negative length %ld", len); @@ -1661,19 +1557,13 @@ rb_str_splice(str, beg, len, val) } void -rb_str_update(str, beg, len, val) - VALUE str; - long beg, len; - VALUE val; +rb_str_update(VALUE str, long beg, long len, VALUE val) { rb_str_splice(str, beg, len, val); } static void -rb_str_subpat_set(str, re, nth, val) - VALUE str, re; - int nth; - VALUE val; +rb_str_subpat_set(VALUE str, VALUE re, int nth, VALUE val) { VALUE match; long start, end, len; @@ -1703,9 +1593,7 @@ rb_str_subpat_set(str, re, nth, val) } static VALUE -rb_str_aset(str, indx, val) - VALUE str; - VALUE indx, val; +rb_str_aset(VALUE str, VALUE indx, VALUE val) { long idx, beg; @@ -1787,10 +1675,7 @@ rb_str_aset(str, indx, val) */ static VALUE -rb_str_aset_m(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_aset_m(int argc, VALUE *argv, VALUE str) { if (argc == 3) { if (TYPE(argv[0]) == T_REGEXP) { @@ -1825,8 +1710,7 @@ rb_str_aset_m(argc, argv, str) */ static VALUE -rb_str_insert(str, idx, str2) - VALUE str, idx, str2; +rb_str_insert(VALUE str, VALUE idx, VALUE str2) { long pos = NUM2LONG(idx); @@ -1864,10 +1748,7 @@ rb_str_insert(str, idx, str2) */ static VALUE -rb_str_slice_bang(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_slice_bang(int argc, VALUE *argv, VALUE str) { VALUE result; VALUE buf[3]; @@ -1888,9 +1769,7 @@ rb_str_slice_bang(argc, argv, str) } static VALUE -get_pat(pat, quote) - VALUE pat; - int quote; +get_pat(VALUE pat, int quote) { VALUE val; @@ -1928,10 +1807,7 @@ get_pat(pat, quote) */ static VALUE -rb_str_sub_bang(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_sub_bang(int argc, VALUE *argv, VALUE str) { VALUE pat, repl, match; struct re_registers *regs; @@ -2022,10 +1898,7 @@ rb_str_sub_bang(argc, argv, str) */ static VALUE -rb_str_sub(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_sub(int argc, VALUE *argv, VALUE str) { str = rb_str_dup(str); rb_str_sub_bang(argc, argv, str); @@ -2033,11 +1906,7 @@ rb_str_sub(argc, argv, str) } static VALUE -str_gsub(argc, argv, str, bang) - int argc; - VALUE *argv; - VALUE str; - int bang; +str_gsub(int argc, VALUE *argv, VALUE str, int bang) { VALUE pat, val, repl, match, dest; struct re_registers *regs; @@ -2171,10 +2040,7 @@ str_gsub(argc, argv, str, bang) */ static VALUE -rb_str_gsub_bang(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_gsub_bang(int argc, VALUE *argv, VALUE str) { return str_gsub(argc, argv, str, 1); } @@ -2212,10 +2078,7 @@ rb_str_gsub_bang(argc, argv, str) */ static VALUE -rb_str_gsub(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_gsub(int argc, VALUE *argv, VALUE str) { return str_gsub(argc, argv, str, 0); } @@ -2233,8 +2096,7 @@ rb_str_gsub(argc, argv, str) */ static VALUE -rb_str_replace(str, str2) - VALUE str, str2; +rb_str_replace(VALUE str, VALUE str2) { if (str == str2) return str; @@ -2274,8 +2136,7 @@ rb_str_replace(str, str2) */ static VALUE -rb_str_clear(str) - VALUE str; +rb_str_clear(VALUE str) { /* rb_str_modify() */ /* no need for str_make_independent */ if (str_independent(str)) { @@ -2290,7 +2151,7 @@ rb_str_clear(str) } static VALUE -uscore_get() +uscore_get(void) { VALUE line; @@ -2311,9 +2172,7 @@ uscore_get() */ static VALUE -rb_f_sub_bang(argc, argv) - int argc; - VALUE *argv; +rb_f_sub_bang(int argc, VALUE *argv) { return rb_str_sub_bang(argc, argv, uscore_get()); } @@ -2328,9 +2187,7 @@ rb_f_sub_bang(argc, argv) */ static VALUE -rb_f_sub(argc, argv) - int argc; - VALUE *argv; +rb_f_sub(int argc, VALUE *argv) { VALUE str = rb_str_dup(uscore_get()); @@ -2354,9 +2211,7 @@ rb_f_sub(argc, argv) */ static VALUE -rb_f_gsub_bang(argc, argv) - int argc; - VALUE *argv; +rb_f_gsub_bang(int argc, VALUE *argv) { return rb_str_gsub_bang(argc, argv, uscore_get()); } @@ -2375,9 +2230,7 @@ rb_f_gsub_bang(argc, argv) */ static VALUE -rb_f_gsub(argc, argv) - int argc; - VALUE *argv; +rb_f_gsub(int argc, VALUE *argv) { VALUE str = rb_str_dup(uscore_get()); @@ -2396,8 +2249,7 @@ rb_f_gsub(argc, argv) */ static VALUE -rb_str_reverse_bang(str) - VALUE str; +rb_str_reverse_bang(VALUE str) { char *s, *e; char c; @@ -2426,8 +2278,7 @@ rb_str_reverse_bang(str) */ static VALUE -rb_str_reverse(str) - VALUE str; +rb_str_reverse(VALUE str) { VALUE obj; char *s, *e, *p; @@ -2461,8 +2312,7 @@ rb_str_reverse(str) */ static VALUE -rb_str_include(str, arg) - VALUE str, arg; +rb_str_include(VALUE str, VALUE arg) { long i; @@ -2502,10 +2352,7 @@ rb_str_include(str, arg) */ static VALUE -rb_str_to_i(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_to_i(int argc, VALUE *argv, VALUE str) { VALUE b; int base; @@ -2536,8 +2383,7 @@ rb_str_to_i(argc, argv, str) */ static VALUE -rb_str_to_f(str) - VALUE str; +rb_str_to_f(VALUE str) { return rb_float_new(rb_str_to_dbl(str, Qfalse)); } @@ -2552,8 +2398,7 @@ rb_str_to_f(str) */ static VALUE -rb_str_to_s(str) - VALUE str; +rb_str_to_s(VALUE str) { if (rb_obj_class(str) != rb_cString) { VALUE dup = str_alloc(rb_cString); @@ -2578,8 +2423,7 @@ rb_str_to_s(str) */ VALUE -rb_str_inspect(str) - VALUE str; +rb_str_inspect(VALUE str) { char *p, *pend; VALUE result = rb_str_buf_new2("\""); @@ -2650,8 +2494,7 @@ rb_str_inspect(str) */ VALUE -rb_str_dump(str) - VALUE str; +rb_str_dump(VALUE str) { long len; char *p, *pend; @@ -2754,8 +2597,7 @@ rb_str_dump(str) */ static VALUE -rb_str_upcase_bang(str) - VALUE str; +rb_str_upcase_bang(VALUE str) { char *s, *send; int modify = 0; @@ -2790,8 +2632,7 @@ rb_str_upcase_bang(str) */ static VALUE -rb_str_upcase(str) - VALUE str; +rb_str_upcase(VALUE str) { str = rb_str_dup(str); rb_str_upcase_bang(str); @@ -2808,8 +2649,7 @@ rb_str_upcase(str) */ static VALUE -rb_str_downcase_bang(str) - VALUE str; +rb_str_downcase_bang(VALUE str) { char *s, *send; int modify = 0; @@ -2844,8 +2684,7 @@ rb_str_downcase_bang(str) */ static VALUE -rb_str_downcase(str) - VALUE str; +rb_str_downcase(VALUE str) { str = rb_str_dup(str); rb_str_downcase_bang(str); @@ -2867,8 +2706,7 @@ rb_str_downcase(str) */ static VALUE -rb_str_capitalize_bang(str) - VALUE str; +rb_str_capitalize_bang(VALUE str) { char *s, *send; int modify = 0; @@ -2907,8 +2745,7 @@ rb_str_capitalize_bang(str) */ static VALUE -rb_str_capitalize(str) - VALUE str; +rb_str_capitalize(VALUE str) { str = rb_str_dup(str); rb_str_capitalize_bang(str); @@ -2925,8 +2762,7 @@ rb_str_capitalize(str) */ static VALUE -rb_str_swapcase_bang(str) - VALUE str; +rb_str_swapcase_bang(VALUE str) { char *s, *send; int modify = 0; @@ -2965,8 +2801,7 @@ rb_str_swapcase_bang(str) */ static VALUE -rb_str_swapcase(str) - VALUE str; +rb_str_swapcase(VALUE str) { str = rb_str_dup(str); rb_str_swapcase_bang(str); @@ -2981,8 +2816,7 @@ struct tr { }; static int -trnext(t) - struct tr *t; +trnext(struct tr *t) { for (;;) { if (!t->gen) { @@ -3017,9 +2851,7 @@ trnext(t) static VALUE rb_str_delete_bang _((int,VALUE*,VALUE)); static VALUE -tr_trans(str, src, repl, sflag) - VALUE str, src, repl; - int sflag; +tr_trans(VALUE str, VALUE src, VALUE repl, int sflag) { struct tr trsrc, trrepl; int cflag = 0; @@ -3122,8 +2954,7 @@ tr_trans(str, src, repl, sflag) */ static VALUE -rb_str_tr_bang(str, src, repl) - VALUE str, src, repl; +rb_str_tr_bang(VALUE str, VALUE src, VALUE repl) { return tr_trans(str, src, repl, 0); } @@ -3147,8 +2978,7 @@ rb_str_tr_bang(str, src, repl) */ static VALUE -rb_str_tr(str, src, repl) - VALUE str, src, repl; +rb_str_tr(VALUE str, VALUE src, VALUE repl) { str = rb_str_dup(str); tr_trans(str, src, repl, 0); @@ -3156,10 +2986,7 @@ rb_str_tr(str, src, repl) } static void -tr_setup_table(str, table, init) - VALUE str; - char table[256]; - int init; +tr_setup_table(VALUE str, char table[256], int init) { char buf[256]; struct tr tr; @@ -3199,10 +3026,7 @@ tr_setup_table(str, table, init) */ static VALUE -rb_str_delete_bang(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_delete_bang(int argc, VALUE *argv, VALUE str) { char *s, *send, *t; char squeez[256]; @@ -3255,10 +3079,7 @@ rb_str_delete_bang(argc, argv, str) */ static VALUE -rb_str_delete(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_delete(int argc, VALUE *argv, VALUE str) { str = rb_str_dup(str); rb_str_delete_bang(argc, argv, str); @@ -3275,10 +3096,7 @@ rb_str_delete(argc, argv, str) */ static VALUE -rb_str_squeeze_bang(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_squeeze_bang(int argc, VALUE *argv, VALUE str) { char squeez[256]; char *s, *send, *t; @@ -3339,10 +3157,7 @@ rb_str_squeeze_bang(argc, argv, str) */ static VALUE -rb_str_squeeze(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_squeeze(int argc, VALUE *argv, VALUE str) { str = rb_str_dup(str); rb_str_squeeze_bang(argc, argv, str); @@ -3359,8 +3174,7 @@ rb_str_squeeze(argc, argv, str) */ static VALUE -rb_str_tr_s_bang(str, src, repl) - VALUE str, src, repl; +rb_str_tr_s_bang(VALUE str, VALUE src, VALUE repl) { return tr_trans(str, src, repl, 1); } @@ -3380,8 +3194,7 @@ rb_str_tr_s_bang(str, src, repl) */ static VALUE -rb_str_tr_s(str, src, repl) - VALUE str, src, repl; +rb_str_tr_s(VALUE str, VALUE src, VALUE repl) { str = rb_str_dup(str); tr_trans(str, src, repl, 1); @@ -3406,10 +3219,7 @@ rb_str_tr_s(str, src, repl) */ static VALUE -rb_str_count(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_count(int argc, VALUE *argv, VALUE str) { char table[256]; char *s, *send; @@ -3482,10 +3292,7 @@ rb_str_count(argc, argv, str) */ static VALUE -rb_str_split_m(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_split_m(int argc, VALUE *argv, VALUE str) { VALUE spat; VALUE limit; @@ -3616,9 +3423,7 @@ rb_str_split_m(argc, argv, str) } VALUE -rb_str_split(str, sep0) - VALUE str; - const char *sep0; +rb_str_split(VALUE str, const char *sep0) { VALUE sep; @@ -3636,9 +3441,7 @@ rb_str_split(str, sep0) */ static VALUE -rb_f_split(argc, argv) - int argc; - VALUE *argv; +rb_f_split(int argc, VALUE *argv) { return rb_str_split_m(argc, argv, uscore_get()); } @@ -3677,10 +3480,7 @@ rb_f_split(argc, argv) */ static VALUE -rb_str_each_line(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_each_line(int argc, VALUE *argv, VALUE str) { VALUE rs; int newline; @@ -3749,8 +3549,7 @@ rb_str_each_line(argc, argv, str) */ static VALUE -rb_str_each_byte(str) - VALUE str; +rb_str_each_byte(VALUE str) { long i; @@ -3772,8 +3571,7 @@ rb_str_each_byte(str) */ static VALUE -rb_str_chop_bang(str) - VALUE str; +rb_str_chop_bang(VALUE str) { if (RSTRING(str)->len > 0) { rb_str_modify(str); @@ -3809,8 +3607,7 @@ rb_str_chop_bang(str) */ static VALUE -rb_str_chop(str) - VALUE str; +rb_str_chop(VALUE str) { str = rb_str_dup(str); rb_str_chop_bang(str); @@ -3836,8 +3633,7 @@ rb_str_chop(str) */ static VALUE -rb_f_chop_bang(str) - VALUE str; +rb_f_chop_bang(VALUE str) { return rb_str_chop_bang(uscore_get()); } @@ -3861,7 +3657,7 @@ rb_f_chop_bang(str) */ static VALUE -rb_f_chop() +rb_f_chop(void) { VALUE str = uscore_get(); @@ -3883,10 +3679,7 @@ rb_f_chop() */ static VALUE -rb_str_chomp_bang(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_chomp_bang(int argc, VALUE *argv, VALUE str) { VALUE rs; int newline; @@ -3975,10 +3768,7 @@ rb_str_chomp_bang(argc, argv, str) */ static VALUE -rb_str_chomp(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_chomp(int argc, VALUE *argv, VALUE str) { str = rb_str_dup(str); rb_str_chomp_bang(argc, argv, str); @@ -4001,9 +3791,7 @@ rb_str_chomp(argc, argv, str) */ static VALUE -rb_f_chomp_bang(argc, argv) - int argc; - VALUE *argv; +rb_f_chomp_bang(int argc, VALUE *argv) { return rb_str_chomp_bang(argc, argv, uscore_get()); } @@ -4026,9 +3814,7 @@ rb_f_chomp_bang(argc, argv) */ static VALUE -rb_f_chomp(argc, argv) - int argc; - VALUE *argv; +rb_f_chomp(int argc, VALUE *argv) { VALUE str = uscore_get(); VALUE dup = rb_str_dup(str); @@ -4053,8 +3839,7 @@ rb_f_chomp(argc, argv) */ static VALUE -rb_str_lstrip_bang(str) - VALUE str; +rb_str_lstrip_bang(VALUE str) { char *s, *t, *e; @@ -4087,8 +3872,7 @@ rb_str_lstrip_bang(str) */ static VALUE -rb_str_lstrip(str) - VALUE str; +rb_str_lstrip(VALUE str) { str = rb_str_dup(str); rb_str_lstrip_bang(str); @@ -4109,8 +3893,7 @@ rb_str_lstrip(str) */ static VALUE -rb_str_rstrip_bang(str) - VALUE str; +rb_str_rstrip_bang(VALUE str) { char *s, *t, *e; @@ -4146,8 +3929,7 @@ rb_str_rstrip_bang(str) */ static VALUE -rb_str_rstrip(str) - VALUE str; +rb_str_rstrip(VALUE str) { str = rb_str_dup(str); rb_str_rstrip_bang(str); @@ -4164,8 +3946,7 @@ rb_str_rstrip(str) */ static VALUE -rb_str_strip_bang(str) - VALUE str; +rb_str_strip_bang(VALUE str) { VALUE l = rb_str_lstrip_bang(str); VALUE r = rb_str_rstrip_bang(str); @@ -4186,8 +3967,7 @@ rb_str_strip_bang(str) */ static VALUE -rb_str_strip(str) - VALUE str; +rb_str_strip(VALUE str) { str = rb_str_dup(str); rb_str_strip_bang(str); @@ -4195,9 +3975,7 @@ rb_str_strip(str) } static VALUE -scan_once(str, pat, start) - VALUE str, pat; - long *start; +scan_once(VALUE str, VALUE pat, long *start) { VALUE result, match; struct re_registers *regs; @@ -4264,8 +4042,7 @@ scan_once(str, pat, start) */ static VALUE -rb_str_scan(str, pat) - VALUE str, pat; +rb_str_scan(VALUE str, VALUE pat) { VALUE result; long start = 0; @@ -4303,8 +4080,7 @@ rb_str_scan(str, pat) */ static VALUE -rb_f_scan(self, pat) - VALUE self, pat; +rb_f_scan(VALUE self, VALUE pat) { return rb_str_scan(uscore_get(), pat); } @@ -4325,8 +4101,7 @@ rb_f_scan(self, pat) */ static VALUE -rb_str_hex(str) - VALUE str; +rb_str_hex(VALUE str) { return rb_str_to_inum(str, 16, Qfalse); } @@ -4347,8 +4122,7 @@ rb_str_hex(str) */ static VALUE -rb_str_oct(str) - VALUE str; +rb_str_oct(VALUE str) { return rb_str_to_inum(str, -8, Qfalse); } @@ -4365,10 +4139,9 @@ rb_str_oct(str) */ static VALUE -rb_str_crypt(str, salt) - VALUE str, salt; +rb_str_crypt(VALUE str, VALUE salt) { - extern char *crypt(); + extern char *crypt(char *, char *); VALUE result; char *s; @@ -4406,8 +4179,7 @@ rb_str_crypt(str, salt) */ VALUE -rb_str_intern(s) - VALUE s; +rb_str_intern(VALUE s) { volatile VALUE str = s; ID id; @@ -4434,10 +4206,7 @@ rb_str_intern(s) */ static VALUE -rb_str_sum(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_sum(int argc, VALUE *argv, VALUE str) { VALUE vbits; int bits; @@ -4485,11 +4254,7 @@ rb_str_sum(argc, argv, str) } static VALUE -rb_str_justify(argc, argv, str, jflag) - int argc; - VALUE *argv; - VALUE str; - char jflag; +rb_str_justify(int argc, VALUE *argv, VALUE str, char jflag) { VALUE w; long width, flen = 0; @@ -4568,10 +4333,7 @@ rb_str_justify(argc, argv, str, jflag) */ static VALUE -rb_str_ljust(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_ljust(int argc, VALUE *argv, VALUE str) { return rb_str_justify(argc, argv, str, 'l'); } @@ -4591,10 +4353,7 @@ rb_str_ljust(argc, argv, str) */ static VALUE -rb_str_rjust(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_rjust(int argc, VALUE *argv, VALUE str) { return rb_str_justify(argc, argv, str, 'r'); } @@ -4614,19 +4373,13 @@ rb_str_rjust(argc, argv, str) */ static VALUE -rb_str_center(argc, argv, str) - int argc; - VALUE *argv; - VALUE str; +rb_str_center(int argc, VALUE *argv, VALUE str) { return rb_str_justify(argc, argv, str, 'c'); } void -rb_str_setter(val, id, var) - VALUE val; - ID id; - VALUE *var; +rb_str_setter(VALUE val, ID id, VALUE *var) { if (!NIL_P(val) && TYPE(val) != T_STRING) { rb_raise(rb_eTypeError, "value of %s must be String", rb_id2name(id)); @@ -4649,7 +4402,7 @@ rb_str_setter(val, id, var) */ void -Init_String() +Init_String(void) { rb_cString = rb_define_class("String", rb_cObject); rb_include_module(rb_cString, rb_mComparable); |