svn merge https://vcxsrv.svn.sourceforge.net/svnroot/vcxsrv/branches/released

1 files changed, 1295 insertions, 1294 deletions

diff --git a/xorg-server/Xext/shape.c b/xorg-server/Xext/shape.c
index 0264d1c41..27f7ae25e 100644
--- a/xorg-server/Xext/shape.c
+++ b/xorg-server/Xext/shape.c
@@ -1,1294 +1,1295 @@
-/************************************************************
-
-Copyright 1989, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-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
-OPEN GROUP 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 Open Group 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 Open Group.
-
-********************************************************/
-
-#ifdef HAVE_DIX_CONFIG_H
-#include <dix-config.h>
-#else
-#define SHAPE
-#endif
-
-#include <stdlib.h>
-
-#include <X11/X.h>
-#include <X11/Xproto.h>
-#include "misc.h"
-#include "os.h"
-#include "windowstr.h"
-#include "scrnintstr.h"
-#include "pixmapstr.h"
-#include "extnsionst.h"
-#include "dixstruct.h"
-#include "resource.h"
-#include "opaque.h"
-#include <X11/extensions/shapeproto.h>
-#include "regionstr.h"
-#include "gcstruct.h"
-#include "modinit.h"
-
-typedef	RegionPtr (*CreateDftPtr)(
-	WindowPtr /* pWin */
-	);
-
-static int ShapeFreeClient(
-	pointer /* data */,
-	XID /* id */
-	);
-static int ShapeFreeEvents(
-	pointer /* data */,
-	XID /* id */
-	);
-static void SShapeNotifyEvent(
-	xShapeNotifyEvent * /* from */,
-	xShapeNotifyEvent * /* to */
-	);
-
-/* SendShapeNotify, CreateBoundingShape and CreateClipShape are used
- * externally by the Xfixes extension and are now defined in window.h
- */
-
-static DISPATCH_PROC(ProcShapeCombine);
-static DISPATCH_PROC(ProcShapeDispatch);
-static DISPATCH_PROC(ProcShapeGetRectangles);
-static DISPATCH_PROC(ProcShapeInputSelected);
-static DISPATCH_PROC(ProcShapeMask);
-static DISPATCH_PROC(ProcShapeOffset);
-static DISPATCH_PROC(ProcShapeQueryExtents);
-static DISPATCH_PROC(ProcShapeQueryVersion);
-static DISPATCH_PROC(ProcShapeRectangles);
-static DISPATCH_PROC(ProcShapeSelectInput);
-static DISPATCH_PROC(SProcShapeCombine);
-static DISPATCH_PROC(SProcShapeDispatch);
-static DISPATCH_PROC(SProcShapeGetRectangles);
-static DISPATCH_PROC(SProcShapeInputSelected);
-static DISPATCH_PROC(SProcShapeMask);
-static DISPATCH_PROC(SProcShapeOffset);
-static DISPATCH_PROC(SProcShapeQueryExtents);
-static DISPATCH_PROC(SProcShapeQueryVersion);
-static DISPATCH_PROC(SProcShapeRectangles);
-static DISPATCH_PROC(SProcShapeSelectInput);
-
-#ifdef PANORAMIX
-#include "panoramiX.h"
-#include "panoramiXsrv.h"
-#endif
-
-static int ShapeEventBase = 0;
-static RESTYPE ClientType, ShapeEventType; /* resource types for event masks */
-
-/*
- * each window has a list of clients requesting
- * ShapeNotify events.  Each client has a resource
- * for each window it selects ShapeNotify input for,
- * this resource is used to delete the ShapeNotifyRec
- * entry from the per-window queue.
- */
-
-typedef struct _ShapeEvent *ShapeEventPtr;
-
-typedef struct _ShapeEvent {
-    ShapeEventPtr   next;
-    ClientPtr	    client;
-    WindowPtr	    window;
-    XID		    clientResource;
-} ShapeEventRec;
-
-/****************
- * ShapeExtensionInit
- *
- * Called from InitExtensions in main() or from QueryExtension() if the
- * extension is dynamically loaded.
- *
- ****************/
-
-void
-ShapeExtensionInit(void)
-{
-    ExtensionEntry *extEntry;
-
-    ClientType = CreateNewResourceType(ShapeFreeClient);
-    ShapeEventType = CreateNewResourceType(ShapeFreeEvents);
-    if (ClientType && ShapeEventType &&
-	(extEntry = AddExtension(SHAPENAME, ShapeNumberEvents, 0,
-				 ProcShapeDispatch, SProcShapeDispatch,
-				 NULL, StandardMinorOpcode)))
-    {
-	ShapeEventBase = extEntry->eventBase;
-	EventSwapVector[ShapeEventBase] = (EventSwapPtr) SShapeNotifyEvent;
-    }
-}
-
-static int
-RegionOperate (
-	ClientPtr client,
-	WindowPtr pWin,
-	int kind,
-	RegionPtr *destRgnp,
-	RegionPtr srcRgn,
-	int op,
-	int xoff, int yoff,
-	CreateDftPtr create)
-{
-    ScreenPtr	pScreen = pWin->drawable.pScreen;
-
-    if (srcRgn && (xoff || yoff))
-	REGION_TRANSLATE(pScreen, srcRgn, xoff, yoff);
-    if (!pWin->parent)
-    {
-	if (srcRgn)
-	    REGION_DESTROY(pScreen, srcRgn);
-	return Success;
-    }
-
-    /* May/30/2001:
-     * The shape.PS specs say if src is None, existing shape is to be
-     * removed (and so the op-code has no meaning in such removal);
-     * see shape.PS, page 3, ShapeMask.
-     */
-    if (srcRgn == NULL) {
-      if (*destRgnp != NULL) {
-	REGION_DESTROY (pScreen, *destRgnp);
-	*destRgnp = 0;
-	/* go on to remove shape and generate ShapeNotify */
-      }
-      else {
-	/* May/30/2001:
-	 * The target currently has no shape in effect, so nothing to
-	 * do here.  The specs say that ShapeNotify is generated whenever
-	 * the client region is "modified"; since no modification is done
-	 * here, we do not generate that event.  The specs does not say
-	 * "it is an error to request removal when there is no shape in
-	 * effect", so we return good status.
-	 */
-	return Success;
-      }
-    }
-    else switch (op) {
-    case ShapeSet:
-	if (*destRgnp)
-	    REGION_DESTROY(pScreen, *destRgnp);
-	*destRgnp = srcRgn;
-	srcRgn = 0;
-	break;
-    case ShapeUnion:
-	if (*destRgnp)
-	    REGION_UNION(pScreen, *destRgnp, *destRgnp, srcRgn);
-	break;
-    case ShapeIntersect:
-	if (*destRgnp)
-	    REGION_INTERSECT(pScreen, *destRgnp, *destRgnp, srcRgn);
-	else {
-	    *destRgnp = srcRgn;
-	    srcRgn = 0;
-	}
-	break;
-    case ShapeSubtract:
-	if (!*destRgnp)
-	    *destRgnp = (*create)(pWin);
-	REGION_SUBTRACT(pScreen, *destRgnp, *destRgnp, srcRgn);
-	break;
-    case ShapeInvert:
-	if (!*destRgnp)
-	    *destRgnp = REGION_CREATE(pScreen, (BoxPtr) 0, 0);
-	else
-	    REGION_SUBTRACT(pScreen, *destRgnp, srcRgn, *destRgnp);
-	break;
-    default:
-	client->errorValue = op;
-	return BadValue;
-    }
-    if (srcRgn)
-	REGION_DESTROY(pScreen, srcRgn);
-    (*pScreen->SetShape) (pWin);
-    SendShapeNotify (pWin, kind);
-    return Success;
-}
-
-RegionPtr
-CreateBoundingShape (WindowPtr pWin)
-{
-    BoxRec	extents;
-
-    extents.x1 = -wBorderWidth (pWin);
-    extents.y1 = -wBorderWidth (pWin);
-    extents.x2 = pWin->drawable.width + wBorderWidth (pWin);
-    extents.y2 = pWin->drawable.height + wBorderWidth (pWin);
-    return REGION_CREATE(pWin->drawable.pScreen, &extents, 1);
-}
-
-RegionPtr
-CreateClipShape (WindowPtr pWin)
-{
-    BoxRec	extents;
-
-    extents.x1 = 0;
-    extents.y1 = 0;
-    extents.x2 = pWin->drawable.width;
-    extents.y2 = pWin->drawable.height;
-    return REGION_CREATE(pWin->drawable.pScreen, &extents, 1);
-}
-
-static int
-ProcShapeQueryVersion (ClientPtr client)
-{
-    xShapeQueryVersionReply	rep;
-    int		n;
-
-    REQUEST_SIZE_MATCH (xShapeQueryVersionReq);
-    memset(&rep, 0, sizeof(xShapeQueryVersionReply));
-    rep.type = X_Reply;
-    rep.length = 0;
-    rep.sequenceNumber = client->sequence;
-    rep.majorVersion = SHAPE_MAJOR_VERSION;
-    rep.minorVersion = SHAPE_MINOR_VERSION;
-    if (client->swapped) {
-    	swaps(&rep.sequenceNumber, n);
-    	swapl(&rep.length, n);
-	swaps(&rep.majorVersion, n);
-	swaps(&rep.minorVersion, n);
-    }
-    WriteToClient(client, sizeof (xShapeQueryVersionReply), (char *)&rep);
-    return (client->noClientException);
-}
-
-/*****************
- * ProcShapeRectangles
- *
- *****************/
-
-static int
-ProcShapeRectangles (ClientPtr client)
-{
-    WindowPtr		pWin;
-    ScreenPtr		pScreen;
-    REQUEST(xShapeRectanglesReq);
-    xRectangle		*prects;
-    int		        nrects, ctype, rc;
-    RegionPtr		srcRgn;
-    RegionPtr		*destRgn;
-    CreateDftPtr	createDefault;
-
-    REQUEST_AT_LEAST_SIZE (xShapeRectanglesReq);
-    UpdateCurrentTime();
-    rc = dixLookupWindow(&pWin, stuff->dest, client, DixSetAttrAccess);
-    if (rc != Success)
-	return rc;
-    switch (stuff->destKind) {
-    case ShapeBounding:
-	createDefault = CreateBoundingShape;
-	break;
-    case ShapeClip:
-	createDefault = CreateClipShape;
-	break;
-    case ShapeInput:
-	createDefault = CreateBoundingShape;
-	break;
-    default:
-	client->errorValue = stuff->destKind;
-	return BadValue;
-    }
-    if ((stuff->ordering != Unsorted) && (stuff->ordering != YSorted) &&
-	(stuff->ordering != YXSorted) && (stuff->ordering != YXBanded))
-    {
-	client->errorValue = stuff->ordering;
-        return BadValue;
-    }
-    pScreen = pWin->drawable.pScreen;
-    nrects = ((stuff->length  << 2) - sizeof(xShapeRectanglesReq));
-    if (nrects & 4)
-	return BadLength;
-    nrects >>= 3;
-    prects = (xRectangle *) &stuff[1];
-    ctype = VerifyRectOrder(nrects, prects, (int)stuff->ordering);
-    if (ctype < 0)
-	return BadMatch;
-    srcRgn = RECTS_TO_REGION(pScreen, nrects, prects, ctype);
-
-    if (!pWin->optional)
-	MakeWindowOptional (pWin);
-    switch (stuff->destKind) {
-    case ShapeBounding:
-	destRgn = &pWin->optional->boundingShape;
-	break;
-    case ShapeClip:
-	destRgn = &pWin->optional->clipShape;
-	break;
-    case ShapeInput:
-	destRgn = &pWin->optional->inputShape;
-	break;
-    default:
-	return BadValue;
-    }
-
-    return RegionOperate (client, pWin, (int)stuff->destKind,
-			  destRgn, srcRgn, (int)stuff->op,
-			  stuff->xOff, stuff->yOff, createDefault);
-}
-
-#ifdef PANORAMIX
-static int
-ProcPanoramiXShapeRectangles(
-    ClientPtr client)
-{
-    REQUEST(xShapeRectanglesReq);
-    PanoramiXRes	*win;
-    int        		j, result;
-
-    REQUEST_AT_LEAST_SIZE (xShapeRectanglesReq);
-
-    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,
-				     client, DixWriteAccess);
-    if (result != Success)
-	return (result == BadValue) ? BadWindow : result;
-
-    FOR_NSCREENS(j) {
-	stuff->dest = win->info[j].id;
-	result = ProcShapeRectangles (client);
-	BREAK_IF(result != Success);
-    }
-    return (result);
-}
-#endif
-
-
-/**************
- * ProcShapeMask
- **************/
-
-
-static int
-ProcShapeMask (ClientPtr client)
-{
-    WindowPtr		pWin;
-    ScreenPtr		pScreen;
-    REQUEST(xShapeMaskReq);
-    RegionPtr		srcRgn;
-    RegionPtr		*destRgn;
-    PixmapPtr		pPixmap;
-    CreateDftPtr	createDefault;
-    int			rc;
-
-    REQUEST_SIZE_MATCH (xShapeMaskReq);
-    UpdateCurrentTime();
-    rc = dixLookupWindow(&pWin, stuff->dest, client, DixSetAttrAccess);
-    if (rc != Success)
-	return rc;
-    switch (stuff->destKind) {
-    case ShapeBounding:
-	createDefault = CreateBoundingShape;
-	break;
-    case ShapeClip:
-	createDefault = CreateClipShape;
-	break;
-    case ShapeInput:
-	createDefault = CreateBoundingShape;
-	break;
-    default:
-	client->errorValue = stuff->destKind;
-	return BadValue;
-    }
-    pScreen = pWin->drawable.pScreen;
-    if (stuff->src == None)
-	srcRgn = 0;
-    else {
-	rc = dixLookupResourceByType((pointer *)&pPixmap, stuff->src, RT_PIXMAP,
-			       client, DixReadAccess);
-        if (rc != Success)
-	    return (rc == BadValue) ? BadPixmap : rc;
-	if (pPixmap->drawable.pScreen != pScreen ||
-	    pPixmap->drawable.depth != 1)
-	    return BadMatch;
-	srcRgn = BITMAP_TO_REGION(pScreen, pPixmap);
-	if (!srcRgn)
-	    return BadAlloc;
-    }
-
-    if (!pWin->optional)
-	MakeWindowOptional (pWin);
-    switch (stuff->destKind) {
-    case ShapeBounding:
-	destRgn = &pWin->optional->boundingShape;
-	break;
-    case ShapeClip:
-	destRgn = &pWin->optional->clipShape;
-	break;
-    case ShapeInput:
-	destRgn = &pWin->optional->inputShape;
-	break;
-    default:
-	return BadValue;
-    }
-
-    return RegionOperate (client, pWin, (int)stuff->destKind,
-			  destRgn, srcRgn, (int)stuff->op,
-			  stuff->xOff, stuff->yOff, createDefault);
-}
-
-#ifdef PANORAMIX
-static int
-ProcPanoramiXShapeMask(
-    ClientPtr client)
-{
-    REQUEST(xShapeMaskReq);
-    PanoramiXRes	*win, *pmap;
-    int 		j, result;
-
-    REQUEST_SIZE_MATCH (xShapeMaskReq);
-
-    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,
-				     client, DixWriteAccess);
-    if (result != Success)
-	return (result == BadValue) ? BadWindow : result;
-
-    if(stuff->src != None) {
-	result = dixLookupResourceByType((pointer *)&pmap, stuff->src,
-					 XRT_PIXMAP, client, DixReadAccess);
-	if (result != Success)
-	    return (result == BadValue) ? BadPixmap : result;
-    } else
-	pmap = NULL;
-
-    FOR_NSCREENS(j) {
-	stuff->dest = win->info[j].id;
-	if(pmap)
-	    stuff->src  = pmap->info[j].id;
-	result = ProcShapeMask (client);
-	BREAK_IF(result != Success);
-    }
-    return (result);
-}
-#endif
-
-
-/************
- * ProcShapeCombine
- ************/
-
-static int
-ProcShapeCombine (ClientPtr client)
-{
-    WindowPtr		pSrcWin, pDestWin;
-    ScreenPtr		pScreen;
-    REQUEST(xShapeCombineReq);
-    RegionPtr		srcRgn;
-    RegionPtr		*destRgn;
-    CreateDftPtr	createDefault;
-    CreateDftPtr	createSrc;
-    RegionPtr		tmp;
-    int			rc;
-
-    REQUEST_SIZE_MATCH (xShapeCombineReq);
-    UpdateCurrentTime();
-    rc = dixLookupWindow(&pDestWin, stuff->dest, client, DixSetAttrAccess);
-    if (rc != Success)
-	return rc;
-    if (!pDestWin->optional)
-	MakeWindowOptional (pDestWin);
-    switch (stuff->destKind) {
-    case ShapeBounding:
-	createDefault = CreateBoundingShape;
-	break;
-    case ShapeClip:
-	createDefault = CreateClipShape;
-	break;
-    case ShapeInput:
-	createDefault = CreateBoundingShape;
-	break;
-    default:
-	client->errorValue = stuff->destKind;
-	return BadValue;
-    }
-    pScreen = pDestWin->drawable.pScreen;
-
-    rc = dixLookupWindow(&pSrcWin, stuff->src, client, DixGetAttrAccess);
-    if (rc != Success)
-	return rc;
-    switch (stuff->srcKind) {
-    case ShapeBounding:
-	srcRgn = wBoundingShape (pSrcWin);
-	createSrc = CreateBoundingShape;
-	break;
-    case ShapeClip:
-	srcRgn = wClipShape (pSrcWin);
-	createSrc = CreateClipShape;
-	break;
-    case ShapeInput:
-	srcRgn = wInputShape (pSrcWin);
-	createSrc = CreateBoundingShape;
-	break;
-    default:
-	client->errorValue = stuff->srcKind;
-	return BadValue;
-    }
-    if (pSrcWin->drawable.pScreen != pScreen)
-    {
-	return BadMatch;
-    }
-
-    if (srcRgn) {
-        tmp = REGION_CREATE(pScreen, (BoxPtr) 0, 0);
-        REGION_COPY(pScreen, tmp, srcRgn);
-        srcRgn = tmp;
-    } else
-	srcRgn = (*createSrc) (pSrcWin);
-
-    if (!pDestWin->optional)
-	MakeWindowOptional (pDestWin);
-    switch (stuff->destKind) {
-    case ShapeBounding:
-	destRgn = &pDestWin->optional->boundingShape;
-	break;
-    case ShapeClip:
-	destRgn = &pDestWin->optional->clipShape;
-	break;
-    case ShapeInput:
-	destRgn = &pDestWin->optional->inputShape;
-	break;
-    default:
-	return BadValue;
-    }
-
-    return RegionOperate (client, pDestWin, (int)stuff->destKind,
-			  destRgn, srcRgn, (int)stuff->op,
-			  stuff->xOff, stuff->yOff, createDefault);
-}
-
-
-#ifdef PANORAMIX
-static int
-ProcPanoramiXShapeCombine(
-    ClientPtr client)
-{
-    REQUEST(xShapeCombineReq);
-    PanoramiXRes	*win, *win2;
-    int 		j, result;
-
-    REQUEST_AT_LEAST_SIZE (xShapeCombineReq);
-
-    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,
-				     client, DixWriteAccess);
-    if (result != Success)
-	return (result == BadValue) ? BadWindow : result;
-
-    result = dixLookupResourceByType((pointer *)&win2, stuff->src, XRT_WINDOW,
-				     client, DixReadAccess);
-    if (result != Success)
-	return (result == BadValue) ? BadWindow : result;
-
-    FOR_NSCREENS(j) {
-	stuff->dest = win->info[j].id;
-	stuff->src =  win2->info[j].id;
-	result = ProcShapeCombine (client);
-	BREAK_IF(result != Success);
-    }
-    return (result);
-}
-#endif
-
-/*************
- * ProcShapeOffset
- *************/
-
-static int
-ProcShapeOffset (ClientPtr client)
-{
-    WindowPtr		pWin;
-    ScreenPtr		pScreen;
-    REQUEST(xShapeOffsetReq);
-    RegionPtr		srcRgn;
-    int			rc;
-
-    REQUEST_SIZE_MATCH (xShapeOffsetReq);
-    UpdateCurrentTime();
-    rc = dixLookupWindow(&pWin, stuff->dest, client, DixSetAttrAccess);
-    if (rc != Success)
-	return rc;
-    switch (stuff->destKind) {
-    case ShapeBounding:
-	srcRgn = wBoundingShape (pWin);
-	break;
-    case ShapeClip:
-	srcRgn = wClipShape(pWin);
-	break;
-    case ShapeInput:
-	srcRgn = wInputShape (pWin);
-	break;
-    default:
-	client->errorValue = stuff->destKind;
-	return BadValue;
-    }
-    pScreen = pWin->drawable.pScreen;
-    if (srcRgn)
-    {
-        REGION_TRANSLATE(pScreen, srcRgn, stuff->xOff, stuff->yOff);
-        (*pScreen->SetShape) (pWin);
-    }
-    SendShapeNotify (pWin, (int)stuff->destKind);
-    return Success;
-}
-
-
-#ifdef PANORAMIX
-static int
-ProcPanoramiXShapeOffset(
-    ClientPtr client)
-{
-    REQUEST(xShapeOffsetReq);
-    PanoramiXRes *win;
-    int j, result;
-
-    REQUEST_AT_LEAST_SIZE (xShapeOffsetReq);
-   
-    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,
-				     client, DixWriteAccess);
-    if (result != Success)
-	return (result == BadValue) ? BadWindow : result;
-
-    FOR_NSCREENS(j) {
-	stuff->dest = win->info[j].id;
-	result = ProcShapeOffset (client);
-	if(result != Success) break;
-    }
-    return (result);
-}
-#endif
-
-
-static int
-ProcShapeQueryExtents (ClientPtr client)
-{
-    REQUEST(xShapeQueryExtentsReq);
-    WindowPtr		pWin;
-    xShapeQueryExtentsReply	rep;
-    BoxRec		extents, *pExtents;
-    int	n, rc;
-    RegionPtr		region;
-
-    REQUEST_SIZE_MATCH (xShapeQueryExtentsReq);
-    rc = dixLookupWindow(&pWin, stuff->window, client, DixGetAttrAccess);
-    if (rc != Success)
-	return rc;
-    memset(&rep, 0, sizeof(xShapeQueryExtentsReply));
-    rep.type = X_Reply;
-    rep.length = 0;
-    rep.sequenceNumber = client->sequence;
-    rep.boundingShaped = (wBoundingShape(pWin) != 0);
-    rep.clipShaped = (wClipShape(pWin) != 0);
-    if ((region = wBoundingShape(pWin))) {
-     /* this is done in two steps because of a compiler bug on SunOS 4.1.3 */
-	pExtents = REGION_EXTENTS(pWin->drawable.pScreen, region);
-	extents = *pExtents;
-    } else {
-	extents.x1 = -wBorderWidth (pWin);
-	extents.y1 = -wBorderWidth (pWin);
-	extents.x2 = pWin->drawable.width + wBorderWidth (pWin);
-	extents.y2 = pWin->drawable.height + wBorderWidth (pWin);
-    }
-    rep.xBoundingShape = extents.x1;
-    rep.yBoundingShape = extents.y1;
-    rep.widthBoundingShape = extents.x2 - extents.x1;
-    rep.heightBoundingShape = extents.y2 - extents.y1;
-    if ((region = wClipShape(pWin))) {
-     /* this is done in two steps because of a compiler bug on SunOS 4.1.3 */
-	pExtents = REGION_EXTENTS(pWin->drawable.pScreen, region);
-	extents = *pExtents;
-    } else {
-	extents.x1 = 0;
-	extents.y1 = 0;
-	extents.x2 = pWin->drawable.width;
-	extents.y2 = pWin->drawable.height;
-    }
-    rep.xClipShape = extents.x1;
-    rep.yClipShape = extents.y1;
-    rep.widthClipShape = extents.x2 - extents.x1;
-    rep.heightClipShape = extents.y2 - extents.y1;
-    if (client->swapped) {
-    	swaps(&rep.sequenceNumber, n);
-    	swapl(&rep.length, n);
-	swaps(&rep.xBoundingShape, n);
-	swaps(&rep.yBoundingShape, n);
-	swaps(&rep.widthBoundingShape, n);
-	swaps(&rep.heightBoundingShape, n);
-	swaps(&rep.xClipShape, n);
-	swaps(&rep.yClipShape, n);
-	swaps(&rep.widthClipShape, n);
-	swaps(&rep.heightClipShape, n);
-    }
-    WriteToClient(client, sizeof (xShapeQueryExtentsReply), (char *)&rep);
-    return (client->noClientException);
-}
-
-/*ARGSUSED*/
-static int
-ShapeFreeClient (pointer data, XID id)
-{
-    ShapeEventPtr   pShapeEvent;
-    WindowPtr	    pWin;
-    ShapeEventPtr   *pHead, pCur, pPrev;
-    int rc;
-
-    pShapeEvent = (ShapeEventPtr) data;
-    pWin = pShapeEvent->window;
-    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,
-				 ShapeEventType, serverClient, DixReadAccess);
-    if (rc == Success) {
-	pPrev = 0;
-	for (pCur = *pHead; pCur && pCur != pShapeEvent; pCur=pCur->next)
-	    pPrev = pCur;
-	if (pCur)
-	{
-	    if (pPrev)
-	    	pPrev->next = pShapeEvent->next;
-	    else
-	    	*pHead = pShapeEvent->next;
-	}
-    }
-    xfree ((pointer) pShapeEvent);
-    return 1;
-}
-
-/*ARGSUSED*/
-static int
-ShapeFreeEvents (pointer data, XID id)
-{
-    ShapeEventPtr   *pHead, pCur, pNext;
-
-    pHead = (ShapeEventPtr *) data;
-    for (pCur = *pHead; pCur; pCur = pNext) {
-	pNext = pCur->next;
-	FreeResource (pCur->clientResource, ClientType);
-	xfree ((pointer) pCur);
-    }
-    xfree ((pointer) pHead);
-    return 1;
-}
-
-static int
-ProcShapeSelectInput (ClientPtr client)
-{
-    REQUEST(xShapeSelectInputReq);
-    WindowPtr		pWin;
-    ShapeEventPtr	pShapeEvent, pNewShapeEvent, *pHead;
-    XID			clientResource;
-    int			rc;
-
-    REQUEST_SIZE_MATCH (xShapeSelectInputReq);
-    rc = dixLookupWindow(&pWin, stuff->window, client, DixReceiveAccess);
-    if (rc != Success)
-	return rc;
-    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,
-				 ShapeEventType, client, DixWriteAccess);
-    if (rc != Success && rc != BadValue)
-	return rc;
-
-    switch (stuff->enable) {
-    case xTrue:
-	if (pHead) {
-
-	    /* check for existing entry. */
-	    for (pShapeEvent = *pHead;
-		 pShapeEvent;
- 		 pShapeEvent = pShapeEvent->next)
-	    {
-		if (pShapeEvent->client == client)
-		    return Success;
-	    }
-	}
-
-	/* build the entry */
-    	pNewShapeEvent = xalloc (sizeof (ShapeEventRec));
-    	if (!pNewShapeEvent)
-	    return BadAlloc;
-    	pNewShapeEvent->next = 0;
-    	pNewShapeEvent->client = client;
-    	pNewShapeEvent->window = pWin;
-    	/*
- 	 * add a resource that will be deleted when
-     	 * the client goes away
-     	 */
-   	clientResource = FakeClientID (client->index);
-    	pNewShapeEvent->clientResource = clientResource;
-    	if (!AddResource (clientResource, ClientType, (pointer)pNewShapeEvent))
-	    return BadAlloc;
-    	/*
-     	 * create a resource to contain a pointer to the list
-     	 * of clients selecting input.  This must be indirect as
-     	 * the list may be arbitrarily rearranged which cannot be
-     	 * done through the resource database.
-     	 */
-    	if (!pHead)
-    	{
-	    pHead = xalloc (sizeof (ShapeEventPtr));
-	    if (!pHead ||
-		!AddResource (pWin->drawable.id, ShapeEventType, (pointer)pHead))
-	    {
-	    	FreeResource (clientResource, RT_NONE);
-	    	return BadAlloc;
-	    }
-	    *pHead = 0;
-    	}
-    	pNewShapeEvent->next = *pHead;
-    	*pHead = pNewShapeEvent;
-	break;
-    case xFalse:
-	/* delete the interest */
-	if (pHead) {
-	    pNewShapeEvent = 0;
-	    for (pShapeEvent = *pHead; pShapeEvent; pShapeEvent = pShapeEvent->next) {
-		if (pShapeEvent->client == client)
-		    break;
-		pNewShapeEvent = pShapeEvent;
-	    }
-	    if (pShapeEvent) {
-		FreeResource (pShapeEvent->clientResource, ClientType);
-		if (pNewShapeEvent)
-		    pNewShapeEvent->next = pShapeEvent->next;
-		else
-		    *pHead = pShapeEvent->next;
-		xfree (pShapeEvent);
-	    }
-	}
-	break;
-    default:
-	client->errorValue = stuff->enable;
-	return BadValue;
-    }
-    return Success;
-}
-
-/*
- * deliver the event
- */
-
-void
-SendShapeNotify (WindowPtr pWin, int which)
-{
-    ShapeEventPtr	*pHead, pShapeEvent;
-    ClientPtr		client;
-    xShapeNotifyEvent	se;
-    BoxRec		extents;
-    RegionPtr		region;
-    BYTE		shaped;
-    int rc;
-
-    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,
-				 ShapeEventType, serverClient, DixReadAccess);
-    if (rc != Success)
-	return;
-    switch (which) {
-    case ShapeBounding:
-	region = wBoundingShape(pWin);
-	if (region) {
-	    extents = *REGION_EXTENTS(pWin->drawable.pScreen, region);
-	    shaped = xTrue;
-	} else {
-	    extents.x1 = -wBorderWidth (pWin);
-	    extents.y1 = -wBorderWidth (pWin);
-	    extents.x2 = pWin->drawable.width + wBorderWidth (pWin);
-	    extents.y2 = pWin->drawable.height + wBorderWidth (pWin);
-	    shaped = xFalse;
-	}
-	break;
-    case ShapeClip:
-	region = wClipShape(pWin);
-	if (region) {
-	    extents = *REGION_EXTENTS(pWin->drawable.pScreen, region);
-	    shaped = xTrue;
-	} else {
-	    extents.x1 = 0;
-	    extents.y1 = 0;
-	    extents.x2 = pWin->drawable.width;
-	    extents.y2 = pWin->drawable.height;
-	    shaped = xFalse;
-	}
-	break;
-    case ShapeInput:
-	region = wInputShape(pWin);
-	if (region) {
-	    extents = *REGION_EXTENTS(pWin->drawable.pScreen, region);
-	    shaped = xTrue;
-	} else {
-	    extents.x1 = -wBorderWidth (pWin);
-	    extents.y1 = -wBorderWidth (pWin);
-	    extents.x2 = pWin->drawable.width + wBorderWidth (pWin);
-	    extents.y2 = pWin->drawable.height + wBorderWidth (pWin);
-	    shaped = xFalse;
-	}
-	break;
-    default:
-	return;
-    }
-    for (pShapeEvent = *pHead; pShapeEvent; pShapeEvent = pShapeEvent->next) {
-	client = pShapeEvent->client;
-	if (client == serverClient || client->clientGone)
-	    continue;
-	se.type = ShapeNotify + ShapeEventBase;
-	se.kind = which;
-	se.window = pWin->drawable.id;
-	se.sequenceNumber = client->sequence;
-	se.x = extents.x1;
-	se.y = extents.y1;
-	se.width = extents.x2 - extents.x1;
-	se.height = extents.y2 - extents.y1;
-	se.time = currentTime.milliseconds;
-	se.shaped = shaped;
-	WriteEventsToClient (client, 1, (xEvent *) &se);
-    }
-}
-
-static int
-ProcShapeInputSelected (ClientPtr client)
-{
-    REQUEST(xShapeInputSelectedReq);
-    WindowPtr		pWin;
-    ShapeEventPtr	pShapeEvent, *pHead;
-    int			enabled, rc;
-    xShapeInputSelectedReply	rep;
-    int		n;
-
-    REQUEST_SIZE_MATCH (xShapeInputSelectedReq);
-    rc = dixLookupWindow(&pWin, stuff->window, client, DixGetAttrAccess);
-    if (rc != Success)
-	return rc;
-    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,
-				 ShapeEventType, client, DixReadAccess);
-    if (rc != Success && rc != BadValue)
-	return rc;
-    enabled = xFalse;
-    if (pHead) {
-    	for (pShapeEvent = *pHead;
-	     pShapeEvent;
-	     pShapeEvent = pShapeEvent->next)
-    	{
-	    if (pShapeEvent->client == client) {
-	    	enabled = xTrue;
-		break;
-	    }
-    	}
-    }
-    rep.type = X_Reply;
-    rep.length = 0;
-    rep.sequenceNumber = client->sequence;
-    rep.enabled = enabled;
-    if (client->swapped) {
-	swaps (&rep.sequenceNumber, n);
-	swapl (&rep.length, n);
-    }
-    WriteToClient (client, sizeof (xShapeInputSelectedReply), (char *) &rep);
-    return (client->noClientException);
-}
-
-static int
-ProcShapeGetRectangles (ClientPtr client)
-{
-    REQUEST(xShapeGetRectanglesReq);
-    WindowPtr			pWin;
-    xShapeGetRectanglesReply	rep;
-    xRectangle			*rects;
-    int				nrects, i, rc;
-    RegionPtr			region;
-    int		n;
-
-    REQUEST_SIZE_MATCH(xShapeGetRectanglesReq);
-    rc = dixLookupWindow(&pWin, stuff->window, client, DixGetAttrAccess);
-    if (rc != Success)
-	return rc;
-    switch (stuff->kind) {
-    case ShapeBounding:
-	region = wBoundingShape(pWin);
-	break;
-    case ShapeClip:
-	region = wClipShape(pWin);
-	break;
-    case ShapeInput:
-	region = wInputShape (pWin);
-	break;
-    default:
-	client->errorValue = stuff->kind;
-	return BadValue;
-    }
-    if (!region) {
-	nrects = 1;
-	rects = xalloc (sizeof (xRectangle));
-	if (!rects)
-	    return BadAlloc;
-	switch (stuff->kind) {
-	case ShapeBounding:
-	    rects->x = - (int) wBorderWidth (pWin);
-	    rects->y = - (int) wBorderWidth (pWin);
-	    rects->width = pWin->drawable.width + wBorderWidth (pWin);
-	    rects->height = pWin->drawable.height + wBorderWidth (pWin);
-	    break;
-	case ShapeClip:
-	    rects->x = 0;
-	    rects->y = 0;
-	    rects->width = pWin->drawable.width;
-	    rects->height = pWin->drawable.height;
-	    break;
-	case ShapeInput:
-	    rects->x = - (int) wBorderWidth (pWin);
-	    rects->y = - (int) wBorderWidth (pWin);
-	    rects->width = pWin->drawable.width + wBorderWidth (pWin);
-	    rects->height = pWin->drawable.height + wBorderWidth (pWin);
-	    break;
-	}
-    } else {
-	BoxPtr box;
-	nrects = REGION_NUM_RECTS(region);
-	box = REGION_RECTS(region);
-	rects = xalloc (nrects * sizeof (xRectangle));
-	if (!rects && nrects)
-	    return BadAlloc;
-	for (i = 0; i < nrects; i++, box++) {
-	    rects[i].x = box->x1;
-	    rects[i].y = box->y1;
-	    rects[i].width = box->x2 - box->x1;
-	    rects[i].height = box->y2 - box->y1;
-	}
-    }
-    rep.type = X_Reply;
-    rep.sequenceNumber = client->sequence;
-    rep.length = bytes_to_int32(nrects * sizeof (xRectangle));
-    rep.ordering = YXBanded;
-    rep.nrects = nrects;
-    if (client->swapped) {
-	swaps (&rep.sequenceNumber, n);
-	swapl (&rep.length, n);
-	swapl (&rep.nrects, n);
-	SwapShorts ((short *)rects, (unsigned long)nrects * 4);
-    }
-    WriteToClient (client, sizeof (rep), (char *) &rep);
-    WriteToClient (client, nrects * sizeof (xRectangle), (char *) rects);
-    xfree (rects);
-    return client->noClientException;
-}
-
-static int
-ProcShapeDispatch (ClientPtr client)
-{
-    REQUEST(xReq);
-    switch (stuff->data) {
-    case X_ShapeQueryVersion:
-	return ProcShapeQueryVersion (client);
-    case X_ShapeRectangles:
-#ifdef PANORAMIX
-        if ( !noPanoramiXExtension )
-	    return ProcPanoramiXShapeRectangles (client);
-        else 
-#endif
-	return ProcShapeRectangles (client);
-    case X_ShapeMask:
-#ifdef PANORAMIX
-        if ( !noPanoramiXExtension )
-           return ProcPanoramiXShapeMask (client);
-	else
-#endif
-	return ProcShapeMask (client);
-    case X_ShapeCombine:
-#ifdef PANORAMIX
-        if ( !noPanoramiXExtension )
-           return ProcPanoramiXShapeCombine (client);
-	else
-#endif
-	return ProcShapeCombine (client);
-    case X_ShapeOffset:
-#ifdef PANORAMIX
-        if ( !noPanoramiXExtension )
-           return ProcPanoramiXShapeOffset (client);
-	else
-#endif
-	return ProcShapeOffset (client);
-    case X_ShapeQueryExtents:
-	return ProcShapeQueryExtents (client);
-    case X_ShapeSelectInput:
-	return ProcShapeSelectInput (client);
-    case X_ShapeInputSelected:
-	return ProcShapeInputSelected (client);
-    case X_ShapeGetRectangles:
-	return ProcShapeGetRectangles (client);
-    default:
-	return BadRequest;
-    }
-}
-
-static void
-SShapeNotifyEvent(xShapeNotifyEvent *from, xShapeNotifyEvent *to)
-{
-    to->type = from->type;
-    to->kind = from->kind;
-    cpswapl (from->window, to->window);
-    cpswaps (from->sequenceNumber, to->sequenceNumber);
-    cpswaps (from->x, to->x);
-    cpswaps (from->y, to->y);
-    cpswaps (from->width, to->width);
-    cpswaps (from->height, to->height);
-    cpswapl (from->time, to->time);
-    to->shaped = from->shaped;
-}
-
-static int
-SProcShapeQueryVersion (ClientPtr client)
-{
-    int    n;
-    REQUEST (xShapeQueryVersionReq);
-
-    swaps (&stuff->length, n);
-    return ProcShapeQueryVersion (client);
-}
-
-static int
-SProcShapeRectangles (ClientPtr client)
-{
-    char   n;
-    REQUEST (xShapeRectanglesReq);
-
-    swaps (&stuff->length, n);
-    REQUEST_AT_LEAST_SIZE (xShapeRectanglesReq);
-    swapl (&stuff->dest, n);
-    swaps (&stuff->xOff, n);
-    swaps (&stuff->yOff, n);
-    SwapRestS(stuff);
-    return ProcShapeRectangles (client);
-}
-
-static int
-SProcShapeMask (ClientPtr client)
-{
-    char   n;
-    REQUEST (xShapeMaskReq);
-
-    swaps (&stuff->length, n);
-    REQUEST_SIZE_MATCH (xShapeMaskReq);
-    swapl (&stuff->dest, n);
-    swaps (&stuff->xOff, n);
-    swaps (&stuff->yOff, n);
-    swapl (&stuff->src, n);
-    return ProcShapeMask (client);
-}
-
-static int
-SProcShapeCombine (ClientPtr client)
-{
-    char   n;
-    REQUEST (xShapeCombineReq);
-
-    swaps (&stuff->length, n);
-    REQUEST_SIZE_MATCH (xShapeCombineReq);
-    swapl (&stuff->dest, n);
-    swaps (&stuff->xOff, n);
-    swaps (&stuff->yOff, n);
-    swapl (&stuff->src, n);
-    return ProcShapeCombine (client);
-}
-
-static int
-SProcShapeOffset (ClientPtr client)
-{
-    char   n;
-    REQUEST (xShapeOffsetReq);
-
-    swaps (&stuff->length, n);
-    REQUEST_SIZE_MATCH (xShapeOffsetReq);
-    swapl (&stuff->dest, n);
-    swaps (&stuff->xOff, n);
-    swaps (&stuff->yOff, n);
-    return ProcShapeOffset (client);
-}
-
-static int
-SProcShapeQueryExtents (ClientPtr client)
-{
-    char   n;
-    REQUEST (xShapeQueryExtentsReq);
-
-    swaps (&stuff->length, n);
-    REQUEST_SIZE_MATCH (xShapeQueryExtentsReq);
-    swapl (&stuff->window, n);
-    return ProcShapeQueryExtents (client);
-}
-
-static int
-SProcShapeSelectInput (ClientPtr client)
-{
-    char   n;
-    REQUEST (xShapeSelectInputReq);
-
-    swaps (&stuff->length, n);
-    REQUEST_SIZE_MATCH (xShapeSelectInputReq);
-    swapl (&stuff->window, n);
-    return ProcShapeSelectInput (client);
-}
-
-static int
-SProcShapeInputSelected (ClientPtr client)
-{
-    int    n;
-    REQUEST (xShapeInputSelectedReq);
-
-    swaps (&stuff->length, n);
-    REQUEST_SIZE_MATCH (xShapeInputSelectedReq);
-    swapl (&stuff->window, n);
-    return ProcShapeInputSelected (client);
-}
-
-static int
-SProcShapeGetRectangles (ClientPtr client)
-{
-    REQUEST(xShapeGetRectanglesReq);
-    char   n;
-
-    swaps (&stuff->length, n);
-    REQUEST_SIZE_MATCH(xShapeGetRectanglesReq);
-    swapl (&stuff->window, n);
-    return ProcShapeGetRectangles (client);
-}
-
-static int
-SProcShapeDispatch (ClientPtr client)
-{
-    REQUEST(xReq);
-    switch (stuff->data) {
-    case X_ShapeQueryVersion:
-	return SProcShapeQueryVersion (client);
-    case X_ShapeRectangles:
-	return SProcShapeRectangles (client);
-    case X_ShapeMask:
-	return SProcShapeMask (client);
-    case X_ShapeCombine:
-	return SProcShapeCombine (client);
-    case X_ShapeOffset:
-	return SProcShapeOffset (client);
-    case X_ShapeQueryExtents:
-	return SProcShapeQueryExtents (client);
-    case X_ShapeSelectInput:
-	return SProcShapeSelectInput (client);
-    case X_ShapeInputSelected:
-	return SProcShapeInputSelected (client);
-    case X_ShapeGetRectangles:
-	return SProcShapeGetRectangles (client);
-    default:
-	return BadRequest;
-    }
-}
+/************************************************************

+

+Copyright 1989, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+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

+OPEN GROUP 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 Open Group 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 Open Group.

+

+********************************************************/

