mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

* *.[ch]: Whitespace changes -- added space after SCM_VALIDATE_*

Browse source 
macros and SCM_DEFINE macros to match GNU coding standards.
This commit is contained in:
Greg J. Badros 2000-01-05 19:25:37 +00:00
parent cbaee92a8b
commit 3b3b36ddb7
61 changed files with 730 additions and 730 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/regex-posix.c
View file

@ -189,7 +189,7 @@ the earlier one.
regex_t *rx;
int status, cflags;
SCM_VALIDATE_ROSTRING(1,pat);
SCM_VALIDATE_ROSTRING (1,pat);
SCM_COERCE_SUBSTR (pat);
/* Examine list of regexp flags. If REG_BASIC is supplied, then
@ -235,13 +235,13 @@ the results of the match, or @code{#f} if no match could be found.")
regmatch_t *matches;
SCM mvec = SCM_BOOL_F;
SCM_VALIDATE_RGXP(1,rx);
SCM_VALIDATE_ROSTRING(2,str);
SCM_VALIDATE_INUM_DEF_COPY(3,start,0,offset);
SCM_VALIDATE_RGXP (1,rx);
SCM_VALIDATE_ROSTRING (2,str);
SCM_VALIDATE_INUM_DEF_COPY (3,start,0,offset);
SCM_ASSERT_RANGE (3,start,offset >= 0 && (unsigned) offset <= SCM_LENGTH (str));
if (SCM_UNBNDP (flags))
flags = SCM_INUM0;
SCM_VALIDATE_INUM(4,flags);
SCM_VALIDATE_INUM (4,flags);
SCM_COERCE_SUBSTR (str);
/* re_nsub doesn't account for the `subexpression' representing the