use perlre for template trigger matching

kingaa · Nov 27, 2023 · 4266ea2 · 4266ea2
1 parent 2782c5c
commit 4266ea2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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))}",