+

+#ifdef HAVE_DIX_CONFIG_H

+#include <dix-config.h>

+#else

+#define SHAPE

+#endif

+

+#include <stdlib.h>

+

+#include <X11/X.h>

+#include <X11/Xproto.h>

+#include "misc.h"

+#include "os.h"

+#include "windowstr.h"

+#include "scrnintstr.h"

+#include "pixmapstr.h"

+#include "extnsionst.h"

+#include "dixstruct.h"

+#include "resource.h"

+#include "opaque.h"

+#include <X11/extensions/shapeproto.h>

+#include "regionstr.h"

+#include "gcstruct.h"

+#include "modinit.h"

+#include "protocol-versions.h"

+

+typedef	RegionPtr (*CreateDftPtr)(

+	WindowPtr /* pWin */

+	);

+

+static int ShapeFreeClient(

+	pointer /* data */,

+	XID /* id */

+	);

+static int ShapeFreeEvents(

+	pointer /* data */,

+	XID /* id */

+	);

+static void SShapeNotifyEvent(

+	xShapeNotifyEvent * /* from */,

+	xShapeNotifyEvent * /* to */

+	);

+

+/* SendShapeNotify, CreateBoundingShape and CreateClipShape are used

+ * externally by the Xfixes extension and are now defined in window.h

+ */

