diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-03-02 14:57:25 -0600 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-03-02 14:57:25 -0600 |
commit | 0b97fbe33c5d71d797d67c8c4fa64ade69d5b092 (patch) | |
tree | f4674014223ea3620d3e5297f1532ca13d8821e8 /Tools/CodeGen/KrancThorn.m | |
parent | 1803ccb9416c2db5297c0b386d651f79bff5ba2a (diff) |
Obtain EvolutionTimelevels directly using OptionValue
Diffstat (limited to 'Tools/CodeGen/KrancThorn.m')
-rw-r--r-- | Tools/CodeGen/KrancThorn.m | 13 |
1 files changed, 6 insertions, 7 deletions
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]; |