mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* regex-posix.c (scm_make_regexp, scm_regexp_exec): Add optional

Browse source 
FLAGS arguments.
(scm_init_regex_posix): Define constants for the REG_mumble flags;
name them according to the SCSH convention: regexp/mumble.
This commit is contained in:
Jim Blandy 1997-06-24 05:33:59 +00:00
parent 6ac3c29227
commit fcfb248d0c
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/regex-posix.c
View file

@ -245,14 +245,14 @@ scm_init_regex_posix ()
scm_tc16_regex_t = scm_newsmob (&regex_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"