+

+static DISPATCH_PROC(ProcShapeCombine);

+static DISPATCH_PROC(ProcShapeDispatch);

+static DISPATCH_PROC(ProcShapeGetRectangles);

+static DISPATCH_PROC(ProcShapeInputSelected);

+static DISPATCH_PROC(ProcShapeMask);

+static DISPATCH_PROC(ProcShapeOffset);

+static DISPATCH_PROC(ProcShapeQueryExtents);

+static DISPATCH_PROC(ProcShapeQueryVersion);

+static DISPATCH_PROC(ProcShapeRectangles);

+static DISPATCH_PROC(ProcShapeSelectInput);

+static DISPATCH_PROC(SProcShapeCombine);

+static DISPATCH_PROC(SProcShapeDispatch);

+static DISPATCH_PROC(SProcShapeGetRectangles);

+static DISPATCH_PROC(SProcShapeInputSelected);

+static DISPATCH_PROC(SProcShapeMask);

+static DISPATCH_PROC(SProcShapeOffset);

+static DISPATCH_PROC(SProcShapeQueryExtents);

+static DISPATCH_PROC(SProcShapeQueryVersion);

+static DISPATCH_PROC(SProcShapeRectangles);

+static DISPATCH_PROC(SProcShapeSelectInput);

+

