bool Melder_stringMatchesCriterion (const char32 *value, int which_kMelder_string, const char32 *criterion) {
if (! value) {
value = U""; // regard null strings as empty strings, as is usual in Praat
}
if (! criterion) {
criterion = U""; // regard null strings as empty strings, as is usual in Praat
}
if (which_kMelder_string <= kMelder_string_NOT_EQUAL_TO) {
bool matchPositiveCriterion = str32equ (value, criterion);
return ( which_kMelder_string == kMelder_string_EQUAL_TO ) == matchPositiveCriterion;
}
if (which_kMelder_string <= kMelder_string_DOES_NOT_CONTAIN) {
bool matchPositiveCriterion = !! str32str (value, criterion);
return ( which_kMelder_string == kMelder_string_CONTAINS ) == matchPositiveCriterion;
}
if (which_kMelder_string <= kMelder_string_DOES_NOT_START_WITH) {
bool matchPositiveCriterion = str32nequ (value, criterion, str32len (criterion));
return ( which_kMelder_string == kMelder_string_STARTS_WITH ) == matchPositiveCriterion;
}
if (which_kMelder_string <= kMelder_string_DOES_NOT_END_WITH) {
int criterionLength = str32len (criterion), valueLength = str32len (value);
bool matchPositiveCriterion = ( criterionLength <= valueLength && str32equ (value + valueLength - criterionLength, criterion) );
return (which_kMelder_string == kMelder_string_ENDS_WITH) == matchPositiveCriterion;
}
if (which_kMelder_string == kMelder_string_MATCH_REGEXP) {
char32 *place = nullptr;
regexp *compiled_regexp = CompileRE_throwable (criterion, 0);
if (ExecRE (compiled_regexp, nullptr, value, nullptr, 0, '\0', '\0', nullptr, nullptr, nullptr))
place = compiled_regexp -> startp [0];
free (compiled_regexp);
return !! place;
}
return false; // should not occur
}
char32 *strstr_regexp (const char32 *string, const char32 *search_regexp) {
char32 *charp = 0;
regexp *compiled_regexp = CompileRE_throwable (search_regexp, 0);
if (ExecRE (compiled_regexp, NULL, string, NULL, 0, '\0', '\0', NULL, NULL, NULL)) {
charp = compiled_regexp -> startp[0];
}
free (compiled_regexp);
return charp;
}
void OrderedOfString_changeStrings (OrderedOfString me, char32 *search, char32 *replace,
int maximumNumberOfReplaces, long *nmatches, long *nstringmatches, int use_regexp) {
regexp *compiled_search = NULL;
try {
char32 *r;
if (search == NULL) {
Melder_throw (U"Missing search string.");
}
if (replace == NULL) {
Melder_throw (U"Missing replace string.");
}
if (use_regexp) {
compiled_search = CompileRE_throwable (search, 0);
}
for (long i = 1; i <= my size; i++) {
SimpleString ss = (SimpleString) my item[i];
long nmatches_sub;
if (use_regexp) {
r = str_replace_regexp (ss -> string, compiled_search,
replace, maximumNumberOfReplaces, &nmatches_sub);
} else r = str_replace_literal (ss -> string, search, replace,
maximumNumberOfReplaces, &nmatches_sub);
// Change without error:
Melder_free (ss -> string);
ss -> string = r;
if (nmatches_sub > 0) {
*nmatches += nmatches_sub;
(*nstringmatches) ++;
}
}
if (use_regexp) {
free (compiled_search);
}
} catch (MelderError) {
if (use_regexp) {
free (compiled_search);
}
Melder_throw (U"Replace not completed.");
}
}
