Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/runtime/kernel/unix-timers.c
ViewVC logotype

View of /sml/trunk/src/runtime/kernel/unix-timers.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (download) (as text) (annotate)
Sat Oct 4 23:33:09 1997 UTC (22 years ago) by monnier
File size: 2362 byte(s)
Initial revision
/* unix-timers.c
 *
 * COPYRIGHT (c) 1995 by AT&T Bell Laboratories.
 *
 * A UNIX specific interface to the system timers.
 */

#include "ml-unixdep.h"
#include "ml-base.h"
#include "ml-state.h"
#include "ml-timer.h"

#ifdef HAS_GETRUSAGE

#include <sys/time.h>
#include <sys/resource.h>
typedef struct rusage time_struct_t;
#define GET_TIME(t)		getrusage(RUSAGE_SELF, &(t))
#define SYS_TIME(t)		((t).ru_stime)
#define USR_TIME(t)		((t).ru_utime)
#define SET_TIME(tp, t)		{ *((struct timeval *)(tp)) = (t); }

#else /* !HAS_GETRUSAGE */

#include <sys/times.h>
PVT long	ClksPerSec = 0;
typedef struct tms time_struct_t;
#define GET_TIME(t)		times(&(t))
#define SYS_TIME(t)		((t).tms_stime)
#define USR_TIME(t)		((t).tms_utime)
#define SET_TIME(tp, t)		{ 					\
	Time_t		*__tp = (tp);					\
	clock_t		__t = (t);					\
	__tp->uSeconds = ((__t % ClksPerSec) * 1000000) / ClksPerSec;	\
	__tp->seconds  = (__t / ClksPerSec);				\
    }

#endif /* HAS_GETRUSAGE */



/* Several versions of Unix seem to allow time values to decrease on successive
 * calls to getrusage.  To avoid problems in the SML code, which assumes that
 * time is monotonically increasing, we latch the time values.
 *
 * NOTE: this should probably be move to the VProc structure to avoid problems
 * on MP machines.
 */
PVT Time_t		lastU, lastS;


/* InitTimers:
 *
 * Do any system specific timer initialization.
 */
void InitTimers ()
{
    lastU.seconds = lastU.uSeconds = 0;
    lastS.seconds = lastS.uSeconds = 0;

#ifndef HAS_GETRUSAGE
    if (ClksPerSec == 0)
	ClksPerSec = sysconf(_SC_CLK_TCK);
#endif

} /* end of InitTimers */


/* GetCPUTime:
 *
 * Get the user and/or system cpu times in a system independent way.
 */
void GetCPUTime (Time_t *usrT, Time_t *sysT)
{
    time_struct_t   ts;

    GET_TIME(ts);

    if (usrT != NIL(Time_t *)) {
	SET_TIME(usrT, USR_TIME(ts));
	if (usrT->seconds < lastU.seconds)
	    usrT->seconds = lastU.seconds;
	if ((usrT->seconds == lastU.seconds) && (usrT->uSeconds < lastU.uSeconds))
	    usrT->uSeconds = lastU.uSeconds;
	lastU = *usrT;
    }

    if (sysT != NIL(Time_t *)) {
	SET_TIME(sysT, SYS_TIME(ts));
	if (sysT->seconds < lastS.seconds)
	    sysT->seconds = lastS.seconds;
	if ((sysT->seconds == lastS.seconds) && (sysT->uSeconds < lastS.uSeconds))
	    sysT->uSeconds = lastS.uSeconds;
	lastS = *sysT;
    }

} /* end of GetCPUTime. */

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0