+#ifdef PANORAMIX

+#include "panoramiX.h"

+#include "panoramiXsrv.h"

+#endif

+

+static int ShapeEventBase = 0;

+static RESTYPE ClientType, ShapeEventType; /* resource types for event masks */

+

+/*

+ * each window has a list of clients requesting

+ * ShapeNotify events.  Each client has a resource

+ * for each window it selects ShapeNotify input for,

+ * this resource is used to delete the ShapeNotifyRec

+ * entry from the per-window queue.

+ */

+

+typedef struct _ShapeEvent *ShapeEventPtr;

+

+typedef struct _ShapeEvent {

+    ShapeEventPtr   next;

+    ClientPtr	    client;

+    WindowPtr	    window;

+    XID		    clientResource;

+} ShapeEventRec;

+

+/****************

+ * ShapeExtensionInit

+ *

+ * Called from InitExtensions in main() or from QueryExtension() if the

+ * extension is dynamically loaded.

+ *

+ ****************/

+

+void

+ShapeExtensionInit(void)

+{

+    ExtensionEntry *extEntry;

+

+    ClientType = CreateNewResourceType(ShapeFreeClient);

+    ShapeEventType = CreateNewResourceType(ShapeFreeEvents);

+    if (ClientType && ShapeEventType &&

+	(extEntry = AddExtension(SHAPENAME, ShapeNumberEvents, 0,

+				 ProcShapeDispatch, SProcShapeDispatch,

+				 NULL, StandardMinorOpcode)))

+    {

+	ShapeEventBase = extEntry->eventBase;

+	EventSwapVector[ShapeEventBase] = (EventSwapPtr) SShapeNotifyEvent;

+    }

+}

