diff options
Diffstat (limited to 'libXt/src/TMparse.c')
| -rw-r--r-- | libXt/src/TMparse.c | 4291 |
1 files changed, 2144 insertions, 2147 deletions
diff --git a/libXt/src/TMparse.c b/libXt/src/TMparse.c index 4acc92dc0..14bb4593f 100644 --- a/libXt/src/TMparse.c +++ b/libXt/src/TMparse.c @@ -1,2147 +1,2144 @@ -/* $Xorg: TMparse.c,v 1.6 2001/02/09 02:03:58 xorgcvs Exp $ */ - -/*********************************************************** -Copyright 1993 Sun Microsystems, Inc. All rights reserved. - -Permission is hereby granted, free of charge, to any person obtaining a -copy of this software and associated documentation files (the "Software"), -to deal in the Software without restriction, including without limitation -the rights to use, copy, modify, merge, publish, distribute, sublicense, -and/or sell copies of the Software, and to permit persons to whom the -Software is furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice (including the next -paragraph) 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 AUTHORS OR COPYRIGHT HOLDERS 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. - -Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the name of Digital not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ -/* $XFree86: xc/lib/Xt/TMparse.c,v 3.10tsi Exp $ */ - -/* - -Copyright 1987, 1988, 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_CONFIG_H -#include <config.h> -#endif -#include "IntrinsicI.h" -#include "StringDefs.h" -#include <ctype.h> -#include <stdlib.h> -#ifndef NOTASCII -#define XK_LATIN1 -#endif -#define XK_MISCELLANY -#include <X11/keysymdef.h> - -#ifdef CACHE_TRANSLATIONS -# ifdef REFCNT_TRANSLATIONS -# define CACHED XtCacheAll | XtCacheRefCount -# else -# define CACHED XtCacheAll -# endif -#else -# define CACHED XtCacheNone -#endif - -#ifndef MAX -#define MAX(a,b) (((a) > (b)) ? (a) : (b)) -#endif - -#ifndef MIN -#define MIN(a,b) (((a) < (b)) ? (a) : (b)) -#endif - -static String XtNtranslationParseError = "translationParseError"; - -typedef int EventType; - -typedef String (*ParseProc)( - String /* str; */, - Opaque /* closure; */, - EventPtr /* event; */, - Boolean* /* error */); - -typedef TMShortCard Value; -typedef void (*ModifierProc)(Value, LateBindingsPtr*, Boolean, Value*); - -typedef struct _ModifierRec { - char* name; - XrmQuark signature; - ModifierProc modifierParseProc; - Value value; -} ModifierRec, *ModifierKeys; - -typedef struct _EventKey { - char *event; - XrmQuark signature; - EventType eventType; - ParseProc parseDetail; - Opaque closure; -}EventKey, *EventKeys; - -typedef struct { - char *name; - XrmQuark signature; - Value value; -} NameValueRec, *NameValueTable; - -static void ParseModImmed(Value, LateBindingsPtr*, Boolean, Value*); -static void ParseModSym(Value, LateBindingsPtr*, Boolean, Value*); -static String PanicModeRecovery(String); -static String CheckForPoundSign(String, _XtTranslateOp, _XtTranslateOp *); -static KeySym StringToKeySym(String, Boolean *); -static ModifierRec modifiers[] = { - {"Shift", 0, ParseModImmed,ShiftMask}, - {"Lock", 0, ParseModImmed,LockMask}, - {"Ctrl", 0, ParseModImmed,ControlMask}, - {"Mod1", 0, ParseModImmed,Mod1Mask}, - {"Mod2", 0, ParseModImmed,Mod2Mask}, - {"Mod3", 0, ParseModImmed,Mod3Mask}, - {"Mod4", 0, ParseModImmed,Mod4Mask}, - {"Mod5", 0, ParseModImmed,Mod5Mask}, - {"Meta", 0, ParseModSym, XK_Meta_L}, - {"m", 0, ParseModSym, XK_Meta_L}, - {"h", 0, ParseModSym, XK_Hyper_L}, - {"su", 0, ParseModSym, XK_Super_L}, - {"a", 0, ParseModSym, XK_Alt_L}, - {"Hyper", 0, ParseModSym, XK_Hyper_L}, - {"Super", 0, ParseModSym, XK_Super_L}, - {"Alt", 0, ParseModSym, XK_Alt_L}, - {"Button1", 0, ParseModImmed,Button1Mask}, - {"Button2", 0, ParseModImmed,Button2Mask}, - {"Button3", 0, ParseModImmed,Button3Mask}, - {"Button4", 0, ParseModImmed,Button4Mask}, - {"Button5", 0, ParseModImmed,Button5Mask}, - {"c", 0, ParseModImmed,ControlMask}, - {"s", 0, ParseModImmed,ShiftMask}, - {"l", 0, ParseModImmed,LockMask}, -}; - -static NameValueRec buttonNames[] = { - {"Button1", 0, Button1}, - {"Button2", 0, Button2}, - {"Button3", 0, Button3}, - {"Button4", 0, Button4}, - {"Button5", 0, Button5}, - {NULL, NULLQUARK, 0}, -}; - -static NameValueRec motionDetails[] = { - {"Normal", 0, NotifyNormal}, - {"Hint", 0, NotifyHint}, - {NULL, NULLQUARK, 0}, -}; - -static NameValueRec notifyModes[] = { - {"Normal", 0, NotifyNormal}, - {"Grab", 0, NotifyGrab}, - {"Ungrab", 0, NotifyUngrab}, - {"WhileGrabbed", 0, NotifyWhileGrabbed}, - {NULL, NULLQUARK, 0}, -}; - -#if 0 -static NameValueRec notifyDetail[] = { - {"Ancestor", 0, NotifyAncestor}, - {"Virtual", 0, NotifyVirtual}, - {"Inferior", 0, NotifyInferior}, - {"Nonlinear", 0, NotifyNonlinear}, - {"NonlinearVirtual", 0, NotifyNonlinearVirtual}, - {"Pointer", 0, NotifyPointer}, - {"PointerRoot", 0, NotifyPointerRoot}, - {"DetailNone", 0, NotifyDetailNone}, - {NULL, NULLQUARK, 0}, -}; - -static NameValueRec visibilityNotify[] = { - {"Unobscured", 0, VisibilityUnobscured}, - {"PartiallyObscured", 0, VisibilityPartiallyObscured}, - {"FullyObscured", 0, VisibilityFullyObscured}, - {NULL, NULLQUARK, 0}, -}; - -static NameValueRec circulation[] = { - {"OnTop", 0, PlaceOnTop}, - {"OnBottom", 0, PlaceOnBottom}, - {NULL, NULLQUARK, 0}, -}; - -static NameValueRec propertyChanged[] = { - {"NewValue", 0, PropertyNewValue}, - {"Delete", 0, PropertyDelete}, - {NULL, NULLQUARK, 0}, -}; -#endif /*0*/ - -static NameValueRec mappingNotify[] = { - {"Modifier", 0, MappingModifier}, - {"Keyboard", 0, MappingKeyboard}, - {"Pointer", 0, MappingPointer}, - {NULL, NULLQUARK, 0}, -}; - -static String ParseKeySym(String, Opaque, EventPtr, Boolean*); -static String ParseKeyAndModifiers(String, Opaque, EventPtr, Boolean*); -static String ParseTable(String, Opaque, EventPtr, Boolean*); -static String ParseImmed(String, Opaque, EventPtr, Boolean*); -static String ParseAddModifier(String, Opaque, EventPtr, Boolean*); -static String ParseNone(String, Opaque, EventPtr, Boolean*); -static String ParseAtom(String, Opaque, EventPtr, Boolean*); - -static EventKey events[] = { - -/* Event Name, Quark, Event Type, Detail Parser, Closure */ - -{"KeyPress", NULLQUARK, KeyPress, ParseKeySym, NULL}, -{"Key", NULLQUARK, KeyPress, ParseKeySym, NULL}, -{"KeyDown", NULLQUARK, KeyPress, ParseKeySym, NULL}, -{"Ctrl", NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ControlMask}, -{"Shift", NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ShiftMask}, -{"Meta", NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)NULL}, -{"KeyUp", NULLQUARK, KeyRelease, ParseKeySym, NULL}, -{"KeyRelease", NULLQUARK, KeyRelease, ParseKeySym, NULL}, - -{"ButtonPress", NULLQUARK, ButtonPress, ParseTable,(Opaque)buttonNames}, -{"BtnDown", NULLQUARK, ButtonPress, ParseTable,(Opaque)buttonNames}, -{"Btn1Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button1}, -{"Btn2Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button2}, -{"Btn3Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button3}, -{"Btn4Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button4}, -{"Btn5Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button5}, - -/* Event Name, Quark, Event Type, Detail Parser, Closure */ - -{"ButtonRelease", NULLQUARK, ButtonRelease, ParseTable,(Opaque)buttonNames}, -{"BtnUp", NULLQUARK, ButtonRelease, ParseTable,(Opaque)buttonNames}, -{"Btn1Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button1}, -{"Btn2Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button2}, -{"Btn3Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button3}, -{"Btn4Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button4}, -{"Btn5Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button5}, - -{"MotionNotify", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails}, -{"PtrMoved", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails}, -{"Motion", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails}, -{"MouseMoved", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails}, -{"BtnMotion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)AnyButtonMask}, -{"Btn1Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button1Mask}, -{"Btn2Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button2Mask}, -{"Btn3Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button3Mask}, -{"Btn4Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button4Mask}, -{"Btn5Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button5Mask}, - -{"EnterNotify", NULLQUARK, EnterNotify, ParseTable,(Opaque)notifyModes}, -{"Enter", NULLQUARK, EnterNotify, ParseTable,(Opaque)notifyModes}, -{"EnterWindow", NULLQUARK, EnterNotify, ParseTable,(Opaque)notifyModes}, - -{"LeaveNotify", NULLQUARK, LeaveNotify, ParseTable,(Opaque)notifyModes}, -{"LeaveWindow", NULLQUARK, LeaveNotify, ParseTable,(Opaque)notifyModes}, -{"Leave", NULLQUARK, LeaveNotify, ParseTable,(Opaque)notifyModes}, - -/* Event Name, Quark, Event Type, Detail Parser, Closure */ - -{"FocusIn", NULLQUARK, FocusIn, ParseTable,(Opaque)notifyModes}, - -{"FocusOut", NULLQUARK, FocusOut, ParseTable,(Opaque)notifyModes}, - -{"KeymapNotify", NULLQUARK, KeymapNotify, ParseNone, NULL}, -{"Keymap", NULLQUARK, KeymapNotify, ParseNone, NULL}, - -{"Expose", NULLQUARK, Expose, ParseNone, NULL}, - -{"GraphicsExpose", NULLQUARK, GraphicsExpose, ParseNone, NULL}, -{"GrExp", NULLQUARK, GraphicsExpose, ParseNone, NULL}, - -{"NoExpose", NULLQUARK, NoExpose, ParseNone, NULL}, -{"NoExp", NULLQUARK, NoExpose, ParseNone, NULL}, - -{"VisibilityNotify",NULLQUARK, VisibilityNotify,ParseNone, NULL}, -{"Visible", NULLQUARK, VisibilityNotify,ParseNone, NULL}, - -{"CreateNotify", NULLQUARK, CreateNotify, ParseNone, NULL}, -{"Create", NULLQUARK, CreateNotify, ParseNone, NULL}, - -/* Event Name, Quark, Event Type, Detail Parser, Closure */ - -{"DestroyNotify", NULLQUARK, DestroyNotify, ParseNone, NULL}, -{"Destroy", NULLQUARK, DestroyNotify, ParseNone, NULL}, - -{"UnmapNotify", NULLQUARK, UnmapNotify, ParseNone, NULL}, -{"Unmap", NULLQUARK, UnmapNotify, ParseNone, NULL}, - -{"MapNotify", NULLQUARK, MapNotify, ParseNone, NULL}, -{"Map", NULLQUARK, MapNotify, ParseNone, NULL}, - -{"MapRequest", NULLQUARK, MapRequest, ParseNone, NULL}, -{"MapReq", NULLQUARK, MapRequest, ParseNone, NULL}, - -{"ReparentNotify", NULLQUARK, ReparentNotify, ParseNone, NULL}, -{"Reparent", NULLQUARK, ReparentNotify, ParseNone, NULL}, - -{"ConfigureNotify", NULLQUARK, ConfigureNotify, ParseNone, NULL}, -{"Configure", NULLQUARK, ConfigureNotify, ParseNone, NULL}, - -{"ConfigureRequest",NULLQUARK, ConfigureRequest,ParseNone, NULL}, -{"ConfigureReq", NULLQUARK, ConfigureRequest,ParseNone, NULL}, - -/* Event Name, Quark, Event Type, Detail Parser, Closure */ - -{"GravityNotify", NULLQUARK, GravityNotify, ParseNone, NULL}, -{"Grav", NULLQUARK, GravityNotify, ParseNone, NULL}, - -{"ResizeRequest", NULLQUARK, ResizeRequest, ParseNone, NULL}, -{"ResReq", NULLQUARK, ResizeRequest, ParseNone, NULL}, - -{"CirculateNotify", NULLQUARK, CirculateNotify, ParseNone, NULL}, -{"Circ", NULLQUARK, CirculateNotify, ParseNone, NULL}, - -{"CirculateRequest",NULLQUARK, CirculateRequest,ParseNone, NULL}, -{"CircReq", NULLQUARK, CirculateRequest,ParseNone, NULL}, - -{"PropertyNotify", NULLQUARK, PropertyNotify, ParseAtom, NULL}, -{"Prop", NULLQUARK, PropertyNotify, ParseAtom, NULL}, - -{"SelectionClear", NULLQUARK, SelectionClear, ParseAtom, NULL}, -{"SelClr", NULLQUARK, SelectionClear, ParseAtom, NULL}, - -{"SelectionRequest",NULLQUARK, SelectionRequest,ParseAtom, NULL}, -{"SelReq", NULLQUARK, SelectionRequest,ParseAtom, NULL}, - -/* Event Name, Quark, Event Type, Detail Parser, Closure */ - -{"SelectionNotify", NULLQUARK, SelectionNotify, ParseAtom, NULL}, -{"Select", NULLQUARK, SelectionNotify, ParseAtom, NULL}, - -{"ColormapNotify", NULLQUARK, ColormapNotify, ParseNone, NULL}, -{"Clrmap", NULLQUARK, ColormapNotify, ParseNone, NULL}, - -{"ClientMessage", NULLQUARK, ClientMessage, ParseAtom, NULL}, -{"Message", NULLQUARK, ClientMessage, ParseAtom, NULL}, - -{"MappingNotify", NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify}, -{"Mapping", NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify}, - -#ifdef DEBUG -# ifdef notdef -{"Timer", NULLQUARK, _XtTimerEventType,ParseNone, NULL}, -# endif /* notdef */ -{"EventTimer", NULLQUARK, _XtEventTimerEventType,ParseNone,NULL}, -#endif /* DEBUG */ - -/* Event Name, Quark, Event Type, Detail Parser, Closure */ - -}; - -#ifndef __UNIXOS2__ -#define IsNewline(str) ((str) == '\n') -#else -#define IsNewline(str) ((str) == '\n' || (str) == '\r') -#endif - -#define ScanFor(str, ch) \ - while ((*(str) != (ch)) && (*(str) != '\0') && !IsNewline(*(str))) (str)++ - -#define ScanNumeric(str) while ('0' <= *(str) && *(str) <= '9') (str)++ - -#define ScanAlphanumeric(str) \ - while (('A' <= *(str) && *(str) <= 'Z') || \ - ('a' <= *(str) && *(str) <= 'z') || \ - ('0' <= *(str) && *(str) <= '9')) (str)++ - -#ifndef __UNIXOS2__ -#define ScanWhitespace(str) \ - while (*(str) == ' ' || *(str) == '\t') (str)++ -#else -#define ScanWhitespace(str) \ - while (*(str) == ' ' || *(str) == '\t' || *(str) == '\r') (str)++ -#endif - -static Boolean initialized = FALSE; -static XrmQuark QMeta; -static XrmQuark QCtrl; -static XrmQuark QNone; -static XrmQuark QAny; - -static void FreeEventSeq( - EventSeqPtr eventSeq) -{ - register EventSeqPtr evs = eventSeq; - - while (evs != NULL) { - evs->state = (StatePtr) evs; - if (evs->next != NULL - && evs->next->state == (StatePtr) evs->next) - evs->next = NULL; - evs = evs->next; - } - - evs = eventSeq; - while (evs != NULL) { - register EventPtr event = evs; - evs = evs->next; - if (evs == event) evs = NULL; - XtFree((char *)event); - } -} - -static void CompileNameValueTable( - NameValueTable table) -{ - register int i; - - for (i=0; table[i].name; i++) - table[i].signature = XrmPermStringToQuark(table[i].name); -} - -static int OrderEvents(_Xconst void *a, _Xconst void *b) -{ - return ((((_Xconst EventKey *)a)->signature < - ((_Xconst EventKey *)b)->signature) ? -1 : 1); -} - -static void Compile_XtEventTable( - EventKeys table, - Cardinal count) -{ - register int i; - register EventKeys entry = table; - - for (i=count; --i >= 0; entry++) - entry->signature = XrmPermStringToQuark(entry->event); - qsort(table, count, sizeof(EventKey), OrderEvents); -} - -static int OrderModifiers(_Xconst void *a, _Xconst void *b) -{ - return ((((_Xconst ModifierRec *)a)->signature < - ((_Xconst ModifierRec *)b)->signature) ? -1 : 1); -} - -static void Compile_XtModifierTable( - ModifierKeys table, - Cardinal count) -{ - register int i; - register ModifierKeys entry = table; - - for (i=count; --i >= 0; entry++) - entry->signature = XrmPermStringToQuark(entry->name); - qsort(table, count, sizeof(ModifierRec), OrderModifiers); -} - -static String PanicModeRecovery( - String str) -{ - ScanFor(str,'\n'); - if (*str == '\n') str++; - return str; - -} - - -static void Syntax( - String str0,String str1) -{ - Cardinal num_params = 2; - String params[2]; - - params[0] = str0; - params[1] = str1; - XtWarningMsg(XtNtranslationParseError,"parseError",XtCXtToolkitError, - "translation table syntax error: %s %s",params,&num_params); -} - - - -static Cardinal LookupTMEventType( - String eventStr, - Boolean *error) -{ - register int i = 0, left, right; - register XrmQuark signature; - static int previous = 0; - - LOCK_PROCESS; - if ((signature = StringToQuark(eventStr)) == events[previous].signature) { - UNLOCK_PROCESS; - return (Cardinal) previous; - } - - left = 0; - right = XtNumber(events) - 1; - while (left <= right) { - i = (left + right) >> 1; - if (signature < events[i].signature) - right = i - 1; - else if (signature > events[i].signature) - left = i + 1; - else { - previous = i; - UNLOCK_PROCESS; - return (Cardinal) i; - } - } - - Syntax("Unknown event type : ",eventStr); - *error = TRUE; - UNLOCK_PROCESS; - return (Cardinal) i; -} - -static void StoreLateBindings( - KeySym keysymL, - Boolean notL, - KeySym keysymR, - Boolean notR, - LateBindingsPtr* lateBindings) -{ - LateBindingsPtr temp; - Boolean pair = FALSE; - unsigned long count,number; - if (lateBindings != NULL){ - temp = *lateBindings; - if (temp != NULL) { - for (count = 0; temp[count].keysym; count++){/*EMPTY*/} - } - else count = 0; - if (! keysymR){ - number = 1;pair = FALSE; - } else{ - number = 2;pair = TRUE; - } - - temp = (LateBindingsPtr)XtRealloc((char *)temp, - (unsigned)((count+number+1) * sizeof(LateBindings)) ); - *lateBindings = temp; - temp[count].knot = notL; - temp[count].pair = pair; - if (count == 0) - temp[count].ref_count = 1; - temp[count++].keysym = keysymL; - if (keysymR){ - temp[count].knot = notR; - temp[count].pair = FALSE; - temp[count].ref_count = 0; - temp[count++].keysym = keysymR; - } - temp[count].knot = temp[count].pair = FALSE; - temp[count].ref_count = 0; - temp[count].keysym = 0; - } -} - -static void _XtParseKeysymMod( - String name, - LateBindingsPtr* lateBindings, - Boolean notFlag, - Value *valueP, - Boolean *error) -{ - KeySym keySym; - keySym = StringToKeySym(name, error); - *valueP = 0; - if (keySym != NoSymbol) { - StoreLateBindings(keySym,notFlag,(KeySym) NULL,FALSE,lateBindings); - } -} - -static Boolean _XtLookupModifier( - XrmQuark signature, - LateBindingsPtr* lateBindings, - Boolean notFlag, - Value *valueP, - Bool constMask) -{ - register int i, left, right; - static int previous = 0; - - LOCK_PROCESS; - if (signature == modifiers[previous].signature) { - if (constMask) *valueP = modifiers[previous].value; - else /* if (modifiers[previous].modifierParseProc) always true */ - (*modifiers[previous].modifierParseProc) - (modifiers[previous].value, lateBindings, notFlag, valueP); - UNLOCK_PROCESS; - return TRUE; - } - - left = 0; - right = XtNumber(modifiers) - 1; - while (left <= right) { - i = (left + right) >> 1; - if (signature < modifiers[i].signature) - right = i - 1; - else if (signature > modifiers[i].signature) - left = i + 1; - else { - previous = i; - if (constMask) *valueP = modifiers[i].value; - else /* if (modifiers[i].modifierParseProc) always true */ - (*modifiers[i].modifierParseProc) - (modifiers[i].value, lateBindings, notFlag, valueP); - UNLOCK_PROCESS; - return TRUE; - } - } - UNLOCK_PROCESS; - return FALSE; -} - - -static String ScanIdent( - register String str) -{ - ScanAlphanumeric(str); - while ( - ('A' <= *str && *str <= 'Z') - || ('a' <= *str && *str <= 'z') - || ('0' <= *str && *str <= '9') - || (*str == '-') - || (*str == '_') - || (*str == '$') - ) str++; - return str; -} - -static String FetchModifierToken( - String str, - XrmQuark *token_return) -{ - String start = str; - - if (*str == '$') { - *token_return = QMeta; - str++; - return str; - } - if (*str == '^') { - *token_return = QCtrl; - str++; - return str; - } - str = ScanIdent(str); - if (start != str) { - char modStrbuf[100]; - char* modStr; - - modStr = XtStackAlloc ((size_t)(str - start + 1), modStrbuf); - if (modStr == NULL) _XtAllocError (NULL); - (void) memmove(modStr, start, str-start); - modStr[str-start] = '\0'; - *token_return = XrmStringToQuark(modStr); - XtStackFree (modStr, modStrbuf); - return str; - } - return str; -} - -static String ParseModifiers( - register String str, - EventPtr event, - Boolean* error) -{ - register String start; - Boolean notFlag, exclusive, keysymAsMod; - Value maskBit; - XrmQuark Qmod; - - ScanWhitespace(str); - start = str; - str = FetchModifierToken(str, &Qmod); - exclusive = FALSE; - if (start != str) { - if (Qmod == QNone) { - event->event.modifierMask = ~0; - event->event.modifiers = 0; - ScanWhitespace(str); - return str; - } else if (Qmod == QAny) { /*backward compatability*/ - event->event.modifierMask = 0; - event->event.modifiers = AnyModifier; - ScanWhitespace(str); - return str; - } - str = start; /*if plain modifier, reset to beginning */ - } - else while (*str == '!' || *str == ':') { - if (*str == '!') { - exclusive = TRUE; - str++; - ScanWhitespace(str); - } - if (*str == ':') { - event->event.standard = TRUE; - str++; - ScanWhitespace(str); - } - } - - while (*str != '<') { - if (*str == '~') { - notFlag = TRUE; - str++; - } else - notFlag = FALSE; - if (*str == '@') { - keysymAsMod = TRUE; - str++; - } - else keysymAsMod = FALSE; - start = str; - str = FetchModifierToken(str, &Qmod); - if (start == str) { - Syntax("Modifier or '<' expected",""); - *error = TRUE; - return PanicModeRecovery(str); - } - if (keysymAsMod) { - _XtParseKeysymMod(XrmQuarkToString(Qmod), - &event->event.lateModifiers, - notFlag,&maskBit, error); - if (*error) - return PanicModeRecovery(str); - - } else - if (!_XtLookupModifier(Qmod, &event->event.lateModifiers, - notFlag, &maskBit, FALSE)) { - Syntax("Unknown modifier name: ", XrmQuarkToString(Qmod)); - *error = TRUE; - return PanicModeRecovery(str); - } - event->event.modifierMask |= maskBit; - if (notFlag) event->event.modifiers &= ~maskBit; - else event->event.modifiers |= maskBit; - ScanWhitespace(str); - } - if (exclusive) event->event.modifierMask = ~0; - return str; -} - -static String ParseXtEventType( - register String str, - EventPtr event, - Cardinal *tmEventP, - Boolean* error) -{ - String start = str; - char eventTypeStrbuf[100]; - char* eventTypeStr; - - ScanAlphanumeric(str); - eventTypeStr = XtStackAlloc ((size_t)(str - start + 1), eventTypeStrbuf); - if (eventTypeStr == NULL) _XtAllocError (NULL); - (void) memmove(eventTypeStr, start, str-start); - eventTypeStr[str-start] = '\0'; - *tmEventP = LookupTMEventType(eventTypeStr,error); - XtStackFree (eventTypeStr, eventTypeStrbuf); - if (*error) - return PanicModeRecovery(str); - event->event.eventType = events[*tmEventP].eventType; - return str; -} - -static unsigned long StrToHex( - String str) -{ - register char c; - register unsigned long val = 0; - - while ((c = *str)) { - if ('0' <= c && c <= '9') val = val*16+c-'0'; - else if ('a' <= c && c <= 'z') val = val*16+c-'a'+10; - else if ('A' <= c && c <= 'Z') val = val*16+c-'A'+10; - else return 0; - str++; - } - - return val; -} - -static unsigned long StrToOct( - String str) -{ - register char c; - register unsigned long val = 0; - - while ((c = *str)) { - if ('0' <= c && c <= '7') val = val*8+c-'0'; else return 0; - str++; - } - - return val; -} - -static unsigned long StrToNum( - String str) -{ - register char c; - register unsigned long val = 0; - - if (*str == '0') { - str++; - if (*str == 'x' || *str == 'X') return StrToHex(++str); - else return StrToOct(str); - } - - while ((c = *str)) { - if ('0' <= c && c <= '9') val = val*10+c-'0'; - else return 0; - str++; - } - - return val; -} - -static KeySym StringToKeySym( - String str, - Boolean *error) -{ - KeySym k; - - if (str == NULL || *str == '\0') return (KeySym) 0; - -#ifndef NOTASCII - /* special case single character ASCII, for speed */ - if (*(str+1) == '\0') { - if (' ' <= *str && *str <= '~') return XK_space + (*str - ' '); - } -#endif - - if ('0' <= *str && *str <= '9') return (KeySym) StrToNum(str); - k = XStringToKeysym(str); - if (k != NoSymbol) return k; - -#ifdef NOTASCII - /* fall-back case to preserve backwards compatibility; no-one - * should be relying upon this! - */ - if (*(str+1) == '\0') return (KeySym) *str; -#endif - - Syntax("Unknown keysym name: ", str); - *error = TRUE; - return NoSymbol; -} -/* ARGSUSED */ -static void ParseModImmed( - Value value, - LateBindingsPtr* lateBindings, - Boolean notFlag, - Value* valueP) -{ - *valueP = value; -} - - /* is only valid with keysyms that have an _L and _R in their name; - * and ignores keysym lookup errors (i.e. assumes only valid keysyms) - */ -static void ParseModSym( - Value value, - LateBindingsPtr* lateBindings, - Boolean notFlag, - Value* valueP) -{ - register KeySym keysymL = (KeySym)value; - register KeySym keysymR = keysymL + 1; /* valid for supported keysyms */ - StoreLateBindings(keysymL,notFlag,keysymR,notFlag,lateBindings); - *valueP = 0; -} - -#ifdef sparc -/* - * The stupid optimizer in SunOS 4.0.3 and below generates bogus code that - * causes the value of the most recently used variable to be returned instead - * of the value passed in. - */ -static String stupid_optimizer_kludge; -#define BROKEN_OPTIMIZER_HACK(val) stupid_optimizer_kludge = (val) -#else -#define BROKEN_OPTIMIZER_HACK(val) val -#endif - -/* ARGSUSED */ -static String ParseImmed( - register String str, - register Opaque closure, - register EventPtr event, - Boolean* error) -{ - event->event.eventCode = (unsigned long)closure; - event->event.eventCodeMask = ~0UL; - - return BROKEN_OPTIMIZER_HACK(str); -} - -/* ARGSUSED */ -static String ParseAddModifier( - register String str, - register Opaque closure, - register EventPtr event, - Boolean* error) -{ - register unsigned long modval = (unsigned long)closure; - event->event.modifiers |= modval; - if (modval != AnyButtonMask) /* AnyButtonMask is don't-care mask */ - event->event.modifierMask |= modval; - - return BROKEN_OPTIMIZER_HACK(str); -} - - -static String ParseKeyAndModifiers( - String str, - Opaque closure, - EventPtr event, - Boolean* error) -{ - str = ParseKeySym(str, closure, event,error); - if ((unsigned long) closure == 0) { - Value metaMask; /* unused */ - (void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE, - &metaMask, FALSE); - } else { - event->event.modifiers |= (unsigned long) closure; - event->event.modifierMask |= (unsigned long) closure; - } - return str; -} - -/*ARGSUSED*/ -static String ParseKeySym( - register String str, - Opaque closure, - EventPtr event, - Boolean* error) -{ - char *start; - char keySymNamebuf[100]; - char* keySymName; - - ScanWhitespace(str); - - if (*str == '\\') { - keySymName = keySymNamebuf; - str++; - keySymName[0] = *str; - if (*str != '\0' && !IsNewline(*str)) str++; - keySymName[1] = '\0'; - event->event.eventCode = StringToKeySym(keySymName, error); - event->event.eventCodeMask = ~0L; - } else if (*str == ',' || *str == ':' || - /* allow leftparen to be single char symbol, - * for backwards compatibility - */ - (*str == '(' && *(str+1) >= '0' && *(str+1) <= '9')) { - keySymName = keySymNamebuf; /* just so we can stackfree it later */ - /* no detail */ - event->event.eventCode = 0L; - event->event.eventCodeMask = 0L; - } else { - start = str; - while ( - *str != ',' - && *str != ':' - && *str != ' ' - && *str != '\t' - && !IsNewline(*str) - && (*str != '(' || *(str+1) <= '0' || *(str+1) >= '9') - && *str != '\0') str++; - keySymName = XtStackAlloc ((size_t)(str - start + 1), keySymNamebuf); - (void) memmove(keySymName, start, str-start); - keySymName[str-start] = '\0'; - event->event.eventCode = StringToKeySym(keySymName, error); - event->event.eventCodeMask = ~0L; - } - if (*error) { - /* We never get here when keySymName hasn't been allocated */ - if (keySymName[0] == '<') { - /* special case for common error */ - XtWarningMsg(XtNtranslationParseError, "missingComma", - XtCXtToolkitError, - "... possibly due to missing ',' in event sequence.", - (String*)NULL, (Cardinal*)NULL); - } - XtStackFree (keySymName, keySymNamebuf); - return PanicModeRecovery(str); - } - if (event->event.standard) - event->event.matchEvent = _XtMatchUsingStandardMods; - else - event->event.matchEvent = _XtMatchUsingDontCareMods; - - XtStackFree (keySymName, keySymNamebuf); - - return str; -} - -static String ParseTable( - register String str, - Opaque closure, - EventPtr event, - Boolean* error) -{ - register String start = str; - register XrmQuark signature; - NameValueTable table = (NameValueTable) closure; - char tableSymName[100]; - - event->event.eventCode = 0L; - ScanAlphanumeric(str); - if (str == start) {event->event.eventCodeMask = 0L; return str; } - if (str-start >= 99) { - Syntax("Invalid Detail Type (string is too long).", ""); - *error = TRUE; - return str; - } - (void) memmove(tableSymName, start, str-start); - tableSymName[str-start] = '\0'; - signature = StringToQuark(tableSymName); - for (; table->signature != NULLQUARK; table++) - if (table->signature == signature) { - event->event.eventCode = table->value; - event->event.eventCodeMask = ~0L; - return str; - } - - Syntax("Unknown Detail Type: ", tableSymName); - *error = TRUE; - return PanicModeRecovery(str); -} - -/*ARGSUSED*/ -static String ParseNone( - String str, - Opaque closure, - EventPtr event, - Boolean* error) -{ - event->event.eventCode = 0; - event->event.eventCodeMask = 0; - - return BROKEN_OPTIMIZER_HACK(str); -} - -/*ARGSUSED*/ -static String ParseAtom( - String str, - Opaque closure, - EventPtr event, - Boolean* error) -{ - ScanWhitespace(str); - - if (*str == ',' || *str == ':') { - /* no detail */ - event->event.eventCode = 0L; - event->event.eventCodeMask = 0L; - } else { - char *start, atomName[1000]; - start = str; - while ( - *str != ',' - && *str != ':' - && *str != ' ' - && *str != '\t' - && !IsNewline(*str) - && *str != '\0') str++; - if (str-start >= 999) { - Syntax( "Atom name must be less than 1000 characters long.", "" ); - *error = TRUE; - return str; - } - (void) memmove(atomName, start, str-start); - atomName[str-start] = '\0'; - event->event.eventCode = XrmStringToQuark(atomName); - event->event.matchEvent = _XtMatchAtom; - } - return str; -} - -static ModifierMask buttonModifierMasks[] = { - 0, Button1Mask, Button2Mask, Button3Mask, Button4Mask, Button5Mask -}; -static String ParseRepeat(String, int *, Boolean *, Boolean *); - -static String ParseEvent( - register String str, - EventPtr event, - int* reps, - Boolean* plus, - Boolean* error) -{ - Cardinal tmEvent; - - str = ParseModifiers(str, event,error); - if (*error) return str; - if (*str != '<') { - Syntax("Missing '<' while parsing event type.",""); - *error = TRUE; - return PanicModeRecovery(str); - } - else str++; - str = ParseXtEventType(str, event, &tmEvent,error); - if (*error) return str; - if (*str != '>'){ - Syntax("Missing '>' while parsing event type",""); - *error = TRUE; - return PanicModeRecovery(str); - } - else str++; - if (*str == '(') { - str = ParseRepeat(str, reps, plus, error); - if (*error) return str; - } - str = (*(events[tmEvent].parseDetail))( - str, events[tmEvent].closure, event,error); - if (*error) return str; - -/* gross hack! ||| this kludge is related to the X11 protocol deficiency w.r.t. - * modifiers in grabs. - */ - if ((event->event.eventType == ButtonRelease) - && (event->event.modifiers | event->event.modifierMask) /* any */ - && (event->event.modifiers != AnyModifier)) - { - event->event.modifiers - |= buttonModifierMasks[event->event.eventCode]; - /* the button that is going up will always be in the modifiers... */ - } - - return str; -} - -static String ParseQuotedStringEvent( - register String str, - register EventPtr event, - Boolean *error) -{ - Value metaMask; - char s[2]; - - if (*str=='^') { - str++; - event->event.modifiers = ControlMask; - } else if (*str == '$') { - str++; - (void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE, - &metaMask, FALSE); - } - if (*str == '\\') - str++; - s[0] = *str; - s[1] = '\0'; - if (*str != '\0' && !IsNewline(*str)) str++; - event->event.eventType = KeyPress; - event->event.eventCode = StringToKeySym(s, error); - if (*error) return PanicModeRecovery(str); - event->event.eventCodeMask = ~0L; - event->event.matchEvent = _XtMatchUsingStandardMods; - event->event.standard = TRUE; - - return str; -} - - -static EventSeqRec timerEventRec = { - {0, 0, NULL, _XtEventTimerEventType, 0L, 0L, NULL, False}, - /* (StatePtr) -1 */ NULL, - NULL, - NULL -}; - -static void RepeatDown( - EventPtr *eventP, - int reps, - ActionPtr **actionsP) -{ - EventRec upEventRec; - register EventPtr event, downEvent; - EventPtr upEvent = &upEventRec; - register int i; - - downEvent = event = *eventP; - *upEvent = *downEvent; - upEvent->event.eventType = ((event->event.eventType == ButtonPress) ? - ButtonRelease : KeyRelease); - if ((upEvent->event.eventType == ButtonRelease) - && (upEvent->event.modifiers != AnyModifier) - && (upEvent->event.modifiers | upEvent->event.modifierMask)) - upEvent->event.modifiers - |= buttonModifierMasks[event->event.eventCode]; - - if (event->event.lateModifiers) - event->event.lateModifiers->ref_count += (reps - 1) * 2; - - for (i=1; i<reps; i++) { - - /* up */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *upEvent; - - /* timer */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = timerEventRec; - - /* down */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *downEvent; - - } - - event->next = NULL; - *eventP = event; - *actionsP = &event->actions; -} - -static void RepeatDownPlus( - EventPtr *eventP, - int reps, - ActionPtr **actionsP) -{ - EventRec upEventRec; - register EventPtr event, downEvent, lastDownEvent = NULL; - EventPtr upEvent = &upEventRec; - register int i; - - downEvent = event = *eventP; - *upEvent = *downEvent; - upEvent->event.eventType = ((event->event.eventType == ButtonPress) ? - ButtonRelease : KeyRelease); - if ((upEvent->event.eventType == ButtonRelease) - && (upEvent->event.modifiers != AnyModifier) - && (upEvent->event.modifiers | upEvent->event.modifierMask)) - upEvent->event.modifiers - |= buttonModifierMasks[event->event.eventCode]; - - if (event->event.lateModifiers) - event->event.lateModifiers->ref_count += reps * 2 - 1; - - for (i=0; i<reps; i++) { - - if (i > 0) { - /* down */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *downEvent; - } - lastDownEvent = event; - - /* up */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *upEvent; - - /* timer */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = timerEventRec; - - } - - event->next = lastDownEvent; - *eventP = event; - *actionsP = &lastDownEvent->actions; -} - -static void RepeatUp( - EventPtr *eventP, - int reps, - ActionPtr **actionsP) -{ - EventRec upEventRec; - register EventPtr event, downEvent; - EventPtr upEvent = &upEventRec; - register int i; - - /* the event currently sitting in *eventP is an "up" event */ - /* we want to make it a "down" event followed by an "up" event, */ - /* so that sequence matching on the "state" side works correctly. */ - - downEvent = event = *eventP; - *upEvent = *downEvent; - downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ? - ButtonPress : KeyPress); - if ((downEvent->event.eventType == ButtonPress) - && (downEvent->event.modifiers != AnyModifier) - && (downEvent->event.modifiers | downEvent->event.modifierMask)) - downEvent->event.modifiers - &= ~buttonModifierMasks[event->event.eventCode]; - - if (event->event.lateModifiers) - event->event.lateModifiers->ref_count += reps * 2 - 1; - - /* up */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *upEvent; - - for (i=1; i<reps; i++) { - - /* timer */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = timerEventRec; - - /* down */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *downEvent; - - /* up */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *upEvent; - - } - - event->next = NULL; - *eventP = event; - *actionsP = &event->actions; -} - -static void RepeatUpPlus( - EventPtr *eventP, - int reps, - ActionPtr **actionsP) -{ - EventRec upEventRec; - register EventPtr event, downEvent, lastUpEvent = NULL; - EventPtr upEvent = &upEventRec; - register int i; - - /* the event currently sitting in *eventP is an "up" event */ - /* we want to make it a "down" event followed by an "up" event, */ - /* so that sequence matching on the "state" side works correctly. */ - - downEvent = event = *eventP; - *upEvent = *downEvent; - downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ? - ButtonPress : KeyPress); - if ((downEvent->event.eventType == ButtonPress) - && (downEvent->event.modifiers != AnyModifier) - && (downEvent->event.modifiers | downEvent->event.modifierMask)) - downEvent->event.modifiers - &= ~buttonModifierMasks[event->event.eventCode]; - - if (event->event.lateModifiers) - event->event.lateModifiers->ref_count += reps * 2; - - for (i=0; i<reps; i++) { - - /* up */ - event->next = XtNew(EventSeqRec); - lastUpEvent = event = event->next; - *event = *upEvent; - - /* timer */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = timerEventRec; - - /* down */ - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *downEvent; - - } - - event->next = lastUpEvent; - *eventP = event; - *actionsP = &lastUpEvent->actions; -} - -static void RepeatOther( - EventPtr *eventP, - int reps, - ActionPtr **actionsP) -{ - register EventPtr event, tempEvent; - register int i; - - tempEvent = event = *eventP; - - if (event->event.lateModifiers) - event->event.lateModifiers->ref_count += reps - 1; - - for (i=1; i<reps; i++) { - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *tempEvent; - } - - *eventP = event; - *actionsP = &event->actions; -} - -static void RepeatOtherPlus( - EventPtr *eventP, - int reps, - ActionPtr **actionsP) -{ - register EventPtr event, tempEvent; - register int i; - - tempEvent = event = *eventP; - - if (event->event.lateModifiers) - event->event.lateModifiers->ref_count += reps - 1; - - for (i=1; i<reps; i++) { - event->next = XtNew(EventSeqRec); - event = event->next; - *event = *tempEvent; - } - - event->next = event; - *eventP = event; - *actionsP = &event->actions; -} - -static void RepeatEvent( - EventPtr *eventP, - int reps, - Boolean plus, - ActionPtr **actionsP) -{ - switch ((*eventP)->event.eventType) { - - case ButtonPress: - case KeyPress: - if (plus) RepeatDownPlus(eventP, reps, actionsP); - else RepeatDown(eventP, reps, actionsP); - break; - - case ButtonRelease: - case KeyRelease: - if (plus) RepeatUpPlus(eventP, reps, actionsP); - else RepeatUp(eventP, reps, actionsP); - break; - - default: - if (plus) RepeatOtherPlus(eventP, reps, actionsP); - else RepeatOther(eventP, reps, actionsP); - } -} - -static String ParseRepeat( - register String str, - int *reps, - Boolean *plus, Boolean *error) -{ - - /*** Parse the repetitions, for double click etc... ***/ - if (*str != '(' || !(isdigit(str[1]) || str[1] == '+' || str[1] == ')')) - return str; - str++; - if (isdigit(*str)) { - String start = str; - char repStr[7]; - size_t len; - - ScanNumeric(str); - len = (str - start); - if (len < sizeof repStr) { - (void) memmove(repStr, start, len); - repStr[len] = '\0'; - *reps = StrToNum(repStr); - } else { - Syntax("Repeat count too large.", ""); - *error = TRUE; - return str; - } - } - if (*reps == 0) { - Syntax("Missing repeat count.",""); - *error = True; - return str; - } - - if (*str == '+') { - *plus = TRUE; - str++; - } - if (*str == ')') - str++; - else { - Syntax("Missing ')'.",""); - *error = TRUE; - } - - return str; -} - -/*********************************************************************** - * ParseEventSeq - * Parses the left hand side of a translation table production - * up to, and consuming the ":". - * Takes a pointer to a char* (where to start parsing) and returns an - * event seq (in a passed in variable), having updated the String - **********************************************************************/ - -static String ParseEventSeq( - register String str, - EventSeqPtr *eventSeqP, - ActionPtr **actionsP, - Boolean *error) -{ - EventSeqPtr *nextEvent = eventSeqP; - - *eventSeqP = NULL; - - while ( *str != '\0' && !IsNewline(*str)) { - static Event nullEvent = - {0, 0,NULL, 0, 0L, 0L,_XtRegularMatch,FALSE}; - EventPtr event; - - ScanWhitespace(str); - - if (*str == '"') { - str++; - while (*str != '"' && *str != '\0' && !IsNewline(*str)) { - event = XtNew(EventRec); - event->event = nullEvent; - event->state = /* (StatePtr) -1 */ NULL; - event->next = NULL; - event->actions = NULL; - str = ParseQuotedStringEvent(str, event,error); - if (*error) { - XtWarningMsg(XtNtranslationParseError, "nonLatin1", - XtCXtToolkitError, - "... probably due to non-Latin1 character in quoted string", - (String*)NULL, (Cardinal*)NULL); - return PanicModeRecovery(str); - } - *nextEvent = event; - *actionsP = &event->actions; - nextEvent = &event->next; - } - if (*str != '"') { - Syntax("Missing '\"'.",""); - *error = TRUE; - return PanicModeRecovery(str); - } - else str++; - } else { - int reps = 0; - Boolean plus = FALSE; - - event = XtNew(EventRec); - event->event = nullEvent; - event->state = /* (StatePtr) -1 */ NULL; - event->next = NULL; - event->actions = NULL; - - str = ParseEvent(str, event, &reps, &plus, error); - if (*error) return str; - *nextEvent = event; - *actionsP = &event->actions; - if (reps > 1 || plus) - RepeatEvent(&event, reps, plus, actionsP); - nextEvent = &event->next; - } - ScanWhitespace(str); - if (*str == ':') break; - else { - if (*str != ',') { - Syntax("',' or ':' expected while parsing event sequence.",""); - *error = TRUE; - return PanicModeRecovery(str); - } else str++; - } - } - - if (*str != ':') { - Syntax("Missing ':'after event sequence.",""); - *error = TRUE; - return PanicModeRecovery(str); - } else str++; - - return str; -} - - -static String ParseActionProc( - register String str, - XrmQuark *actionProcNameP, - Boolean *error) -{ - register String start = str; - char procName[200]; - - str = ScanIdent(str); - if (str-start >= 199) { - Syntax("Action procedure name is longer than 199 chars",""); - *error = TRUE; - return str; - } - (void) memmove(procName, start, str-start); - procName[str-start] = '\0'; - *actionProcNameP = XrmStringToQuark( procName ); - return str; -} - - -static String ParseString( - register String str, - String *strP) -{ - register String start; - - if (*str == '"') { - register unsigned prev_len, len; - str++; - start = str; - *strP = NULL; - prev_len = 0; - - while (*str != '"' && *str != '\0') { - /* \" produces double quote embedded in a quoted parameter - * \\" produces backslash as last character of a quoted parameter - */ - if (*str == '\\' && - (*(str+1) == '"' || (*(str+1) == '\\' && *(str+2) == '"'))) { - len = prev_len + (str-start+2); - *strP = XtRealloc(*strP, len); - (void) memmove(*strP + prev_len, start, str-start); - prev_len = len-1; - str++; - (*strP)[prev_len-1] = *str; - (*strP)[prev_len] = '\0'; - start = str+1; - } - str++; - } - len = prev_len + (str-start+1); - *strP = XtRealloc(*strP, len); - (void) memmove( *strP + prev_len, start, str-start); - (*strP)[len-1] = '\0'; - if (*str == '"') str++; else - XtWarningMsg(XtNtranslationParseError,"parseString", - XtCXtToolkitError,"Missing '\"'.", - (String *)NULL, (Cardinal *)NULL); - } else { - /* scan non-quoted string, stop on whitespace, ',' or ')' */ - start = str; - while (*str != ' ' - && *str != '\t' - && *str != ',' - && *str != ')' - && !IsNewline(*str) - && *str != '\0') str++; - *strP = __XtMalloc((unsigned)(str-start+1)); - (void) memmove(*strP, start, str-start); - (*strP)[str-start] = '\0'; - } - return str; -} - - -static String ParseParamSeq( - register String str, - String **paramSeqP, - Cardinal *paramNumP) -{ - typedef struct _ParamRec *ParamPtr; - typedef struct _ParamRec { - ParamPtr next; - String param; - } ParamRec; - - ParamPtr params = NULL; - register Cardinal num_params = 0; - register Cardinal i; - - ScanWhitespace(str); - while (*str != ')' && *str != '\0' && !IsNewline(*str)) { - String newStr; - str = ParseString(str, &newStr); - if (newStr != NULL) { - ParamPtr temp = (ParamRec*) - ALLOCATE_LOCAL( (unsigned)sizeof(ParamRec) ); - if (temp == NULL) _XtAllocError (NULL); - - num_params++; - temp->next = params; - params = temp; - temp->param = newStr; - ScanWhitespace(str); - if (*str == ',') { - str++; - ScanWhitespace(str); - } - } - } - - if (num_params != 0) { - String *paramP = (String *) - __XtMalloc( (unsigned)(num_params+1) * sizeof(String) ); - *paramSeqP = paramP; - *paramNumP = num_params; - paramP += num_params; /* list is LIFO right now */ - *paramP-- = NULL; - for (i=0; i < num_params; i++) { - ParamPtr next = params->next; - *paramP-- = params->param; - DEALLOCATE_LOCAL( (char *)params ); - params = next; - } - } else { - *paramSeqP = NULL; - *paramNumP = 0; - } - - return str; -} - -static String ParseAction( - String str, - ActionPtr actionP, - XrmQuark* quarkP, - Boolean* error) -{ - str = ParseActionProc(str, quarkP, error); - if (*error) return str; - - if (*str == '(') { - str++; - str = ParseParamSeq(str, &actionP->params, &actionP->num_params); - } else { - Syntax("Missing '(' while parsing action sequence",""); - *error = TRUE; - return str; - } - if (*str == ')') str++; - else{ - Syntax("Missing ')' while parsing action sequence",""); - *error = TRUE; - return str; - } - return str; -} - - -static String ParseActionSeq( - TMParseStateTree parseTree, - String str, - ActionPtr *actionsP, - Boolean *error) -{ - ActionPtr *nextActionP = actionsP; - - *actionsP = NULL; - while (*str != '\0' && !IsNewline(*str)) { - register ActionPtr action; - XrmQuark quark; - - action = XtNew(ActionRec); - action->params = NULL; - action->num_params = 0; - action->next = NULL; - - str = ParseAction(str, action, &quark, error); - if (*error) return PanicModeRecovery(str); - - action->idx = _XtGetQuarkIndex(parseTree, quark); - ScanWhitespace(str); - *nextActionP = action; - nextActionP = &action->next; - } - if (IsNewline(*str)) str++; - ScanWhitespace(str); - return str; -} - - -static void ShowProduction( - String currentProduction) -{ - Cardinal num_params = 1; - String params[1]; - size_t len; - char *eol, *production, productionbuf[500]; - -#ifdef __UNIXOS2__ - eol = strchr(currentProduction, '\r'); - if (!eol) /* try '\n' as well below */ -#endif - eol = strchr(currentProduction, '\n'); - if (eol) len = eol - currentProduction; - else len = strlen (currentProduction); - production = XtStackAlloc (len + 1, productionbuf); - if (production == NULL) _XtAllocError (NULL); - (void) memmove(production, currentProduction, len); - production[len] = '\0'; - - params[0] = production; - XtWarningMsg(XtNtranslationParseError, "showLine", XtCXtToolkitError, - "... found while parsing '%s'", params, &num_params); - - XtStackFree (production, productionbuf); -} - -/*********************************************************************** - * ParseTranslationTableProduction - * Parses one line of event bindings. - ***********************************************************************/ - -static String ParseTranslationTableProduction( - TMParseStateTree parseTree, - register String str, - Boolean* error) -{ - EventSeqPtr eventSeq = NULL; - ActionPtr *actionsP; - String production = str; - - actionsP = NULL; - str = ParseEventSeq(str, &eventSeq, &actionsP,error); - if (*error == TRUE) { - ShowProduction(production); - FreeEventSeq(eventSeq); - return (str); - } - ScanWhitespace(str); - str = ParseActionSeq(parseTree, str, actionsP, error); - if (*error == TRUE) { - ShowProduction(production); - FreeEventSeq(eventSeq); - return (str); - } - - _XtAddEventSeqToStateTree(eventSeq, parseTree); - FreeEventSeq(eventSeq); - return (str); -} - -static String CheckForPoundSign( - String str, - _XtTranslateOp defaultOp, - _XtTranslateOp *actualOpRtn) -{ - String start; - char operation[20]; - _XtTranslateOp opType; - - opType = defaultOp; - ScanWhitespace(str); - if (*str == '#') { - int len; - str++; - start = str; - str = ScanIdent(str); - len = MIN(19, str-start); - (void) memmove(operation, start, len); - operation[len] = '\0'; - if (!strcmp(operation,"replace")) - opType = XtTableReplace; - else if (!strcmp(operation,"augment")) - opType = XtTableAugment; - else if (!strcmp(operation,"override")) - opType = XtTableOverride; - ScanWhitespace(str); - if (IsNewline(*str)) { - str++; - ScanWhitespace(str); - } - } - *actualOpRtn = opType; - return str; -} - -static XtTranslations ParseTranslationTable( - String source, - Boolean isAccelerator, - _XtTranslateOp defaultOp, - Boolean* error) -{ - XtTranslations xlations; - TMStateTree stateTrees[8]; - TMParseStateTreeRec parseTreeRec, *parseTree = &parseTreeRec; - XrmQuark stackQuarks[200]; - TMBranchHeadRec stackBranchHeads[200]; - StatePtr stackComplexBranchHeads[200]; - _XtTranslateOp actualOp; - - if (source == NULL) - return (XtTranslations)NULL; - - source = CheckForPoundSign(source, defaultOp, &actualOp); - if (isAccelerator && actualOp == XtTableReplace) - actualOp = defaultOp; - - parseTree->isSimple = TRUE; - parseTree->mappingNotifyInterest = FALSE; - parseTree->isAccelerator = isAccelerator; - parseTree->isStackBranchHeads = - parseTree->isStackQuarks = - parseTree->isStackComplexBranchHeads = TRUE; - - parseTree->numQuarks = - parseTree->numBranchHeads = - parseTree->numComplexBranchHeads = 0; - - parseTree->quarkTblSize = - parseTree->branchHeadTblSize = - parseTree->complexBranchHeadTblSize = 200; - - parseTree->quarkTbl = stackQuarks; - parseTree->branchHeadTbl = stackBranchHeads; - parseTree->complexBranchHeadTbl = stackComplexBranchHeads; - - while (source != NULL && *source != '\0') { - source = ParseTranslationTableProduction(parseTree, source, error); - if (*error == TRUE) break; - } - stateTrees[0] = _XtParseTreeToStateTree(parseTree); - - if (!parseTree->isStackQuarks) - XtFree((char *)parseTree->quarkTbl); - if (!parseTree->isStackBranchHeads) - XtFree((char *)parseTree->branchHeadTbl); - if (!parseTree->isStackComplexBranchHeads) - XtFree((char *)parseTree->complexBranchHeadTbl); - - xlations = _XtCreateXlations(stateTrees, 1, NULL, NULL); - xlations->operation = actualOp; - -#ifdef notdef - XtFree(stateTrees); -#endif /* notdef */ - return xlations; -} - -/*** public procedures ***/ - -/*ARGSUSED*/ -Boolean XtCvtStringToAcceleratorTable( - Display* dpy, - XrmValuePtr args, - Cardinal *num_args, - XrmValuePtr from, - XrmValuePtr to, - XtPointer *closure) -{ - String str; - Boolean error = FALSE; - - if (*num_args != 0) - XtAppWarningMsg(XtDisplayToApplicationContext(dpy), - "wrongParameters","cvtStringToAcceleratorTable",XtCXtToolkitError, - "String to AcceleratorTable conversion needs no extra arguments", - (String *)NULL, (Cardinal *)NULL); - str = (String)(from->addr); - if (str == NULL) { - XtAppWarningMsg(XtDisplayToApplicationContext(dpy), - "badParameters","cvtStringToAcceleratorTable",XtCXtToolkitError, - "String to AcceleratorTable conversion needs string", - (String *)NULL, (Cardinal *)NULL); - return FALSE; - } - if (to->addr != NULL) { - if (to->size < sizeof(XtAccelerators)) { - to->size = sizeof(XtAccelerators); - return FALSE; - } - *(XtAccelerators*)to->addr = - (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error); - } - else { - static XtAccelerators staticStateTable; - staticStateTable = - (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error); - to->addr = (XPointer) &staticStateTable; - to->size = sizeof(XtAccelerators); - } - if (error == TRUE) - XtAppWarningMsg(XtDisplayToApplicationContext(dpy), - "parseError","cvtStringToAcceleratorTable",XtCXtToolkitError, - "String to AcceleratorTable conversion encountered errors", - (String *)NULL, (Cardinal *)NULL); - return (error != TRUE); -} - - -/*ARGSUSED*/ -Boolean -XtCvtStringToTranslationTable( - Display *dpy, - XrmValuePtr args, - Cardinal *num_args, - XrmValuePtr from, - XrmValuePtr to, - XtPointer *closure_ret) -{ - String str; - Boolean error = FALSE; - - if (*num_args != 0) - XtAppWarningMsg(XtDisplayToApplicationContext(dpy), - "wrongParameters","cvtStringToTranslationTable",XtCXtToolkitError, - "String to TranslationTable conversion needs no extra arguments", - (String *)NULL, (Cardinal *)NULL); - str = (String)(from->addr); - if (str == NULL) { - XtAppWarningMsg(XtDisplayToApplicationContext(dpy), - "badParameters","cvtStringToTranslation",XtCXtToolkitError, - "String to TranslationTable conversion needs string", - (String *)NULL, (Cardinal *)NULL); - return FALSE; - } - if (to->addr != NULL) { - if (to->size < sizeof(XtTranslations)) { - to->size = sizeof(XtTranslations); - return FALSE; - } - *(XtTranslations*)to->addr = - ParseTranslationTable(str, FALSE, XtTableReplace, &error); - } - else { - static XtTranslations staticStateTable; - staticStateTable = - ParseTranslationTable(str, FALSE, XtTableReplace, &error); - to->addr = (XPointer) &staticStateTable; - to->size = sizeof(XtTranslations); - } - if (error == TRUE) - XtAppWarningMsg(XtDisplayToApplicationContext(dpy), - "parseError","cvtStringToTranslationTable",XtCXtToolkitError, - "String to TranslationTable conversion encountered errors", - (String *)NULL, (Cardinal *)NULL); - return (error != TRUE); -} - - -/* - * Parses a user's or applications translation table - */ -XtAccelerators XtParseAcceleratorTable( - _Xconst char* source) -{ - Boolean error = FALSE; - XtAccelerators ret = - (XtAccelerators) ParseTranslationTable ((char *)source, TRUE, XtTableAugment, &error); - if (error == TRUE) - XtWarningMsg ("parseError", "cvtStringToAcceleratorTable", - XtCXtToolkitError, - "String to AcceleratorTable conversion encountered errors", - (String *)NULL, (Cardinal *)NULL); - return ret; -} - -XtTranslations XtParseTranslationTable( - _Xconst char* source) -{ - Boolean error = FALSE; - XtTranslations ret = ParseTranslationTable((char *)source, FALSE, XtTableReplace, &error); - if (error == TRUE) - XtWarningMsg ("parseError", - "cvtStringToTranslationTable", XtCXtToolkitError, - "String to TranslationTable conversion encountered errors", - (String *)NULL, (Cardinal *)NULL); - return ret; -} - -void _XtTranslateInitialize(void) -{ - LOCK_PROCESS; - if (initialized) { - XtWarningMsg("translationError","xtTranslateInitialize", - XtCXtToolkitError,"Initializing Translation manager twice.", - (String *)NULL, (Cardinal *)NULL); - UNLOCK_PROCESS; - return; - } - - initialized = TRUE; - UNLOCK_PROCESS; - QMeta = XrmPermStringToQuark("Meta"); - QCtrl = XrmPermStringToQuark("Ctrl"); - QNone = XrmPermStringToQuark("None"); - QAny = XrmPermStringToQuark("Any"); - - Compile_XtEventTable( events, XtNumber(events) ); - Compile_XtModifierTable( modifiers, XtNumber(modifiers) ); - CompileNameValueTable( buttonNames ); - CompileNameValueTable( notifyModes ); - CompileNameValueTable( motionDetails ); -#if 0 - CompileNameValueTable( notifyDetail ); - CompileNameValueTable( visibilityNotify ); - CompileNameValueTable( circulation ); - CompileNameValueTable( propertyChanged ); -#endif - CompileNameValueTable( mappingNotify ); -} - -void _XtAddTMConverters( - ConverterTable table) -{ - _XtTableAddConverter(table, - _XtQString, - XrmPermStringToQuark(XtRTranslationTable), - XtCvtStringToTranslationTable, (XtConvertArgList) NULL, - (Cardinal)0, True, CACHED, _XtFreeTranslations, True); - _XtTableAddConverter(table, _XtQString, - XrmPermStringToQuark(XtRAcceleratorTable), - XtCvtStringToAcceleratorTable, (XtConvertArgList) NULL, - (Cardinal)0, True, CACHED, _XtFreeTranslations, True); - _XtTableAddConverter(table, - XrmPermStringToQuark( _XtRStateTablePair ), - XrmPermStringToQuark(XtRTranslationTable), - _XtCvtMergeTranslations, (XtConvertArgList) NULL, - (Cardinal)0, True, CACHED, _XtFreeTranslations, True); -} +/***********************************************************
+Copyright (c) 1993, Oracle and/or its affiliates. All rights reserved.
+
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of this software and associated documentation files (the "Software"),
+to deal in the Software without restriction, including without limitation
+the rights to use, copy, modify, merge, publish, distribute, sublicense,
+and/or sell copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice (including the next
+paragraph) 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 AUTHORS OR COPYRIGHT HOLDERS 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.
+
+Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.
+
+ All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose and without fee is hereby granted,
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in
+supporting documentation, and that the name of Digital not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+******************************************************************/
+
+/*
+
+Copyright 1987, 1988, 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_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include <ctype.h>
+#include <stdlib.h>
+#ifndef NOTASCII
+#define XK_LATIN1
+#endif
+#define XK_MISCELLANY
+#include <X11/keysymdef.h>
+
+#ifdef CACHE_TRANSLATIONS
+# ifdef REFCNT_TRANSLATIONS
+# define CACHED XtCacheAll | XtCacheRefCount
+# else
+# define CACHED XtCacheAll
+# endif
+#else
+# define CACHED XtCacheNone
+#endif
+
+#ifndef MAX
+#define MAX(a,b) (((a) > (b)) ? (a) : (b))
+#endif
+
+#ifndef MIN
+#define MIN(a,b) (((a) < (b)) ? (a) : (b))
+#endif
+
+static String XtNtranslationParseError = "translationParseError";
+
+typedef int EventType;
+
+typedef String (*ParseProc)(
+ String /* str; */,
+ Opaque /* closure; */,
+ EventPtr /* event; */,
+ Boolean* /* error */);
+
+typedef TMShortCard Value;
+typedef void (*ModifierProc)(Value, LateBindingsPtr*, Boolean, Value*);
+
+typedef struct _ModifierRec {
+ char* name;
+ XrmQuark signature;
+ ModifierProc modifierParseProc;
+ Value value;
+} ModifierRec, *ModifierKeys;
+
+typedef struct _EventKey {
+ char *event;
+ XrmQuark signature;
+ EventType eventType;
+ ParseProc parseDetail;
+ Opaque closure;
+}EventKey, *EventKeys;
+
+typedef struct {
+ char *name;
+ XrmQuark signature;
+ Value value;
+} NameValueRec, *NameValueTable;
+
+static void ParseModImmed(Value, LateBindingsPtr*, Boolean, Value*);
+static void ParseModSym(Value, LateBindingsPtr*, Boolean, Value*);
+static String PanicModeRecovery(String);
+static String CheckForPoundSign(String, _XtTranslateOp, _XtTranslateOp *);
+static KeySym StringToKeySym(String, Boolean *);
+static ModifierRec modifiers[] = {
+ {"Shift", 0, ParseModImmed,ShiftMask},
+ {"Lock", 0, ParseModImmed,LockMask},
+ {"Ctrl", 0, ParseModImmed,ControlMask},
+ {"Mod1", 0, ParseModImmed,Mod1Mask},
+ {"Mod2", 0, ParseModImmed,Mod2Mask},
+ {"Mod3", 0, ParseModImmed,Mod3Mask},
+ {"Mod4", 0, ParseModImmed,Mod4Mask},
+ {"Mod5", 0, ParseModImmed,Mod5Mask},
+ {"Meta", 0, ParseModSym, XK_Meta_L},
+ {"m", 0, ParseModSym, XK_Meta_L},
+ {"h", 0, ParseModSym, XK_Hyper_L},
+ {"su", 0, ParseModSym, XK_Super_L},
+ {"a", 0, ParseModSym, XK_Alt_L},
+ {"Hyper", 0, ParseModSym, XK_Hyper_L},
+ {"Super", 0, ParseModSym, XK_Super_L},
+ {"Alt", 0, ParseModSym, XK_Alt_L},
+ {"Button1", 0, ParseModImmed,Button1Mask},
+ {"Button2", 0, ParseModImmed,Button2Mask},
+ {"Button3", 0, ParseModImmed,Button3Mask},
+ {"Button4", 0, ParseModImmed,Button4Mask},
+ {"Button5", 0, ParseModImmed,Button5Mask},
+ {"c", 0, ParseModImmed,ControlMask},
+ {"s", 0, ParseModImmed,ShiftMask},
+ {"l", 0, ParseModImmed,LockMask},
+};
+
+static NameValueRec buttonNames[] = {
+ {"Button1", 0, Button1},
+ {"Button2", 0, Button2},
+ {"Button3", 0, Button3},
+ {"Button4", 0, Button4},
+ {"Button5", 0, Button5},
+ {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec motionDetails[] = {
+ {"Normal", 0, NotifyNormal},
+ {"Hint", 0, NotifyHint},
+ {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec notifyModes[] = {
+ {"Normal", 0, NotifyNormal},
+ {"Grab", 0, NotifyGrab},
+ {"Ungrab", 0, NotifyUngrab},
+ {"WhileGrabbed", 0, NotifyWhileGrabbed},
+ {NULL, NULLQUARK, 0},
+};
+
+#if 0
+static NameValueRec notifyDetail[] = {
+ {"Ancestor", 0, NotifyAncestor},
+ {"Virtual", 0, NotifyVirtual},
+ {"Inferior", 0, NotifyInferior},
+ {"Nonlinear", 0, NotifyNonlinear},
+ {"NonlinearVirtual", 0, NotifyNonlinearVirtual},
+ {"Pointer", 0, NotifyPointer},
+ {"PointerRoot", 0, NotifyPointerRoot},
+ {"DetailNone", 0, NotifyDetailNone},
+ {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec visibilityNotify[] = {
+ {"Unobscured", 0, VisibilityUnobscured},
+ {"PartiallyObscured", 0, VisibilityPartiallyObscured},
+ {"FullyObscured", 0, VisibilityFullyObscured},
+ {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec circulation[] = {
+ {"OnTop", 0, PlaceOnTop},
+ {"OnBottom", 0, PlaceOnBottom},
+ {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec propertyChanged[] = {
+ {"NewValue", 0, PropertyNewValue},
+ {"Delete", 0, PropertyDelete},
+ {NULL, NULLQUARK, 0},
+};
+#endif /*0*/
+
+static NameValueRec mappingNotify[] = {
+ {"Modifier", 0, MappingModifier},
+ {"Keyboard", 0, MappingKeyboard},
+ {"Pointer", 0, MappingPointer},
+ {NULL, NULLQUARK, 0},
+};
+
+static String ParseKeySym(String, Opaque, EventPtr, Boolean*);
+static String ParseKeyAndModifiers(String, Opaque, EventPtr, Boolean*);
+static String ParseTable(String, Opaque, EventPtr, Boolean*);
+static String ParseImmed(String, Opaque, EventPtr, Boolean*);
+static String ParseAddModifier(String, Opaque, EventPtr, Boolean*);
+static String ParseNone(String, Opaque, EventPtr, Boolean*);
+static String ParseAtom(String, Opaque, EventPtr, Boolean*);
+
+static EventKey events[] = {
+
+/* Event Name, Quark, Event Type, Detail Parser, Closure */
+
+{"KeyPress", NULLQUARK, KeyPress, ParseKeySym, NULL},
+{"Key", NULLQUARK, KeyPress, ParseKeySym, NULL},
+{"KeyDown", NULLQUARK, KeyPress, ParseKeySym, NULL},
+{"Ctrl", NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ControlMask},
+{"Shift", NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ShiftMask},
+{"Meta", NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)NULL},
+{"KeyUp", NULLQUARK, KeyRelease, ParseKeySym, NULL},
+{"KeyRelease", NULLQUARK, KeyRelease, ParseKeySym, NULL},
+
+{"ButtonPress", NULLQUARK, ButtonPress, ParseTable,(Opaque)buttonNames},
+{"BtnDown", NULLQUARK, ButtonPress, ParseTable,(Opaque)buttonNames},
+{"Btn1Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button1},
+{"Btn2Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button2},
+{"Btn3Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button3},
+{"Btn4Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button4},
+{"Btn5Down", NULLQUARK, ButtonPress, ParseImmed,(Opaque)Button5},
+
+/* Event Name, Quark, Event Type, Detail Parser, Closure */
+
+{"ButtonRelease", NULLQUARK, ButtonRelease, ParseTable,(Opaque)buttonNames},
+{"BtnUp", NULLQUARK, ButtonRelease, ParseTable,(Opaque)buttonNames},
+{"Btn1Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button1},
+{"Btn2Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button2},
+{"Btn3Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button3},
+{"Btn4Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button4},
+{"Btn5Up", NULLQUARK, ButtonRelease, ParseImmed,(Opaque)Button5},
+
+{"MotionNotify", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"PtrMoved", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"Motion", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"MouseMoved", NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"BtnMotion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)AnyButtonMask},
+{"Btn1Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button1Mask},
+{"Btn2Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button2Mask},
+{"Btn3Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button3Mask},
+{"Btn4Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button4Mask},
+{"Btn5Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button5Mask},
+
+{"EnterNotify", NULLQUARK, EnterNotify, ParseTable,(Opaque)notifyModes},
+{"Enter", NULLQUARK, EnterNotify, ParseTable,(Opaque)notifyModes},
+{"EnterWindow", NULLQUARK, EnterNotify, ParseTable,(Opaque)notifyModes},
+
+{"LeaveNotify", NULLQUARK, LeaveNotify, ParseTable,(Opaque)notifyModes},
+{"LeaveWindow", NULLQUARK, LeaveNotify, ParseTable,(Opaque)notifyModes},
+{"Leave", NULLQUARK, LeaveNotify, ParseTable,(Opaque)notifyModes},
+
+/* Event Name, Quark, Event Type, Detail Parser, Closure */
+
+{"FocusIn", NULLQUARK, FocusIn, ParseTable,(Opaque)notifyModes},
+
+{"FocusOut", NULLQUARK, FocusOut, ParseTable,(Opaque)notifyModes},
+
+{"KeymapNotify", NULLQUARK, KeymapNotify, ParseNone, NULL},
+{"Keymap", NULLQUARK, KeymapNotify, ParseNone, NULL},
+
+{"Expose", NULLQUARK, Expose, ParseNone, NULL},
+
+{"GraphicsExpose", NULLQUARK, GraphicsExpose, ParseNone, NULL},
+{"GrExp", NULLQUARK, GraphicsExpose, ParseNone, NULL},
+
+{"NoExpose", NULLQUARK, NoExpose, ParseNone, NULL},
+{"NoExp", NULLQUARK, NoExpose, ParseNone, NULL},
+
+{"VisibilityNotify",NULLQUARK, VisibilityNotify,ParseNone, NULL},
+{"Visible", NULLQUARK, VisibilityNotify,ParseNone, NULL},
+
+{"CreateNotify", NULLQUARK, CreateNotify, ParseNone, NULL},
+{"Create", NULLQUARK, CreateNotify, ParseNone, NULL},
+
+/* Event Name, Quark, Event Type, Detail Parser, Closure */
+
+{"DestroyNotify", NULLQUARK, DestroyNotify, ParseNone, NULL},
+{"Destroy", NULLQUARK, DestroyNotify, ParseNone, NULL},
+
+{"UnmapNotify", NULLQUARK, UnmapNotify, ParseNone, NULL},
+{"Unmap", NULLQUARK, UnmapNotify, ParseNone, NULL},
+
+{"MapNotify", NULLQUARK, MapNotify, ParseNone, NULL},
+{"Map", NULLQUARK, MapNotify, ParseNone, NULL},
+
+{"MapRequest", NULLQUARK, MapRequest, ParseNone, NULL},
+{"MapReq", NULLQUARK, MapRequest, ParseNone, NULL},
+
+{"ReparentNotify", NULLQUARK, ReparentNotify, ParseNone, NULL},
+{"Reparent", NULLQUARK, ReparentNotify, ParseNone, NULL},
+
+{"ConfigureNotify", NULLQUARK, ConfigureNotify, ParseNone, NULL},
+{"Configure", NULLQUARK, ConfigureNotify, ParseNone, NULL},
+
+{"ConfigureRequest",NULLQUARK, ConfigureRequest,ParseNone, NULL},
+{"ConfigureReq", NULLQUARK, ConfigureRequest,ParseNone, NULL},
+
+/* Event Name, Quark, Event Type, Detail Parser, Closure */
+
+{"GravityNotify", NULLQUARK, GravityNotify, ParseNone, NULL},
+{"Grav", NULLQUARK, GravityNotify, ParseNone, NULL},
+
+{"ResizeRequest", NULLQUARK, ResizeRequest, ParseNone, NULL},
+{"ResReq", NULLQUARK, ResizeRequest, ParseNone, NULL},
+
+{"CirculateNotify", NULLQUARK, CirculateNotify, ParseNone, NULL},
+{"Circ", NULLQUARK, CirculateNotify, ParseNone, NULL},
+
+{"CirculateRequest",NULLQUARK, CirculateRequest,ParseNone, NULL},
+{"CircReq", NULLQUARK, CirculateRequest,ParseNone, NULL},
+
+{"PropertyNotify", NULLQUARK, PropertyNotify, ParseAtom, NULL},
+{"Prop", NULLQUARK, PropertyNotify, ParseAtom, NULL},
+
+{"SelectionClear", NULLQUARK, SelectionClear, ParseAtom, NULL},
+{"SelClr", NULLQUARK, SelectionClear, ParseAtom, NULL},
+
+{"SelectionRequest",NULLQUARK, SelectionRequest,ParseAtom, NULL},
+{"SelReq", NULLQUARK, SelectionRequest,ParseAtom, NULL},
+
+/* Event Name, Quark, Event Type, Detail Parser, Closure */
+
+{"SelectionNotify", NULLQUARK, SelectionNotify, ParseAtom, NULL},
+{"Select", NULLQUARK, SelectionNotify, ParseAtom, NULL},
+
+{"ColormapNotify", NULLQUARK, ColormapNotify, ParseNone, NULL},
+{"Clrmap", NULLQUARK, ColormapNotify, ParseNone, NULL},
+
+{"ClientMessage", NULLQUARK, ClientMessage, ParseAtom, NULL},
+{"Message", NULLQUARK, ClientMessage, ParseAtom, NULL},
+
+{"MappingNotify", NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify},
+{"Mapping", NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify},
+
+#ifdef DEBUG
+# ifdef notdef
+{"Timer", NULLQUARK, _XtTimerEventType,ParseNone, NULL},
+# endif /* notdef */
+{"EventTimer", NULLQUARK, _XtEventTimerEventType,ParseNone,NULL},
+#endif /* DEBUG */
+
+/* Event Name, Quark, Event Type, Detail Parser, Closure */
+
+};
+
+#ifndef __UNIXOS2__
+#define IsNewline(str) ((str) == '\n')
+#else
+#define IsNewline(str) ((str) == '\n' || (str) == '\r')
+#endif
+
+#define ScanFor(str, ch) \
+ while ((*(str) != (ch)) && (*(str) != '\0') && !IsNewline(*(str))) (str)++
+
+#define ScanNumeric(str) while ('0' <= *(str) && *(str) <= '9') (str)++
+
+#define ScanAlphanumeric(str) \
+ while (('A' <= *(str) && *(str) <= 'Z') || \
+ ('a' <= *(str) && *(str) <= 'z') || \
+ ('0' <= *(str) && *(str) <= '9')) (str)++
+
+#ifndef __UNIXOS2__
+#define ScanWhitespace(str) \
+ while (*(str) == ' ' || *(str) == '\t') (str)++
+#else
+#define ScanWhitespace(str) \
+ while (*(str) == ' ' || *(str) == '\t' || *(str) == '\r') (str)++
+#endif
+
+static Boolean initialized = FALSE;
+static XrmQuark QMeta;
+static XrmQuark QCtrl;
+static XrmQuark QNone;
+static XrmQuark QAny;
+
+static void FreeEventSeq(
+ EventSeqPtr eventSeq)
+{
+ register EventSeqPtr evs = eventSeq;
+
+ while (evs != NULL) {
+ evs->state = (StatePtr) evs;
+ if (evs->next != NULL
+ && evs->next->state == (StatePtr) evs->next)
+ evs->next = NULL;
+ evs = evs->next;
+ }
+
+ evs = eventSeq;
+ while (evs != NULL) {
+ register EventPtr event = evs;
+ evs = evs->next;
+ if (evs == event) evs = NULL;
+ XtFree((char *)event);
+ }
+}
+
+static void CompileNameValueTable(
+ NameValueTable table)
+{
+ register int i;
+
+ for (i=0; table[i].name; i++)
+ table[i].signature = XrmPermStringToQuark(table[i].name);
+}
+
+static int OrderEvents(_Xconst void *a, _Xconst void *b)
+{
+ return ((((_Xconst EventKey *)a)->signature <
+ ((_Xconst EventKey *)b)->signature) ? -1 : 1);
+}
+
+static void Compile_XtEventTable(
+ EventKeys table,
+ Cardinal count)
+{
+ register int i;
+ register EventKeys entry = table;
+
+ for (i=count; --i >= 0; entry++)
+ entry->signature = XrmPermStringToQuark(entry->event);
+ qsort(table, count, sizeof(EventKey), OrderEvents);
+}
+
+static int OrderModifiers(_Xconst void *a, _Xconst void *b)
+{
+ return ((((_Xconst ModifierRec *)a)->signature <
+ ((_Xconst ModifierRec *)b)->signature) ? -1 : 1);
+}
+
+static void Compile_XtModifierTable(
+ ModifierKeys table,
+ Cardinal count)
+{
+ register int i;
+ register ModifierKeys entry = table;
+
+ for (i=count; --i >= 0; entry++)
+ entry->signature = XrmPermStringToQuark(entry->name);
+ qsort(table, count, sizeof(ModifierRec), OrderModifiers);
+}
+
+static String PanicModeRecovery(
+ String str)
+{
+ ScanFor(str,'\n');
+ if (*str == '\n') str++;
+ return str;
+
+}
+
+
+static void Syntax(
+ String str0,String str1)
+{
+ Cardinal num_params = 2;
+ String params[2];
+
+ params[0] = str0;
+ params[1] = str1;
+ XtWarningMsg(XtNtranslationParseError,"parseError",XtCXtToolkitError,
+ "translation table syntax error: %s %s",params,&num_params);
+}
+
+
+
+static Cardinal LookupTMEventType(
+ String eventStr,
+ Boolean *error)
+{
+ register int i = 0, left, right;
+ register XrmQuark signature;
+ static int previous = 0;
+
+ LOCK_PROCESS;
+ if ((signature = StringToQuark(eventStr)) == events[previous].signature) {
+ UNLOCK_PROCESS;
+ return (Cardinal) previous;
+ }
+
+ left = 0;
+ right = XtNumber(events) - 1;
+ while (left <= right) {
+ i = (left + right) >> 1;
+ if (signature < events[i].signature)
+ right = i - 1;
+ else if (signature > events[i].signature)
+ left = i + 1;
+ else {
+ previous = i;
+ UNLOCK_PROCESS;
+ return (Cardinal) i;
+ }
+ }
+
+ Syntax("Unknown event type : ",eventStr);
+ *error = TRUE;
+ UNLOCK_PROCESS;
+ return (Cardinal) i;
+}
+
+static void StoreLateBindings(
+ KeySym keysymL,
+ Boolean notL,
+ KeySym keysymR,
+ Boolean notR,
+ LateBindingsPtr* lateBindings)
+{
+ LateBindingsPtr temp;
+ Boolean pair = FALSE;
+ unsigned long count,number;
+ if (lateBindings != NULL){
+ temp = *lateBindings;
+ if (temp != NULL) {
+ for (count = 0; temp[count].keysym; count++){/*EMPTY*/}
+ }
+ else count = 0;
+ if (! keysymR){
+ number = 1;pair = FALSE;
+ } else{
+ number = 2;pair = TRUE;
+ }
+
+ temp = (LateBindingsPtr)XtRealloc((char *)temp,
+ (unsigned)((count+number+1) * sizeof(LateBindings)) );
+ *lateBindings = temp;
+ temp[count].knot = notL;
+ temp[count].pair = pair;
+ if (count == 0)
+ temp[count].ref_count = 1;
+ temp[count++].keysym = keysymL;
+ if (keysymR){
+ temp[count].knot = notR;
+ temp[count].pair = FALSE;
+ temp[count].ref_count = 0;
+ temp[count++].keysym = keysymR;
+ }
+ temp[count].knot = temp[count].pair = FALSE;
+ temp[count].ref_count = 0;
+ temp[count].keysym = 0;
+ }
+}
+
+static void _XtParseKeysymMod(
+ String name,
+ LateBindingsPtr* lateBindings,
+ Boolean notFlag,
+ Value *valueP,
+ Boolean *error)
+{
+ KeySym keySym;
+ keySym = StringToKeySym(name, error);
+ *valueP = 0;
+ if (keySym != NoSymbol) {
+ StoreLateBindings(keySym,notFlag,(KeySym) NULL,FALSE,lateBindings);
+ }
+}
+
+static Boolean _XtLookupModifier(
+ XrmQuark signature,
+ LateBindingsPtr* lateBindings,
+ Boolean notFlag,
+ Value *valueP,
+ Bool constMask)
+{
+ register int i, left, right;
+ static int previous = 0;
+
+ LOCK_PROCESS;
+ if (signature == modifiers[previous].signature) {
+ if (constMask) *valueP = modifiers[previous].value;
+ else /* if (modifiers[previous].modifierParseProc) always true */
+ (*modifiers[previous].modifierParseProc)
+ (modifiers[previous].value, lateBindings, notFlag, valueP);
+ UNLOCK_PROCESS;
+ return TRUE;
+ }
+
+ left = 0;
+ right = XtNumber(modifiers) - 1;
+ while (left <= right) {
+ i = (left + right) >> 1;
+ if (signature < modifiers[i].signature)
+ right = i - 1;
+ else if (signature > modifiers[i].signature)
+ left = i + 1;
+ else {
+ previous = i;
+ if (constMask) *valueP = modifiers[i].value;
+ else /* if (modifiers[i].modifierParseProc) always true */
+ (*modifiers[i].modifierParseProc)
+ (modifiers[i].value, lateBindings, notFlag, valueP);
+ UNLOCK_PROCESS;
+ return TRUE;
+ }
+ }
+ UNLOCK_PROCESS;
+ return FALSE;
+}
+
+
+static String ScanIdent(
+ register String str)
+{
+ ScanAlphanumeric(str);
+ while (
+ ('A' <= *str && *str <= 'Z')
+ || ('a' <= *str && *str <= 'z')
+ || ('0' <= *str && *str <= '9')
+ || (*str == '-')
+ || (*str == '_')
+ || (*str == '$')
+ ) str++;
+ return str;
+}
+
+static String FetchModifierToken(
+ String str,
+ XrmQuark *token_return)
+{
+ String start = str;
+
+ if (*str == '$') {
+ *token_return = QMeta;
+ str++;
+ return str;
+ }
+ if (*str == '^') {
+ *token_return = QCtrl;
+ str++;
+ return str;
+ }
+ str = ScanIdent(str);
+ if (start != str) {
+ char modStrbuf[100];
+ char* modStr;
+
+ modStr = XtStackAlloc ((size_t)(str - start + 1), modStrbuf);
+ if (modStr == NULL) _XtAllocError (NULL);
+ (void) memmove(modStr, start, str-start);
+ modStr[str-start] = '\0';
+ *token_return = XrmStringToQuark(modStr);
+ XtStackFree (modStr, modStrbuf);
+ return str;
+ }
+ return str;
+}
+
+static String ParseModifiers(
+ register String str,
+ EventPtr event,
+ Boolean* error)
+{
+ register String start;
+ Boolean notFlag, exclusive, keysymAsMod;
+ Value maskBit;
+ XrmQuark Qmod;
+
+ ScanWhitespace(str);
+ start = str;
+ str = FetchModifierToken(str, &Qmod);
+ exclusive = FALSE;
+ if (start != str) {
+ if (Qmod == QNone) {
+ event->event.modifierMask = ~0;
+ event->event.modifiers = 0;
+ ScanWhitespace(str);
+ return str;
+ } else if (Qmod == QAny) { /*backward compatability*/
+ event->event.modifierMask = 0;
+ event->event.modifiers = AnyModifier;
+ ScanWhitespace(str);
+ return str;
+ }
+ str = start; /*if plain modifier, reset to beginning */
+ }
+ else while (*str == '!' || *str == ':') {
+ if (*str == '!') {
+ exclusive = TRUE;
+ str++;
+ ScanWhitespace(str);
+ }
+ if (*str == ':') {
+ event->event.standard = TRUE;
+ str++;
+ ScanWhitespace(str);
+ }
+ }
+
+ while (*str != '<') {
+ if (*str == '~') {
+ notFlag = TRUE;
+ str++;
+ } else
+ notFlag = FALSE;
+ if (*str == '@') {
+ keysymAsMod = TRUE;
+ str++;
+ }
+ else keysymAsMod = FALSE;
+ start = str;
+ str = FetchModifierToken(str, &Qmod);
+ if (start == str) {
+ Syntax("Modifier or '<' expected","");
+ *error = TRUE;
+ return PanicModeRecovery(str);
+ }
+ if (keysymAsMod) {
+ _XtParseKeysymMod(XrmQuarkToString(Qmod),
+ &event->event.lateModifiers,
+ notFlag,&maskBit, error);
+ if (*error)
+ return PanicModeRecovery(str);
+
+ } else
+ if (!_XtLookupModifier(Qmod, &event->event.lateModifiers,
+ notFlag, &maskBit, FALSE)) {
+ Syntax("Unknown modifier name: ", XrmQuarkToString(Qmod));
+ *error = TRUE;
+ return PanicModeRecovery(str);
+ }
+ event->event.modifierMask |= maskBit;
+ if (notFlag) event->event.modifiers &= ~maskBit;
+ else event->event.modifiers |= maskBit;
+ ScanWhitespace(str);
+ }
+ if (exclusive) event->event.modifierMask = ~0;
+ return str;
+}
+
+static String ParseXtEventType(
+ register String str,
+ EventPtr event,
+ Cardinal *tmEventP,
+ Boolean* error)
+{
+ String start = str;
+ char eventTypeStrbuf[100];
+ char* eventTypeStr;
+
+ ScanAlphanumeric(str);
+ eventTypeStr = XtStackAlloc ((size_t)(str - start + 1), eventTypeStrbuf);
+ if (eventTypeStr == NULL) _XtAllocError (NULL);
+ (void) memmove(eventTypeStr, start, str-start);
+ eventTypeStr[str-start] = '\0';
+ *tmEventP = LookupTMEventType(eventTypeStr,error);
+ XtStackFree (eventTypeStr, eventTypeStrbuf);
+ if (*error)
+ return PanicModeRecovery(str);
+ event->event.eventType = events[*tmEventP].eventType;
+ return str;
+}
+
+static unsigned long StrToHex(
+ String str)
+{
+ register char c;
+ register unsigned long val = 0;
+
+ while ((c = *str)) {
+ if ('0' <= c && c <= '9') val = val*16+c-'0';
+ else if ('a' <= c && c <= 'z') val = val*16+c-'a'+10;
+ else if ('A' <= c && c <= 'Z') val = val*16+c-'A'+10;
+ else return 0;
+ str++;
+ }
+
+ return val;
+}
+
+static unsigned long StrToOct(
+ String str)
+{
+ register char c;
+ register unsigned long val = 0;
+
+ while ((c = *str)) {
+ if ('0' <= c && c <= '7') val = val*8+c-'0'; else return 0;
+ str++;
+ }
+
+ return val;
+}
+
+static unsigned long StrToNum(
+ String str)
+{
+ register char c;
+ register unsigned long val = 0;
+
+ if (*str == '0') {
+ str++;
+ if (*str == 'x' || *str == 'X') return StrToHex(++str);
+ else return StrToOct(str);
+ }
+
+ while ((c = *str)) {
+ if ('0' <= c && c <= '9') val = val*10+c-'0';
+ else return 0;
+ str++;
+ }
+
+ return val;
+}
+
+static KeySym StringToKeySym(
+ String str,
+ Boolean *error)
+{
+ KeySym k;
+
+ if (str == NULL || *str == '\0') return (KeySym) 0;
+
+#ifndef NOTASCII
+ /* special case single character ASCII, for speed */
+ if (*(str+1) == '\0') {
+ if (' ' <= *str && *str <= '~') return XK_space + (*str - ' ');
+ }
+#endif
+
+ if ('0' <= *str && *str <= '9') return (KeySym) StrToNum(str);
+ k = XStringToKeysym(str);
+ if (k != NoSymbol) return k;
+
+#ifdef NOTASCII
+ /* fall-back case to preserve backwards compatibility; no-one
+ * should be relying upon this!
+ */
+ if (*(str+1) == '\0') return (KeySym) *str;
+#endif
+
+ Syntax("Unknown keysym name: ", str);
+ *error = TRUE;
+ return NoSymbol;
+}
+/* ARGSUSED */
+static void ParseModImmed(
+ Value value,
+ LateBindingsPtr* lateBindings,
+ Boolean notFlag,
+ Value* valueP)
+{
+ *valueP = value;
+}
+
+ /* is only valid with keysyms that have an _L and _R in their name;
+ * and ignores keysym lookup errors (i.e. assumes only valid keysyms)
+ */
+static void ParseModSym(
+ Value value,
+ LateBindingsPtr* lateBindings,
+ Boolean notFlag,
+ Value* valueP)
+{
+ register KeySym keysymL = (KeySym)value;
+ register KeySym keysymR = keysymL + 1; /* valid for supported keysyms */
+ StoreLateBindings(keysymL,notFlag,keysymR,notFlag,lateBindings);
+ *valueP = 0;
+}
+
+#ifdef sparc
+/*
+ * The stupid optimizer in SunOS 4.0.3 and below generates bogus code that
+ * causes the value of the most recently used variable to be returned instead
+ * of the value passed in.
+ */
+static String stupid_optimizer_kludge;
+#define BROKEN_OPTIMIZER_HACK(val) stupid_optimizer_kludge = (val)
+#else
+#define BROKEN_OPTIMIZER_HACK(val) val
+#endif
+
+/* ARGSUSED */
+static String ParseImmed(
+ register String str,
+ register Opaque closure,
+ register EventPtr event,
+ Boolean* error)
+{
+ event->event.eventCode = (unsigned long)closure;
+ event->event.eventCodeMask = ~0UL;
+
+ return BROKEN_OPTIMIZER_HACK(str);
+}
+
+/* ARGSUSED */
+static String ParseAddModifier(
+ register String str,
+ register Opaque closure,
+ register EventPtr event,
+ Boolean* error)
+{
+ register unsigned long modval = (unsigned long)closure;
+ event->event.modifiers |= modval;
+ if (modval != AnyButtonMask) /* AnyButtonMask is don't-care mask */
+ event->event.modifierMask |= modval;
+
+ return BROKEN_OPTIMIZER_HACK(str);
+}
+
+
+static String ParseKeyAndModifiers(
+ String str,
+ Opaque closure,
+ EventPtr event,
+ Boolean* error)
+{
+ str = ParseKeySym(str, closure, event,error);
+ if ((unsigned long) closure == 0) {
+ Value metaMask; /* unused */
+ (void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE,
+ &metaMask, FALSE);
+ } else {
+ event->event.modifiers |= (unsigned long) closure;
+ event->event.modifierMask |= (unsigned long) closure;
+ }
+ return str;
+}
+
+/*ARGSUSED*/
+static String ParseKeySym(
+ register String str,
+ Opaque closure,
+ EventPtr event,
+ Boolean* error)
+{
+ char *start;
+ char keySymNamebuf[100];
+ char* keySymName;
+
+ ScanWhitespace(str);
+
+ if (*str == '\\') {
+ keySymName = keySymNamebuf;
+ str++;
+ keySymName[0] = *str;
+ if (*str != '\0' && !IsNewline(*str)) str++;
+ keySymName[1] = '\0';
+ event->event.eventCode = StringToKeySym(keySymName, error);
+ event->event.eventCodeMask = ~0L;
+ } else if (*str == ',' || *str == ':' ||
+ /* allow leftparen to be single char symbol,
+ * for backwards compatibility
+ */
+ (*str == '(' && *(str+1) >= '0' && *(str+1) <= '9')) {
+ keySymName = keySymNamebuf; /* just so we can stackfree it later */
+ /* no detail */
+ event->event.eventCode = 0L;
+ event->event.eventCodeMask = 0L;
+ } else {
+ start = str;
+ while (
+ *str != ','
+ && *str != ':'
+ && *str != ' '
+ && *str != '\t'
+ && !IsNewline(*str)
+ && (*str != '(' || *(str+1) <= '0' || *(str+1) >= '9')
+ && *str != '\0') str++;
+ keySymName = XtStackAlloc ((size_t)(str - start + 1), keySymNamebuf);
+ (void) memmove(keySymName, start, str-start);
+ keySymName[str-start] = '\0';
+ event->event.eventCode = StringToKeySym(keySymName, error);
+ event->event.eventCodeMask = ~0L;
+ }
+ if (*error) {
+ /* We never get here when keySymName hasn't been allocated */
+ if (keySymName[0] == '<') {
+ /* special case for common error */
+ XtWarningMsg(XtNtranslationParseError, "missingComma",
+ XtCXtToolkitError,
+ "... possibly due to missing ',' in event sequence.",
+ (String*)NULL, (Cardinal*)NULL);
+ }
+ XtStackFree (keySymName, keySymNamebuf);
+ return PanicModeRecovery(str);
+ }
+ if (event->event.standard)
+ event->event.matchEvent = _XtMatchUsingStandardMods;
+ else
+ event->event.matchEvent = _XtMatchUsingDontCareMods;
+
+ XtStackFree (keySymName, keySymNamebuf);
+
+ return str;
+}
+
+static String ParseTable(
+ register String str,
+ Opaque closure,
+ EventPtr event,
+ Boolean* error)
+{
+ register String start = str;
+ register XrmQuark signature;
+ NameValueTable table = (NameValueTable) closure;
+ char tableSymName[100];
+
+ event->event.eventCode = 0L;
+ ScanAlphanumeric(str);
+ if (str == start) {event->event.eventCodeMask = 0L; return str; }
+ if (str-start >= 99) {
+ Syntax("Invalid Detail Type (string is too long).", "");
+ *error = TRUE;
+ return str;
+ }
+ (void) memmove(tableSymName, start, str-start);
+ tableSymName[str-start] = '\0';
+ signature = StringToQuark(tableSymName);
+ for (; table->signature != NULLQUARK; table++)
+ if (table->signature == signature) {
+ event->event.eventCode = table->value;
+ event->event.eventCodeMask = ~0L;
+ return str;
+ }
+
+ Syntax("Unknown Detail Type: ", tableSymName);
+ *error = TRUE;
+ return PanicModeRecovery(str);
+}
+
+/*ARGSUSED*/
+static String ParseNone(
+ String str,
+ Opaque closure,
+ EventPtr event,
+ Boolean* error)
+{
+ event->event.eventCode = 0;
+ event->event.eventCodeMask = 0;
+
+ return BROKEN_OPTIMIZER_HACK(str);
+}
+
+/*ARGSUSED*/
+static String ParseAtom(
+ String str,
+ Opaque closure,
+ EventPtr event,
+ Boolean* error)
+{
+ ScanWhitespace(str);
+
+ if (*str == ',' || *str == ':') {
+ /* no detail */
+ event->event.eventCode = 0L;
+ event->event.eventCodeMask = 0L;
+ } else {
+ char *start, atomName[1000];
+ start = str;
+ while (
+ *str != ','
+ && *str != ':'
+ && *str != ' '
+ && *str != '\t'
+ && !IsNewline(*str)
+ && *str != '\0') str++;
+ if (str-start >= 999) {
+ Syntax( "Atom name must be less than 1000 characters long.", "" );
+ *error = TRUE;
+ return str;
+ }
+ (void) memmove(atomName, start, str-start);
+ atomName[str-start] = '\0';
+ event->event.eventCode = XrmStringToQuark(atomName);
+ event->event.matchEvent = _XtMatchAtom;
+ }
+ return str;
+}
+
+static ModifierMask buttonModifierMasks[] = {
+ 0, Button1Mask, Button2Mask, Button3Mask, Button4Mask, Button5Mask
+};
+static String ParseRepeat(String, int *, Boolean *, Boolean *);
+
+static String ParseEvent(
+ register String str,
+ EventPtr event,
+ int* reps,
+ Boolean* plus,
+ Boolean* error)
+{
+ Cardinal tmEvent;
+
+ str = ParseModifiers(str, event,error);
+ if (*error) return str;
+ if (*str != '<') {
+ Syntax("Missing '<' while parsing event type.","");
+ *error = TRUE;
+ return PanicModeRecovery(str);
+ }
+ else str++;
+ str = ParseXtEventType(str, event, &tmEvent,error);
+ if (*error) return str;
+ if (*str != '>'){
+ Syntax("Missing '>' while parsing event type","");
+ *error = TRUE;
+ return PanicModeRecovery(str);
+ }
+ else str++;
+ if (*str == '(') {
+ str = ParseRepeat(str, reps, plus, error);
+ if (*error) return str;
+ }
+ str = (*(events[tmEvent].parseDetail))(
+ str, events[tmEvent].closure, event,error);
+ if (*error) return str;
+
+/* gross hack! ||| this kludge is related to the X11 protocol deficiency w.r.t.
+ * modifiers in grabs.
+ */
+ if ((event->event.eventType == ButtonRelease)
+ && (event->event.modifiers | event->event.modifierMask) /* any */
+ && (event->event.modifiers != AnyModifier))
+ {
+ event->event.modifiers
+ |= buttonModifierMasks[event->event.eventCode];
+ /* the button that is going up will always be in the modifiers... */
+ }
+
+ return str;
+}
+
+static String ParseQuotedStringEvent(
+ register String str,
+ register EventPtr event,
+ Boolean *error)
+{
+ Value metaMask;
+ char s[2];
+
+ if (*str=='^') {
+ str++;
+ event->event.modifiers = ControlMask;
+ } else if (*str == '$') {
+ str++;
+ (void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE,
+ &metaMask, FALSE);
+ }
+ if (*str == '\\')
+ str++;
+ s[0] = *str;
+ s[1] = '\0';
+ if (*str != '\0' && !IsNewline(*str)) str++;
+ event->event.eventType = KeyPress;
+ event->event.eventCode = StringToKeySym(s, error);
+ if (*error) return PanicModeRecovery(str);
+ event->event.eventCodeMask = ~0L;
+ event->event.matchEvent = _XtMatchUsingStandardMods;
+ event->event.standard = TRUE;
+
+ return str;
+}
+
+
+static EventSeqRec timerEventRec = {
+ {0, 0, NULL, _XtEventTimerEventType, 0L, 0L, NULL, False},
+ /* (StatePtr) -1 */ NULL,
+ NULL,
+ NULL
+};
+
+static void RepeatDown(
+ EventPtr *eventP,
+ int reps,
+ ActionPtr **actionsP)
+{
+ EventRec upEventRec;
+ register EventPtr event, downEvent;
+ EventPtr upEvent = &upEventRec;
+ register int i;
+
+ downEvent = event = *eventP;
+ *upEvent = *downEvent;
+ upEvent->event.eventType = ((event->event.eventType == ButtonPress) ?
+ ButtonRelease : KeyRelease);
+ if ((upEvent->event.eventType == ButtonRelease)
+ && (upEvent->event.modifiers != AnyModifier)
+ && (upEvent->event.modifiers | upEvent->event.modifierMask))
+ upEvent->event.modifiers
+ |= buttonModifierMasks[event->event.eventCode];
+
+ if (event->event.lateModifiers)
+ event->event.lateModifiers->ref_count += (reps - 1) * 2;
+
+ for (i=1; i<reps; i++) {
+
+ /* up */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *upEvent;
+
+ /* timer */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = timerEventRec;
+
+ /* down */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *downEvent;
+
+ }
+
+ event->next = NULL;
+ *eventP = event;
+ *actionsP = &event->actions;
+}
+
+static void RepeatDownPlus(
+ EventPtr *eventP,
+ int reps,
+ ActionPtr **actionsP)
+{
+ EventRec upEventRec;
+ register EventPtr event, downEvent, lastDownEvent = NULL;
+ EventPtr upEvent = &upEventRec;
+ register int i;
+
+ downEvent = event = *eventP;
+ *upEvent = *downEvent;
+ upEvent->event.eventType = ((event->event.eventType == ButtonPress) ?
+ ButtonRelease : KeyRelease);
+ if ((upEvent->event.eventType == ButtonRelease)
+ && (upEvent->event.modifiers != AnyModifier)
+ && (upEvent->event.modifiers | upEvent->event.modifierMask))
+ upEvent->event.modifiers
+ |= buttonModifierMasks[event->event.eventCode];
+
+ if (event->event.lateModifiers)
+ event->event.lateModifiers->ref_count += reps * 2 - 1;
+
+ for (i=0; i<reps; i++) {
+
+ if (i > 0) {
+ /* down */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *downEvent;
+ }
+ lastDownEvent = event;
+
+ /* up */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *upEvent;
+
+ /* timer */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = timerEventRec;
+
+ }
+
+ event->next = lastDownEvent;
+ *eventP = event;
+ *actionsP = &lastDownEvent->actions;
+}
+
+static void RepeatUp(
+ EventPtr *eventP,
+ int reps,
+ ActionPtr **actionsP)
+{
+ EventRec upEventRec;
+ register EventPtr event, downEvent;
+ EventPtr upEvent = &upEventRec;
+ register int i;
+
+ /* the event currently sitting in *eventP is an "up" event */
+ /* we want to make it a "down" event followed by an "up" event, */
+ /* so that sequence matching on the "state" side works correctly. */
+
+ downEvent = event = *eventP;
+ *upEvent = *downEvent;
+ downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ?
+ ButtonPress : KeyPress);
+ if ((downEvent->event.eventType == ButtonPress)
+ && (downEvent->event.modifiers != AnyModifier)
+ && (downEvent->event.modifiers | downEvent->event.modifierMask))
+ downEvent->event.modifiers
+ &= ~buttonModifierMasks[event->event.eventCode];
+
+ if (event->event.lateModifiers)
+ event->event.lateModifiers->ref_count += reps * 2 - 1;
+
+ /* up */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *upEvent;
+
+ for (i=1; i<reps; i++) {
+
+ /* timer */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = timerEventRec;
+
+ /* down */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *downEvent;
+
+ /* up */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *upEvent;
+
+ }
+
+ event->next = NULL;
+ *eventP = event;
+ *actionsP = &event->actions;
+}
+
+static void RepeatUpPlus(
+ EventPtr *eventP,
+ int reps,
+ ActionPtr **actionsP)
+{
+ EventRec upEventRec;
+ register EventPtr event, downEvent, lastUpEvent = NULL;
+ EventPtr upEvent = &upEventRec;
+ register int i;
+
+ /* the event currently sitting in *eventP is an "up" event */
+ /* we want to make it a "down" event followed by an "up" event, */
+ /* so that sequence matching on the "state" side works correctly. */
+
+ downEvent = event = *eventP;
+ *upEvent = *downEvent;
+ downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ?
+ ButtonPress : KeyPress);
+ if ((downEvent->event.eventType == ButtonPress)
+ && (downEvent->event.modifiers != AnyModifier)
+ && (downEvent->event.modifiers | downEvent->event.modifierMask))
+ downEvent->event.modifiers
+ &= ~buttonModifierMasks[event->event.eventCode];
+
+ if (event->event.lateModifiers)
+ event->event.lateModifiers->ref_count += reps * 2;
+
+ for (i=0; i<reps; i++) {
+
+ /* up */
+ event->next = XtNew(EventSeqRec);
+ lastUpEvent = event = event->next;
+ *event = *upEvent;
+
+ /* timer */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = timerEventRec;
+
+ /* down */
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *downEvent;
+
+ }
+
+ event->next = lastUpEvent;
+ *eventP = event;
+ *actionsP = &lastUpEvent->actions;
+}
+
+static void RepeatOther(
+ EventPtr *eventP,
+ int reps,
+ ActionPtr **actionsP)
+{
+ register EventPtr event, tempEvent;
+ register int i;
+
+ tempEvent = event = *eventP;
+
+ if (event->event.lateModifiers)
+ event->event.lateModifiers->ref_count += reps - 1;
+
+ for (i=1; i<reps; i++) {
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *tempEvent;
+ }
+
+ *eventP = event;
+ *actionsP = &event->actions;
+}
+
+static void RepeatOtherPlus(
+ EventPtr *eventP,
+ int reps,
+ ActionPtr **actionsP)
+{
+ register EventPtr event, tempEvent;
+ register int i;
+
+ tempEvent = event = *eventP;
+
+ if (event->event.lateModifiers)
+ event->event.lateModifiers->ref_count += reps - 1;
+
+ for (i=1; i<reps; i++) {
+ event->next = XtNew(EventSeqRec);
+ event = event->next;
+ *event = *tempEvent;
+ }
+
+ event->next = event;
+ *eventP = event;
+ *actionsP = &event->actions;
+}
+
+static void RepeatEvent(
+ EventPtr *eventP,
+ int reps,
+ Boolean plus,
+ ActionPtr **actionsP)
+{
+ switch ((*eventP)->event.eventType) {
+
+ case ButtonPress:
+ case KeyPress:
+ if (plus) RepeatDownPlus(eventP, reps, actionsP);
+ else RepeatDown(eventP, reps, actionsP);
+ break;
+
+ case ButtonRelease:
+ case KeyRelease:
+ if (plus) RepeatUpPlus(eventP, reps, actionsP);
+ else RepeatUp(eventP, reps, actionsP);
+ break;
+
+ default:
+ if (plus) RepeatOtherPlus(eventP, reps, actionsP);
+ else RepeatOther(eventP, reps, actionsP);
+ }
+}
+
+static String ParseRepeat(
+ register String str,
+ int *reps,
+ Boolean *plus, Boolean *error)
+{
+
+ /*** Parse the repetitions, for double click etc... ***/
+ if (*str != '(' || !(isdigit(str[1]) || str[1] == '+' || str[1] == ')'))
+ return str;
+ str++;
+ if (isdigit(*str)) {
+ String start = str;
+ char repStr[7];
+ size_t len;
+
+ ScanNumeric(str);
+ len = (str - start);
+ if (len < sizeof repStr) {
+ (void) memmove(repStr, start, len);
+ repStr[len] = '\0';
+ *reps = StrToNum(repStr);
+ } else {
+ Syntax("Repeat count too large.", "");
+ *error = TRUE;
+ return str;
+ }
+ }
+ if (*reps == 0) {
+ Syntax("Missing repeat count.","");
+ *error = True;
+ return str;
+ }
+
+ if (*str == '+') {
+ *plus = TRUE;
+ str++;
+ }
+ if (*str == ')')
+ str++;
+ else {
+ Syntax("Missing ')'.","");
+ *error = TRUE;
+ }
+
+ return str;
+}
+
+/***********************************************************************
+ * ParseEventSeq
+ * Parses the left hand side of a translation table production
+ * up to, and consuming the ":".
+ * Takes a pointer to a char* (where to start parsing) and returns an
+ * event seq (in a passed in variable), having updated the String
+ **********************************************************************/
+
+static String ParseEventSeq(
+ register String str,
+ EventSeqPtr *eventSeqP,
+ ActionPtr **actionsP,
+ Boolean *error)
+{
+ EventSeqPtr *nextEvent = eventSeqP;
+
+ *eventSeqP = NULL;
+
+ while ( *str != '\0' && !IsNewline(*str)) {
+ static Event nullEvent =
+ {0, 0,NULL, 0, 0L, 0L,_XtRegularMatch,FALSE};
+ EventPtr event;
+
+ ScanWhitespace(str);
+
+ if (*str == '"') {
+ str++;
+ while (*str != '"' && *str != '\0' && !IsNewline(*str)) {
+ event = XtNew(EventRec);
+ event->event = nullEvent;
+ event->state = /* (StatePtr) -1 */ NULL;
+ event->next = NULL;
+ event->actions = NULL;
+ str = ParseQuotedStringEvent(str, event,error);
+ if (*error) {
+ XtWarningMsg(XtNtranslationParseError, "nonLatin1",
+ XtCXtToolkitError,
+ "... probably due to non-Latin1 character in quoted string",
+ (String*)NULL, (Cardinal*)NULL);
+ return PanicModeRecovery(str);
+ }
+ *nextEvent = event;
+ *actionsP = &event->actions;
+ nextEvent = &event->next;
+ }
+ if (*str != '"') {
+ Syntax("Missing '\"'.","");
+ *error = TRUE;
+ return PanicModeRecovery(str);
+ }
+ else str++;
+ } else {
+ int reps = 0;
+ Boolean plus = FALSE;
+
+ event = XtNew(EventRec);
+ event->event = nullEvent;
+ event->state = /* (StatePtr) -1 */ NULL;
+ event->next = NULL;
+ event->actions = NULL;
+
+ str = ParseEvent(str, event, &reps, &plus, error);
+ if (*error) return str;
+ *nextEvent = event;
+ *actionsP = &event->actions;
+ if (reps > 1 || plus)
+ RepeatEvent(&event, reps, plus, actionsP);
+ nextEvent = &event->next;
+ }
+ ScanWhitespace(str);
+ if (*str == ':') break;
+ else {
+ if (*str != ',') {
+ Syntax("',' or ':' expected while parsing event sequence.","");
+ *error = TRUE;
+ return PanicModeRecovery(str);
+ } else str++;
+ }
+ }
+
+ if (*str != ':') {
+ Syntax("Missing ':'after event sequence.","");
+ *error = TRUE;
+ return PanicModeRecovery(str);
+ } else str++;
+
+ return str;
+}
+
+
+static String ParseActionProc(
+ register String str,
+ XrmQuark *actionProcNameP,
+ Boolean *error)
+{
+ register String start = str;
+ char procName[200];
+
+ str = ScanIdent(str);
+ if (str-start >= 199) {
+ Syntax("Action procedure name is longer than 199 chars","");
+ *error = TRUE;
+ return str;
+ }
+ (void) memmove(procName, start, str-start);
+ procName[str-start] = '\0';
+ *actionProcNameP = XrmStringToQuark( procName );
+ return str;
+}
+
+
+static String ParseString(
+ register String str,
+ String *strP)
+{
+ register String start;
+
+ if (*str == '"') {
+ register unsigned prev_len, len;
+ str++;
+ start = str;
+ *strP = NULL;
+ prev_len = 0;
+
+ while (*str != '"' && *str != '\0') {
+ /* \" produces double quote embedded in a quoted parameter
+ * \\" produces backslash as last character of a quoted parameter
+ */
+ if (*str == '\\' &&
+ (*(str+1) == '"' || (*(str+1) == '\\' && *(str+2) == '"'))) {
+ len = prev_len + (str-start+2);
+ *strP = XtRealloc(*strP, len);
+ (void) memmove(*strP + prev_len, start, str-start);
+ prev_len = len-1;
+ str++;
+ (*strP)[prev_len-1] = *str;
+ (*strP)[prev_len] = '\0';
+ start = str+1;
+ }
+ str++;
+ }
+ len = prev_len + (str-start+1);
+ *strP = XtRealloc(*strP, len);
+ (void) memmove( *strP + prev_len, start, str-start);
+ (*strP)[len-1] = '\0';
+ if (*str == '"') str++; else
+ XtWarningMsg(XtNtranslationParseError,"parseString",
+ XtCXtToolkitError,"Missing '\"'.",
+ (String *)NULL, (Cardinal *)NULL);
+ } else {
+ /* scan non-quoted string, stop on whitespace, ',' or ')' */
+ start = str;
+ while (*str != ' '
+ && *str != '\t'
+ && *str != ','
+ && *str != ')'
+ && !IsNewline(*str)
+ && *str != '\0') str++;
+ *strP = __XtMalloc((unsigned)(str-start+1));
+ (void) memmove(*strP, start, str-start);
+ (*strP)[str-start] = '\0';
+ }
+ return str;
+}
+
+
+static String ParseParamSeq(
+ register String str,
+ String **paramSeqP,
+ Cardinal *paramNumP)
+{
+ typedef struct _ParamRec *ParamPtr;
+ typedef struct _ParamRec {
+ ParamPtr next;
+ String param;
+ } ParamRec;
+
+ ParamPtr params = NULL;
+ register Cardinal num_params = 0;
+ register Cardinal i;
+
+ ScanWhitespace(str);
+ while (*str != ')' && *str != '\0' && !IsNewline(*str)) {
+ String newStr;
+ str = ParseString(str, &newStr);
+ if (newStr != NULL) {
+ ParamPtr temp = (ParamRec*)
+ ALLOCATE_LOCAL( (unsigned)sizeof(ParamRec) );
+ if (temp == NULL) _XtAllocError (NULL);
+
+ num_params++;
+ temp->next = params;
+ params = temp;
+ temp->param = newStr;
+ ScanWhitespace(str);
+ if (*str == ',') {
+ str++;
+ ScanWhitespace(str);
+ }
+ }
+ }
+
+ if (num_params != 0) {
+ String *paramP = (String *)
+ __XtMalloc( (unsigned)(num_params+1) * sizeof(String) );
+ *paramSeqP = paramP;
+ *paramNumP = num_params;
+ paramP += num_params; /* list is LIFO right now */
+ *paramP-- = NULL;
+ for (i=0; i < num_params; i++) {
+ ParamPtr next = params->next;
+ *paramP-- = params->param;
+ DEALLOCATE_LOCAL( (char *)params );
+ params = next;
+ }
+ } else {
+ *paramSeqP = NULL;
+ *paramNumP = 0;
+ }
+
+ return str;
+}
+
+static String ParseAction(
+ String str,
+ ActionPtr actionP,
+ XrmQuark* quarkP,
+ Boolean* error)
+{
+ str = ParseActionProc(str, quarkP, error);
+ if (*error) return str;
+
+ if (*str == '(') {
+ str++;
+ str = ParseParamSeq(str, &actionP->params, &actionP->num_params);
+ } else {
+ Syntax("Missing '(' while parsing action sequence","");
+ *error = TRUE;
+ return str;
+ }
+ if (*str == ')') str++;
+ else{
+ Syntax("Missing ')' while parsing action sequence","");
+ *error = TRUE;
+ return str;
+ }
+ return str;
+}
+
+
+static String ParseActionSeq(
+ TMParseStateTree parseTree,
+ String str,
+ ActionPtr *actionsP,
+ Boolean *error)
+{
+ ActionPtr *nextActionP = actionsP;
+
+ *actionsP = NULL;
+ while (*str != '\0' && !IsNewline(*str)) {
+ register ActionPtr action;
+ XrmQuark quark;
+
+ action = XtNew(ActionRec);
+ action->params = NULL;
+ action->num_params = 0;
+ action->next = NULL;
+
+ str = ParseAction(str, action, &quark, error);
+ if (*error) return PanicModeRecovery(str);
+
+ action->idx = _XtGetQuarkIndex(parseTree, quark);
+ ScanWhitespace(str);
+ *nextActionP = action;
+ nextActionP = &action->next;
+ }
+ if (IsNewline(*str)) str++;
+ ScanWhitespace(str);
+ return str;
+}
+
+
+static void ShowProduction(
+ String currentProduction)
+{
+ Cardinal num_params = 1;
+ String params[1];
+ size_t len;
+ char *eol, *production, productionbuf[500];
+
+#ifdef __UNIXOS2__
+ eol = strchr(currentProduction, '\r');
+ if (!eol) /* try '\n' as well below */
+#endif
+ eol = strchr(currentProduction, '\n');
+ if (eol) len = eol - currentProduction;
+ else len = strlen (currentProduction);
+ production = XtStackAlloc (len + 1, productionbuf);
+ if (production == NULL) _XtAllocError (NULL);
+ (void) memmove(production, currentProduction, len);
+ production[len] = '\0';
+
+ params[0] = production;
+ XtWarningMsg(XtNtranslationParseError, "showLine", XtCXtToolkitError,
+ "... found while parsing '%s'", params, &num_params);
+
+ XtStackFree (production, productionbuf);
+}
+
+/***********************************************************************
+ * ParseTranslationTableProduction
+ * Parses one line of event bindings.
+ ***********************************************************************/
+
+static String ParseTranslationTableProduction(
+ TMParseStateTree parseTree,
+ register String str,
+ Boolean* error)
+{
+ EventSeqPtr eventSeq = NULL;
+ ActionPtr *actionsP;
+ String production = str;
+
+ actionsP = NULL;
+ str = ParseEventSeq(str, &eventSeq, &actionsP,error);
+ if (*error == TRUE) {
+ ShowProduction(production);
+ FreeEventSeq(eventSeq);
+ return (str);
+ }
+ ScanWhitespace(str);
+ str = ParseActionSeq(parseTree, str, actionsP, error);
+ if (*error == TRUE) {
+ ShowProduction(production);
+ FreeEventSeq(eventSeq);
+ return (str);
+ }
+
+ _XtAddEventSeqToStateTree(eventSeq, parseTree);
+ FreeEventSeq(eventSeq);
+ return (str);
+}
+
+static String CheckForPoundSign(
+ String str,
+ _XtTranslateOp defaultOp,
+ _XtTranslateOp *actualOpRtn)
+{
+ String start;
+ char operation[20];
+ _XtTranslateOp opType;
+
+ opType = defaultOp;
+ ScanWhitespace(str);
+ if (*str == '#') {
+ int len;
+ str++;
+ start = str;
+ str = ScanIdent(str);
+ len = MIN(19, str-start);
+ (void) memmove(operation, start, len);
+ operation[len] = '\0';
+ if (!strcmp(operation,"replace"))
+ opType = XtTableReplace;
+ else if (!strcmp(operation,"augment"))
+ opType = XtTableAugment;
+ else if (!strcmp(operation,"override"))
+ opType = XtTableOverride;
+ ScanWhitespace(str);
+ if (IsNewline(*str)) {
+ str++;
+ ScanWhitespace(str);
+ }
+ }
+ *actualOpRtn = opType;
+ return str;
+}
+
+static XtTranslations ParseTranslationTable(
+ String source,
+ Boolean isAccelerator,
+ _XtTranslateOp defaultOp,
+ Boolean* error)
+{
+ XtTranslations xlations;
+ TMStateTree stateTrees[8];
+ TMParseStateTreeRec parseTreeRec, *parseTree = &parseTreeRec;
+ XrmQuark stackQuarks[200];
+ TMBranchHeadRec stackBranchHeads[200];
+ StatePtr stackComplexBranchHeads[200];
+ _XtTranslateOp actualOp;
+
+ if (source == NULL)
+ return (XtTranslations)NULL;
+
+ source = CheckForPoundSign(source, defaultOp, &actualOp);
+ if (isAccelerator && actualOp == XtTableReplace)
+ actualOp = defaultOp;
+
+ parseTree->isSimple = TRUE;
+ parseTree->mappingNotifyInterest = FALSE;
+ parseTree->isAccelerator = isAccelerator;
+ parseTree->isStackBranchHeads =
+ parseTree->isStackQuarks =
+ parseTree->isStackComplexBranchHeads = TRUE;
+
+ parseTree->numQuarks =
+ parseTree->numBranchHeads =
+ parseTree->numComplexBranchHeads = 0;
+
+ parseTree->quarkTblSize =
+ parseTree->branchHeadTblSize =
+ parseTree->complexBranchHeadTblSize = 200;
+
+ parseTree->quarkTbl = stackQuarks;
+ parseTree->branchHeadTbl = stackBranchHeads;
+ parseTree->complexBranchHeadTbl = stackComplexBranchHeads;
+
+ while (source != NULL && *source != '\0') {
+ source = ParseTranslationTableProduction(parseTree, source, error);
+ if (*error == TRUE) break;
+ }
+ stateTrees[0] = _XtParseTreeToStateTree(parseTree);
+
+ if (!parseTree->isStackQuarks)
+ XtFree((char *)parseTree->quarkTbl);
+ if (!parseTree->isStackBranchHeads)
+ XtFree((char *)parseTree->branchHeadTbl);
+ if (!parseTree->isStackComplexBranchHeads)
+ XtFree((char *)parseTree->complexBranchHeadTbl);
+
+ xlations = _XtCreateXlations(stateTrees, 1, NULL, NULL);
+ xlations->operation = actualOp;
+
+#ifdef notdef
+ XtFree(stateTrees);
+#endif /* notdef */
+ return xlations;
+}
+
+/*** public procedures ***/
+
+/*ARGSUSED*/
+Boolean XtCvtStringToAcceleratorTable(
+ Display* dpy,
+ XrmValuePtr args,
+ Cardinal *num_args,
+ XrmValuePtr from,
+ XrmValuePtr to,
+ XtPointer *closure)
+{
+ String str;
+ Boolean error = FALSE;
+
+ if (*num_args != 0)
+ XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+ "wrongParameters","cvtStringToAcceleratorTable",XtCXtToolkitError,
+ "String to AcceleratorTable conversion needs no extra arguments",
+ (String *)NULL, (Cardinal *)NULL);
+ str = (String)(from->addr);
+ if (str == NULL) {
+ XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+ "badParameters","cvtStringToAcceleratorTable",XtCXtToolkitError,
+ "String to AcceleratorTable conversion needs string",
+ (String *)NULL, (Cardinal *)NULL);
+ return FALSE;
+ }
+ if (to->addr != NULL) {
+ if (to->size < sizeof(XtAccelerators)) {
+ to->size = sizeof(XtAccelerators);
+ return FALSE;
+ }
+ *(XtAccelerators*)to->addr =
+ (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error);
+ }
+ else {
+ static XtAccelerators staticStateTable;
+ staticStateTable =
+ (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error);
+ to->addr = (XPointer) &staticStateTable;
+ to->size = sizeof(XtAccelerators);
+ }
+ if (error == TRUE)
+ XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+ "parseError","cvtStringToAcceleratorTable",XtCXtToolkitError,
+ "String to AcceleratorTable conversion encountered errors",
+ (String *)NULL, (Cardinal *)NULL);
+ return (error != TRUE);
+}
+
+
+/*ARGSUSED*/
+Boolean
+XtCvtStringToTranslationTable(
+ Display *dpy,
+ XrmValuePtr args,
+ Cardinal *num_args,
+ XrmValuePtr from,
+ XrmValuePtr to,
+ XtPointer *closure_ret)
+{
+ String str;
+ Boolean error = FALSE;
+
+ if (*num_args != 0)
+ XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+ "wrongParameters","cvtStringToTranslationTable",XtCXtToolkitError,
+ "String to TranslationTable conversion needs no extra arguments",
+ (String *)NULL, (Cardinal *)NULL);
+ str = (String)(from->addr);
+ if (str == NULL) {
+ XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+ "badParameters","cvtStringToTranslation",XtCXtToolkitError,
+ "String to TranslationTable conversion needs string",
+ (String *)NULL, (Cardinal *)NULL);
+ return FALSE;
+ }
+ if (to->addr != NULL) {
+ if (to->size < sizeof(XtTranslations)) {
+ to->size = sizeof(XtTranslations);
+ return FALSE;
+ }
+ *(XtTranslations*)to->addr =
+ ParseTranslationTable(str, FALSE, XtTableReplace, &error);
+ }
+ else {
+ static XtTranslations staticStateTable;
+ staticStateTable =
+ ParseTranslationTable(str, FALSE, XtTableReplace, &error);
+ to->addr = (XPointer) &staticStateTable;
+ to->size = sizeof(XtTranslations);
+ }
+ if (error == TRUE)
+ XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+ "parseError","cvtStringToTranslationTable",XtCXtToolkitError,
+ "String to TranslationTable conversion encountered errors",
+ (String *)NULL, (Cardinal *)NULL);
+ return (error != TRUE);
+}
+
+
+/*
+ * Parses a user's or applications translation table
+ */
+XtAccelerators XtParseAcceleratorTable(
+ _Xconst char* source)
+{
+ Boolean error = FALSE;
+ XtAccelerators ret =
+ (XtAccelerators) ParseTranslationTable ((char *)source, TRUE, XtTableAugment, &error);
+ if (error == TRUE)
+ XtWarningMsg ("parseError", "cvtStringToAcceleratorTable",
+ XtCXtToolkitError,
+ "String to AcceleratorTable conversion encountered errors",
+ (String *)NULL, (Cardinal *)NULL);
+ return ret;
+}
+
+XtTranslations XtParseTranslationTable(
+ _Xconst char* source)
+{
+ Boolean error = FALSE;
+ XtTranslations ret = ParseTranslationTable((char *)source, FALSE, XtTableReplace, &error);
+ if (error == TRUE)
+ XtWarningMsg ("parseError",
+ "cvtStringToTranslationTable", XtCXtToolkitError,
+ "String to TranslationTable conversion encountered errors",
+ (String *)NULL, (Cardinal *)NULL);
+ return ret;
+}
+
+void _XtTranslateInitialize(void)
+{
+ LOCK_PROCESS;
+ if (initialized) {
+ XtWarningMsg("translationError","xtTranslateInitialize",
+ XtCXtToolkitError,"Initializing Translation manager twice.",
+ (String *)NULL, (Cardinal *)NULL);
+ UNLOCK_PROCESS;
+ return;
+ }
+
+ initialized = TRUE;
+ UNLOCK_PROCESS;
+ QMeta = XrmPermStringToQuark("Meta");
+ QCtrl = XrmPermStringToQuark("Ctrl");
+ QNone = XrmPermStringToQuark("None");
+ QAny = XrmPermStringToQuark("Any");
+
+ Compile_XtEventTable( events, XtNumber(events) );
+ Compile_XtModifierTable( modifiers, XtNumber(modifiers) );
+ CompileNameValueTable( buttonNames );
+ CompileNameValueTable( notifyModes );
+ CompileNameValueTable( motionDetails );
+#if 0
+ CompileNameValueTable( notifyDetail );
+ CompileNameValueTable( visibilityNotify );
+ CompileNameValueTable( circulation );
+ CompileNameValueTable( propertyChanged );
+#endif
+ CompileNameValueTable( mappingNotify );
+}
+
+void _XtAddTMConverters(
+ ConverterTable table)
+{
+ _XtTableAddConverter(table,
+ _XtQString,
+ XrmPermStringToQuark(XtRTranslationTable),
+ XtCvtStringToTranslationTable, (XtConvertArgList) NULL,
+ (Cardinal)0, True, CACHED, _XtFreeTranslations, True);
+ _XtTableAddConverter(table, _XtQString,
+ XrmPermStringToQuark(XtRAcceleratorTable),
+ XtCvtStringToAcceleratorTable, (XtConvertArgList) NULL,
+ (Cardinal)0, True, CACHED, _XtFreeTranslations, True);
+ _XtTableAddConverter(table,
+ XrmPermStringToQuark( _XtRStateTablePair ),
+ XrmPermStringToQuark(XtRTranslationTable),
+ _XtCvtMergeTranslations, (XtConvertArgList) NULL,
+ (Cardinal)0, True, CACHED, _XtFreeTranslations, True);
+}
|