wmgeneral.c

/* [<][>]
[^][v][top][bottom][index][help] */

FUNCTIONS

This source file includes following functions.
  1. parse_rcfile
  2. parse_rcfile2
  3. GetXPM
  4. GetColor
  5. flush_expose
  6. RedrawWindow
  7. RedrawWindowXY
  8. AddMouseRegion
  9. CheckMouseRegion
  10. createXBMfromXPM
  11. copyXPMArea
  12. copyXBMArea
  13. setMaskXY
  14. openXwindow

/*
 * Copyright (C) 2000 Joe MacDonald (joe.macdonald@acm.org)
 * Copyright (C) 1998,1999 Martijn Pieterse, Dave Clark, Pontus Klang
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
 * more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc., 59
 * Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 * $Log: wmgeneral.c,v $
 * Revision 1.3  1999/10/30 00:35:28  pontus
 * makefilen + lite kodsnyggning
 *
 * Revision 1.2  1999/10/29 19:45:02  pontus
 * First version, it seems to work fine.
 *
 * Revision 1.1.1.2  1999/10/29 13:24:50  pontus
 * WMPLUG STARTED
 *
 * Revision 1.3  1999/07/19 21:31:46  dan
 * Added -c option
 *
 * Revision 1.2  1999/06/16 01:29:24  dan
 * Changed the logs to include changes made by me
 *
        Best viewed with vim5, using ts=4
 
        wmgeneral was taken from wmppp.
 
        It has a lot of routines which most of the wm* programs use.
 
        ------------------------------------------------------------
 
        Author: Martijn Pieterse (pieterse@xs4all.nl)
 
        ---
        CHANGES:
    ---
    14/09/1998 (Dave Clark, clarkd@skyia.com)
        * Updated createXBMfromXPM routine
        * Now supports >256 colors
        11/09/1998 (Martijn Pieterse, pieterse@xs4all.nl)
                * Removed a bug from parse_rcfile. You could
                  not use "start" in a command if a label was 
                  also start.
                * Changed the needed geometry string.
                  We don't use window size, and don't support
                  negative positions.
        03/09/1998 (Martijn Pieterse, pieterse@xs4all.nl)
                * Added parse_rcfile2
        02/09/1998 (Martijn Pieterse, pieterse@xs4all.nl)
                * Added -geometry support (untested)
        28/08/1998 (Martijn Pieterse, pieterse@xs4all.nl)
                * Added createXBMfromXPM routine
                * Saves a lot of work with changing xpm's.
        02/05/1998 (Martijn Pieterse, pieterse@xs4all.nl)
                * changed the read_rc_file to parse_rcfile, as suggested by Marcelo E. Magallon
                * debugged the parse_rc file.
        30/04/1998 (Martijn Pieterse, pieterse@xs4all.nl)
                * Ripped similar code from all the wm* programs,
                  and put them in a single file.
 
*/

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <ctype.h>
#include <stdarg.h>

#include <X11/Xlib.h>
#include <X11/xpm.h>
#include <X11/extensions/shape.h>

#include "wmgeneral.h"

/*****************/

/* X11 Variables */

/*****************/

static Window Root;
static int screen;
static int x_fd;
static int d_depth;
static XSizeHints mysizehints;
static XWMHints mywmhints;
static Pixel back_pix,
  fore_pix;
static char *Geometry = "";
static Window iconwin,
  win;
static GC NormalGC;
static XpmIcon wmgen;
static Pixmap pixmask;

/*****************/

/* Mouse Regions */

/*****************/

typedef struct
{
        int enable;
        int top;
        int bottom;
        int left;
        int right;
}
MOUSE_REGION;

static MOUSE_REGION mouse_region[MAX_MOUSE_REGION];

/***********************/

/* Function Prototypes */

/***********************/

static void GetXPM (XpmIcon *, char **);
static Pixel GetColor (char *);
void RedrawWindow (void);
void AddMouseRegion (int, int, int, int, int);
int CheckMouseRegion (int, int);

