File: special.c

package info (click to toggle)
ruby-ox 2.14.23-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,504 kB
  • sloc: xml: 39,683; ansic: 9,626; ruby: 6,441; sh: 47; makefile: 2
file content (390 lines) | stat: -rw-r--r-- 19,015 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
/* special.c
 * Copyright (c) 2011, Peter Ohler
 * All rights reserved.
 */

#include "special.h"

#include <stdbool.h>
#include <string.h>

/*
u0000..u007F                00000000000000xxxxxxx  0xxxxxxx
u0080..u07FF                0000000000yyyyyxxxxxx  110yyyyy 10xxxxxx
u0800..uD7FF, uE000..uFFFF  00000zzzzyyyyyyxxxxxx  1110zzzz 10yyyyyy 10xxxxxx
u10000..u10FFFF             uuuzzzzzzyyyyyyxxxxxx  11110uuu 10zzzzzz 10yyyyyy 10xxxxxx
*/
char *ox_ucs_to_utf8_chars(char *text, uint64_t u) {
    int           reading = 0;
    int           i;
    unsigned char c;

    if (u <= 0x000000000000007FULL) {
        /* 0xxxxxxx */
        *text++ = (char)u;
    } else if (u <= 0x00000000000007FFULL) {
        /* 110yyyyy 10xxxxxx */
        *text++ = (char)(0x00000000000000C0ULL | (0x000000000000001FULL & (u >> 6)));
        *text++ = (char)(0x0000000000000080ULL | (0x000000000000003FULL & u));
    } else if (u <= 0x000000000000D7FFULL || (0x000000000000E000ULL <= u && u <= 0x000000000000FFFFULL)) {
        /* 1110zzzz 10yyyyyy 10xxxxxx */
        *text++ = (char)(0x00000000000000E0ULL | (0x000000000000000FULL & (u >> 12)));
        *text++ = (char)(0x0000000000000080ULL | (0x000000000000003FULL & (u >> 6)));
        *text++ = (char)(0x0000000000000080ULL | (0x000000000000003FULL & u));
    } else if (0x0000000000010000ULL <= u && u <= 0x000000000010FFFFULL) {
        /* 11110uuu 10zzzzzz 10yyyyyy 10xxxxxx */
        *text++ = (char)(0x00000000000000F0ULL | (0x0000000000000007ULL & (u >> 18)));
        *text++ = (char)(0x0000000000000080ULL | (0x000000000000003FULL & (u >> 12)));
        *text++ = (char)(0x0000000000000080ULL | (0x000000000000003FULL & (u >> 6)));
        *text++ = (char)(0x0000000000000080ULL | (0x000000000000003FULL & u));
    } else {
        /* assume it is UTF-8 encoded directly and not UCS */
        for (i = 56; 0 <= i; i -= 8) {
            c = (unsigned char)((u >> i) & 0x00000000000000FFULL);
            if (reading) {
                *text++ = (char)c;
            } else if ('\0' != c) {
                *text++ = (char)c;
                reading = 1;
            }
        }
    }
    return text;
}

#define BUCKET_SIZE 256
#define BUCKET_MASK 255

typedef struct _slot {
    const char   *key;
    uint64_t      code;
    struct _slot *next;
    uint64_t      hash;
} *Slot;

typedef struct _cache {
    Slot buckets[BUCKET_SIZE];
} *Cache;

static struct _cache entity_cache;
static bool          inited = false;

