xemacs-beta: src/getloadavg.c annotate

annotate src/getloadavg.c @ 5936:574f0cded429 cygwin

try to replace all nnnL or nnnUL constants with EMACS_[U]INT

author	Henry Thompson <ht@markup.co.uk>
date	Sun, 13 Dec 2015 13:22:58 +0000
parents	1f0b15040456
children

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 /* Get the system load averages.
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	2 Copyright (C) 1985-1989, 1991-1995, 1997, 2001-2008
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	3 Free Software Foundation, Inc.
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	4 Copyright (C) 2010 Ben Wing.
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	5
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	6 NOTE: The canonical source of this file is maintained with gnulib.
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	7 Bugs can be reported to bug-gnulib@gnu.org.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4759 diff changeset	11 XEmacs is free software: you can redistribute it and/or modify it
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	12 under the terms of the GNU General Public License as published by the
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4759 diff changeset	13 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4759 diff changeset	14 option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	19 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4759 diff changeset	22 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	24 /* Synced up with: FSF 23.1.92. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	25 /* Synced by: Ben Wing. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	26
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27 /* Compile-time symbols that this file uses:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	29 HAVE_SYS_PSTAT_H Defined if the pstat() function is available
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	30 (HPUX only); the GNU version uses
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	31 pstat_getdynamic() and HAVE_PSTAT_GETDYNAMIC.
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	32
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	33 [[ GNU says: The best way to get the
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	34 definition is through the AC_FUNC_GETLOADAVG
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	35 macro that comes with autoconf 2.13 or newer.
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	36 If that isn't an option, then just put
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	37 AC_CHECK_FUNCS(pstat_getdynamic) in your
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	38 configure.in file. ]] But we don't do this,
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	39 apparently we do the equivalent of
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	40 AC_FUNC_GETLOADAVG dynamically.
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	41
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	42 FIXUP_KERNEL_SYMBOL_ADDR() Adjust address in returned struct nlist.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 KERNEL_FILE Pathname of the kernel to nlist.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	44 LDAV_CVT() Scale the load average from the kernel.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	45 Returns a double.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	46 LDAV_SYMBOL Name of kernel symbol giving load average.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	47 LOAD_AVE_TYPE Type of the load average array in the kernel.
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	48 Must be defined; or we have libkstat;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	49 otherwise, no load average is available.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	50 NLIST_STRUCT Include nlist.h, not a.out.h, and
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	51 the nlist n_name element is a pointer,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	52 not an array.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	53 LINUX_LDAV_FILE [__linux__]: File containing load averages.
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	54 HAVE_LOCALE_H locale.h is available.
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	55 HAVE_SETLOCALE The `setlocale' function is available.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	56
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	57 Specific system predefines this file uses, aside from setting
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	58 default values if not emacs:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	59
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	60 BSD Real BSD, not just BSD-like.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	61 hpux
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	62 sgi
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	63 WIN32_NATIVE No-op for Windows9x/NT.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	64 CYGWIN No-op for Cygwin.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	65 __linux__ Linux: assumes /proc filesystem mounted.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	66 Support from Michael K. Johnson.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	67 __NetBSD__ NetBSD: assumes /kern filesystem mounted.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	68 __OpenBSD__ OpenBSD: ditto.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	69
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	70 In addition, to avoid nesting many #ifdefs, we internally set
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	71 LDAV_DONE to indicate that the load average has been computed.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	72
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	73 We also #define LDAV_PRIVILEGED if a program will require
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	74 special installation to be able to call getloadavg. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	75
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	76 /* This should always be first. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	77 #ifdef HAVE_CONFIG_H
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	78 # include <config.h>
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	79 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	80
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	81 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	82 #include "sysfile.h" /* for encapsulated open, close, read, write */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	83
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	84 #ifdef HAVE_LOCALE_H
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	85 # include <locale.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	86 #endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	87 #ifndef HAVE_SETLOCALE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	88 # define setlocale(Category, Locale) /* empty */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	89 #endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	90
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	91 #ifndef HAVE_GETLOADAVG
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	92
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	93 /* The existing Emacs configuration files define a macro called
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	94 LOAD_AVE_CVT, which accepts a value of type LOAD_AVE_TYPE, and
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	95 returns the load average multiplied by 100. What we actually want
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	96 is a macro called LDAV_CVT, which returns the load average as an
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	97 unmultiplied double.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	98
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	99 For backwards compatibility, we'll define LDAV_CVT in terms of
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	100 LOAD_AVE_CVT, but future machine config files should just define
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	101 LDAV_CVT directly. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	102
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	103 # if !defined(LDAV_CVT) && defined(LOAD_AVE_CVT)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	104 # define LDAV_CVT(n) (LOAD_AVE_CVT (n) / 100.0)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	105 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	106
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	107 #if defined (HAVE_KSTAT_H)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	108 #include <kstat.h>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	109 #endif /* HAVE_KSTAT_H */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	110
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	111 /* Same issues as for NeXT apply to the HURD-based GNU system. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	112 # ifdef __GNU__
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	113 # undef BSD
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	114 # undef FSCALE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	115 # endif /* __GNU__ */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	116
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	117 /* Set values that are different from the defaults, which are
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	118 set a little farther down with #ifndef. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	119
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	120
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	121 /* Some shorthands. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	122
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	123 # if defined (HPUX) && !defined (hpux)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	124 # define hpux
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	125 # endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	126
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	127 # if defined (__hpux) && !defined (hpux)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	128 # define hpux
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	129 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	130
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	131 # if defined (__sun) && !defined (sun)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	132 # define sun
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	133 # endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	134
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	135 # if defined (__SVR4) && !defined (SVR4)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	136 # define SVR4
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	137 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	138
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	139 # if (defined(sun) && defined(SVR4)) \|\| defined (SOLARIS2)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	140 # define SUNOS_5
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	141 # endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	142
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	143 # if defined (__osf__) && (defined (__alpha) \|\| defined (__alpha__))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	144 # define OSF_ALPHA
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	145 # /* XEmacs: First three below from FSF 23.1.92. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	146 # include <sys/mbuf.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	147 # include <sys/socket.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	148 # include <net/route.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	149 # include <netdb.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	150 # include <netinet/in.h> /* Needed for Digital UNIX V3 */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	151 # include <net/proto_net.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	152 # include <sys/table.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	153 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	154
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	155 #if defined (__osf__) && (defined (mips) \|\| defined (__mips__))
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	156 # define OSF_MIPS
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	157 # include <sys/table.h>
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	158 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	159
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	160
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	161 /* VAX C can't handle multi-line #ifs, or lines longer than 256 chars. */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	162 # ifndef LOAD_AVE_TYPE
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	163
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	164 # ifdef sun
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	165 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	166 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	167
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	168 # ifdef decstation
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	169 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	170 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	171
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	172 # ifdef sgi
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	173 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	174 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	175
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	176 # ifdef SVR4
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	177 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	178 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	179
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	180 # ifdef sony_news
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	181 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	182 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	183
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	184 # ifdef OSF_ALPHA
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	185 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	186 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	187
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	188 # if defined (ardent) && defined (titan)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	189 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	190 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	191
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	192 # ifdef _AIX
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	193 # define LOAD_AVE_TYPE long
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	194 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	195
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	196 # endif /* No LOAD_AVE_TYPE. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	197
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	198 # ifdef OSF_ALPHA
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	199 /* <sys/param.h> defines an incorrect value for FSCALE on Alpha OSF/1,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	200 according to ghazi@noc.rutgers.edu. */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	201 # undef FSCALE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	202 # define FSCALE 1024.0
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	203 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	204
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	205 # ifndef FSCALE
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	206
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	207 /* SunOS and some others define FSCALE in sys/param.h. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	208
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	209 # if defined(MIPS) \|\| defined(SVR4) \|\| defined(decstation)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	210 # define FSCALE 256
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	211 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	212
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	213 # if defined (sgi)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	214 /* Sometimes both MIPS and sgi are defined, so FSCALE was just defined
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	215 above under #ifdef MIPS. But we want the sgi value. */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	216 # undef FSCALE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	217 # define FSCALE 1000.0
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	218 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	219
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	220 # if defined (ardent) && defined (titan)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	221 # define FSCALE 65536.0
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	222 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	223
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	224 # ifdef _AIX
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	225 # define FSCALE 65536.0
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	226 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	227
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	228 # endif /* Not FSCALE. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	229
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	230 # if !defined (LDAV_CVT) && defined (FSCALE)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	231 # define LDAV_CVT(n) (((double) (n)) / FSCALE)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	232 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	233
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	234 #if 0 /* XEmacs change ... we check for nlist.h during configure and
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	235 automatically set NLIST_STRUCT if so; we have no HAVE_NLIST_H. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	236 # ifndef NLIST_STRUCT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	237 # if HAVE_NLIST_H
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	238 # define NLIST_STRUCT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	239 # endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	240 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	241 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	242
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	243 # if defined(sgi) \|\| (defined(mips) && !defined(BSD))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	244 # define FIXUP_KERNEL_SYMBOL_ADDR(nl) ((nl)[0].n_value &= ~(1 << 31))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	245 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	246
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	247 # if !defined (KERNEL_FILE) && defined (hpux)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	248 # define KERNEL_FILE "/hp-ux"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	249 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	250
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	251 # if !defined(KERNEL_FILE) && (defined(MIPS) \|\| defined(SVR4) \|\| defined(ISC) \|\| defined (sgi) \|\| (defined (ardent) && defined (titan)))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	252 # define KERNEL_FILE "/unix"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	253 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	254
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	255 # if !defined(LDAV_SYMBOL) && (defined(hpux) \|\| defined(SVR4) \|\| defined(ISC) \|\| defined(sgi) \|\| (defined (ardent) && defined (titan)) \|\| defined (_AIX))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	256 # define LDAV_SYMBOL "avenrun"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	257 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	258
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	259 # ifdef HAVE_UNISTD_H
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	260 # include <unistd.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	261 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	262
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	263 # include <stdio.h>
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	264
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	265 /* LOAD_AVE_TYPE should only get defined if we're going to use the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	266 nlist method. */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	267 # if !defined(LOAD_AVE_TYPE) && (defined(BSD) \|\| defined(LDAV_CVT) \|\| defined(KERNEL_FILE) \|\| defined(LDAV_SYMBOL))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	268 # define LOAD_AVE_TYPE double
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	269 # endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	270
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	271 # ifdef LOAD_AVE_TYPE
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	272
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	273 # ifndef __linux__
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	274 # ifndef NLIST_STRUCT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	275 # include <a.out.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	276 # else /* NLIST_STRUCT */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	277 # include <nlist.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	278 # endif /* NLIST_STRUCT */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	279
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	280 # ifdef SUNOS_5
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	281 # include <fcntl.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	282 # include <kvm.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	283 # include <kstat.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	284 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	285
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	286 /* XEmacs: GNU says: defined (hpux) && defined (HAVE_PSTAT_GETDYNAMIC) */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	287 # if defined (HAVE_SYS_PSTAT_H)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	288 # include <sys/pstat.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	289 # endif /* HAVE_SYS_PSTAT_H (on HPUX) */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	290
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	291 # ifndef KERNEL_FILE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	292 # define KERNEL_FILE "/vmunix"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	293 # endif /* KERNEL_FILE */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	294
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	295 # ifndef LDAV_SYMBOL
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	296 # define LDAV_SYMBOL "_avenrun"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	297 # endif /* LDAV_SYMBOL */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	298 # endif /* __linux__ */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	299
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	300 # ifndef LDAV_CVT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	301 # define LDAV_CVT(n) ((double) (n))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	302 # endif /* !LDAV_CVT */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	303
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	304 # endif /* LOAD_AVE_TYPE */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	305
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	306 # if defined(__GNU__) && !defined (NeXT)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	307 /* XEmacs -- FSF added code for the HURD, which depends on some NeXT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	308 code that we deleted as outdated. We hardly care about compiling
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	309 on the HURD, but I'm leaving this stuff here just in case; if someone
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	310 wants to get this working, figure out which NeXT code needs to be
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	311 restored. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	312 # error "Code not working currently"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	313 /* Note that NeXT Openstep defines __GNU__ even though it should not. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	314 /* GNU system acts much like NeXT, for load average purposes,
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	315 but not exactly. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	316 # define NeXT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	317 # define host_self mach_host_self
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	318 # endif /* defined(__GNU__) && !defined (NeXT) */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	319
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	320 /* (ifdef NeXT ... deleted) */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	321
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	322 # ifdef sgi
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	323 # include <sys/sysmp.h>
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	324 # endif /* sgi */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	325
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	326
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	327 /* Avoid static vars inside a function since in HPUX they dump as pure. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	328
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	329 #if !defined(HAVE_LIBKSTAT) && defined(LOAD_AVE_TYPE)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	330 /* File descriptor open to /dev/kmem or VMS load ave driver. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	331 static int channel;
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	332 /* Nonzero if channel is valid. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	333 static int getloadavg_initialized;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	334 /* Offset in kmem to seek to read load average, or 0 means invalid. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	335 static long offset;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	336
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	337 # if !defined(sgi) && !defined(__linux__)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	338 static struct nlist name_list[2];
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	339 # endif /* Not Linux or sgi */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	340
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	341 # ifdef SUNOS_5
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	342 static kvm_t *kd;
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	343 # endif /* SUNOS_5 */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	344
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	345 #ifndef countof
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	346 # define countof(x) (sizeof (x) / sizeof (*(x)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	347 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	348
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	349 #endif /* LOAD_AVE_TYPE && !HAVE_LIBKSTAT */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	350
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	351 /* Put the 1 minute, 5 minute and 15 minute load averages
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	352 into the first NELEM elements of LOADAVG.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	353 Return the number written (never more than 3, but may be less than NELEM),
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	354 or -1 if an error occurred. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	355
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	356 int getloadavg (double loadavg[], int nelem);
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	357
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	358 int
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	359 getloadavg (double loadavg[], int nelem)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	360 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	361 int elem = 0; /* Return value. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	362
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	363 # ifdef NO_GET_LOAD_AVG
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	364 # define LDAV_DONE
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	365 /* Set errno to zero to indicate that there was no particular error;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	366 this function just can't work at all on this system. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	367 errno = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	368 elem = -2;
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	369 # endif /* NO_GET_LOAD_AVG */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	370
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	371 #if ! defined (LDAV_DONE) && defined (HAVE_KSTAT_H) && defined (HAVE_LIBKSTAT)
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	372 /* Use libkstat because we don't have to be root. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	373 # define LDAV_DONE
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	374 kstat_ctl_t *kc;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	375 kstat_t *ksp;
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	376 kstat_named_t *kn;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	377
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	378 kc = kstat_open ();
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	379 if (kc == 0)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	380 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	381 ksp = kstat_lookup (kc, "unix", 0, "system_misc");
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	382 if (ksp == 0 )
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	383 return -1;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	384 if (kstat_read (kc, ksp, 0) == -1)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	385 return -1;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	386
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	387
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	388 kn = kstat_data_lookup (ksp, "avenrun_1min");
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	389 if (kn == 0)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	390 {
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	391 /* Return -1 if no load average information is available. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	392 nelem = 0;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	393 elem = -1;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	394 }
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	395
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	396 if (nelem >= 1)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	397 loadavg[elem++] = (double) kn->value.ul/FSCALE;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	398
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	399 if (nelem >= 2)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	400 {
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	401 kn = kstat_data_lookup (ksp, "avenrun_5min");
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	402 if (kn != 0)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	403 {
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	404 loadavg[elem++] = (double) kn->value.ul/FSCALE;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	405
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	406 if (nelem >= 3)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	407 {
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	408 kn = kstat_data_lookup (ksp, "avenrun_15min");
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	409 if (kn != 0)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	410 loadavg[elem++] = (double) kn->value.ul/FSCALE;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	411 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	412 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	413 }
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	414
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	415 kstat_close (kc);
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	416 # endif /* HAVE_LIBKSTAT */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	417 # if !defined (LDAV_DONE) && defined (HAVE_SYS_PSTAT_H)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	418 /* GNU says: .... && defined (hpux) && defined (HAVE_PSTAT_GETDYNAMIC) */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	419 # define LDAV_DONE
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	420 /* This is totally undocumented, and is not guaranteed to work, but
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	421 mayhap it might .... If it does work, it will work only on HP-UX
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	422 8.0 or later. -- Darryl Okahata <darrylo@sr.hp.com> */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	423 # undef LOAD_AVE_TYPE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	424 # undef LOAD_AVE_CVT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	425 # undef LDAV_SYMBOL
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	426
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	427 struct pst_dynamic dyn_info;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	428 #if 0 /* GNU 23.1.92 */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	429 /* Use pstat_getdynamic() because we don't have to be root. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	430 if (pstat_getdynamic (&dyn_info, sizeof (dyn_info), 0, 0) < 0)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	431 return -1;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	432 #else
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	433 union pstun statbuf;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	434 statbuf.pst_dynamic = &dyn_info;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	435 if (pstat (PSTAT_DYNAMIC, statbuf, sizeof (dyn_info), 0, 0) == -1)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	436 return -1;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	437 #endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	438 if (nelem > 0)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	439 loadavg[elem++] = dyn_info.psd_avg_1_min;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	440 if (nelem > 1)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	441 loadavg[elem++] = dyn_info.psd_avg_5_min;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	442 if (nelem > 2)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	443 loadavg[elem++] = dyn_info.psd_avg_15_min;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	444
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	445 # endif /* HAVE_SYS_PSTAT_H (GNU: hpux && HAVE_PSTAT_GETDYNAMIC) */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	446
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	447 # if !defined (LDAV_DONE) && defined (__linux__)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	448 # define LDAV_DONE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	449 # undef LOAD_AVE_TYPE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	450
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	451 # ifndef LINUX_LDAV_FILE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	452 # define LINUX_LDAV_FILE "/proc/loadavg"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	453 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	454
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	455 char ldavgbuf[40];
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	456 double load_ave[3];
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	457 int fd, count;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	458
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	459 fd = retry_open (LINUX_LDAV_FILE, O_RDONLY);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	460 if (fd == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	461 return -1;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	462 count = retry_read (fd, ldavgbuf, 40);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	463 (void) retry_close (fd);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	464 if (count <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	465 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	466
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	467 /* The following sscanf must use the C locale. */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	468 setlocale (LC_NUMERIC, "C");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	469 count = sscanf (ldavgbuf, "%lf %lf %lf",
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	470 &load_ave[0], &load_ave[1], &load_ave[2]);
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	471 setlocale (LC_NUMERIC, "");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	472 if (count < 1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	473 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	474
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	475 for (elem = 0; elem < nelem && elem < count; elem++)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	476 loadavg[elem] = load_ave[elem];
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	477
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	478 return elem;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	479
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	480 # endif /* __linux__ */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	481
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	482 # if !defined (LDAV_DONE) && (defined (__NetBSD__) \|\| defined (__OpenBSD__))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	483 # define LDAV_DONE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	484 # undef LOAD_AVE_TYPE
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	485
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	486 # ifndef NETBSD_LDAV_FILE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	487 # define NETBSD_LDAV_FILE "/kern/loadavg"
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	488 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	489
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	490 unsigned long int load_ave[3], scale;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	491 int count;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	492 FILE *fp;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	493
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	494 fp = retry_fopen (NETBSD_LDAV_FILE, "r");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	495 if (fp == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	496 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	497 count = fscanf (fp, "%lu %lu %lu %lu\n",
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	498 &load_ave[0], &load_ave[1], &load_ave[2],
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	499 &scale);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	500 (void) retry_fclose (fp);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	501 if (count != 4)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	502 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	503
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	504 for (elem = 0; elem < nelem; elem++)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	505 loadavg[elem] = (double) load_ave[elem] / (double) scale;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	506 #endif /* __NetBSD__ or __OpenBSD__ */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	507
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 978 diff changeset	508 #if !defined (LDAV_DONE) && defined (WIN32_ANY)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	509 #define LDAV_DONE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	510
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	511 /* A faithful emulation is going to have to be saved for a rainy day. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	512 for ( ; elem < nelem; elem++)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	513 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	514 loadavg[elem] = 0.0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	515 }
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	516 #endif /* WIN32_NATIVE or CYGWIN */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	517
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	518 #if !defined (LDAV_DONE) && defined(LOAD_AVE_TYPE)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	519
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	520 /* UNIX-specific code -- read the average from /dev/kmem. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	521
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	522 # define LDAV_PRIVILEGED /* This code requires special installation. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	523
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	524 LOAD_AVE_TYPE load_ave[3];
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	525
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	526 /* Get the address of LDAV_SYMBOL. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	527 if (offset == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	528 {
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	529 # ifndef sgi
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	530 # ifndef NLIST_STRUCT
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	531 strcpy (name_list[0].n_name, LDAV_SYMBOL);
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	532 strcpy (name_list[1].n_name, "");
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	533 # else /* NLIST_STRUCT */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	534 /* #### XEmacs deletes HAVE_STRUCT_NLIST_N_UN_N_NAME code. Why? */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	535 name_list[0].n_name = (char *) LDAV_SYMBOL;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	536 name_list[1].n_name = 0;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	537 # endif /* NLIST_STRUCT */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	538
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	539 # ifndef SUNOS_5
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	540 if (
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	541 # if !(defined (_AIX) && !defined (ps2))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	542 nlist (KERNEL_FILE, name_list)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	543 # else /* _AIX */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	544 knlist (name_list, 1, sizeof (name_list[0]))
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	545 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	546 >= 0)
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	547 /* Omit "&& name_list[0].n_type != 0 " -- it breaks on Sun386i. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	548 {
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	549 # ifdef FIXUP_KERNEL_SYMBOL_ADDR
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	550 FIXUP_KERNEL_SYMBOL_ADDR (name_list);
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	551 # endif
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	552 offset = name_list[0].n_value;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	553 }
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	554 # endif /* !SUNOS_5 */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	555 # else /* sgi */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	556 int ldav_off;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	557
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	558 ldav_off = sysmp (MP_KERNADDR, MPKA_AVENRUN);
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	559 if (ldav_off != -1)
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	560 offset = (long) ldav_off & 0x7fffffff;
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	561 # endif /* sgi */
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	562 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	563
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	564 /* Make sure we have /dev/kmem open. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	565 if (!getloadavg_initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	566 {
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	567 # ifndef SUNOS_5
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	568 channel = retry_open ("/dev/kmem", 0);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	569 if (channel >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	570 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	571 /* Set the channel to close on exec, so it does not
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	572 litter any child's descriptor table. */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	573 # ifdef F_SETFD
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	574 # ifndef FD_CLOEXEC
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	575 # define FD_CLOEXEC 1
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	576 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	577 (void) fcntl (channel, F_SETFD, FD_CLOEXEC);
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	578 # endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	579 getloadavg_initialized = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	580 }
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	581 # else /* SUNOS_5 */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	582 /* We pass 0 for the kernel, corefile, and swapfile names
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	583 to use the currently running kernel. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	584 kd = kvm_open (0, 0, 0, O_RDONLY, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	585 if (kd != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	586 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	587 /* nlist the currently running kernel. */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	588 kvm_nlist (kd, name_list);
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	589 offset = name_list[0].n_value;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	590 getloadavg_initialized = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	591 }
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	592 # endif /* SUNOS_5 */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	593 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	594
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	595 /* If we can, get the load average values. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	596 if (offset && getloadavg_initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	597 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	598 /* Try to read the load. */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	599 # ifndef SUNOS_5
5936 574f0cded429 try to replace all nnnL or nnnUL constants with EMACS_[U]INT Henry Thompson <ht@markup.co.uk> parents: 5495 diff changeset	600 if (lseek (channel, offset, 0) == -E1
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	601 \|\| retry_read (channel, (char *) load_ave, sizeof (load_ave))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	602 != sizeof (load_ave))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	603 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 647 diff changeset	604 retry_close (channel);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	605 getloadavg_initialized = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	606 }
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	607 # else /* SUNOS_5 */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	608 if (kvm_read (kd, offset, (char *) load_ave, sizeof (load_ave))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	609 != sizeof (load_ave))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	610 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	611 kvm_close (kd);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	612 getloadavg_initialized = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	613 }
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	614 # endif /* SUNOS_5 */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	615 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	616
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	617 if (offset == 0 \|\| !getloadavg_initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	618 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	619
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	620 if (nelem > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	621 loadavg[elem++] = LDAV_CVT (load_ave[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	622 if (nelem > 1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	623 loadavg[elem++] = LDAV_CVT (load_ave[1]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	624 if (nelem > 2)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	625 loadavg[elem++] = LDAV_CVT (load_ave[2]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	626
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	627 # define LDAV_DONE
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	628 # endif /* !LDAV_DONE && LOAD_AVE_TYPE */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	629
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	630 return elem;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	631 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	632
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	633 #endif /* ! HAVE_GETLOADAVG */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	634
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	635 #ifdef TEST
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	636 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	637 main (int argc, char **argv)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	638 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	639 int naptime = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	640
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	641 if (argc > 1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	642 naptime = atoi (argv[1]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	643
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	644 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	645 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	646 double avg[3];
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	647 int loads;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	648
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	649 errno = 0; /* Don't be misled if it doesn't set errno. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	650 loads = getloadavg (avg, 3);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	651 if (loads == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	652 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	653 perror ("Error getting load average");
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	654 exit (1);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	655 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	656 if (loads > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	657 printf ("1-minute: %f ", avg[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	658 if (loads > 1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	659 printf ("5-minute: %f ", avg[1]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	660 if (loads > 2)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	661 printf ("15-minute: %f ", avg[2]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	662 if (loads > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	663 putchar ('\n');
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	664
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	665 if (naptime == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	666 break;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	667 sleep (naptime);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	668 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	669
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	670 exit (0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	671 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	672 #endif /* TEST */
5494 861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	673
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	674 /* arch-tag: 2b37a242-6289-41f4-8cd5-0e73fd615db1
861f2601a38b Sync s/ files with GNU 23.1.92, delete obsolete stuff, simplify other stuff Ben Wing <ben@xemacs.org> parents: 4759 diff changeset	675 (do not change this comment) */

Mercurial > hg > xemacs-beta

annotate src/getloadavg.c @ 5936:574f0cded429 cygwin