[hcoop/debian/exim4.git] / OS / unsupported / os.c-HI-OSF

/*************************************************
*     Exim - an Internet mail transport agent    *
*************************************************/

/* Copyright (c) University of Cambridge 2001 */
/* See the file NOTICE for conditions of use and distribution. */

/* HI-OSF-specific code. This is concatenated onto the generic
src/os.c file. OSF has an apparently unique way of getting the
load average, so we provide a unique function here, and define
OS_LOAD_AVERAGE to stop src/os.c trying to provide the function. */

#ifndef OS_LOAD_AVERAGE
#define OS_LOAD_AVERAGE

#include <sys/table.h>

int
os_getloadavg(void)
{
double avg;
struct tbl_loadavg load_avg;

table (TBL_LOADAVG, 0, &load_avg, 1, sizeof (load_avg));

avg = (load_avg.tl_lscale == 0)?
  load_avg.tl_avenrun.d[0] :
  (load_avg.tl_avenrun.l[0] / (double)load_avg.tl_lscale);

return (int)(avg * 1000.0);
}

#endif  /* OS_LOAD_AVERAGE */

/* End of os.c-HI-OSF */
Commit	Line	Data
420a0d19 CE	1	/*************************************************
	2	* Exim - an Internet mail transport agent *
	3	*************************************************/
	4
	5	/* Copyright (c) University of Cambridge 2001 */
	6	/* See the file NOTICE for conditions of use and distribution. */
	7
	8	/* HI-OSF-specific code. This is concatenated onto the generic
	9	src/os.c file. OSF has an apparently unique way of getting the
	10	load average, so we provide a unique function here, and define
	11	OS_LOAD_AVERAGE to stop src/os.c trying to provide the function. */
	12
	13	#ifndef OS_LOAD_AVERAGE
	14	#define OS_LOAD_AVERAGE
	15
	16	#include <sys/table.h>
	17
	18	int
	19	os_getloadavg(void)
	20	{
	21	double avg;
	22	struct tbl_loadavg load_avg;
	23
	24	table (TBL_LOADAVG, 0, &load_avg, 1, sizeof (load_avg));
	25
	26	avg = (load_avg.tl_lscale == 0)?
	27	load_avg.tl_avenrun.d[0] :
	28	(load_avg.tl_avenrun.l[0] / (double)load_avg.tl_lscale);
	29
	30	return (int)(avg * 1000.0);
	31	}
	32
	33	#endif /* OS_LOAD_AVERAGE */
	34
	35	/* End of os.c-HI-OSF */