Added new routine

  const void *CCTK_GHExtension(cGH *GH, const char *name)

which returns the pointer to a GH extension or NULL if nothing was registered
for 'name'.


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

1 files changed, 42 insertions, 0 deletions

diff --git a/src/main/GHExtensions.c b/src/main/GHExtensions.c
index 306f6824..ad96f72a 100644
--- a/src/main/GHExtensions.c
+++ b/src/main/GHExtensions.c
@@ -624,6 +624,48 @@ void  CCTK_FCALL CCTK_FNAME(CCTK_GHExtensionHandle)
   free(name);
 }
 
+
+ /*@@
+   @routine    CCTK_GHExtension
+   @date       Sun Oct 8 2000
+   @author     Thomas Radke
+   @desc 
+   Gets the pointer to the GH extension.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+   @var     GH
+   @vdesc   The cctk GH
+   @vtype   cGH *
+   @vio     in
+   @vcomment 
+ 
+   @endvar 
+   @var     name
+   @vdesc   Name of the GH extension
+   @vtype   const char *
+   @vio     in
+   @vcomment 
+ 
+   @endvar 
+
+   @returntype const void *
+   @returndesc 
+   The GH extension
+   @endreturndesc
+@@*/
+const void *CCTK_GHExtension(cGH *GH, const char *name)
+{
+  int handle;
+
+  handle = Util_GetHandle(GHExtensions, name, NULL);
+
+  return (handle >= 0 ? GH->extensions[handle] : NULL);
+}
+
 /********************************************************************
  *********************     Local Routines   *************************
  ********************************************************************/