+

+static int

+RegionOperate (

+	ClientPtr client,

+	WindowPtr pWin,

+	int kind,

+	RegionPtr *destRgnp,

+	RegionPtr srcRgn,

+	int op,

+	int xoff, int yoff,

+	CreateDftPtr create)

+{

+    ScreenPtr	pScreen = pWin->drawable.pScreen;

+

+    if (srcRgn && (xoff || yoff))

+	REGION_TRANSLATE(pScreen, srcRgn, xoff, yoff);

+    if (!pWin->parent)

+    {

+	if (srcRgn)

+	    REGION_DESTROY(pScreen, srcRgn);

+	return Success;

+    }

+

+    /* May/30/2001:

+     * The shape.PS specs say if src is None, existing shape is to be

+     * removed (and so the op-code has no meaning in such removal);

+     * see shape.PS, page 3, ShapeMask.

+     */

+    if (srcRgn == NULL) {

+      if (*destRgnp != NULL) {

+	REGION_DESTROY (pScreen, *destRgnp);

+	*destRgnp = 0;

+	/* go on to remove shape and generate ShapeNotify */

+      }

+      else {

+	/* May/30/2001:

+	 * The target currently has no shape in effect, so nothing to

+	 * do here.  The specs say that ShapeNotify is generated whenever

+	 * the client region is "modified"; since no modification is done

+	 * here, we do not generate that event.  The specs does not say

+	 * "it is an error to request removal when there is no shape in

+	 * effect", so we return good status.

+	 */

+	return Success;

+      }

+    }

+    else switch (op) {

+    case ShapeSet:

+	if (*destRgnp)

+	    REGION_DESTROY(pScreen, *destRgnp);

+	*destRgnp = srcRgn;

+	srcRgn = 0;

+	break;

+    case ShapeUnion:

+	if (*destRgnp)

+	    REGION_UNION(pScreen, *destRgnp, *destRgnp, srcRgn);

+	break;

+    case ShapeIntersect:

+	if (*destRgnp)

+	    REGION_INTERSECT(pScreen, *destRgnp, *destRgnp, srcRgn);

+	else {

+	    *destRgnp = srcRgn;

+	    srcRgn = 0;

+	}

+	break;

+    case ShapeSubtract:

+	if (!*destRgnp)

+	    *destRgnp = (*create)(pWin);

+	REGION_SUBTRACT(pScreen, *destRgnp, *destRgnp, srcRgn);

+	break;

+    case ShapeInvert:

+	if (!*destRgnp)

+	    *destRgnp = REGION_CREATE(pScreen, (BoxPtr) 0, 0);

+	else

+	    REGION_SUBTRACT(pScreen, *destRgnp, srcRgn, *destRgnp);

+	break;

+    default:

+	client->errorValue = op;

+	return BadValue;

+    }

+    if (srcRgn)

+	REGION_DESTROY(pScreen, srcRgn);

+    (*pScreen->SetShape) (pWin);

+    SendShapeNotify (pWin, kind);

+    return Success;

+}

+

+RegionPtr

+CreateBoundingShape (WindowPtr pWin)

+{

+    BoxRec	extents;

+

+    extents.x1 = -wBorderWidth (pWin);

+    extents.y1 = -wBorderWidth (pWin);

+    extents.x2 = pWin->drawable.width + wBorderWidth (pWin);

+    extents.y2 = pWin->drawable.height + wBorderWidth (pWin);

+    return REGION_CREATE(pWin->drawable.pScreen, &extents, 1);

+}

+

+RegionPtr

+CreateClipShape (WindowPtr pWin)

+{

+    BoxRec	extents;

+

+    extents.x1 = 0;

+    extents.y1 = 0;

+    extents.x2 = pWin->drawable.width;

+    extents.y2 = pWin->drawable.height;

+    return REGION_CREATE(pWin->drawable.pScreen, &extents, 1);

+}

+

+static int

+ProcShapeQueryVersion (ClientPtr client)

+{

+    xShapeQueryVersionReply	rep;

+    int		n;

+

+    REQUEST_SIZE_MATCH (xShapeQueryVersionReq);

+    memset(&rep, 0, sizeof(xShapeQueryVersionReply));

+    rep.type = X_Reply;

+    rep.length = 0;

+    rep.sequenceNumber = client->sequence;

+    rep.majorVersion = SERVER_SHAPE_MAJOR_VERSION;

+    rep.minorVersion = SERVER_SHAPE_MINOR_VERSION;

+    if (client->swapped) {

+    	swaps(&rep.sequenceNumber, n);

+    	swapl(&rep.length, n);

+	swaps(&rep.majorVersion, n);

+	swaps(&rep.minorVersion, n);

+    }

+    WriteToClient(client, sizeof (xShapeQueryVersionReply), (char *)&rep);

+    return (client->noClientException);

+}

+

+/*****************

+ * ProcShapeRectangles

+ *

+ *****************/

+

+static int

+ProcShapeRectangles (ClientPtr client)

+{

+    WindowPtr		pWin;

+    ScreenPtr		pScreen;

+    REQUEST(xShapeRectanglesReq);

+    xRectangle		*prects;

+    int		        nrects, ctype, rc;

+    RegionPtr		srcRgn;

+    RegionPtr		*destRgn;

+    CreateDftPtr	createDefault;

+

+    REQUEST_AT_LEAST_SIZE (xShapeRectanglesReq);

+    UpdateCurrentTime();

+    rc = dixLookupWindow(&pWin, stuff->dest, client, DixSetAttrAccess);

+    if (rc != Success)

+	return rc;

+    switch (stuff->destKind) {

+    case ShapeBounding:

+	createDefault = CreateBoundingShape;

+	break;

+    case ShapeClip:

+	createDefault = CreateClipShape;

+	break;

+    case ShapeInput:

+	createDefault = CreateBoundingShape;

+	break;

+    default:

+	client->errorValue = stuff->destKind;

+	return BadValue;

+    }

+    if ((stuff->ordering != Unsorted) && (stuff->ordering != YSorted) &&

+	(stuff->ordering != YXSorted) && (stuff->ordering != YXBanded))

+    {

+	client->errorValue = stuff->ordering;

+        return BadValue;

+    }

+    pScreen = pWin->drawable.pScreen;

+    nrects = ((stuff->length  << 2) - sizeof(xShapeRectanglesReq));

+    if (nrects & 4)

+	return BadLength;

+    nrects >>= 3;

+    prects = (xRectangle *) &stuff[1];

+    ctype = VerifyRectOrder(nrects, prects, (int)stuff->ordering);

+    if (ctype < 0)

+	return BadMatch;

+    srcRgn = RECTS_TO_REGION(pScreen, nrects, prects, ctype);

+

+    if (!pWin->optional)

+	MakeWindowOptional (pWin);

+    switch (stuff->destKind) {

+    case ShapeBounding:

+	destRgn = &pWin->optional->boundingShape;

+	break;

+    case ShapeClip:

+	destRgn = &pWin->optional->clipShape;

+	break;

+    case ShapeInput:

+	destRgn = &pWin->optional->inputShape;

+	break;

+    default:

+	return BadValue;

+    }

+

+    return RegionOperate (client, pWin, (int)stuff->destKind,

+			  destRgn, srcRgn, (int)stuff->op,

+			  stuff->xOff, stuff->yOff, createDefault);

+}

