]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/patches/testing/breg.c
ebl fix compilation
[bacula/bacula] / bacula / patches / testing / breg.c
index a997942b90080e19e4602b5ca8474f78fafc006a..7468c6572d0a17f04ace7d84e6113604ea4ea8ea 100644 (file)
@@ -7,7 +7,7 @@
  *
  */
 /*
-   Bacula® - The Network Backup Solution
+   Bacula\81Â\81® - The Network Backup Solution
 
    Copyright (C) 2006-2006 Free Software Foundation Europe e.V.
 
@@ -28,9 +28,9 @@
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
    02110-1301, USA.
 
-   Bacula® is a registered trademark of John Walker.
+   Bacula\81Â\81® is a registered trademark of John Walker.
    The licensor of Bacula is the Free Software Foundation Europe
-   (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich,
+   (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Z\81Ã\81¼rich,
    Switzerland, email:ftf@fsfeurope.org.
 */
 
@@ -43,7 +43,7 @@
 BREGEXP *new_bregexp(const char *motif)
 {
    Dmsg0(500, "bregexp: creating new bregexp object\n");
-   BREGEXP *self = (BREGEXP *)malloc(sizeof(BREGEXP));
+   BREGEXP *self = (BREGEXP *)bmalloc(sizeof(BREGEXP));
    memset(self, 0, sizeof(BREGEXP));
    
    if (!self->extract_regexp(motif)) {
@@ -52,15 +52,12 @@ BREGEXP *new_bregexp(const char *motif)
       return NULL;
    }
 
-   static int _start[RE_NREGS];
-   static int _end[RE_NREGS];
-
    self->result = get_pool_memory(PM_FNAME);
    self->result[0] = '\0';
 
 #ifdef HAVE_REGEX_H
    /* TODO: que devient cette memoire... */
-   self->_regs_match = (int *) malloc (2*RE_NREGS * sizeof(int));
+   self->_regs_match = (int *) bmalloc (2*RE_NREGS * sizeof(int));
 
    self->regs.num_regs = RE_NREGS;
    self->regs.start = self->_regs_match;
@@ -74,20 +71,26 @@ void free_bregexp(BREGEXP *self)
 {
    Dmsg0(500, "bregexp: freeing BREGEXP object\n");
 
+   if (!self) {
+      return;
+   }
+
    if (self->expr) {
-      free(self->expr);
+      bfree(self->expr);
    }
    if (self->result) {
       free_pool_memory(self->result);
    }
    if (self->_regs_match) {
-      free(self->_regs_match);
+      bfree(self->_regs_match);
    }
 
    regfree(&self->preg);
-   free(self);
+   bfree(self);
 }
 
+/* Free a bregexps alist
+ */
 void free_bregexps(alist *bregexps)
 {
    Dmsg0(500, "bregexp: freeing all BREGEXP object\n");
@@ -98,26 +101,22 @@ void free_bregexps(alist *bregexps)
    }
 }
 
-char *apply_bregexps(const char *fname, alist *bregexps)
+/* Apply all regexps to fname
+ */
+bool apply_bregexps(const char *fname, alist *bregexps, char **result)
 {
    BREGEXP *elt;
+   bool ok=false;
+
    char *ret = (char *) fname;
    foreach_alist(elt, bregexps) {
       ret = elt->replace(ret);
+      ok = ok || elt->success;
    }
-   return ret;
-}
-
-char *get_next_bregexp(char *where)
-{
-   char sep;
-   char *after;
-   bool ok=false;
+   Dmsg2(500, "bregexp: fname=%s ret=%s\n", fname, ret);
 
-   if (!where && !*where) {
-      return NULL;
-   }
-   
+   *result = ret;
+   return ok;
 }
 
 /* return an alist of BREGEXP or return NULL if it's not a 
@@ -147,15 +146,29 @@ alist *get_bregexps(const char *where)
 
 bool BREGEXP::extract_regexp(const char *motif)
 {
-   if (!motif || (*motif == '\0')) {
+   if ( !motif ) {
       return false;
    }
+   
    char sep = motif[0];
+
+   if (!(sep == '!' || 
+        sep == ':' || 
+        sep == ';' || 
+        sep == '|' || 
+        sep == ',' || 
+        sep == '&' || 
+        sep == '%' || 
+        sep == '=' || 
+        sep == '~' ||
+        sep == '#'   )) 
+   {
+      return false;
+   }
+
    char *search = (char *) motif + 1;
-   char *replace;
    int options = REG_EXTENDED | REG_NEWLINE;
    bool ok = false;
-   bool found_motif = false;
 
    /* extract 1st part */
    char *dest = expr = bstrdup(motif);
