/[guile]/guile/guile-core/libguile/regex-posix.c
ViewVC logotype

Diff of /guile/guile-core/libguile/regex-posix.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.58 by ttn, Thu Mar 14 03:47:43 2002 UTC revision 1.59 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 247  SCM_DEFINE (scm_regexp_exec, "regexp-exe Line 247  SCM_DEFINE (scm_regexp_exec, "regexp-exe
247    regmatch_t *matches;    regmatch_t *matches;
248    SCM mvec = SCM_BOOL_F;    SCM mvec = SCM_BOOL_F;
249    
250    SCM_VALIDATE_RGXP (1,rx);    SCM_VALIDATE_RGXP (1, rx);
251    SCM_VALIDATE_STRING (2, str);    SCM_VALIDATE_STRING (2, str);
252    SCM_VALIDATE_INUM_DEF_COPY (3,start,0,offset);    SCM_VALIDATE_INUM_DEF_COPY (3, start,0, offset);
253    SCM_ASSERT_RANGE (3,start, offset >= 0 && offset <= SCM_STRING_LENGTH (str));    SCM_ASSERT_RANGE (3, start, offset >= 0 && offset <= SCM_STRING_LENGTH (str));
254    if (SCM_UNBNDP (flags))    if (SCM_UNBNDP (flags))
255      flags = SCM_INUM0;      flags = SCM_INUM0;
256    SCM_VALIDATE_INUM (4,flags);    SCM_VALIDATE_INUM (4, flags);
257    
258    /* re_nsub doesn't account for the `subexpression' representing the    /* re_nsub doesn't account for the `subexpression' representing the
259       whole regexp, so add 1 to nmatches. */       whole regexp, so add 1 to nmatches. */

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26