#define PERL_NO_GET_CONTEXT
#ifdef __cplusplus
extern "C" {
#endif
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>
#ifdef __cplusplus
}
#endif

#include <X11/X.h>

static int
not_here(s)
char *s;
{
    croak("%s not implemented on this architecture", s);
    return -1;
}

static double
constant(name, arg)
char *name;
int arg;
{
    errno = 0;
    switch (*name) {
    case 'A':
	if (strEQ(name, "Above"))
#ifdef Above
	    return Above;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AllTemporary"))
#ifdef AllTemporary
	    return AllTemporary;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AllocAll"))
#ifdef AllocAll
	    return AllocAll;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AllocNone"))
#ifdef AllocNone
	    return AllocNone;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AllowExposures"))
#ifdef AllowExposures
	    return AllowExposures;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AlreadyGrabbed"))
#ifdef AlreadyGrabbed
	    return AlreadyGrabbed;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Always"))
#ifdef Always
	    return Always;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AnyButton"))
#ifdef AnyButton
	    return AnyButton;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AnyKey"))
#ifdef AnyKey
	    return AnyKey;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AnyModifier"))
#ifdef AnyModifier
	    return AnyModifier;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AnyPropertyType"))
#ifdef AnyPropertyType
	    return AnyPropertyType;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ArcChord"))
#ifdef ArcChord
	    return ArcChord;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ArcPieSlice"))
#ifdef ArcPieSlice
	    return ArcPieSlice;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AsyncBoth"))
#ifdef AsyncBoth
	    return AsyncBoth;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AsyncKeyboard"))
#ifdef AsyncKeyboard
	    return AsyncKeyboard;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AsyncPointer"))
#ifdef AsyncPointer
	    return AsyncPointer;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AutoRepeatModeDefault"))
#ifdef AutoRepeatModeDefault
	    return AutoRepeatModeDefault;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AutoRepeatModeOff"))
#ifdef AutoRepeatModeOff
	    return AutoRepeatModeOff;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AutoRepeatModeOn"))
#ifdef AutoRepeatModeOn
	    return AutoRepeatModeOn;
#else
	    goto not_there;
#endif
	break;
    case 'B':
	if (strEQ(name, "BadAccess"))
#ifdef BadAccess
	    return BadAccess;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadAlloc"))
#ifdef BadAlloc
	    return BadAlloc;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadAtom"))
#ifdef BadAtom
	    return BadAtom;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadColor"))
#ifdef BadColor
	    return BadColor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadCursor"))
#ifdef BadCursor
	    return BadCursor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadDrawable"))
#ifdef BadDrawable
	    return BadDrawable;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadFont"))
#ifdef BadFont
	    return BadFont;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadGC"))
#ifdef BadGC
	    return BadGC;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadIDChoice"))
#ifdef BadIDChoice
	    return BadIDChoice;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadImplementation"))
#ifdef BadImplementation
	    return BadImplementation;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadLength"))
#ifdef BadLength
	    return BadLength;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadMatch"))
#ifdef BadMatch
	    return BadMatch;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadName"))
#ifdef BadName
	    return BadName;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadPixmap"))
#ifdef BadPixmap
	    return BadPixmap;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadRequest"))
#ifdef BadRequest
	    return BadRequest;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadValue"))
#ifdef BadValue
	    return BadValue;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BadWindow"))
#ifdef BadWindow
	    return BadWindow;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Below"))
#ifdef Below
	    return Below;
#else
	    goto not_there;
#endif
	if (strEQ(name, "BottomIf"))
#ifdef BottomIf
	    return BottomIf;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button1"))
#ifdef Button1
	    return Button1;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button1Mask"))
#ifdef Button1Mask
	    return Button1Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button1MotionMask"))
#ifdef Button1MotionMask
	    return Button1MotionMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button2"))
#ifdef Button2
	    return Button2;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button2Mask"))
#ifdef Button2Mask
	    return Button2Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button2MotionMask"))
#ifdef Button2MotionMask
	    return Button2MotionMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button3"))
#ifdef Button3
	    return Button3;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button3Mask"))
#ifdef Button3Mask
	    return Button3Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button3MotionMask"))
#ifdef Button3MotionMask
	    return Button3MotionMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button4"))
#ifdef Button4
	    return Button4;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button4Mask"))
#ifdef Button4Mask
	    return Button4Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button4MotionMask"))
#ifdef Button4MotionMask
	    return Button4MotionMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button5"))
#ifdef Button5
	    return Button5;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button5Mask"))
#ifdef Button5Mask
	    return Button5Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Button5MotionMask"))
#ifdef Button5MotionMask
	    return Button5MotionMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ButtonMotionMask"))
#ifdef ButtonMotionMask
	    return ButtonMotionMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ButtonPress"))
#ifdef ButtonPress
	    return ButtonPress;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ButtonPressMask"))
#ifdef ButtonPressMask
	    return ButtonPressMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ButtonRelease"))
#ifdef ButtonRelease
	    return ButtonRelease;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ButtonReleaseMask"))
#ifdef ButtonReleaseMask
	    return ButtonReleaseMask;
#else
	    goto not_there;
#endif
	break;
    case 'C':
	if (strEQ(name, "CWBackPixel"))
#ifdef CWBackPixel
	    return CWBackPixel;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBackPixmap"))
#ifdef CWBackPixmap
	    return CWBackPixmap;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBackingPixel"))
#ifdef CWBackingPixel
	    return CWBackingPixel;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBackingPlanes"))
#ifdef CWBackingPlanes
	    return CWBackingPlanes;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBackingStore"))
#ifdef CWBackingStore
	    return CWBackingStore;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBitGravity"))
#ifdef CWBitGravity
	    return CWBitGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBorderPixel"))
#ifdef CWBorderPixel
	    return CWBorderPixel;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBorderPixmap"))
#ifdef CWBorderPixmap
	    return CWBorderPixmap;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWBorderWidth"))
#ifdef CWBorderWidth
	    return CWBorderWidth;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWColormap"))
#ifdef CWColormap
	    return CWColormap;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWCursor"))
#ifdef CWCursor
	    return CWCursor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWDontPropagate"))
#ifdef CWDontPropagate
	    return CWDontPropagate;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWEventMask"))
#ifdef CWEventMask
	    return CWEventMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWHeight"))
#ifdef CWHeight
	    return CWHeight;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWOverrideRedirect"))
#ifdef CWOverrideRedirect
	    return CWOverrideRedirect;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWSaveUnder"))
#ifdef CWSaveUnder
	    return CWSaveUnder;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWSibling"))
#ifdef CWSibling
	    return CWSibling;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWStackMode"))
#ifdef CWStackMode
	    return CWStackMode;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWWidth"))
#ifdef CWWidth
	    return CWWidth;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWWinGravity"))
#ifdef CWWinGravity
	    return CWWinGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWX"))
#ifdef CWX
	    return CWX;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CWY"))
#ifdef CWY
	    return CWY;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CapButt"))
#ifdef CapButt
	    return CapButt;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CapNotLast"))
#ifdef CapNotLast
	    return CapNotLast;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CapProjecting"))
#ifdef CapProjecting
	    return CapProjecting;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CapRound"))
#ifdef CapRound
	    return CapRound;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CenterGravity"))
#ifdef CenterGravity
	    return CenterGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CirculateNotify"))
#ifdef CirculateNotify
	    return CirculateNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CirculateRequest"))
#ifdef CirculateRequest
	    return CirculateRequest;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ClientMessage"))
#ifdef ClientMessage
	    return ClientMessage;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ClipByChildren"))
#ifdef ClipByChildren
	    return ClipByChildren;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ColormapChangeMask"))
#ifdef ColormapChangeMask
	    return ColormapChangeMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ColormapInstalled"))
#ifdef ColormapInstalled
	    return ColormapInstalled;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ColormapNotify"))
#ifdef ColormapNotify
	    return ColormapNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ColormapUninstalled"))
#ifdef ColormapUninstalled
	    return ColormapUninstalled;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Complex"))
#ifdef Complex
	    return Complex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ConfigureNotify"))
#ifdef ConfigureNotify
	    return ConfigureNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ConfigureRequest"))
#ifdef ConfigureRequest
	    return ConfigureRequest;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ControlMapIndex"))
#ifdef ControlMapIndex
	    return ControlMapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ControlMask"))
#ifdef ControlMask
	    return ControlMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Convex"))
#ifdef Convex
	    return Convex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CoordModeOrigin"))
#ifdef CoordModeOrigin
	    return CoordModeOrigin;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CoordModePrevious"))
#ifdef CoordModePrevious
	    return CoordModePrevious;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CopyFromParent"))
#ifdef CopyFromParent
	    return CopyFromParent;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CreateNotify"))
#ifdef CreateNotify
	    return CreateNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CurrentTime"))
#ifdef CurrentTime
	    return CurrentTime;
#else
	    goto not_there;
#endif
	if (strEQ(name, "CursorShape"))
#ifdef CursorShape
	    return CursorShape;
#else
	    goto not_there;
#endif
	break;
    case 'D':
	if (strEQ(name, "DefaultBlanking"))
#ifdef DefaultBlanking
	    return DefaultBlanking;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DefaultExposures"))
#ifdef DefaultExposures
	    return DefaultExposures;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DestroyAll"))
#ifdef DestroyAll
	    return DestroyAll;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DestroyNotify"))
#ifdef DestroyNotify
	    return DestroyNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DirectColor"))
#ifdef DirectColor
	    return DirectColor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DisableAccess"))
#ifdef DisableAccess
	    return DisableAccess;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DisableScreenInterval"))
#ifdef DisableScreenInterval
	    return DisableScreenInterval;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DisableScreenSaver"))
#ifdef DisableScreenSaver
	    return DisableScreenSaver;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DoBlue"))
#ifdef DoBlue
	    return DoBlue;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DoGreen"))
#ifdef DoGreen
	    return DoGreen;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DoRed"))
#ifdef DoRed
	    return DoRed;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DontAllowExposures"))
#ifdef DontAllowExposures
	    return DontAllowExposures;
#else
	    goto not_there;
#endif
	if (strEQ(name, "DontPreferBlanking"))
#ifdef DontPreferBlanking
	    return DontPreferBlanking;
#else
	    goto not_there;
#endif
	break;
    case 'E':
	if (strEQ(name, "EastGravity"))
#ifdef EastGravity
	    return EastGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "EnableAccess"))
