Move make-regexp, regexp?, regexp-exec to (ice-9 regex)

Also deprecate the C interface.

* libguile/Makefile.am: Don't install regex-posix.h.
* libguile/deprecated.c:
* libguile/deprecated.h: Add deprecated shims for scm_make_regexp et al.
* libguile/init.c: Fix comment.
* libguile/regex-posix.c: Privatize some of the implementation details.
Arrange to install into (ice-9 regex) instead of default environment.
* module/ice-9/deprecated.scm: Add deprecation shims.
* module/ice-9/regex.scm: Add new definitions.
* module/ice-9/sandbox.scm:
* module/scripts/read-scheme-source.scm:
* module/system/repl/server.scm:
* module/texinfo/reflection.scm:
* test-suite/tests/r6rs-exceptions.test:
* test-suite/tests/srfi-10.test: Import (ice-9 regex).

libguile/Makefile.am

@@ -524,6 +524,7 @@ noinst_HEADERS = custom-ports.h					\
 		 private-options.h 				\
 		 programs.h					\
 		 ports-internal.h 				\
+		 regex-posix.h					\
 		 syntax.h 					\
 		 trace.h 					\
 		 whippet-embedder.h
@@ -653,7 +654,6 @@ modinclude_HEADERS =				\
 	random.h				\
 	rdelim.h				\
 	read.h					\
-	regex-posix.h				\
 	rw.h					\
 	scmsigs.h				\
 	script.h				\

libguile/deprecated.c

@@ -686,6 +686,55 @@ scm_force (SCM promise)
   return scm_call_1 (scm_variable_ref (force_var), promise);
 }
 
+
+
+static SCM make_regexp_var;
+static SCM regexp_p_var;
+static SCM regexp_exec_var;
+
+static void
+init_regexp_vars (void)
+{
+  make_regexp_var = scm_c_public_lookup ("ice-9 regex", "make-regexp");
+  regexp_p_var = scm_c_public_lookup ("ice-9 regex", "regexp?");
+  regexp_exec_var = scm_c_public_lookup ("ice-9 regex", "regexp-exec");
+}
+
+static void
+init_regexp_functions (void)
+{
+  static scm_i_pthread_once_t once = SCM_I_PTHREAD_ONCE_INIT;
+  scm_c_issue_deprecation_warning
+    ("Using the SCM regexp functions from C is deprecated.  Invoke"
+     "make-regexp, etc. from (ice-9 regex) instead.");
+  scm_i_pthread_once (&once, init_regexp_vars);
+}
+
+
+SCM
+scm_make_regexp (SCM pat, SCM flags)
+{
+  init_regexp_functions ();
+  return scm_apply_1 (scm_variable_ref (make_regexp_var), pat, flags);
+}
+
+SCM
+scm_regexp_p (SCM x)
+{
+  init_regexp_functions ();
+  return scm_call_1 (scm_variable_ref (regexp_p_var), x);
+}
+
+SCM
+scm_regexp_exec (SCM rx, SCM str, SCM start, SCM flags)
+{
+  init_regexp_functions ();
+  if (SCM_UNBNDP (start))
+    start = SCM_INUM0;
+  if (SCM_UNBNDP (flags))
+    flags = SCM_INUM0;
+  return scm_call_4 (scm_variable_ref (regexp_exec_var), rx, str, start, flags);
+}
 
 
 

libguile/deprecated.h

@@ -113,6 +113,13 @@ SCM_DEPRECATED SCM scm_make_promise (SCM thunk);
 SCM_DEPRECATED SCM scm_force (SCM x);
 SCM_DEPRECATED SCM scm_promise_p (SCM x);
 
+SCM_DEPRECATED SCM scm_make_regexp (SCM pat, SCM flags);
+SCM_DEPRECATED SCM scm_regexp_p (SCM x);
+SCM_DEPRECATED SCM scm_regexp_exec (SCM rx, SCM str, SCM start, SCM flags);
+
+#define SCM_RGXP(X)	(scm_is_true (scm_regexp_p (x)))
+#define SCM_VALIDATE_RGXP(pos, a) SCM_MAKE_VALIDATE_MSG (pos, a, RGXP, "regexp")
+
 /* Deprecated declarations go here.  */
 
 void scm_i_init_deprecated (void);