/*******************************************************************************\
|* parse_rcfile                         
\*******************************************************************************/
void parse_rcfile (const char *filename, rckeys * keys)
/* [<][>][^][v][top][bottom][index][help] */
{

        char *p,
         *q;
        char temp[128];
        char *tokens = " :\t\n";
        FILE *fp;
        int i,
          key;

        fp = fopen (filename, "r");
        if (fp)
        {
                while (fgets (temp, 128, fp))
                {
                        key = 0;
                        q = strdup (temp);
                        q = strtok (q, tokens);
                        while (key >= 0 && keys[key].label)
                        {
                                if ((!strcmp (q, keys[key].label)))
                                {
                                        p = strstr (temp, keys[key].label);
                                        p += strlen (keys[key].label);
                                        p += strspn (p, tokens);
                                        if ((i = strcspn (p, "#\n")))
                                                p[i] = 0;
                                        free (*keys[key].var);
                                        *keys[key].var = strdup (p);
                                        key = -1;
                                }
                                else
                                        key++;
                        }
                        free (q);
                }
                fclose (fp);
        }
}

/*******************************************************************************\
|* parse_rcfile2        
\*******************************************************************************/
void parse_rcfile2 (const char *filename, rckeys2 * keys)
/* [<][>][^][v][top][bottom][index][help] */
{

        char *p;
        char temp[128];
        char *tokens = " :\t\n";
        FILE *fp;
        int i,
          key;
        char *family = NULL;

        fp = fopen (filename, "r");
        if (fp)
        {
                while (fgets (temp, 128, fp))
                {
                        key = 0;
                        while (key >= 0 && keys[key].label)
                        {
                                if ((p = strstr (temp, keys[key].label)))
                                {
                                        p += strlen (keys[key].label);
                                        p += strspn (p, tokens);
                                        if ((i = strcspn (p, "#\n")))
                                                p[i] = 0;
                                        free (*keys[key].var);
                                        *keys[key].var = strdup (p);
                                        key = -1;
                                }
                                else
                                        key++;
                        }
                }
                fclose (fp);
        }
        free (family);
}

/*******************************************************************************\
|* GetXPM       
\*******************************************************************************/

static void GetXPM (XpmIcon * wmgen, char *pixmap_bytes[])
/* [<][>][^][v][top][bottom][index][help] */
{

        XWindowAttributes attributes;
        int err;

        /* For the colormap */
        XGetWindowAttributes (display, Root, &attributes);

        wmgen->attributes.valuemask |= (XpmReturnPixels | XpmReturnExtensions);

        err =
                XpmCreatePixmapFromData (display, Root, pixmap_bytes, &(wmgen->pixmap),
                                                                                 &(wmgen->mask), &(wmgen->attributes));

        if (err != XpmSuccess)
        {
                fprintf (stderr, "Not enough free colorcells.\n");
                exit (1);
        }
}

/*******************************************************************************\
|* GetColor             
\*******************************************************************************/

static Pixel GetColor (char *name)
/* [<][>][^][v][top][bottom][index][help] */
{

        XColor color;
        XWindowAttributes attributes;

        XGetWindowAttributes (display, Root, &attributes);

        color.pixel = 0;
        if (!XParseColor (display, attributes.colormap, name, &color))
        {
                fprintf (stderr, "wm.app: can't parse %s.\n", name);
        }
        else if (!XAllocColor (display, attributes.colormap, &color))
        {
                fprintf (stderr, "wm.app: can't allocate %s.\n", name);
        }
        return color.pixel;
}

/*******************************************************************************\
|* flush_expose                 
\*******************************************************************************/

static int flush_expose (Window w)
/* [<][>][^][v][top][bottom][index][help] */
{

        XEvent dummy;
        int i = 0;

        while (XCheckTypedWindowEvent (display, w, Expose, &dummy))
                i++;

        return i;
}

/*******************************************************************************\
|* RedrawWindow                 
\*******************************************************************************/

void RedrawWindow (void)
/* [<][>][^][v][top][bottom][index][help] */
{

        flush_expose (iconwin);
        XCopyArea (display, wmgen.pixmap, iconwin, NormalGC,
                                  0, 0, wmgen.attributes.width, wmgen.attributes.height, 0, 0);
        flush_expose (win);
        XCopyArea (display, wmgen.pixmap, win, NormalGC,
                                  0, 0, wmgen.attributes.width, wmgen.attributes.height, 0, 0);
}

/*******************************************************************************\
|* RedrawWindowXY       
\*******************************************************************************/

