mirror of
https://codeberg.org/grunfink/snac2.git
synced 2024-12-26 17:23:38 +00:00
80 lines
1.9 KiB
C
80 lines
1.9 KiB
C
/* copyright (c) 2022 - 2023 grunfink et al. / MIT license */
|
|
|
|
#ifndef _XS_REGEX_H
|
|
|
|
#define _XS_REGEX_H
|
|
|
|
xs_list *xs_regex_split_n(const char *str, const char *rx, int count);
|
|
#define xs_regex_split(str, rx) xs_regex_split_n(str, rx, XS_ALL)
|
|
xs_list *xs_regex_match_n(const char *str, const char *rx, int count);
|
|
#define xs_regex_match(str, rx) xs_regex_match_n(str, rx, XS_ALL)
|
|
|
|
#ifdef XS_IMPLEMENTATION
|
|
|
|
#include <regex.h>
|
|
|
|
xs_list *xs_regex_split_n(const char *str, const char *rx, int count)
|
|
/* splits str by regex */
|
|
{
|
|
regex_t re;
|
|
regmatch_t rm;
|
|
int offset = 0;
|
|
xs_list *list = NULL;
|
|
const char *p;
|
|
|
|
if (regcomp(&re, rx, REG_EXTENDED))
|
|
return NULL;
|
|
|
|
list = xs_list_new();
|
|
|
|
while (count > 0 && !regexec(&re, (p = str + offset), 1, &rm, offset > 0 ? REG_NOTBOL : 0)) {
|
|
/* add first the leading part of the string */
|
|
list = xs_list_append_m(list, p, rm.rm_so);
|
|
list = xs_insert_m(list, xs_size(list) - 1, "", 1);
|
|
|
|
/* add now the matched text as the separator */
|
|
list = xs_list_append_m(list, p + rm.rm_so, rm.rm_eo - rm.rm_so);
|
|
list = xs_insert_m(list, xs_size(list) - 1, "", 1);
|
|
|
|
/* move forward */
|
|
offset += rm.rm_eo;
|
|
|
|
count--;
|
|
}
|
|
|
|
/* add the rest of the string */
|
|
list = xs_list_append(list, p);
|
|
|
|
regfree(&re);
|
|
|
|
return list;
|
|
}
|
|
|
|
|
|
xs_list *xs_regex_match_n(const char *str, const char *rx, int count)
|
|
/* returns a list with upto count matches */
|
|
{
|
|
xs_list *list = xs_list_new();
|
|
xs *split = NULL;
|
|
xs_list *p;
|
|
xs_val *v;
|
|
int n = 0;
|
|
|
|
/* split */
|
|
split = xs_regex_split_n(str, rx, count);
|
|
|
|
/* now iterate to get only the 'separators' (odd ones) */
|
|
p = split;
|
|
while (xs_list_iter(&p, &v)) {
|
|
if (n & 0x1)
|
|
list = xs_list_append(list, v);
|
|
|
|
n++;
|
|
}
|
|
|
|
return list;
|
|
}
|
|
|
|
#endif /* XS_IMPLEMENTATION */
|
|
|
|
#endif /* XS_REGEX_H */
|