libguile/init.c

@@ -411,7 +411,7 @@ scm_i_init_guile (struct gc_stack_addr base)
   scm_init_posix ();
 #endif
 #ifdef ENABLE_REGEX
-  scm_init_regex_posix (); /* Requires smob_prehistory */
+  scm_init_regex_posix ();
 #endif
   scm_init_procs ();
   scm_init_scmsigs ();

libguile/regex-posix.c

@@ -38,6 +38,7 @@
 #include <wchar.h>
 
 #include "async.h"
+#include "extensions.h"
 #include "feature.h"
 #include "gsubr.h"
 #include "list.h"
@@ -50,6 +51,7 @@
 #include "strports.h"
 #include "symbols.h"
 #include "vectors.h"
+#include "version.h"
 
 #include "regex-posix.h"
 
@@ -60,6 +62,17 @@
 
 scm_t_bits scm_tc16_regex;
 
+static inline int
+scm_is_regexp (SCM x)
+{
+  return SCM_HAS_TYP16 (x, scm_tc16_regex);
+}
+
+#define SCM_REGEXP_P(x)	(scm_is_regexp (x))
+#define SCM_RGX(X)	((regex_t *) SCM_SMOB_DATA (X))
+#define SCM_VALIDATE_RGXP(pos, a) \
+  SCM_MAKE_VALIDATE_MSG (pos, a, REGEXP_P, "regexp")
+
 static size_t
 regex_free (SCM obj)
 {
@@ -88,17 +101,17 @@ scm_regexp_error_msg (int regerrno, regex_t *rx)
   return scm_take_locale_string (errmsg);
 }
 