#ifdef EnableAccess
	    return EnableAccess;
#else
	    goto not_there;
#endif
	if (strEQ(name, "EnterNotify"))
#ifdef EnterNotify
	    return EnterNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "EnterWindowMask"))
#ifdef EnterWindowMask
	    return EnterWindowMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "EvenOddRule"))
#ifdef EvenOddRule
	    return EvenOddRule;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Expose"))
#ifdef Expose
	    return Expose;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ExposureMask"))
#ifdef ExposureMask
	    return ExposureMask;
#else
	    goto not_there;
#endif
	break;
    case 'F':
	if (strEQ(name, "FamilyChaos"))
#ifdef FamilyChaos
	    return FamilyChaos;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FamilyDECnet"))
#ifdef FamilyDECnet
	    return FamilyDECnet;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FamilyInternet"))
#ifdef FamilyInternet
	    return FamilyInternet;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FillOpaqueStippled"))
#ifdef FillOpaqueStippled
	    return FillOpaqueStippled;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FillSolid"))
#ifdef FillSolid
	    return FillSolid;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FillStippled"))
#ifdef FillStippled
	    return FillStippled;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FillTiled"))
#ifdef FillTiled
	    return FillTiled;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FirstExtensionError"))
#ifdef FirstExtensionError
	    return FirstExtensionError;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FocusChangeMask"))
