Added xload-1.0.2

1 files changed, 342 insertions, 0 deletions

diff --git a/apps/xload/xload.c b/apps/xload/xload.c
new file mode 100644
index 000000000..2dc1cb371
--- /dev/null
+++ b/apps/xload/xload.c
@@ -0,0 +1,342 @@
+/* $XConsortium: xload.c,v 1.37 94/04/17 20:43:44 converse Exp $ */
+/* $XFree86: xc/programs/xload/xload.c,v 1.6tsi 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 <errno.h>
+#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();
+    /* reset gid first while still (maybe) root */
+    if (setgid(getgid()) == -1) {
+	    fprintf(stderr, "%s: setgid failed: %s\n", 
+		ProgramName, strerror(errno));
+	    exit(1);
+    }
+    if (setuid(getuid()) == -1) {
+	    fprintf(stderr, "%s: setuid failed: %s\n", 
+		ProgramName, strerror(errno));
+	    exit(1);
+    }
+
+    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);
+}
+
+
+
+
+
+