From 4266ea259d70dc911456a71020c6ff2f00aec426 Mon Sep 17 00:00:00 2001
From: "Aaron A. King" <kingaa@umich.edu>
Date: Mon, 27 Nov 2023 17:16:06 -0500
Subject: [PATCH] use perlre for template trigger matching

---
 R/builder.R   | 3 ++-
 R/templates.R | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/builder.R b/R/builder.R
index 13d75e28..8fc59d7c 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -197,7 +197,8 @@ Cbuilder <- function (..., templates, name = NULL, dir = NULL,
       \(x) any(
              grepl(
                pomp_templates$utilities[[x]]$trigger,
-               c(snippets,on_load)
+               c(snippets,on_load),
+               perl=TRUE
              )
            ),
       logical(1L)
diff --git a/R/templates.R b/R/templates.R
index c72c5da6..2f87f88b 100644
--- a/R/templates.R
+++ b/R/templates.R
@@ -43,7 +43,7 @@ static get_userdata_double_t *__pomp_get_userdata_double;
   __pomp_get_userdata_double = (get_userdata_double_t *) R_GetCCallable("pomp","get_userdata_double");}"
     ),
     get_userdata=list(
-      trigger=r"{get_userdata(\b|[^_])}",
+      trigger=r"{get_userdata(?!_)}",
       header=r"{
 static get_userdata_t *__pomp_get_userdata;
 #define get_userdata(X)  (__pomp_get_userdata(X))}",