Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!rutgers!ucla-cs!zen!ucbvax!unl::spa!psi
From: psi@unl::spa (Salvador Pinto Abreu)
Newsgroups: comp.windows.x
Subject: xrload (part 6 of 6)
Message-ID: <8708131105.AA04176@decwrl.dec.com>
Date: Thu, 13-Aug-87 14:58:00 EDT
Article-I.D.: decwrl.8708131105.AA04176
Posted: Thu Aug 13 14:58:00 1987
Date-Received: Sat, 15-Aug-87 08:27:23 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 244


#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of archive 6 (of 6)."
# Contents:  init.c
# Wrapped by root@mak on Thu Aug 13 11:36:25 1987
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f init.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"init.c\"
else
echo shar: Extracting \"init.c\" \(5144 characters\)
sed "s/^X//" >init.c <<'END_OF_init.c'
X/**************************************************************************/
X/*									  */
X/*                              Initialization    			  */
X/*									  */
X/**************************************************************************/
X
X#include "xrload.h"
X
Xvoid initialize (argc, argv)
X    int argc;
X    char *argv[];
X{
X    register int i, nsys;
X    char *option, *display = NULL, *getenv();
X
X    if ((option = XGetDefault ("xrload", "SameScale")) != NULL)
X	same_scale = streq(option, "on");
X    if ((option = XGetDefault ("xrload", "Columns")) != NULL)
X	ncols = atoi(option);
X    if ((option = XGetDefault ("xrload", "Delay")) != NULL)
X	delay = atoi(option);
X    if ((option = XGetDefault ("xrload", "ReverseVideo")) != NULL)
X	reverse = streq(option, "on");
X    if ((option = XGetDefault ("xrload", "BodyFont")) != NULL)
X	font_name = option;
X    if ((option = XGetDefault ("xrload", "BorderWidth")) != NULL)
X	border_width = atoi(option);
X    if ((option = XGetDefault ("xrload", "Spacing")) != NULL)
X	dd = atoi(option);
X
X    for (i=1; i<argc; i++) {
X	if (argv[i][0] == '-') {
X	    if (streq(argv[i], "-same") || streq(argv[i], "-s")) {
X		same_scale = TRUE;
X	    }
X	    else if (streq(argv[i], "-cols") || streq(argv[i], "-c")) {
X		ncols = atoi (argv[++i]);
X	    }
X	    else if (streq(argv[i], "-delay") || streq(argv[i], "-d")) {
X		delay = atoi (argv[++i]);
X	    }
X	    else if (streq(argv[i], "-all") || streq(argv[i], "-a")) {
X		all_hosts = TRUE;
X	    }
X	    else if (streq(argv[i], "-X")) {
X		X_hosts = TRUE;
X	    }
X	    else if (streq(argv[i], "-DEBUG") || streq(argv[i], "-D")) {
X		dflag++;
X	    }
X	    else if (streq(argv[i], "-rv")) {
X		reverse = TRUE;
X	    }
X	    else if (streq(argv[i], "-fn") || streq(argv[i], "-font")) {
X		font_name = argv[++i];
X	    }
X	    else if (streq(argv[i], "-bw")) {
X		border_width = atoi(argv[++i]);
X	    }
X	    else if (streq(argv[i], "-spacing") || streq(argv[i], "-sp")) {
X		dd = atoi(argv[++i]);
X	    }
X	    else {
X		usage ();
X	    }
X	}
X	else if (argv[i][0] == '=')
X	    geometry = argv[i];
X	else if (display)
X	    usage ();
X	else
X	    display = argv[i];
X    }
X
X    if (!display) {
X	display = getenv ("DISPLAY");
X	if (!display || !*display)
X	    display = "unix:0";
X    }
X
X    if (!XOpenDisplay (display)) {
X	fprintf (stderr, "xrload: can't open display %s.\n", display);
X	exit (1);
X    }
X
X    if (!all_hosts) {
X	option = "X";
X	if (X_hosts || ((option = XGetDefault ("xrload", "Hosts")) != NULL)) {
X	    register char *p;
X	    char *get_hostname();
X	    struct in_addr *hosts, *XGetHosts();
X	    int nhosts;
X
X	    if (streq (option, "All")) {
X		all_hosts = TRUE;
X	    }
X	    else if (streq (option, "X")) {
X		register char **host_namep = host_names;
X		register int i;
X		struct in_addr *hosts;
X
X		all_hosts = FALSE;
X		hosts = XGetHosts (&nhosts);
X		if (nhosts != 0) {
X		    sethostent(1); /* don't close the database each time */
X		    for (i=0; i<nhosts; i++) {
X			p = get_hostname(hosts[i]);
X			if (!streq (p, "localhost")) {
X			    *host_namep = (char *) malloc (strlen(p)+1);
X			    strcpy (*host_namep, p);
X			}
X			host_namep++;
X		    }
X		    endhostent();
X		}
X		*host_namep = (char *) NULL;
X	    }
X	    else if (*option == '(') {
X		register char **host_namep = host_names;
X		all_hosts = FALSE;
X		while (*host_namep++ = strtok (option, "(), ;"))
X		    option = (char *) NULL;
X	    }
X	}
X	else
X	    all_hosts = TRUE;
X    }
X
X    if (dflag) {
X	if (all_hosts)
X	    printf ("all hosts.\n");
X	else {
X	    register int i;
X	    printf ("hosts:\n");
X	    for (i=0; host_names[i]; i++)
X		printf ("  %2d: %s\n", i, host_names[i]);
X	}
X    }
X
X    if ((nsys = get_stats (stats)) == 0) {
X	fprintf (stderr, "no hosts!\n");
X	exit (1);
X    }
X
X    if (ncols == 0)
X	ncols = (nsys<6)? nsys: (nsys/2);
X
X    if ((theFont = XOpenFont (font_name)) == NULL) {
X	fprintf (stderr, "xrload: can't find font %s\n", font_name);
X	exit (1);
X    }
X
X    {
X	register int max_swidth = 0;
X	for (i=0; i<nsys; i++)
X	    max_swidth = max (XQueryWidth (stats[i].sys_name, theFont->id),
X			      max_swidth);
X
X	ww = max (back.width, max_swidth) + dd;
X	hh = back.height + dd + theFont->height;
X	rr = (ww-1)/2;
X    }
X
X    minWidth  = ncols * ww                  + (ncols+1) * dd;
X    minHeight = ((nsys+ncols-1)/ncols) * hh + ((nsys+ncols-1)/ncols) * dd;
X
X    sprintf (defGeometry, "=%dx%d", minWidth, minHeight);
X
X    if (reverse) {
X	whitePixmap = WhitePixmap;
X	blackPixmap = BlackPixmap;
X	whitePixel = WhitePixel;
X	blackPixel = BlackPixel;
X    }
X    else {
X	whitePixmap = BlackPixmap;
X	blackPixmap = WhitePixmap;
X	whitePixel = BlackPixel;
X	blackPixel = WhitePixel;
X    }
X
X    frame.bdrwidth = border_width;
X    frame.border = whitePixmap;
X    frame.background = blackPixmap;
X
X    mainWindow = XCreate ("Load Averages", argv[0],
X			  geometry, defGeometry, &frame, minWidth, minHeight);
X
X    XStoreName (mainWindow, "Load Averages");
X    XSelectInput (mainWindow, ExposeWindow|UnmapWindow);
X
X    bitmap = XStoreBitmap (gray1.width, gray1.height, gray1.bits);
X    GrayPixmap = XMakePixmap (bitmap, WhitePixel, BlackPixel);
X    XFreeBitmap (bitmap);
X
X    XSetResizeHint (mainWindow, dd, 0, ww+dd, hh+dd);
X    XMapWindow (mainWindow);
X}
END_OF_init.c
if test 5144 -ne `wc -c <init.c`; then
    echo shar: \"init.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 6 \(of 6\).
cp /dev/null ark6isdone
MISSING=""
for I in 1 2 3 4 5 6 ; do
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 6 archives.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
---
UUCP: ...{mcvax,inria}!inesc!hara.unl.psi!spa	PSI/VMS: PSI%+26805010310::SPA
ARPA: lisvax.dec!unlai!spa@decwrl.dec.com	Phone: + 351 1 295 31 56

Snail:	Salvador Pinto Abreu
	Dept. of Computer Science, Universidade Nova de Lisboa
	2825 Monte Caparica, Portugal