#ifdef FocusChangeMask
	    return FocusChangeMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FocusIn"))
#ifdef FocusIn
	    return FocusIn;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FocusOut"))
#ifdef FocusOut
	    return FocusOut;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FontChange"))
#ifdef FontChange
	    return FontChange;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FontLeftToRight"))
#ifdef FontLeftToRight
	    return FontLeftToRight;
#else
	    goto not_there;
#endif
	if (strEQ(name, "FontRightToLeft"))
#ifdef FontRightToLeft
	    return FontRightToLeft;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ForgetGravity"))
#ifdef ForgetGravity
	    return ForgetGravity;
#else
	    goto not_there;
#endif
	break;
    case 'G':
	if (strEQ(name, "GCArcMode"))
#ifdef GCArcMode
	    return GCArcMode;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCBackground"))
#ifdef GCBackground
	    return GCBackground;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCCapStyle"))
#ifdef GCCapStyle
	    return GCCapStyle;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCClipMask"))
#ifdef GCClipMask
	    return GCClipMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCClipXOrigin"))
#ifdef GCClipXOrigin
	    return GCClipXOrigin;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCClipYOrigin"))
#ifdef GCClipYOrigin
	    return GCClipYOrigin;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCDashList"))
#ifdef GCDashList
	    return GCDashList;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCDashOffset"))
