From c1ee98289170c1bc140fb3519580c9f7eceb8baf Mon Sep 17 00:00:00 2001
From: knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Wed, 24 Oct 2012 20:03:13 +0000
Subject: Added CCTK_TimerRunning and CCTK_TimerRunningI

These functions return whether a Cactus timer is running or not (either by name or by handle).


git-svn-id: http://svn.cactuscode.org/flesh/trunk@4890 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/util/CactusTimers.c | 95 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)

(limited to 'src/util')

diff --git a/src/util/CactusTimers.c b/src/util/CactusTimers.c
index 1f6b718a..ec7005d4 100644
--- a/src/util/CactusTimers.c
+++ b/src/util/CactusTimers.c
@@ -54,6 +54,10 @@ void CCTK_FCALL CCTK_FNAME (CCTK_TimerPrintDataI)
                            (int *ierr, int *this_timer, int *this_clock);
 void CCTK_FCALL CCTK_FNAME (CCTK_TimerPrintData)
                            (int *ierr, TWO_FORTSTRING_ARG);
+void CCTK_FCALL CCTK_FNAME (CCTK_TimerIsRunningI)
+                           (int *ierr, int *this_timer);
+void CCTK_FCALL CCTK_FNAME (CCTK_TimerIsRunning)
+                           (int *ierr, ONE_FORTSTRING_ARG);
 
 
 /********************************************************************
@@ -1016,6 +1020,97 @@ static void CCTKi_TimerReset (int this_timer, t_Timer *timer)
 }
 
 
+ /*@@
+   @routine    CCTK_TimerIsRunningI
+   @date       Wed Oct 24 2012  13:00:00
+   @author     Frank Löffler
+   @desc
+               Returns if a timer is currently running given by its handle.
+   @enddesc
+   @calls
+
+   @var        this_timer
+   @vdesc      handle for the timer
+   @vtype      int
+   @vio        in
+   @endvar
+
+   @returntype int
+   @returndesc
+               0 for no (or failure to lookup timer), 1 for yes
+   @endreturndesc
+@@*/
+int CCTK_TimerIsRunningI (int this_timer)
+{
+  t_Timer *timer;
+
+
+  timer = Util_GetHandledData (timers, this_timer);
+  if (timer)
+  {
+    return !!timer->running;
+  }
+  else
+  {
+    CCTK_VWarn (8, __LINE__, __FILE__, "Cactus",
+                "CCTK_TimerIsRunningI: Timer %d not found",this_timer);
+  }
+  return 0;
+}
+
+void CCTK_FCALL CCTK_FNAME (CCTK_TimerIsRunningI)
+                           (int *ierr, int *this_timer)
+{
+  *ierr = CCTK_TimerIsRunningI (*this_timer);
+}
+
+ /*@@
+   @routine    CCTK_TimerIsRunning
+   @date       Wed Oct 24 13:00:00
+   @author     Frank Löffler
+   @desc
+               Returns if a timer is currently running.
+   @enddesc
+   @calls      CCTK_TimerIsRunningI
+
+   @var        timername
+   @vdesc      name of the timer
+   @vtype      const char *
+   @vio        in
+   @endvar
+
+   @returntype int
+   @returndesc
+               0 for no (or failure to lookup timer), 1 for yes
+   @endreturndesc
+@@*/
+int CCTK_TimerIsRunning (const char *timername)
+{
+  t_Timer *timer;
+  int this_timer;
+
+
+  this_timer = Util_GetHandle (timers, timername, (void **) &timer);
+  if (this_timer >= 0)
+  {
+    return CCTK_TimerIsRunningI (this_timer);
+  }
+  else
+  {
+    CCTK_VWarn (8, __LINE__, __FILE__, "Cactus",
+                "CCTK_TimerIsRunning: Timer %s not found",timername);
+  }
+  return 0;
+}
+
+void CCTK_FCALL CCTK_FNAME (CCTK_TimerIsRunning)
+                           (int *ierr, ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE (timername)
+  *ierr = CCTK_TimerIsRunning (timername);
+  free (timername);
+}
+
  /*@@
    @routine    CCTK_Timer
    @date       Wed Sep  1 10:10:38 1999
-- 
cgit v1.2.3