--- /dev/null
+/*
+ * xcolors.c --
+ *
+ * This file contains the routines used to map from X color names to RGB
+ * and pixel values.
+ *
+ * Copyright (c) 1996 by Sun Microsystems, Inc.
+ * Copyright (c) 2012 by Jan Nijtmans
+ *
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#include "tkInt.h"
+
+/*
+ * Index array. For each of the characters 'a'-'y', this table gives the first
+ * color starting with that character in the xColors table.
+ */
+
+static const unsigned char az[] = {
+ 0, 5, 13, 21, 45, 46, 50, 60, 62, 65, 66,
+ 67, 91, 106, 109, 115, 126, 127, 130, 144, 149, 150, 152, 155, 156, 158
+};
+
+/*
+ * Define an array that defines the mapping from color names to RGB values.
+ * Note that this array must be kept sorted alphabetically so that the
+ * binary search used in XParseColor will succeed.
+ *
+ * Each color definition consists of exactly 32 characters, and starts with
+ * the color name, but without its first character (that character can be
+ * reproduced from the az index array). The last byte holds the number
+ * of additional color variants. For example "azure1" up to "azure4" are
+ * handled by the same table entry as "azure". From the last byte backwards,
+ * each group of 3 bytes contain the rgb values of the main color and
+ * the available variants.
+ *
+ * The colors gray and grey have more than 8 variants. gray1 up to gray8
+ * are handled by this table, above that is handled especially.
+ */
+
+typedef char elem[32];
+
+static const elem xColors[] = {
+ /* Colors starting with 'a' */
+ "liceBlue\0 \360\370\377",
+ "ntiqueWhite\0 \213\203\170\315\300\260\356\337\314\377\357\333\372\353\327\4",
+ "qua\0 \000\377\377",
+ "quamarine\0 \105\213\164\146\315\252\166\356\306\177\377\324\177\377\324\4",
+ "zure\0 \203\213\213\301\315\315\340\356\356\360\377\377\360\377\377\4",
+ /* Colors starting with 'b' */
+ "eige\0 \365\365\334",
+ "isque\0 \213\175\153\315\267\236\356\325\267\377\344\304\377\344\304\4",
+ "lack\0 \000\000\000",
+ "lanchedAlmond\0 \377\353\315",
+ "lue\0 \000\000\213\000\000\315\000\000\356\000\000\377\000\000\377\4",
+ "lueViolet\0 \212\053\342",
+ "rown\0 \213\043\043\315\063\063\356\073\073\377\100\100\245\052\052\4",
+ "urlywood\0 \213\163\125\315\252\175\356\305\221\377\323\233\336\270\207\4",
+ /* Colors starting with 'c' */
+ "adetBlue\0 \123\206\213\172\305\315\216\345\356\230\365\377\137\236\240\4",
+ "hartreuse\0 \105\213\000\146\315\000\166\356\000\177\377\000\177\377\000\4",
+ "hocolate\0 \213\105\023\315\146\035\356\166\041\377\177\044\322\151\036\4",
+ "oral\0 \213\076\057\315\133\105\356\152\120\377\162\126\377\177\120\4",
+ "ornflowerBlue\0 \144\225\355",
+ "ornsilk\0 \213\210\170\315\310\261\356\350\315\377\370\334\377\370\334\4",
+ "rimson\0 \334\024\074",
+ "yan\0 \000\213\213\000\315\315\000\356\356\000\377\377\000\377\377\4",
+ /* Colors starting with 'd' */
+ "arkBlue\0 \000\000\213",
+ "arkCyan\0 \000\213\213",
+ "arkGoldenrod\0 \213\145\010\315\225\014\356\255\016\377\271\017\270\206\013\4",
+ "arkGray\0 \251\251\251",
+ "arkGreen\0 \000\144\000",
+ "arkGrey\0 \251\251\251",
+ "arkKhaki\0 \275\267\153",
+ "arkMagenta\0 \213\000\213",
+ "arkOliveGreen\0 \156\213\075\242\315\132\274\356\150\312\377\160\125\153\057\4",
+ "arkOrange\0 \213\105\000\315\146\000\356\166\000\377\177\000\377\214\000\4",
+ "arkOrchid\0 \150\042\213\232\062\315\262\072\356\277\076\377\231\062\314\4",
+ "arkRed\0 \213\000\000",
+ "arkSalmon\0 \351\226\172",
+ "arkSeaGreen\0 \151\213\151\233\315\233\264\356\264\301\377\301\217\274\217\4",
+ "arkSlateBlue\0 \110\075\213",
+ "arkSlateGray\0 \122\213\213\171\315\315\215\356\356\227\377\377\057\117\117\4",
+ "arkSlateGrey\0 \057\117\117",
+ "arkTurquoise\0 \000\316\321",
+ "arkViolet\0 \224\000\323",
+ "eepPink\0 \213\012\120\315\020\166\356\022\211\377\024\223\377\024\223\4",
+ "eepSkyBlue\0 \000\150\213\000\232\315\000\262\356\000\277\377\000\277\377\4",
+ "imGray\0 \151\151\151",
+ "imGrey\0 \151\151\151",
+ "odgerBlue\0 \020\116\213\030\164\315\034\206\356\036\220\377\036\220\377\4",
+ /* Colors starting with 'e' */
+ "\377" /* placeholder */,
+ /* Colors starting with 'f' */
+ "irebrick\0 \213\032\032\315\046\046\356\054\054\377\060\060\262\042\042\4",
+ "loralWhite\0 \377\372\360",
+ "orestGreen\0 \042\213\042",
+ "uchsia\0 \377\000\377",
+ /* Colors starting with 'g' */
+ "ainsboro\0 \334\334\334",
+ "hostWhite\0 \370\370\377",
+ "old\0 \213\165\000\315\255\000\356\311\000\377\327\000\377\327\000\4",
+ "oldenrod\0 \213\151\024\315\233\035\356\264\042\377\301\045\332\245\040\4",
+ "ray\0\024\024\024\022\022\022\017\017\017\015\015\015\012\012\012"
+ "\010\010\010\005\005\005\003\003\003\200\200\200\10",
+ "ray0\0 \000\000\000",
+ "reen\0 \000\213\000\000\315\000\000\356\000\000\377\000\000\200\000\4",
+ "reenYellow\0 \255\377\057",
+ "rey\0\024\024\024\022\022\022\017\017\017\015\015\015\012\012\012"
+ "\010\010\010\005\005\005\003\003\003\200\200\200\10",
+ "rey0\0 \000\000\000",
+ /* Colors starting with 'h' */
+ "oneydew\0 \203\213\203\301\315\301\340\356\340\360\377\360\360\377\360\4",
+ "otPink\0 \213\072\142\315\140\220\356\152\247\377\156\264\377\151\264\4",
+ /* Colors starting with 'i' */
+ "ndianRed\0 \213\072\072\315\125\125\356\143\143\377\152\152\315\134\134\4",
+ "ndigo\0 \113\000\202",
+ "vory\0 \213\213\203\315\315\301\356\356\340\377\377\360\377\377\360\4",
+ /* Colors starting with 'j' */
+ "\377" /* placeholder */,
+ /* Colors starting with 'k' */
+ "haki\0 \213\206\116\315\306\163\356\346\205\377\366\217\360\346\214\4",
+ /* Colors starting with 'l' */
+ "avender\0 \346\346\372",
+ "avenderBlush\0 \213\203\206\315\301\305\356\340\345\377\360\365\377\360\365\4",
+ "awnGreen\0 \174\374\000",
+ "emonChiffon\0 \213\211\160\315\311\245\356\351\277\377\372\315\377\372\315\4",
+ "ightBlue\0 \150\203\213\232\300\315\262\337\356\277\357\377\255\330\346\4",
+ "ightCoral\0 \360\200\200",
+ "ightCyan\0 \172\213\213\264\315\315\321\356\356\340\377\377\340\377\377\4",
+ "ightGoldenrod\0 \213\201\114\315\276\160\356\334\202\377\354\213\356\335\202\4",
+ "ightGoldenrodYellow\0 \372\372\322",
+ "ightGray\0 \323\323\323",
+ "ightGreen\0 \220\356\220",
+ "ightGrey\0 \323\323\323",
+ "ightPink\0 \213\137\145\315\214\225\356\242\255\377\256\271\377\266\301\4",
+ "ightSalmon\0 \213\127\102\315\201\142\356\225\162\377\240\172\377\240\172\4",
+ "ightSeaGreen\0 \040\262\252",
+ "ightSkyBlue\0 \140\173\213\215\266\315\244\323\356\260\342\377\207\316\372\4",
+ "ightSlateBlue\0 \204\160\377",
+ "ightSlateGray\0 \167\210\231",
+ "ightSlateGrey\0 \167\210\231",
+ "ightSteelBlue\0 \156\173\213\242\265\315\274\322\356\312\341\377\260\304\336\4",
+ "ightYellow\0 \213\213\172\315\315\264\356\356\321\377\377\340\377\377\340\4",
+ "ime\0 \000\377\000",
+ "imeGreen\0 \062\315\062",
+ "inen\0 \372\360\346",
+ /* Colors starting with 'm' */
+ "agenta\0 \213\000\213\315\000\315\356\000\356\377\000\377\377\000\377\4",
+ "aroon\0 \213\034\142\315\051\220\356\060\247\377\064\263\200\000\000\4",
+ "ediumAquamarine\0 \146\315\252",
+ "ediumBlue\0 \000\000\315",
+ "ediumOrchid\0 \172\067\213\264\122\315\321\137\356\340\146\377\272\125\323\4",
+ "ediumPurple\0 \135\107\213\211\150\315\237\171\356\253\202\377\223\160\333\4",
+ "ediumSeaGreen\0 \074\263\161",
+ "ediumSlateBlue\0 \173\150\356",
+ "ediumSpringGreen\0 \000\372\232",
+ "ediumTurquoise\0 \110\321\314",
+ "ediumVioletRed\0 \307\025\205",
+ "idnightBlue\0 \031\031\160",
+ "intCream\0 \365\377\372",
+ "istyRose\0 \213\175\173\315\267\265\356\325\322\377\344\341\377\344\341\4",
+ "occasin\0 \377\344\265",
+ /* Colors starting with 'n' */
+ "avajoWhite\0 \213\171\136\315\263\213\356\317\241\377\336\255\377\336\255\4",
+ "avy\0 \000\000\200",
+ "avyBlue\0 \000\000\200",
+ /* Colors starting with 'o' */
+ "ldLace\0 \375\365\346",
+ "live\0 \200\200\000",
+ "liveDrab\0 \151\213\042\232\315\062\263\356\072\300\377\076\153\216\043\4",
+ "range\0 \213\132\000\315\205\000\356\232\000\377\245\000\377\245\000\4",
+ "rangeRed\0 \213\045\000\315\067\000\356\100\000\377\105\000\377\105\000\4",
+ "rchid\0 \213\107\211\315\151\311\356\172\351\377\203\372\332\160\326\4",
+ /* Colors starting with 'p' */
+ "aleGoldenrod\0 \356\350\252",
+ "aleGreen\0 \124\213\124\174\315\174\220\356\220\232\377\232\230\373\230\4",
+ "aleTurquoise\0 \146\213\213\226\315\315\256\356\356\273\377\377\257\356\356\4",
+ "aleVioletRed\0 \213\107\135\315\150\211\356\171\237\377\202\253\333\160\223\4",
+ "apayaWhip\0 \377\357\325",
+ "eachPuff\0 \213\167\145\315\257\225\356\313\255\377\332\271\377\332\271\4",
+ "eru\0 \315\205\077",
+ "ink\0 \213\143\154\315\221\236\356\251\270\377\265\305\377\300\313\4",
+ "lum\0 \213\146\213\315\226\315\356\256\356\377\273\377\335\240\335\4",
+ "owderBlue\0 \260\340\346",
+ "urple\0 \125\032\213\175\046\315\221\054\356\233\060\377\200\000\200\4",
+ /* Colors starting with 'q' */
+ "\377" /* placeholder */,
+ /* Colors starting with 'r' */
+ "ed\0 \213\000\000\315\000\000\356\000\000\377\000\000\377\000\000\4",
+ "osyBrown\0 \213\151\151\315\233\233\356\264\264\377\301\301\274\217\217\4",
+ "oyalBlue\0 \047\100\213\072\137\315\103\156\356\110\166\377\101\151\341\4",
+ /* Colors starting with 's' */
+ "addleBrown\0 \213\105\023",
+ "almon\0 \213\114\071\315\160\124\356\202\142\377\214\151\372\200\162\4",
+ "andyBrown\0 \364\244\140",
+ "eaGreen\0 \056\213\127\103\315\200\116\356\224\124\377\237\056\213\127\4",
+ "eashell\0 \213\206\202\315\305\277\356\345\336\377\365\356\377\365\356\4",
+ "ienna\0 \213\107\046\315\150\071\356\171\102\377\202\107\240\122\055\4",
+ "ilver\0 \300\300\300",
+ "kyBlue\0 \112\160\213\154\246\315\176\300\356\207\316\377\207\316\353\4",
+ "lateBlue\0 \107\074\213\151\131\315\172\147\356\203\157\377\152\132\315\4",
+ "lateGray\0 \154\173\213\237\266\315\271\323\356\306\342\377\160\200\220\4",
+ "lateGrey\0 \160\200\220",
+ "now\0 \213\211\211\315\311\311\356\351\351\377\372\372\377\372\372\4",
+ "pringGreen\0 \000\213\105\000\315\146\000\356\166\000\377\177\000\377\177\4",
+ "teelBlue\0 \066\144\213\117\224\315\134\254\356\143\270\377\106\202\264\4",
+ /* Colors starting with 't' */
+ "an\0 \213\132\053\315\205\077\356\232\111\377\245\117\322\264\214\4",
+ "eal\0 \000\200\200",
+ "histle\0 \213\173\213\315\265\315\356\322\356\377\341\377\330\277\330\4",
+ "omato\0 \213\066\046\315\117\071\356\134\102\377\143\107\377\143\107\4",
+ "urquoise\0 \000\206\213\000\305\315\000\345\356\000\365\377\100\340\320\4",
+ /* Colors starting with 'u' */
+ "\377" /* placeholder */,
+ /* Colors starting with 'v' */
+ "iolet\0 \356\202\356",
+ "ioletRed\0 \213\042\122\315\062\170\356\072\214\377\076\226\320\040\220\4",
+ /* Colors starting with 'w' */
+ "heat\0 \213\176\146\315\272\226\356\330\256\377\347\272\365\336\263\4",
+ "hite\0 \377\377\377",
+ "hiteSmoke\0 \365\365\365",
+ /* Colors starting with 'x' */
+ "\377" /* placeholder */,
+ /* Colors starting with 'y' */
+ "ellow\0 \213\213\000\315\315\000\356\356\000\377\377\000\377\377\000\4",
+ "ellowGreen\0 \232\315\062\0"
+};
+\f
+/*
+ *----------------------------------------------------------------------
+ *
+ * XParseColor --
+ *
+ * Partial implementation of X color name parsing interface.
+ *
+ * Results:
+ * Returns non-zero on success.
+ *
+ * Side effects:
+ * None.
+ *
+ *----------------------------------------------------------------------
+ *
+ * This only handles hex-strings without 0x prefix. Luckily, that's just what
+ * we need.
+ */
+
+static Tcl_WideInt
+parseHex64bit(
+ const char *spec,
+ char **p)
+{
+ Tcl_WideInt result = 0;
+ char c;
+ while ((c = *spec)) {
+ if ((c >= '0') && (c <= '9')) {
+ c -= '0';
+ } else if ((c >= 'A') && (c <= 'F')) {
+ c += (10 - 'A');
+ } else if ((c >= 'a') && (c <= 'f')) {
+ c += (10 - 'a');
+ } else {
+ break;
+ }
+ result = (result << 4) + c;
+ ++spec;
+ }
+ *p = (char *) spec;
+ return result;
+}
+
+static int
+colorcmp(
+ const char *spec,
+ const char *pname,
+ int *special)
+{
+ int r;
+ int c, d;
+ int notequal = 0;
+ int num = 0;
+
+ do {
+ d = *pname++;
+ c = (*spec == ' ');
+ if (c) {
+ spec++;
+ }
+ if ((unsigned)(d - 'A') <= (unsigned)('Z' - 'A')) {
+ d += 'a' - 'A';
+ } else if (c) {
+ /*
+ * A space doesn't match a lowercase, but we don't know yet
+ * whether we should return a negative or positive number. That
+ * depends on what follows.
+ */
+
+ notequal = 1;
+ }
+ c = *spec++;
+ if ((unsigned)(c - 'A') <= (unsigned)('Z' - 'A')) {
+ c += 'a' - 'A';
+ } else if (((unsigned)(c - '1') <= (unsigned)('9' - '1'))) {
+ if (d == '0') {
+ d += 10;
+ } else if (!d) {
+ num = c - '0';
+ while ((unsigned)((c = *spec++) - '0') <= (unsigned)('9' - '0')) {
+ num = num * 10 + c - '0';
+ }
+ }
+ }
+ r = c - d;
+ } while (!r && d);
+
+ if (!r && notequal) {
+ /*
+ * Strings are equal, but difference in spacings only. We should still
+ * report not-equal, so "burly wood" is not a valid color.
+ */
+
+ r = 1;
+ }
+ *special = num;
+ return r;
+}
+
+#define RED(p) ((unsigned char) (p)[0])
+#define GREEN(p) ((unsigned char) (p)[1])
+#define BLUE(p) ((unsigned char) (p)[2])
+#define US(expr) ((unsigned short) (expr))
+
+Status
+XParseColor(
+ Display *display,
+ Colormap map,
+ const char *spec,
+ XColor *colorPtr)
+{
+ if (spec[0] == '#') {
+ char *p;
+ Tcl_WideInt value = parseHex64bit(++spec, &p);
+
+ /*
+ * If *p does not point to the end of the string, there were invalid
+ * digits in the spec. Ergo, it is not a valid color string.
+ * (Bug f0188aca9e)
+ */
+
+ if (*p != '\0') {
+ return 0;
+ }
+
+ switch ((int)(p-spec)) {
+ case 3:
+ colorPtr->red = US(((value >> 8) & 0xf) * 0x1111);
+ colorPtr->green = US(((value >> 4) & 0xf) * 0x1111);
+ colorPtr->blue = US((value & 0xf) * 0x1111);
+ break;
+ case 6:
+ colorPtr->red = US(((value >> 16) & 0xff) | ((value >> 8) & 0xff00));
+ colorPtr->green = US(((value >> 8) & 0xff) | (value & 0xff00));
+ colorPtr->blue = US((value & 0xff) | (value << 8));
+ break;
+ case 9:
+ colorPtr->red = US(((value >> 32) & 0xf) | ((value >> 20) & 0xfff0));
+ colorPtr->green = US(((value >> 20) & 0xf) | ((value >> 8) & 0xfff0));
+ colorPtr->blue = US(((value >> 8) & 0xf) | (value << 4));
+ break;
+ case 12:
+ colorPtr->red = US(value >> 32);
+ colorPtr->green = US(value >> 16);
+ colorPtr->blue = US(value);
+ break;
+ default:
+ return 0;
+ }
+ } else {
+ /*
+ * Perform a binary search on the sorted array of colors.
+ * size = current size of search range
+ * p = pointer to current element being considered.
+ */
+
+ int size, num;
+ const elem *p;
+ const char *q;
+ int r = (spec[0] - 'A') & 0xdf;
+
+ if (r >= (int) sizeof(az) - 1) {
+ return 0;
+ }
+ size = az[r + 1] - az[r];
+ p = &xColors[(az[r + 1] + az[r]) >> 1];
+ r = colorcmp(spec + 1, *p, &num);
+
+ while (r != 0) {
+ if (r < 0) {
+ size = (size >> 1);
+ p -= ((size + 1) >> 1);
+ } else {
+ --size;
+ size = (size >> 1);
+ p += ((size + 2) >> 1);
+ }
+ if (!size) {
+ return 0;
+ }
+ r = colorcmp(spec + 1, *p, &num);
+ }
+ if (num > (*p)[31]) {
+ if (((*p)[31] != 8) || num > 100) {
+ return 0;
+ }
+ num = (num * 255 + 50) / 100;
+ if ((num == 230) || (num == 128)) {
+ /*
+ * Those two entries have a deviation i.r.t the table.
+ */
+
+ num--;
+ }
+ num |= (num << 8);
+ colorPtr->red = colorPtr->green = colorPtr->blue = num;
+ } else {
+ q = *p + 28 - num * 3;
+ colorPtr->red = ((RED(q) << 8) | RED(q));
+ colorPtr->green = ((GREEN(q) << 8) | GREEN(q));
+ colorPtr->blue = ((BLUE(q) << 8) | BLUE(q));
+ }
+ }
+ colorPtr->pixel = TkpGetPixel(colorPtr);
+ colorPtr->flags = DoRed|DoGreen|DoBlue;
+ colorPtr->pad = 0;
+ return 1;
+}
+\f
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */