diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-06-24 05:33:59 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-06-24 05:33:59 +0000 |
commit | fcfb248d0c06c530aa0c36f978b718eef17d1c81 (patch) | |
tree | d74673bbbd3136386b935be8a9b908227e74698b /libguile/regex-posix.c | |
parent | 6ac3c2922712d636aab69fca26dfa532fa997b58 (diff) | |
download | guile-fcfb248d0c06c530aa0c36f978b718eef17d1c81.tar.gz |
* regex-posix.c (scm_make_regexp, scm_regexp_exec): Add optional
FLAGS arguments.
(scm_init_regex_posix): Define constants for the REG_mumble flags;
name them according to the SCSH convention: regexp/mumble.
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r-- | libguile/regex-posix.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index cd331a527..920697584 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -245,14 +245,14 @@ scm_init_regex_posix () scm_tc16_regex_t = scm_newsmob (®ex_t_smob); /* Compilation flags. */ - scm_sysintern ("REG_EXTENDED", scm_long2num (REG_EXTENDED)); - scm_sysintern ("REG_ICASE", scm_long2num (REG_ICASE)); - scm_sysintern ("REG_NOSUB", scm_long2num (REG_NOSUB)); - scm_sysintern ("REG_NEWLINE", scm_long2num (REG_NEWLINE)); + scm_sysintern ("regexp/extended", scm_long2num (REG_EXTENDED)); + scm_sysintern ("regexp/icase", scm_long2num (REG_ICASE)); + scm_sysintern ("regexp/nosub", scm_long2num (REG_NOSUB)); + scm_sysintern ("regexp/newline", scm_long2num (REG_NEWLINE)); /* Execution flags. */ - scm_sysintern ("REG_NOTBOL", scm_long2num (REG_NOTBOL)); - scm_sysintern ("REG_NOTEOL", scm_long2num (REG_NOTEOL)); + scm_sysintern ("regexp/notbol", scm_long2num (REG_NOTBOL)); + scm_sysintern ("regexp/noteol", scm_long2num (REG_NOTEOL)); #include "regex-posix.x" |