-SCM_DEFINE (scm_regexp_p, "regexp?", 1, 0, 0,
+SCM_DEFINE_STATIC (regexp_p, "regexp?", 1, 0, 0,
                    (SCM obj),
                    "Return @code{#t} if @var{obj} is a compiled regular expression,\n"
                    "or @code{#f} otherwise.")
-#define FUNC_NAME s_scm_regexp_p
+#define FUNC_NAME s_regexp_p
 {
-  return scm_from_bool(SCM_RGXP (obj));
+  return scm_from_bool (scm_is_regexp (obj));
 }
 #undef FUNC_NAME
 
-SCM_DEFINE (scm_make_regexp, "make-regexp", 1, 0, 1,
+SCM_DEFINE_STATIC (make_regexp, "make-regexp", 1, 0, 1,
                    (SCM pat, SCM flags),
                    "Compile the regular expression described by @var{pat}, and\n"
                    "return the compiled regexp structure.  If @var{pat} does not\n"
@@ -137,7 +150,7 @@ SCM_DEFINE (scm_make_regexp, "make-regexp", 1, 0, 1,
                    "both @code{regexp/basic} and @code{regexp/extended} flags, the\n"
                    "one which comes last will override the earlier one.\n"
                    "@end table")
-#define FUNC_NAME s_scm_make_regexp
+#define FUNC_NAME s_make_regexp
 {
   SCM flag;
   regex_t *rx;
@@ -217,7 +230,7 @@ fixup_multibyte_match (regmatch_t *matches, int nmatches, char *str)
 
 }
 
-SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0,
+SCM_DEFINE_STATIC (regexp_exec, "regexp-exec", 2, 2, 0,
                    (SCM rx, SCM str, SCM start, SCM flags),
                    "Match the compiled regular expression @var{rx} against\n"
                    "@code{str}.  If the optional integer @var{start} argument is\n"
@@ -238,7 +251,7 @@ SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0,
                    "is used).  Use this when the end of the string should not be\n"
                    "considered the end of a line.\n"
                    "@end table")
-#define FUNC_NAME s_scm_regexp_exec
+#define FUNC_NAME s_regexp_exec
 {
   int status, nmatches, offset;
   regmatch_t *matches;
@@ -305,8 +318,8 @@ SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0,
 }
 #undef FUNC_NAME
 
-void
+static void
-scm_init_regex_posix ()
+scm_init_ice_9_regex (void *unused)
 {
   scm_tc16_regex = scm_make_smob_type ("regexp", sizeof (regex_t));
   scm_set_smob_free (scm_tc16_regex, regex_free);
@@ -321,7 +334,17 @@ scm_init_regex_posix ()
   scm_c_define ("regexp/notbol", scm_from_int (REG_NOTBOL));
   scm_c_define ("regexp/noteol", scm_from_int (REG_NOTEOL));
 
+#ifndef SCM_MAGIC_SNARFER
 #include "regex-posix.x"
+#endif
+}
 
+void
+scm_init_regex_posix ()
+{
+  scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION,
+                            "scm_init_ice_9_regex",
+                            scm_init_ice_9_regex,
+                            NULL);
   scm_add_feature ("regex");
 }

libguile/regex-posix.h

@@ -1,7 +1,7 @@
 #ifndef SCM_REGEX_POSIX_H
 #define SCM_REGEX_POSIX_H
 
-/* Copyright 1997-1998,2000-2001,2006,2008,2018
+/* Copyright 1997-1998,2000-2001,2006,2008,2018,2025
      Free Software Foundation, Inc.
 
    This file is part of Guile.
@@ -22,17 +22,8 @@
 
 
 
-#include <libguile/error.h>
+#include <libguile/scm.h>
 
-SCM_API scm_t_bits scm_tc16_regex;
-#define SCM_RGX(X)	((regex_t *) SCM_SMOB_DATA (X))
-#define SCM_RGXP(X)	(SCM_SMOB_PREDICATE (scm_tc16_regex, (X)))
-
-#define SCM_VALIDATE_RGXP(pos, a) SCM_MAKE_VALIDATE_MSG (pos, a, RGXP, "regexp")
-
-SCM_API SCM scm_make_regexp (SCM pat, SCM flags);
-SCM_API SCM scm_regexp_p (SCM x);
-SCM_API SCM scm_regexp_exec (SCM rx, SCM str, SCM start, SCM flags);
 SCM_INTERNAL void scm_init_regex_posix (void);
 
 #endif  /* SCM_REGEX_POSIX_H */

module/ice-9/deprecated.scm

@@ -385,3 +385,33 @@
   (make-promise thunk)
   (force promise))
 (define-deprecated*/stx (ice-9 promises) delay)
+
+(cond-expand
+ ;; FIXME: Don't include this if there is no regexp support!
+ ((or regex guile)
+  (use-modules (ice-9 regex))
+
+  (define-deprecated-trampoline (((ice-9 regex) make-regexp) pat . flags)
+    (apply make-regexp pat flags))
+  (define-deprecated-trampoline (((ice-9 regex) regexp?) x)
+    (regexp? x))
+  (define-deprecated-trampoline (((ice-9 regex) regexp-exec) rx str #:optional (start 0) (flags 0))
+    (regexp-exec rx str start flags))
+  (define-deprecated*/stx (ice-9 regex)
+    regexp/basic
+    regexp/extended
+    regexp/icase
+    regexp/newline
+    regexp/notbol
+    regexp/noteol)
+
+  (export (make-regexp* . make-regexp)
+          (regexp?* . regexp?)
+          (regexp-exec* . regexp-exec)
+          (regexp/basic* . regexp/basic)
+          (regexp/extended* . regexp/extended)
+          (regexp/icase* . regexp/icase)
+          (regexp/newline* . regexp/newline)
+          (regexp/notbol* . regexp/notbol)
+          (regexp/noteol* . regexp/noteol)))
+ (else))

module/ice-9/regex.scm

@@ -1,4 +1,4 @@
-;;;;    Copyright (C) 1997, 1999, 2001, 2004, 2005, 2006, 2008, 2010 Free Software Foundation, Inc.
+;;;;    Copyright (C) 1997, 1999, 2001, 2004, 2005, 2006, 2008, 2010, 2025 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -38,10 +38,34 @@
 ;;;; POSIX regex support functions.
 
 (define-module (ice-9 regex)
-  #:export (match:count match:string match:prefix match:suffix
+  ;; FIXME: #:export instead of #:replace when deprecated code removed.
-           regexp-match? regexp-quote match:start match:end match:substring
+  #:replace (make-regexp
-           string-match regexp-substitute fold-matches list-matches
+             regexp?
-           regexp-substitute/global))
+             regexp-exec
+             regexp/basic
+             regexp/extended
+             regexp/icase
+             regexp/newline
+             regexp/notbol
+             regexp/noteol)
+  #:export (fold-matches
+            list-matches
+            match:count
+            match:end
+            match:prefix
+            match:start
+            match:string
+            match:substring
+            match:suffix
+            regexp-match?
+            regexp-quote
+            regexp-substitute
+            regexp-substitute/global
+            string-match))
+
+(eval-when (expand load eval)
+  (load-extension (string-append "libguile-" (effective-version))
+                  "scm_init_ice_9_regex"))
 
 ;; References:
 ;;

