Added CCTK_DecomposeGroupName which will take a group name of the form

implementation::group and return the implementation and the group.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@231 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 34 insertions, 0 deletions

diff --git a/src/main/Groups.c b/src/main/Groups.c
index efc904a8..cfb07de3 100644
--- a/src/main/Groups.c
+++ b/src/main/Groups.c
@@ -500,6 +500,20 @@ int CCTK_GetGroupData(int group, int *gtype, int *vtype, int *dim, int *n_variab
   return return_code;
 }
 
+ /*@@
+   @routine    CCTK_GetVarName
+   @date       Tue Feb  9 15:34:56 1999
+   @author     Tom Goodale
+   @desc 
+   Gets the name of a variable.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
 char *CCTK_GetVarName(int varnum)
 {
   char *name;
@@ -511,3 +525,23 @@ char *CCTK_GetVarName(int varnum)
 
   return name;
 }
+
+
+ /*@@
+   @routine    CCTK_DecomposeGroupName
+   @date       Tue Feb  9 15:39:14 1999
+   @author     Tom Goodale
+   @desc 
+   Decomposes a group name of the form imp::group
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CCTK_DecomposeGroupName(const char *fullname, char **implementation, char **name)
+{
+  return CCTK_SplitString(implementation, name, fullname, "::");
+}