#ifdef GCDashOffset
	    return GCDashOffset;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCFillRule"))
#ifdef GCFillRule
	    return GCFillRule;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCFillStyle"))
#ifdef GCFillStyle
	    return GCFillStyle;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCFont"))
#ifdef GCFont
	    return GCFont;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCForeground"))
#ifdef GCForeground
	    return GCForeground;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCFunction"))
#ifdef GCFunction
	    return GCFunction;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCGraphicsExposures"))
#ifdef GCGraphicsExposures
	    return GCGraphicsExposures;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCJoinStyle"))
#ifdef GCJoinStyle
	    return GCJoinStyle;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCLastBit"))
#ifdef GCLastBit
	    return GCLastBit;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCLineStyle"))
#ifdef GCLineStyle
	    return GCLineStyle;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCLineWidth"))
#ifdef GCLineWidth
	    return GCLineWidth;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCPlaneMask"))
#ifdef GCPlaneMask
	    return GCPlaneMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCStipple"))
#ifdef GCStipple
	    return GCStipple;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCSubwindowMode"))
#ifdef GCSubwindowMode
	    return GCSubwindowMode;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCTile"))
#ifdef GCTile
	    return GCTile;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCTileStipXOrigin"))
#ifdef GCTileStipXOrigin
	    return GCTileStipXOrigin;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GCTileStipYOrigin"))
#ifdef GCTileStipYOrigin
	    return GCTileStipYOrigin;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXand"))
#ifdef GXand
	    return GXand;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXandInverted"))
#ifdef GXandInverted
	    return GXandInverted;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXandReverse"))
#ifdef GXandReverse
	    return GXandReverse;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXclear"))
#ifdef GXclear
	    return GXclear;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXcopy"))
#ifdef GXcopy
	    return GXcopy;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXcopyInverted"))
#ifdef GXcopyInverted
	    return GXcopyInverted;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXequiv"))
#ifdef GXequiv
	    return GXequiv;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXinvert"))
#ifdef GXinvert
	    return GXinvert;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXnand"))
#ifdef GXnand
	    return GXnand;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXnoop"))
#ifdef GXnoop
	    return GXnoop;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXnor"))
#ifdef GXnor
	    return GXnor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXor"))
#ifdef GXor
	    return GXor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXorInverted"))
#ifdef GXorInverted
	    return GXorInverted;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXorReverse"))
#ifdef GXorReverse
	    return GXorReverse;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXset"))
#ifdef GXset
	    return GXset;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GXxor"))
#ifdef GXxor
	    return GXxor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GrabFrozen"))
#ifdef GrabFrozen
	    return GrabFrozen;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GrabInvalidTime"))
#ifdef GrabInvalidTime
	    return GrabInvalidTime;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GrabModeAsync"))
#ifdef GrabModeAsync
	    return GrabModeAsync;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GrabModeSync"))
#ifdef GrabModeSync
	    return GrabModeSync;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GrabNotViewable"))
#ifdef GrabNotViewable
	    return GrabNotViewable;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GrabSuccess"))
#ifdef GrabSuccess
	    return GrabSuccess;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GraphicsExpose"))
#ifdef GraphicsExpose
	    return GraphicsExpose;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GravityNotify"))
#ifdef GravityNotify
	    return GravityNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "GrayScale"))
#ifdef GrayScale
	    return GrayScale;
#else
	    goto not_there;
#endif
	break;
    case 'H':
	if (strEQ(name, "HostDelete"))
#ifdef HostDelete
	    return HostDelete;
#else
	    goto not_there;
#endif
	if (strEQ(name, "HostInsert"))
#ifdef HostInsert
	    return HostInsert;
#else
	    goto not_there;
#endif
	break;
    case 'I':
	if (strEQ(name, "IncludeInferiors"))
#ifdef IncludeInferiors
	    return IncludeInferiors;
