V7_PRIVATE enum v7_err Obj_toString(struct v7_c_func_arg *cfa) {
char *p, buf[500];
p = v7_stringify(cfa->this_obj, buf, sizeof(buf));
v7_push_string(cfa->v7, p, strlen(p), 1);
if (p != buf) free(p);
return V7_OK;
}
V7_PRIVATE enum v7_err Num_toFixed(struct v7_c_func_arg *cfa) {
int len, digits = cfa->num_args > 0 ? (int)cfa->args[0]->v.num : 0;
char fmt[10], buf[100];
snprintf(fmt, sizeof(fmt), "%%.%dlf", digits);
len = snprintf(buf, sizeof(buf), fmt, cfa->this_obj->v.num);
v7_push_string(cfa->v7, buf, len, 1);
return V7_OK;
}
V7_PRIVATE enum v7_err Str_substr(struct v7_c_func_arg *cfa) {
struct v7_val *result = v7_push_string(cfa->v7, NULL, 0, 0);
long start = 0;
if (cfa->num_args > 0 && cfa->args[0]->type == V7_TYPE_NUM) {
start = (long)cfa->args[0]->v.num;
}
if (start < 0) {
start += (long)cfa->this_obj->v.str.len;
}
if (start >= 0 && start < (long)cfa->this_obj->v.str.len) {
long n = cfa->this_obj->v.str.len - start;
if (cfa->num_args > 1 && cfa->args[1]->type == V7_TYPE_NUM) {
n = cfa->args[1]->v.num;
}
if (n > 0 && n <= ((long)cfa->this_obj->v.str.len - start)) {
v7_init_str(result, cfa->this_obj->v.str.buf + start, n, 1);
}
}
return V7_OK;
}
V7_PRIVATE enum v7_err Json_stringify(struct v7_c_func_arg *cfa) {
v7_push_string(cfa->v7, "implement me", 12, 0);
/* TODO(lsm): implement JSON.stringify */
return V7_OK;
}
V7_PRIVATE enum v7_err Str_charAt(struct v7_c_func_arg *cfa) {
const char *p = StrAt(cfa);
v7_push_string(cfa->v7, p, p == NULL ? 0 : 1, 1);
return V7_OK;
}
V7_PRIVATE enum v7_err Str_replace(struct v7_c_func_arg *cfa) {
#define v7 (cfa->v7) /* Needed for TRY() macro below */
struct v7_val *result = v7_push_new_object(v7);
const char *out_str = cfa->this_obj->v.str.buf;
uint8_t own = 1;
size_t out_len = cfa->this_obj->v.str.len;
int old_sp = v7->sp;
if (cfa->num_args > 1) {
const char *const str_end =
cfa->this_obj->v.str.buf + cfa->this_obj->v.str.len;
char *p = cfa->this_obj->v.str.buf;
uint32_t out_sub_num = 0;
struct v7_val *re = cfa->args[0], *str_func = cfa->args[1], *arr = NULL;
struct re_tok out_sub[V7_RE_MAX_REPL_SUB], *ptok = out_sub;
struct Resub loot;
TRY(check_str_re_conv(v7, &re, 1));
TRY(regex_check_prog(re));
if (v7_is_class(str_func, V7_CLASS_FUNCTION)) {
arr = v7_push_new_object(v7);
v7_set_class(arr, V7_CLASS_ARRAY);
TRY(v7_push(v7, str_func));
} else
TRY(check_str_re_conv(v7, &str_func, 0));
out_len = 0;
do {
int i;
if (re_exec(re->v.str.prog, re->fl.fl, p, &loot)) break;
if (p != loot.sub->start) {
ptok->start = p;
ptok->end = loot.sub->start;
ptok++;
out_len += loot.sub->start - p;
out_sub_num++;
}
if (NULL != arr) { /* replace function */
Rune rune;
int old_sp = v7->sp, utf_shift = 0;
struct v7_val *rez_str;
for (i = 0; i < loot.subexpr_num; i++)
v7_push_string(v7, loot.sub[i].start,
loot.sub[i].end - loot.sub[i].start, 1);
for (i = 0; p + i < loot.sub[0].start;
i += chartorune(&rune, p + i), utf_shift++)
;
TRY(push_number(v7, utf_shift));
TRY(v7_push(v7, cfa->this_obj));
rez_str = v7_call(v7, cfa->this_obj, loot.subexpr_num + 2);
TRY(check_str_re_conv(v7, &rez_str, 0));
if (rez_str->v.str.len) {
ptok->start = rez_str->v.str.buf;
ptok->end = rez_str->v.str.buf + rez_str->v.str.len;
ptok++;
out_len += rez_str->v.str.len;
out_sub_num++;
v7_append(v7, arr, rez_str);
}
TRY(inc_stack(v7, old_sp - v7->sp));
} else { /* replace string */
struct Resub newsub;
re_rplc(&loot, p, str_func->v.str.buf, &newsub);
for (i = 0; i < newsub.subexpr_num; i++) {
ptok->start = newsub.sub[i].start;
ptok->end = newsub.sub[i].end;
ptok++;
out_len += newsub.sub[i].end - newsub.sub[i].start;
out_sub_num++;
}
}
p = (char *)loot.sub->end;
} while (re->fl.fl.re_g && p < str_end);
if (p < str_end) {
ptok->start = p;
ptok->end = str_end;
ptok++;
out_len += str_end - p;
out_sub_num++;
}
out_str = malloc(out_len + 1);
CHECK(out_str, V7_OUT_OF_MEMORY);
ptok = out_sub;
p = (char *)out_str;
do {
size_t ln = ptok->end - ptok->start;
memcpy(p, ptok->start, ln);
p += ln;
ptok++;
} while (--out_sub_num);
*p = '\0';
own = 0;
}
TRY(inc_stack(v7, old_sp - v7->sp));
v7_init_str(result, out_str, out_len, own);
result->fl.fl.str_alloc = 1;
return V7_OK;
#undef v7
}