| 1 |
{-# OPTIONS_GHC -fglasgow-exts -fno-full-laziness -fno-cse -cpp -fvia-C -fallow-overlapping-instances #-} |
|---|
| 2 |
|
|---|
| 3 |
module Pugs.Parser.Charnames (nameToCode) where |
|---|
| 4 |
|
|---|
| 5 |
import Pugs.Internals |
|---|
| 6 |
|
|---|
| 7 |
#ifdef PUGS_HAVE_PERL5 |
|---|
| 8 |
|
|---|
| 9 |
import Pugs.Embed.Perl5 |
|---|
| 10 |
|
|---|
| 11 |
-- If we do have Perl 5, support for all unicode names via Perl5's charnames::vianame. |
|---|
| 12 |
|
|---|
| 13 |
nameToCode :: String -> Maybe Int |
|---|
| 14 |
nameToCode name = inlinePerformIO $ do |
|---|
| 15 |
sv <- evalPerl5 ("use utf8; use charnames ':full'; ord(qq[\\N{"++name++"}])") nullEnv 1 |
|---|
| 16 |
svToVInt sv >>= \iv -> case iv of |
|---|
| 17 |
0 -> svToVStr sv >>= \pv -> case pv of |
|---|
| 18 |
"0" -> return (Just 0) |
|---|
| 19 |
_ -> return Nothing -- undef |
|---|
| 20 |
x -> return (Just x) |
|---|
| 21 |
|
|---|
| 22 |
#else |
|---|
| 23 |
|
|---|
| 24 |
import qualified Data.HashTable as H |
|---|
| 25 |
import UTF8 (unsafePackAddress, hash) |
|---|
| 26 |
|
|---|
| 27 |
-- If we don't have Perl 5, support for names in the 0x00 - 0xFF range only. |
|---|
| 28 |
|
|---|
| 29 |
nameToCode :: String -> Maybe Int |
|---|
| 30 |
nameToCode name = inlinePerformIO (H.lookup _NameToCode (cast name)) |
|---|
| 31 |
|
|---|
| 32 |
{-# NOINLINE _NameToCode #-} |
|---|
| 33 |
_NameToCode :: H.HashTable ByteString Int |
|---|
| 34 |
_NameToCode = unsafePerformIO $! hashList |
|---|
| 35 |
[ (unsafePackAddress 4 "NULL"#, 0x0000) |
|---|
| 36 |
, (unsafePackAddress 16 "START OF HEADING"#, 0x0001) |
|---|
| 37 |
, (unsafePackAddress 13 "START OF TEXT"#, 0x0002) |
|---|
| 38 |
, (unsafePackAddress 11 "END OF TEXT"#, 0x0003) |
|---|
| 39 |
, (unsafePackAddress 19 "END OF TRANSMISSION"#, 0x0004) |
|---|
| 40 |
, (unsafePackAddress 7 "ENQUIRY"#, 0x0005) |
|---|
| 41 |
, (unsafePackAddress 11 "ACKNOWLEDGE"#, 0x0006) |
|---|
| 42 |
, (unsafePackAddress 4 "BELL"#, 0x0007) |
|---|
| 43 |
, (unsafePackAddress 9 "BACKSPACE"#, 0x0008) |
|---|
| 44 |
, (unsafePackAddress 20 "CHARACTER TABULATION"#, 0x0009) |
|---|
| 45 |
, (unsafePackAddress 14 "LINE FEED (LF)"#, 0x000A) |
|---|
| 46 |
, (unsafePackAddress 9 "LINE FEED"#, 0x000A) |
|---|
| 47 |
, (unsafePackAddress 15 "LINE TABULATION"#, 0x000B) |
|---|
| 48 |
, (unsafePackAddress 14 "FORM FEED (FF)"#, 0x000C) |
|---|
| 49 |
, (unsafePackAddress 9 "FORM FEED"#, 0x000C) |
|---|
| 50 |
, (unsafePackAddress 20 "CARRIAGE RETURN (CR)"#, 0x000D) |
|---|
| 51 |
, (unsafePackAddress 15 "CARRIAGE RETURN"#, 0x000D) |
|---|
| 52 |
, (unsafePackAddress 9 "SHIFT OUT"#, 0x000E) |
|---|
| 53 |
, (unsafePackAddress 8 "SHIFT IN"#, 0x000F) |
|---|
| 54 |
, (unsafePackAddress 16 "DATA LINK ESCAPE"#, 0x0010) |
|---|
| 55 |
, (unsafePackAddress 18 "DEVICE CONTROL ONE"#, 0x0011) |
|---|
| 56 |
, (unsafePackAddress 18 "DEVICE CONTROL TWO"#, 0x0012) |
|---|
| 57 |
, (unsafePackAddress 20 "DEVICE CONTROL THREE"#, 0x0013) |
|---|
| 58 |
, (unsafePackAddress 19 "DEVICE CONTROL FOUR"#, 0x0014) |
|---|
| 59 |
, (unsafePackAddress 20 "NEGATIVE ACKNOWLEDGE"#, 0x0015) |
|---|
| 60 |
, (unsafePackAddress 16 "SYNCHRONOUS IDLE"#, 0x0016) |
|---|
| 61 |
, (unsafePackAddress 25 "END OF TRANSMISSION BLOCK"#, 0x0017) |
|---|
| 62 |
, (unsafePackAddress 6 "CANCEL"#, 0x0018) |
|---|
| 63 |
, (unsafePackAddress 13 "END OF MEDIUM"#, 0x0019) |
|---|
| 64 |
, (unsafePackAddress 10 "SUBSTITUTE"#, 0x001A) |
|---|
| 65 |
, (unsafePackAddress 6 "ESCAPE"#, 0x001B) |
|---|
| 66 |
, (unsafePackAddress 26 "INFORMATION SEPARATOR FOUR"#, 0x001C) |
|---|
| 67 |
, (unsafePackAddress 27 "INFORMATION SEPARATOR THREE"#, 0x001D) |
|---|
| 68 |
, (unsafePackAddress 25 "INFORMATION SEPARATOR TWO"#, 0x001E) |
|---|
| 69 |
, (unsafePackAddress 25 "INFORMATION SEPARATOR ONE"#, 0x001F) |
|---|
| 70 |
, (unsafePackAddress 5 "SPACE"#, 0x0020) |
|---|
| 71 |
, (unsafePackAddress 16 "EXCLAMATION MARK"#, 0x0021) |
|---|
| 72 |
, (unsafePackAddress 14 "QUOTATION MARK"#, 0x0022) |
|---|
| 73 |
, (unsafePackAddress 11 "NUMBER SIGN"#, 0x0023) |
|---|
| 74 |
, (unsafePackAddress 11 "DOLLAR SIGN"#, 0x0024) |
|---|
| 75 |
, (unsafePackAddress 12 "PERCENT SIGN"#, 0x0025) |
|---|
| 76 |
, (unsafePackAddress 9 "AMPERSAND"#, 0x0026) |
|---|
| 77 |
, (unsafePackAddress 10 "APOSTROPHE"#, 0x0027) |
|---|
| 78 |
, (unsafePackAddress 16 "LEFT PARENTHESIS"#, 0x0028) |
|---|
| 79 |
, (unsafePackAddress 17 "RIGHT PARENTHESIS"#, 0x0029) |
|---|
| 80 |
, (unsafePackAddress 8 "ASTERISK"#, 0x002A) |
|---|
| 81 |
, (unsafePackAddress 9 "PLUS SIGN"#, 0x002B) |
|---|
| 82 |
, (unsafePackAddress 5 "COMMA"#, 0x002C) |
|---|
| 83 |
, (unsafePackAddress 12 "HYPHEN-MINUS"#, 0x002D) |
|---|
| 84 |
, (unsafePackAddress 9 "FULL STOP"#, 0x002E) |
|---|
| 85 |
, (unsafePackAddress 7 "SOLIDUS"#, 0x002F) |
|---|
| 86 |
, (unsafePackAddress 10 "DIGIT ZERO"#, 0x0030) |
|---|
| 87 |
, (unsafePackAddress 9 "DIGIT ONE"#, 0x0031) |
|---|
| 88 |
, (unsafePackAddress 9 "DIGIT TWO"#, 0x0032) |
|---|
| 89 |
, (unsafePackAddress 11 "DIGIT THREE"#, 0x0033) |
|---|
| 90 |
, (unsafePackAddress 10 "DIGIT FOUR"#, 0x0034) |
|---|
| 91 |
, (unsafePackAddress 10 "DIGIT FIVE"#, 0x0035) |
|---|
| 92 |
, (unsafePackAddress 9 "DIGIT SIX"#, 0x0036) |
|---|
| 93 |
, (unsafePackAddress 11 "DIGIT SEVEN"#, 0x0037) |
|---|
| 94 |
, (unsafePackAddress 11 "DIGIT EIGHT"#, 0x0038) |
|---|
| 95 |
, (unsafePackAddress 10 "DIGIT NINE"#, 0x0039) |
|---|
| 96 |
, (unsafePackAddress 5 "COLON"#, 0x003A) |
|---|
| 97 |
, (unsafePackAddress 9 "SEMICOLON"#, 0x003B) |
|---|
| 98 |
, (unsafePackAddress 14 "LESS-THAN SIGN"#, 0x003C) |
|---|
| 99 |
, (unsafePackAddress 11 "EQUALS SIGN"#, 0x003D) |
|---|
| 100 |
, (unsafePackAddress 17 "GREATER-THAN SIGN"#, 0x003E) |
|---|
| 101 |
, (unsafePackAddress 13 "QUESTION MARK"#, 0x003F) |
|---|
| 102 |
, (unsafePackAddress 13 "COMMERCIAL AT"#, 0x0040) |
|---|
| 103 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER A"#, 0x0041) |
|---|
| 104 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER B"#, 0x0042) |
|---|
| 105 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER C"#, 0x0043) |
|---|
| 106 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER D"#, 0x0044) |
|---|
| 107 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER E"#, 0x0045) |
|---|
| 108 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER F"#, 0x0046) |
|---|
| 109 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER G"#, 0x0047) |
|---|
| 110 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER H"#, 0x0048) |
|---|
| 111 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER I"#, 0x0049) |
|---|
| 112 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER J"#, 0x004A) |
|---|
| 113 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER K"#, 0x004B) |
|---|
| 114 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER L"#, 0x004C) |
|---|
| 115 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER M"#, 0x004D) |
|---|
| 116 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER N"#, 0x004E) |
|---|
| 117 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER O"#, 0x004F) |
|---|
| 118 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER P"#, 0x0050) |
|---|
| 119 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER Q"#, 0x0051) |
|---|
| 120 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER R"#, 0x0052) |
|---|
| 121 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER S"#, 0x0053) |
|---|
| 122 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER T"#, 0x0054) |
|---|
| 123 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER U"#, 0x0055) |
|---|
| 124 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER V"#, 0x0056) |
|---|
| 125 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER W"#, 0x0057) |
|---|
| 126 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER X"#, 0x0058) |
|---|
| 127 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER Y"#, 0x0059) |
|---|
| 128 |
, (unsafePackAddress 22 "LATIN CAPITAL LETTER Z"#, 0x005A) |
|---|
| 129 |
, (unsafePackAddress 19 "LEFT SQUARE BRACKET"#, 0x005B) |
|---|
| 130 |
, (unsafePackAddress 15 "REVERSE SOLIDUS"#, 0x005C) |
|---|
| 131 |
, (unsafePackAddress 20 "RIGHT SQUARE BRACKET"#, 0x005D) |
|---|
| 132 |
, (unsafePackAddress 17 "CIRCUMFLEX ACCENT"#, 0x005E) |
|---|
| 133 |
, (unsafePackAddress 8 "LOW LINE"#, 0x005F) |
|---|
| 134 |
, (unsafePackAddress 12 "GRAVE ACCENT"#, 0x0060) |
|---|
| 135 |
, (unsafePackAddress 20 "LATIN SMALL LETTER A"#, 0x0061) |
|---|
| 136 |
, (unsafePackAddress 20 "LATIN SMALL LETTER B"#, 0x0062) |
|---|
| 137 |
, (unsafePackAddress 20 "LATIN SMALL LETTER C"#, 0x0063) |
|---|
| 138 |
, (unsafePackAddress 20 "LATIN SMALL LETTER D"#, 0x0064) |
|---|
| 139 |
, (unsafePackAddress 20 "LATIN SMALL LETTER E"#, 0x0065) |
|---|
| 140 |
, (unsafePackAddress 20 "LATIN SMALL LETTER F"#, 0x0066) |
|---|
| 141 |
, (unsafePackAddress 20 "LATIN SMALL LETTER G"#, 0x0067) |
|---|
| 142 |
, (unsafePackAddress 20 "LATIN SMALL LETTER H"#, 0x0068) |
|---|
| 143 |
, (unsafePackAddress 20 "LATIN SMALL LETTER I"#, 0x0069) |
|---|
| 144 |
, (unsafePackAddress 20 "LATIN SMALL LETTER J"#, 0x006A) |
|---|
| 145 |
, (unsafePackAddress 20 "LATIN SMALL LETTER K"#, 0x006B) |
|---|
| 146 |
, (unsafePackAddress 20 "LATIN SMALL LETTER L"#, 0x006C) |
|---|
| 147 |
, (unsafePackAddress 20 "LATIN SMALL LETTER M"#, 0x006D) |
|---|
| 148 |
, (unsafePackAddress 20 "LATIN SMALL LETTER N"#, 0x006E) |
|---|
| 149 |
, (unsafePackAddress 20 "LATIN SMALL LETTER O"#, 0x006F) |
|---|
| 150 |
, (unsafePackAddress 20 "LATIN SMALL LETTER P"#, 0x0070) |
|---|
| 151 |
, (unsafePackAddress 20 "LATIN SMALL LETTER Q"#, 0x0071) |
|---|
| 152 |
, (unsafePackAddress 20 "LATIN SMALL LETTER R"#, 0x0072) |
|---|
| 153 |
, (unsafePackAddress 20 "LATIN SMALL LETTER S"#, 0x0073) |
|---|
| 154 |
, (unsafePackAddress 20 "LATIN SMALL LETTER T"#, 0x0074) |
|---|
| 155 |
, (unsafePackAddress 20 "LATIN SMALL LETTER U"#, 0x0075) |
|---|
| 156 |
, (unsafePackAddress 20 "LATIN SMALL LETTER V"#, 0x0076) |
|---|
| 157 |
, (unsafePackAddress 20 "LATIN SMALL LETTER W"#, 0x0077) |
|---|
| 158 |
, (unsafePackAddress 20 "LATIN SMALL LETTER X"#, 0x0078) |
|---|
| 159 |
, (unsafePackAddress 20 "LATIN SMALL LETTER Y"#, 0x0079) |
|---|
| 160 |
, (unsafePackAddress 20 "LATIN SMALL LETTER Z"#, 0x007A) |
|---|
| 161 |
, (unsafePackAddress 18 "LEFT CURLY BRACKET"#, 0x007B) |
|---|
| 162 |
, (unsafePackAddress 13 "VERTICAL LINE"#, 0x007C) |
|---|
| 163 |
, (unsafePackAddress 19 "RIGHT CURLY BRACKET"#, 0x007D) |
|---|
| 164 |
, (unsafePackAddress 5 "TILDE"#, 0x007E) |
|---|
| 165 |
, (unsafePackAddress 6 "DELETE"#, 0x007F) |
|---|
| 166 |
, (unsafePackAddress 20 "BREAK PERMITTED HERE"#, 0x0082) |
|---|
| 167 |
, (unsafePackAddress 13 "NO BREAK HERE"#, 0x0083) |
|---|
| 168 |
, (unsafePackAddress 15 "NEXT LINE (NEL)"#, 0x0085) |
|---|
| 169 |
, (unsafePackAddress 9 "NEXT LINE"#, 0x0085) |
|---|
| 170 |
, (unsafePackAddress 22 "START OF SELECTED AREA"#, 0x0086) |
|---|
| 171 |
, (unsafePackAddress 20 "END OF SELECTED AREA"#, 0x0087) |
|---|
| 172 |
, (unsafePackAddress 24 "CHARACTER TABULATION SET"#, 0x0088) |
|---|
| 173 |
, (unsafePackAddress 39 "CHARACTER TABULATION WITH JUSTIFICATION"#, 0x0089) |
|---|
| 174 |
, (unsafePackAddress 19 "LINE TABULATION SET"#, 0x008A) |
|---|
| 175 |
, (unsafePackAddress 20 "PARTIAL LINE FORWARD"#, 0x008B) |
|---|
| 176 |
, (unsafePackAddress 21 "PARTIAL LINE BACKWARD"#, 0x008C) |
|---|
| 177 |
, (unsafePackAddress 17 "REVERSE LINE FEED"#, 0x008D) |
|---|
| 178 |
, (unsafePackAddress 16 "SINGLE SHIFT TWO"#, 0x008E) |
|---|
| 179 |
, (unsafePackAddress 18 "SINGLE SHIFT THREE"#, 0x008F) |
|---|
| 180 |
, (unsafePackAddress 21 "DEVICE CONTROL STRING"#, 0x0090) |
|---|
| 181 |
, (unsafePackAddress 15 "PRIVATE USE ONE"#, 0x0091) |
|---|
| 182 |
, (unsafePackAddress 15 "PRIVATE USE TWO"#, 0x0092) |
|---|
| 183 |
, (unsafePackAddress 18 "SET TRANSMIT STATE"#, 0x0093) |
|---|
| 184 |
, (unsafePackAddress 16 "CANCEL CHARACTER"#, 0x0094) |
|---|
| 185 |
, (unsafePackAddress 15 "MESSAGE WAITING"#, 0x0095) |
|---|
| 186 |
, (unsafePackAddress 21 "START OF GUARDED AREA"#, 0x0096) |
|---|
| 187 |
, (unsafePackAddress 19 "END OF GUARDED AREA"#, 0x0097) |
|---|
| 188 |
, (unsafePackAddress 15 "START OF STRING"#, 0x0098) |
|---|
| 189 |
, (unsafePackAddress 27 "SINGLE CHARACTER INTRODUCER"#, 0x009A) |
|---|
| 190 |
, (unsafePackAddress 27 "CONTROL SEQUENCE INTRODUCER"#, 0x009B) |
|---|
| 191 |
, (unsafePackAddress 17 "STRING TERMINATOR"#, 0x009C) |
|---|
| 192 |
, (unsafePackAddress 24 "OPERATING SYSTEM COMMAND"#, 0x009D) |
|---|
| 193 |
, (unsafePackAddress 15 "PRIVACY MESSAGE"#, 0x009E) |
|---|
| 194 |
, (unsafePackAddress 27 "APPLICATION PROGRAM COMMAND"#, 0x009F) |
|---|
| 195 |
, (unsafePackAddress 14 "NO-BREAK SPACE"#, 0x00A0) |
|---|
| 196 |
, (unsafePackAddress 25 "INVERTED EXCLAMATION MARK"#, 0x00A1) |
|---|
| 197 |
, (unsafePackAddress 9 "CENT SIGN"#, 0x00A2) |
|---|
| 198 |
, (unsafePackAddress 10 "POUND SIGN"#, 0x00A3) |
|---|
| 199 |
, (unsafePackAddress 13 "CURRENCY SIGN"#, 0x00A4) |
|---|
| 200 |
, (unsafePackAddress 8 "YEN SIGN"#, 0x00A5) |
|---|
| 201 |
, (unsafePackAddress 10 "BROKEN BAR"#, 0x00A6) |
|---|
| 202 |
, (unsafePackAddress 12 "SECTION SIGN"#, 0x00A7) |
|---|
| 203 |
, (unsafePackAddress 9 "DIAERESIS"#, 0x00A8) |
|---|
| 204 |
, (unsafePackAddress 14 "COPYRIGHT SIGN"#, 0x00A9) |
|---|
| 205 |
, (unsafePackAddress 26 "FEMININE ORDINAL INDICATOR"#, 0x00AA) |
|---|
| 206 |
, (unsafePackAddress 41 "LEFT-POINTING DOUBLE ANGLE QUOTATION MARK"#, 0x00AB) |
|---|
| 207 |
, (unsafePackAddress 8 "NOT SIGN"#, 0x00AC) |
|---|
| 208 |
, (unsafePackAddress 11 "SOFT HYPHEN"#, 0x00AD) |
|---|
| 209 |
, (unsafePackAddress 15 "REGISTERED SIGN"#, 0x00AE) |
|---|
| 210 |
, (unsafePackAddress 6 "MACRON"#, 0x00AF) |
|---|
| 211 |
, (unsafePackAddress 11 "DEGREE SIGN"#, 0x00B0) |
|---|
| 212 |
, (unsafePackAddress 15 "PLUS-MINUS SIGN"#, 0x00B1) |
|---|
| 213 |
, (unsafePackAddress 15 "SUPERSCRIPT TWO"#, 0x00B2) |
|---|
| 214 |
, (unsafePackAddress 17 "SUPERSCRIPT THREE"#, 0x00B3) |
|---|
| 215 |
, (unsafePackAddress 12 "ACUTE ACCENT"#, 0x00B4) |
|---|
| 216 |
, (unsafePackAddress 10 "MICRO SIGN"#, 0x00B5) |
|---|
| 217 |
, (unsafePackAddress 12 "PILCROW SIGN"#, 0x00B6) |
|---|
| 218 |
, (unsafePackAddress 10 "MIDDLE DOT"#, 0x00B7) |
|---|
| 219 |
, (unsafePackAddress 7 "CEDILLA"#, 0x00B8) |
|---|
| 220 |
, (unsafePackAddress 15 "SUPERSCRIPT ONE"#, 0x00B9) |
|---|
| 221 |
, (unsafePackAddress 27 "MASCULINE ORDINAL INDICATOR"#, 0x00BA) |
|---|
| 222 |
, (unsafePackAddress 42 "RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK"#, 0x00BB) |
|---|
| 223 |
, (unsafePackAddress 27 "VULGAR FRACTION ONE QUARTER"#, 0x00BC) |
|---|
| 224 |
, (unsafePackAddress 24 "VULGAR FRACTION ONE HALF"#, 0x00BD) |
|---|
| 225 |
, (unsafePackAddress 30 "VULGAR FRACTION THREE QUARTERS"#, 0x00BE) |
|---|
| 226 |
, (unsafePackAddress 22 "INVERTED QUESTION MARK"#, 0x00BF) |
|---|
| 227 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER A WITH GRAVE"#, 0x00C0) |
|---|
| 228 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER A WITH ACUTE"#, 0x00C1) |
|---|
| 229 |
, (unsafePackAddress 38 "LATIN CAPITAL LETTER A WITH CIRCUMFLEX"#, 0x00C2) |
|---|
| 230 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER A WITH TILDE"#, 0x00C3) |
|---|
| 231 |
, (unsafePackAddress 37 "LATIN CAPITAL LETTER A WITH DIAERESIS"#, 0x00C4) |
|---|
| 232 |
, (unsafePackAddress 38 "LATIN CAPITAL LETTER A WITH RING ABOVE"#, 0x00C5) |
|---|
| 233 |
, (unsafePackAddress 23 "LATIN CAPITAL LETTER AE"#, 0x00C6) |
|---|
| 234 |
, (unsafePackAddress 35 "LATIN CAPITAL LETTER C WITH CEDILLA"#, 0x00C7) |
|---|
| 235 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER E WITH GRAVE"#, 0x00C8) |
|---|
| 236 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER E WITH ACUTE"#, 0x00C9) |
|---|
| 237 |
, (unsafePackAddress 38 "LATIN CAPITAL LETTER E WITH CIRCUMFLEX"#, 0x00CA) |
|---|
| 238 |
, (unsafePackAddress 37 "LATIN CAPITAL LETTER E WITH DIAERESIS"#, 0x00CB) |
|---|
| 239 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER I WITH GRAVE"#, 0x00CC) |
|---|
| 240 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER I WITH ACUTE"#, 0x00CD) |
|---|
| 241 |
, (unsafePackAddress 38 "LATIN CAPITAL LETTER I WITH CIRCUMFLEX"#, 0x00CE) |
|---|
| 242 |
, (unsafePackAddress 37 "LATIN CAPITAL LETTER I WITH DIAERESIS"#, 0x00CF) |
|---|
| 243 |
, (unsafePackAddress 24 "LATIN CAPITAL LETTER ETH"#, 0x00D0) |
|---|
| 244 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER N WITH TILDE"#, 0x00D1) |
|---|
| 245 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER O WITH GRAVE"#, 0x00D2) |
|---|
| 246 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER O WITH ACUTE"#, 0x00D3) |
|---|
| 247 |
, (unsafePackAddress 38 "LATIN CAPITAL LETTER O WITH CIRCUMFLEX"#, 0x00D4) |
|---|
| 248 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER O WITH TILDE"#, 0x00D5) |
|---|
| 249 |
, (unsafePackAddress 37 "LATIN CAPITAL LETTER O WITH DIAERESIS"#, 0x00D6) |
|---|
| 250 |
, (unsafePackAddress 19 "MULTIPLICATION SIGN"#, 0x00D7) |
|---|
| 251 |
, (unsafePackAddress 34 "LATIN CAPITAL LETTER O WITH STROKE"#, 0x00D8) |
|---|
| 252 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER U WITH GRAVE"#, 0x00D9) |
|---|
| 253 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER U WITH ACUTE"#, 0x00DA) |
|---|
| 254 |
, (unsafePackAddress 38 "LATIN CAPITAL LETTER U WITH CIRCUMFLEX"#, 0x00DB) |
|---|
| 255 |
, (unsafePackAddress 37 "LATIN CAPITAL LETTER U WITH DIAERESIS"#, 0x00DC) |
|---|
| 256 |
, (unsafePackAddress 33 "LATIN CAPITAL LETTER Y WITH ACUTE"#, 0x00DD) |
|---|
| 257 |
, (unsafePackAddress 26 "LATIN CAPITAL LETTER THORN"#, 0x00DE) |
|---|
| 258 |
, (unsafePackAddress 26 "LATIN SMALL LETTER SHARP S"#, 0x00DF) |
|---|
| 259 |
, (unsafePackAddress 31 "LATIN SMALL LETTER A WITH GRAVE"#, 0x00E0) |
|---|
| 260 |
, (unsafePackAddress 31 "LATIN SMALL LETTER A WITH ACUTE"#, 0x00E1) |
|---|
| 261 |
, (unsafePackAddress 36 "LATIN SMALL LETTER A WITH CIRCUMFLEX"#, 0x00E2) |
|---|
| 262 |
, (unsafePackAddress 31 "LATIN SMALL LETTER A WITH TILDE"#, 0x00E3) |
|---|
| 263 |
, (unsafePackAddress 35 "LATIN SMALL LETTER A WITH DIAERESIS"#, 0x00E4) |
|---|
| 264 |
, (unsafePackAddress 36 "LATIN SMALL LETTER A WITH RING ABOVE"#, 0x00E5) |
|---|
| 265 |
, (unsafePackAddress 21 "LATIN SMALL LETTER AE"#, 0x00E6) |
|---|
| 266 |
, (unsafePackAddress 33 "LATIN SMALL LETTER C WITH CEDILLA"#, 0x00E7) |
|---|
| 267 |
, (unsafePackAddress 31 "LATIN SMALL LETTER E WITH GRAVE"#, 0x00E8) |
|---|
| 268 |
, (unsafePackAddress 31 "LATIN SMALL LETTER E WITH ACUTE"#, 0x00E9) |
|---|
| 269 |
, (unsafePackAddress 36 "LATIN SMALL LETTER E WITH CIRCUMFLEX"#, 0x00EA) |
|---|
| 270 |
, (unsafePackAddress 35 "LATIN SMALL LETTER E WITH DIAERESIS"#, 0x00EB) |
|---|
| 271 |
, (unsafePackAddress 31 "LATIN SMALL LETTER I WITH GRAVE"#, 0x00EC) |
|---|
| 272 |
, (unsafePackAddress 31 "LATIN SMALL LETTER I WITH ACUTE"#, 0x00ED) |
|---|
| 273 |
, (unsafePackAddress 36 "LATIN SMALL LETTER I WITH CIRCUMFLEX"#, 0x00EE) |
|---|
| 274 |
, (unsafePackAddress 35 "LATIN SMALL LETTER I WITH DIAERESIS"#, 0x00EF) |
|---|
| 275 |
, (unsafePackAddress 22 "LATIN SMALL LETTER ETH"#, 0x00F0) |
|---|
| 276 |
, (unsafePackAddress 31 "LATIN SMALL LETTER N WITH TILDE"#, 0x00F1) |
|---|
| 277 |
, (unsafePackAddress 31 "LATIN SMALL LETTER O WITH GRAVE"#, 0x00F2) |
|---|
| 278 |
, (unsafePackAddress 31 "LATIN SMALL LETTER O WITH ACUTE"#, 0x00F3) |
|---|
| 279 |
, (unsafePackAddress 36 "LATIN SMALL LETTER O WITH CIRCUMFLEX"#, 0x00F4) |
|---|
| 280 |
, (unsafePackAddress 31 "LATIN SMALL LETTER O WITH TILDE"#, 0x00F5) |
|---|
| 281 |
, (unsafePackAddress 35 "LATIN SMALL LETTER O WITH DIAERESIS"#, 0x00F6) |
|---|
| 282 |
, (unsafePackAddress 13 "DIVISION SIGN"#, 0x00F7) |
|---|
| 283 |
, (unsafePackAddress 32 "LATIN SMALL LETTER O WITH STROKE"#, 0x00F8) |
|---|
| 284 |
, (unsafePackAddress 31 "LATIN SMALL LETTER U WITH GRAVE"#, 0x00F9) |
|---|
| 285 |
, (unsafePackAddress 31 "LATIN SMALL LETTER U WITH ACUTE"#, 0x00FA) |
|---|
| 286 |
, (unsafePackAddress 36 "LATIN SMALL LETTER U WITH CIRCUMFLEX"#, 0x00FB) |
|---|
| 287 |
, (unsafePackAddress 35 "LATIN SMALL LETTER U WITH DIAERESIS"#, 0x00FC) |
|---|
| 288 |
, (unsafePackAddress 31 "LATIN SMALL LETTER Y WITH ACUTE"#, 0x00FD) |
|---|
| 289 |
, (unsafePackAddress 24 "LATIN SMALL LETTER THORN"#, 0x00FE) |
|---|
| 290 |
, (unsafePackAddress 35 "LATIN SMALL LETTER Y WITH DIAERESIS"#, 0x00FF) |
|---|
| 291 |
] |
|---|
| 292 |
where |
|---|
| 293 |
hashList :: [(ByteString, a)] -> IO (H.HashTable ByteString a) |
|---|
| 294 |
hashList = H.fromList hash |
|---|
| 295 |
|
|---|
| 296 |
#endif |
|---|
