#include <X11/Xos.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/cursorfont.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#ifdef BUILD_PRINTSUPPORT
#include <X11/XprintUtil/xprintutil.h>
#endif
#include "dsimple.h"
char *program_name = "unknown_program";
Display *dpy = NULL;
int screen = 0;
Bool printer_output = False;
#ifdef BUILD_PRINTSUPPORT
XPContext pcontext = None;
#endif
static void _bitmap_error(int, char *);
char *Malloc(size)
unsigned size;
{
char *data;
if (!(data = malloc(size)))
Fatal_Error("Out of memory!");
return(data);
}
char *Realloc(ptr, size)
char *ptr;
int size;
{
char *new_ptr;
if (!ptr)
return(Malloc(size));
if (!(new_ptr = realloc(ptr, size)))
Fatal_Error("Out of memory!");
return(new_ptr);
}
char *Get_Display_Name(pargc, argv)
int *pargc;
char **argv;
{
int argc = *pargc;
char **pargv = argv+1;
char *displayname = NULL;
int i;
for (i = 1; i < argc; i++) {
char *arg = argv[i];
if (!strcmp (arg, "-display") || !strcmp (arg, "-d")) {
if (++i >= argc) usage ();
displayname = argv[i];
*pargc -= 2;
continue;
}
if (!strcmp(arg,"-")) {
while (i<argc)
*pargv++ = argv[i++];
break;
}
*pargv++ = arg;
}
*pargv = NULL;
return (displayname);
}
#ifdef BUILD_PRINTSUPPORT
char *Get_Printer_Name(pargc, argv)
int *pargc;
char **argv;
{
int argc = *pargc;
char **pargv = argv+1;
char *printername = NULL;
int i;
for (i = 1; i < argc; i++) {
char *arg = argv[i];
if (!strcmp (arg, "-printer") || !strcmp (arg, "-p")) {
if (++i >= argc) usage ();
printername = argv[i];
*pargc -= 2;
continue;
}
if (!strcmp(arg,"-")) {
while (i<argc)
*pargv++ = argv[i++];
break;
}
*pargv++ = arg;
}
*pargv = NULL;
return (printername);
}
#endif
Display *Open_Display(display_name)
char *display_name;
{
Display *d;
d = XOpenDisplay(display_name);
if (d == NULL) {
fprintf (stderr, "%s: unable to open display '%s'\n",
program_name, XDisplayName (display_name));
usage ();
}
return(d);
}
void Setup_Display_And_Screen(argc, argv)
int *argc;
char **argv;
{
char *displayname = NULL,
*printername = NULL;
displayname = Get_Display_Name(argc, argv);
#ifdef BUILD_PRINTSUPPORT
printername = Get_Printer_Name(argc, argv);
if (displayname && printername) {
fprintf (stderr, "%s: you cannot specify -printer (-p) and -display (-d) at the same time.\n",
program_name);
usage ();
}
if (printername) {
printer_output = True;
if (XpuGetPrinter(printername, &dpy, &pcontext) != 1) {
fprintf(stderr, "%s: Cannot open printer '%s'.\n", program_name, printername);
exit(EXIT_FAILURE);
}
screen = XScreenNumberOfScreen(XpGetScreenOfContext(dpy, pcontext));
}
else
#endif
{
printer_output = False;
dpy = Open_Display (displayname);
screen = XDefaultScreen(dpy);
}
}
void Close_Display(void)
{
if (dpy == NULL)
return;
#ifdef BUILD_PRINTSUPPORT
if (printer_output) {
XpuClosePrinterDisplay(dpy, pcontext);
dpy = NULL;
pcontext = None;
printer_output = False;
}
else
#endif
{
XCloseDisplay(dpy);
dpy = NULL;
}
}
XFontStruct *Open_Font(name)
char *name;
{
XFontStruct *font;
if (!(font=XLoadQueryFont(dpy, name)))
Fatal_Error("Unable to open font %s!", name);
return(font);
}
void Beep()
{
XBell(dpy, 50);
}
static void _bitmap_error(status, filename)
int status;
char *filename;
{
if (status == BitmapOpenFailed)
Fatal_Error("Can't open file %s!", filename);
else if (status == BitmapFileInvalid)
Fatal_Error("file %s: Bad bitmap format.", filename);
else
Fatal_Error("Out of memory!");
}
Pixmap ReadBitmapFile(d, filename, width, height, x_hot, y_hot)
Drawable d;
char *filename;
int *width, *height, *x_hot, *y_hot;
{
Pixmap bitmap;
int status;
status = XReadBitmapFile(dpy, RootWindow(dpy, screen), filename,
(unsigned int *)width, (unsigned int *)height,
&bitmap, x_hot, y_hot);
if (status != BitmapSuccess)
_bitmap_error(status, filename);
return(bitmap);
}
void WriteBitmapFile(filename, bitmap, width, height, x_hot, y_hot)
char *filename;
Pixmap bitmap;
int width, height, x_hot, y_hot;
{
int status;
status= XWriteBitmapFile(dpy, filename, bitmap, width, height, x_hot,
y_hot);
if (status != BitmapSuccess)
_bitmap_error(status, filename);
}
Window Select_Window_Args(rargc, argv)
int *rargc;
char **argv;
#define ARGC (*rargc)
{
int nargc=1;
int argc;
char **nargv;
Window w=0;
nargv = argv+1; argc = ARGC;
#define OPTION argv[0]
#define NXTOPTP ++argv, --argc>0
#define NXTOPT if (++argv, --argc==0) usage()
#define COPYOPT nargv++[0]=OPTION, nargc++
while (NXTOPTP) {
if (!strcmp(OPTION, "-")) {
COPYOPT;
while (NXTOPTP)
COPYOPT;
break;
}
if (!strcmp(OPTION, "-root")) {
w=RootWindow(dpy, screen);
continue;
}
if (!strcmp(OPTION, "-name")) {
NXTOPT;
w = Window_With_Name(dpy, RootWindow(dpy, screen),
OPTION);
if (!w)
Fatal_Error("No window with name %s exists!",OPTION);
continue;
}
if (!strcmp(OPTION, "-id")) {
NXTOPT;
w=0;
sscanf(OPTION, "0x%lx", &w);
if (!w)
sscanf(OPTION, "%lu", &w);
if (!w)
Fatal_Error("Invalid window id format: %s.", OPTION);
continue;
}
COPYOPT;
}
ARGC = nargc;
return(w);
}
unsigned long Resolve_Color(w, name)
Window w;
char *name;
{
XColor c;
Colormap colormap;
XWindowAttributes wind_info;
if (!strcmp(name, "white"))
name="#ffffffffffff";
if (!strcmp(name, "black"))
name="#000000000000";
XGetWindowAttributes(dpy, w, &wind_info);
colormap = wind_info.colormap;
if (!XParseColor(dpy, colormap, name, &c))
Fatal_Error("Bad color format '%s'.", name);
if (!XAllocColor(dpy, colormap, &c))
Fatal_Error("XAllocColor failed!");
return(c.pixel);
}
Pixmap Bitmap_To_Pixmap(dpy, d, gc, bitmap, width, height)
Display *dpy;
Drawable d;
GC gc;
Pixmap bitmap;
int width, height;
{
Pixmap pix;
int x;
unsigned int i, depth;
Drawable root;
if (!XGetGeometry(dpy, d, &root, &x, &x, &i, &i, &i, &depth))
return(0);
pix = XCreatePixmap(dpy, d, width, height, (int)depth);
XCopyPlane(dpy, bitmap, pix, gc, 0, 0, width, height, 0, 0, 1);
return(pix);
}
void blip()
{
fflush(stdout);
fprintf(stderr, "blip!\n");
fflush(stderr);
}
Window Select_Window(dpy)
Display *dpy;
{
int status;
Cursor cursor;
XEvent event;
Window target_win = None, root = RootWindow(dpy,screen);
int buttons = 0;
cursor = XCreateFontCursor(dpy, XC_crosshair);
status = XGrabPointer(dpy, root, False,
ButtonPressMask|ButtonReleaseMask, GrabModeSync,
GrabModeAsync, root, cursor, CurrentTime);
if (status != GrabSuccess) Fatal_Error("Can't grab the mouse.");
while ((target_win == None) || (buttons != 0)) {
XAllowEvents(dpy, SyncPointer, CurrentTime);
XWindowEvent(dpy, root, ButtonPressMask|ButtonReleaseMask, &event);
switch (event.type) {
case ButtonPress:
if (target_win == None) {
target_win = event.xbutton.subwindow;
if (target_win == None) target_win = root;
}
buttons++;
break;
case ButtonRelease:
if (buttons > 0)
buttons--;
break;
}
}
XUngrabPointer(dpy, CurrentTime);
return(target_win);
}
Window Window_With_Name(dpy, top, name)
Display *dpy;
Window top;
char *name;
{
Window *children, dummy;
unsigned int nchildren;
int i;
Window w=0;
char *window_name;
if (XFetchName(dpy, top, &window_name) && !strcmp(window_name, name))
return(top);
if (!XQueryTree(dpy, top, &dummy, &dummy, &children, &nchildren))
return(0);
for (i=0; i<nchildren; i++) {
w = Window_With_Name(dpy, children[i], name);
if (w)
break;
}
if (children) XFree ((char *)children);
return(w);
}
void
outl(char *msg, ...)
{
va_list args;
fflush(stdout);
va_start(args, msg);
vfprintf(stderr, msg, args);
va_end(args);
fprintf(stderr, "\n");
fflush(stderr);
}
void Fatal_Error(char *msg, ...)
{
va_list args;
fflush(stdout);
fflush(stderr);
fprintf(stderr, "%s: error: ", program_name);
va_start(args, msg);
vfprintf(stderr, msg, args);
va_end(args);
fprintf(stderr, "\n");
Close_Display();
exit(EXIT_FAILURE);
}