#else
	    goto not_there;
#endif
	if (strEQ(name, "InputFocus"))
#ifdef InputFocus
	    return InputFocus;
#else
	    goto not_there;
#endif
	if (strEQ(name, "InputOnly"))
#ifdef InputOnly
	    return InputOnly;
#else
	    goto not_there;
#endif
	if (strEQ(name, "InputOutput"))
#ifdef InputOutput
	    return InputOutput;
#else
	    goto not_there;
#endif
	if (strEQ(name, "IsUnmapped"))
#ifdef IsUnmapped
	    return IsUnmapped;
#else
	    goto not_there;
#endif
	if (strEQ(name, "IsUnviewable"))
#ifdef IsUnviewable
	    return IsUnviewable;
#else
	    goto not_there;
#endif
	if (strEQ(name, "IsViewable"))
#ifdef IsViewable
	    return IsViewable;
#else
	    goto not_there;
#endif
	break;
    case 'J':
	if (strEQ(name, "JoinBevel"))
#ifdef JoinBevel
	    return JoinBevel;
#else
	    goto not_there;
#endif
	if (strEQ(name, "JoinMiter"))
#ifdef JoinMiter
	    return JoinMiter;
#else
	    goto not_there;
#endif
	if (strEQ(name, "JoinRound"))
#ifdef JoinRound
	    return JoinRound;
#else
	    goto not_there;
#endif
	break;
    case 'K':
	if (strEQ(name, "KBAutoRepeatMode"))
#ifdef KBAutoRepeatMode
	    return KBAutoRepeatMode;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KBBellDuration"))
#ifdef KBBellDuration
	    return KBBellDuration;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KBBellPercent"))
#ifdef KBBellPercent
	    return KBBellPercent;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KBBellPitch"))
#ifdef KBBellPitch
	    return KBBellPitch;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KBKey"))
#ifdef KBKey
	    return KBKey;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KBKeyClickPercent"))
#ifdef KBKeyClickPercent
	    return KBKeyClickPercent;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KBLed"))
#ifdef KBLed
	    return KBLed;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KBLedMode"))
#ifdef KBLedMode
	    return KBLedMode;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KeyPress"))
#ifdef KeyPress
	    return KeyPress;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KeyPressMask"))
#ifdef KeyPressMask
	    return KeyPressMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KeyRelease"))
#ifdef KeyRelease
	    return KeyRelease;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KeyReleaseMask"))
#ifdef KeyReleaseMask
	    return KeyReleaseMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KeymapNotify"))
#ifdef KeymapNotify
	    return KeymapNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "KeymapStateMask"))
#ifdef KeymapStateMask
	    return KeymapStateMask;
#else
	    goto not_there;
#endif
	break;
    case 'L':
	if (strEQ(name, "LASTEvent"))
#ifdef LASTEvent
	    return LASTEvent;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LSBFirst"))
#ifdef LSBFirst
	    return LSBFirst;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LastExtensionError"))
#ifdef LastExtensionError
	    return LastExtensionError;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LeaveNotify"))
#ifdef LeaveNotify
	    return LeaveNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LeaveWindowMask"))
#ifdef LeaveWindowMask
	    return LeaveWindowMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LedModeOff"))
#ifdef LedModeOff
	    return LedModeOff;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LedModeOn"))
#ifdef LedModeOn
	    return LedModeOn;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LineDoubleDash"))
#ifdef LineDoubleDash
	    return LineDoubleDash;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LineOnOffDash"))
#ifdef LineOnOffDash
	    return LineOnOffDash;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LineSolid"))
#ifdef LineSolid
	    return LineSolid;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LockMapIndex"))
#ifdef LockMapIndex
	    return LockMapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LockMask"))
#ifdef LockMask
	    return LockMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "LowerHighest"))
#ifdef LowerHighest
	    return LowerHighest;
#else
	    goto not_there;
#endif
	break;
    case 'M':
	if (strEQ(name, "MSBFirst"))
#ifdef MSBFirst
	    return MSBFirst;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MapNotify"))
#ifdef MapNotify
	    return MapNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MapRequest"))
#ifdef MapRequest
	    return MapRequest;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MappingBusy"))
#ifdef MappingBusy
	    return MappingBusy;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MappingFailed"))
