diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-02-07 01:28:43 -0500 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-02-07 01:28:43 -0500 |
commit | 90ef11c6391568bf00fc7258f7f7060a81c0dfe8 (patch) | |
tree | 58dc934ca2761e6624b3470f38f045b299211c93 | |
parent | 08561dbe3b3f1e3fc253192a7b0cc3cd89cc4137 (diff) |
KrancTensor.m: Add implementation to group name in inherited groups structure
-rw-r--r-- | Tools/CodeGen/KrancTensor.m | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m index 4b8168d..9ea90f1 100644 --- a/Tools/CodeGen/KrancTensor.m +++ b/Tools/CodeGen/KrancTensor.m @@ -250,13 +250,13 @@ groupOptionsFromTags[tags_] := Flatten[tagToOptions/@StringSplit[tags[[1]]],1]]; DefFn[ - groupStructureOfGroupVar[groupVar_] := - {Cases[groupVar,"name"[n_] :> n][[1]], Cases[groupVar,"VARS"[vs___] :> Map[First,{vs}]][[1]], + groupStructureOfGroupVar[groupVar_,imp_String] := + {Cases[groupVar,"name"[n_] :> imp<>"::"<>n][[1]], Cases[groupVar,"VARS"[vs___] :> Map[First,{vs}]][[1]], Sequence@@groupOptionsFromTags[Cases[Print[groupVar//InputForm]; groupVar,"tags"[tags_] :> unquote[tags]]]}]; DefFn[ InheritedGroups[imp_String] := - Map[groupStructureOfGroupVar, + Map[groupStructureOfGroupVar[#,imp] &, gfGroupVarsOfInterfaceTree[interfaceTreeOfThorn[thornOfImplementation[imp]]]]]; Options[CreateKrancThornTT2] = ThornOptions; |