From 0b97fbe33c5d71d797d67c8c4fa64ade69d5b092 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Tue, 2 Mar 2010 14:57:25 -0600
Subject: Obtain EvolutionTimelevels directly using OptionValue

---
 Tools/CodeGen/KrancThorn.m | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'Tools')

diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
index ea4a90d..7a82ef9 100644
--- a/Tools/CodeGen/KrancThorn.m
+++ b/Tools/CodeGen/KrancThorn.m
@@ -194,8 +194,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[
     InfoMessage[Terse, "Creating interface file"];
     interface = createKrancInterface[nonevolvedGroups,
       evolvedGroups, rhsGroups, groups,
-      evolutionTimelevels, implementation,
-      inheritedImplementations, includeFiles, useLoopControl];
+      implementation, inheritedImplementations, includeFiles, useLoopControl, opts];
 
     (* Construct the param file *)
     InfoMessage[Terse, "Creating param file"];
@@ -347,10 +346,11 @@ createKrancConfiguration[useLoopControl_] :=
     configuration = CreateConfiguration[useLoopControl];
     Return[configuration]];
 
+Options[createKrancInterface] = ThornOptions;
+
 createKrancInterface[nonevolvedGroups_, evolvedGroups_, rhsGroups_, groups_,
-  evolutionTimelevels_,
   implementation_, inheritedImplementations_,
-  includeFiles_, useLoopControl_] :=
+  includeFiles_, useLoopControl_, opts:OptionsPattern[]] :=
 
   Module[{registerEvolved, (*registerConstrained,*)
     nonevolvedGroupStructures, evolvedGroupStructures, rhsGroupStructures,
@@ -359,7 +359,6 @@ createKrancInterface[nonevolvedGroups_, evolvedGroups_, rhsGroups_, groups_,
     VerifyGroupNames[evolvedGroups];
     VerifyGroupNames[rhsGroups];
     VerifyGroups[groups];
-    VerifyInteger[evolutionTimelevels];
     VerifyString[implementation];
     VerifyStringList[inheritedImplementations];
     VerifyStringList[includeFiles];
@@ -398,11 +397,11 @@ createKrancInterface[nonevolvedGroups_, evolvedGroups_, rhsGroups_, groups_,
 
     evolvedGroupStructures =
       Map[evolvedGroupInterfaceStructure[groupFromName[#, groups],
-          evolutionTimelevels] &, evolvedGroups];
+          OptionValue[EvolutionTimelevels]] &, evolvedGroups];
 
     rhsGroupStructures =
       Map[rhsGroupInterfaceStructure[groupFromName[#, groups],
-          evolutionTimelevels] &, rhsGroups];
+          OptionValue[EvolutionTimelevels]] &, rhsGroups];
 
     groupStructures = Join[nonevolvedGroupStructures,
                            evolvedGroupStructures, rhsGroupStructures];
-- 
cgit v1.2.3