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


#! /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 2 (of 6)."
# Contents:  Makefile draw-hand.c recalc-windows.c show-stats.c
#   update-sys.c
# Wrapped by root@mak on Thu Aug 13 11:36:19 1987
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"Makefile\"
else
echo shar: Extracting \"Makefile\" \(834 characters\)
sed "s/^X//" >Makefile <<'END_OF_Makefile'
XPROGRAM = xrload
X
XOBJECTS = draw-hand.o dump-stats.o event-loop.o get-stats.o hostname.o \
X	  init.o recalc-windows.o show-stats.o update-sys.o globals.o \
X	  xrload.o
X
XSHARFILES = \
X	  README Makefile \
X	  xrload.1x \
X	  back.bitmap down.bitmap \
X	  draw-hand.c dump-stats.c event-loop.c get-stats.c hostname.c \
X	  init.c recalc-windows.c show-stats.c update-sys.c globals.c \
X	  xrload.c
X
XMAN = /usr/man/man1
XBIN = /usr/local/bin
X
XCFLAGS = -O
XSIZE = 6k
X
Xall: $(PROGRAM)
X
Xshar: MANIFEST
X	makekit -s$(SIZE) -nxrload.shar. -h2 -iMANIFEST
X
XMANIFEST: $(SHARFILES)
X	makekit -m -s$(SIZE) -x $(SHARFILES)
X
Xinstall: all
X	install xrload $(BIN)
X
Xman:	xrload.1x
X	cp xrload.1x $(MAN)/xrload.1
X	chmod a=r $(MAN)/xrload.1
X
X$(PROGRAM): $(OBJECTS)
X	cc $(CFLAGS) -o xrload $(OBJECTS) -lX -lm
X
Xxrload.h: back.bitmap down.bitmap
X
X$(OBJECTS): xrload.h
END_OF_Makefile
if test 834 -ne `wc -c <Makefile`; then
    echo shar: \"Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f draw-hand.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"draw-hand.c\"
else
echo shar: Extracting \"draw-hand.c\" \(788 characters\)
sed "s/^X//" >draw-hand.c <<'END_OF_draw-hand.c'
X/**************************************************************************/
X/*									  */
X/*                              Draw a dial hand    			  */
X/*									  */
X/**************************************************************************/
X
X#include "xrload.h"
X
Xdraw_hand (w, value, scale, l0, l1, thick)
X    Window w;
X    float value, scale, l0, l1;
X    int thick;
X{
X    float theta = M_PI_4 * (5.0 - 6.0*value/scale);
X    int x0 = (int) (rr*l0*cos(theta));
X    int x1 = (int) (rr*l1*cos(theta));
X    int y0 = (int) (rr*l0*sin(-theta));
X    int y1 = (int) (rr*l1*sin(-theta));
X
X    x0 += (ww-back.width)/2+back.x_hot;
X    x1 += (ww-back.width)/2+back.x_hot;
X    y0 += back.y_hot;
X    y1 += back.y_hot;
X
X    XLine (w, x0, y0, x1, y1, thick, thick, blackPixel, GXcopy, AllPlanes);
X}
END_OF_draw-hand.c
if test 788 -ne `wc -c <draw-hand.c`; then
    echo shar: \"draw-hand.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f recalc-windows.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"recalc-windows.c\"
else
echo shar: Extracting \"recalc-windows.c\" \(901 characters\)
sed "s/^X//" >recalc-windows.c <<'END_OF_recalc-windows.c'
X/**************************************************************************/
X/*									  */
X/*                       Recompute subwindow locations 			  */
X/*									  */
X/**************************************************************************/
X
X#include "xrload.h"
X
Xvoid recalc_windows (stats, nsys)
X    sys_stat *stats;
X    int nsys;
X{
X    WindowInfo wi;
X    register int x, y, i;
X
X    XQueryWindow (mainWindow, &wi);
X    if (wi.width != mainLoc.width ||
X	wi.height != mainLoc.height ||
X	nsys != nSystems) {	/* recompute subwindow locations */
X	mainLoc = wi;
X	nSystems = nsys;
X	x = dd;
X	y = dd;
X	for (i=0; i<nsys; i++) {
X	    if (stats[i].w)
X		XMoveWindow (stats[i].w, x, y);
X	    else {
X		stats[i].w = XCreateWindow (mainWindow, x, y, ww, hh, 0,
X					    NULL, blackPixmap);
X		XMapWindow (stats[i].w);
X	    }
X	    x += ww+dd;
X	    if (x >= wi.width) {
X		x = dd;
X		y += hh+dd;
X	    }
X	}
X    }
X}
END_OF_recalc-windows.c
if test 901 -ne `wc -c <recalc-windows.c`; then
    echo shar: \"recalc-windows.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f show-stats.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"show-stats.c\"
