getloadavg.c 28.4 KB
Newer Older
Roland McGrath's avatar
Roland McGrath committed
1
/* Get the system load averages.
2

Paul Eggert's avatar
Paul Eggert committed
3
   Copyright (C) 1985-1989, 1991-1995, 1997, 1999-2000, 2003-2012 Free Software
4
   Foundation, Inc.
Roland McGrath's avatar
Roland McGrath committed
5

6 7 8
   NOTE: The canonical source of this file is maintained with gnulib.
   Bugs can be reported to bug-gnulib@gnu.org.

9
   This program is free software: you can redistribute it and/or modify
Roland McGrath's avatar
Roland McGrath committed
10
   it under the terms of the GNU General Public License as published by
11 12
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.
Roland McGrath's avatar
Roland McGrath committed
13 14 15 16 17 18 19

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
20
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
Roland McGrath's avatar
Roland McGrath committed
21 22 23

/* Compile-time symbols that this file uses:

24
   HAVE_PSTAT_GETDYNAMIC        Define this if your system has the
25
                                pstat_getdynamic function.  I think it
26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
                                is unique to HPUX9.  The best way to get the
                                definition is through the AC_FUNC_GETLOADAVG
                                macro that comes with autoconf 2.13 or newer.
                                If that isn't an option, then just put
                                AC_CHECK_FUNCS(pstat_getdynamic) in your
                                configure.in file.
   HAVE_LIBPERFSTAT Define this if your system has the
                                perfstat_cpu_total function in libperfstat (AIX).
   FIXUP_KERNEL_SYMBOL_ADDR()   Adjust address in returned struct nlist.
   KERNEL_FILE                  Name of the kernel file to nlist.
   LDAV_CVT()                   Scale the load average from the kernel.
                                Returns a double.
   LDAV_SYMBOL                  Name of kernel symbol giving load average.
   LOAD_AVE_TYPE                Type of the load average array in the kernel.
                                Must be defined unless one of
                                apollo, DGUX, NeXT, or UMAX is defined;
Paul D. Smith's avatar
Paul D. Smith committed
42
                                or we have libkstat;
43
                                otherwise, no load average is available.
44 45
   HAVE_NLIST_H                 nlist.h is available.  NLIST_STRUCT defaults
                                to this.
46 47 48
   NLIST_STRUCT                 Include nlist.h, not a.out.h.
   N_NAME_POINTER               The nlist n_name element is a pointer,
                                not an array.
Paul Eggert's avatar
Paul Eggert committed
49
   HAVE_STRUCT_NLIST_N_UN_N_NAME 'n_un.n_name' is member of 'struct nlist'.
50 51
   LINUX_LDAV_FILE              [__linux__, __CYGWIN__]: File containing
                                load averages.
Roland McGrath's avatar
Roland McGrath committed
52 53 54 55 56

   Specific system predefines this file uses, aside from setting
   default values if not emacs:

   apollo
57
   BSD                          Real BSD, not just BSD-like.
58
   convex
Roland McGrath's avatar
Roland McGrath committed
59
   DGUX
60
   eunice                       UNIX emulator under VMS.
Roland McGrath's avatar
Roland McGrath committed
61
   hpux
62
   __MSDOS__                    No-op for MSDOS.
Roland McGrath's avatar
Roland McGrath committed
63 64
   NeXT
   sgi
65 66
   sequent                      Sequent Dynix 3.x.x (BSD)
   _SEQUENT_                    Sequent DYNIX/ptx 1.x.x (SYSV)
Roland McGrath's avatar
Roland McGrath committed
67 68 69 70
   sony_news                    NEWS-OS (works at least for 4.1C)
   UMAX
   UMAX4_3
   VMS
71 72 73 74 75
   WINDOWS32                    No-op for Windows95/NT.
   __linux__                    Linux: assumes /proc file system mounted.
                                Support from Michael K. Johnson.
   __CYGWIN__                   Cygwin emulates linux /proc/loadavg.
   __NetBSD__                   NetBSD: assumes /kern file system mounted.
Roland McGrath's avatar
Roland McGrath committed
76 77 78 79 80 81 82

   In addition, to avoid nesting many #ifdefs, we internally set
   LDAV_DONE to indicate that the load average has been computed.

   We also #define LDAV_PRIVILEGED if a program will require
   special installation to be able to call getloadavg.  */

83 84
/* "configure" defines CONFIGURING_GETLOADAVG to sidestep problems
   with partially-configured source directories.  */
Roland McGrath's avatar
Roland McGrath committed
85

86 87 88
#ifndef CONFIGURING_GETLOADAVG
# include <config.h>
# include <stdbool.h>
Roland McGrath's avatar
Roland McGrath committed
89 90
#endif

91 92
/* Specification.  */
#include <stdlib.h>
93 94

#include <errno.h>
95
#include <stdio.h>
96

97
# include <sys/types.h>
Roland McGrath's avatar
Roland McGrath committed
98

99 100 101 102 103 104
/* Both the Emacs and non-Emacs sections want this.  Some
   configuration files' definitions for the LOAD_AVE_CVT macro (like
   sparc.h's) use macros like FSCALE, defined here.  */
# if defined (unix) || defined (__unix)
#  include <sys/param.h>
# endif
Roland McGrath's avatar
Roland McGrath committed
105

