Tk Source Code

    assert(field);
    return (field[0] >= '1' && field[0] <= '5' && field[1] == '\0') ? field[0] - '0' : 0;
}

static Time
CurrentTimeInMilliSecs(void)
{
    union {
	Tcl_Time now;
	struct {
	    Tcl_WideInt sec; /* reserve stack space enough for 64-bit fields */
	    Tcl_WideInt usec;
	} lnow;

    } t;
    t.lnow.usec = -1; /* Invalid usec value, so we can see if Tcl_GetTime overwrites it */
    Tcl_GetTime(&t.now);
#ifdef _WIN64
    if (t.lnow.usec != -1) {
	/* Win64 Tk loaded in Cygwin-64: Tcl_GetTime() returns 64-bit fields */
	return ((Time) t.lnow.sec)*1000 + ((Time) t.lnow.usec)/1000;
    }
#endif
    return ((Time) t.now.sec)*1000 + ((Time) t.now.usec)/1000;
}

static Info
GetInfo(
    const PatSeq *psPtr,
    unsigned index)

static PSEntry *
FreePatSeqEntry(
    TCL_UNUSED(PSList *),
    PSEntry *entry)
{
    PSEntry *next = PSList_Next(entry);

    PSModMaskArr_Free(&entry->lastModMaskArr);
    ckfree(entry);
    return next;
}

static unsigned
ResolveModifiers(

unsigned long
Tk_CreateBinding(
    Tcl_Interp *interp,		/* Used for error reporting. */
    Tk_BindingTable bindPtr,	/* Table in which to create binding. */
    ClientData object,		/* Token for object with which binding is associated. */
    const char *eventString,	/* String describing event sequence that triggers binding. */
    const char *script,		/* Contains Tcl script to execute when binding triggers. */
    int append)			/* 0 means replace any existing binding for eventString;
    				 * 1 means append to that binding. If the existing binding is
				 * for a callback function and not a Tcl command string, the
				 * existing binding will always be replaced. */
{
    PatSeq *psPtr;
    unsigned eventMask;
    char *oldStr;

FindSequence(
    Tcl_Interp *interp,		/* Interpreter to use for error reporting. */
    LookupTables *lookupTables,	/* Tables used for lookup. */
    ClientData object,		/* For binding table, token for object with which binding is
    				 * associated. For virtual event table, NULL. */
    const char *eventString,	/* String description of pattern to match on. See user
    				 * documentation for details. */
    int create,			/* 0 means don't create the entry if it doesn't already exist.
    				 * 1 means create. */
    int allowVirtual,		/* 0 means that virtual events are not allowed in the sequence.
    				 * 1 otherwise. */
    unsigned *maskPtr)		/* *maskPtr is filled in with the event types on which this
    				 * pattern sequence depends. */
{
    unsigned patsBufSize = 1;