www-cgi: Introduce `?DEFAULTS' pattern to match the default set.

[userv-utils] / www-cgi / ucgicommon.c

diff --git a/www-cgi/ucgicommon.c b/www-cgi/ucgicommon.c
index db8c75d..73565b5 100644 (file)
--- a/www-cgi/ucgicommon.c
+++ b/www-cgi/ucgicommon.c
@@ -18,6 +18,7 @@
  * $Id$
  */
 
+#include <assert.h>
 #include <ctype.h>
 #include <stdarg.h>
 #include <stdio.h>
@@ -124,75 +125,96 @@ opened:
   return v;
 }
 
+static int envvar_match(unsigned flags, const char *en,
+                       const char *const *patv,
+                       const char *const *defaults,
+                       const char **ev)
+{
+  const char *const *patp;
+  const char *q, *pat;
+  int acceptp;
+  int rc;
+
+  if (!patv) { patv= defaults; defaults= 0; }
+  for (patp= patv; (pat= *patp); patp++) {
+    q= en;
+    acceptp= 1;
+    if (*pat == '!' && (flags & FILTF_WILDCARD)) { acceptp= 0; pat++; }
+    else if (*pat == '?') {
+      if (strcmp(pat + 1, "DEFAULTS") == 0) {
+       assert(defaults);
+       rc= envvar_match(flags, en, defaults, 0, ev);
+       if (rc) return rc;
+      } else
+       error("unknown pattern directive");
+      continue;
+    }
+
+    for (;;) {
+      if (!*pat) {
+       if (*q != '=') {
+         D( if (debugmode)
+              printf(";;     mismatch `%s' (prefix)\n", *patp); )
+         break;
+       }
+       D( if (debugmode) printf(";;     matched pattern `%s'\n", *patp); )
+       goto match;
+      } else if (*pat == '*' && (flags & FILTF_WILDCARD)) {
+       q = strchr(q, '=');
+       if (!q) {
+         D( if (debugmode)
+              printf(";;     mismatch `%s' (discard: no `=')\n", *patp); )
+         return -1;
+       }
+       D( if (debugmode)
+            printf(";;     wildcard match for `%s'\n", *patp); )
+       goto match;
+      } else {
+       if (*pat++ != *q++) {
+         D( if (debugmode) printf(";;     mismatch `%s'\n", *patp); )
+         break;
+       }
+      }
+    }
+  }
+  return 0;
+
+match:
+  if (!acceptp) return -1;
+  *ev= q + 1;
+  return +1;
+}
+
 void filter_environment(unsigned flags, const char *prefix_in,
                        const char *const *patv,
+                       const char *const *defaults,
                        void (*foundone)(const char *fulln,
                                         const char *en, const char *ev,
                                         void *p),
                        void *p)
 {
   char *const *ep;
-  const char *const *patp;
-  const char *en, *ev, *pat, *q;
+  const char *en, *ev;
   char enbuf[MAX_ENVVAR_NAME];
   size_t n, pn = strlen(prefix_in);
-  int acceptp;
 
   D( if (debugmode) printf(";; filter_environment...\n"); )
   for (ep= environ; (en= *ep); ep++) {
     D( if (debugmode) printf(";;   consider env-var `%s'\n", en); )
     if (strncmp(en, prefix_in, pn) != 0 || !en[pn]) {
       D( if (debugmode) printf(";;     doesn't match prefix\n"); )
-      goto next_ev;
+      continue;
     }
-    for (patp= patv; (pat= *patp); patp++) {
-      q= en + pn;
-      acceptp= 1;
-      if (*pat == '!' && (flags & FILTF_WILDCARD)) {
-       acceptp= 0; pat++;
-      }
-      for (;;) {
-       if (!*pat) {
-         if (*q != '=') {
-           D( if (debugmode)
-                printf(";;     mismatch `%s' (prefix)\n", *patp); )
-           goto next_pat;
-         }
-         D( if (debugmode) printf(";;     matched `%s'\n", *patp); )
-         ev = q + 1;
-         break;
-       } else if (*pat == '*' && (flags & FILTF_WILDCARD)) {
-         q = strchr(q, '=');
-         if (!q) {
-           D( if (debugmode)
-                printf(";;     mismatch `%s' (discard: no `=')\n", *patp); )
-           goto next_ev;
-         }
-         D( if (debugmode)
-              printf(";;     wildcard match for `%s'\n", *patp); )
-         ev = q + 1;
-         break;
-       } else
-         if (*pat++ != *q++) {
-           D( if (debugmode) printf(";;     mismatch `%s'\n", *patp); )
-           goto next_pat;
-         }
-      }
-      if (acceptp) {
-       n= q - en;
-       if (n >= sizeof(enbuf))
-         error("environment variable name too long");
-       memcpy(enbuf, en, n);
-       enbuf[n]= 0;
-       D( if (debugmode)
-            printf(";;     full = `%s'; tail = `%s'; value = `%s'\n",
-                   enbuf, enbuf + pn, ev); )
-       foundone(enbuf, enbuf + pn, ev, p);
-      } D( else if (debugmode)
-            printf(";;     matched negated pattern\n"); )
-      goto next_ev;
-    next_pat:;
+    if (envvar_match(flags, en + pn, patv, defaults, &ev) > 0) {
+      n= strcspn(en, "=");
+      if (n >= sizeof(enbuf))
+       error("environment variable name too long");
+      memcpy(enbuf, en, n);
+      enbuf[n]= 0;
+      D( if (debugmode)
+          printf(";;     full = `%s'; tail = `%s'; value = `%s'\n",
+                 enbuf, enbuf + pn, ev); )
+      foundone(enbuf, enbuf + pn, ev, p);
     }
-  next_ev:;
   }
 }