void RedrawWindowXY (int x, int y)
/* [<][>][^][v][top][bottom][index][help] */
{

        flush_expose (iconwin);
        XCopyArea (display, wmgen.pixmap, iconwin, NormalGC,
                                  x, y, wmgen.attributes.width, wmgen.attributes.height, 0, 0);
        flush_expose (win);
        XCopyArea (display, wmgen.pixmap, win, NormalGC,
                                  x, y, wmgen.attributes.width, wmgen.attributes.height, 0, 0);
}

/*******************************************************************************\
|* AddMouseRegion       
\*******************************************************************************/

void AddMouseRegion (int index, int left, int top, int right, int bottom)
/* [<][>][^][v][top][bottom][index][help] */
{

        if (index < MAX_MOUSE_REGION)
        {
                mouse_region[index].enable = 1;
                mouse_region[index].top = top;
                mouse_region[index].left = left;
                mouse_region[index].bottom = bottom;
                mouse_region[index].right = right;
        }
}

/*******************************************************************************\
|* CheckMouseRegion
\*******************************************************************************/

int CheckMouseRegion (int x, int y)
/* [<][>][^][v][top][bottom][index][help] */
{

        int i;
        int found;

        found = 0;

        for (i = 0; i < MAX_MOUSE_REGION && !found; i++)
        {
                if (mouse_region[i].enable &&
                         x <= mouse_region[i].right &&
                         x >= mouse_region[i].left &&
                         y <= mouse_region[i].bottom && y >= mouse_region[i].top)
                        found = 1;
        }
        if (!found)
                return -1;
        return (i - 1);
}

/*******************************************************************************\
|* createXBMfromXPM     
\*******************************************************************************/
void createXBMfromXPM (char *xbm, char **xpm, int sx, int sy)
/* [<][>][^][v][top][bottom][index][help] */
{

        int i,
          j,
          k;
        int width,
          height,
          numcol,
          depth;
        int zero = 0;
        unsigned char bwrite;
        int bcount;
        int curpixel;

        sscanf (*xpm, "%d %d %d %d", &width, &height, &numcol, &depth);

        for (k = 0; k != depth; k++)
        {
                zero <<= 8;
                zero |= xpm[1][k];
        }

        for (i = numcol + 1; i < numcol + sy + 1; i++)
        {
                bcount = 0;
                bwrite = 0;
                for (j = 0; j < sx * depth; j += depth)
                {
                        bwrite >>= 1;

                        curpixel = 0;
                        for (k = 0; k != depth; k++)
                        {
                                curpixel <<= 8;
                                curpixel |= xpm[i][j + k];
                        }

                        if (curpixel != zero)
                        {
                                bwrite += 128;
                        }
                        bcount++;
                        if (bcount == 8)
                        {
                                *xbm = bwrite;
                                xbm++;
                                bcount = 0;
                                bwrite = 0;
                        }
                }
        }
}

/*******************************************************************************\
|* copyXPMArea                                                                                                                             *|
\*******************************************************************************/

void copyXPMArea (int x, int y, int sx, int sy, int dx, int dy)
/* [<][>][^][v][top][bottom][index][help] */
{

        XCopyArea (display, wmgen.pixmap, wmgen.pixmap, NormalGC, x, y, sx, sy, dx,
                                  dy);

}

/*******************************************************************************\
|* copyXBMArea                                                                                                                             *|
\*******************************************************************************/

void copyXBMArea (int x, int y, int sx, int sy, int dx, int dy)
/* [<][>][^][v][top][bottom][index][help] */
{

        XCopyArea (display, wmgen.mask, wmgen.pixmap, NormalGC, x, y, sx, sy, dx,
                                  dy);
}

/*******************************************************************************\
|* setMaskXY                                                                                                                               *|
\*******************************************************************************/

void setMaskXY (int x, int y)
/* [<][>][^][v][top][bottom][index][help] */
{

        XShapeCombineMask (display, win, ShapeBounding, x, y, pixmask, ShapeSet);
        XShapeCombineMask (display, iconwin, ShapeBounding, x, y, pixmask,
                                                         ShapeSet);
}

