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

mruby-string-ext: String#codepoints to support binary encoding

Browse Source
This commit is contained in:
Yukihiro "Matz" Matsumoto
2025-01-16 09:06:19 +09:00
parent 8395ffb5f8
commit 0c01bf7ff0
1 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-string-ext/src/string.c
+15 -6
View File
@@ -1048,15 +1048,24 @@ str_ord(mrb_state* mrb, mrb_value str)
static mrb_value
str_codepoints(mrb_state *mrb, mrb_value str)
{
const unsigned char *p = (unsigned char*)RSTRING_PTR(str);
const unsigned char *e = p + RSTRING_LEN(str);
struct RString *s = mrb_str_ptr(str);
const unsigned char *p = (unsigned char*)RSTR_PTR(s);
const unsigned char *e = p + RSTR_LEN(s);
mrb->c->ci->mid = 0;
mrb_value result = mrb_ary_new(mrb);
while (p < e) {
mrb_int c = utf8code(mrb, p, e);
mrb_ary_push(mrb, result, mrb_int_value(mrb, c));
p += mrb_utf8len_table[p[0]>>3];
if (RSTR_SINGLE_BYTE_P(s) || RSTR_BINARY_P(s)) {
while (p < e) {
mrb_ary_push(mrb, result, mrb_int_value(mrb, (mrb_int)*p));
p++;
}
}
else {
while (p < e) {
mrb_int c = utf8code(mrb, p, e);
mrb_ary_push(mrb, result, mrb_int_value(mrb, c));
p += mrb_utf8len_table[p[0]>>3];
}
}
return result;
}