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
|
///////// BIGSTRING
//Provides: caml_hash_mix_bigstring
//Requires: caml_hash_mix_bytes_arr
function caml_hash_mix_bigstring(h, bs) {
return caml_hash_mix_bytes_arr(h, bs.data);
}
//Provides: bigstring_to_array_buffer mutable
function bigstring_to_array_buffer(bs) {
return bs.data.buffer;
}
//Provides: bigstring_to_typed_array mutable
function bigstring_to_typed_array(bs) {
return bs.data;
}
//Provides: bigstring_of_array_buffer mutable
//Requires: caml_ba_create_unsafe
function bigstring_of_array_buffer(ab) {
var ta = new Uint8Array(ab);
return caml_ba_create_unsafe(12, 0, [ta.length], ta);
}
//Provides: bigstring_of_typed_array mutable
//Requires: caml_ba_create_unsafe
function bigstring_of_typed_array(ba) {
var ta = new Uint8Array(
ba.buffer,
ba.byteOffset,
ba.length * ba.BYTES_PER_ELEMENT,
);
return caml_ba_create_unsafe(12, 0, [ta.length], ta);
}
//Provides: caml_bigstring_memcmp
//Requires: caml_ba_get_1
function caml_bigstring_memcmp(s1, pos1, s2, pos2, len) {
for (var i = 0; i < len; i++) {
var a = caml_ba_get_1(s1, pos1 + i);
var b = caml_ba_get_1(s2, pos2 + i);
if (a < b) return -1;
if (a > b) return 1;
}
return 0;
}
//Provides: caml_bigstring_blit_ba_to_ba
//Requires: caml_invalid_argument, caml_array_bound_error
function caml_bigstring_blit_ba_to_ba(ba1, pos1, ba2, pos2, len) {
if (12 !== ba1.kind)
caml_invalid_argument("caml_bigstring_blit_ba_to_ba: kind mismatch");
if (12 !== ba2.kind)
caml_invalid_argument("caml_bigstring_blit_ba_to_ba: kind mismatch");
if (len === 0) return 0;
var ofs1 = ba1.offset(pos1);
var ofs2 = ba2.offset(pos2);
if (ofs1 + len > ba1.data.length) {
caml_array_bound_error();
}
if (ofs2 + len > ba2.data.length) {
caml_array_bound_error();
}
var slice = ba1.data.subarray(ofs1, ofs1 + len);
ba2.data.set(slice, pos2);
return 0;
}
//Provides: caml_bigstring_blit_string_to_ba
//Requires: caml_invalid_argument, caml_array_bound_error, caml_uint8_array_of_string
//Requires: caml_ml_string_length
function caml_bigstring_blit_string_to_ba(str1, pos1, ba2, pos2, len) {
if (12 !== ba2.kind)
caml_invalid_argument("caml_bigstring_blit_string_to_ba: kind mismatch");
if (len === 0) return 0;
var ofs2 = ba2.offset(pos2);
if (pos1 + len > caml_ml_string_length(str1)) {
caml_array_bound_error();
}
if (ofs2 + len > ba2.data.length) {
caml_array_bound_error();
}
var slice = caml_uint8_array_of_string(str1).subarray(pos1, pos1 + len);
ba2.data.set(slice, ofs2);
return 0;
}
//Provides: caml_bigstring_blit_bytes_to_ba
//Requires: caml_invalid_argument, caml_array_bound_error, caml_uint8_array_of_bytes
//Requires: caml_ml_bytes_length
function caml_bigstring_blit_bytes_to_ba(str1, pos1, ba2, pos2, len) {
if (12 !== ba2.kind)
caml_invalid_argument("caml_bigstring_blit_string_to_ba: kind mismatch");
if (len === 0) return 0;
var ofs2 = ba2.offset(pos2);
if (pos1 + len > caml_ml_bytes_length(str1)) {
caml_array_bound_error();
}
if (ofs2 + len > ba2.data.length) {
caml_array_bound_error();
}
var slice = caml_uint8_array_of_bytes(str1).subarray(pos1, pos1 + len);
ba2.data.set(slice, ofs2);
return 0;
}
//Provides: caml_bigstring_blit_ba_to_bytes
//Requires: caml_invalid_argument, caml_array_bound_error
//Requires: caml_blit_bytes, caml_bytes_of_uint8_array
//Requires: caml_ml_bytes_length
function caml_bigstring_blit_ba_to_bytes(ba1, pos1, bytes2, pos2, len) {
if (12 !== ba1.kind)
caml_invalid_argument("caml_bigstring_blit_string_to_ba: kind mismatch");
if (len === 0) return 0;
var ofs1 = ba1.offset(pos1);
if (ofs1 + len > ba1.data.length) {
caml_array_bound_error();
}
if (pos2 + len > caml_ml_bytes_length(bytes2)) {
caml_array_bound_error();
}
var slice = ba1.data.subarray(ofs1, ofs1 + len);
caml_blit_bytes(caml_bytes_of_uint8_array(slice), 0, bytes2, pos2, len);
return 0;
}
|
