print name of created file only in debug mode

FlexibleSUSY · Feb 18, 2017 · ad2a68a · ad2a68a
1 parent 695da0b
commit ad2a68a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/meta/WriteOut.m b/meta/WriteOut.m
@@ -50,6 +50,10 @@
 
 Begin["`Private`"];
 
+DebugPrint[msg___] :=
+    If[FlexibleSUSY`FSDebugOutput,
+       Print["Debug<WriteOut>: ", Sequence @@ InputFormOfNonStrings /@ {msg}]];
+
 (*
  * @brief Replaces tokens in files.
  *
@@ -72,7 +76,7 @@
               cppTemplateFileName = files[[f,2]];
               cppFile             = Import[cppFileName, "String"];
               modifiedCppFile     = StringReplace[cppFile, replacementList];
-              Print["   Writing file ", cppTemplateFileName];
+              DebugPrint["writing file ", cppTemplateFileName];
               Export[cppTemplateFileName, modifiedCppFile, "String"];
              ];
           ];