// HTML entities such as &amp;. This is a complete list from the HTML 5 spec.
static struct _slot entities[] = {
    {"AElig", 198},     // latin capital letter AE
    {"Aacute", 193},    // latin capital letter A with acute
    {"Acirc", 194},     // latin capital letter A with circumflex
    {"Agrave", 192},    // latin capital letter A with grave
    {"Alpha", 913},     // greek capital letter alpha, U+0391
    {"Aring", 197},     // latin capital letter A with ring above
    {"Atilde", 195},    // latin capital letter A with tilde
    {"Auml", 196},      // latin capital letter A with diaeresis
    {"Beta", 914},      // greek capital letter beta, U+0392
    {"Ccedil", 199},    // latin capital letter C with cedilla
    {"Chi", 935},       // greek capital letter chi, U+03A7
    {"Dagger", 8225},   // double dagger, U+2021 ISOpub
    {"Delta", 916},     // greek capital letter delta
    {"ETH", 208},       // latin capital letter ETH, U+00D0 ISOlat1
    {"Eacute", 201},    // latin capital letter E with acute
    {"Ecirc", 202},     // latin capital letter E with circumflex
    {"Egrave", 200},    // latin capital letter E with grave
    {"Epsilon", 917},   // greek capital letter epsilon, U+0395
    {"Eta", 919},       // greek capital letter eta, U+0397
    {"Euml", 203},      // latin capital letter E with diaeresis
    {"Gamma", 915},     // greek capital letter gamma
    {"Iacute", 205},    // latin capital letter I with acute
    {"Icirc", 206},     // latin capital letter I with circumflex
    {"Igrave", 204},    // latin capital letter I with grave
    {"Iota", 921},      // greek capital letter iota, U+0399
    {"Iuml", 207},      // latin capital letter I with diaeresis
    {"Kappa", 922},     // greek capital letter kappa, U+039A
    {"Lambda", 923},    // greek capital letter lambda
    {"Mu", 924},        // greek capital letter mu, U+039C
    {"Ntilde", 209},    // latin capital letter N with tilde
    {"Nu", 925},        // greek capital letter nu, U+039D
    {"OElig", 338},     // - latin capital ligature OE
    {"Oacute", 211},    // latin capital letter O with acute
    {"Ocirc", 212},     // latin capital letter O with circumflex
    {"Ograve", 210},    // latin capital letter O with grave
    {"Omega", 937},     // greek capital letter omega
    {"Omicron", 927},   // greek capital letter omicron, U+039F
    {"Oslash", 216},    // latin capital letter O with stroke
    {"Otilde", 213},    // latin capital letter O with tilde
    {"Ouml", 214},      // latin capital letter O with diaeresis
    {"Phi", 934},       // greek capital letter phi
    {"Pi", 928},        // greek capital letter pi, U+03A0 ISOgrk3
    {"Prime", 8243},    // double prime = seconds = inches
    {"Psi", 936},       // greek capital letter psi
    {"Rho", 929},       // greek capital letter rho, U+03A1
    {"Scaron", 352},    // - latin capital letter S with caron
    {"Sigma", 931},     // greek capital letter sigma
    {"THORN", 222},     // latin capital letter THORN
    {"Tau", 932},       // greek capital letter tau, U+03A4
    {"Theta", 920},     // greek capital letter theta
    {"Uacute", 218},    // latin capital letter U with acute
    {"Ucirc", 219},     // latin capital letter U with circumflex
    {"Ugrave", 217},    // latin capital letter U with grave
    {"Upsilon", 933},   // greek capital letter upsilon
    {"Uuml", 220},      // latin capital letter U with diaeresis
    {"Xi", 926},        // greek capital letter xi, U+039E ISOgrk3
    {"Yacute", 221},    // latin capital letter Y with acute
    {"Yuml", 376},      // - latin capital letter Y with diaeresis
    {"Zeta", 918},      // greek capital letter zeta, U+0396
    {"aacute", 225},    // latin small letter a with acute
    {"acirc", 226},     // latin small letter a with circumflex
    {"acute", 180},     // acute accent = spacing acute
    {"aelig", 230},     // latin small letter ae
    {"agrave", 224},    // latin small letter a with grave
    {"alefsym", 8501},  // alef symbol = first transfinite cardinal
    {"alpha", 945},     // greek small letter alpha
    {"amp", 38},        // -- ampersand, U+0026 ISOnum
    {"and", 8743},      // logical and = wedge, U+2227 ISOtech
    {"ang", 8736},      // angle, U+2220 ISOamso
    {"apos", 39},       // -- single quote
    {"aring", 229},     // latin small letter a with ring above
    {"asymp", 8776},    // almost equal to = asymptotic to
    {"atilde", 227},    // latin small letter a with tilde
    {"auml", 228},      // latin small letter a with diaeresis
    {"bdquo", 8222},    // double low-9 quotation mark, U+201E NEW
    {"beta", 946},      // greek small letter beta, U+03B2 ISOgrk3
    {"brvbar", 166},    // broken bar = broken vertical bar
    {"bull", 8226},     // bullet = black small circle
    {"cap", 8745},      // intersection = cap, U+2229 ISOtech
    {"ccedil", 231},    // latin small letter c with cedilla
    {"cedil", 184},     // cedilla = spacing cedilla, U+00B8 ISOdia
    {"cent", 162},      // cent sign, U+00A2 ISOnum
    {"chi", 967},       // greek small letter chi, U+03C7 ISOgrk3
    {"circ", 710},      // - modifier letter circumflex accent
    {"clubs", 9827},    // black club suit = shamrock
    {"cong", 8773},     // approximately equal to, U+2245 ISOtech
    {"copy", 169},      // copyright sign, U+00A9 ISOnum
    {"crarr", 8629},    // downwards arrow with corner leftwards
    {"cup", 8746},      // union = cup, U+222A ISOtech
    {"curren", 164},    // currency sign, U+00A4 ISOnum
    {"dArr", 8659},     // downwards double arrow, U+21D3 ISOamsa
    {"dagger", 8224},   // dagger, U+2020 ISOpub
    {"darr", 8595},     // downwards arrow, U+2193 ISOnum
    {"deg", 176},       // degree sign, U+00B0 ISOnum
    {"delta", 948},     // greek small letter delta
    {"diams", 9830},    // black diamond suit, U+2666 ISOpub
    {"divide", 247},    // division sign, U+00F7 ISOnum
    {"eacute", 233},    // latin small letter e with acute
    {"ecirc", 234},     // latin small letter e with circumflex
    {"egrave", 232},    // latin small letter e with grave
    {"empty", 8709},    // empty set = null set = diameter
    {"emsp", 8195},     // em space, U+2003 ISOpub
    {"ensp", 8194},     // en space, U+2002 ISOpub
    {"epsilon", 949},   // greek small letter epsilon
    {"equiv", 8801},    // identical to, U+2261 ISOtech
    {"eta", 951},       // greek small letter eta, U+03B7 ISOgrk3
    {"eth", 240},       // latin small letter eth, U+00F0 ISOlat1
    {"euml", 235},      // latin small letter e with diaeresis
    {"euro", 8364},     // - euro sign, U+20AC NEW
    {"exist", 8707},    // there exists, U+2203 ISOtech
    {"fnof", 402},      // latin small f with hook = function
    {"forall", 8704},   // for all, U+2200 ISOtech
    {"frac12", 189},    // vulgar fraction one half
    {"frac14", 188},    // vulgar fraction one quarter
    {"frac34", 190},    // vulgar fraction three quarters
    {"frasl", 8260},    // fraction slash, U+2044 NEW
    {"gamma", 947},     // greek small letter gamma
    {"ge", 8805},       // greater-than or equal to
    {"gt", 62},         // -- greater-than sign, U+003E ISOnum
    {"hArr", 8660},     // left right double arrow
    {"harr", 8596},     // left right arrow, U+2194 ISOamsa
    {"hearts", 9829},   // black heart suit = valentine
    {"hellip", 8230},   // horizontal ellipsis = three dot leader
    {"iacute", 237},    // latin small letter i with acute
    {"icirc", 238},     // latin small letter i with circumflex
    {"iexcl", 161},     // inverted exclamation mark, U+00A1 ISOnum
    {"igrave", 236},    // latin small letter i with grave
    {"image", 8465},    // blackletter capital I = imaginary part
    {"infin", 8734},    // infinity, U+221E ISOtech
    {"int", 8747},      // integral, U+222B ISOtech
    {"iota", 953},      // greek small letter iota, U+03B9 ISOgrk3
    {"iquest", 191},    // inverted question mark
    {"isin", 8712},     // element of, U+2208 ISOtech
    {"iuml", 239},      // latin small letter i with diaeresis
    {"kappa", 954},     // greek small letter kappa
    {"lArr", 8656},     // leftwards double arrow, U+21D0 ISOtech
    {"lambda", 955},    // greek small letter lambda
    {"lang", 9001},     // left-pointing angle bracket = bra
    {"laquo", 171},     // left-pointing double angle quotation mark
    {"larr", 8592},     // leftwards arrow, U+2190 ISOnum
    {"lceil", 8968},    // left ceiling = apl upstile
    {"ldquo", 8220},    // left double quotation mark
    {"le", 8804},       // less-than or equal to, U+2264 ISOtech
    {"lfloor", 8970},   // left floor = apl downstile
    {"lowast", 8727},   // asterisk operator, U+2217 ISOtech
    {"loz", 9674},      // lozenge, U+25CA ISOpub
    {"lrm", 8206},      // left-to-right mark, U+200E NEW RFC 2070
    {"lsaquo", 8249},   // single left-pointing angle quotation mark
    {"lsquo", 8216},    // left single quotation mark
    {"lt", 60},         // -- less-than sign, U+003C ISOnum
    {"macr", 175},      // macron = spacing macron = overline
    {"mdash", 8212},    // em dash, U+2014 ISOpub
    {"micro", 181},     // micro sign, U+00B5 ISOnum
    {"middot", 183},    // middle dot = Georgian comma
    {"minus", 8722},    // minus sign, U+2212 ISOtech
    {"mu", 956},        // greek small letter mu, U+03BC ISOgrk3
    {"nabla", 8711},    // nabla = backward difference
    {"nbsp", 160},      // no-break space = non-breaking space
    {"ndash", 8211},    // en dash, U+2013 ISOpub
    {"ne", 8800},       // not equal to, U+2260 ISOtech
    {"ni", 8715},       // contains as member, U+220B ISOtech
    {"not", 172},       // not sign, U+00AC ISOnum
    {"notin", 8713},    // not an element of, U+2209 ISOtech
    {"nsub", 8836},     // not a subset of, U+2284 ISOamsn
    {"ntilde", 241},    // latin small letter n with tilde
    {"nu", 957},        // greek small letter nu, U+03BD ISOgrk3
    {"oacute", 243},    // latin small letter o with acute
    {"ocirc", 244},     // latin small letter o with circumflex
    {"oelig", 339},     // - latin small ligature oe, U+0153 ISOlat2
    {"ograve", 242},    // latin small letter o with grave
    {"oline", 8254},    // overline = spacing overscore
    {"omega", 969},     // greek small letter omega
    {"omicron", 959},   // greek small letter omicron, U+03BF NEW
    {"oplus", 8853},    // circled plus = direct sum
    {"or", 8744},       // logical or = vee, U+2228 ISOtech
    {"ordf", 170},      // feminine ordinal indicator, U+00AA ISOnum
    {"ordm", 186},      // masculine ordinal indicator
    {"oslash", 248},    // latin small letter o with stroke
    {"otilde", 245},    // latin small letter o with tilde
    {"otimes", 8855},   // circled times = vector product
    {"ouml", 246},      // latin small letter o with diaeresis
    {"para", 182},      // pilcrow sign = paragraph sign
    {"part", 8706},     // partial differential, U+2202 ISOtech
    {"permil", 8240},   // per mille sign, U+2030 ISOtech
    {"perp", 8869},     // up tack = orthogonal to = perpendicular
    {"phi", 966},       // greek small letter phi, U+03C6 ISOgrk3
    {"pi", 960},        // greek small letter pi, U+03C0 ISOgrk3
    {"piv", 982},       // greek pi symbol, U+03D6 ISOgrk3
    {"plusmn", 177},    // plus-minus sign = plus-or-minus sign
    {"pound", 163},     // pound sign, U+00A3 ISOnum
    {"prime", 8242},    // prime = minutes = feet, U+2032 ISOtech
    {"prod", 8719},     // n-ary product = product sign
    {"prop", 8733},     // proportional to, U+221D ISOtech
    {"psi", 968},       // greek small letter psi, U+03C8 ISOgrk3
    {"quot", 34},       // -- quotation mark = APL quote
    {"rArr", 8658},     // rightwards double arrow
    {"radic", 8730},    // square root = radical sign
    {"rang", 9002},     // right-pointing angle bracket = ket
    {"raquo", 187},     // right-pointing double angle quotation mark
    {"rarr", 8594},     // rightwards arrow, U+2192 ISOnum
    {"rceil", 8969},    // right ceiling, U+2309 ISOamsc
    {"rdquo", 8221},    // right double quotation mark
    {"real", 8476},     // blackletter capital R = real part symbol
    {"reg", 174},       // registered sign = registered trade mark sign
    {"rfloor", 8971},   // right floor, U+230B ISOamsc
    {"rho", 961},       // greek small letter rho, U+03C1 ISOgrk3
    {"rlm", 8207},      // right-to-left mark, U+200F NEW RFC 2070
    {"rsaquo", 8250},   // single right-pointing angle quotation mark
    {"rsquo", 8217},    // right single quotation mark
    {"sbquo", 8218},    // single low-9 quotation mark, U+201A NEW
    {"scaron", 353},    // - latin small letter s with caron
    {"sdot", 8901},     // dot operator, U+22C5 ISOamsb
    {"sect", 167},      // section sign, U+00A7 ISOnum
    {"shy", 173},       // soft hyphen = discretionary hyphen
    {"sigma", 963},     // greek small letter sigma
    {"sigmaf", 962},    // greek small letter final sigma
    {"sim", 8764},      // tilde operator = varies with = similar to
    {"spades", 9824},   // black spade suit, U+2660 ISOpub
    {"sub", 8834},      // subset of, U+2282 ISOtech
    {"sube", 8838},     // subset of or equal to, U+2286 ISOtech
    {"sum", 8721},      // n-ary sumation, U+2211 ISOamsb
    {"sup", 8835},      // superset of, U+2283 ISOtech
    {"sup1", 185},      // superscript one = superscript digit one
    {"sup2", 178},      // superscript two = superscript digit two
    {"sup3", 179},      // superscript three = superscript digit three
    {"supe", 8839},     // superset of or equal to
    {"szlig", 223},     // latin small letter sharp s = ess-zed
    {"tau", 964},       // greek small letter tau, U+03C4 ISOgrk3
    {"there4", 8756},   // therefore, U+2234 ISOtech
    {"theta", 952},     // greek small letter theta
    {"thetasym", 977},  // greek small letter theta symbol
    {"thinsp", 8201},   // thin space, U+2009 ISOpub
    {"thorn", 254},     // latin small letter thorn
    {"tilde", 732},     // - small tilde, U+02DC ISOdia
    {"times", 215},     // multiplication sign, U+00D7 ISOnum
    {"trade", 8482},    // trade mark sign, U+2122 ISOnum
    {"uArr", 8657},     // upwards double arrow, U+21D1 ISOamsa
    {"uacute", 250},    // latin small letter u with acute
    {"uarr", 8593},     // upwards arrow, U+2191 ISOnum-->
    {"ucirc", 251},     // latin small letter u with circumflex
    {"ugrave", 249},    // latin small letter u with grave
    {"uml", 168},       // diaeresis = spacing diaeresis
    {"upsih", 978},     // greek upsilon with hook symbol
    {"upsilon", 965},   // greek small letter upsilon
    {"uuml", 252},      // latin small letter u with diaeresis
    {"weierp", 8472},   // script capital P = power set
    {"xi", 958},        // greek small letter xi, U+03BE ISOgrk3
    {"yacute", 253},    // latin small letter y with acute
    {"yen", 165},       // yen sign = yuan sign, U+00A5 ISOnum
    {"yuml", 255},      // latin small letter y with diaeresis
    {"zeta", 950},      // greek small letter zeta, U+03B6 ISOgrk3
    {"zwj", 8205},      // zero width joiner, U+200D NEW RFC 2070
    {"zwnj", 8204},     // zero width non-joiner
    {NULL, 0},
};