module/ice-9/sandbox.scm

@@ -590,7 +590,7 @@ allocation limit is exceeded, an exception will be thrown to the
      restricted-vector-sort!)))
 
 (define regexp-bindings
-  '(((guile)
+  '(((ice-9 regex)
      make-regexp
      regexp-exec
      regexp/basic

module/scripts/read-scheme-source.scm

@@ -1,6 +1,6 @@
 ;;; read-scheme-source --- Read a file, recognizing scheme forms and comments
 
-;; 	Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc.
+;; 	Copyright (C) 2001, 2006, 2011, 2025 Free Software Foundation, Inc.
 ;;
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public License
@@ -85,6 +85,7 @@
 ;;; Code:
 
 (define-module (scripts read-scheme-source)
+  :use-module (ice-9 regex)
   :use-module (ice-9 rdelim)
   :export (read-scheme-source
            read-scheme-source-silently

module/system/repl/server.scm

@@ -24,6 +24,7 @@
   #:use-module (system repl hooks)
   #:use-module (ice-9 threads)
   #:use-module (ice-9 rdelim)
+  #:use-module (ice-9 regex)
   #:use-module (ice-9 match)
   #:use-module (ice-9 iconv)
   #:use-module (rnrs bytevectors)

module/texinfo/reflection.scm

@@ -1,6 +1,6 @@
 ;;;; (texinfo reflection) -- documenting Scheme as stexinfo
 ;;;;
-;;;; 	Copyright (C) 2009, 2010, 2011  Free Software Foundation, Inc.
+;;;; 	Copyright (C) 2009, 2010, 2011, 2025  Free Software Foundation, Inc.
 ;;;;    Copyright (C) 2003,2004,2009  Andy Wingo <wingo at pobox dot com>
 ;;;; 
 ;;;; This library is free software; you can redistribute it and/or
@@ -33,6 +33,7 @@
   #:use-module (oop goops)
   #:use-module (texinfo)
   #:use-module (texinfo plain-text)
+  #:use-module (ice-9 regex)
   #:use-module (ice-9 session)
   #:use-module (ice-9 documentation)
   #:use-module ((sxml transform) #:select (pre-post-order))

test-suite/tests/r6rs-exceptions.test

@@ -1,6 +1,6 @@
 ;;; r6rs-exceptions.test --- Test suite for R6RS (rnrs exceptions)  -*- scheme -*-
 
-;;      Copyright (C) 2010, 2013 Free Software Foundation, Inc.
+;;      Copyright (C) 2010, 2013, 2025, 2025 Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -20,6 +20,7 @@
 (define-module (test-suite test-rnrs-exceptions)
   :use-module ((rnrs conditions) :version (6))
   :use-module ((rnrs exceptions) :version (6))
+  :use-module (ice-9 regex)
   :use-module (system foreign)
   :use-module (test-suite lib))
 

test-suite/tests/srfi-10.test

@@ -1,7 +1,7 @@
 ;;;; srfi-10.test --- Test suite for Guile's SRFI-10 functions. -*- scheme -*-
 ;;;; Martin Grabmueller, 2001-05-10
 ;;;;
-;;;; Copyright (C) 2001, 2006, 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2001, 2006, 2009, 2025 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -19,6 +19,7 @@
 
 (use-modules
  (srfi srfi-10)
+ (ice-9 regex)
  ((test-suite lib) #:select (pass-if with-test-prefix)))
 
 (define-reader-ctor 'rx make-regexp)