Page MenuHomePhorge
Files F2916309

regex.c
No OneTemporary
Actions

Size
52 KB
Referenced Files
None
Subscribers
None

regex.c
View Options

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include "ant.h"
#include "errors.h"
#include "runtime.h"
#include "internal.h"
#include "silver/engine.h"
#include "arena.h"
#include "utils.h"
#include "gc.h"
#include "utf8.h"
#include "descriptors.h"
#include "escape.h"
#include "modules/regex.h"
#include "modules/symbol.h"
#include <pcre2.h>
typedef struct {
jsoff_t obj_offset;
pcre2_code *code;
pcre2_match_data *match_data;
} regex_cache_entry_t;
static regex_cache_entry_t *regex_cache = NULL;
static size_t regex_cache_count = 0;
static size_t regex_cache_cap = 0;
static void update_regexp_statics(ant_t *js, const char *str_ptr, PCRE2_SIZE *ovector, uint32_t ovcount) {
jsval_t regexp_ctor = js_get(js, js_glob(js), "RegExp");
if (is_err(regexp_ctor) || vtype(regexp_ctor) == T_UNDEF) return;
jsval_t empty = js_mkstr(js, "", 0);
for (int i = 1; i <= 9; i++) {
char key[3] = {'$', (char)('0' + i), '\0'};
jsval_t val = empty;
if ((uint32_t)i < ovcount && ovector[2*i] != PCRE2_UNSET)
val = js_mkstr(js, str_ptr + ovector[2*i], ovector[2*i+1] - ovector[2*i]);
js_set(js, regexp_ctor, key, val);
}
jsval_t match0 = empty;
if (ovcount > 0 && ovector[0] != PCRE2_UNSET)
match0 = js_mkstr(js, str_ptr + ovector[0], ovector[1] - ovector[0]);
js_set(js, regexp_ctor, "lastMatch", match0);
js_set(js, regexp_ctor, "$&", match0);
}
static inline bool is_pcre2_passthrough_escape(char c) {
switch (c) {
case 'd': case 'D': case 'w': case 'W': case 's': case 'S':
case 'b': case 'B': case 'n': case 'r': case 't': case 'f':
case '1': case '2': case '3': case '4': case '5':
case '6': case '7': case '8': case '9':
case '.': case '*': case '+': case '?':
case '(': case ')': case '[': case ']':
case '{': case '}': case '|': case '^':
case '$': case '\\': case '/': case '-': return true;
default: return false;
}}
static inline bool is_class_shorthand(char c) {
return c == 'w' || c == 'W' || c == 'd' || c == 'D' || c == 's' || c == 'S';
}
size_t js_to_pcre2_pattern(const char *src, size_t src_len, char *dst, size_t dst_size) {
size_t di = 0;
bool in_charclass = false;
#define OUT(ch) do { if (di < dst_size - 1) dst[di++] = (ch); } while(0)
for (size_t si = 0; si < src_len && di < dst_size - 1; si++) {
if (src[si] == '[' && !in_charclass) {
in_charclass = true;
OUT('[');
continue;
}
if (src[si] == ']' && in_charclass) {
in_charclass = false;
OUT(']');
continue;
}
if (in_charclass && src[si] == '-' && si > 0 && src[si - 1] != '[' &&
si + 1 < src_len && src[si + 1] != ']') {
bool prev_is_shorthand = (si >= 2 && src[si - 2] == '\\' && is_class_shorthand(src[si - 1]));
bool next_is_shorthand = (si + 2 < src_len && src[si + 1] == '\\' && is_class_shorthand(src[si + 2]));
if (prev_is_shorthand || next_is_shorthand) {
OUT('\\'); OUT('-');
continue;
}
OUT('-');
continue;
}
if (src[si] != '\\' || si + 1 >= src_len) {
OUT(src[si]);
continue;
}
char next = src[si + 1];
if (next == 'v') {
OUT('\\'); OUT('x'); OUT('{'); OUT('0'); OUT('b'); OUT('}');
si++;
continue;
}
if (next == 'u' && si + 2 < src_len && src[si + 2] == '{') {
size_t brace_start = si + 3;
size_t brace_end = brace_start;
while (brace_end < src_len && src[brace_end] != '}' && is_xdigit(src[brace_end])) brace_end++;
if (brace_end < src_len && src[brace_end] == '}' && brace_end > brace_start) {
OUT('\\'); OUT('x'); OUT('{');
for (size_t k = brace_start; k < brace_end; k++) OUT(src[k]);
OUT('}');
si = brace_end;
continue;
}
}
if (next == 'u' && si + 5 < src_len &&
is_xdigit(src[si+2]) && is_xdigit(src[si+3]) &&
is_xdigit(src[si+4]) && is_xdigit(src[si+5])) {
OUT('\\'); OUT('x'); OUT('{');
OUT(src[si+2]); OUT(src[si+3]); OUT(src[si+4]); OUT(src[si+5]);
OUT('}');
si += 5;
continue;
}
if (next == 'u') {
si++;
OUT('u');
continue;
}
if (next == 'x' && si + 3 < src_len &&
is_xdigit(src[si+2]) && is_xdigit(src[si+3])) {
OUT('\\'); OUT('x'); OUT(src[si+2]); OUT(src[si+3]);
si += 3;
continue;
}
if (next == 'x') {
si++;
OUT('x');
continue;
}
if (next == '0' && (si + 2 >= src_len || src[si+2] < '0' || src[si+2] > '9')) {
OUT('\\'); OUT('x'); OUT('{'); OUT('0'); OUT('}');
si++;
continue;
}
if (next >= '0' && next <= '7') {
unsigned int octal = next - '0';
size_t advance = 1;
if (si + 2 < src_len && src[si+2] >= '0' && src[si+2] <= '7') {
octal = octal * 8 + (src[si+2] - '0');
advance = 2;
if (si + 3 < src_len && src[si+3] >= '0' && src[si+3] <= '7' && octal * 8 + (src[si+3] - '0') <= 255) {
octal = octal * 8 + (src[si+3] - '0');
advance = 3;
}
}
if (advance > 1 || next == '0') {
char hex[8];
int hlen = snprintf(hex, sizeof(hex), "\\x{%02x}", octal);
for (int k = 0; k < hlen && di < dst_size - 1; k++) OUT(hex[k]);
si += advance;
continue;
}
}
if (next == 'c' && si + 2 < src_len &&
((src[si+2] >= 'A' && src[si+2] <= 'Z') || (src[si+2] >= 'a' && src[si+2] <= 'z'))) {
OUT('\\'); OUT('c'); OUT(src[si+2]);
si += 2;
continue;
}
if (next == 'c') {
OUT('\\'); OUT('\\'); OUT('c');
si++;
continue;
}
if ((next == 'p' || next == 'P') && si + 2 < src_len && src[si + 2] == '{') {
size_t brace_start = si + 3;
size_t brace_end = brace_start;
while (brace_end < src_len && src[brace_end] != '}') brace_end++;
if (brace_end < src_len && src[brace_end] == '}') {
const char *prop = &src[brace_start];
size_t prop_len = brace_end - brace_start;
static const struct { const char *name; const char *code; } gc_map[] = {
{"Letter","L"},{"Cased_Letter","LC"},{"Uppercase_Letter","Lu"},
{"Lowercase_Letter","Ll"},{"Titlecase_Letter","Lt"},
{"Modifier_Letter","Lm"},{"Other_Letter","Lo"},
{"Mark","M"},{"Nonspacing_Mark","Mn"},{"Spacing_Mark","Mc"},
{"Enclosing_Mark","Me"},
{"Number","N"},{"Decimal_Number","Nd"},{"Letter_Number","Nl"},
{"Other_Number","No"},
{"Punctuation","P"},{"Connector_Punctuation","Pc"},
{"Dash_Punctuation","Pd"},{"Open_Punctuation","Ps"},
{"Close_Punctuation","Pe"},{"Initial_Punctuation","Pi"},
{"Final_Punctuation","Pf"},{"Other_Punctuation","Po"},
{"Symbol","S"},{"Math_Symbol","Sm"},{"Currency_Symbol","Sc"},
{"Modifier_Symbol","Sk"},{"Other_Symbol","So"},
{"Separator","Z"},{"Space_Separator","Zs"},
{"Line_Separator","Zl"},{"Paragraph_Separator","Zp"},
{"Other","C"},{"Control","Cc"},{"Format","Cf"},
{"Surrogate","Cs"},{"Private_Use","Co"},{"Unassigned","Cn"},
};
static const struct { const char *script; const char *range; } u17_scripts[] = {
{"Sidetic", "\\x{10940}-\\x{1095F}"},
{"Garay", "\\x{10D40}-\\x{10D8F}"},
{"Gurung_Khema", "\\x{16100}-\\x{1613F}"},
{"Kirat_Rai", "\\x{16D40}-\\x{16D7F}"},
{"Ol_Onal", "\\x{1E5D0}-\\x{1E5FF}"},
{"Sunuwar", "\\x{11BC0}-\\x{11BFF}"},
{"Tulu_Tigalari", "\\x{11380}-\\x{113FF}"},
};
bool has_eq = (memchr(prop, '=', prop_len) != NULL);
bool has_colon = (memchr(prop, ':', prop_len) != NULL);
if (has_eq || has_colon) {
char sep = has_eq ? '=' : ':';
const char *val = memchr(prop, sep, prop_len);
if (val) {
val++;
size_t val_len = prop_len - (size_t)(val - prop);
for (size_t m = 0; m < sizeof(u17_scripts)/sizeof(u17_scripts[0]); m++) {
if (strlen(u17_scripts[m].script) == val_len &&
memcmp(u17_scripts[m].script, val, val_len) == 0) {
const char *r = u17_scripts[m].range;
OUT('[');
if (next == 'P') OUT('^');
for (; *r; r++) OUT(*r);
OUT(']');
si = brace_end;
goto next_char;
}
}
}
}
const char *replacement = NULL;
if (!has_eq && !has_colon) {
for (size_t m = 0; m < sizeof(gc_map)/sizeof(gc_map[0]); m++) {
if (strlen(gc_map[m].name) == prop_len &&
memcmp(gc_map[m].name, prop, prop_len) == 0) {
replacement = gc_map[m].code;
break;
}
}
}
static const struct { const char *prop; const char *extra; } u17_props[] = {
{"Emoji", "\\x{1FACD}-\\x{1FACE}\\x{1FAE9}\\x{1FAF9}"},
};
const char *extra_range = NULL;
if (!has_eq && !has_colon && !replacement) {
for (size_t m = 0; m < sizeof(u17_props)/sizeof(u17_props[0]); m++) {
if (strlen(u17_props[m].prop) == prop_len &&
memcmp(u17_props[m].prop, prop, prop_len) == 0) {
extra_range = u17_props[m].extra;
break;
}
}
}
if (extra_range && !in_charclass) {
const char *pfx = (next == 'p') ? "(?:\\p{" : "(?:\\P{";
for (const char *r = pfx; *r; r++) OUT(*r);
for (size_t k = brace_start; k < brace_end; k++) OUT(src[k]);
OUT('}'); OUT('|'); OUT('[');
if (next == 'P') OUT('^');
for (const char *r = extra_range; *r; r++) OUT(*r);
OUT(']'); OUT(')');
} else {
OUT('\\'); OUT(next); OUT('{');
if (replacement) {
for (const char *r = replacement; *r; r++) OUT(*r);
} else {
for (size_t k = brace_start; k < brace_end; k++) OUT(src[k]);
}
OUT('}');
}
si = brace_end;
continue;
}
OUT('\\'); OUT(next);
si++;
continue;
}
if (is_pcre2_passthrough_escape(next)) {
OUT('\\'); OUT(next);
si++;
continue;
}
si++;
OUT(next);
next_char:;
}
#undef OUT
dst[di] = '\0';
return di;
}
#define REGEXP_SET_PROP(js, obj, key, klen, val, is_new) \
((is_new) ? js_mkprop_fast(js, obj, key, klen, val) \
: js_setprop(js, obj, js_mkstr(js, key, klen), val))
static void regexp_init_flags(ant_t *js, jsval_t obj, const char *fstr, jsoff_t flen, bool is_new) {
bool g = false, i = false, m = false, s = false, u = false, y = false;
for (jsoff_t k = 0; k < flen; k++) {
if (fstr[k] == 'g') g = true;
if (fstr[k] == 'i') i = true;
if (fstr[k] == 'm') m = true;
if (fstr[k] == 's') s = true;
if (fstr[k] == 'u') u = true;
if (fstr[k] == 'y') y = true;
}
char sorted[8]; int si = 0;
if (g) sorted[si++] = 'g';
if (i) sorted[si++] = 'i';
if (m) sorted[si++] = 'm';
if (s) sorted[si++] = 's';
if (u) sorted[si++] = 'u';
if (y) sorted[si++] = 'y';
REGEXP_SET_PROP(js, obj, "flags", 5, js_mkstr(js, sorted, si), is_new);
REGEXP_SET_PROP(js, obj, "global", 6, mkval(T_BOOL, g ? 1 : 0), is_new);
REGEXP_SET_PROP(js, obj, "ignoreCase", 10, mkval(T_BOOL, i ? 1 : 0), is_new);
REGEXP_SET_PROP(js, obj, "multiline", 9, mkval(T_BOOL, m ? 1 : 0), is_new);
REGEXP_SET_PROP(js, obj, "dotAll", 6, mkval(T_BOOL, s ? 1 : 0), is_new);
REGEXP_SET_PROP(js, obj, "unicode", 7, mkval(T_BOOL, u ? 1 : 0), is_new);
REGEXP_SET_PROP(js, obj, "sticky", 6, mkval(T_BOOL, y ? 1 : 0), is_new);
REGEXP_SET_PROP(js, obj, "lastIndex", 9, tov(0), is_new);
}
jsval_t is_regexp_like(ant_t *js, jsval_t value) {
if (!is_object_type(value)) return js_false;
jsval_t match_sym = get_match_sym();
if (vtype(match_sym) == T_SYMBOL) {
jsval_t match_val = js_get_sym(js, value, match_sym);
if (is_err(match_val)) return match_val;
if (vtype(match_val) != T_UNDEF) return js_bool(js_truthy(js, match_val));
}
jsval_t regexp_ctor = js_get(js, js_glob(js), "RegExp");
if (is_err(regexp_ctor)) return regexp_ctor;
jsval_t regexp_proto = js_get(js, regexp_ctor, "prototype");
if (is_err(regexp_proto)) return regexp_proto;
if (!is_object_type(regexp_proto)) return js_false;
return js_bool(proto_chain_contains(js, value, regexp_proto));
}
static jsval_t should_regexp_passthrough(ant_t *js, jsval_t *args, int nargs) {
if (vtype(js->new_target) != T_UNDEF) return js_false;
if (nargs <= 0) return js_false;
if (nargs >= 2 && vtype(args[1]) != T_UNDEF) return js_false;
if (!is_object_type(args[0])) return js_false;
jsval_t is_re = is_regexp_like(js, args[0]);
if (is_err(is_re)) return is_re;
if (!js_truthy(js, is_re)) return js_false;
jsval_t ctor = js_getprop_fallback(js, args[0], "constructor");
if (is_err(ctor)) return ctor;
jsval_t regexp_ctor = js_get(js, js_glob(js), "RegExp");
if (is_err(regexp_ctor)) return regexp_ctor;
return js_bool(same_ctor_identity(js, ctor, regexp_ctor));
}
jsval_t reject_regexp_arg(ant_t *js, jsval_t value, const char *method_name) {
jsval_t is_re = is_regexp_like(js, value);
if (is_err(is_re)) return is_re;
if (js_truthy(js, is_re)) {
return js_mkerr_typed(js, JS_ERR_TYPE, "First argument to %s must not be a RegExp", method_name);
}
return js_mkundef();
}
static jsval_t regexp_species_construct(ant_t *js, jsval_t rx, jsval_t ctor, jsval_t *ctor_args, int nargs) {
jsval_t seed = js_mkobj(js);
if (is_err(seed)) return seed;
jsval_t proto = js_get(js, ctor, "prototype");
if (is_err(proto)) return proto;
if (is_object_type(proto)) js_set_proto(js, seed, proto);
jsval_t saved = js->new_target;
js->new_target = ctor;
jsval_t result = sv_vm_call(js->vm, js, ctor, seed, ctor_args, nargs, NULL, true);
js->new_target = saved;
if (is_err(result)) return result;
if (!is_object_type(result))
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp species constructor returned non-object");
return result;
}
static jsval_t regexp_exec_abstract(ant_t *js, jsval_t rx, jsval_t str);
static jsval_t builtin_regexp_exec(ant_t *js, jsval_t *args, int nargs);
static regex_cache_entry_t *regex_cache_lookup(jsoff_t obj_offset) {
for (size_t i = 0; i < regex_cache_count; i++) {
if (regex_cache[i].obj_offset == obj_offset) return &regex_cache[i];
}
return NULL;
}
static regex_cache_entry_t *regex_cache_insert(jsoff_t obj_offset, pcre2_code *code, pcre2_match_data *match_data) {
if (regex_cache_count >= regex_cache_cap) {
size_t new_cap = regex_cache_cap ? regex_cache_cap * 2 : 64;
regex_cache_entry_t *new_cache = realloc(regex_cache, new_cap * sizeof(regex_cache_entry_t));
if (!new_cache) return NULL;
regex_cache = new_cache;
regex_cache_cap = new_cap;
}
regex_cache_entry_t *entry = &regex_cache[regex_cache_count++];
entry->obj_offset = obj_offset;
entry->code = code;
entry->match_data = match_data;
return entry;
}
typedef struct {
pcre2_code *code;
pcre2_match_data *match_data;
} compiled_regex_t;
static bool regex_get_or_compile(ant_t *js, jsval_t regexp_obj, compiled_regex_t *out) {
jsoff_t obj_off = (jsoff_t)vdata(regexp_obj);
regex_cache_entry_t *cached = regex_cache_lookup(obj_off);
if (cached) {
out->code = cached->code;
out->match_data = cached->match_data;
return true;
}
jsoff_t source_off = lkp(js, regexp_obj, "source", 6);
if (source_off == 0) return false;
jsval_t source_val = resolveprop(js, mkval(T_PROP, source_off));
if (vtype(source_val) != T_STR) return false;
jsoff_t plen, poff = vstr(js, source_val, &plen);
const char *pattern_ptr = (char *)&js->mem[poff];
bool ignore_case = false, multiline = false, dotall = false, sticky = false, unicode = false;
jsoff_t flags_off = lkp(js, regexp_obj, "flags", 5);
if (flags_off != 0) {
jsval_t flags_val = resolveprop(js, mkval(T_PROP, flags_off));
if (vtype(flags_val) == T_STR) {
jsoff_t flen, foff = vstr(js, flags_val, &flen);
const char *flags_str = (char *)&js->mem[foff];
for (jsoff_t i = 0; i < flen; i++) {
if (flags_str[i] == 'i') ignore_case = true;
if (flags_str[i] == 'm') multiline = true;
if (flags_str[i] == 's') dotall = true;
if (flags_str[i] == 'y') sticky = true;
if (flags_str[i] == 'u') unicode = true;
}
}
}
char pcre2_pattern[4096];
size_t pcre2_len = js_to_pcre2_pattern(pattern_ptr, plen, pcre2_pattern, sizeof(pcre2_pattern));
uint32_t options = PCRE2_UTF | PCRE2_UCP | PCRE2_MATCH_UNSET_BACKREF | PCRE2_DUPNAMES;
if (ignore_case) options |= PCRE2_CASELESS;
if (multiline) options |= PCRE2_MULTILINE;
if (dotall) options |= PCRE2_DOTALL;
(void)sticky;
(void)unicode;
int errcode;
PCRE2_SIZE erroffset;
pcre2_code *re = pcre2_compile((PCRE2_SPTR)pcre2_pattern, pcre2_len, options, &errcode, &erroffset, NULL);
if (re == NULL) return false;
pcre2_match_data *match_data = pcre2_match_data_create_from_pattern(re, NULL);
regex_cache_insert(obj_off, re, match_data);
out->code = re;
out->match_data = match_data;
return true;
}
static jsval_t builtin_RegExp(ant_t *js, jsval_t *args, int nargs) {
bool pattern_is_regexp = false;
if (nargs > 0) {
jsval_t is_re = is_regexp_like(js, args[0]);
if (is_err(is_re)) return is_re;
pattern_is_regexp = js_truthy(js, is_re);
}
if (vtype(js->new_target) == T_UNDEF && nargs > 0 && pattern_is_regexp) {
if (nargs < 2 || vtype(args[1]) == T_UNDEF) {
jsval_t ctor = js_getprop_fallback(js, args[0], "constructor");
if (is_err(ctor)) return ctor;
jsval_t regexp_ctor = js_get(js, js_glob(js), "RegExp");
if (is_err(regexp_ctor)) return regexp_ctor;
if (same_ctor_identity(js, ctor, regexp_ctor)) return args[0];
}
}
jsval_t regexp_obj = js->this_val;
bool use_this = (vtype(js->new_target) != T_UNDEF && vtype(regexp_obj) == T_OBJ);
if (!use_this) {
regexp_obj = mkobj(js, 0);
if (is_err(regexp_obj)) return regexp_obj;
}
jsval_t regexp_proto = js_get_ctor_proto(js, "RegExp", 6);
jsval_t instance_proto = js_instance_proto_from_new_target(js, regexp_proto);
if (is_object_type(instance_proto)) js_set_proto(js, regexp_obj, instance_proto);
if (vtype(js->new_target) == T_FUNC || vtype(js->new_target) == T_CFUNC) {
js_set_slot(js, regexp_obj, SLOT_CTOR, js->new_target);
}
jsval_t pattern = js_mkstr(js, "", 0);
jsval_t flags = js_mkstr(js, "", 0);
if (nargs > 0) {
if (pattern_is_regexp) {
jsval_t src = js_getprop_fallback(js, args[0], "source");
if (is_err(src)) return src;
pattern = js_tostring_val(js, src);
if (is_err(pattern)) return pattern;
if (nargs >= 2 && vtype(args[1]) != T_UNDEF) {
flags = js_tostring_val(js, args[1]);
} else {
jsval_t fl = js_getprop_fallback(js, args[0], "flags");
if (is_err(fl)) return fl;
flags = js_tostring_val(js, fl);
}
if (is_err(flags)) return flags;
} else if (vtype(args[0]) == T_STR) {
pattern = args[0];
if (nargs > 1 && vtype(args[1]) == T_STR) flags = args[1];
} else if (vtype(args[0]) != T_UNDEF) {
jsval_t s = js_tostring_val(js, args[0]);
if (is_err(s)) return s;
pattern = s;
if (nargs > 1 && vtype(args[1]) == T_STR) flags = args[1];
}
}
js_mkprop_fast(js, regexp_obj, "source", 6, pattern);
jsoff_t flags_len, flags_off = vstr(js, flags, &flags_len);
regexp_init_flags(js, regexp_obj, (const char *)&js->mem[flags_off], flags_len, true);
return regexp_obj;
}
static jsval_t builtin_regexp_exec(ant_t *js, jsval_t *args, int nargs) {
jsval_t regexp = js->this_val;
if (vtype(regexp) != T_OBJ) return js_mkerr(js, "exec called on non-regexp");
if (nargs < 1) return js_mknull();
jsval_t str_arg = args[0];
if (vtype(str_arg) != T_STR) return js_mknull();
jsoff_t str_len, str_off = vstr(js, str_arg, &str_len);
const char *str_ptr = (char *)&js->mem[str_off];
bool global_flag = false, sticky_flag = false;
jsoff_t flags_off = lkp(js, regexp, "flags", 5);
if (flags_off != 0) {
jsval_t flags_val = resolveprop(js, mkval(T_PROP, flags_off));
if (vtype(flags_val) == T_STR) {
jsoff_t flen, foff = vstr(js, flags_val, &flen);
const char *flags_str = (char *)&js->mem[foff];
for (jsoff_t i = 0; i < flen; i++) {
if (flags_str[i] == 'g') global_flag = true;
if (flags_str[i] == 'y') sticky_flag = true;
}
}
}
PCRE2_SIZE start_offset = 0;
if (global_flag || sticky_flag) {
jsoff_t lastindex_off = lkp(js, regexp, "lastIndex", 9);
if (lastindex_off != 0) {
jsval_t li_val = resolveprop(js, mkval(T_PROP, lastindex_off));
if (vtype(li_val) == T_NUM) {
double li = tod(li_val);
if (li >= 0 && li <= (double)str_len) start_offset = (PCRE2_SIZE)li;
else {
js_setprop(js, regexp, js_mkstr(js, "lastIndex", 9), tov(0));
return js_mknull();
}
}
}
}
compiled_regex_t compiled;
if (!regex_get_or_compile(js, regexp, &compiled)) return js_mknull();
uint32_t match_options = 0;
if (sticky_flag) match_options |= PCRE2_ANCHORED;
int rc = pcre2_match(compiled.code, (PCRE2_SPTR)str_ptr, str_len, start_offset, match_options, compiled.match_data, NULL);
if (rc < 0) {
if (global_flag || sticky_flag) {
js_setprop(js, regexp, js_mkstr(js, "lastIndex", 9), tov(0));
}
return js_mknull();
}
PCRE2_SIZE *ovector = pcre2_get_ovector_pointer(compiled.match_data);
uint32_t ovcount = pcre2_get_ovector_count(compiled.match_data);
jsval_t result_arr = js_mkarr(js);
for (uint32_t i = 0; i < ovcount && i < 32; i++) {
PCRE2_SIZE start = ovector[2*i];
PCRE2_SIZE end = ovector[2*i+1];
if (start == PCRE2_UNSET) {
js_arr_push(js, result_arr, js_mkundef());
} else {
jsval_t match_str = js_mkstr(js, str_ptr + start, end - start);
js_arr_push(js, result_arr, match_str);
}
}
js_setprop(js, result_arr, js_mkstr(js, "index", 5), tov((double)ovector[0]));
js_setprop(js, result_arr, js_mkstr(js, "input", 5), str_arg);
uint32_t namecount = 0;
pcre2_pattern_info(compiled.code, PCRE2_INFO_NAMECOUNT, &namecount);
if (namecount > 0) {
uint32_t nameentrysize = 0;
PCRE2_SPTR nametable = NULL;
pcre2_pattern_info(compiled.code, PCRE2_INFO_NAMEENTRYSIZE, &nameentrysize);
pcre2_pattern_info(compiled.code, PCRE2_INFO_NAMETABLE, (void *)&nametable);
jsval_t groups = js_mkobj(js);
js_set_proto(js, groups, js_mknull());
PCRE2_SPTR tabptr = nametable;
for (uint32_t i = 0; i < namecount; i++) {
int n = (tabptr[0] << 8) | tabptr[1];
const char *name = (const char *)(tabptr + 2);
jsval_t val = ((uint32_t)n < ovcount) ? js_arr_get(js, result_arr, n) : js_mkundef();
js_setprop(js, groups, js_mkstr(js, name, strlen(name)), val);
tabptr += nameentrysize;
}
js_setprop(js, result_arr, js_mkstr(js, "groups", 6), groups);
} else {
js_setprop(js, result_arr, js_mkstr(js, "groups", 6), js_mkundef());
}
update_regexp_statics(js, str_ptr, ovector, ovcount);
if (global_flag || sticky_flag) {
js_setprop(js, regexp, js_mkstr(js, "lastIndex", 9), tov((double)ovector[1]));
}
return result_arr;
}
static jsval_t builtin_regexp_toString(ant_t *js, jsval_t *args, int nargs) {
(void)args; (void)nargs;
jsval_t regexp = js->this_val;
if (!is_object_type(regexp))
return js_mkerr_typed(js, JS_ERR_TYPE, "toString called on non-object");
jsval_t source_val = js_getprop_fallback(js, regexp, "source");
if (is_err(source_val)) return source_val;
jsval_t source_str = js_tostring_val(js, source_val);
if (is_err(source_str)) return source_str;
jsval_t flags_val = js_getprop_fallback(js, regexp, "flags");
if (is_err(flags_val)) return flags_val;
jsval_t flags_str = js_tostring_val(js, flags_val);
if (is_err(flags_str)) return flags_str;
jsoff_t src_len, src_off = vstr(js, source_str, &src_len);
jsoff_t fl_len, fl_off = vstr(js, flags_str, &fl_len);
size_t total = 1 + src_len + 1 + fl_len;
char *buf = ant_calloc(total + 1);
if (!buf) return js_mkerr(js, "oom");
size_t n = 0;
buf[n++] = '/';
memcpy(buf + n, &js->mem[src_off], src_len); n += src_len;
buf[n++] = '/';
memcpy(buf + n, &js->mem[fl_off], fl_len); n += fl_len;
jsval_t result = js_mkstr(js, buf, n);
free(buf);
return result;
}
static jsval_t builtin_regexp_compile(ant_t *js, jsval_t *args, int nargs) {
jsval_t rx = js->this_val;
if (!is_object_type(rx))
return js_mkerr_typed(js, JS_ERR_TYPE, "compile called on non-object");
jsval_t pattern = js_mkstr(js, "", 0);
jsval_t flags = js_mkstr(js, "", 0);
if (nargs > 0 && vtype(args[0]) != T_UNDEF) {
jsval_t is_re = is_regexp_like(js, args[0]);
if (is_err(is_re)) return is_re;
if (js_truthy(js, is_re)) {
jsval_t src = js_getprop_fallback(js, args[0], "source");
if (is_err(src)) return src;
pattern = js_tostring_val(js, src);
if (is_err(pattern)) return pattern;
jsval_t fl = js_getprop_fallback(js, args[0], "flags");
if (is_err(fl)) return fl;
flags = js_tostring_val(js, fl);
if (is_err(flags)) return flags;
} else {
pattern = js_tostring_val(js, args[0]);
if (is_err(pattern)) return pattern;
}
}
if (nargs > 1 && vtype(args[1]) != T_UNDEF) {
flags = js_tostring_val(js, args[1]);
if (is_err(flags)) return flags;
}
js_setprop(js, rx, js_mkstr(js, "source", 6), pattern);
jsoff_t flen, foff = vstr(js, flags, &flen);
regexp_init_flags(js, rx, (const char *)&js->mem[foff], flen, false);
jsoff_t obj_off = (jsoff_t)vdata(rx);
for (size_t i = 0; i < regex_cache_count; i++) {
if (regex_cache[i].obj_offset == obj_off) {
pcre2_match_data_free(regex_cache[i].match_data);
pcre2_code_free(regex_cache[i].code);
regex_cache[i] = regex_cache[--regex_cache_count];
break;
}
}
return rx;
}
static inline bool is_syntax_char(char c) {
return
c == '^' || c == '$' || c == '\\' || c == '.' || c == '*' ||
c == '+' || c == '?' || c == '(' || c == ')' || c == '[' ||
c == ']' || c == '{' || c == '}' || c == '|' || c == '/';
}
static inline bool is_other_punctuator(char c) {
return
c == ',' || c == '-' || c == ':' || c == ';' || c == '<' ||
c == '=' || c == '>' || c == '@' || c == '!' || c == '"' ||
c == '#' || c == '%' || c == '&' || c == '\'' || c == '`' || c == '~';
}
static jsval_t builtin_regexp_escape(ant_t *js, jsval_t *args, int nargs) {
if (nargs < 1 || vtype(args[0]) != T_STR)
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp.escape requires a string argument");
jsoff_t slen, soff = vstr(js, args[0], &slen);
const char *src = (const char *)&js->mem[soff];
size_t buf_cap = slen * 6 + 1;
char *buf = ant_calloc(buf_cap);
if (!buf) return js_mkerr(js, "oom");
size_t di = 0;
bool first = true;
for (size_t si = 0; si < slen; ) {
unsigned char c = (unsigned char)src[si];
if (c >= 0x80) {
utf8proc_int32_t cp;
int bytes = (int)utf8_next(
(const utf8proc_uint8_t *)&src[si],
(utf8proc_ssize_t)(slen - si), &cp
);
for (int b = 0; b < bytes && si < slen; b++)
buf[di++] = src[si++];
first = false;
continue;
}
if (first && ((c >= '0' && c <= '9') || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))) {
di += snprintf(buf + di, buf_cap - di, "\\x%02x", c);
si++; first = false;
continue;
}
if (is_syntax_char(c)) {
buf[di++] = '\\'; buf[di++] = c;
si++; first = false;
continue;
}
if (is_other_punctuator(c) || c == ' ' || c == '\t' || c == '\n' ||
c == '\r' || c == '\v' || c == '\f') {
di += snprintf(buf + di, buf_cap - di, "\\x%02x", c);
si++; first = false;
continue;
}
buf[di++] = c;
si++; first = false;
}
jsval_t result = js_mkstr(js, buf, di);
free(buf);
return result;
}
static jsval_t regexp_exec_abstract(ant_t *js, jsval_t rx, jsval_t str) {
jsval_t exec_fn = js_get(js, rx, "exec");
if (is_err(exec_fn)) return exec_fn;
if (vtype(exec_fn) == T_FUNC || vtype(exec_fn) == T_CFUNC) {
jsval_t call_args[1] = { str };
jsval_t result = sv_vm_call(js->vm, js, exec_fn, rx, call_args, 1, NULL, false);
if (is_err(result)) return result;
if (!is_object_type(result) && vtype(result) != T_NULL)
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp exec returned non-object");
return result;
}
jsval_t call_args[1] = { str };
jsval_t saved = js->this_val;
js->this_val = rx;
jsval_t result = builtin_regexp_exec(js, call_args, 1);
js->this_val = saved;
return result;
}
static jsval_t builtin_regexp_test(ant_t *js, jsval_t *args, int nargs) {
jsval_t regexp = js->this_val;
if (!is_object_type(regexp))
return js_mkerr_typed(js, JS_ERR_TYPE, "test called on non-object");
jsval_t str_arg = nargs > 0 ? js_tostring_val(js, args[0]) : js_mkstr(js, "undefined", 9);
if (is_err(str_arg)) return str_arg;
jsval_t result = regexp_exec_abstract(js, regexp, str_arg);
if (is_err(result)) return result;
return mkval(T_BOOL, vtype(result) != T_NULL ? 1 : 0);
}
jsval_t builtin_regexp_flags_getter(ant_t *js, jsval_t *args, int nargs) {
(void)args; (void)nargs;
jsval_t rx = js->this_val;
if (!is_object_type(rx))
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp.prototype.flags called on non-object");
char buf[16];
int n = 0;
static const struct { const char *name; size_t len; char flag; } flag_props[] = {
{"hasIndices", 10, 'd'}, {"global", 6, 'g'}, {"ignoreCase", 10, 'i'},
{"multiline", 9, 'm'}, {"dotAll", 6, 's'}, {"unicode", 7, 'u'},
{"unicodeSets", 11, 'v'}, {"sticky", 6, 'y'},
};
for (int i = 0; i < 8; i++) {
jsval_t v = js_getprop_fallback(js, rx, flag_props[i].name);
if (is_err(v)) return v;
if (js_truthy(js, v)) buf[n++] = flag_props[i].flag;
}
return js_mkstr(js, buf, n);
}
jsval_t builtin_regexp_symbol_match(ant_t *js, jsval_t *args, int nargs) {
jsval_t rx = js->this_val;
if (!is_object_type(rx))
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp.prototype[@@match] called on non-object");
jsval_t str = nargs > 0 ? js_tostring_val(js, args[0]) : js_mkstr(js, "undefined", 9);
if (is_err(str)) return str;
jsval_t global_val = js_getprop_fallback(js, rx, "global");
if (is_err(global_val)) return global_val;
if (!js_truthy(js, global_val))
return regexp_exec_abstract(js, rx, str);
jsval_t unicode_val = js_getprop_fallback(js, rx, "unicode");
if (is_err(unicode_val)) return unicode_val;
bool full_unicode = js_truthy(js, unicode_val);
js_setprop(js, rx, js_mkstr(js, "lastIndex", 9), tov(0));
jsval_t A = mkarr(js);
if (is_err(A)) return A;
jsoff_t n = 0;
for (;;) {
jsval_t result = regexp_exec_abstract(js, rx, str);
if (is_err(result)) return result;
if (vtype(result) == T_NULL) return n == 0 ? js_mknull() : mkval(T_ARR, vdata(A));
jsval_t match_str = js_tostring_val(js, js_arr_get(js, result, 0));
if (is_err(match_str)) return match_str;
js_arr_push(js, A, match_str);
n++;
jsoff_t mlen;
vstr(js, match_str, &mlen);
if (mlen == 0) {
jsval_t li_val = js_getprop_fallback(js, rx, "lastIndex");
if (is_err(li_val)) return li_val;
double li = vtype(li_val) == T_NUM ? tod(li_val) : 0;
jsoff_t str_len, str_off = vstr(js, str, &str_len);
double advance = 1;
if (full_unicode && li < (double)str_len) {
advance = (double)utf8_char_len_at((const char *)&js->mem[str_off], str_len, (jsoff_t)li);
} js_setprop(js, rx, js_mkstr(js, "lastIndex", 9), tov(li + advance));
}
}
}
jsval_t builtin_regexp_symbol_replace(ant_t *js, jsval_t *args, int nargs) {
jsval_t rx = js->this_val;
if (!is_object_type(rx))
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp.prototype[@@replace] called on non-object");
jsval_t str = nargs > 0 ? js_tostring_val(js, args[0]) : js_mkstr(js, "undefined", 9);
if (is_err(str)) return str;
jsval_t replace_value = nargs > 1 ? args[1] : js_mkundef();
bool func_replace = (vtype(replace_value) == T_FUNC || vtype(replace_value) == T_CFUNC);
jsval_t replace_str = js_mkundef();
if (!func_replace) {
replace_str = js_tostring_val(js, replace_value);
if (is_err(replace_str)) return replace_str;
}
jsval_t global_val = js_getprop_fallback(js, rx, "global");
if (is_err(global_val)) return global_val;
bool global = js_truthy(js, global_val);
bool full_unicode = false;
if (global) {
jsval_t unicode_val = js_getprop_fallback(js, rx, "unicode");
if (is_err(unicode_val)) return unicode_val;
full_unicode = js_truthy(js, unicode_val);
js_setprop(js, rx, js_mkstr(js, "lastIndex", 9), tov(0));
}
jsval_t results = mkarr(js);
if (is_err(results)) return results;
jsoff_t nresults = 0;
for (;;) {
jsval_t result = regexp_exec_abstract(js, rx, str);
if (is_err(result)) return result;
if (vtype(result) == T_NULL) break;
js_arr_push(js, results, result);
nresults++;
if (!global) break;
jsval_t match_str = js_tostring_val(js, js_arr_get(js, result, 0));
if (is_err(match_str)) return match_str;
jsoff_t mlen; vstr(js, match_str, &mlen);
if (mlen == 0) {
jsval_t li_val = js_getprop_fallback(js, rx, "lastIndex");
if (is_err(li_val)) return li_val;
double li = vtype(li_val) == T_NUM ? tod(li_val) : 0;
jsoff_t sl, so = vstr(js, str, &sl);
double advance = 1;
if (full_unicode && li < (double)sl) {
advance = (double)utf8_char_len_at((const char *)&js->mem[so], sl, (jsoff_t)li);
}
js_setprop(js, rx, js_mkstr(js, "lastIndex", 9), tov(li + advance));
}
}
jsoff_t str_len, str_off = vstr(js, str, &str_len);
size_t buf_cap = str_len + 256;
char *buf = ant_calloc(buf_cap);
if (!buf) return js_mkerr(js, "oom");
size_t buf_len = 0;
jsoff_t next_src_pos = 0;
#define SB_APPEND(data, dlen) do { \
if (buf_len + (dlen) >= buf_cap) { \
buf_cap = (buf_len + (dlen) + 1) * 2; \
char *nb = ant_realloc(buf, buf_cap); \
if (!nb) { free(buf); return js_mkerr(js, "oom"); } \
buf = nb; \
} \
memcpy(buf + buf_len, data, dlen); buf_len += (dlen); \
} while(0)
for (jsoff_t i = 0; i < nresults; i++) {
jsval_t result = js_arr_get(js, results, i);
jsval_t matched = js_tostring_val(js, js_arr_get(js, result, 0));
if (is_err(matched)) { free(buf); return matched; }
jsoff_t matched_len; vstr(js, matched, &matched_len);
jsval_t pos_val = js_getprop_fallback(js, result, "index");
jsoff_t position = 0;
if (!is_err(pos_val) && vtype(pos_val) == T_NUM) {
double d = tod(pos_val);
position = d < 0 ? 0 : (jsoff_t)d;
}
if (position > str_len) position = str_len;
jsval_t replacement;
if (func_replace) {
jsoff_t ncaptures = js_arr_len(js, result);
jsval_t call_args[32];
int ca = 0;
for (jsoff_t c = 0; c < ncaptures && ca < 30; c++)
call_args[ca++] = js_arr_get(js, result, c);
call_args[ca++] = tov((double)position);
call_args[ca++] = str;
replacement = sv_vm_call(js->vm, js, replace_value, js_mkundef(), call_args, ca, NULL, false);
} else {
replacement = replace_str;
}
if (is_err(replacement)) { free(buf); return replacement; }
jsval_t rep_str = js_tostring_val(js, replacement);
if (is_err(rep_str)) { free(buf); return rep_str; }
if (position >= next_src_pos) {
str_off = vstr(js, str, &str_len);
if (position > next_src_pos)
SB_APPEND((const char *)&js->mem[str_off + next_src_pos], position - next_src_pos);
jsoff_t rep_len, rep_off = vstr(js, rep_str, &rep_len);
if (func_replace) {
SB_APPEND((const char *)&js->mem[rep_off], rep_len);
} else {
jsoff_t ncap = js_arr_len(js, result);
int num_caps = ncap > 1 ? (int)(ncap - 1) : 0;
repl_capture_t caps_buf[16], *caps = num_caps <= 16 ? caps_buf : ant_calloc(sizeof(repl_capture_t) * (size_t)num_caps);
for (int ci = 0; ci < num_caps; ci++) {
jsval_t cap = js_arr_get(js, result, (jsoff_t)(ci + 1));
if (vtype(cap) == T_STR) { jsoff_t cl, co = vstr(js, cap, &cl); caps[ci] = (repl_capture_t){ (const char *)&js->mem[co], cl }; }
else caps[ci] = (repl_capture_t){ NULL, 0 };
}
jsoff_t mlen, moff = vstr(js, matched, &mlen);
str_off = vstr(js, str, &str_len);
repl_template((const char *)&js->mem[rep_off], rep_len, (const char *)&js->mem[moff], mlen,
(const char *)&js->mem[str_off], str_len, position, caps, num_caps, &buf, &buf_len, &buf_cap);
if (caps != caps_buf) free(caps);
}
next_src_pos = position + matched_len;
}
}
str_off = vstr(js, str, &str_len);
if (next_src_pos < str_len)
SB_APPEND((const char *)&js->mem[str_off + next_src_pos], str_len - next_src_pos);
#undef SB_APPEND
jsval_t ret = js_mkstr(js, buf, buf_len);
free(buf);
return ret;
}
jsval_t builtin_regexp_symbol_search(ant_t *js, jsval_t *args, int nargs) {
jsval_t rx = js->this_val;
if (!is_object_type(rx))
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp.prototype[@@search] called on non-object");
jsval_t str = nargs > 0 ? js_tostring_val(js, args[0]) : js_mkstr(js, "undefined", 9);
if (is_err(str)) return str;
jsval_t prev_li = js_getprop_fallback(js, rx, "lastIndex");
if (is_err(prev_li)) return prev_li;
js_setprop(js, rx, js_mkstr(js, "lastIndex", 9), tov(0));
jsval_t result = regexp_exec_abstract(js, rx, str);
if (is_err(result)) return result;
jsval_t cur_li = js_getprop_fallback(js, rx, "lastIndex");
if (is_err(cur_li)) return cur_li;
js_setprop(js, rx, js_mkstr(js, "lastIndex", 9), prev_li);
if (vtype(result) == T_NULL) return tov(-1);
jsval_t idx = js_getprop_fallback(js, result, "index");
if (is_err(idx)) return idx;
return vtype(idx) == T_NUM ? idx : tov(-1);
}
jsval_t builtin_regexp_symbol_split(ant_t *js, jsval_t *args, int nargs) {
jsval_t rx = js_getthis(js);
if (!is_object_type(rx))
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp.prototype[@@split] called on non-object");
jsval_t str = nargs > 0 ? js_tostring_val(js, args[0]) : js_mkstr(js, "", 0);
if (is_err(str)) return str;
jsval_t ctor = js_get(js, rx, "constructor");
if (is_err(ctor)) return ctor;
jsval_t C;
if (vtype(ctor) == T_UNDEF) {
C = js_get(js, js_glob(js), "RegExp");
} else if (!is_object_type(ctor)) {
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp.prototype[@@split]: constructor is not an object");
} else {
jsval_t species = get_ctor_species_value(js, ctor);
if (is_err(species)) return species;
if (vtype(species) == T_UNDEF || vtype(species) == T_NULL)
C = js_get(js, js_glob(js), "RegExp");
else C = species;
}
if (is_err(C)) return C;
if (vtype(C) != T_FUNC && vtype(C) != T_CFUNC)
return js_mkerr_typed(js, JS_ERR_TYPE, "RegExp species is not a constructor");
jsval_t flags_val = js_get(js, rx, "flags");
if (is_err(flags_val)) return flags_val;
jsval_t flags_str = js_tostring_val(js, flags_val);
if (is_err(flags_str)) return flags_str;
jsoff_t flen, foff = vstr(js, flags_str, &flen);
const char *fptr = (const char *)&js->mem[foff];
bool unicode_matching = false, has_sticky = false;
for (jsoff_t i = 0; i < flen; i++) {
if (fptr[i] == 'u' || fptr[i] == 'v') unicode_matching = true;
if (fptr[i] == 'y') has_sticky = true;
}
jsval_t new_flags;
if (has_sticky) new_flags = flags_str; else {
char fbuf[16];
if (flen > 14) flen = 14;
foff = vstr(js, flags_str, &flen);
fptr = (const char *)&js->mem[foff];
memcpy(fbuf, fptr, flen);
fbuf[flen] = 'y';
new_flags = js_mkstr(js, fbuf, flen + 1);
}
jsval_t ctor_args[2] = { rx, new_flags };
jsval_t splitter = regexp_species_construct(js, rx, C, ctor_args, 2);
if (is_err(splitter)) return splitter;
jsval_t A = mkarr(js);
if (is_err(A)) return A;
jsoff_t lengthA = 0;
uint32_t lim = UINT32_MAX;
if (nargs >= 2 && vtype(args[1]) != T_UNDEF) {
double d = tod(args[1]);
if (d >= 0 && d <= UINT32_MAX) lim = (uint32_t)d;
} if (lim == 0) return mkval(T_ARR, vdata(A));
jsoff_t str_len, str_off = vstr(js, str, &str_len);
jsoff_t size = str_len;
if (size == 0) {
jsval_t z = regexp_exec_abstract(js, splitter, str);
if (is_err(z)) return z;
if (vtype(z) == T_NULL) js_arr_push(js, A, str);
return mkval(T_ARR, vdata(A));
}
jsoff_t p = 0, q = p;
jsval_t lastIndex_key = js_mkstr(js, "lastIndex", 9);
while (q < size) {
js_setprop(js, splitter, lastIndex_key, tov((double)q));
jsval_t z = regexp_exec_abstract(js, splitter, str);
if (is_err(z)) return z;
if (vtype(z) == T_NULL) {
if (unicode_matching) {
str_off = vstr(js, str, &str_len);
q += utf8_char_len_at((const char *)&js->mem[str_off], str_len, q);
} else q++;
continue;
}
jsval_t li_val = js_get(js, splitter, "lastIndex");
if (is_err(li_val)) return li_val;
double e_raw = vtype(li_val) == T_NUM ? tod(li_val) : 0;
jsoff_t e = (jsoff_t)(e_raw < 0 ? 0 : (e_raw > (double)size ? (double)size : e_raw));
if (e == p) {
if (unicode_matching) {
str_off = vstr(js, str, &str_len);
q += utf8_char_len_at((const char *)&js->mem[str_off], str_len, q);
} else q++;
continue;
}
str_off = vstr(js, str, NULL);
jsval_t T_val = js_mkstr(js, (char *)&js->mem[str_off + p], q - p);
js_arr_push(js, A, T_val);
lengthA++;
if (lengthA == lim) return mkval(T_ARR, vdata(A));
jsoff_t num_caps = js_arr_len(js, z);
for (jsoff_t i = 1; i < num_caps; i++) {
jsval_t cap = js_arr_get(js, z, i);
js_arr_push(js, A, cap);
lengthA++;
if (lengthA == lim) return mkval(T_ARR, vdata(A));
}
p = e;
q = p;
}
str_off = vstr(js, str, &str_len);
jsval_t trailing = js_mkstr(js, (char *)&js->mem[str_off + p], str_len - p);
js_arr_push(js, A, trailing);
return mkval(T_ARR, vdata(A));
}
jsval_t do_regex_match_pcre2(
ant_t *js, const char *pattern_ptr, jsoff_t pattern_len,
const char *str_ptr, jsoff_t str_len,
bool global_flag, bool ignore_case, bool multiline
) {
char pcre2_pattern[4096];
size_t pcre2_len = js_to_pcre2_pattern(pattern_ptr, pattern_len, pcre2_pattern, sizeof(pcre2_pattern));
uint32_t options = PCRE2_UTF | PCRE2_UCP | PCRE2_MATCH_UNSET_BACKREF | PCRE2_DUPNAMES;
if (ignore_case) options |= PCRE2_CASELESS;
if (multiline) options |= PCRE2_MULTILINE;
int errcode;
PCRE2_SIZE erroffset;
pcre2_code *re = pcre2_compile((PCRE2_SPTR)pcre2_pattern, pcre2_len, options, &errcode, &erroffset, NULL);
if (re == NULL) return js_mknull();
pcre2_match_data *match_data = pcre2_match_data_create_from_pattern(re, NULL);
uint32_t capture_count;
pcre2_pattern_info(re, PCRE2_INFO_CAPTURECOUNT, &capture_count);
jsval_t result_arr = js_mkarr(js);
if (is_err(result_arr)) {
pcre2_match_data_free(match_data);
pcre2_code_free(re);
return result_arr;
}
PCRE2_SIZE pos = 0;
int match_count = 0;
while (pos <= str_len) {
int rc = pcre2_match(re, (PCRE2_SPTR)str_ptr, str_len, pos, 0, match_data, NULL);
if (rc < 0) break;
PCRE2_SIZE *ovector = pcre2_get_ovector_pointer(match_data);
PCRE2_SIZE match_start = ovector[0];
PCRE2_SIZE match_end = ovector[1];
if (global_flag) {
jsval_t match_str = js_mkstr(js, str_ptr + match_start, match_end - match_start);
if (is_err(match_str)) {
pcre2_match_data_free(match_data);
pcre2_code_free(re);
return match_str;
}
js_arr_push(js, result_arr, match_str);
} else {
for (uint32_t i = 0; i <= capture_count; i++) {
PCRE2_SIZE start = ovector[2*i];
PCRE2_SIZE end = ovector[2*i+1];
if (start == PCRE2_UNSET) {
js_arr_push(js, result_arr, js_mkundef());
} else {
jsval_t match_str = js_mkstr(js, str_ptr + start, end - start);
if (is_err(match_str)) {
pcre2_match_data_free(match_data);
pcre2_code_free(re);
return match_str;
}
js_arr_push(js, result_arr, match_str);
}
}
js_setprop(js, result_arr, js_mkstr(js, "index", 5), tov((double)match_start));
}
match_count++;
if (!global_flag) break;
if (match_start == match_end) {
pos = match_end + 1;
} else { pos = match_end; }
}
pcre2_match_data_free(match_data);
pcre2_code_free(re);
if (match_count == 0) return js_mknull();
return result_arr;
}
static jsval_t builtin_string_search(ant_t *js, jsval_t *args, int nargs) {
jsval_t this_unwrapped = unwrap_primitive(js, js->this_val);
jsval_t str = js_tostring_val(js, this_unwrapped);
if (is_err(str)) return str;
if (nargs < 1) return tov(-1);
if (is_object_type(args[0])) {
bool called = false;
jsval_t call_args[1] = { str };
jsval_t dispatched = maybe_call_symbol_method(
js, args[0], get_search_sym(), args[0], call_args, 1, &called
);
if (is_err(dispatched)) return dispatched;
if (called) return dispatched;
}
jsval_t pattern = args[0];
const char *pattern_ptr = NULL;
jsoff_t pattern_len = 0;
bool ignore_case = false, multiline = false;
if (vtype(pattern) == T_OBJ) {
jsoff_t source_off = lkp(js, pattern, "source", 6);
if (source_off == 0) return tov(-1);
jsval_t source_val = resolveprop(js, mkval(T_PROP, source_off));
if (vtype(source_val) != T_STR) return tov(-1);
jsoff_t poff;
poff = vstr(js, source_val, &pattern_len);
pattern_ptr = (char *)&js->mem[poff];
jsoff_t flags_off = lkp(js, pattern, "flags", 5);
if (flags_off != 0) {
jsval_t flags_val = resolveprop(js, mkval(T_PROP, flags_off));
if (vtype(flags_val) == T_STR) {
jsoff_t flen, foff = vstr(js, flags_val, &flen);
const char *flags_str = (char *)&js->mem[foff];
for (jsoff_t i = 0; i < flen; i++) {
if (flags_str[i] == 'i') ignore_case = true;
if (flags_str[i] == 'm') multiline = true;
}
}
}
} else if (vtype(pattern) == T_STR) {
jsoff_t poff;
poff = vstr(js, pattern, &pattern_len);
pattern_ptr = (char *)&js->mem[poff];
} else {
return tov(-1);
}
jsoff_t str_len, str_off = vstr(js, str, &str_len);
const char *str_ptr = (char *)&js->mem[str_off];
char pcre2_pattern[4096];
size_t pcre2_len = js_to_pcre2_pattern(pattern_ptr, pattern_len, pcre2_pattern, sizeof(pcre2_pattern));
uint32_t options = PCRE2_UTF | PCRE2_UCP | PCRE2_MATCH_UNSET_BACKREF | PCRE2_DUPNAMES;
if (ignore_case) options |= PCRE2_CASELESS;
if (multiline) options |= PCRE2_MULTILINE;
int errcode;
PCRE2_SIZE erroffset;
pcre2_code *re = pcre2_compile((PCRE2_SPTR)pcre2_pattern, pcre2_len, options, &errcode, &erroffset, NULL);
if (re == NULL) return tov(-1);
pcre2_match_data *match_data = pcre2_match_data_create_from_pattern(re, NULL);
int rc = pcre2_match(re, (PCRE2_SPTR)str_ptr, str_len, 0, 0, match_data, NULL);
if (rc < 0) {
pcre2_match_data_free(match_data);
pcre2_code_free(re);
return tov(-1);
}
PCRE2_SIZE *ovector = pcre2_get_ovector_pointer(match_data);
double result = (double)ovector[0];
pcre2_match_data_free(match_data);
pcre2_code_free(re);
return tov(result);
}
static jsval_t builtin_string_match(ant_t *js, jsval_t *args, int nargs) {
jsval_t this_unwrapped = unwrap_primitive(js, js->this_val);
jsval_t str = js_tostring_val(js, this_unwrapped);
if (is_err(str)) return str;
if (nargs < 1) return js_mknull();
if (is_object_type(args[0])) {
bool called = false;
jsval_t call_args[1] = { str };
jsval_t dispatched = maybe_call_symbol_method(
js, args[0], get_match_sym(), args[0], call_args, 1, &called
);
if (is_err(dispatched)) return dispatched;
if (called) return dispatched;
}
jsval_t pattern = args[0];
const char *pattern_ptr = NULL;
jsoff_t pattern_len = 0;
bool global_flag = false;
bool ignore_case = false;
bool multiline = false;
if (vtype(pattern) == T_OBJ) {
jsoff_t source_off = lkp(js, pattern, "source", 6);
if (source_off == 0) return js_mknull();
jsval_t source_val = resolveprop(js, mkval(T_PROP, source_off));
if (vtype(source_val) != T_STR) return js_mknull();
jsoff_t poff;
poff = vstr(js, source_val, &pattern_len);
pattern_ptr = (char *)&js->mem[poff];
jsoff_t flags_off = lkp(js, pattern, "flags", 5);
if (flags_off != 0) {
jsval_t flags_val = resolveprop(js, mkval(T_PROP, flags_off));
if (vtype(flags_val) == T_STR) {
jsoff_t flen, foff = vstr(js, flags_val, &flen);
const char *flags_str = (char *)&js->mem[foff];
for (jsoff_t i = 0; i < flen; i++) {
if (flags_str[i] == 'g') global_flag = true;
if (flags_str[i] == 'i') ignore_case = true;
if (flags_str[i] == 'm') multiline = true;
}
}
}
} else if (vtype(pattern) == T_STR) {
jsoff_t poff;
poff = vstr(js, pattern, &pattern_len);
pattern_ptr = (char *)&js->mem[poff];
} else {
return js_mknull();
}
jsoff_t str_len, str_off = vstr(js, str, &str_len);
const char *str_ptr = (char *)&js->mem[str_off];
jsval_t result = do_regex_match_pcre2(
js, pattern_ptr, pattern_len,
str_ptr, str_len, global_flag, ignore_case, multiline
);
if (!global_flag && vtype(result) == T_ARR) {
js_setprop(js, result, js_mkstr(js, "input", 5), str);
}
return result;
}
void init_regex_module(void) {
ant_t *js = rt->js;
jsval_t glob = js->global;
jsval_t object_proto = js->object;
jsval_t regexp_proto = js_mkobj(js);
js_set_proto(js, regexp_proto, object_proto);
js_setprop(js, regexp_proto, js_mkstr(js, "test", 4), js_mkfun(builtin_regexp_test));
js_setprop(js, regexp_proto, js_mkstr(js, "exec", 4), js_mkfun(builtin_regexp_exec));
js_setprop(js, regexp_proto, js_mkstr(js, "toString", 8), js_mkfun(builtin_regexp_toString));
js_mkprop_fast(js, regexp_proto, "global", 6, js_false);
js_mkprop_fast(js, regexp_proto, "ignoreCase", 10, js_false);
js_mkprop_fast(js, regexp_proto, "multiline", 9, js_false);
js_mkprop_fast(js, regexp_proto, "dotAll", 6, js_false);
js_mkprop_fast(js, regexp_proto, "unicode", 7, js_false);
js_mkprop_fast(js, regexp_proto, "sticky", 6, js_false);
js_mkprop_fast(js, regexp_proto, "hasIndices", 10, js_false);
js_mkprop_fast(js, regexp_proto, "unicodeSets", 11, js_false);
js_set_sym(js, regexp_proto, get_split_sym(), js_mkfun(builtin_regexp_symbol_split));
js_set_sym(js, regexp_proto, get_match_sym(), js_mkfun(builtin_regexp_symbol_match));
js_set_sym(js, regexp_proto, get_replace_sym(), js_mkfun(builtin_regexp_symbol_replace));
js_set_sym(js, regexp_proto, get_search_sym(), js_mkfun(builtin_regexp_symbol_search));
js_set_getter_desc(js, regexp_proto, "flags", 5, js_mkfun(builtin_regexp_flags_getter), JS_DESC_C);
js_setprop(js, regexp_proto, js_mkstr(js, "compile", 7), js_mkfun(builtin_regexp_compile));
jsval_t regexp_ctor = js_mkobj(js);
js_set_slot(js, regexp_ctor, SLOT_CFUNC, js_mkfun(builtin_RegExp));
js_mkprop_fast(js, regexp_ctor, "prototype", 9, regexp_proto);
js_mkprop_fast(js, regexp_ctor, "name", 4, js_mkstr(js, "RegExp", 6));
js_set_descriptor(js, regexp_ctor, "name", 4, 0);
js_define_species_getter(js, regexp_ctor);
jsval_t regexp_func = js_obj_to_func(regexp_ctor);
js_setprop(js, regexp_proto, js_mkstr(js, "constructor", 11), regexp_func);
js_set_descriptor(js, regexp_proto, "constructor", 11, JS_DESC_W | JS_DESC_C);
js_set(js, regexp_ctor, "escape", js_mkfun(builtin_regexp_escape));
jsval_t empty = js_mkstr(js, "", 0);
for (int i = 1; i <= 9; i++) {
char key[3] = {'$', (char)('0' + i), '\0'};
js_set(js, regexp_ctor, key, empty);
}
js_set(js, regexp_ctor, "lastMatch", empty);
js_set(js, regexp_ctor, "$&", empty);
js_set(js, glob, "RegExp", regexp_func);
jsval_t string_ctor = js_get(js, glob, "String");
jsval_t string_proto = js_get(js, string_ctor, "prototype");
js_setprop(js, string_proto, js_mkstr(js, "search", 6), js_mkfun(builtin_string_search));
js_setprop(js, string_proto, js_mkstr(js, "match", 5), js_mkfun(builtin_string_match));
}
void regex_gc_update_roots(jsoff_t (*weak_off)(void *ctx, jsoff_t old), GC_OP_VAL_ARGS) {
size_t write_idx = 0;
for (size_t i = 0; i < regex_cache_count; i++) {
jsoff_t old_off = regex_cache[i].obj_offset;
jsoff_t new_off = weak_off(ctx, old_off);
if (new_off == (jsoff_t)~0) {
pcre2_match_data_free(regex_cache[i].match_data);
pcre2_code_free(regex_cache[i].code);
continue;
}
regex_cache[i].obj_offset = new_off;
if (write_idx != i) regex_cache[write_idx] = regex_cache[i];
write_idx++;
}
regex_cache_count = write_idx;
}
void cleanup_regex_module(void) {
for (size_t i = 0; i < regex_cache_count; i++) {
pcre2_match_data_free(regex_cache[i].match_data);
pcre2_code_free(regex_cache[i].code);
}
free(regex_cache);
regex_cache = NULL;
regex_cache_count = 0;
regex_cache_cap = 0;
}

File Metadata

Mime Type
text/x-c
Expires
Thu, Mar 26, 4:46 PM (1 d, 18 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
511796
Default Alt Text
regex.c (52 KB)

Event Timeline