mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(scm_regexp_exec): Correction to last change, should

Browse source 
be whole original string in match struct, not offsetted substring.
This commit is contained in:
Kevin Ryde 2004-09-28 23:50:21 +00:00
parent 5cc183a12f
commit 21682b207e
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/regex-posix.c
View file

@ -220,15 +220,19 @@ SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0,
regmatch_t *matches;
char *c_str;
SCM mvec = SCM_BOOL_F;
SCM substr;
SCM_VALIDATE_RGXP (1, rx);
SCM_VALIDATE_STRING (2, str);
if (SCM_UNBNDP (start))
offset = 0;
{
substr = str;
offset = 0;
}
else
{
str = scm_substring (str, start, SCM_UNDEFINED);
substr = scm_substring (str, start, SCM_UNDEFINED);
offset = scm_to_int (start);
}
@ -241,7 +245,7 @@ SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0,
nmatches = SCM_RGX(rx)->re_nsub + 1;
SCM_DEFER_INTS;
matches = scm_malloc (sizeof (regmatch_t) * nmatches);
c_str = scm_to_locale_string (str);
c_str = scm_to_locale_string (substr);
status = regexec (SCM_RGX (rx), c_str, nmatches, matches,
scm_to_int (flags));
free (c_str);