ebl first cup of "regexp where"

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@4333 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/bacula/patches/testing/resubst.c b/bacula/patches/testing/resubst.c
new file mode 100644 (file)
index 0000000..3e5b4d6
--- /dev/null
+++ b/bacula/patches/testing/resubst.c
@@ -0,0 +1,139 @@
+#include "bacula.h"
+#include "bregex.h"
+
+/* s/toto(.)/titi$1/ 
+ * toto est beau => titi est beau
+ *
+ */
+
+/* re_match()
+ * compute_dest_len()
+ * check_pool_size()
+ * edit()
+ */
+
+int compute_dest_len(char *fname, char *subst, 
+                    regmatch_t *pmatch, int nmatch)
+{
+   int len=0;
+   char *p;
+   if (!fname || !subst || !pmatch || !nmatch) {
+      return 0;
+   }
+
+   /* match failed ? */
+   if (pmatch[0].rm_so < 0) {
+      return 0;
+   }
+
+   int no;
+   for (p = subst++; *p ; p = subst++) {
+      /* match $1 \1 back references */
+      if ((*p == '$' || *p == '\\') && ('0' <= *subst && *subst <= '9')) {
+        no = *subst++ - '0';
+
+        /* we check if the back reference exists */
+        if (no < nmatch && pmatch[no].rm_so >= 0 && pmatch[no].rm_eo >= 0) { 
+           len += pmatch[no].rm_eo - pmatch[no].rm_so;
+        } else {
+           return 0; /* back reference missing or reference number > nmatch */
+        }
+      } else {
+        len++;
+      }
+   }
+
+   /* $0 is replaced by subst */
+   len -= pmatch[0].rm_eo - pmatch[0].rm_so;
+   len += strlen(fname) + 1;
+
+   return len;
+}
+
+/* /toto/titi/ 
+ * preg
+ * subst
+ */
+bool extract_regexp(char *motif, regex_t *preg, POOLMEM **subst)
+{
+   /* rechercher le 1er car sans \ devant */
+   /* compiler la re dans preg */
+   /* extraire le subst */
+   /* verifier le nombre de reference */
+}
+
+/* dest is long enough */
+char *edit_subst(char *fname, char *subst, regmatch_t *pmatch, char *dest)
+{
+   int i;
+   char *p;
+
+   /* il faut recopier fname dans dest
+    *  on recopie le debut fname -> pmatch[0].rm_so
+    */
+   
+   for (i = 0; i < pmatch[0].rm_so ; i++) {
+      dest[i] = fname[i];
+   }
+
+   /* on recopie le motif de remplacement (avec tous les $x) */
+
+   int no;
+   int len;
+   for (p = subst++; *p ; p = subst++) {
+      /* match $1 \1 back references */
+      if ((*p == '$' || *p == '\\') && ('0' <= *subst && *subst <= '9')) {
+        no = *subst++ - '0';
+
+        len = pmatch[no].rm_eo - pmatch[no].rm_so;
+        bstrncpy(dest + i, fname + pmatch[no].rm_so, len);
+        i += len;
+
+      } else {
+        dest[i++] = *p;
+      }
+   }
+
+   strcpy(dest + i, fname + pmatch[0].rm_eo);
+
+   return dest;
+}
+
+/* return jcr->subst_fname or fname */
+char *fname_subst(JCR *jcr, char *fname)
+{
+   /* in JCR */
+   regex_t preg;
+   char *pat="$";
+   char *subst=".old";
+   char *dest=NULL;
+
+   int rc = regcomp(&preg, pat, REG_EXTENDED);
+   if (rc != 0) {
+      char prbuf[500];
+      regerror(rc, &preg, prbuf, sizeof(prbuf));
+      printf("Regex compile error: %s\n", prbuf);
+      return fname;
+   }
+
+   const int nmatch = 30;
+   regmatch_t pmatch[nmatch];
+   rc = regexec(&preg, fname, nmatch, pmatch,  0);
+
+   if (!rc) {
+      char prbuf[500];
+      regerror(rc, &preg, prbuf, sizeof(prbuf));
+      printf("Regex error: %s\n", prbuf);
+      return fname;
+   }
+
+   int len = compute_dest_len(fname, subst, 
+                             pmatch, nmatch);
+
+   if (len) {
+      dest = (char *)malloc(len);
+      edit_subst(fname, subst, pmatch, dest);
+   }
+
+   return dest;
+}