Changeset 9230 for trunk/MagicSoft/Mars/mfileio

Timestamp:

01/19/09 19:40:49 (16 years ago)

Author:

tbretz

Message:

*** empty log message ***

File:

• trunk/MagicSoft/Mars/mfileio/MWriteRootFile.cc (modified) (4 diffs)

trunk/MagicSoft/Mars/mfileio/MWriteRootFile.cc

@@ -18 +18 @@
 !   Author(s): Thomas Bretz, 6/2001 <mailto:tbretz@astro.uni-wuerzburg.de>
 !
-!   Copyright: MAGIC Software Development, 2000-2005
+!   Copyright: Software Development, 2000-2009
 !
 !
@@ -65 +65 @@
 #include <TFile.h>
 #include <TTree.h>
-#include <TRegexp.h>
+#include <TPRegexp.h>
 
 #include "MLog.h"
@@ -810 +810 @@
 //
 // A rule looks like:
-//   "outputpath{s/source/destination}"
-//
-// outpath:                the output path into which the files are written
-// {s/source/destination}  a substitution rule for the filename
-//   while source can be a regular expression everything which matches this
-//   regular expression (see TRegexp) will be replaced by destination.
-//   Warning: The algorithm is recursive you may create endless loops!
+//   "s/source/destination/"
+//
+// For more details on regular expression see a proper documentation.
+//
+// Here is an example:
 //
 // Example:
 //   inputfile: /data/MAGIC/Period016/rootdata/20040621_23210_D_Mkn421_E.root
-//   rule:      /outpath/{s/_D_/_Y_}
+//   rule:      /([0-9]+_[0-9]+)_D_(.*[.]root)/\\/outpath\\/$1_Y_$2/
 //   outfile:   /outpath/20040621_23210_Y_Mkn421_E.root
 //
-// If you need more difficult rules please send me an eMail...
+// Please make sure that all / in your rules are correctly escaped, i.e.
+// in the string stored in memory it must look like \/ and in the string
+// your set in your program it must look \\/.
 //
 TString MWriteRootFile::GetNewFileName(const char *inname) const
@@ -832 +832 @@
         fname.Remove(0, fname.Last('/')+1);
 
-    // Make a copy of the rule
-    TString rule(fSplitRule);
-
-    // [characte class], ^ do not, [^{}] do not match { and }, [^{}]+ match at least not one { or }
-    const TRegexp subst0("{s/[^{}/]+/[^{}/]+}");
-
-    TString path;
-    Bool_t first = kTRUE;
-
-    Ssiz_t idx=0;
-    while (1)
-    {
-        // Find a substitution exprsssion
-        Ssiz_t len = 0;
-        idx = subst0.Index(rule, &len);
-        if (idx<0)
-            break;
-
-        // If the first substitution expression is found in the rule
-        // determin the path from everything before
-        if (first)
-        {
-            path=rule(0, idx);
-            first = kFALSE;
-        }
-
-        // Extract a substitution expression
-        TString expr = rule(idx, len);
-        rule.Remove(idx, len);
-
-        expr.Remove(0,3);
-        expr.Remove(expr.Length()-1);
-
-        // In all cases this is well defined (see Regexp)
-        const Ssiz_t pos = expr.First('/');
-
-        // Split substitution rule into source and destination
-        const TString src  = expr(0, pos);
-        const TString dest = expr(pos+1, expr.Length());
-
-        // Replace source by destination
-        const TRegexp regexp(src);
-
-        Ssiz_t ichar = 0;
-        while (1) // Replace all occurrences of src by dest
-        {
-            idx = regexp.Index(fname, &len, ichar);
-            if (idx<0)
-                break;
-
-            fname.Replace(idx, len, dest);
-            ichar = idx + dest.Length();
-
-            // In next iteration, we start searching the string fname
-            // right after the last character of the previous substitution
-            // (indicated by ichar). This avoids infinite loops in the case 
-            // we want to replace, for instance, "_w" by "_Y_w". Without 
-            // the use of ichar, the second string would be replaced by 
-            // "_Y_Y_w", and this would never end... 
-        }
-    }
-
-    // Check if we have a trailing '/'
-    if (!path.IsNull() && path[path.Length()-1]!='/')
-        path.Append("/");
-
-    //inname.Prepend(path);
-
-    // Create full qualified pathname
-    path += fname;
-    return path;
+    // Regular expression to split the rule into its contents
+    static const TString sed("s/((\\\\/|[^/])*)/((\\\\/|[^/])*)/([gimosxd]*)");
+
+    // Do splitting
+    TObjArray *subStrL = TPRegexp(sed).MatchS(fSplitRule);
+    if (subStrL->GetEntries()!=6)
+    {
+        *fLog << err << "ERROR - GetNewFileName: Evaluating split rule " << fSplitRule << " failed." << endl;
+        subStrL->Print();
+        delete subStrL;
+        return "";
+    }
+
+    /*const*/ TString reg = (*subStrL)[1]->GetName(); // Regular expression to search for
+    /*const*/ TString tar = (*subStrL)[3]->GetName(); // Regular expression for replacing
+      const   TString mod = (*subStrL)[5]->GetName(); // Possible modifiers (e.g. 'a')
+
+    delete subStrL;
+
+    // Unescpae slashes in paths
+    reg.ReplaceAll("\\/", "/");
+    tar.ReplaceAll("\\/", "/");
+
+    // Do substitution
+    const Int_t nrSub = TPRegexp(reg).Substitute(fname, tar, mod);
+    if (nrSub==0)
+    {
+        gLog << err << "ERROR - Substituting due to SplitRule failed." << endl;
+        gLog << " Source FileName:  " << fname << endl;
+        gLog << " Search  Rexexp:   " << reg   << endl;
+        gLog << " Replace Rexexp:   " << tar   << endl;
+        gLog << " Modifiers:        " << mod   << endl;
+        return "";
+    }
+
+    return fname;
 }