/Users/mourrain/Devel/mmx/basix/src/timer.cpp

Go to the documentation of this file.

/******************************************************************************
* MODULE     : timer.cpp
* DESCRIPTION: timers
* COPYRIGHT  : (C) 1999  Joris van der Hoeven
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <basix/timer.hpp>

namespace mmx {

#ifdef BASIX_HAVE_GETTIMEOFDAY
#include <sys/time.h>
#include <sys/resource.h>
#else
#include <sys/timeb.h>
#endif

nat
mmx_time () {
#ifdef BASIX_HAVE_GETTIMEOFDAY
  struct timeval tp;
  gettimeofday (&tp, NULL);
  return (nat) ((time_t) ((tp.tv_sec * 1000) + (tp.tv_usec / 1000)));
#else
  timeb tb;
  ftime (&tb);
  return (nat) ((time_t) ((tb.time * 1000) + tb.millitm));
#endif
}

double
mmx_var_time () {
#ifdef BASIX_HAVE_GETTIMEOFDAY
  struct timeval tp;
  gettimeofday (&tp, NULL);
  return (((double) tp.tv_sec) * 1000) + ((double) (tp.tv_usec / 1000));
#else
  timeb tb;
  ftime (&tb);
  return (((double) tb.time) * 1000) + ((double) tb.millitm);
#endif
}
  
nat
mmx_user_time () {
#if defined(__MINGW__) || defined(__MINGW32__)
  return 0;
#else
  struct rusage used;
  nat t;
  getrusage(RUSAGE_SELF, &used);
  t = (nat) ((time_t) ((used.ru_utime.tv_sec * 1000)
                     + (used.ru_utime.tv_usec / 1000)));
  getrusage(RUSAGE_CHILDREN, &used);
  return t +  (nat) ((time_t) ((used.ru_utime.tv_sec * 1000)
                             + (used.ru_utime.tv_usec / 1000)));
#endif
}

} // namespace mmx