106
# include "intprops.h"
Roland McGrath's avatar
Roland McGrath committed
107

Roland McGrath's avatar
Roland McGrath committed
108 109 110 111 112 113 114 115 116 117
/* The existing Emacs configuration files define a macro called
   LOAD_AVE_CVT, which accepts a value of type LOAD_AVE_TYPE, and
   returns the load average multiplied by 100.  What we actually want
   is a macro called LDAV_CVT, which returns the load average as an
   unmultiplied double.

   For backwards compatibility, we'll define LDAV_CVT in terms of
   LOAD_AVE_CVT, but future machine config files should just define
   LDAV_CVT directly.  */

118
# if !defined (LDAV_CVT) && defined (LOAD_AVE_CVT)
119 120
#  define LDAV_CVT(n) (LOAD_AVE_CVT (n) / 100.0)
# endif
Roland McGrath's avatar
Roland McGrath committed
121

122
# if !defined (BSD) && defined (ultrix)
Roland McGrath's avatar
Roland McGrath committed
123
/* Ultrix behaves like BSD on Vaxen.  */
124 125
#  define BSD
# endif
Roland McGrath's avatar
Roland McGrath committed
126

127
# ifdef NeXT
Roland McGrath's avatar
Roland McGrath committed
128 129 130
/* NeXT in the 2.{0,1,2} releases defines BSD in <sys/param.h>, which
   conflicts with the definition understood in this file, that this
   really is BSD. */
131
#  undef BSD
Roland McGrath's avatar
Roland McGrath committed
132 133 134

/* NeXT defines FSCALE in <sys/param.h>.  However, we take FSCALE being
   defined to mean that the nlist method should be used, which is not true.  */
135 136
#  undef FSCALE
# endif
Roland McGrath's avatar
Roland McGrath committed
137

138 139 140 141 142 143
/* Same issues as for NeXT apply to the HURD-based GNU system.  */
# ifdef __GNU__
#  undef BSD
#  undef FSCALE
# endif /* __GNU__ */

Roland McGrath's avatar
Roland McGrath committed
144 145 146 147 148 149
/* Set values that are different from the defaults, which are
   set a little farther down with #ifndef.  */


/* Some shorthands.  */

150 151 152
# if defined (HPUX) && !defined (hpux)
#  define hpux
# endif
Roland McGrath's avatar
Roland McGrath committed
153

154 155 156
# if defined (__hpux) && !defined (hpux)
#  define hpux
# endif
157

158 159 160
# if defined (__sun) && !defined (sun)
#  define sun
# endif
161

162
# if defined (hp300) && !defined (hpux)
163 164
#  define MORE_BSD
# endif
Roland McGrath's avatar
Roland McGrath committed
165

166
# if defined (ultrix) && defined (mips)
167 168
#  define decstation
# endif
Roland McGrath's avatar
Roland McGrath committed
169

170 171 172
# if defined (__SVR4) && !defined (SVR4)
#  define SVR4
# endif
Roland McGrath's avatar
Roland McGrath committed
173

174
# if (defined (sun) && defined (SVR4)) || defined (SOLARIS2)
175 176
#  define SUNOS_5
# endif
Roland McGrath's avatar
Roland McGrath committed
177

178 179
# if defined (__osf__) && (defined (__alpha) || defined (__alpha__))
#  define OSF_ALPHA
180 181 182
#  include <sys/mbuf.h>
#  include <sys/socket.h>
#  include <net/route.h>
183
#  include <sys/table.h>
184 185
/* Tru64 4.0D's table.h redefines sys */
#  undef sys
186 187 188 189 190 191
# endif

# if defined (__osf__) && (defined (mips) || defined (__mips__))
#  define OSF_MIPS
#  include <sys/table.h>
# endif
Roland McGrath's avatar
Roland McGrath committed
192 193 194 195

/* UTek's /bin/cc on the 4300 has no architecture specific cpp define by
   default, but _MACH_IND_SYS_TYPES is defined in <sys/types.h>.  Combine
   that with a couple of other things and we'll have a unique match.  */
196
# if !defined (tek4300) && defined (unix) && defined (m68k) && defined (mc68000) && defined (mc68020) && defined (_MACH_IND_SYS_TYPES)
197
#  define tek4300                       /* Define by emacs, but not by other users.  */
198
# endif
Roland McGrath's avatar
Roland McGrath committed
199 200


Jim Blandy's avatar
Jim Blandy committed
201
/* VAX C can't handle multi-line #ifs, or lines longer than 256 chars.  */
202
# ifndef LOAD_AVE_TYPE
Roland McGrath's avatar
Roland McGrath committed
203

204 205 206
#  ifdef MORE_BSD
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
207

208 209 210
#  ifdef sun
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
211

212 213 214
#  ifdef decstation
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
215

216 217 218
#  ifdef _SEQUENT_
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
219

220 221 222
#  ifdef sgi
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
223

224 225 226
#  ifdef SVR4
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
227

228 229 230
#  ifdef sony_news
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
231

232 233 234
#  ifdef sequent
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
235

236 237 238
#  ifdef OSF_ALPHA
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
239

240 241 242
#  if defined (ardent) && defined (titan)
#   define LOAD_AVE_TYPE long
#  endif
Jim Blandy's avatar
Jim Blandy committed
243

