Initial revisionXORG-STABLE

7 files changed, 1730 insertions, 0 deletions

diff --git a/XLoad.ad b/XLoad.ad
new file mode 100644
index 0000000..3d4c978
--- /dev/null
+++ b/XLoad.ad
@@ -0,0 +1,6 @@
+XLoad.input:			false
+*Label*Justify:			left
+*JumpScroll:			1
+*internalBorderWidth:		0
+*showGrip:			FALSE
+
diff --git a/get_load.c b/get_load.c
new file mode 100644
index 0000000..09386dc
--- /dev/null
+++ b/get_load.c
@@ -0,0 +1,1174 @@
+/* $XConsortium: get_load.c /main/37 1996/03/09 09:38:04 kaleb $ */
+/* $XFree86: xc/programs/xload/get_load.c,v 1.18 2002/09/18 17:11:57 tsi Exp $ */
+/*
+
+Copyright (c) 1989  X Consortium
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR
+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of the X Consortium shall
+not be used in advertising or otherwise to promote the sale, use or
+other dealings in this Software without prior written authorization
+from the X Consortium.
+
+*/
+
+/*
+ * get_load - get system load
+ *
+ * Authors:  Many and varied...
+ *
+ * Call InitLoadPoint() to initialize.
+ * GetLoadPoint() is a callback for the StripChart widget.
+ */
+
+#include <X11/Xos.h>
+#include <X11/Intrinsic.h>
+#include <X11/Xlocale.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "xload.h"
+
+#if !defined(DGUX)
+#if defined(att) || defined(QNX4)
+#define LOADSTUB
+#endif
+
+#ifndef macII
+#ifndef apollo
+#ifndef LOADSTUB
+#if !defined(linux) && !defined(__UNIXOS2__) && !defined(__GNU__)
+#include <nlist.h>
+#endif /* !linux && ... */
+#endif /* LOADSTUB */
+#endif /* apollo */
+#endif /* macII */
+
+#if defined(MOTOROLA) && defined(SYSV)
+#include <sys/sysinfo.h>
+#endif
+
+#ifdef sun
+#    include <sys/param.h>
+#    if defined(SVR4) && (OSMAJORVERSION == 5) && (OSMINORVERSION > 3)
+#        include <kvm.h>
+#    endif
+#    if defined(i386) && !defined(SVR4)
+#        include <kvm.h>
+#        define	KVM_ROUTINES
+#    endif /* i386 */
+#endif
+
+#ifdef CSRG_BASED
+#include <sys/param.h>
+#endif
+
+#if defined(umips) || (defined(ultrix) && defined(mips))
+#include <sys/fixpoint.h>
+#endif
+
+#if  defined(CRAY) || defined(AIXV3)
+#include <sys/param.h>
+#define word word_t
+#include <sys/sysinfo.h>
+#undef word
+#undef n_type
+#define n_type n_value
+#endif	/* CRAY */
+
+#ifdef sequent
+#include <sys/vm.h>
+#endif /* sequent */
+
+#ifdef macII
+#include <a.out.h>
+#include <sys/var.h>
+#define X_AVENRUN 0
+#define fxtod(i) (vec[i].high+(vec[i].low/65536.0))
+struct lavnum {
+    unsigned short high;
+    unsigned short low;
+};
+#endif /* macII */
+
+#ifdef hcx
+#include <sys/param.h>
+#endif /* hcx */
+
+#if defined(UTEK) || defined(alliant) || (defined(MOTOROLA) && defined(SVR4))
+#define FSCALE	100.0
+#endif
+
+#ifdef sequent
+#define FSCALE	1000.0
+#endif
+
+#ifdef sgi
+#define FSCALE	1024.0
+#endif
+
+#if defined(sony) && OSMAJORVERSION == 4
+#ifdef mips
+#include <sys/fixpoint.h>
+#else
+#include <sys/param.h>
+#endif
+#endif
+
+#ifdef __osf__
+/*
+ * Use the table(2) interface; it doesn't require setuid root.
+ *
+ * Select 0, 1, or 2 for 5, 30, or 60 second load averages.
+ */
+#ifndef WHICH_AVG
+#define WHICH_AVG 1
+#endif
+#include <sys/table.h>
+#endif
+
+#ifdef SVR4
+#ifndef FSCALE
+#define FSCALE	(1 << 8)
+#endif
+#endif
+
+#ifdef X_NOT_POSIX
+extern long lseek();
+#endif
+
+static void xload_error(
+#if NeedFunctionPrototypes
+char *, char *
+#endif
+);
+
+
+#ifdef apollo
+#include <apollo/base.h>
+#include <apollo/time.h>
+typedef struct {
+	short		state;		/* ready, waiting, etc. */
+	pinteger	usr;		/* user sr */
+	linteger	upc;		/* user pc */
+	linteger	usp;		/* user stack pointer */
+	linteger	usb;		/* user sb ptr (A6) */
+	time_$clock_t	cpu_total;	/* cumulative cpu used by process */
+	unsigned short	priority;	/* process priority */
+    } proc1_$info_t;
+
+void proc1_$get_cput(
+	time_$clock_t	*cput
+);
+
+void proc1_$get_info(
+	short		&pid,
+	proc1_$info_t	*info,
+	status_$t	*sts
+);
+
+static int     lastNullCpu;
+static int     lastClock;
+
+void InitLoadPoint()				/* Apollo version */
+{
+     time_$clock_t  timeNow;
+     proc1_$info_t  info;
+     status_$t      st;
+
+     proc1_$get_info( (short) 2, &info, &st );
+     time_$clock( &timeNow );
+
+     lastClock = timeNow.low32;
+     lastNullCpu = info.cpu_total.low32;
+}
+
+/* ARGSUSED */
+void GetLoadPoint( w, closure, call_data ) 	/* Apollo version */
+     Widget	w;		/* unused */
+     XtPointer	closure;	/* unused */
+     XtPointer	call_data;	/* pointer to (double) return value */
+{
+     time_$clock_t  timeNow;
+     double         temp;
+     proc1_$info_t  info;
+     status_$t      st;
+
+     proc1_$get_info( (short) 2, &info, &st );
+     time_$clock( &timeNow );
+
+     temp = info.cpu_total.low32 - lastNullCpu;
+     *(double *)call_data = 1.0 - temp / (timeNow.low32 - lastClock);
+
+     lastClock = timeNow.low32;
+     lastNullCpu = info.cpu_total.low32;
+}
+#else /* not apollo */
+#if defined(SYSV) && defined(i386)
+/*
+ * inspired by 'avgload' by John F. Haugh II
+ */
+#include <sys/param.h>
+#include <sys/buf.h>
+#include <sys/immu.h>
+#include <sys/region.h>
+#include <sys/var.h>
+#include <sys/proc.h>
+#define KERNEL_FILE "/unix"
+#define KMEM_FILE "/dev/kmem"
+#define VAR_NAME "v"
+#define PROC_NAME "proc"
+#define BUF_NAME "buf"
+#define DECAY 0.8
+struct nlist namelist[] = {
+  {VAR_NAME},
+  {PROC_NAME},
+  {BUF_NAME},
+  {0},
+};
+
+static int kmem;
+static struct var v;
+static struct proc *p;
+static XtPointer first_buf, last_buf;
+
+void InitLoadPoint()				/* SYSV386 version */
+{
+    int i;
+
+    nlist( KERNEL_FILE, namelist);
+
+    for (i=0; namelist[i].n_name; i++) 
+	if (namelist[i].n_value == 0)
+	    xload_error("cannot get name list from", KERNEL_FILE);
+
+    if ((kmem = open(KMEM_FILE, O_RDONLY)) < 0)
+	xload_error("cannot open", KMEM_FILE);
+
+    if (lseek(kmem, namelist[0].n_value, 0) == -1)
+	xload_error("cannot seek", VAR_NAME);
+
+    if (read(kmem, &v, sizeof(v)) != sizeof(v))
+	xload_error("cannot read", VAR_NAME);
+
+    if ((p=(struct proc *)malloc(v.v_proc*sizeof(*p))) == NULL)
+	xload_error("cannot allocat space for", PROC_NAME);
+	  
+    first_buf = (XtPointer) namelist[2].n_value;
+    last_buf  = first_buf + v.v_buf * sizeof(struct buf);
+}
+	
+/* ARGSUSED */
+void GetLoadPoint( w, closure, call_data )	/* SYSV386 version */
+Widget	w;		/* unused */
+XtPointer	closure;	/* unused */
+XtPointer	call_data;	/* pointer to (double) return value */
+{
+    double *loadavg = (double *)call_data;
+    static double avenrun = 0.0;
+    int i, nproc, size;
+	
+    (void) lseek(kmem, namelist[0].n_value, 0);
+    (void) read(kmem, &v, sizeof(v));
+
+    size = (struct proc *)v.ve_proc - (struct proc *)namelist[1].n_value;
+
+    (void) lseek(kmem, namelist[1].n_value, 0);
+    (void) read(kmem, p, size * sizeof(struct proc));
+
+    for (nproc = 0, i=0; i<size; i++) 
+	  if ((p[i].p_stat == SRUN) ||
+	      (p[i].p_stat == SIDL) ||
+	      (p[i].p_stat == SXBRK) ||
+	      (p[i].p_stat == SSLEEP && (p[i].p_pri < PZERO) &&
+	       (p[i].p_wchan >= first_buf) && (p[i].p_wchan < last_buf)))
+	    nproc++;
+
+    /* update the load average using a decay filter */
+    avenrun = DECAY * avenrun + nproc * (1.0 - DECAY);
+    *loadavg = avenrun;
+
+    return;
+}
+#else /* not (SYSV && i386) */
+#ifdef KVM_ROUTINES
+/*
+ *	Sun 386i Code - abstracted to see the wood for the trees
+ */
+
+static struct nlist nl[2];
+static kvm_t *kd;
+
+void
+InitLoadPoint()					/* Sun 386i version */
+{
+    kd = kvm_open("/vmunix", NULL, NULL, O_RDONLY, "Load Widget");
+    if (kd == (kvm_t *)0) {
+	xload_error("cannot get access to kernel address space", "");
+    }
+	
+    nl[0].n_name = "avenrun";
+    nl[1].n_name = NULL;
+	
+    if (kvm_nlist(kd, nl) != 0) {
+	xload_error("cannot get name list", "");
+    }
+    
+    if (nl[0].n_value == 0) {
+	xload_error("Cannot find address for avenrun in the kernel\n", "");
+    }
+}
+
+/* ARGSUSED */
+void 
+GetLoadPoint( w, closure, call_data ) 		/* Sun 386i version */
+Widget	w;		/* unused */
+XtPointer closure;	/* unused */
+XtPointer call_data;	/* pointer to (double) return value */
+{
+    double *loadavg = (double *)call_data;
+    long	temp;
+
+    if (kvm_read(kd, nl[0].n_value, (char *)&temp, sizeof (temp)) != 
+	sizeof (temp)) {
+	xload_error("Kernel read error", "");
+    }
+    *loadavg = (double)temp/FSCALE;
+}
+#else /* not KVM_ROUTINES */
+
+#ifdef linux
+
+void InitLoadPoint()
+{
+      return;
+}
+
+void GetLoadPoint( w, closure, call_data )
+     Widget   w;              /* unused */
+     XtPointer  closure;        /* unused */
+     XtPointer  call_data;      /* pointer to (double) return value */
+{
+      static int fd = -1;
+      int n;
+      char buf[10] = {0, };
+#ifndef X_LOCALE
+      char *dp;
+      static char ldp = 0;
+#endif
+
+
+      if (fd < 0)
+      {
+              if (fd == -2 ||
+                  (fd = open("/proc/loadavg", O_RDONLY)) < 0)
+              {
+                      fd = -2;
+                      *(double *)call_data = 0.0;
+                      return;
+              }
+#ifndef X_LOCALE
+	      ldp = *localeconv()->decimal_point;
+#endif
+      }
+      else
+              lseek(fd, 0, 0);
+
+      if ((n = read(fd, buf, sizeof(buf)-1)) > 0) {
+#ifndef X_LOCALE
+	  if (ldp != '.')
+	      while ((dp = memchr(buf,'.',sizeof(buf)-1)) != NULL) {
+		  *(char *)dp = ldp;
+	      }
+	  
+#endif
+	  if (sscanf(buf, "%lf", (double *)call_data) == 1)
+	      return;
+      }
+      
+
+      *(double *)call_data = 0.0;     /* temporary hiccup */
+
+      return;
+}
+
+#else /* linux */
+
+#ifdef __GNU__
+
+#include <mach.h>
+
+static processor_set_t default_set;
+
+void InitLoadPoint()
+{
+  if (processor_set_default (mach_host_self (), &default_set) != KERN_SUCCESS)
+    xload_error("cannot get processor_set_default", "");
+}
+
+/* ARGSUSED */
+void GetLoadPoint( w, closure, call_data )
+     Widget	w;		/* unused */
+     XtPointer	closure;	/* unused */
+     XtPointer	call_data;	/* pointer to (double) return value */
+{
+  host_t host;
+  struct processor_set_basic_info info;
+  unsigned info_count;
+
+  info_count = PROCESSOR_SET_BASIC_INFO_COUNT;
+  if (processor_set_info (default_set, PROCESSOR_SET_BASIC_INFO, &host,
+			  (processor_set_info_t) &info, &info_count)
+      != KERN_SUCCESS)
+    {
+      InitLoadPoint();
+      info.load_average = 0;
+    }
+
+  *(double *)call_data = info.load_average * 1000 / LOAD_SCALE;
+
+  return;
+}
+
+#else /* __GNU__ */
+
+#ifdef __DARWIN__
+
+#include <mach/mach.h>
+
+static mach_port_t host_priv_port;
+
+void InitLoadPoint()
+{
+    host_priv_port = mach_host_self();
+}
+
+/* ARGSUSED */
+void GetLoadPoint( w, closure, call_data )
+    Widget	w;		/* unused */
+    XtPointer	closure;	/* unused */
+    XtPointer	call_data;	/* pointer to (double) return value */
+{
+    double *loadavg = (double *)call_data;
+
+    struct host_load_info load_data;
+    int host_count;
+    kern_return_t kr;
+
+    host_count = sizeof(load_data)/sizeof(integer_t);
+    kr = host_statistics(host_priv_port, HOST_LOAD_INFO,
+                        (host_info_t)&load_data, &host_count);
+    if (kr != KERN_SUCCESS)
+        xload_error("cannot get host statistics", "");
+    *loadavg = (double)load_data.avenrun[0]/LOAD_SCALE;
+    return;
+}
+
+#else /* __DARWIN__ */
+
+#ifdef LOADSTUB
+
+void InitLoadPoint()
+{
+}
+
+/* ARGSUSED */
+void GetLoadPoint( w, closure, call_data )
+     Widget	w;		/* unused */
+     XtPointer	closure;	/* unused */
+     XtPointer	call_data;	/* pointer to (double) return value */
+{
+	*(double *)call_data = 1.0;
+}
+
+#else /* not LOADSTUB */
+
+#ifdef __osf__
+
+void InitLoadPoint()
+{
+}
+
+/*ARGSUSED*/
+void GetLoadPoint( w, closure, call_data )
+     Widget   w;              /* unused */
+     XtPointer  closure;        /* unused */
+     XtPointer  call_data;      /* pointer to (double) return value */
+{
+    double *loadavg = (double *)call_data;
+    struct tbl_loadavg load_data;
+
+    if (table(TBL_LOADAVG, 0, (char *)&load_data, 1, sizeof(load_data)) < 0)
+	xload_error("error reading load average", "");
+    *loadavg = (load_data.tl_lscale == 0) ?
+	load_data.tl_avenrun.d[WHICH_AVG] :
+	load_data.tl_avenrun.l[WHICH_AVG] / (double)load_data.tl_lscale;
+}
+
+#else /* not __osf__ */
+
+#ifdef __QNXNTO__
+#include <time.h>
+#include <sys/neutrino.h>
+static _Uint64t          nto_idle = 0, nto_idle_last = 0;
+static  int       nto_idle_id;
+static  struct timespec nto_now, nto_last;
+
+void
+InitLoadPoint()
+{
+  nto_idle_id = ClockId(1, 1); /* Idle thread */
+  ClockTime(nto_idle_id, NULL, &nto_idle_last);
+  clock_gettime( CLOCK_REALTIME, &nto_last);
+}
+
+/* ARGSUSED */
+void
+GetLoadPoint( w, closure, call_data )           /* QNX NTO version */
+Widget  w;              /* unused */
+XtPointer closure;      /* unused */
+XtPointer call_data;    /* pointer to (double) return value */
+{
+    double *loadavg = (double *)call_data;
+    double timediff;
+    double temp = 0.0;
+
+    ClockTime(nto_idle_id, NULL, &nto_idle);
+    clock_gettime( CLOCK_REALTIME, &nto_now);
+    timediff = 1000000000.0 * (nto_now.tv_sec - nto_last.tv_sec)
+               + (nto_now.tv_nsec - nto_last.tv_nsec);
+    temp = 1.0 - (nto_idle-nto_idle_last)/timediff;
+    *loadavg = temp >= 0 ? temp : 0;
+    nto_idle_last = nto_idle;
+    nto_last = nto_now;
+}
+#else /* not __QNXNTO__ */
+
+#ifdef __bsdi__
+#include <kvm.h>
+
+static struct nlist nl[] = {
+  { "_averunnable" },
+#define X_AVERUNNABLE 0
+  { "_fscale" },
+#define X_FSCALE      1
+  { "" },
+};
+static kvm_t *kd;
+static int fscale;
+
+void InitLoadPoint()
+{
+  fixpt_t averunnable[3];  /* unused really */
+
+  if ((kd = kvm_openfiles(NULL, NULL, NULL, O_RDONLY, NULL)) == NULL)
+    xload_error("can't open kvm files", "");
+
+  if (kvm_nlist(kd, nl) != 0)
+    xload_error("can't read name list", "");
+
+  if (kvm_read(kd, (off_t)nl[X_AVERUNNABLE].n_value, (char *)averunnable,
+	       sizeof(averunnable)) != sizeof(averunnable))
+    xload_error("couldn't obtain _averunnable variable", "");
+
+  if (kvm_read(kd, (off_t)nl[X_FSCALE].n_value, (char *)&fscale,
+	       sizeof(fscale)) != sizeof(fscale))
+    xload_error("couldn't obtain _fscale variable", "");
+
+  return;
+}
+
+void GetLoadPoint(w, closure, call_data)
+     Widget w;          /* unused */
+     XtPointer closure;   /* unused */
+     XtPointer call_data; /* ptr to (double) return value */
+{
+  double *loadavg = (double *)call_data;
+  fixpt_t t;
+
+  if (kvm_read(kd, (off_t)nl[X_AVERUNNABLE].n_value, (char *)&t,
+	       sizeof(t)) != sizeof(t))
+    xload_error("couldn't obtain load average", "");
+
+  *loadavg = (double)t/fscale;
+
+  return;
+}
+
+#else /* not __bsdi__ */
+#if defined(BSD) && (BSD >= 199306)
+#include <stdlib.h>
+
+void InitLoadPoint()
+{
+}
+
+void GetLoadPoint(w, closure, call_data)
+     Widget w;          /* unused */
+     XtPointer closure;   /* unused */
+     XtPointer call_data; /* ptr to (double) return value */
+{
+  double *loadavg = (double *)call_data;
+
+  if (getloadavg(loadavg, 1) < 0) 
+    xload_error("couldn't obtain load average", "");
+}
+
+#else /* not BSD >= 199306 */
+
+#ifndef KMEM_FILE
+#define KMEM_FILE "/dev/kmem"
+#endif
+
+#ifndef KERNEL_FILE
+
+#ifdef alliant
+#define KERNEL_FILE "/vmunix"
+#endif /* alliant */
+
+#ifdef CRAY
+#define KERNEL_FILE "/unicos"
+#endif /* CRAY */
+
+#ifdef hpux
+#define KERNEL_FILE "/hp-ux"
+#endif /* hpux */
+
+#ifdef macII
+#define KERNEL_FILE "/unix"
+#endif /* macII */
+
+#ifdef umips
+# ifdef SYSTYPE_SYSV
+# define KERNEL_FILE "/unix"
+# else
+# define KERNEL_FILE "/vmunix"
+# endif /* SYSTYPE_SYSV */
+#endif /* umips */
+
+#ifdef sequent
+#define KERNEL_FILE "/dynix"
+#endif /* sequent */
+
+#ifdef hcx
+#define KERNEL_FILE "/unix"
+#endif /* hcx */
+
+#ifdef MOTOROLA
+#if defined(SYSV) && defined(m68k)
+#define KERNEL_FILE "/sysV68"
+#endif
+#if defined(SYSV) && defined(m88k)
+#define KERNEL_FILE "/unix"
+#endif
+#ifdef SVR4
+#define KERNEL_FILE "/unix"
+#endif
+#endif /* MOTOROLA */
+
+#if defined(sun) && defined(SVR4)
+#define KERNEL_FILE "/kernel/unix"
+#endif
+
+#ifdef sgi
+#if (OSMAJORVERSION > 4)
+#define KERNEL_FILE "/unix"
+#endif
+#endif
+
+/*
+ * provide default for everyone else
+ */
+#ifndef KERNEL_FILE
+#ifdef SVR4
+#define KERNEL_FILE "/stand/unix"
+#else
+#ifdef SYSV
+#define KERNEL_FILE "/unix"
+#else
+/* If a BSD system, check in <paths.h> */
+#   ifdef BSD
+#    include <paths.h>
+#    ifdef _PATH_UNIX
+#     define KERNEL_FILE _PATH_UNIX
+#    else
+#     ifdef _PATH_KERNEL
+#      define KERNEL_FILE _PATH_KERNEL
+#     else
+#      define KERNEL_FILE "/vmunix"
+#     endif
+#    endif
+#   else /* BSD */
+#    define KERNEL_FILE "/vmunix"
+#   endif /* BSD */
+#endif /* SYSV */
+#endif /* SVR4 */
+#endif /* KERNEL_FILE */
+#endif /* KERNEL_FILE */
+
+
+#ifndef KERNEL_LOAD_VARIABLE
+#    if defined(BSD) && (BSD >= 199103)
+#        define KERNEL_LOAD_VARIABLE "_averunnable"
+#    endif /* BSD >= 199103 */
+
+#    ifdef alliant
+#        define KERNEL_LOAD_VARIABLE "_Loadavg"
+#    endif /* alliant */
+
+#    ifdef CRAY
+#        if defined(CRAY2) && OSMAJORVERSION == 4
+#            define KERNEL_LOAD_VARIABLE "avenrun"
+#        else
+#            define KERNEL_LOAD_VARIABLE "sysinfo"
+#            define SYSINFO
+#        endif /* defined(CRAY2) && OSMAJORVERSION == 4 */
+#    endif /* CRAY */
+
+#    ifdef hpux
+#        ifdef __hp9000s800
+#            define KERNEL_LOAD_VARIABLE "avenrun"
+#        endif /* hp9000s800 */
+#    endif /* hpux */
+
+#    ifdef umips
+#        ifdef SYSTYPE_SYSV
+#            define KERNEL_LOAD_VARIABLE "avenrun"
+#        else
+#            define KERNEL_LOAD_VARIABLE "_avenrun"
+#        endif /* SYSTYPE_SYSV */
+#    endif /* umips */
+
+#    ifdef sgi
+#	 define KERNEL_LOAD_VARIABLE "avenrun"
+#    endif /* sgi */
+
+#    ifdef AIXV3
+#        define KERNEL_LOAD_VARIABLE "sysinfo"
+#    endif /* AIXV3 */
+
+#    ifdef MOTOROLA
+#        if defined(SYSV) && defined(m68k)
+#            define KERNEL_LOAD_VARIABLE "sysinfo"
+#        endif
+#        if defined(SYSV) && defined(m88k)
+#            define KERNEL_LOAD_VARIABLE "_sysinfo"
+#        endif
+#        ifdef SVR4
+#            define KERNEL_LOAD_VARIABLE "avenrun"
+#        endif
+#    endif /* MOTOROLA */
+
+#endif /* KERNEL_LOAD_VARIABLE */
+
+/*
+ * provide default for everyone else
+ */
+
+#ifndef KERNEL_LOAD_VARIABLE
+#    ifdef USG
+#        define KERNEL_LOAD_VARIABLE "sysinfo"
+#        define SYSINFO
+#    else
+#    ifdef SVR4
+#        define KERNEL_LOAD_VARIABLE "avenrun"
+#    else
+#        define KERNEL_LOAD_VARIABLE "_avenrun"
+#    endif
+#    endif
+#endif /* KERNEL_LOAD_VARIABLE */
+
+#ifdef macII
+static struct var v;
+static int pad[2];	/* This padding is needed if xload compiled on */
+			/* a/ux 1.1 is executed on a/ux 1.0, because */
+			/* the var structure had too much padding in 1.0, */
+			/* so the 1.0 kernel writes past the end of the 1.1 */
+			/* var structure in the uvar() call. */
+static struct nlist nl[2];
+static struct lavnum vec[3];
+#else /* not macII */
+static struct nlist namelist[] = {	    /* namelist for vmunix grubbing */
+#define LOADAV 0
+    {KERNEL_LOAD_VARIABLE},
+    {0}
+};
+#endif /* macII */
+
+static int kmem;
+static long loadavg_seek;
+
+void InitLoadPoint()
+{
+#ifdef macII
+    extern nlist();
+
+    int i;
+
+    strcpy(nl[0].n_name, "avenrun");
+    nl[1].n_name[0] = '\0';
+
+    kmem = open(KMEM_FILE, O_RDONLY);
+    if (kmem < 0) {
+	xload_error("cannot open", KMEM_FILE);
+    }
+
+    uvar(&v);
+
+    if (nlist( KERNEL_FILE, nl) != 0) {
+	xload_error("cannot get name list from", KERNEL_FILE);
+    }
+    for (i = 0; i < 2; i++) {
+	nl[i].n_value = (int)nl[i].n_value - v.v_kvoffset;
+    }
+#else /* not macII */
+#if defined(sun) && defined(SVR4) && (OSMAJORVERSION == 5) && (OSMINORVERSION > 3)
+    {
+      kvm_t *kd;
+
+      kd = kvm_open(NULL, NULL, NULL, O_RDONLY, "xload");
+      if (kd == NULL)
+      {
+        xload_error("cannot get name list from", "kernel");
+       exit(-1);
+      }
+      if (kvm_nlist (kd, namelist) < 0 )
+      {
+        xload_error("cannot get name list from", "kernel");
+       exit(-1);
+      }
+      if (namelist[LOADAV].n_type == 0 ||
+       namelist[LOADAV].n_value == 0) {
+       xload_error("cannot get name list from", "kernel");
+       exit(-1);
+      }
+      loadavg_seek = namelist[LOADAV].n_value;
+    }
+#else /* sun svr4 5.5 or later */
+
+#if (!defined(SVR4)) && !defined(sgi) && !defined(MOTOROLA) && !(BSD >= 199103)
+    extern void nlist();
+#endif
+
+#ifdef AIXV3
+    knlist( namelist, 1, sizeof(struct nlist));
+#else	
+    nlist( KERNEL_FILE, namelist);
+#endif
+    /*
+     * Some systems appear to set only one of these to Zero if the entry could
+     * not be found, I hope no_one returns Zero as a good value, or bad things
+     * will happen to you.  (I have a hard time believing the value will
+     * ever really be zero anyway).   CDP 5/17/89.
+     */
+#ifdef hcx
+    if (namelist[LOADAV].n_type == 0 &&
+#else
+    if (namelist[LOADAV].n_type == 0 ||
+#endif /* hcx */
+	namelist[LOADAV].n_value == 0) {
+	xload_error("cannot get name list from", KERNEL_FILE);
+	exit(-1);
+    }
+    loadavg_seek = namelist[LOADAV].n_value;
+#if defined(umips) && defined(SYSTYPE_SYSV)
+    loadavg_seek &= 0x7fffffff;
+#endif /* umips && SYSTYPE_SYSV */
+#if (defined(CRAY) && defined(SYSINFO))
+    loadavg_seek += ((char *) (((struct sysinfo *)NULL)->avenrun)) -
+	((char *) NULL);
+#endif /* CRAY && SYSINFO */
+#endif /* sun svr4 5.5 or later */  
+    kmem = open(KMEM_FILE, O_RDONLY);
+    if (kmem < 0) xload_error("cannot open", KMEM_FILE);
+#endif /* macII else */
+}
+
+/* ARGSUSED */
+void GetLoadPoint( w, closure, call_data )
+     Widget	w;		/* unused */
+     XtPointer	closure;	/* unused */
+     XtPointer	call_data;	/* pointer to (double) return value */
+{
+  	double *loadavg = (double *)call_data;
+
+#ifdef macII
+	lseek(kmem, (long)nl[X_AVENRUN].n_value, 0);
+#else
+	(void) lseek(kmem, loadavg_seek, 0);
+#endif
+
+#if defined(sun) || defined (UTEK) || defined(sequent) || defined(alliant) || defined(SVR4) || defined(sgi) || defined(hcx) || (BSD >= 199103)
+	{
+		long temp;
+		(void) read(kmem, (char *)&temp, sizeof(long));
+		*loadavg = (double)temp/FSCALE;
+	}
+#else /* else not sun or UTEK or sequent or alliant or SVR4 or sgi or hcx */
+# ifdef macII
+        {
+                read(kmem, vec, 3*sizeof(struct lavnum));
+                *loadavg = fxtod(0);
+        }
+# else /* else not macII */
+#  if defined(umips) || (defined(ultrix) && defined(mips))
+	{
+		fix temp;
+		(void) read(kmem, (char *)&temp, sizeof(fix));
+		*loadavg = FIX_TO_DBL(temp);
+	}
+#  else /* not umips or ultrix risc */
+#    ifdef AIXV3
+        {
+          struct sysinfo sysinfo_now;
+          struct sysinfo sysinfo_last;
+          static firsttime = TRUE;
+          static double runavg = 0.0, swpavg = 0.0;
+
+          (void) lseek(kmem, loadavg_seek, 0);
+          (void) read(kmem, (char *)&sysinfo_last, sizeof(struct sysinfo));
+          if (firsttime)
+            {
+              *loadavg = 0.0;
+              firsttime = FALSE;
+            }
+          else
+            {
+              sleep(1);
+              (void) lseek(kmem, loadavg_seek, 0);
+              (void) read(kmem, (char *)&sysinfo_now, sizeof(struct sysinfo));
+              runavg *= 0.8; swpavg *= 0.8;
+              if (sysinfo_now.runocc != sysinfo_last.runocc)
+                runavg += 0.2*((sysinfo_now.runque - sysinfo_last.runque - 1)
+                          /(double)(sysinfo_now.runocc - sysinfo_last.runocc));
+              if (sysinfo_now.swpocc != sysinfo_last.swpocc)
+                swpavg += 0.2*((sysinfo_now.swpque - sysinfo_last.swpque)
+                          /(double)(sysinfo_now.swpocc - sysinfo_last.swpocc));
+              *loadavg = runavg + swpavg;
+              sysinfo_last = sysinfo_now;
+            }
+          /* otherwise we leave load alone. */
+        }
+#    else /* not AIXV3 */
+#      if defined(MOTOROLA) && defined(SYSV)
+	{
+        static int init = 0;
+        static kmem;
+        static long loadavg_seek;
+
+#define CEXP    0.25            /* Constant used for load averaging */
+
+        struct sysinfo sysinfod;
+        static double oldloadavg;
+        static double cexp = CEXP;
+        static long sv_rq, sv_oc;   /* save old values */
+        double rq, oc;              /* amount values have changed */
+
+        if (!init)
+        {
+            if (nlist(KERNEL_FILE,namelist) == -1)
+            {
+                perror("xload: nlist()");
+                xload_error("cannot get name list from", KERNEL_FILE);
+            }
+            loadavg_seek = namelist[0].n_value;
+
+            kmem = open(KMEM_FILE, O_RDONLY);
+            if (kmem < 0)
+            {
+                perror("xload: open()");
+                xload_error("cannot open", KMEM_FILE);
+            }
+        }
+
+        lseek(kmem, loadavg_seek, 0);
+        if (read(kmem, &sysinfod, (int) sizeof (struct sysinfo)) == -1)
+        {
+             perror("xload: read() SYSINFONL");
+             xload_error("read failed from", KMEM_FILE);
+        }
+
+        if (!init)
+        {
+            init = 1;
+            sv_rq = sysinfod.runque;
+            sv_oc = sysinfod.runocc;
+            oldloadavg = *loadavg = 0.0;
+            return;
+        }
+        /*
+         * calculate the amount the values have
+         * changed since last update
+         */
+        rq = (double) sysinfod.runque - sv_rq;
+        oc = (double) sysinfod.runocc - sv_oc;
+
+        /*
+         * save old values for next time
+         */
+        sv_rq = sysinfod.runque;
+        sv_oc = sysinfod.runocc;
+
+        if (oc == 0.0)          /* avoid divide by zero  */
+        {
+                *loadavg = (1.0 - cexp) * oldloadavg;
+
+        }
+        else
+        {
+                *loadavg = ((1.0 - cexp) * oldloadavg) + ((rq / oc) * cexp);
+        }
+        oldloadavg = *loadavg;
+	}
+#      else /* not MOTOROLA */
+#     if defined(sony) && OSMAJORVERSION == 4
+#      ifdef mips
+	{
+		fix temp;
+		(void) read(kmem, (char *)&temp, sizeof(fix));
+		*loadavg = FIX_TO_DBL(temp);
+	}
+#      else /* not mips */
+	{
+		long temp;
+		(void) read(kmem, (char *)&temp, sizeof(long));
+		*loadavg = (double)temp/FSCALE;
+	}
+#      endif /* mips */
+#     else /* not sony NEWSOS4 */
+	(void) read(kmem, (char *)loadavg, sizeof(double));
+#      endif /* sony NEWOS4 */
+#     endif /* MOTOROLA else */
+#    endif /* AIXV3 else */
+#  endif /* umips else */
+# endif /* macII else */
+#endif /* sun else */
+	return;
+}
+#endif /* BSD >= 199306 else */
+#endif /* __bsdi__ else */
+#endif /* __QNXNTO__ else */
+#endif /* __osf__ else */
+#endif /* LOADSTUB else */
+#endif /* __DARWIN__ else */
+#endif /* __GNU__ else */
+#endif /* linux else */
+#endif /* KVM_ROUTINES else */
+#endif /* SYSV && i386 else */
+
+static void xload_error(str1, str2)
+char *str1, *str2;
+{
+    (void) fprintf(stderr,"xload: %s %s\n", str1, str2);
+#ifdef __bsdi__
+    if (kd)
+	kvm_close(kd);
+#endif
+    exit(-1);
+}
+
+#endif /* apollo else */
+
+#else /* !DGUX */
+
+/* INTEL DGUX Release 4.20MU04
+ * Copyright 1999 Takis Psarogiannakopoulos
+ * Cambridge, UK
+ * <takis@dpmms.cam.ac.uk>
+ */
+
+#include <errno.h>
+#include <nlist.h>
+#include <sys/dg_sys_info.h>
+
+static struct dg_sys_info_load_info load_info;  /* DG/ux */
+
+#define KERNEL_FILE "/dgux"
+#define LDAV_SYMBOL "_avenrun"
+
+void InitLoadPoint()
+{
+
+}
+
+void GetLoadPoint(w, closure, call_data)
+     Widget w;          /* unused */
+     XtPointer closure;   /* unused */
+     XtPointer call_data; /* ptr to (double) return value */
+{
+  double *loadavg = (double *)call_data;
+
+  if (getloadavg(loadavg, 1) < 0)
+    xload_error("couldn't obtain load average", "");
+}
+
+xload_error(str1, str2)
+char *str1, *str2;
+{
+    (void) fprintf(stderr,"xload: %s %s\n", str1, str2);
+    exit(-1);
+}
+
+#if !defined (LDAV_CVT) && defined (FSCALE)
+#define LDAV_CVT(n) (((double) (n)) / FSCALE)
+#endif
+#if !defined(LDAV_CVT) && defined(LOAD_AVE_CVT)
+#define LDAV_CVT(n) (LOAD_AVE_CVT (n) / 100.0)
+#endif
+#define LOAD_AVE_TYPE double
+#ifndef LDAV_CVT
+#define LDAV_CVT(n) ((double) (n))
+#endif /* !LDAV_CVT */
+static int channel;
+static int getloadavg_initialized;
+static long offset;
+static struct nlist nl[2];
+
+
+/* GETLOADAVG FUNCTION FOR DG/ux R4.20MU04 */
+
+int
+getloadavg (double loadavg[], int nelem)
+{
+  int elem = 0;                 /* Return value.  */
+  int result =0 ;
+
+  /* This call can return -1 for an error, but with good args
+     it's not supposed to fail.  The first argument is for no
+     apparent reason of type `long int *'.  */
+  result = dg_sys_info ((long int *) &load_info,
+		DG_SYS_INFO_LOAD_INFO_TYPE, DG_SYS_INFO_LOAD_VERSION_0);
+  if ( result == -1)
+  {
+     return(-1);
+  }
+  if (nelem > 0)
+    loadavg[elem++] = load_info.one_minute;
+  if (nelem > 1)
+    loadavg[elem++] = load_info.five_minute;
+  if (nelem > 2)
+    loadavg[elem++] = load_info.fifteen_minute;
+
+  return elem;
+}
+
+#endif /* END OF DG/ux */
+
+
diff --git a/get_rload.c b/get_rload.c
new file mode 100644
index 0000000..0ff77b4
--- /dev/null
+++ b/get_rload.c
@@ -0,0 +1,76 @@
+/* $XFree86: xc/programs/xload/get_rload.c,v 1.5 2002/01/07 21:46:49 dawes Exp $ */
+
+#include <stdio.h>
+#include <X11/Intrinsic.h>
+#include <fcntl.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include "xload.h"
+
+/* Not all OS supports get_rload
+   steal the STUB idea from get_load
+ */
+#if defined(QNX4)
+#define RLOADSTUB
+#endif
+
+#ifdef RLOADSTUB
+void GetRLoadPoint( w, closure, call_data )
+     Widget   w;              /* unused */
+     XtPointer  closure;        /* unused */
+     XtPointer  call_data;      /* pointer to (double) return value */
+
+{
+  *(double *)call_data = 1.0;
+}
+#else  /* RLOADSTUB */
+
+#include <protocols/rwhod.h>
+#ifndef _PATH_RWHODIR
+#define _PATH_RWHODIR "/var/spool/rwho"
+#endif
+
+typedef struct _XLoadResources {
+  Boolean show_label;
+  Boolean use_lights;
+  String remote;
+} XLoadResources;
+
+extern XLoadResources resources ;
+
+#define WHDRSIZE        ((int)(sizeof (buf) - sizeof (buf.wd_we)))
+
+void GetRLoadPoint( w, closure, call_data )
+     Widget   w;              /* unused */
+     XtPointer  closure;        /* unused */
+     XtPointer  call_data;      /* pointer to (double) return value */
+
+{
+  int f;
+  static char *fname = NULL;
+  static struct whod buf;
+  int cc;
+
+  *(double *)call_data = 0.0; /* to be on the safe side */
+
+  if (fname == NULL) {
+    if ((fname = malloc(strlen(_PATH_RWHODIR)+strlen("/whod.")+strlen(resources.remote)+1)) == NULL) {
+      fprintf(stderr,"GetRLoadPoint: malloc() failed\n");
+      exit(1);
+    }
+    strcpy(fname,_PATH_RWHODIR);
+    strcat(fname,"/whod.");
+    strcat(fname,resources.remote);
+  }
+  if ((f = open(fname, O_RDONLY, 0)) < 0)
+    return;
+
+  cc = read(f, &buf, sizeof(buf));
+  close(f);
+  if (cc < WHDRSIZE)
+    return;
+
+  *(double *)call_data = buf.wd_loadav[0] / 100.0;
+}
+
+#endif  /* RLOADSTUB */
diff --git a/xload.bit b/xload.bit
new file mode 100644
index 0000000..b4b038a
--- /dev/null
+++ b/xload.bit
@@ -0,0 +1,16 @@
+#define xload_width 32
+#define xload_height 32
+#define xload_x_hot 15
+#define xload_y_hot 16
+static unsigned char xload_bits[] = {
+   0x00, 0x00, 0xc0, 0x03, 0x1e, 0x00, 0xf0, 0x03, 0x00, 0x00, 0xf8, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x00, 0x00, 0xfc, 0x03, 0x00, 0x00, 0xfe, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x00, 0x80, 0xff, 0x03, 0x00, 0xc0, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x00, 0xe0, 0xff, 0x03, 0x00, 0xf0, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0x03, 0x00, 0xf8, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x00, 0xfc, 0xff, 0x03, 0x00, 0xfc, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x00, 0xfe, 0xff, 0x03, 0x00, 0xfe, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x00, 0xff, 0xff, 0x03, 0x00, 0xff, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0x80, 0xff, 0xff, 0x03, 0xc0, 0xff, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0xf8, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0x03,
+   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x03};
diff --git a/xload.c b/xload.c
new file mode 100644
index 0000000..60ce080
--- /dev/null
+++ b/xload.c
@@ -0,0 +1,333 @@
+/* $XConsortium: xload.c,v 1.37 94/04/17 20:43:44 converse Exp $ */
+/* $XFree86: xc/programs/xload/xload.c,v 1.7 2002/09/18 17:11:57 tsi Exp $ */
+/*
+
+Copyright (c) 1989  X Consortium
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR
+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of the X Consortium shall
+not be used in advertising or otherwise to promote the sale, use or
+other dealings in this Software without prior written authorization
+from the X Consortium.
+
+*/
+
+/*
+ * xload - display system load average in a window
+ */
+
+
+#include <stdio.h> 
+#include <stdlib.h>
+#include <unistd.h>
+#include <X11/Intrinsic.h>
+#include <X11/Xatom.h>
+#include <X11/StringDefs.h>
+#include <X11/Shell.h>
+
+#include <X11/Xaw/Cardinals.h>
+#include <X11/Xaw/Label.h>
+#include <X11/Xaw/Paned.h>
+#include <X11/Xaw/StripChart.h>
+#include <X11/Xmu/SysUtil.h>
+#include "xload.h"
+
+#include "xload.bit"
+
+char *ProgramName;
+
+static void quit(Widget w, XEvent *event, String *params, Cardinal *num_params);
+static void ClearLights(Display *dpy);
+static void SetLights(XtPointer data, XtIntervalId *timer);
+
+/*
+ * Definition of the Application resources structure.
+ */
+
+typedef struct _XLoadResources {
+  Boolean show_label;
+  Boolean use_lights;
+  String remote;
+} XLoadResources;
+
+/*
+ * Command line options table.  Only resources are entered here...there is a
+ * pass over the remaining options after XtParseCommand is let loose. 
+ */
+
+static XrmOptionDescRec options[] = {
+ {"-scale",		"*load.minScale",	XrmoptionSepArg,	NULL},
+ {"-update",		"*load.update",		XrmoptionSepArg,	NULL},
+ {"-hl",		"*load.highlight",	XrmoptionSepArg,	NULL},
+ {"-highlight",		"*load.highlight",	XrmoptionSepArg,	NULL},
+ {"-label",		"*label.label",		XrmoptionSepArg,	NULL},
+ {"-nolabel",		"*showLabel",	        XrmoptionNoArg,       "False"},
+ {"-lights",		"*useLights",		XrmoptionNoArg,	      "True"},
+ {"-jumpscroll",	"*load.jumpScroll",	XrmoptionSepArg,	NULL},
+ {"-remote",            "*remote",              XrmoptionSepArg,        NULL},
+};
+
+/*
+ * The structure containing the resource information for the
+ * Xload application resources.
+ */
+
+#define Offset(field) (XtOffsetOf(XLoadResources, field))
+
+static XtResource my_resources[] = {
+  {"showLabel", XtCBoolean, XtRBoolean, sizeof(Boolean),
+     Offset(show_label), XtRImmediate, (XtPointer) TRUE},
+  {"useLights", XtCBoolean, XtRBoolean, sizeof(Boolean),
+    Offset(use_lights), XtRImmediate, (XtPointer) FALSE},
+  {"remote", XtCString, XtRString, sizeof(XtRString),
+    Offset(remote), XtRImmediate, (XtPointer) FALSE},
+
+};
+
+#undef Offset
+
+XLoadResources resources;
+
+static XtActionsRec xload_actions[] = {
+    { "quit",	quit },
+};
+static Atom wm_delete_window;
+static int light_update = 10 * 1000;
+
+/*
+ * Exit with message describing command line format.
+ */
+
+static void usage(void)
+{
+    fprintf (stderr, "usage:  %s [-options ...]\n\n", ProgramName);
+    fprintf (stderr, "where options include:\n");
+    fprintf (stderr,
+      "    -display dpy            X server on which to display\n");
+    fprintf (stderr,
+      "    -geometry geom          size and location of window\n");
+    fprintf (stderr, 
+      "    -fn font                font to use in label\n");
+    fprintf (stderr, 
+      "    -scale number           minimum number of scale lines\n");
+    fprintf (stderr, 
+      "    -update seconds         interval between updates\n");
+    fprintf (stderr,
+      "    -label string           annotation text\n");
+    fprintf (stderr, 
+      "    -bg color               background color\n");
+    fprintf (stderr, 
+      "    -fg color               graph color\n");
+    fprintf (stderr, 
+      "    -hl color               scale and text color\n");
+    fprintf (stderr, 
+      "    -nolabel                removes the label from above the chart.\n");
+    fprintf (stderr, 
+      "    -jumpscroll value       number of pixels to scroll on overflow\n");
+    fprintf (stderr,
+      "    -remote host            remote host to monitor\n");
+    fprintf (stderr, "\n");
+    exit(1);
+}
+
+int
+main(int argc, char **argv)
+{
+    XtAppContext app_con;
+    Widget toplevel, load, pane, label_wid, load_parent;
+    Arg args[1];
+    Pixmap icon_pixmap = None;
+    char *label, host[256];
+
+    ProgramName = argv[0];
+
+    /* For security reasons, we reset our uid/gid after doing the necessary
+       system initialization and before calling any X routines. */
+    InitLoadPoint();
+    setgid(getgid());		/* reset gid first while still (maybe) root */
+    setuid(getuid());
+
+    XtSetLanguageProc(NULL, (XtLanguageProc) NULL, NULL);
+
+    toplevel = XtAppInitialize(&app_con, "XLoad", options, XtNumber(options),
+			       &argc, argv, NULL, NULL, (Cardinal) 0);
+    if (argc != 1) usage();
+
+    XtGetApplicationResources( toplevel, (XtPointer) &resources, 
+			      my_resources, XtNumber(my_resources),
+			      NULL, (Cardinal) 0);
+    
+    if (resources.use_lights)
+    {
+	char	    name[1024];
+	XrmString   type;
+	XrmValue    db_value;
+	XrmValue    int_value;
+	Bool	    found = False;
+
+	(void) sprintf (name, "%s.paned.load.update", XtName(toplevel));
+	found = XrmGetResource (XtScreenDatabase(XtScreen(toplevel)),
+				name, "XLoad.Paned.StripChart.Interval",
+				&type, &db_value);
+	if (found) {
+	    int_value.size = sizeof(int);
+	    int_value.addr = (XPointer) &light_update;
+	    found = XtConvertAndStore(toplevel, type, &db_value, XtRInt,
+				      &int_value);
+	    if (found) light_update *= 1000;
+	}
+	ClearLights (XtDisplay (toplevel));
+	SetLights ((XtPointer) toplevel, (XtIntervalId *) 0);
+    }
+    else
+    {
+    	/*
+     	 * This is a hack so that f.delete will do something useful in this
+     	 * single-window application.
+     	 */
+    	XtAppAddActions (app_con, xload_actions, XtNumber(xload_actions));
+    	XtOverrideTranslations(toplevel,
+		    	XtParseTranslationTable ("<Message>WM_PROTOCOLS: quit()"));
+    
+    	XtSetArg (args[0], XtNiconPixmap, &icon_pixmap);
+    	XtGetValues(toplevel, args, ONE);
+    	if (icon_pixmap == None) {
+	    XtSetArg(args[0], XtNiconPixmap, 
+		     XCreateBitmapFromData(XtDisplay(toplevel),
+				       	   XtScreen(toplevel)->root,
+				       	   (char *)xload_bits,
+				       	   xload_width, xload_height));
+	    XtSetValues (toplevel, args, ONE);
+    	}
+    
+    	if (resources.show_label) {
+      	  pane = XtCreateManagedWidget ("paned", panedWidgetClass,
+				    	toplevel, NULL, ZERO);
+    
+      	  label_wid = XtCreateManagedWidget ("label", labelWidgetClass,
+					     pane, NULL, ZERO);
+      	  
+      	  XtSetArg (args[0], XtNlabel, &label);
+      	  XtGetValues(label_wid, args, ONE);
+      	  
+      	  if ( strcmp("label", label) == 0 ) {
+	    (void) XmuGetHostname (host, 255);
+	    XtSetArg (args[0], XtNlabel, host);
+	    XtSetValues (label_wid, args, ONE);
+      	  }
+    
+      	  load_parent = pane;
+    	}
+    	else
+      	  load_parent = toplevel;
+    
+    	load = XtCreateManagedWidget ("load", stripChartWidgetClass,
+				      load_parent, NULL, ZERO);    
+    
+    	if (resources.remote)
+	  XtAddCallback(load, XtNgetValue, GetRLoadPoint, NULL);
+	else 
+	  XtAddCallback(load, XtNgetValue, GetLoadPoint, NULL);
+	
+    	XtRealizeWidget (toplevel);
+    	wm_delete_window = XInternAtom (XtDisplay(toplevel), "WM_DELETE_WINDOW",
+				    	False);
+    	(void) XSetWMProtocols (XtDisplay(toplevel), XtWindow(toplevel),
+			    	&wm_delete_window, 1);
+    }
+    XtAppMainLoop(app_con);
+
+    return 0;
+}
+
+static unsigned long	current_leds;
+
+static void
+ClearLights (dpy)
+    Display *dpy;
+{
+    XKeyboardControl	cntrl;
+
+    cntrl.led_mode = LedModeOff;
+    XChangeKeyboardControl (dpy, KBLedMode, &cntrl);
+    current_leds = 0;
+}
+
+static void
+SetLights (data, timer)
+    XtPointer	    data;
+    XtIntervalId    *timer;
+{
+    Widget		toplevel;
+    Display		*dpy;
+    double		value;
+    unsigned long	new_leds, change, bit;
+    int			i;
+    XKeyboardControl	cntrl;
+
+    toplevel = (Widget) data;
+    dpy = XtDisplay (toplevel);
+    if (resources.remote) 
+      GetRLoadPoint (toplevel, (XtPointer) 0, (XtPointer) &value);
+    else
+      GetLoadPoint (toplevel, (XtPointer) 0, (XtPointer) &value);
+    new_leds = (1 << (int) (value + 0.1)) - 1;
+    change = new_leds ^ current_leds;
+    i = 1;
+    bit = 1;
+    while (current_leds != new_leds)
+    {
+	if (change & bit)
+	{
+	    cntrl.led = i;
+	    cntrl.led_mode = new_leds & bit ? LedModeOn : LedModeOff;
+	    XChangeKeyboardControl (dpy, KBLed|KBLedMode, &cntrl);
+	    current_leds ^= bit;
+	}
+	i++;
+	bit <<= 1;
+    }
+    XtAppAddTimeOut(XtWidgetToApplicationContext(toplevel), light_update,
+		    SetLights, data);
+}
+
+static void quit (w, event, params, num_params)
+    Widget w;
+    XEvent *event;
+    String *params;
+    Cardinal *num_params;
+{
+    if (event->type == ClientMessage &&
+        event->xclient.data.l[0] != wm_delete_window) {
+        XBell (XtDisplay(w), 0);
+        return;
+    }
+    if (resources.use_lights)
+	ClearLights (XtDisplay (w));
+    XtDestroyApplicationContext(XtWidgetToApplicationContext(w));
+    exit (0);
+}
+
+
+
+
+
+
diff --git a/xload.h b/xload.h
new file mode 100644
index 0000000..300c8e4
--- /dev/null
+++ b/xload.h
@@ -0,0 +1,12 @@
+/* $XFree86: xc/programs/xload/xload.h,v 1.2 2001/08/28 17:10:39 tsi Exp $ */
+
+#ifndef _XLOAD_H_
+#define _XLOAD_H_
+
+#include <X11/Intrinsic.h>
+
+extern void InitLoadPoint(void);
+extern void GetLoadPoint(Widget w, XtPointer closure, XtPointer call_data);
+extern void GetRLoadPoint(Widget w, XtPointer closure, XtPointer call_data);
+
+#endif
diff --git a/xload.man b/xload.man
new file mode 100644
index 0000000..e94911c
--- /dev/null
+++ b/xload.man
@@ -0,0 +1,113 @@
+.\" $XConsortium: xload.man,v 1.29 94/04/17 20:43:44 matt Exp $
+.\"
+.\" $XFree86: xc/programs/xload/xload.man,v 1.5 2002/10/12 16:06:48 herrb Exp $
+.\"
+.TH XLOAD 1 __xorgversion__
+.SH NAME
+xload \- system load average display for X
+.SH SYNOPSIS
+.ta 6n
+\fBxload\fP	[-\fItoolkitoption\fP ...] [-scale \fIinteger\fP] [-update \fIseconds\fP] [-hl \fIcolor\fP] [-highlight \fIcolor\fP]  [-remote \fIhost\fP]
+.br
+	[-jumpscroll \fIpixels\fP] [-label \fIstring\fP] [-nolabel] [-lights]
+.SH DESCRIPTION
+The 
+.I xload 
+program displays a periodically updating histogram of the system load average.
+.SH OPTIONS
+.PP
+.I Xload
+accepts all of the standard X Toolkit command line options (see \fIX(__miscmansuffix__)\fP).
+The order of the options in unimportant.  \fIxload also accepts the
+following additional options:
+.PP
+.TP 8
+.B \-hl \fIcolor\fP or \-highlight \fIcolor\fP
+This option specifies the color of the scale lines.  
+.TP 8
+.B \-jumpscroll \fPnumber of pixels\fP
+The number of pixels to shift the graph to the left when the graph
+reaches the right edge of the window.  The default value is 1/2 the width
+of the current window.  Smooth scrolling can be achieved by setting it to 1.
+.TP 8
+.B \-label \fIstring\fP
+The string to put into the label above the load average.
+.TP 8
+.B \-nolabel
+If this command line option is specified then no label will be
+displayed above the load graph.
+.TP 8
+.B \-lights
+When specified, this option causes
+.I xload
+to display the current load average by using the keyboard leds; for
+a load average of \fIn\fP, xload lights the first \fIn\fP keyboard leds.
+This option turns off the usual screen display.
+.TP 8
+.B \-scale \fIinteger\fP
+This option specifies the minimum number of tick marks in the histogram,
+where one division represents one load average point.  If the load goes
+above this number, \fIxload\fP will create more divisions, but it will never
+use fewer than this number.  The default is 1.
+.PP
+.TP 8
+.B \-update \fIseconds\fP
+This option specifies the interval in seconds at which \fIxload\fP
+updates its display.  The minimum amount of time allowed between updates
+is 1 second.  The default is 10.
+.TP 8
+.B \-remote \fIhost\fP
+This option tells \fIxload\fP to display the load of \fIhost\fP instead of \fIlocalhost\fP. \fIXload\fP gets the information from the \fIrwhod\fP database and consequently requires \fIrwhod\fP to be executing both on \fIlocalhost\fP and \fIhost\fP.
+.SH RESOURCES
+In addition to the resources available to each of the widgets used by 
+\fIxload\fP there is one resource defined by the application itself.
+.TP 8
+.B showLabel (\fPclass\fB Boolean)
+If False then no label will be displayed.
+.SH WIDGETS
+In order to specify resources, it is useful to know the hierarchy of
+the widgets which compose \fIxload\fR.  In the notation below,
+indentation indicates hierarchical structure.  The widget class name
+is given first, followed by the widget instance name.
+.sp
+.nf
+.ta .5i 1.0i 1.5i 2.0i
+XLoad  xload
+	Paned  paned
+		Label  label
+		StripChart  load
+.fi
+.sp
+.SH ENVIRONMENT
+.PP
+.TP 8
+.B DISPLAY
+to get the default host and display number.
+.TP 8
+.B XENVIRONMENT
+to get the name of a resource file that overrides the global resources
+stored in the RESOURCE_MANAGER property.
+.SH FILES
+.TP
+.I __apploaddir__/XLoad
+specifies required resources
+.SH SEE ALSO
+X(__miscmansuffix__), xrdb(1), mem(4), Athena StripChart Widget.
+.SH BUGS
+This program requires the ability to open and read the special system
+file \fI/dev/kmem\fP.  Sites that do not allow general access to this file
+should make \fIxload\fP belong to the same group as \fI/dev/kmem\fP and
+turn on the \fIset group id\fP permission flag.
+.PP
+Reading /dev/kmem is inherently non-portable.  Therefore, the routine
+used to read it (get_load.c) must be ported to each new operating system. 
+.SH COPYRIGHT
+Copyright \(co X Consortium
+.br
+See \fIX(__miscmansuffix__)\fP for a full statement of rights and permissions.
+.SH AUTHORS
+K. Shane Hartman (MIT-LCS) and Stuart A. Malone (MIT-LCS);
+.br
+with features added by Jim Gettys (MIT-Athena), Bob Scheifler (MIT-LCS),
+Tony Della Fera (MIT-Athena), and Chris Peterson (MIT-LCS).
+DG/UX support by Takis Psarogiannakopoulos (XFree86 Project).