mirror of https://github.com/svaarala/duktape.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
63 lines
2.2 KiB
63 lines
2.2 KiB
/*
|
|
* Misc support functions
|
|
*/
|
|
|
|
#include "duk_internal.h"
|
|
|
|
DUK_INTERNAL duk_ucodepoint_t duk_hstring_char_code_at_raw(duk_hthread *thr, duk_hstring *h, duk_uint_t pos, duk_bool_t surrogate_aware) {
|
|
duk_uint32_t boff;
|
|
const duk_uint8_t *p, *p_start, *p_end;
|
|
duk_ucodepoint_t cp1;
|
|
duk_ucodepoint_t cp2;
|
|
|
|
/* Caller must check character offset to be inside the string. */
|
|
DUK_ASSERT(thr != NULL);
|
|
DUK_ASSERT(h != NULL);
|
|
DUK_ASSERT_DISABLE(pos >= 0); /* unsigned */
|
|
DUK_ASSERT(pos < (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h));
|
|
|
|
boff = duk_heap_strcache_offset_char2byte(thr, h, (duk_uint32_t) pos);
|
|
DUK_DDD(DUK_DDDPRINT("charCodeAt: pos=%ld -> boff=%ld, str=%!O",
|
|
(long) pos, (long) boff, (duk_heaphdr *) h));
|
|
DUK_ASSERT_DISABLE(boff >= 0);
|
|
DUK_ASSERT(boff < DUK_HSTRING_GET_BYTELEN(h));
|
|
|
|
p_start = DUK_HSTRING_GET_DATA(h);
|
|
p_end = p_start + DUK_HSTRING_GET_BYTELEN(h);
|
|
p = p_start + boff;
|
|
DUK_DDD(DUK_DDDPRINT("p_start=%p, p_end=%p, p=%p",
|
|
(const void *) p_start, (const void *) p_end,
|
|
(const void *) p));
|
|
|
|
/* For invalid UTF-8 (never happens for standard Ecmascript strings)
|
|
* return U+FFFD replacement character.
|
|
*/
|
|
if (duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp1)) {
|
|
if (surrogate_aware && cp1 >= 0xd800UL && cp1 <= 0xdbffUL) {
|
|
/* The decode helper is memory safe even if 'cp1' was
|
|
* decoded at the end of the string and 'p' is no longer
|
|
* within string memory range.
|
|
*/
|
|
cp2 = 0; /* If call fails, this is left untouched and won't match cp2 check. */
|
|
(void) duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp2);
|
|
if (cp2 >= 0xdc00UL && cp2 <= 0xdfffUL) {
|
|
cp1 = ((cp1 - 0xd800UL) << 10) + (cp2 - 0xdc00UL) + 0x10000UL;
|
|
}
|
|
}
|
|
} else {
|
|
cp1 = DUK_UNICODE_CP_REPLACEMENT_CHARACTER;
|
|
}
|
|
|
|
return cp1;
|
|
}
|
|
|
|
#if !defined(DUK_USE_HSTRING_CLEN)
|
|
DUK_INTERNAL duk_size_t duk_hstring_get_charlen(duk_hstring *h) {
|
|
if (DUK_HSTRING_HAS_ASCII(h)) {
|
|
/* Most practical strings will go here. */
|
|
return DUK_HSTRING_GET_BYTELEN(h);
|
|
} else {
|
|
return duk_unicode_unvalidated_utf8_length(DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h));
|
|
}
|
|
}
|
|
#endif /* !DUK_USE_HSTRING_CLEN */
|
|
|