+

+#ifdef PANORAMIX

+static int

+ProcPanoramiXShapeRectangles(

+    ClientPtr client)

+{

+    REQUEST(xShapeRectanglesReq);

+    PanoramiXRes	*win;

+    int        		j, result;

+

+    REQUEST_AT_LEAST_SIZE (xShapeRectanglesReq);

+

+    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,

+				     client, DixWriteAccess);

+    if (result != Success)

+	return (result == BadValue) ? BadWindow : result;

+

+    FOR_NSCREENS(j) {

+	stuff->dest = win->info[j].id;

+	result = ProcShapeRectangles (client);

+	BREAK_IF(result != Success);

+    }

+    return (result);

+}

+#endif

+

+

+/**************

+ * ProcShapeMask

+ **************/

+

+

+static int

+ProcShapeMask (ClientPtr client)

+{

+    WindowPtr		pWin;

+    ScreenPtr		pScreen;

+    REQUEST(xShapeMaskReq);

+    RegionPtr		srcRgn;

+    RegionPtr		*destRgn;

+    PixmapPtr		pPixmap;

+    CreateDftPtr	createDefault;

+    int			rc;

+

+    REQUEST_SIZE_MATCH (xShapeMaskReq);

+    UpdateCurrentTime();

+    rc = dixLookupWindow(&pWin, stuff->dest, client, DixSetAttrAccess);

+    if (rc != Success)

+	return rc;

+    switch (stuff->destKind) {

+    case ShapeBounding:

+	createDefault = CreateBoundingShape;

+	break;

+    case ShapeClip:

+	createDefault = CreateClipShape;

+	break;

+    case ShapeInput:

+	createDefault = CreateBoundingShape;

+	break;

+    default:

+	client->errorValue = stuff->destKind;

+	return BadValue;

+    }

+    pScreen = pWin->drawable.pScreen;

+    if (stuff->src == None)

+	srcRgn = 0;

+    else {

+	rc = dixLookupResourceByType((pointer *)&pPixmap, stuff->src, RT_PIXMAP,

+			       client, DixReadAccess);

+        if (rc != Success)

+	    return (rc == BadValue) ? BadPixmap : rc;

+	if (pPixmap->drawable.pScreen != pScreen ||

+	    pPixmap->drawable.depth != 1)

+	    return BadMatch;

+	srcRgn = BITMAP_TO_REGION(pScreen, pPixmap);

+	if (!srcRgn)

+	    return BadAlloc;

+    }

+

+    if (!pWin->optional)

+	MakeWindowOptional (pWin);

+    switch (stuff->destKind) {

+    case ShapeBounding:

+	destRgn = &pWin->optional->boundingShape;

+	break;

+    case ShapeClip:

+	destRgn = &pWin->optional->clipShape;

+	break;

+    case ShapeInput:

+	destRgn = &pWin->optional->inputShape;

+	break;

+    default:

+	return BadValue;

+    }

+

+    return RegionOperate (client, pWin, (int)stuff->destKind,

+			  destRgn, srcRgn, (int)stuff->op,

+			  stuff->xOff, stuff->yOff, createDefault);

+}

+

+#ifdef PANORAMIX

+static int

+ProcPanoramiXShapeMask(

+    ClientPtr client)

+{

+    REQUEST(xShapeMaskReq);

+    PanoramiXRes	*win, *pmap;

+    int 		j, result;

+

+    REQUEST_SIZE_MATCH (xShapeMaskReq);

+

+    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,

+				     client, DixWriteAccess);

+    if (result != Success)

+	return (result == BadValue) ? BadWindow : result;

+

+    if(stuff->src != None) {

+	result = dixLookupResourceByType((pointer *)&pmap, stuff->src,

+					 XRT_PIXMAP, client, DixReadAccess);

+	if (result != Success)

+	    return (result == BadValue) ? BadPixmap : result;

+    } else

+	pmap = NULL;

+

+    FOR_NSCREENS(j) {

+	stuff->dest = win->info[j].id;

+	if(pmap)

+	    stuff->src  = pmap->info[j].id;

+	result = ProcShapeMask (client);

+	BREAK_IF(result != Success);

+    }

+    return (result);

+}

+#endif

+

+

+/************

+ * ProcShapeCombine

+ ************/

+

+static int

+ProcShapeCombine (ClientPtr client)

+{

+    WindowPtr		pSrcWin, pDestWin;

+    ScreenPtr		pScreen;

+    REQUEST(xShapeCombineReq);

+    RegionPtr		srcRgn;

+    RegionPtr		*destRgn;

+    CreateDftPtr	createDefault;

+    CreateDftPtr	createSrc;

+    RegionPtr		tmp;

+    int			rc;

+

+    REQUEST_SIZE_MATCH (xShapeCombineReq);

+    UpdateCurrentTime();

+    rc = dixLookupWindow(&pDestWin, stuff->dest, client, DixSetAttrAccess);

+    if (rc != Success)

+	return rc;

+    if (!pDestWin->optional)

+	MakeWindowOptional (pDestWin);

+    switch (stuff->destKind) {

+    case ShapeBounding:

+	createDefault = CreateBoundingShape;

+	break;

+    case ShapeClip:

+	createDefault = CreateClipShape;

+	break;

+    case ShapeInput:

+	createDefault = CreateBoundingShape;

+	break;

+    default:

+	client->errorValue = stuff->destKind;

+	return BadValue;

+    }

+    pScreen = pDestWin->drawable.pScreen;

+

+    rc = dixLookupWindow(&pSrcWin, stuff->src, client, DixGetAttrAccess);

+    if (rc != Success)

+	return rc;

+    switch (stuff->srcKind) {

+    case ShapeBounding:

+	srcRgn = wBoundingShape (pSrcWin);

+	createSrc = CreateBoundingShape;

+	break;

+    case ShapeClip:

+	srcRgn = wClipShape (pSrcWin);

+	createSrc = CreateClipShape;

+	break;

+    case ShapeInput:

+	srcRgn = wInputShape (pSrcWin);

+	createSrc = CreateBoundingShape;

+	break;

+    default:

+	client->errorValue = stuff->srcKind;

+	return BadValue;

+    }

+    if (pSrcWin->drawable.pScreen != pScreen)

+    {

+	return BadMatch;

+    }

+

+    if (srcRgn) {

+        tmp = REGION_CREATE(pScreen, (BoxPtr) 0, 0);

+        REGION_COPY(pScreen, tmp, srcRgn);

+        srcRgn = tmp;

+    } else

+	srcRgn = (*createSrc) (pSrcWin);

+

+    if (!pDestWin->optional)

+	MakeWindowOptional (pDestWin);

+    switch (stuff->destKind) {

+    case ShapeBounding:

+	destRgn = &pDestWin->optional->boundingShape;

+	break;

+    case ShapeClip:

+	destRgn = &pDestWin->optional->clipShape;

+	break;

+    case ShapeInput:

+	destRgn = &pDestWin->optional->inputShape;

+	break;

+    default:

+	return BadValue;

+    }

+

+    return RegionOperate (client, pDestWin, (int)stuff->destKind,

+			  destRgn, srcRgn, (int)stuff->op,

+			  stuff->xOff, stuff->yOff, createDefault);

+}

+

+

+#ifdef PANORAMIX

+static int

+ProcPanoramiXShapeCombine(

+    ClientPtr client)

+{

+    REQUEST(xShapeCombineReq);

+    PanoramiXRes	*win, *win2;

+    int 		j, result;

+

+    REQUEST_AT_LEAST_SIZE (xShapeCombineReq);

+

+    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,

+				     client, DixWriteAccess);

+    if (result != Success)

+	return (result == BadValue) ? BadWindow : result;

+

+    result = dixLookupResourceByType((pointer *)&win2, stuff->src, XRT_WINDOW,

+				     client, DixReadAccess);

+    if (result != Success)

+	return (result == BadValue) ? BadWindow : result;

+

+    FOR_NSCREENS(j) {

+	stuff->dest = win->info[j].id;

+	stuff->src =  win2->info[j].id;

+	result = ProcShapeCombine (client);

+	BREAK_IF(result != Success);

+    }

+    return (result);

+}

+#endif

+

+/*************

+ * ProcShapeOffset

+ *************/

+

+static int

+ProcShapeOffset (ClientPtr client)

+{

+    WindowPtr		pWin;

+    ScreenPtr		pScreen;

+    REQUEST(xShapeOffsetReq);

+    RegionPtr		srcRgn;

+    int			rc;

+

+    REQUEST_SIZE_MATCH (xShapeOffsetReq);

+    UpdateCurrentTime();

+    rc = dixLookupWindow(&pWin, stuff->dest, client, DixSetAttrAccess);

+    if (rc != Success)

+	return rc;

+    switch (stuff->destKind) {

+    case ShapeBounding:

+	srcRgn = wBoundingShape (pWin);

+	break;

+    case ShapeClip:

+	srcRgn = wClipShape(pWin);

+	break;

+    case ShapeInput:

+	srcRgn = wInputShape (pWin);

+	break;

+    default:

+	client->errorValue = stuff->destKind;

+	return BadValue;

+    }

+    pScreen = pWin->drawable.pScreen;

+    if (srcRgn)

+    {

+        REGION_TRANSLATE(pScreen, srcRgn, stuff->xOff, stuff->yOff);

+        (*pScreen->SetShape) (pWin);

+    }

+    SendShapeNotify (pWin, (int)stuff->destKind);

+    return Success;

+}

+

+

+#ifdef PANORAMIX

+static int

+ProcPanoramiXShapeOffset(

+    ClientPtr client)

+{

+    REQUEST(xShapeOffsetReq);

+    PanoramiXRes *win;

+    int j, result;

+

+    REQUEST_AT_LEAST_SIZE (xShapeOffsetReq);

+   

+    result = dixLookupResourceByType((pointer *)&win, stuff->dest, XRT_WINDOW,

+				     client, DixWriteAccess);

+    if (result != Success)

+	return (result == BadValue) ? BadWindow : result;

+

+    FOR_NSCREENS(j) {

+	stuff->dest = win->info[j].id;

+	result = ProcShapeOffset (client);

+	if(result != Success) break;

+    }

+    return (result);

+}