#ifdef MappingFailed
	    return MappingFailed;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MappingKeyboard"))
#ifdef MappingKeyboard
	    return MappingKeyboard;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MappingModifier"))
#ifdef MappingModifier
	    return MappingModifier;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MappingNotify"))
#ifdef MappingNotify
	    return MappingNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MappingPointer"))
#ifdef MappingPointer
	    return MappingPointer;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MappingSuccess"))
#ifdef MappingSuccess
	    return MappingSuccess;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod1MapIndex"))
#ifdef Mod1MapIndex
	    return Mod1MapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod1Mask"))
#ifdef Mod1Mask
	    return Mod1Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod2MapIndex"))
#ifdef Mod2MapIndex
	    return Mod2MapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod2Mask"))
#ifdef Mod2Mask
	    return Mod2Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod3MapIndex"))
#ifdef Mod3MapIndex
	    return Mod3MapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod3Mask"))
#ifdef Mod3Mask
	    return Mod3Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod4MapIndex"))
#ifdef Mod4MapIndex
	    return Mod4MapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod4Mask"))
#ifdef Mod4Mask
	    return Mod4Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod5MapIndex"))
#ifdef Mod5MapIndex
	    return Mod5MapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Mod5Mask"))
#ifdef Mod5Mask
	    return Mod5Mask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "MotionNotify"))
#ifdef MotionNotify
	    return MotionNotify;
#else
	    goto not_there;
#endif
	break;
    case 'N':
	if (strEQ(name, "NoEventMask"))
#ifdef NoEventMask
	    return NoEventMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NoExpose"))
#ifdef NoExpose
	    return NoExpose;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NoSymbol"))
#ifdef NoSymbol
	    return NoSymbol;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Nonconvex"))
#ifdef Nonconvex
	    return Nonconvex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "None"))
#ifdef None
	    return None;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NorthEastGravity"))
#ifdef NorthEastGravity
	    return NorthEastGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NorthGravity"))
#ifdef NorthGravity
	    return NorthGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NorthWestGravity"))
#ifdef NorthWestGravity
	    return NorthWestGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotUseful"))
#ifdef NotUseful
	    return NotUseful;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyAncestor"))
#ifdef NotifyAncestor
	    return NotifyAncestor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyDetailNone"))
#ifdef NotifyDetailNone
	    return NotifyDetailNone;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyGrab"))
#ifdef NotifyGrab
	    return NotifyGrab;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyHint"))
#ifdef NotifyHint
	    return NotifyHint;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyInferior"))
#ifdef NotifyInferior
	    return NotifyInferior;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyNonlinear"))
#ifdef NotifyNonlinear
	    return NotifyNonlinear;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyNonlinearVirtual"))
#ifdef NotifyNonlinearVirtual
	    return NotifyNonlinearVirtual;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyNormal"))
#ifdef NotifyNormal
	    return NotifyNormal;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyPointer"))
#ifdef NotifyPointer
	    return NotifyPointer;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyPointerRoot"))
#ifdef NotifyPointerRoot
	    return NotifyPointerRoot;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyUngrab"))
#ifdef NotifyUngrab
	    return NotifyUngrab;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyVirtual"))
#ifdef NotifyVirtual
	    return NotifyVirtual;
#else
	    goto not_there;
#endif
	if (strEQ(name, "NotifyWhileGrabbed"))
#ifdef NotifyWhileGrabbed
	    return NotifyWhileGrabbed;
#else
	    goto not_there;
#endif
	break;
    case 'O':
	if (strEQ(name, "Opposite"))
#ifdef Opposite
	    return Opposite;
#else
	    goto not_there;
#endif
	if (strEQ(name, "OwnerGrabButtonMask"))
#ifdef OwnerGrabButtonMask
	    return OwnerGrabButtonMask;
#else
	    goto not_there;
#endif
	break;
    case 'P':
	if (strEQ(name, "ParentRelative"))
#ifdef ParentRelative
	    return ParentRelative;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PlaceOnBottom"))
#ifdef PlaceOnBottom
	    return PlaceOnBottom;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PlaceOnTop"))
#ifdef PlaceOnTop
	    return PlaceOnTop;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PointerMotionHintMask"))
#ifdef PointerMotionHintMask
	    return PointerMotionHintMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PointerMotionMask"))