244 245 246
#  ifdef tek4300
#   define LOAD_AVE_TYPE long
#  endif
Roland McGrath's avatar
Roland McGrath committed
247

248
#  if defined (alliant) && defined (i860) /* Alliant FX/2800 */
249 250
#   define LOAD_AVE_TYPE long
#  endif
251

252
#  if defined _AIX && ! defined HAVE_LIBPERFSTAT
253 254
#   define LOAD_AVE_TYPE long
#  endif
255

256 257 258 259 260 261
#  ifdef convex
#   define LOAD_AVE_TYPE double
#   ifndef LDAV_CVT
#    define LDAV_CVT(n) (n)
#   endif
#  endif
262

263
# endif /* No LOAD_AVE_TYPE.  */
Roland McGrath's avatar
Roland McGrath committed
264

265
# ifdef OSF_ALPHA
Roland McGrath's avatar
Roland McGrath committed
266 267
/* <sys/param.h> defines an incorrect value for FSCALE on Alpha OSF/1,
   according to ghazi@noc.rutgers.edu.  */
268 269 270
#  undef FSCALE
#  define FSCALE 1024.0
# endif
Roland McGrath's avatar
Roland McGrath committed
271

272
# if defined (alliant) && defined (i860) /* Alliant FX/2800 */
273 274
/* <sys/param.h> defines an incorrect value for FSCALE on an
   Alliant FX/2800 Concentrix 2.2, according to ghazi@noc.rutgers.edu.  */
275 276 277
#  undef FSCALE
#  define FSCALE 100.0
# endif
278

Roland McGrath's avatar
Roland McGrath committed
279

280
# ifndef FSCALE
Roland McGrath's avatar
Roland McGrath committed
281 282 283

/* SunOS and some others define FSCALE in sys/param.h.  */

284 285 286
#  ifdef MORE_BSD
#   define FSCALE 2048.0
#  endif
Roland McGrath's avatar
Roland McGrath committed
287

288
#  if defined (MIPS) || defined (SVR4) || defined (decstation)
289 290
#   define FSCALE 256
#  endif
Roland McGrath's avatar
Roland McGrath committed
291

292
#  if defined (sgi) || defined (sequent)
Roland McGrath's avatar
Roland McGrath committed
293 294
/* Sometimes both MIPS and sgi are defined, so FSCALE was just defined
   above under #ifdef MIPS.  But we want the sgi value.  */
295
#   undef FSCALE
296
#   define FSCALE 1000.0
297
#  endif
Roland McGrath's avatar
Roland McGrath committed
298

299 300 301
#  if defined (ardent) && defined (titan)
#   define FSCALE 65536.0
#  endif
Roland McGrath's avatar
Roland McGrath committed
302

303 304 305
#  ifdef tek4300
#   define FSCALE 100.0
#  endif
306

307
#  if defined _AIX && !defined HAVE_LIBPERFSTAT
308 309
#   define FSCALE 65536.0
#  endif
310

311
# endif /* Not FSCALE.  */
Roland McGrath's avatar
Roland McGrath committed
312

313
# if !defined (LDAV_CVT) && defined (FSCALE)
314
#  define LDAV_CVT(n) (((double) (n)) / FSCALE)
315
# endif
Roland McGrath's avatar
Roland McGrath committed
316

317 318 319 320 321
# ifndef NLIST_STRUCT
#  if HAVE_NLIST_H
#   define NLIST_STRUCT
#  endif
# endif
Roland McGrath's avatar
Roland McGrath committed
322

323
# if defined (sgi) || (defined (mips) && !defined (BSD))
324 325
#  define FIXUP_KERNEL_SYMBOL_ADDR(nl) ((nl)[0].n_value &= ~(1 << 31))
# endif
Roland McGrath's avatar
Roland McGrath committed
326 327


328 329 330
# if !defined (KERNEL_FILE) && defined (sequent)
#  define KERNEL_FILE "/dynix"
# endif
Roland McGrath's avatar
Roland McGrath committed
331

332 333 334
# if !defined (KERNEL_FILE) && defined (hpux)
#  define KERNEL_FILE "/hp-ux"
# endif
Roland McGrath's avatar
Roland McGrath committed
335

336
# if !defined (KERNEL_FILE) && (defined (_SEQUENT_) || defined (MIPS) || defined (SVR4) || defined (ISC) || defined (sgi) || (defined (ardent) && defined (titan)))
337 338
#  define KERNEL_FILE "/unix"
# endif
Roland McGrath's avatar
Roland McGrath committed
339 340


341 342 343
# if !defined (LDAV_SYMBOL) && defined (alliant)
#  define LDAV_SYMBOL "_Loadavg"
# endif
Roland McGrath's avatar
Roland McGrath committed
344

345
# if !defined (LDAV_SYMBOL) && ((defined (hpux) && !defined (hp9000s300)) || defined (_SEQUENT_) || defined (SVR4) || defined (ISC) || defined (sgi) || (defined (ardent) && defined (titan)) || (defined (_AIX) && !defined(HAVE_LIBPERFSTAT)))
346 347
#  define LDAV_SYMBOL "avenrun"
# endif
Roland McGrath's avatar
Roland McGrath committed
348

Paul Eggert's avatar
Paul Eggert committed
349
# include <unistd.h>
Roland McGrath's avatar
Roland McGrath committed
350 351 352

