diff options
Diffstat (limited to 'Tools/CodeGen/KrancThorn.m')
| -rw-r--r-- | Tools/CodeGen/KrancThorn.m | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index 20f8550..5125290 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -93,9 +93,12 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Read named arguments and apply nontrivial defaults ------------------------------------------------------------------------ *) + InfoMessage[Terse, "Verifying arguments"]; cktCheckNamedArgs[{opts}]; - CheckGroups[groupsOrig]; + VerifyGroups[groupsOrig]; + VerifyString[parentDirectory]; + VerifyString[thornName]; c = NewObject[ Code, @@ -115,6 +118,10 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ "PartialDerivatives" -> OptionValue[PartialDerivatives], "Sources" -> {}}]; + VerifyString[GetObjectField[c, "Implementation"]]; + VerifyGroupNames[GetObjectField[c, "DeclaredGroups"]]; + VerifyGroupNames[GetObjectField[c, "ODEGroups"]]; + (* ------------------------------------------------------------------------ GenericFD ------------------------------------------------------------------------ *) @@ -186,14 +193,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Check input parameters ------------------------------------------------------------------------ *) - InfoMessage[Terse, "Verifying arguments"]; - VerifyGroups[GetObjectField[c, "Groups"]]; - VerifyString[parentDirectory]; - VerifyString[GetObjectField[c, "Name"]]; - VerifyString[GetObjectField[c, "Implementation"]]; - VerifyGroupNames[GetObjectField[c, "DeclaredGroups"]]; - VerifyGroupNames[GetObjectField[c, "ODEGroups"]]; - If[OptionValue[UseJacobian], JacobianCheckGroups[GetObjectField[c, "Groups"]]]; (* ------------------------------------------------------------------------ |