+#endif

+

+

+static int

+ProcShapeQueryExtents (ClientPtr client)

+{

+    REQUEST(xShapeQueryExtentsReq);

+    WindowPtr		pWin;

+    xShapeQueryExtentsReply	rep;

+    BoxRec		extents, *pExtents;

+    int	n, rc;

+    RegionPtr		region;

+

+    REQUEST_SIZE_MATCH (xShapeQueryExtentsReq);

+    rc = dixLookupWindow(&pWin, stuff->window, client, DixGetAttrAccess);

+    if (rc != Success)

+	return rc;

+    memset(&rep, 0, sizeof(xShapeQueryExtentsReply));

+    rep.type = X_Reply;

+    rep.length = 0;

+    rep.sequenceNumber = client->sequence;

+    rep.boundingShaped = (wBoundingShape(pWin) != 0);

+    rep.clipShaped = (wClipShape(pWin) != 0);

+    if ((region = wBoundingShape(pWin))) {

+     /* this is done in two steps because of a compiler bug on SunOS 4.1.3 */

+	pExtents = REGION_EXTENTS(pWin->drawable.pScreen, region);

+	extents = *pExtents;

+    } else {

+	extents.x1 = -wBorderWidth (pWin);

+	extents.y1 = -wBorderWidth (pWin);

+	extents.x2 = pWin->drawable.width + wBorderWidth (pWin);

+	extents.y2 = pWin->drawable.height + wBorderWidth (pWin);

+    }

+    rep.xBoundingShape = extents.x1;

+    rep.yBoundingShape = extents.y1;

+    rep.widthBoundingShape = extents.x2 - extents.x1;

+    rep.heightBoundingShape = extents.y2 - extents.y1;

+    if ((region = wClipShape(pWin))) {

+     /* this is done in two steps because of a compiler bug on SunOS 4.1.3 */

+	pExtents = REGION_EXTENTS(pWin->drawable.pScreen, region);

+	extents = *pExtents;

+    } else {

+	extents.x1 = 0;

+	extents.y1 = 0;

+	extents.x2 = pWin->drawable.width;

+	extents.y2 = pWin->drawable.height;

+    }

+    rep.xClipShape = extents.x1;

+    rep.yClipShape = extents.y1;

+    rep.widthClipShape = extents.x2 - extents.x1;

+    rep.heightClipShape = extents.y2 - extents.y1;

+    if (client->swapped) {

+    	swaps(&rep.sequenceNumber, n);

+    	swapl(&rep.length, n);

+	swaps(&rep.xBoundingShape, n);

+	swaps(&rep.yBoundingShape, n);

+	swaps(&rep.widthBoundingShape, n);

+	swaps(&rep.heightBoundingShape, n);

+	swaps(&rep.xClipShape, n);

+	swaps(&rep.yClipShape, n);

+	swaps(&rep.widthClipShape, n);

+	swaps(&rep.heightClipShape, n);

+    }

+    WriteToClient(client, sizeof (xShapeQueryExtentsReply), (char *)&rep);

+    return (client->noClientException);

+}

+

+/*ARGSUSED*/

+static int

+ShapeFreeClient (pointer data, XID id)

+{

+    ShapeEventPtr   pShapeEvent;

+    WindowPtr	    pWin;

+    ShapeEventPtr   *pHead, pCur, pPrev;

+    int rc;

+

+    pShapeEvent = (ShapeEventPtr) data;

+    pWin = pShapeEvent->window;

+    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,

+				 ShapeEventType, serverClient, DixReadAccess);

+    if (rc == Success) {

+	pPrev = 0;

+	for (pCur = *pHead; pCur && pCur != pShapeEvent; pCur=pCur->next)

+	    pPrev = pCur;

+	if (pCur)

+	{

+	    if (pPrev)

+	    	pPrev->next = pShapeEvent->next;

+	    else

+	    	*pHead = pShapeEvent->next;

+	}

+    }

+    xfree ((pointer) pShapeEvent);

+    return 1;

+}

+

+/*ARGSUSED*/

+static int

+ShapeFreeEvents (pointer data, XID id)

+{

+    ShapeEventPtr   *pHead, pCur, pNext;

+

+    pHead = (ShapeEventPtr *) data;

+    for (pCur = *pHead; pCur; pCur = pNext) {

+	pNext = pCur->next;

+	FreeResource (pCur->clientResource, ClientType);

+	xfree ((pointer) pCur);

+    }

+    xfree ((pointer) pHead);

+    return 1;

+}

+

+static int

+ProcShapeSelectInput (ClientPtr client)

+{

+    REQUEST(xShapeSelectInputReq);

+    WindowPtr		pWin;

+    ShapeEventPtr	pShapeEvent, pNewShapeEvent, *pHead;

+    XID			clientResource;

+    int			rc;

+

+    REQUEST_SIZE_MATCH (xShapeSelectInputReq);

+    rc = dixLookupWindow(&pWin, stuff->window, client, DixReceiveAccess);

+    if (rc != Success)

+	return rc;

+    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,

+				 ShapeEventType, client, DixWriteAccess);

+    if (rc != Success && rc != BadValue)

+	return rc;

+

+    switch (stuff->enable) {

+    case xTrue:

+	if (pHead) {

+

+	    /* check for existing entry. */

+	    for (pShapeEvent = *pHead;

+		 pShapeEvent;

+ 		 pShapeEvent = pShapeEvent->next)

+	    {

+		if (pShapeEvent->client == client)

+		    return Success;

+	    }

+	}

+

+	/* build the entry */

+    	pNewShapeEvent = xalloc (sizeof (ShapeEventRec));

+    	if (!pNewShapeEvent)

+	    return BadAlloc;

+    	pNewShapeEvent->next = 0;

+    	pNewShapeEvent->client = client;

+    	pNewShapeEvent->window = pWin;

+    	/*

+ 	 * add a resource that will be deleted when

+     	 * the client goes away

+     	 */

+   	clientResource = FakeClientID (client->index);

+    	pNewShapeEvent->clientResource = clientResource;

+    	if (!AddResource (clientResource, ClientType, (pointer)pNewShapeEvent))

+	    return BadAlloc;

+    	/*

+     	 * create a resource to contain a pointer to the list

+     	 * of clients selecting input.  This must be indirect as

+     	 * the list may be arbitrarily rearranged which cannot be

+     	 * done through the resource database.

+     	 */

+    	if (!pHead)

+    	{

+	    pHead = xalloc (sizeof (ShapeEventPtr));

+	    if (!pHead ||

+		!AddResource (pWin->drawable.id, ShapeEventType, (pointer)pHead))

+	    {

+	    	FreeResource (clientResource, RT_NONE);

+	    	return BadAlloc;

+	    }

+	    *pHead = 0;

+    	}

+    	pNewShapeEvent->next = *pHead;

+    	*pHead = pNewShapeEvent;

+	break;

+    case xFalse:

+	/* delete the interest */

+	if (pHead) {

+	    pNewShapeEvent = 0;

+	    for (pShapeEvent = *pHead; pShapeEvent; pShapeEvent = pShapeEvent->next) {

+		if (pShapeEvent->client == client)

+		    break;

+		pNewShapeEvent = pShapeEvent;

+	    }

+	    if (pShapeEvent) {

+		FreeResource (pShapeEvent->clientResource, ClientType);

+		if (pNewShapeEvent)

+		    pNewShapeEvent->next = pShapeEvent->next;

+		else

+		    *pHead = pShapeEvent->next;

+		xfree (pShapeEvent);

+	    }

+	}

+	break;

+    default:

+	client->errorValue = stuff->enable;

+	return BadValue;

+    }

+    return Success;

+}

+

+/*

+ * deliver the event

+ */

+

+void

+SendShapeNotify (WindowPtr pWin, int which)

+{

+    ShapeEventPtr	*pHead, pShapeEvent;

+    ClientPtr		client;

+    xShapeNotifyEvent	se;

+    BoxRec		extents;

+    RegionPtr		region;

+    BYTE		shaped;

+    int rc;

+

+    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,

+				 ShapeEventType, serverClient, DixReadAccess);

+    if (rc != Success)

+	return;

+    switch (which) {

+    case ShapeBounding:

+	region = wBoundingShape(pWin);

+	if (region) {

+	    extents = *REGION_EXTENTS(pWin->drawable.pScreen, region);

+	    shaped = xTrue;

+	} else {

+	    extents.x1 = -wBorderWidth (pWin);

+	    extents.y1 = -wBorderWidth (pWin);

+	    extents.x2 = pWin->drawable.width + wBorderWidth (pWin);

+	    extents.y2 = pWin->drawable.height + wBorderWidth (pWin);

+	    shaped = xFalse;

+	}

+	break;

+    case ShapeClip:

+	region = wClipShape(pWin);

+	if (region) {

+	    extents = *REGION_EXTENTS(pWin->drawable.pScreen, region);

+	    shaped = xTrue;

+	} else {

+	    extents.x1 = 0;

+	    extents.y1 = 0;

+	    extents.x2 = pWin->drawable.width;

+	    extents.y2 = pWin->drawable.height;

+	    shaped = xFalse;

+	}

+	break;

+    case ShapeInput:

+	region = wInputShape(pWin);

+	if (region) {

+	    extents = *REGION_EXTENTS(pWin->drawable.pScreen, region);

+	    shaped = xTrue;

+	} else {

+	    extents.x1 = -wBorderWidth (pWin);

+	    extents.y1 = -wBorderWidth (pWin);

+	    extents.x2 = pWin->drawable.width + wBorderWidth (pWin);

+	    extents.y2 = pWin->drawable.height + wBorderWidth (pWin);

+	    shaped = xFalse;

+	}

+	break;

+    default:

+	return;

+    }

+    for (pShapeEvent = *pHead; pShapeEvent; pShapeEvent = pShapeEvent->next) {

+	client = pShapeEvent->client;

+	if (client == serverClient || client->clientGone)

+	    continue;

+	se.type = ShapeNotify + ShapeEventBase;

+	se.kind = which;

+	se.window = pWin->drawable.id;

+	se.sequenceNumber = client->sequence;

+	se.x = extents.x1;

+	se.y = extents.y1;

+	se.width = extents.x2 - extents.x1;

+	se.height = extents.y2 - extents.y1;

+	se.time = currentTime.milliseconds;

+	se.shaped = shaped;

+	WriteEventsToClient (client, 1, (xEvent *) &se);

+    }

+}

+

+static int

+ProcShapeInputSelected (ClientPtr client)

