1 files changed, 140 insertions, 0 deletions
diff --git a/Tools/CodeGen/Interface.m b/Tools/CodeGen/Interface.m
new file mode 100644
index 0000000..29c198f
--- /dev/null
+++ b/Tools/CodeGen/Interface.m
@@ -0,0 +1,140 @@
+
+(*  Copyright 2004 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["Interface`", {"Thorn`", "KrancGroups`", "MapLookup`", "Errors`", "Helpers`", "Kranc`"}];
+
+CreateKrancInterface;
+
+Begin["`Private`"];
+
+(* --------------------------------------------------------------------------
+   Interface and variable definitions
+   -------------------------------------------------------------------------- *)
+
+nonevolvedGroupInterfaceStructure[group_] := 
+{
+  Name -> groupName[group], 
+  VariableType -> "CCTK_REAL",
+  Timelevels -> NonevolvedTimelevels[group],
+  GridType -> "GF",
+  Comment -> groupName[group], 
+  Visibility -> "public",
+  Tags -> Join[GroupTags[group]],
+  Variables -> groupVariables[group]
+}
+
+evolvedGroupInterfaceStructure[group_, timelevels_] := 
+{
+  Name -> groupName[group], 
+  VariableType -> "CCTK_REAL",
+  Timelevels -> timelevels, 
+  GridType -> "GF",
+  Comment -> groupName[group], 
+  Visibility -> "public",
+  Tags -> GroupTags[group],
+  Variables -> groupVariables[group]
+}
+
+rhsGroupInterfaceStructure[group_, timelevels_] := 
+{
+  Name -> groupName[group], 
+  VariableType -> "CCTK_REAL",
+  Timelevels -> timelevels, 
+  GridType -> "GF",
+  Comment -> groupName[group], 
+  Visibility -> "public",
+  Tags -> GroupTags[group],
+  Variables -> groupVariables[group]
+}
+
+
+Options[CreateKrancInterface] = ThornOptions;
+
+CreateKrancInterface[nonevolvedGroups_, evolvedGroups_, rhsGroups_, groups_,
+  implementation_, inheritedImplementations_,
+  includeFiles_, opts:OptionsPattern[]] :=
+
+  Module[{registerEvolved, (*registerConstrained,*)
+    nonevolvedGroupStructures, evolvedGroupStructures, rhsGroupStructures,
+    groupStructures, interface},
+    VerifyGroupNames[nonevolvedGroups];
+    VerifyGroupNames[evolvedGroups];
+    VerifyGroupNames[rhsGroups];
+    VerifyGroups[groups];
+    VerifyString[implementation];
+    VerifyStringList[inheritedImplementations];
+    VerifyStringList[includeFiles];
+    (* These are the aliased functions that are USED by this thorn from other thorns *)
+    registerEvolved = 
+    {
+      Name      -> "MoLRegisterEvolved",
+      Type      -> "CCTK_INT",
+      ArgString -> "CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex"
+    };
+
+    (*
+    registerConstrained = 
+    {
+      Name      -> "MoLRegisterConstrained",
+      Type      -> "CCTK_INT",
+      ArgString -> "CCTK_INT IN ConstrainedIndex"
+    };
+    *)
+
+    diffCoeff = 
+    {
+      Name -> "Diff_coeff",
+      Type -> "SUBROUTINE",
+      ArgString -> "CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle"
+    };
+
+
+    (* For each group declared in this thorn, we need an entry in the
+        interface file.  Each evolved group needs an associated rhs
+        group, but these are constructed at a higher level and are
+        listed in the nonevolved groups. *)
+    nonevolvedGroupStructures = 
+      Map[nonevolvedGroupInterfaceStructure[groupFromName[#, groups]] &, 
+          nonevolvedGroups];
+
+    evolvedGroupStructures =
+      Map[evolvedGroupInterfaceStructure[groupFromName[#, groups],
+          OptionValue[EvolutionTimelevels]] &, evolvedGroups];
+
+    rhsGroupStructures =
+      Map[rhsGroupInterfaceStructure[groupFromName[#, groups],
+          OptionValue[EvolutionTimelevels]] &, rhsGroups];
+
+    groupStructures = Join[nonevolvedGroupStructures,
+                           evolvedGroupStructures, rhsGroupStructures];
+
+    interface = CreateInterface[implementation, inheritedImplementations, 
+      Join[includeFiles, {CactusBoundary`GetIncludeFiles[]},
+           If[OptionValue[UseLoopControl], {"loopcontrol.h"}, {}]],
+      groupStructures,
+      UsesFunctions ->
+        Join[{registerEvolved, (*registerConstrained,*) diffCoeff}, 
+             CactusBoundary`GetUsedFunctions[]]];
+    Return[interface]];
+
+
+End[];
+
+EndPackage[];