From 90ef11c6391568bf00fc7258f7f7060a81c0dfe8 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Tue, 7 Feb 2012 01:28:43 -0500 Subject: KrancTensor.m: Add implementation to group name in inherited groups structure --- Tools/CodeGen/KrancTensor.m | 6 +++--- 1 file 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; -- cgit v1.2.3