xemacs-beta: src/getloadavg.c comparison

comparison src/getloadavg.c @ 278:90d73dddcdc4 r21-0b37

Import from CVS: tag r21-0b37

author	cvs
date	Mon, 13 Aug 2007 10:31:29 +0200
parents	c5d627a313b1
children	7df0dd720c89

comparison

equal deleted inserted replaced

-:cfdf3ff11843
+:90d73dddcdc4
 #ifdef SUNOS_5
 static kvm_t *kd;
 #endif /* SUNOS_5 */
+#ifndef countof
+# define countof(x) (sizeof (x) / sizeof (*(x)))
+#endif
 #endif /* LOAD_AVE_TYPE */
 /* Put the 1 minute, 5 minute and 15 minute load averages
 into the first NELEM elements of LOADAVG.
 Return the number written (never more than 3, but may be less than NELEM),
 #ifdef NO_GET_LOAD_AVG
 #define LDAV_DONE
 /* Set errno to zero to indicate that there was no particular error;
 this function just can't work at all on this system.  */
 errno = 0;
-elem = -1;
+elem = -2;
 #endif
-#ifdef XEMACS
 #if ! defined (LDAV_DONE) && defined (HAVE_KSTAT_H) && defined (HAVE_LIBKSTAT)
 #define LDAV_DONE
+/* getloadavg is best implemented using kstat (kernel stats), on
-/* getloadavg is best implemented using kstat (kernel stats),
+systems (like SunOS5) that support it, since you don't need special
-on systems (like SunOS5) that support it,
+privileges to use it.
-since you don't have to be superusers to use it.
-Thanks to Zlatko Calusic <zcalusic@srce.hr>.
+Initial implementation courtesy Zlatko Calusic <zcalusic@carnet.hr>.
-Integrated to XEmacs by Hrvoje Niksic <hniksic@srce.hr>. */
+Integrated to XEmacs by Hrvoje Niksic <hniksic@srce.hr>.
-static kstat_ctl_t *kc;
+Additional cleanup by Hrvoje Niksic, based on code published by
-static kstat_t *ksp;
+Casper Dik <Casper.Dik@Holland.Sun.Com>.  */
-static kstat_named_t *buf;
+kstat_ctl_t *kc;
+kstat_t *ksp;
-if (!getloadavg_initialized)
+static char *avestrings[] = { "avenrun_1min",
-{
+				"avenrun_5min",
-kc = kstat_open();
+				"avenrun_15min" };
-if (!kc)
-return -1;
+if (nelem > countof (avestrings))
-getloadavg_initialized = 1;
+nelem = countof (avestrings);
-}
-ksp = kstat_lookup(kc, "unix", 0, "system_misc");
+kc = kstat_open();
+if (!kc)
+return -1;
+ksp = kstat_lookup (kc, "unix", 0, "system_misc");
 if (!ksp)
+{
+kstat_close (kc);
 return -1;
-if (kstat_read(kc, ksp, ksp->ks_data) < 0)
+}
-return -1;
+if (kstat_read (kc, ksp, 0) < 0)
-buf = (kstat_named_t *) malloc (ksp->ks_data_size);
+{
-if (!buf)
+kstat_close (kc);
 return -1;
-memcpy(buf, ksp->ks_data, ksp->ks_data_size);
+}
-if (nelem > 3)
-nelem = 3;
 for (elem = 0; elem < nelem; elem++)
-loadavg[elem] = (buf + 6 + elem)->value.ul / 256.0;
+{
-free(buf);
+kstat_named_t *kn = kstat_data_lookup (ksp, avestrings[elem]);
+if (!kn)
+	{
+	  kstat_close (kc);
+	  return -1;
+	}
+loadavg[elem] = (double)kn->value.ul/FSCALE;
+}
+kstat_close (kc);
 #endif /* HAVE_KSTAT_H && HAVE_LIBKSTAT */
 #if !defined (LDAV_DONE) && defined (HAVE_SYS_PSTAT_H)
 #define LDAV_DONE
 /* This is totally undocumented, and is not guaranteed to work, but
 loadavg[elem++] = procinfo.psd_avg_1_min;
 loadavg[elem++] = procinfo.psd_avg_5_min;
 loadavg[elem++] = procinfo.psd_avg_15_min;
 #endif	/* HPUX */
-#endif /* XEMACS */
 #if !defined (LDAV_DONE) && defined (__linux__)
 #define LDAV_DONE
 #undef LOAD_AVE_TYPE
 #ifndef LINUX_LDAV_FILE
 if (count < 1)
 return -1;
 for (elem = 0; elem < nelem && elem < count; elem++)
 loadavg[elem] = load_ave[elem];
-return elem;
 #endif /* __linux__ */
 #if !defined (LDAV_DONE) && defined (__NetBSD__)
 #define LDAV_DONE
 #undef LOAD_AVE_TYPE
 if (count != 4)
 return -1;
 for (elem = 0; elem < nelem; elem++)
 loadavg[elem] = (double) load_ave[elem] / (double) scale;
-return elem;
 #endif /* __NetBSD__ */
 #if !defined (LDAV_DONE) && defined (NeXT)
 #define LDAV_DONE
 /* The NeXT code was adapted from iscreen 3.2.  */
 return elem;
 #else
 /* Set errno to zero to indicate that there was no particular error;
 this function just can't work at all on this system.  */
 errno = 0;
-return -1;
+return -2;
 #endif
 }
 #endif /* ! HAVE_GETLOADAVG */

Mercurial > hg > xemacs-beta

comparison src/getloadavg.c @ 278:90d73dddcdc4 r21-0b37