/* LOAD_AVE_TYPE should only get defined if we're going to use the
   nlist method.  */
353
# if !defined (LOAD_AVE_TYPE) && (defined (BSD) || defined (LDAV_CVT) || defined (KERNEL_FILE) || defined (LDAV_SYMBOL))
354 355 356 357 358
#  define LOAD_AVE_TYPE double
# endif

# ifdef LOAD_AVE_TYPE

359
#  ifndef __VMS
360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384
#   ifndef __linux__
#    ifndef NLIST_STRUCT
#     include <a.out.h>
#    else /* NLIST_STRUCT */
#     include <nlist.h>
#    endif /* NLIST_STRUCT */

#    ifdef SUNOS_5
#     include <kvm.h>
#     include <kstat.h>
#    endif

#    if defined (hpux) && defined (HAVE_PSTAT_GETDYNAMIC)
#     include <sys/pstat.h>
#    endif

#    ifndef KERNEL_FILE
#     define KERNEL_FILE "/vmunix"
#    endif /* KERNEL_FILE */

#    ifndef LDAV_SYMBOL
#     define LDAV_SYMBOL "_avenrun"
#    endif /* LDAV_SYMBOL */
#   endif /* __linux__ */

385
#  else /* __VMS */
386 387 388 389 390 391 392

#   ifndef eunice
#    include <iodef.h>
#    include <descrip.h>
#   else /* eunice */
#    include <vms/iodef.h>
#   endif /* eunice */
393
#  endif /* __VMS */
394 395 396 397 398 399 400

#  ifndef LDAV_CVT
#   define LDAV_CVT(n) ((double) (n))
#  endif /* !LDAV_CVT */

# endif /* LOAD_AVE_TYPE */

401 402 403 404 405 406 407 408 409 410
# if defined HAVE_LIBPERFSTAT
#  include <sys/protosw.h>
#  include <libperfstat.h>
#  include <sys/proc.h>
#  ifndef SBITS
#   define SBITS 16
#  endif
# endif

# if defined (__GNU__) && !defined (NeXT)
411 412 413
/* Note that NeXT Openstep defines __GNU__ even though it should not.  */
/* GNU system acts much like NeXT, for load average purposes,
   but not exactly.  */
Miles Bader's avatar
Miles Bader committed
414 415 416 417
#  define NeXT
#  define host_self mach_host_self
# endif

Adrian Robert's avatar
Adrian Robert committed
418
# ifdef NeXT
419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455
#  ifdef HAVE_MACH_MACH_H
#   include <mach/mach.h>
#  else
#   include <mach.h>
#  endif
# endif /* NeXT */

# ifdef sgi
#  include <sys/sysmp.h>
# endif /* sgi */

# ifdef UMAX
#  include <signal.h>
#  include <sys/time.h>
#  include <sys/wait.h>
#  include <sys/syscall.h>

#  ifdef UMAX_43
#   include <machine/cpu.h>
#   include <inq_stats/statistics.h>
#   include <inq_stats/sysstats.h>
#   include <inq_stats/cpustats.h>
#   include <inq_stats/procstats.h>
#  else /* Not UMAX_43.  */
#   include <sys/sysdefs.h>
#   include <sys/statistics.h>
#   include <sys/sysstats.h>
#   include <sys/cpudefs.h>
#   include <sys/cpustats.h>
#   include <sys/procstats.h>
#  endif /* Not UMAX_43.  */
# endif /* UMAX */

# ifdef DGUX
#  include <sys/dg_sys_info.h>
# endif

456 457
# if (defined __linux__ || defined __CYGWIN__ || defined SUNOS_5        \
      || (defined LOAD_AVE_TYPE && ! defined __VMS))
458 459
#  include <fcntl.h>
# endif
Roland McGrath's avatar
Roland McGrath committed
460 461 462

/* Avoid static vars inside a function since in HPUX they dump as pure.  */

Adrian Robert's avatar
Adrian Robert committed
463
# ifdef NeXT
Roland McGrath's avatar
Roland McGrath committed
464
static processor_set_t default_set;
465
static bool getloadavg_initialized;
466
# endif /* NeXT */
Roland McGrath's avatar
Roland McGrath committed
467

468
# ifdef UMAX
Roland McGrath's avatar
Roland McGrath committed
469 470
static unsigned int cpus = 0;
static unsigned int samples;
471
# endif /* UMAX */
Roland McGrath's avatar
Roland McGrath committed
472

473
# ifdef DGUX
474
static struct dg_sys_info_load_info load_info;  /* what-a-mouthful! */
475
# endif /* DGUX */
Roland McGrath's avatar
Roland McGrath committed
476

477
# if !defined (HAVE_LIBKSTAT) && defined (LOAD_AVE_TYPE)
Roland McGrath's avatar
Roland McGrath committed
478 479
/* File descriptor open to /dev/kmem or VMS load ave driver.  */
static int channel;
480 481
/* True if channel is valid.  */
static bool getloadavg_initialized;
Roland McGrath's avatar
Roland McGrath committed
482 483 484
/* Offset in kmem to seek to read load average, or 0 means invalid.  */
static long offset;

485
#  if ! defined __VMS && ! defined sgi && ! defined __linux__
486
static struct nlist name_list[2];
487
#  endif
Roland McGrath's avatar
Roland McGrath committed
488