/*******************************************************************************\
|* openXwindow                                                                                                                             *|
\*******************************************************************************/
void openXwindow (int argc, char *argv[], char *pixmap_bytes[],
/* [<][>][^][v][top][bottom][index][help] */
                                                char *pixmask_bits, int pixmask_width, int pixmask_height)
{

        unsigned int borderwidth = 1;
        XClassHint classHint;
        char *display_name = NULL;
        char *wname = argv[0];
        XTextProperty name;

        XGCValues gcv;
        unsigned long gcm;

        char *geometry = NULL;

        int dummy = 0;
        int wx,
          wy;

/*
    for (i=1; argv[i]; i++) {
        if (!strcmp(argv[i], "-display")) {
            display_name = argv[i+1];
            i++;
        }
        if (!strcmp(argv[i], "-geometry")) {
            geometry = argv[i+1];
            i++;
        }
    }
*/
        if (!(display = XOpenDisplay (display_name)))
        {
                fprintf (stderr, "%s: can't open display %s\n",
                                        wname, XDisplayName (display_name));
                exit (1);
        }
        screen = DefaultScreen (display);
        Root = RootWindow (display, screen);
        d_depth = DefaultDepth (display, screen);
        x_fd = XConnectionNumber (display);

        /* Convert XPM to XImage */
        GetXPM (&wmgen, pixmap_bytes);

        /* Create a window to hold the stuff */
        mysizehints.flags = USSize | USPosition;
        mysizehints.x = 0;
        mysizehints.y = 0;

        back_pix = GetColor ("white");
        fore_pix = GetColor ("black");

        XWMGeometry (display, screen, Geometry, NULL, borderwidth, &mysizehints,
                                         &mysizehints.x, &mysizehints.y, &mysizehints.width,
                                         &mysizehints.height, &dummy);

        mysizehints.width = 64;
        mysizehints.height = 64;

        win = XCreateSimpleWindow (display, Root, mysizehints.x, mysizehints.y,
                                                                                mysizehints.width, mysizehints.height,
                                                                                borderwidth, fore_pix, back_pix);

        iconwin = XCreateSimpleWindow (display, win, mysizehints.x, mysizehints.y,
                                                                                         mysizehints.width, mysizehints.height,
                                                                                         borderwidth, fore_pix, back_pix);

        /* Activate hints */
        XSetWMNormalHints (display, win, &mysizehints);
        classHint.res_name = wname;
        classHint.res_class = wname;
        XSetClassHint (display, win, &classHint);

        XSelectInput (display, win,
                                          ButtonPressMask | ExposureMask | ButtonReleaseMask |
                                          PointerMotionMask | StructureNotifyMask);
        XSelectInput (display, iconwin,
                                          ButtonPressMask | ExposureMask | ButtonReleaseMask |
                                          PointerMotionMask | StructureNotifyMask);

        if (XStringListToTextProperty (&wname, 1, &name) == 0)
        {
                fprintf (stderr, "%s: can't allocate window name\n", wname);
                exit (1);
        }

        XSetWMName (display, win, &name);

        /* Create GC for drawing */

        gcm = GCForeground | GCBackground | GCGraphicsExposures;
        gcv.foreground = fore_pix;
        gcv.background = back_pix;
        gcv.graphics_exposures = 0;
        NormalGC = XCreateGC (display, Root, gcm, &gcv);

        /* ONLYSHAPE ON */

        pixmask =
                XCreateBitmapFromData (display, win, pixmask_bits, pixmask_width,
                                                                          pixmask_height);

        XShapeCombineMask (display, win, ShapeBounding, 0, 0, pixmask, ShapeSet);
        XShapeCombineMask (display, iconwin, ShapeBounding, 0, 0, pixmask,
                                                         ShapeSet);

        /* ONLYSHAPE OFF */

        mywmhints.initial_state = WithdrawnState;
        mywmhints.icon_window = iconwin;
        mywmhints.icon_x = mysizehints.x;
        mywmhints.icon_y = mysizehints.y;
        mywmhints.window_group = win;
        mywmhints.flags =
                StateHint | IconWindowHint | IconPositionHint | WindowGroupHint;

        XSetWMHints (display, win, &mywmhints);

        XSetCommand (display, win, argv, argc);
        XMapWindow (display, win);

        if (geometry)
        {
                if (sscanf (geometry, "+%d+%d", &wx, &wy) != 2)
                {
                        fprintf (stderr, "Bad geometry string.\n");
                        exit (1);
                }
                XMoveWindow (display, win, wx, wy);
        }
}

/* [<][>][^][v][top][bottom][index][help] */