Thorn.m: Move Makefile file generation to new CodeGenMakefile.m

Tools/CodeGen/CodeGenMakefile.m

@@ -0,0 +1,41 @@
+
+(*  Copyright 2004-2013 Sascha Husa, Ian Hinder, Christiane Lechner
+
+    This file is part of Kranc.
+
+    Kranc is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    Kranc is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with Kranc; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+*)
+
+BeginPackage[
+  "CodeGenMakefile`",
+  {"Errors`", "Helpers`", "Kranc`", "CodeGenKranc`"}];
+
+CreateMakefile::usage = "Create the content of the Cactus make.code.defn file.";
+
+Begin["`Private`"];
+
+(* ------------------------------------------------------------------------ 
+   Makefile
+   ------------------------------------------------------------------------ *)
+
+(* Return a CodeGen block representing a makefile which refers to the
+   list of filenames sourceFiles *)
+CreateMakefile[sourceFiles_] :=
+  {FileHeader["Makefile"],
+   "SRCS = ", Map[{#, " "} &, sourceFiles], "\n"};
+
+End[];
+
+EndPackage[];

Tools/CodeGen/KrancThorn.m

@@ -30,7 +30,7 @@
  "CalculationFunction`", "Errors`", "Helpers`", "CactusBoundary`",
  "KrancTensor`", "Param`", "Schedule`", "Interface`", "Kranc`", "Jacobian`",
  "ConservationCalculation`", "CaKernel`", "Calculation`", "ParamCheck`",
- "OpenCL`", "CodeGenConfiguration`"}];
+ "OpenCL`", "CodeGenConfiguration`", "CodeGenMakefile`"}];
 
 CreateKrancThorn::usage = "Construct a Kranc thorn";
 

Tools/CodeGen/Thorn.m

@@ -29,7 +29,6 @@
 
 (* These functions are externally visible, and comprise the public
    interface to this package. *)
-CreateMakefile::usage = "Create the content of the Cactus make.code.defn file.";
 CreateThorn::usage = "Create a general Cactus thorn from
 a thorn specification structure";
 CreateSymmetriesRegistrationSource::usage = "";
@@ -43,16 +42,6 @@
 
 Begin["`Private`"];
 
-(* ------------------------------------------------------------------------ 
-   Makefile
-   ------------------------------------------------------------------------ *)
-
-(* Return a CodeGen block representing a makefile which refers to the
-   list of filenames sourceFiles *)
-CreateMakefile[sourceFiles_] :=
-  {FileHeader["Makefile"],
-   "SRCS = ", Map[{#, " "} &, sourceFiles], "\n"};
-
 
 (* ------------------------------------------------------------------------ 
    Setter