489
#  ifdef SUNOS_5
Roland McGrath's avatar
Roland McGrath committed
490
static kvm_t *kd;
491
#  endif /* SUNOS_5 */
Roland McGrath's avatar
Roland McGrath committed
492

493
# endif /* LOAD_AVE_TYPE && !HAVE_LIBKSTAT */
Roland McGrath's avatar
Roland McGrath committed
494 495 496

/* Put the 1 minute, 5 minute and 15 minute load averages
   into the first NELEM elements of LOADAVG.
David J. MacKenzie's avatar
David J. MacKenzie committed
497
   Return the number written (never more than 3, but may be less than NELEM),
498
   or -1 (setting errno) if an error occurred.  */
Roland McGrath's avatar
Roland McGrath committed
499 500

int
501
getloadavg (double loadavg[], int nelem)
Roland McGrath's avatar
Roland McGrath committed
502
{
503
  int elem = 0;                 /* Return value.  */
Roland McGrath's avatar
Roland McGrath committed
504

505 506
# ifdef NO_GET_LOAD_AVG
#  define LDAV_DONE
507
  errno = ENOSYS;
Roland McGrath's avatar
Roland McGrath committed
508
  elem = -1;
509
# endif
Roland McGrath's avatar
Roland McGrath committed
510

511
# if !defined (LDAV_DONE) && defined (HAVE_LIBKSTAT)       /* Solaris <= 2.6 */
512
/* Use libkstat because we don't have to be root.  */
513
#  define LDAV_DONE
514 515 516
  kstat_ctl_t *kc;
  kstat_t *ksp;
  kstat_named_t *kn;
517
  int saved_errno;
518 519

  kc = kstat_open ();
520 521
  if (kc == 0)
    return -1;
522
  ksp = kstat_lookup (kc, "unix", 0, "system_misc");
523
  if (ksp == 0)
524 525 526
    return -1;
  if (kstat_read (kc, ksp, 0) == -1)
    return -1;
527

528 529 530 531 532 533 534 535 536 537

  kn = kstat_data_lookup (ksp, "avenrun_1min");
  if (kn == 0)
    {
      /* Return -1 if no load average information is available.  */
      nelem = 0;
      elem = -1;
    }

  if (nelem >= 1)
538
    loadavg[elem++] = (double) kn->value.ul / FSCALE;
539 540 541 542 543

  if (nelem >= 2)
    {
      kn = kstat_data_lookup (ksp, "avenrun_5min");
      if (kn != 0)
544 545 546 547 548 549 550 551 552 553
        {
          loadavg[elem++] = (double) kn->value.ul / FSCALE;

          if (nelem >= 3)
            {
              kn = kstat_data_lookup (ksp, "avenrun_15min");
              if (kn != 0)
                loadavg[elem++] = (double) kn->value.ul / FSCALE;
            }
        }
554 555
    }

556
  saved_errno = errno;
557
  kstat_close (kc);
558
  errno = saved_errno;
Paul D. Smith's avatar
Paul D. Smith committed
559
# endif /* HAVE_LIBKSTAT */
560

561
# if !defined (LDAV_DONE) && defined (hpux) && defined (HAVE_PSTAT_GETDYNAMIC)
562
                                                           /* HP-UX */
563 564 565
/* Use pstat_getdynamic() because we don't have to be root.  */
#  define LDAV_DONE
#  undef LOAD_AVE_TYPE
Roland McGrath's avatar
Roland McGrath committed
566

567 568 569 570 571 572 573 574 575 576 577 578
  struct pst_dynamic dyn_info;
  if (pstat_getdynamic (&dyn_info, sizeof (dyn_info), 0, 0) < 0)
    return -1;
  if (nelem > 0)
    loadavg[elem++] = dyn_info.psd_avg_1_min;
  if (nelem > 1)
    loadavg[elem++] = dyn_info.psd_avg_5_min;
  if (nelem > 2)
    loadavg[elem++] = dyn_info.psd_avg_15_min;

# endif /* hpux && HAVE_PSTAT_GETDYNAMIC */

579
# if ! defined LDAV_DONE && defined HAVE_LIBPERFSTAT       /* AIX */
580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595
#  define LDAV_DONE
#  undef LOAD_AVE_TYPE
/* Use perfstat_cpu_total because we don't have to be root. */
  {
    perfstat_cpu_total_t cpu_stats;
    int result = perfstat_cpu_total (NULL, &cpu_stats, sizeof cpu_stats, 1);
    if (result == -1)
      return result;
    loadavg[0] = cpu_stats.loadavg[0] / (double)(1 << SBITS);
    loadavg[1] = cpu_stats.loadavg[1] / (double)(1 << SBITS);
    loadavg[2] = cpu_stats.loadavg[2] / (double)(1 << SBITS);
    elem = 3;
  }
# endif

# if !defined (LDAV_DONE) && (defined (__linux__) || defined (__CYGWIN__))
596
                                              /* Linux without glibc, Cygwin */
597 598 599 600 601 602
#  define LDAV_DONE
#  undef LOAD_AVE_TYPE

#  ifndef LINUX_LDAV_FILE
#   define LINUX_LDAV_FILE "/proc/loadavg"
#  endif
Roland McGrath's avatar
Roland McGrath committed
603

604 605 606
  char ldavgbuf[3 * (INT_STRLEN_BOUND (int) + sizeof ".00 ")];
  char const *ptr = ldavgbuf;
  int fd, count, saved_errno;
Roland McGrath's avatar
Roland McGrath committed
607 608 609 610

  fd = open (LINUX_LDAV_FILE, O_RDONLY);
  if (fd == -1)
    return -1;
611 612
  count = read (fd, ldavgbuf, sizeof ldavgbuf - 1);
  saved_errno = errno;
Roland McGrath's avatar
Roland McGrath committed
613
  (void) close (fd);
614
  errno = saved_errno;
Roland McGrath's avatar
Roland McGrath committed
615 616
  if (count <= 0)
    return -1;
617
  ldavgbuf[count] = '\0';
Roland McGrath's avatar
Roland McGrath committed
618

619 620 621 622 623 624 625
  for (elem = 0; elem < nelem; elem++)
    {
      double numerator = 0;
      double denominator = 1;

      while (*ptr == ' ')
        ptr++;
Roland McGrath's avatar
Roland McGrath committed
626

627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647
      /* Finish if this number is missing, and report an error if all
         were missing.  */
      if (! ('0' <= *ptr && *ptr <= '9'))
        {
          if (elem == 0)
            {
              errno = ENOTSUP;
              return -1;
            }
          break;
        }

      while ('0' <= *ptr && *ptr <= '9')
        numerator = 10 * numerator + (*ptr++ - '0');

      if (*ptr == '.')
        for (ptr++; '0' <= *ptr && *ptr <= '9'; ptr++)
          numerator = 10 * numerator + (*ptr - '0'), denominator *= 10;

      loadavg[elem++] = numerator / denominator;
    }
Roland McGrath's avatar
Roland McGrath committed
648 649 650

  return elem;

651
# endif /* __linux__ || __CYGWIN__ */
Roland McGrath's avatar
Roland McGrath committed
652

653
# if !defined (LDAV_DONE) && defined (__NetBSD__)          /* NetBSD < 0.9 */
654 655
#  define LDAV_DONE
#  undef LOAD_AVE_TYPE
Roland McGrath's avatar
Roland McGrath committed
656

657 658 659
#  ifndef NETBSD_LDAV_FILE
#   define NETBSD_LDAV_FILE "/kern/loadavg"
#  endif
Roland McGrath's avatar
Roland McGrath committed
660 661 662 663 664

  unsigned long int load_ave[3], scale;
  int count;
  FILE *fp;

Roland McGrath's avatar
Roland McGrath committed
665
  fp = fopen (NETBSD_LDAV_FILE, "r");
Roland McGrath's avatar
Roland McGrath committed
666 667 668
  if (fp == NULL)
    return -1;
  count = fscanf (fp, "%lu %lu %lu %lu\n",
669 670
                  &load_ave[0], &load_ave[1], &load_ave[2],
                  &scale);
Roland McGrath's avatar
Roland McGrath committed
671 672
  (void) fclose (fp);
  if (count != 4)
673 674 675 676
    {
      errno = ENOTSUP;
      return -1;
    }
Roland McGrath's avatar
Roland McGrath committed
677 678 679 680 681 682

  for (elem = 0; elem < nelem; elem++)
    loadavg[elem] = (double) load_ave[elem] / (double) scale;

  return elem;

683
# endif /* __NetBSD__ */
Roland McGrath's avatar
Roland McGrath committed
684

685
# if !defined (LDAV_DONE) && defined (NeXT)                /* NeXTStep */
686
#  define LDAV_DONE
Roland McGrath's avatar
Roland McGrath committed
687 688 689 690
  /* The NeXT code was adapted from iscreen 3.2.  */

  host_t host;
  struct processor_set_basic_info info;
691
  unsigned int info_count;
Roland McGrath's avatar
Roland McGrath committed
692

David J. MacKenzie's avatar
David J. MacKenzie committed
693 694
  /* We only know how to get the 1-minute average for this system,
     so even if the caller asks for more than 1, we only return 1.  */
Roland McGrath's avatar
Roland McGrath committed
695 696 697 698

  if (!getloadavg_initialized)
    {
      if (processor_set_default (host_self (), &default_set) == KERN_SUCCESS)
699
        getloadavg_initialized = true;
Roland McGrath's avatar
Roland McGrath committed
700 701 702 703 704 705
    }

  if (getloadavg_initialized)
    {
      info_count = PROCESSOR_SET_BASIC_INFO_COUNT;
      if (processor_set_info (default_set, PROCESSOR_SET_BASIC_INFO, &host,
706 707 708
                              (processor_set_info_t) &info, &info_count)
          != KERN_SUCCESS)
        getloadavg_initialized = false;
Roland McGrath's avatar
Roland McGrath committed
709
      else
710 711 712 713
        {
          if (nelem > 0)
            loadavg[elem++] = (double) info.load_average / LOAD_SCALE;
        }
Roland McGrath's avatar
Roland McGrath committed
714 715 716
    }

  if (!getloadavg_initialized)
717 718 719 720
    {
      errno = ENOTSUP;
      return -1;
    }
721
# endif /* NeXT */
Roland McGrath's avatar
Roland McGrath committed
722

723 724
# if !defined (LDAV_DONE) && defined (UMAX)
#  define LDAV_DONE
Roland McGrath's avatar
Roland McGrath committed
725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747
/* UMAX 4.2, which runs on the Encore Multimax multiprocessor, does not
   have a /dev/kmem.  Information about the workings of the running kernel
   can be gathered with inq_stats system calls.
   We only know how to get the 1-minute average for this system.  */

  struct proc_summary proc_sum_data;
  struct stat_descr proc_info;
  double load;
  register unsigned int i, j;

  if (cpus == 0)
    {
      register unsigned int c, i;
      struct cpu_config conf;
      struct stat_descr desc;

      desc.sd_next = 0;
      desc.sd_subsys = SUBSYS_CPU;
      desc.sd_type = CPUTYPE_CONFIG;
      desc.sd_addr = (char *) &conf;
      desc.sd_size = sizeof conf;

      if (inq_stats (1, &desc))
748
        return -1;
Roland McGrath's avatar
Roland McGrath committed
749 750 751

      c = 0;
      for (i = 0; i < conf.config_maxclass; ++i)
752 753 754
        {
          struct class_stats stats;
          memset (&stats, 0, sizeof stats);
Roland McGrath's avatar
Roland McGrath committed
755

756 757 758 759
          desc.sd_type = CPUTYPE_CLASS;
          desc.sd_objid = i;
          desc.sd_addr = (char *) &stats;
          desc.sd_size = sizeof stats;
Roland McGrath's avatar
Roland McGrath committed
760

761 762
          if (inq_stats (1, &desc))
            return -1;
Roland McGrath's avatar
Roland McGrath committed
763

764 765
          c += stats.class_numcpus;
        }
Roland McGrath's avatar
Roland McGrath committed
766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785
      cpus = c;
      samples = cpus < 2 ? 3 : (2 * cpus / 3);
    }

  proc_info.sd_next = 0;
  proc_info.sd_subsys = SUBSYS_PROC;
  proc_info.sd_type = PROCTYPE_SUMMARY;
  proc_info.sd_addr = (char *) &proc_sum_data;
  proc_info.sd_size = sizeof (struct proc_summary);
  proc_info.sd_sizeused = 0;

  if (inq_stats (1, &proc_info) != 0)
    return -1;

  load = proc_sum_data.ps_nrunnable;
  j = 0;
  for (i = samples - 1; i > 0; --i)
    {
      load += proc_sum_data.ps_nrun[j];
      if (j++ == PS_NRUNSIZE)
786
        j = 0;
Roland McGrath's avatar
Roland McGrath committed
787 788 789 790
    }

  if (nelem > 0)
    loadavg[elem++] = load / samples / cpus;
791
# endif /* UMAX */
Roland McGrath's avatar
Roland McGrath committed
792

793 794
# if !defined (LDAV_DONE) && defined (DGUX)
#  define LDAV_DONE
Roland McGrath's avatar
Roland McGrath committed
795 796
  /* This call can return -1 for an error, but with good args
     it's not supposed to fail.  The first argument is for no
Paul Eggert's avatar
Paul Eggert committed
797
     apparent reason of type 'long int *'.  */
Roland McGrath's avatar
Roland McGrath committed
798
  dg_sys_info ((long int *) &load_info,
799 800
               DG_SYS_INFO_LOAD_INFO_TYPE,
               DG_SYS_INFO_LOAD_VERSION_0);
Roland McGrath's avatar
Roland McGrath committed
801 802 803 804 805 806 807

  if (nelem > 0)
    loadavg[elem++] = load_info.one_minute;
  if (nelem > 1)
    loadavg[elem++] = load_info.five_minute;
  if (nelem > 2)
    loadavg[elem++] = load_info.fifteen_minute;
808
# endif /* DGUX */
Roland McGrath's avatar
Roland McGrath committed
809

810 811
# if !defined (LDAV_DONE) && defined (apollo)
#  define LDAV_DONE
Roland McGrath's avatar
Roland McGrath committed
812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832
/* Apollo code from lisch@mentorg.com (Ray Lischner).

   This system call is not documented.  The load average is obtained as
   three long integers, for the load average over the past minute,
   five minutes, and fifteen minutes.  Each value is a scaled integer,
   with 16 bits of integer part and 16 bits of fraction part.

   I'm not sure which operating system first supported this system call,
   but I know that SR10.2 supports it.  */

  extern void proc1_$get_loadav ();
  unsigned long load_ave[3];

  proc1_$get_loadav (load_ave);

  if (nelem > 0)
    loadavg[elem++] = load_ave[0] / 65536.0;
  if (nelem > 1)
    loadavg[elem++] = load_ave[1] / 65536.0;
  if (nelem > 2)
    loadavg[elem++] = load_ave[2] / 65536.0;
833
# endif /* apollo */
Roland McGrath's avatar
Roland McGrath committed
834

835 836
# if !defined (LDAV_DONE) && defined (OSF_MIPS)
#  define LDAV_DONE
Roland McGrath's avatar
Roland McGrath committed
837 838 839

  struct tbl_loadavg load_ave;
  table (TBL_LOADAVG, 0, &load_ave, 1, sizeof (load_ave));
Roland McGrath's avatar
Roland McGrath committed
840 841 842 843
  loadavg[elem++]
    = (load_ave.tl_lscale == 0
       ? load_ave.tl_avenrun.d[0]
       : (load_ave.tl_avenrun.l[0] / (double) load_ave.tl_lscale));
844
# endif /* OSF_MIPS */
Roland McGrath's avatar
Roland McGrath committed
845

Paul D. Smith's avatar
Paul D. Smith committed
846
# if !defined (LDAV_DONE) && (defined (__MSDOS__) || defined (WINDOWS32))
847
                                                           /* DJGPP */
848
#  define LDAV_DONE
849 850

  /* A faithful emulation is going to have to be saved for a rainy day.  */
851
  for ( ; elem < nelem; elem++)
852 853 854
    {
      loadavg[elem] = 0.0;
    }
Paul D. Smith's avatar
Paul D. Smith committed
855
# endif  /* __MSDOS__ || WINDOWS32 */
856

857
# if !defined (LDAV_DONE) && defined (OSF_ALPHA)           /* OSF/1 */
858
#  define LDAV_DONE
859 860 861 862 863 864

  struct tbl_loadavg load_ave;
  table (TBL_LOADAVG, 0, &load_ave, 1, sizeof (load_ave));
  for (elem = 0; elem < nelem; elem++)
    loadavg[elem]
      = (load_ave.tl_lscale == 0
865 866
         ? load_ave.tl_avenrun.d[elem]
         : (load_ave.tl_avenrun.l[elem] / (double) load_ave.tl_lscale));
867
# endif /* OSF_ALPHA */
868

869
# if ! defined LDAV_DONE && defined __VMS                  /* VMS */
Roland McGrath's avatar
Roland McGrath committed
870 871 872
  /* VMS specific code -- read from the Load Ave driver.  */

  LOAD_AVE_TYPE load_ave[3];
873
  static bool getloadavg_initialized;
874
#  ifdef eunice
Roland McGrath's avatar
Roland McGrath committed
875 876 877 878 879
  struct
  {
    int dsc$w_length;
    char *dsc$a_pointer;
  } descriptor;
880
#  endif
Roland McGrath's avatar
Roland McGrath committed
881 882 883 884 885

  /* Ensure that there is a channel open to the load ave device.  */
  if (!getloadavg_initialized)
    {
      /* Attempt to open the channel.  */
886
#  ifdef eunice
Roland McGrath's avatar
Roland McGrath committed
887 888
      descriptor.dsc$w_length = 18;
      descriptor.dsc$a_pointer = "$$VMS_LOAD_AVERAGE";
889
#  else
Roland McGrath's avatar
Roland McGrath committed
890
      $DESCRIPTOR (descriptor, "LAV0:");
891
#  endif
Roland McGrath's avatar
Roland McGrath committed
892
      if (sys$assign (&descriptor, &channel, 0, 0) & 1)
893
        getloadavg_initialized = true;
Roland McGrath's avatar
Roland McGrath committed
894 895 896 897 898
    }

  /* Read the load average vector.  */
  if (getloadavg_initialized
      && !(sys$qiow (0, channel, IO$_READVBLK, 0, 0, 0,
899
                     load_ave, 12, 0, 0, 0, 0) & 1))
Roland McGrath's avatar
Roland McGrath committed
900 901
    {
      sys$dassgn (channel);
902
      getloadavg_initialized = false;
Roland McGrath's avatar
Roland McGrath committed
903 904 905
    }

  if (!getloadavg_initialized)
906 907 908 909 910
    {
      errno = ENOTSUP;
      return -1;
    }
# endif /* ! defined LDAV_DONE && defined __VMS */
Roland McGrath's avatar
Roland McGrath committed
911

912
# if ! defined LDAV_DONE && defined LOAD_AVE_TYPE && ! defined __VMS
913
                                                  /* IRIX, other old systems */
Roland McGrath's avatar
Roland McGrath committed
914 915 916

  /* UNIX-specific code -- read the average from /dev/kmem.  */

917
#  define LDAV_PRIVILEGED               /* This code requires special installation.  */
Roland McGrath's avatar
Roland McGrath committed
918 919 920 921 922 923

  LOAD_AVE_TYPE load_ave[3];

  /* Get the address of LDAV_SYMBOL.  */
  if (offset == 0)
    {
924
#  ifndef sgi
925
#   if ! defined NLIST_STRUCT || ! defined N_NAME_POINTER
926 927
      strcpy (name_list[0].n_name, LDAV_SYMBOL);
      strcpy (name_list[1].n_name, "");
928
#   else /* NLIST_STRUCT */
929
#    ifdef HAVE_STRUCT_NLIST_N_UN_N_NAME
930 931
      name_list[0].n_un.n_name = LDAV_SYMBOL;
      name_list[1].n_un.n_name = 0;
932
#    else /* not HAVE_STRUCT_NLIST_N_UN_N_NAME */
933 934
      name_list[0].n_name = LDAV_SYMBOL;
      name_list[1].n_name = 0;
935
#    endif /* not HAVE_STRUCT_NLIST_N_UN_N_NAME */
936
#   endif /* NLIST_STRUCT */
Roland McGrath's avatar
Roland McGrath committed
937

938
#   ifndef SUNOS_5
939
      if (
940
#    if !(defined (_AIX) && !defined (ps2))
941
          nlist (KERNEL_FILE, name_list)
942
#    else  /* _AIX */
943
          knlist (name_list, 1, sizeof (name_list[0]))
944
#    endif
945 946 947