else
echo shar: Extracting \"show-stats.c\" \(1004 characters\)
sed "s/^X//" >show-stats.c <<'END_OF_show-stats.c'
X/**************************************************************************/
X/*									  */
X/*                        Display system statistics    			  */
X/*									  */
X/**************************************************************************/
X
X#include "xrload.h"
X
Xvoid show_stats (stats, nsys)
X    sys_stat *stats;
X    int nsys;
X{
X    float max_scale;
X    int i;
X
X    if (dflag) dump_stats (stats, nsys);
X
X    recalc_windows (stats, nsys);
X
X    if (same_scale) {
X	max_scale = 1.0;
X	for (i=0; i<nsys; i++) {
X	    if (stats[i].state == UP) {
X		max_scale = max (max_scale, stats[i].load_average[0]);
X		max_scale = max (max_scale, stats[i].load_average[1]);
X		/*max_scale = max (max_scale, stats[i].load_average[2]);*/
X	    }
X	}
X	max_scale = ceil (max_scale);
X    }
X
X    for (i=0; i<nsys; i++) {
X	if (!same_scale)
X	    max_scale = ceil (max (stats[i].load_average[0],
X				   stats[i].load_average[1]));
X	if (max_scale < 1.0) max_scale = 1.0;
X	update_sys (&stats[i], max_scale);
X    }
X    XFlush ();
X}
END_OF_show-stats.c
if test 1004 -ne `wc -c <show-stats.c`; then
    echo shar: \"show-stats.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f update-sys.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"update-sys.c\"
else
echo shar: Extracting \"update-sys.c\" \(1133 characters\)
sed "s/^X//" >update-sys.c <<'END_OF_update-sys.c'
X/**************************************************************************/
X/*									  */
X/*                       Update a system's dial window 			  */
X/*									  */
X/**************************************************************************/
X
X#include "xrload.h"
X
Xvoid update_sys (stat, scale)
X    sys_stat	*stat;
X    float	scale;
X{
X    register int tw;
X    float tick;
X
X    if (stat->state == DOWN) {
X	XBitmapBitsPut (stat->w, (ww-down.width)/2, 0, down.width, down.height,
X			down.bits,
X			blackPixel, whitePixel, NULL, GXcopy, AllPlanes);
X    }
X    else {
X	XBitmapBitsPut (stat->w, (ww-back.width)/2, 0, back.width, back.height,
X			back.bits,
X			blackPixel, whitePixel, NULL, GXcopy, AllPlanes);
X
X	for (tick=1.0; tick<scale; tick += 1.0)
X	    draw_hand (stat->w, tick, scale, 0.8, 1.1, 2);
X
X	draw_hand (stat->w, stat->load_average[0], scale, 0.0, 0.85, 1);
X	draw_hand (stat->w, stat->load_average[1], scale, 0.0, 0.50, 1);
X    }
X
X    tw = XQueryWidth (stat->sys_name, theFont->id);
X    XText (stat->w, (ww-tw)/2, hh-2-theFont->height,
X	   stat->sys_name, strlen(stat->sys_name),
X	   theFont->id, whitePixel, blackPixel);
X}
END_OF_update-sys.c
if test 1133 -ne `wc -c <update-sys.c`; then
    echo shar: \"update-sys.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 2 \(of 6\).
cp /dev/null ark2isdone
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