Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Move pattern code into patterns file

Browse Source
This commit is contained in:
Bruce Hill 2025-03-31 02:17:47 -04:00
parent 7a172be621
commit da94f2bc8c
2 changed files with 20 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/stdlib/patterns.c
View File

@ -1251,6 +1251,26 @@ public Closure_t Text$by_split(Text_t text, Pattern_t pattern)
}; };
} }
public Pattern_t Pattern$escape_text(Text_t text)
{
// TODO: optimize for spans of non-escaped text
Text_t ret = EMPTY_TEXT;
TextIter_t state = NEW_TEXT_ITER_STATE(text);
for (int64_t i = 0; i < text.length; i++) {
uint32_t g = Text$get_main_grapheme_fast(&state, i);
if (g == '{') {
ret = Text$concat(ret, Text("{1{}"));
} else if (g == '?'
|| uc_is_property_quotation_mark(g)
|| (uc_is_property_paired_punctuation(g) && uc_is_property_left_of_pair(g))) {
ret = Text$concat(ret, Text("{1"), Text$slice(text, I(i+1), I(i+1)), Text("}"));
} else {
ret = Text$concat(ret, Text$slice(text, I(i+1), I(i+1)));
}
}
return ret;
}
public const TypeInfo_t Pattern$info = { public const TypeInfo_t Pattern$info = {
.size=sizeof(Pattern_t), .size=sizeof(Pattern_t),
.align=__alignof__(Pattern_t), .align=__alignof__(Pattern_t),

22
src/stdlib/text.c
View File

@ -1458,26 +1458,4 @@ public const TypeInfo_t Text$info = {
.metamethods=Text$metamethods, .metamethods=Text$metamethods,
}; };
public Pattern_t Pattern$escape_text(Text_t text)
{
// TODO: optimize for spans of non-escaped text
Text_t ret = EMPTY_TEXT;
TextIter_t state = NEW_TEXT_ITER_STATE(text);
for (int64_t i = 0; i < text.length; i++) {
int32_t g = Text$get_grapheme_fast(&state, i);
ucs4_t g0 = g < 0 ? GRAPHEME_CODEPOINTS(g)[0] : (ucs4_t)g;
if (g == '{') {
ret = concat2_assuming_safe(ret, Text("{1{}"));
} else if (g0 == '?'
|| uc_is_property_quotation_mark(g0)
|| (uc_is_property_paired_punctuation(g0) && uc_is_property_left_of_pair(g0))) {
ret = Text$concat(ret, Text("{1"), Text$slice(text, I(i+1), I(i+1)), Text("}"));
} else {
ret = concat2_assuming_safe(ret, Text$slice(text, I(i+1), I(i+1)));
}
}
return ret;
}
// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0 // vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0