From xemacs-m  Mon Jan 13 03:20:57 1997
Received: from venus.Sun.COM (venus.Sun.COM [192.9.25.5])
          by xemacs.org (8.8.4/8.8.4) with SMTP
	  id DAA04607 for <xemacs-beta@xemacs.org>; Mon, 13 Jan 1997 03:20:57 -0600 (CST)
Received: from Eng.Sun.COM ([129.146.1.25]) by venus.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id BAA23985 for <xemacs-beta@xemacs.org>; Mon, 13 Jan 1997 01:20:28 -0800
Received: from kindra.eng.sun.com by Eng.Sun.COM (SMI-8.6/SMI-5.3)
	id BAA25409; Mon, 13 Jan 1997 01:20:25 -0800
Received: from xemacs.eng.sun.com by kindra.eng.sun.com (SMI-8.6/SMI-SVR4)
	id BAA04538; Mon, 13 Jan 1997 01:20:25 -0800
Received: by xemacs.eng.sun.com (SMI-8.6/SMI-SVR4)
	id BAA18968; Mon, 13 Jan 1997 01:20:23 -0800
Date: Mon, 13 Jan 1997 01:20:23 -0800
Message-Id: <199701130920.BAA18968@xemacs.eng.sun.com>
From: Martin Buchholz <mrb@Eng.Sun.COM>
To: XEmacs Beta Test <xemacs-beta@xemacs.org>
Subject: (load-average) on HP's
Reply-To: Martin Buchholz <mrb@Eng.Sun.COM>
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: text/plain; charset=US-ASCII

I `upgraded' the getloadavg.c in XEmacs, and got (load-avergage)
working on Suns.  Unfortunately, it seems I broke it on HP's.

Could someone on HPUX please test the following patch?  Without help
from HPUX folks, (load-average) will likely remain broken.

Martin

*** /tmp/geta16539	Mon Jan 13 00:59:43 1997
--- getloadavg.c	Mon Jan 13 00:56:33 1997
***************
*** 567,572 ****
--- 567,592 ----
    free(buf);
    
  #endif /* HAVE_KSTAT_H && HAVE_LIBKSTAT */
+ 
+ #if !defined (LDAV_DONE) && defined (HAVE_PSTAT_H)
+ #define LDAV_DONE
+   /* This is totally undocumented, and is not guaranteed to work, but
+      mayhap it might ....  If it does work, it will work only on HP-UX
+      8.0 or later.  -- Darryl Okahata <darrylo@sr.hp.com> */
+ #undef LOAD_AVE_TYPE		/* Make sure these don't exist. */
+ #undef LOAD_AVE_CVT
+ #undef LDAV_SYMBOL
+   struct pst_dynamic	procinfo;
+   union pstun		statbuf;
+ 
+   statbuf.pst_dynamic = &procinfo;
+   if (pstat (PSTAT_DYNAMIC, statbuf, sizeof (struct pst_dynamic), 0, 0) == -1)
+     return (-1);
+   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__)