#ifdef PointerMotionMask
	    return PointerMotionMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PointerRoot"))
#ifdef PointerRoot
	    return PointerRoot;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PointerWindow"))
#ifdef PointerWindow
	    return PointerWindow;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PreferBlanking"))
#ifdef PreferBlanking
	    return PreferBlanking;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PropModeAppend"))
#ifdef PropModeAppend
	    return PropModeAppend;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PropModePrepend"))
#ifdef PropModePrepend
	    return PropModePrepend;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PropModeReplace"))
#ifdef PropModeReplace
	    return PropModeReplace;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PropertyChangeMask"))
#ifdef PropertyChangeMask
	    return PropertyChangeMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PropertyDelete"))
#ifdef PropertyDelete
	    return PropertyDelete;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PropertyNewValue"))
#ifdef PropertyNewValue
	    return PropertyNewValue;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PropertyNotify"))
#ifdef PropertyNotify
	    return PropertyNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "PseudoColor"))
#ifdef PseudoColor
	    return PseudoColor;
#else
	    goto not_there;
#endif
	break;
    case 'Q':
	break;
    case 'R':
	if (strEQ(name, "RaiseLowest"))
#ifdef RaiseLowest
	    return RaiseLowest;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ReparentNotify"))
#ifdef ReparentNotify
	    return ReparentNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ReplayKeyboard"))
#ifdef ReplayKeyboard
	    return ReplayKeyboard;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ReplayPointer"))
#ifdef ReplayPointer
	    return ReplayPointer;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ResizeRedirectMask"))
#ifdef ResizeRedirectMask
	    return ResizeRedirectMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ResizeRequest"))
#ifdef ResizeRequest
	    return ResizeRequest;
#else
	    goto not_there;
#endif
	if (strEQ(name, "RetainPermanent"))
#ifdef RetainPermanent
	    return RetainPermanent;
#else
	    goto not_there;
#endif
	if (strEQ(name, "RetainTemporary"))
#ifdef RetainTemporary
	    return RetainTemporary;
#else
	    goto not_there;
#endif
	if (strEQ(name, "RevertToNone"))
#ifdef RevertToNone
	    return RevertToNone;
#else
	    goto not_there;
#endif
	if (strEQ(name, "RevertToParent"))
#ifdef RevertToParent
	    return RevertToParent;
#else
	    goto not_there;
#endif
	if (strEQ(name, "RevertToPointerRoot"))
#ifdef RevertToPointerRoot
	    return RevertToPointerRoot;
#else
	    goto not_there;
#endif
	break;
    case 'S':
	if (strEQ(name, "ScreenSaverActive"))
#ifdef ScreenSaverActive
	    return ScreenSaverActive;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ScreenSaverReset"))
#ifdef ScreenSaverReset
	    return ScreenSaverReset;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SelectionClear"))
#ifdef SelectionClear
	    return SelectionClear;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SelectionNotify"))
#ifdef SelectionNotify
	    return SelectionNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SelectionRequest"))
#ifdef SelectionRequest
	    return SelectionRequest;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SetModeDelete"))
#ifdef SetModeDelete
	    return SetModeDelete;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SetModeInsert"))
#ifdef SetModeInsert
	    return SetModeInsert;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ShiftMapIndex"))
#ifdef ShiftMapIndex
	    return ShiftMapIndex;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ShiftMask"))
#ifdef ShiftMask
	    return ShiftMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SouthEastGravity"))
#ifdef SouthEastGravity
	    return SouthEastGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SouthGravity"))
#ifdef SouthGravity
	    return SouthGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SouthWestGravity"))
#ifdef SouthWestGravity
	    return SouthWestGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "StaticColor"))
#ifdef StaticColor
	    return StaticColor;
#else
	    goto not_there;
#endif
	if (strEQ(name, "StaticGravity"))
#ifdef StaticGravity
	    return StaticGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "StaticGray"))
#ifdef StaticGray
	    return StaticGray;
#else
	    goto not_there;
#endif
	if (strEQ(name, "StippleShape"))
#ifdef StippleShape
	    return StippleShape;
#else
	    goto not_there;
#endif
	if (strEQ(name, "StructureNotifyMask"))
#ifdef StructureNotifyMask
	    return StructureNotifyMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SubstructureNotifyMask"))
