forked from microsoft/devicescript
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathimpl_buffer.c
More file actions
125 lines (107 loc) · 3.69 KB
/
impl_buffer.c
File metadata and controls
125 lines (107 loc) · 3.69 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
#include "devs_internal.h"
static const void *buffer_data(devs_ctx_t *ctx, value_t v, unsigned *sz) {
if (!devs_is_buffer(ctx, v)) {
devs_throw_expecting_error(ctx, DEVS_BUILTIN_STRING_BUFFER, v);
return NULL;
}
return devs_buffer_data(ctx, v, sz);
}
static void *wr_buffer_data(devs_ctx_t *ctx, value_t v, unsigned *sz) {
if (!devs_buffer_is_writable(ctx, v)) {
devs_throw_expecting_error_ext(ctx, "mutable Buffer", v);
return NULL;
}
return devs_buffer_data(ctx, v, sz);
}
void fun1_Buffer_alloc(devs_ctx_t *ctx) {
unsigned sz = devs_arg_int(ctx, 0);
devs_ret_gc_ptr(ctx, devs_buffer_try_alloc(ctx, sz));
}
void fun1_Buffer_from(devs_ctx_t *ctx) {
value_t v = devs_arg(ctx, 0);
unsigned sz;
const uint8_t *d = devs_bufferish_data(ctx, v, &sz);
devs_buffer_t *buf = NULL;
if (d) {
buf = devs_buffer_try_alloc(ctx, sz);
if (buf)
memcpy(buf->data, d, sz);
} else {
if (devs_is_array(ctx, v)) {
devs_array_t *arr = devs_value_to_gc_obj(ctx, v);
buf = devs_buffer_try_alloc(ctx, arr->length);
if (buf)
for (unsigned i = 0; i < arr->length; ++i)
buf->data[i] = devs_value_to_int(ctx, arr->data[i]);
} else {
devs_throw_type_error(ctx, "Expecting string, buffer or array");
}
}
devs_ret_gc_ptr(ctx, buf);
}
value_t prop_Buffer_length(devs_ctx_t *ctx, value_t self) {
unsigned sz;
if (buffer_data(ctx, self, &sz))
return devs_value_from_int(sz);
else
return devs_undefined;
}
void meth1_Buffer_toString(devs_ctx_t *ctx) {
unsigned sz;
value_t enc = devs_arg(ctx, 0);
const uint8_t *data = buffer_data(ctx, devs_arg_self(ctx), &sz);
if (data) {
if (devs_value_eq_builtin_string(ctx, enc, DEVS_BUILTIN_STRING_HEX)) {
devs_string_t *s = devs_string_try_alloc(ctx, sz * 2);
if (s)
jd_to_hex(s->data, data, sz);
devs_ret_gc_ptr(ctx, s);
} else if (devs_is_null_or_undefined(enc) ||
devs_value_eq_builtin_string(ctx, enc, DEVS_BUILTIN_STRING_UTF8) ||
devs_value_eq_builtin_string(ctx, enc, DEVS_BUILTIN_STRING_UTF_8)) {
devs_ret(ctx, devs_string_from_utf8(ctx, data, sz));
} else {
devs_throw_type_error(ctx, "Unknown encoding: %s", devs_show_value(ctx, enc));
}
}
}
void meth3_Buffer_fillAt(devs_ctx_t *ctx) {
unsigned dlen;
uint8_t *dst = wr_buffer_data(ctx, devs_arg_self(ctx), &dlen);
if (dst == NULL)
return;
unsigned dst_offset = devs_arg_int(ctx, 0);
unsigned len = devs_arg_int(ctx, 1);
unsigned val = devs_arg_int(ctx, 2);
if (dst_offset >= dlen)
return;
dlen -= dst_offset;
if (dlen < len)
len = dlen;
memset(dst + dst_offset, val, len);
}
void meth4_Buffer_blitAt(devs_ctx_t *ctx) {
unsigned slen, dlen;
uint8_t *dst = wr_buffer_data(ctx, devs_arg_self(ctx), &dlen);
if (dst == NULL)
return;
uint32_t dst_offset = devs_arg_int(ctx, 0);
value_t src_ = devs_arg(ctx, 1);
const uint8_t *src = devs_is_string(ctx, src_) ? devs_string_get_utf8(ctx, src_, &slen)
: buffer_data(ctx, src_, &slen);
if (src == NULL)
return;
uint32_t src_offset = devs_arg_int(ctx, 2);
uint32_t len = devs_arg_int(ctx, 3);
if (src_offset >= slen)
return;
slen -= src_offset;
if (slen < len)
len = slen;
if (dst_offset >= dlen)
return;
dlen -= dst_offset;
if (dlen < len)
len = dlen;
memcpy(dst + dst_offset, src + src_offset, len);
}