diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-13 17:33:45 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-13 17:34:06 +0200 |
commit | 3e8deef5ee913da69938ee19e79cb08244c99b93 (patch) | |
tree | 74087582d469f14751e8f049af90c11dada1093b | |
parent | 4ef8cd2bd3d7189f6a3469985dfed108e78279b9 (diff) |
KrancThorn.m: Collect GenericFD-related code into a single function
Changes ordering of inherited implementations in interface.ccl.
-rw-r--r-- | Tools/CodeGen/KrancThorn.m | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index e4a0478..53d7bba 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -70,6 +70,14 @@ DefFn[ c = AppendObjectField[c, "InheritedImplementations", "Grid"]; c]]; +DefFn[ + genericFDProcessCode[cIn_Code, opts___] := + Module[ + {c = cIn}, + c = AppendObjectField[c, "IncludeFiles", "GenericFD.h"]; + c = AppendObjectField[c, "InheritedImplementations", "GenericFD"]; + c]]; + (* -------------------------------------------------------------------------- Thorn generation (main entry point for non-tensorial thorns) -------------------------------------------------------------------------- *) @@ -106,10 +114,10 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ "Sources" -> {}}]; (* ------------------------------------------------------------------------ - Add required include files + GenericFD ------------------------------------------------------------------------ *) - c = AppendObjectField[c, "IncludeFiles", "GenericFD.h"]; + c = genericFDProcessCode[c, opts]; (* ------------------------------------------------------------------------ Add conservation differencing operators to partialDerivs @@ -175,12 +183,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ GetObjectField[c, "Calculations"]],1]]]]; (* ------------------------------------------------------------------------ - Inherited implementations - ------------------------------------------------------------------------ *) - - c = AppendObjectField[c, "InheritedImplementations", "GenericFD"]; - - (* ------------------------------------------------------------------------ Check input parameters ------------------------------------------------------------------------ *) |