Added function for finding the variables in a group structure.

1 files changed, 4 insertions, 0 deletions

diff --git a/Tools/CodeGen/KrancGroups.m b/Tools/CodeGen/KrancGroups.m
index 51d358c..3daa147 100644
--- a/Tools/CodeGen/KrancGroups.m
+++ b/Tools/CodeGen/KrancGroups.m
@@ -44,6 +44,7 @@ unqualifiedGroupName::usage = "";
 implementationFromGroupName::usage = "";
 qualifyGroups::usage = "";
 containingGroups::usage = "";
+groupVariables::usage = "";
 
 Begin["`Private`"];
 
@@ -64,6 +65,9 @@ addrhs[x_] := ToString[x] <> "rhs";
 variablesInGroup[name_, groups_] :=
   Last[groupFromName[name, groups]];
 
+groupVariables[group_] :=
+  Last[group];
+
 evolvedGroupToRHSGroup[name_, groups_] := 
   Module[{group = First[Select[groups, groupName[#] === name &]]},
     {addrhs[name], Map[Symbol[addrhs[ToString[#]]] &, Last[group]]}];