+{

+    REQUEST(xShapeInputSelectedReq);

+    WindowPtr		pWin;

+    ShapeEventPtr	pShapeEvent, *pHead;

+    int			enabled, rc;

+    xShapeInputSelectedReply	rep;

+    int		n;

+

+    REQUEST_SIZE_MATCH (xShapeInputSelectedReq);

+    rc = dixLookupWindow(&pWin, stuff->window, client, DixGetAttrAccess);

+    if (rc != Success)

+	return rc;

+    rc = dixLookupResourceByType((pointer *)&pHead, pWin->drawable.id,

+				 ShapeEventType, client, DixReadAccess);

+    if (rc != Success && rc != BadValue)

+	return rc;

+    enabled = xFalse;

+    if (pHead) {

+    	for (pShapeEvent = *pHead;

+	     pShapeEvent;

+	     pShapeEvent = pShapeEvent->next)

+    	{

+	    if (pShapeEvent->client == client) {

+	    	enabled = xTrue;

+		break;

+	    }

+    	}

+    }

+    rep.type = X_Reply;

+    rep.length = 0;

+    rep.sequenceNumber = client->sequence;

+    rep.enabled = enabled;

+    if (client->swapped) {

+	swaps (&rep.sequenceNumber, n);

+	swapl (&rep.length, n);

+    }

+    WriteToClient (client, sizeof (xShapeInputSelectedReply), (char *) &rep);

+    return (client->noClientException);

+}

+

+static int

+ProcShapeGetRectangles (ClientPtr client)

+{

+    REQUEST(xShapeGetRectanglesReq);

+    WindowPtr			pWin;

+    xShapeGetRectanglesReply	rep;

+    xRectangle			*rects;

+    int				nrects, i, rc;

+    RegionPtr			region;

+    int		n;

+

+    REQUEST_SIZE_MATCH(xShapeGetRectanglesReq);

+    rc = dixLookupWindow(&pWin, stuff->window, client, DixGetAttrAccess);

+    if (rc != Success)

+	return rc;

+    switch (stuff->kind) {

+    case ShapeBounding:

+	region = wBoundingShape(pWin);

+	break;

+    case ShapeClip:

+	region = wClipShape(pWin);

+	break;

+    case ShapeInput:

+	region = wInputShape (pWin);

+	break;

+    default:

+	client->errorValue = stuff->kind;

+	return BadValue;

+    }

+    if (!region) {

+	nrects = 1;

+	rects = xalloc (sizeof (xRectangle));

+	if (!rects)

+	    return BadAlloc;

+	switch (stuff->kind) {

+	case ShapeBounding:

+	    rects->x = - (int) wBorderWidth (pWin);

+	    rects->y = - (int) wBorderWidth (pWin);

+	    rects->width = pWin->drawable.width + wBorderWidth (pWin);

+	    rects->height = pWin->drawable.height + wBorderWidth (pWin);

+	    break;

+	case ShapeClip:

+	    rects->x = 0;

+	    rects->y = 0;

+	    rects->width = pWin->drawable.width;

+	    rects->height = pWin->drawable.height;

+	    break;

+	case ShapeInput:

+	    rects->x = - (int) wBorderWidth (pWin);

+	    rects->y = - (int) wBorderWidth (pWin);

+	    rects->width = pWin->drawable.width + wBorderWidth (pWin);

+	    rects->height = pWin->drawable.height + wBorderWidth (pWin);

+	    break;

+	}

+    } else {

+	BoxPtr box;

+	nrects = REGION_NUM_RECTS(region);

+	box = REGION_RECTS(region);

+	rects = xalloc (nrects * sizeof (xRectangle));

+	if (!rects && nrects)

+	    return BadAlloc;

+	for (i = 0; i < nrects; i++, box++) {

+	    rects[i].x = box->x1;

+	    rects[i].y = box->y1;

+	    rects[i].width = box->x2 - box->x1;

+	    rects[i].height = box->y2 - box->y1;

+	}

+    }

+    rep.type = X_Reply;

+    rep.sequenceNumber = client->sequence;

+    rep.length = bytes_to_int32(nrects * sizeof (xRectangle));

+    rep.ordering = YXBanded;

+    rep.nrects = nrects;

+    if (client->swapped) {

+	swaps (&rep.sequenceNumber, n);

+	swapl (&rep.length, n);

+	swapl (&rep.nrects, n);

+	SwapShorts ((short *)rects, (unsigned long)nrects * 4);

+    }

+    WriteToClient (client, sizeof (rep), (char *) &rep);

+    WriteToClient (client, nrects * sizeof (xRectangle), (char *) rects);

+    xfree (rects);

+    return client->noClientException;

+}

+

+static int

+ProcShapeDispatch (ClientPtr client)

+{

+    REQUEST(xReq);

+    switch (stuff->data) {

+    case X_ShapeQueryVersion:

+	return ProcShapeQueryVersion (client);

+    case X_ShapeRectangles:

+#ifdef PANORAMIX

+        if ( !noPanoramiXExtension )

+	    return ProcPanoramiXShapeRectangles (client);

+        else 

+#endif

+	return ProcShapeRectangles (client);

+    case X_ShapeMask:

+#ifdef PANORAMIX

+        if ( !noPanoramiXExtension )

+           return ProcPanoramiXShapeMask (client);

+	else

+#endif

+	return ProcShapeMask (client);

+    case X_ShapeCombine:

+#ifdef PANORAMIX

+        if ( !noPanoramiXExtension )

+           return ProcPanoramiXShapeCombine (client);

+	else

+#endif

+	return ProcShapeCombine (client);

+    case X_ShapeOffset:

+#ifdef PANORAMIX

+        if ( !noPanoramiXExtension )

+           return ProcPanoramiXShapeOffset (client);

+	else

+#endif

+	return ProcShapeOffset (client);

+    case X_ShapeQueryExtents:

+	return ProcShapeQueryExtents (client);

+    case X_ShapeSelectInput:

+	return ProcShapeSelectInput (client);

+    case X_ShapeInputSelected:

+	return ProcShapeInputSelected (client);

+    case X_ShapeGetRectangles:

+	return ProcShapeGetRectangles (client);

+    default:

+	return BadRequest;

+    }

+}

+

+static void

+SShapeNotifyEvent(xShapeNotifyEvent *from, xShapeNotifyEvent *to)

+{

+    to->type = from->type;

+    to->kind = from->kind;

+    cpswapl (from->window, to->window);

+    cpswaps (from->sequenceNumber, to->sequenceNumber);

+    cpswaps (from->x, to->x);

+    cpswaps (from->y, to->y);

+    cpswaps (from->width, to->width);

+    cpswaps (from->height, to->height);

+    cpswapl (from->time, to->time);

+    to->shaped = from->shaped;

+}

+

+static int

+SProcShapeQueryVersion (ClientPtr client)

+{

+    int    n;

+    REQUEST (xShapeQueryVersionReq);

+

+    swaps (&stuff->length, n);

+    return ProcShapeQueryVersion (client);

+}

+

+static int

+SProcShapeRectangles (ClientPtr client)

+{

+    char   n;

+    REQUEST (xShapeRectanglesReq);

+

+    swaps (&stuff->length, n);

+    REQUEST_AT_LEAST_SIZE (xShapeRectanglesReq);

+    swapl (&stuff->dest, n);

+    swaps (&stuff->xOff, n);

+    swaps (&stuff->yOff, n);

+    SwapRestS(stuff);

+    return ProcShapeRectangles (client);

+}

+

+static int

+SProcShapeMask (ClientPtr client)

+{

+    char   n;

+    REQUEST (xShapeMaskReq);

+

+    swaps (&stuff->length, n);

+    REQUEST_SIZE_MATCH (xShapeMaskReq);

+    swapl (&stuff->dest, n);

+    swaps (&stuff->xOff, n);

+    swaps (&stuff->yOff, n);

+    swapl (&stuff->src, n);

+    return ProcShapeMask (client);

+}

+

+static int

+SProcShapeCombine (ClientPtr client)

+{

+    char   n;

+    REQUEST (xShapeCombineReq);

+

+    swaps (&stuff->length, n);

+    REQUEST_SIZE_MATCH (xShapeCombineReq);

+    swapl (&stuff->dest, n);

+    swaps (&stuff->xOff, n);

+    swaps (&stuff->yOff, n);

+    swapl (&stuff->src, n);

+    return ProcShapeCombine (client);

+}

+

+static int

+SProcShapeOffset (ClientPtr client)

+{

+    char   n;

+    REQUEST (xShapeOffsetReq);

+

+    swaps (&stuff->length, n);

+    REQUEST_SIZE_MATCH (xShapeOffsetReq);

+    swapl (&stuff->dest, n);

+    swaps (&stuff->xOff, n);

+    swaps (&stuff->yOff, n);

+    return ProcShapeOffset (client);

+}

+

+static int

+SProcShapeQueryExtents (ClientPtr client)

+{

+    char   n;

+    REQUEST (xShapeQueryExtentsReq);

+

+    swaps (&stuff->length, n);

+    REQUEST_SIZE_MATCH (xShapeQueryExtentsReq);

+    swapl (&stuff->window, n);

+    return ProcShapeQueryExtents (client);

+}

+

+static int

+SProcShapeSelectInput (ClientPtr client)

+{

+    char   n;

+    REQUEST (xShapeSelectInputReq);

+

+    swaps (&stuff->length, n);

+    REQUEST_SIZE_MATCH (xShapeSelectInputReq);

+    swapl (&stuff->window, n);

+    return ProcShapeSelectInput (client);

+}

+

+static int

+SProcShapeInputSelected (ClientPtr client)

+{

+    int    n;

+    REQUEST (xShapeInputSelectedReq);

+

+    swaps (&stuff->length, n);

+    REQUEST_SIZE_MATCH (xShapeInputSelectedReq);

+    swapl (&stuff->window, n);

+    return ProcShapeInputSelected (client);

+}

+

+static int

+SProcShapeGetRectangles (ClientPtr client)

+{

+    REQUEST(xShapeGetRectanglesReq);

+    char   n;

+

+    swaps (&stuff->length, n);

+    REQUEST_SIZE_MATCH(xShapeGetRectanglesReq);

+    swapl (&stuff->window, n);

+    return ProcShapeGetRectangles (client);

+}

+

+static int

+SProcShapeDispatch (ClientPtr client)

+{

+    REQUEST(xReq);

+    switch (stuff->data) {

+    case X_ShapeQueryVersion:

+	return SProcShapeQueryVersion (client);

+    case X_ShapeRectangles:

+	return SProcShapeRectangles (client);

+    case X_ShapeMask:

+	return SProcShapeMask (client);

+    case X_ShapeCombine:

+	return SProcShapeCombine (client);

+    case X_ShapeOffset:

+	return SProcShapeOffset (client);

+    case X_ShapeQueryExtents:

+	return SProcShapeQueryExtents (client);

+    case X_ShapeSelectInput:

+	return SProcShapeSelectInput (client);

+    case X_ShapeInputSelected:

+	return SProcShapeInputSelected (client);

+    case X_ShapeGetRectangles:

+	return SProcShapeGetRectangles (client);

+    default:

+	return BadRequest;

+    }

+}