343 lines
9.9 KiB
C
343 lines
9.9 KiB
C
/* $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);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|