admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

"-a-a-".succ should be "-a-b-"

Browse Source
This commit is contained in:
mattn
2014-08-11 15:00:44 +09:00
parent 3103d063e2
commit 4ece1e3e29
2 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-string-ext/src/string.c
+15 -13
View File
@@ -266,25 +266,27 @@ mrb_str_succ_bang(mrb_state *mrb, mrb_value self)
t = e = p + l;
*(e--) = 0;
while (b < e) {
if (ISALNUM(*b))
break;
b++;
}
if (b > e) {
b = p;
result = mrb_str_new_lit(mrb, "");
} else
result = mrb_str_new(mrb, (char*) p, b - p);
// find trailing ascii/number
while (e >= b) {
if (ISALNUM(*e))
break;
e--;
}
if (e < b)
if (e < b) {
e = p + l - 1;
result = mrb_str_new_lit(mrb, "");
} else {
// find leading letter of the ascii/number
b = e;
while (b > p) {
if (!ISALNUM(*b) || (ISALNUM(*b) && *b != '9' && *b != 'z' && *b != 'Z'))
break;
b--;
}
if (!ISALNUM(*b))
b++;
result = mrb_str_new(mrb, (char*) p, b - p);
}
while (e >= b) {
if (!ISALNUM(*e)) {