Log lengthy DNS lookups. Bug 514
[users/jgh/exim.git] / src / OS / os.c-HI-OSF
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 */