From 0f22ecbb798add2e02b586894434884765f7daae Mon Sep 17 00:00:00 2001 From: Kaleb Keithley Date: Fri, 14 Nov 2003 16:49:23 +0000 Subject: Initial revision --- xload.c | 333 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 333 insertions(+) create mode 100644 xload.c (limited to 'xload.c') 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 +#include +#include +#include +#include +#include +#include + +#include +#include +#include +#include +#include +#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 ("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); +} + + + + + + -- cgit v1.2.3