#ifdef SubstructureNotifyMask
	    return SubstructureNotifyMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SubstructureRedirectMask"))
#ifdef SubstructureRedirectMask
	    return SubstructureRedirectMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Success"))
#ifdef Success
	    return Success;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SyncBoth"))
#ifdef SyncBoth
	    return SyncBoth;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SyncKeyboard"))
#ifdef SyncKeyboard
	    return SyncKeyboard;
#else
	    goto not_there;
#endif
	if (strEQ(name, "SyncPointer"))
#ifdef SyncPointer
	    return SyncPointer;
#else
	    goto not_there;
#endif
	break;
    case 'T':
	if (strEQ(name, "TileShape"))
#ifdef TileShape
	    return TileShape;
#else
	    goto not_there;
#endif
	if (strEQ(name, "TopIf"))
#ifdef TopIf
	    return TopIf;
#else
	    goto not_there;
#endif
	if (strEQ(name, "TrueColor"))
#ifdef TrueColor
	    return TrueColor;
#else
	    goto not_there;
#endif
	break;
    case 'U':
	if (strEQ(name, "UnmapGravity"))
#ifdef UnmapGravity
	    return UnmapGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "UnmapNotify"))
#ifdef UnmapNotify
	    return UnmapNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "Unsorted"))
#ifdef Unsorted
	    return Unsorted;
#else
	    goto not_there;
#endif
	break;
    case 'V':
	if (strEQ(name, "VisibilityChangeMask"))
#ifdef VisibilityChangeMask
	    return VisibilityChangeMask;
#else
	    goto not_there;
#endif
	if (strEQ(name, "VisibilityFullyObscured"))
#ifdef VisibilityFullyObscured
	    return VisibilityFullyObscured;
#else
	    goto not_there;
#endif
	if (strEQ(name, "VisibilityNotify"))
#ifdef VisibilityNotify
	    return VisibilityNotify;
#else
	    goto not_there;
#endif
	if (strEQ(name, "VisibilityPartiallyObscured"))
#ifdef VisibilityPartiallyObscured
	    return VisibilityPartiallyObscured;
#else
	    goto not_there;
#endif
	if (strEQ(name, "VisibilityUnobscured"))
#ifdef VisibilityUnobscured
	    return VisibilityUnobscured;
#else
	    goto not_there;
#endif
	break;
    case 'W':
	if (strEQ(name, "WestGravity"))
#ifdef WestGravity
	    return WestGravity;
#else
	    goto not_there;
#endif
	if (strEQ(name, "WhenMapped"))
#ifdef WhenMapped
	    return WhenMapped;
#else
	    goto not_there;
#endif
	if (strEQ(name, "WindingRule"))
#ifdef WindingRule
	    return WindingRule;
#else
	    goto not_there;
#endif
	break;
    case 'X':
	if (strEQ(name, "XYBitmap"))
#ifdef XYBitmap
	    return XYBitmap;
#else
	    goto not_there;
#endif
	if (strEQ(name, "XYPixmap"))
#ifdef XYPixmap
	    return XYPixmap;
#else
	    goto not_there;
#endif
	if (strEQ(name, "X_PROTOCOL"))
#ifdef X_PROTOCOL
	    return X_PROTOCOL;
#else
	    goto not_there;
#endif
	if (strEQ(name, "X_PROTOCOL_REVISION"))
#ifdef X_PROTOCOL_REVISION
	    return X_PROTOCOL_REVISION;
#else
	    goto not_there;
#endif
	break;
    case 'Y':
	if (strEQ(name, "YSorted"))
#ifdef YSorted
	    return YSorted;
#else
	    goto not_there;
#endif
	if (strEQ(name, "YXBanded"))
#ifdef YXBanded
	    return YXBanded;
#else
	    goto not_there;
#endif
	if (strEQ(name, "YXSorted"))
#ifdef YXSorted
	    return YXSorted;
#else
	    goto not_there;
#endif
	break;
    case 'Z':
	if (strEQ(name, "ZPixmap"))
#ifdef ZPixmap
	    return ZPixmap;
#else
	    goto not_there;
#endif
	break;
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}


MODULE = Tk::X		PACKAGE = Tk::X

PROTOTYPES: ENABLE

double
constant(name,arg)
	char *		name
	int		arg