@@ -164,6 +177,9 @@ bool BREGEXP::extract_regexp(const char *motif)
       if (search[0] == '\\' && search[1] == sep) {
         *dest++ = *++search;       /* we skip separator */ 
 
+      } else if (search[0] == '\\' && search[1] == '\\') {
+        *dest++ = *++search;       /* we skip the second \ */
+
       } else if (*search == sep) {  /* we found end of expression */
         *dest++ = '\0';
 
@@ -226,11 +242,12 @@ bool BREGEXP::extract_regexp(const char *motif)
 /* return regexp->result */
 char *BREGEXP::replace(const char *fname)
 {
+   success = false;            /* use this.success to known if it's ok */
    int flen = strlen(fname);
    int rc = re_search(&preg, (BREGEX_CAST char*) fname, flen, 0, flen, &regs);
 
    if (rc < 0) {
-      Dmsg0(100, "E: regex mismatch\n");
+      Dmsg0(500, "bregexp: regex mismatch\n");
       return return_fname(fname, flen);
    }
 
@@ -239,9 +256,11 @@ char *BREGEXP::replace(const char *fname)
    if (len) {
       result = check_pool_memory_size(result, len);
       edit_subst(fname, &regs);
+      success = true;
+      Dmsg2(500, "bregexp: len = %i, result_len = %i\n", len, strlen(result));
 
    } else {                    /* error in substitution */
-      Dmsg0(100, "E: error in substitution\n");
+      Dmsg0(100, "bregexp: error in substitution\n");
       return return_fname(fname, flen);
    }
 
@@ -336,27 +355,91 @@ char *BREGEXP::edit_subst(const char *fname, struct re_registers *regs)
    return result;
 }
 
-void BREGEXP::debug()
+/* escape sep char and \
+ * dest must be long enough (src*2+1)
+ * return end of the string */
+char *bregexp_escape_string(char *dest, char *src, char sep)
 {
-   printf("expr=[%s]\n", expr);
-   printf("subst=[%s]\n", subst);
-   printf("result=%s\n", result?result:"(null)");
+   char *ret = dest;
+   while (*src)
+   {
+      if (*src == sep) {
+        *dest++ = '\\';
+      } else if (*src == '\\') {
+        *dest++ = '\\';
+      }
+      *dest++ = *src++;
+   }
+   *dest = '\0';
+
+   return ret; 
 }
 
-#ifdef TEST
+int bregexp_get_build_where_size(char *strip_prefix, 
+                                char *add_prefix, 
+                                char *add_suffix)
+{
+   /* strip_prefix = !strip_prefix!!i        4 bytes
+    * add_prefix   = !^!add_prefix!          5 bytes
+    * add_suffix   = !([^/])$!$1add_suffix! 13 bytes
+    */
+   int str_size = ((strip_prefix?strlen(strip_prefix)+4:0) +
+                  (add_prefix?strlen(add_prefix)+5    :0) + /* escape + 3*, + \0 */ 
+                  (add_suffix?strlen(add_suffix)+14   :0) )   * 2     + 3   + 1;
 
-int main(int argc, char **argv)
+   Dmsg1(1, "bregexp_get_build_where_size = %i\n", str_size);
+   return str_size;
+}
+
+/* build a regexp string with user arguments
+ * Usage :
+ * 
+ * int len = bregexp_get_build_where_size(a,b,c) ;
+ * char *dest = (char *) bmalloc (len * sizeof(char));
+ * bregexp_build_where(dest, len, a, b, c);
+ * free(dest);
+ * 
+ */
+char *bregexp_build_where(char *dest, int str_size,
+                         char *strip_prefix, 
+                          char *add_prefix, 
+                          char *add_suffix)
 {
-   BREGEXP *reg;
+   int len=0;
+   char sep = '!';
+
+   POOLMEM *str_tmp = get_memory(str_size);
+
+   *str_tmp = *dest = '\0';
    
-   reg = new_bregexp(argv[1]);
+   if (strip_prefix) {
+      len += bsnprintf(dest, str_size - len, "!%s!!i",
+                      bregexp_escape_string(str_tmp, strip_prefix, sep));
+   }
+
+   if (add_suffix) {
+      if (len) dest[len++] = ',';
 
-   if (reg) {
-      reg->replace(argv[2]);
-      reg->debug();
-      printf("%s => %s\n", argv[1], reg->result);
+      len += bsnprintf(dest + len,  str_size - len, "!([^/])$!$1%s!",
+                      bregexp_escape_string(str_tmp, add_suffix, sep));
    }
-   exit(0);
+
+   if (add_prefix) {
+      if (len) dest[len++] = ',';
+
+      len += bsnprintf(dest + len, str_size - len, "!^!%s!", 
+                      bregexp_escape_string(str_tmp, add_prefix, sep));
+   }
+
+   free_pool_memory(str_tmp);
+
+   return dest;
 }
 
-#endif
+
+void BREGEXP::debug()
+{
+   printf("expr=[%s]\n", expr);
+   printf("subst=[%s]\n", subst);
+   printf("result=%s\n", result?result:"(null)");
+}