static uint64_t calc_hash(const char *key) {
    uint64_t h = 0;

    if (NULL != key) {
        const uint8_t *k = (const uint8_t *)key;

        for (; 0 != *k; k++) {
            // narrow to most used range of 0x4D (77) in size
            h = 77 * h + ((*k | 0x20) - 0x2D);
        }
    }
    return h;
}

static Slot *get_bucketp(uint64_t h) {
    return entity_cache.buckets + (BUCKET_MASK & (h ^ (h << 5) ^ (h >> 7)));
}

static void cache_set(Slot s) {
    int64_t h      = calc_hash(s->key);
    Slot   *bucket = get_bucketp(h);

    s->hash = h;
    s->next = *bucket;
    *bucket = s;
}

static Slot cache_get(const char *key) {
    int64_t h      = calc_hash(key);
    Slot   *bucket = get_bucketp(h);
    Slot    s;

    for (s = *bucket; NULL != s; s = s->next) {
        if (h == (int64_t)s->hash && 0 == strcasecmp(s->key, key)) {
            return s;
        }
    }
    return NULL;
}

static void cache_init(void) {
    Slot e = entities;

    memset(&entity_cache, 0, sizeof(struct _cache));
    for (; NULL != e->key; e++) {
        cache_set(e);
    }
    inited = true;
}

char *ox_entity_lookup(char *text, const char *key) {
    Slot s = entities;

    if (!inited) {
        cache_init();
    }
    if (NULL == (s = cache_get(key))) {
        return NULL;
    }
    return ox_ucs_to_utf8_chars(text, s->code);
}