forked from microsoft/devicescript
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathimpl_string.c
More file actions
139 lines (115 loc) · 3.63 KB
/
impl_string.c
File metadata and controls
139 lines (115 loc) · 3.63 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
#include "devs_internal.h"
value_t prop_String_length(devs_ctx_t *ctx, value_t self) {
int len = devs_string_length(ctx, self);
if (len < 0)
return devs_undefined;
return devs_value_from_int(len);
}
value_t prop_String_byteLength(devs_ctx_t *ctx, value_t self) {
unsigned size;
if (devs_string_get_utf8(ctx, self, &size))
return devs_value_from_int(size);
return devs_undefined;
}
void meth1_String_charCodeAt(devs_ctx_t *ctx) {
int off = devs_string_index(ctx, devs_arg_self(ctx), devs_arg_int(ctx, 0));
if (off < 0)
devs_ret(ctx, devs_nan);
const char *data = devs_string_get_utf8(ctx, devs_arg_self(ctx), NULL);
devs_ret_int(ctx, devs_utf8_code_point(data + off));
}
void meth1_String_charAt(devs_ctx_t *ctx) {
devs_ret(ctx, devs_seq_get(ctx, devs_arg_self(ctx), devs_arg_int(ctx, 0)));
}
void meth2_String_slice(devs_ctx_t *ctx) {
int start = devs_arg_int(ctx, 0);
int endp = devs_arg_int_defl(ctx, 1, 0x7fffffff);
devs_ret(ctx, devs_string_slice(ctx, devs_arg_self(ctx), start, endp));
}
void funX_String_fromCharCode(devs_ctx_t *ctx) {
unsigned size = 0;
char buf[4];
int len = ctx->stack_top_for_gc - 1;
if (len == 0) {
devs_ret(ctx, devs_builtin_string(DEVS_BUILTIN_STRING__EMPTY));
return;
}
for (int i = 0; i < len; ++i) {
int ch = devs_arg_int(ctx, i);
size += devs_utf8_from_code_point(ch, buf);
}
value_t r;
char *d = devs_string_prep(ctx, &r, size, len);
if (d) {
unsigned off = 0;
for (int i = 0; i < len; ++i) {
int ch = devs_arg_int(ctx, i);
off += devs_utf8_from_code_point(ch, d + off);
}
devs_string_finish(ctx, &r, size, len);
}
devs_ret(ctx, r);
}
void meth3_String_indexOf(devs_ctx_t *ctx) {
value_t str = devs_arg_self(ctx);
unsigned size;
const char *data = devs_string_get_utf8(ctx, str, &size);
value_t search = devs_arg(ctx, 0);
unsigned search_size;
const char *search_data = devs_string_get_utf8(ctx, search, &search_size);
int len = devs_string_length(ctx, str);
int start_ch = devs_arg_int(ctx, 1);
int end_ch = devs_arg_int_defl(ctx, 2, len);
int rev = 0;
if (end_ch < 0) {
end_ch = -end_ch;
rev = 1;
}
int r = -1;
int ptr = devs_string_index(ctx, str, start_ch);
if (search_data && ptr >= 0) {
while (start_ch < end_ch) {
if (ptr + search_size > size)
break;
if (memcmp(data + ptr, search_data, search_size) == 0) {
r = start_ch;
if (!rev)
break;
}
start_ch++;
ptr++;
while (ptr < (int)size && devs_utf8_is_cont(data[ptr]))
ptr++;
}
}
devs_ret_int(ctx, r);
}
static void meth0_String_toCase(devs_ctx_t *ctx, int lower) {
value_t str = devs_arg_self(ctx);
unsigned size;
const char *data = devs_string_get_utf8(ctx, str, &size);
if (!data)
return;
value_t r = devs_string_from_utf8(ctx, (const uint8_t *)data, size);
char *dp = (char *)devs_string_get_utf8(ctx, r, &size);
if (!dp)
return;
for (unsigned i = 0; i < size; ++i) {
char c = dp[i];
if (lower) {
if ('A' <= c && c <= 'Z')
c += 32;
} else {
if ('a' <= c && c <= 'z')
c -= 32;
}
dp[i] = c;
}
devs_ret(ctx, r);
}
void meth0_String_toLowerCase(devs_ctx_t *ctx) {
meth0_String_toCase(ctx, 1);
}
void meth0_String_toUpperCase(devs_ctx_t *ctx) {
meth0_String_toCase(ctx, 0);
}