text-cp437 0.2.1 → 0.2.2
raw patch · 4 files changed
+580/−2 lines, 4 files
Files
- README.md +3/−0
- src/Data/Text/CP437/Graphical.hs +567/−0
- test/Spec.hs +8/−1
- text-cp437.cabal +2/−1
README.md view
@@ -2,6 +2,9 @@ Basic mapping of cp437 bytes to UTF and back. +* `Data.Text.CP437` offers mapping that maps control characters to control characters.+* `Data.Text.CP437.Graphical` maps control characters to old school pictures like `♪`.+ ## `textToCp437 :: Text -> ByteString` Given a string of text, produce a bytestring containing valid CP-437 encoded data.
+ src/Data/Text/CP437/Graphical.hs view
@@ -0,0 +1,567 @@+-- |+-- Module : Data.Text.CP437.Graphical+-- Copyright : (c) 2018 Ignat Insarov+--+-- License : BSD-style+-- Maintainer : kindaro@gmail.com+-- Stability : experimental+-- Portability : GHC+--+-- Simple conversion of Unicode Text to and from code page 437, with printable+-- glyphs for the whole range. Our design choice is to print 0x00 as a space.+--+-- Unrepresentable unicode characters are converted to a null byte.+--+module Data.Text.CP437.Graphical+(+ -- * Text/ByteString+ textToCp437+ , cp437ToText++ -- * Char/Word8+ , utfToByte+ , byteToUtf++) where++import qualified Data.ByteString as B+import qualified Data.Text as T+import Data.Word+++-- | Given a string of text, produce a bytestring containing valid CP-437 encoded data.+-- If any UTF symbols are used that occur in CP437 they will be translated.+textToCp437 :: T.Text -> B.ByteString++-- | Given a ByteString that is encoded with CP-437, will decode to a UTF Text, with all symbols converted.+cp437ToText :: B.ByteString -> T.Text++-- | Convert a single unicode character to a CP-437 byte.+utfToByte :: Char -> Word8++-- | Convert a single byte into a unicode character.+byteToUtf :: Word8 -> Char++textToCp437 = T.foldl' (\a c -> B.snoc a (utfToByte c)) B.empty+{-# INLINE [1] textToCp437 #-}++cp437ToText = B.foldl' (\a c -> T.snoc a (byteToUtf c)) T.empty+{-# INLINE [1] cp437ToText #-}++utfToByte c = case c of+ '\x0000' -> 0x00 -- NULL+ '\x263A' -> 0x01 -- START OF HEADING+ '\x263B' -> 0x02 -- START OF TEXT+ '\x2665' -> 0x03 -- END OF TEXT+ '\x2666' -> 0x04 -- END OF TRANSMISSION+ '\x2663' -> 0x05 -- ENQUIRY+ '\x2660' -> 0x06 -- ACKNOWLEDGE+ '\x2022' -> 0x07 -- BELL+ '\x25D8' -> 0x08 -- BACKSPACE+ '\x25CB' -> 0x09 -- HORIZONTAL TABULATION+ '\x25D9' -> 0x0a -- LINE FEED+ '\x2642' -> 0x0b -- VERTICAL TABULATION+ '\x2640' -> 0x0c -- FORM FEED+ '\x266A' -> 0x0d -- CARRIAGE RETURN+ '\x266B' -> 0x0e -- SHIFT OUT+ '\x263C' -> 0x0f -- SHIFT IN+ '\x25BA' -> 0x10 -- DATA LINK ESCAPE+ '\x25C4' -> 0x11 -- DEVICE CONTROL ONE+ '\x2195' -> 0x12 -- DEVICE CONTROL TWO+ '\x203C' -> 0x13 -- DEVICE CONTROL THREE+ '\x00B6' -> 0x14 -- DEVICE CONTROL FOUR+ '\x00A7' -> 0x15 -- NEGATIVE ACKNOWLEDGE+ '\x25AC' -> 0x16 -- SYNCHRONOUS IDLE+ '\x21A8' -> 0x17 -- END OF TRANSMISSION BLOCK+ '\x2191' -> 0x18 -- CANCEL+ '\x2193' -> 0x19 -- END OF MEDIUM+ '\x2192' -> 0x1a -- SUBSTITUTE+ '\x2190' -> 0x1b -- ESCAPE+ '\x221F' -> 0x1c -- FILE SEPARATOR+ '\x2194' -> 0x1d -- GROUP SEPARATOR+ '\x25B2' -> 0x1e -- RECORD SEPARATOR+ '\x25BC' -> 0x1f -- UNIT SEPARATOR+ '\x0020' -> 0x20 -- SPACE+ '\x0021' -> 0x21 -- EXCLAMATION MARK+ '\x0022' -> 0x22 -- QUOTATION MARK+ '\x0023' -> 0x23 -- NUMBER SIGN+ '\x0024' -> 0x24 -- DOLLAR SIGN+ '\x0025' -> 0x25 -- PERCENT SIGN+ '\x0026' -> 0x26 -- AMPERSAND+ '\x0027' -> 0x27 -- APOSTROPHE+ '\x0028' -> 0x28 -- LEFT PARENTHESIS+ '\x0029' -> 0x29 -- RIGHT PARENTHESIS+ '\x002a' -> 0x2a -- ASTERISK+ '\x002b' -> 0x2b -- PLUS SIGN+ '\x002c' -> 0x2c -- COMMA+ '\x002d' -> 0x2d -- HYPHEN-MINUS+ '\x002e' -> 0x2e -- FULL STOP+ '\x002f' -> 0x2f -- SOLIDUS+ '\x0030' -> 0x30 -- DIGIT ZERO+ '\x0031' -> 0x31 -- DIGIT ONE+ '\x0032' -> 0x32 -- DIGIT TWO+ '\x0033' -> 0x33 -- DIGIT THREE+ '\x0034' -> 0x34 -- DIGIT FOUR+ '\x0035' -> 0x35 -- DIGIT FIVE+ '\x0036' -> 0x36 -- DIGIT SIX+ '\x0037' -> 0x37 -- DIGIT SEVEN+ '\x0038' -> 0x38 -- DIGIT EIGHT+ '\x0039' -> 0x39 -- DIGIT NINE+ '\x003a' -> 0x3a -- COLON+ '\x003b' -> 0x3b -- SEMICOLON+ '\x003c' -> 0x3c -- LESS-THAN SIGN+ '\x003d' -> 0x3d -- EQUALS SIGN+ '\x003e' -> 0x3e -- GREATER-THAN SIGN+ '\x003f' -> 0x3f -- QUESTION MARK+ '\x0040' -> 0x40 -- COMMERCIAL AT+ '\x0041' -> 0x41 -- LATIN CAPITAL LETTER A+ '\x0042' -> 0x42 -- LATIN CAPITAL LETTER B+ '\x0043' -> 0x43 -- LATIN CAPITAL LETTER C+ '\x0044' -> 0x44 -- LATIN CAPITAL LETTER D+ '\x0045' -> 0x45 -- LATIN CAPITAL LETTER E+ '\x0046' -> 0x46 -- LATIN CAPITAL LETTER F+ '\x0047' -> 0x47 -- LATIN CAPITAL LETTER G+ '\x0048' -> 0x48 -- LATIN CAPITAL LETTER H+ '\x0049' -> 0x49 -- LATIN CAPITAL LETTER I+ '\x004a' -> 0x4a -- LATIN CAPITAL LETTER J+ '\x004b' -> 0x4b -- LATIN CAPITAL LETTER K+ '\x004c' -> 0x4c -- LATIN CAPITAL LETTER L+ '\x004d' -> 0x4d -- LATIN CAPITAL LETTER M+ '\x004e' -> 0x4e -- LATIN CAPITAL LETTER N+ '\x004f' -> 0x4f -- LATIN CAPITAL LETTER O+ '\x0050' -> 0x50 -- LATIN CAPITAL LETTER P+ '\x0051' -> 0x51 -- LATIN CAPITAL LETTER Q+ '\x0052' -> 0x52 -- LATIN CAPITAL LETTER R+ '\x0053' -> 0x53 -- LATIN CAPITAL LETTER S+ '\x0054' -> 0x54 -- LATIN CAPITAL LETTER T+ '\x0055' -> 0x55 -- LATIN CAPITAL LETTER U+ '\x0056' -> 0x56 -- LATIN CAPITAL LETTER V+ '\x0057' -> 0x57 -- LATIN CAPITAL LETTER W+ '\x0058' -> 0x58 -- LATIN CAPITAL LETTER X+ '\x0059' -> 0x59 -- LATIN CAPITAL LETTER Y+ '\x005a' -> 0x5a -- LATIN CAPITAL LETTER Z+ '\x005b' -> 0x5b -- LEFT SQUARE BRACKET+ '\x005c' -> 0x5c -- REVERSE SOLIDUS+ '\x005d' -> 0x5d -- RIGHT SQUARE BRACKET+ '\x005e' -> 0x5e -- CIRCUMFLEX ACCENT+ '\x005f' -> 0x5f -- LOW LINE+ '\x0060' -> 0x60 -- GRAVE ACCENT+ '\x0061' -> 0x61 -- LATIN SMALL LETTER A+ '\x0062' -> 0x62 -- LATIN SMALL LETTER B+ '\x0063' -> 0x63 -- LATIN SMALL LETTER C+ '\x0064' -> 0x64 -- LATIN SMALL LETTER D+ '\x0065' -> 0x65 -- LATIN SMALL LETTER E+ '\x0066' -> 0x66 -- LATIN SMALL LETTER F+ '\x0067' -> 0x67 -- LATIN SMALL LETTER G+ '\x0068' -> 0x68 -- LATIN SMALL LETTER H+ '\x0069' -> 0x69 -- LATIN SMALL LETTER I+ '\x006a' -> 0x6a -- LATIN SMALL LETTER J+ '\x006b' -> 0x6b -- LATIN SMALL LETTER K+ '\x006c' -> 0x6c -- LATIN SMALL LETTER L+ '\x006d' -> 0x6d -- LATIN SMALL LETTER M+ '\x006e' -> 0x6e -- LATIN SMALL LETTER N+ '\x006f' -> 0x6f -- LATIN SMALL LETTER O+ '\x0070' -> 0x70 -- LATIN SMALL LETTER P+ '\x0071' -> 0x71 -- LATIN SMALL LETTER Q+ '\x0072' -> 0x72 -- LATIN SMALL LETTER R+ '\x0073' -> 0x73 -- LATIN SMALL LETTER S+ '\x0074' -> 0x74 -- LATIN SMALL LETTER T+ '\x0075' -> 0x75 -- LATIN SMALL LETTER U+ '\x0076' -> 0x76 -- LATIN SMALL LETTER V+ '\x0077' -> 0x77 -- LATIN SMALL LETTER W+ '\x0078' -> 0x78 -- LATIN SMALL LETTER X+ '\x0079' -> 0x79 -- LATIN SMALL LETTER Y+ '\x007a' -> 0x7a -- LATIN SMALL LETTER Z+ '\x007b' -> 0x7b -- LEFT CURLY BRACKET+ '\x007c' -> 0x7c -- VERTICAL LINE+ '\x007d' -> 0x7d -- RIGHT CURLY BRACKET+ '\x007e' -> 0x7e -- TILDE+ '\x2302' -> 0x7f -- DELETE+ '\x00c7' -> 0x80 -- LATIN CAPITAL LETTER C WITH CEDILLA+ '\x00fc' -> 0x81 -- LATIN SMALL LETTER U WITH DIAERESIS+ '\x00e9' -> 0x82 -- LATIN SMALL LETTER E WITH ACUTE+ '\x00e2' -> 0x83 -- LATIN SMALL LETTER A WITH CIRCUMFLEX+ '\x00e4' -> 0x84 -- LATIN SMALL LETTER A WITH DIAERESIS+ '\x00e0' -> 0x85 -- LATIN SMALL LETTER A WITH GRAVE+ '\x00e5' -> 0x86 -- LATIN SMALL LETTER A WITH RING ABOVE+ '\x00e7' -> 0x87 -- LATIN SMALL LETTER C WITH CEDILLA+ '\x00ea' -> 0x88 -- LATIN SMALL LETTER E WITH CIRCUMFLEX+ '\x00eb' -> 0x89 -- LATIN SMALL LETTER E WITH DIAERESIS+ '\x00e8' -> 0x8a -- LATIN SMALL LETTER E WITH GRAVE+ '\x00ef' -> 0x8b -- LATIN SMALL LETTER I WITH DIAERESIS+ '\x00ee' -> 0x8c -- LATIN SMALL LETTER I WITH CIRCUMFLEX+ '\x00ec' -> 0x8d -- LATIN SMALL LETTER I WITH GRAVE+ '\x00c4' -> 0x8e -- LATIN CAPITAL LETTER A WITH DIAERESIS+ '\x00c5' -> 0x8f -- LATIN CAPITAL LETTER A WITH RING ABOVE+ '\x00c9' -> 0x90 -- LATIN CAPITAL LETTER E WITH ACUTE+ '\x00e6' -> 0x91 -- LATIN SMALL LIGATURE AE+ '\x00c6' -> 0x92 -- LATIN CAPITAL LIGATURE AE+ '\x00f4' -> 0x93 -- LATIN SMALL LETTER O WITH CIRCUMFLEX+ '\x00f6' -> 0x94 -- LATIN SMALL LETTER O WITH DIAERESIS+ '\x00f2' -> 0x95 -- LATIN SMALL LETTER O WITH GRAVE+ '\x00fb' -> 0x96 -- LATIN SMALL LETTER U WITH CIRCUMFLEX+ '\x00f9' -> 0x97 -- LATIN SMALL LETTER U WITH GRAVE+ '\x00ff' -> 0x98 -- LATIN SMALL LETTER Y WITH DIAERESIS+ '\x00d6' -> 0x99 -- LATIN CAPITAL LETTER O WITH DIAERESIS+ '\x00dc' -> 0x9a -- LATIN CAPITAL LETTER U WITH DIAERESIS+ '\x00a2' -> 0x9b -- CENT SIGN+ '\x00a3' -> 0x9c -- POUND SIGN+ '\x00a5' -> 0x9d -- YEN SIGN+ '\x20a7' -> 0x9e -- PESETA SIGN+ '\x0192' -> 0x9f -- LATIN SMALL LETTER F WITH HOOK+ '\x00e1' -> 0xa0 -- LATIN SMALL LETTER A WITH ACUTE+ '\x00ed' -> 0xa1 -- LATIN SMALL LETTER I WITH ACUTE+ '\x00f3' -> 0xa2 -- LATIN SMALL LETTER O WITH ACUTE+ '\x00fa' -> 0xa3 -- LATIN SMALL LETTER U WITH ACUTE+ '\x00f1' -> 0xa4 -- LATIN SMALL LETTER N WITH TILDE+ '\x00d1' -> 0xa5 -- LATIN CAPITAL LETTER N WITH TILDE+ '\x00aa' -> 0xa6 -- FEMININE ORDINAL INDICATOR+ '\x00ba' -> 0xa7 -- MASCULINE ORDINAL INDICATOR+ '\x00bf' -> 0xa8 -- INVERTED QUESTION MARK+ '\x2310' -> 0xa9 -- REVERSED NOT SIGN+ '\x00ac' -> 0xaa -- NOT SIGN+ '\x00bd' -> 0xab -- VULGAR FRACTION ONE HALF+ '\x00bc' -> 0xac -- VULGAR FRACTION ONE QUARTER+ '\x00a1' -> 0xad -- INVERTED EXCLAMATION MARK+ '\x00ab' -> 0xae -- LEFT-POINTING DOUBLE ANGLE QUOTATION MARK+ '\x00bb' -> 0xaf -- RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK+ '\x2591' -> 0xb0 -- LIGHT SHADE+ '\x2592' -> 0xb1 -- MEDIUM SHADE+ '\x2593' -> 0xb2 -- DARK SHADE+ '\x2502' -> 0xb3 -- BOX DRAWINGS LIGHT VERTICAL+ '\x2524' -> 0xb4 -- BOX DRAWINGS LIGHT VERTICAL AND LEFT+ '\x2561' -> 0xb5 -- BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE+ '\x2562' -> 0xb6 -- BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE+ '\x2556' -> 0xb7 -- BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE+ '\x2555' -> 0xb8 -- BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE+ '\x2563' -> 0xb9 -- BOX DRAWINGS DOUBLE VERTICAL AND LEFT+ '\x2551' -> 0xba -- BOX DRAWINGS DOUBLE VERTICAL+ '\x2557' -> 0xbb -- BOX DRAWINGS DOUBLE DOWN AND LEFT+ '\x255d' -> 0xbc -- BOX DRAWINGS DOUBLE UP AND LEFT+ '\x255c' -> 0xbd -- BOX DRAWINGS UP DOUBLE AND LEFT SINGLE+ '\x255b' -> 0xbe -- BOX DRAWINGS UP SINGLE AND LEFT DOUBLE+ '\x2510' -> 0xbf -- BOX DRAWINGS LIGHT DOWN AND LEFT+ '\x2514' -> 0xc0 -- BOX DRAWINGS LIGHT UP AND RIGHT+ '\x2534' -> 0xc1 -- BOX DRAWINGS LIGHT UP AND HORIZONTAL+ '\x252c' -> 0xc2 -- BOX DRAWINGS LIGHT DOWN AND HORIZONTAL+ '\x251c' -> 0xc3 -- BOX DRAWINGS LIGHT VERTICAL AND RIGHT+ '\x2500' -> 0xc4 -- BOX DRAWINGS LIGHT HORIZONTAL+ '\x253c' -> 0xc5 -- BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL+ '\x255e' -> 0xc6 -- BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE+ '\x255f' -> 0xc7 -- BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE+ '\x255a' -> 0xc8 -- BOX DRAWINGS DOUBLE UP AND RIGHT+ '\x2554' -> 0xc9 -- BOX DRAWINGS DOUBLE DOWN AND RIGHT+ '\x2569' -> 0xca -- BOX DRAWINGS DOUBLE UP AND HORIZONTAL+ '\x2566' -> 0xcb -- BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL+ '\x2560' -> 0xcc -- BOX DRAWINGS DOUBLE VERTICAL AND RIGHT+ '\x2550' -> 0xcd -- BOX DRAWINGS DOUBLE HORIZONTAL+ '\x256c' -> 0xce -- BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL+ '\x2567' -> 0xcf -- BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE+ '\x2568' -> 0xd0 -- BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE+ '\x2564' -> 0xd1 -- BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE+ '\x2565' -> 0xd2 -- BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE+ '\x2559' -> 0xd3 -- BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE+ '\x2558' -> 0xd4 -- BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE+ '\x2552' -> 0xd5 -- BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE+ '\x2553' -> 0xd6 -- BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE+ '\x256b' -> 0xd7 -- BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE+ '\x256a' -> 0xd8 -- BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE+ '\x2518' -> 0xd9 -- BOX DRAWINGS LIGHT UP AND LEFT+ '\x250c' -> 0xda -- BOX DRAWINGS LIGHT DOWN AND RIGHT+ '\x2588' -> 0xdb -- FULL BLOCK+ '\x2584' -> 0xdc -- LOWER HALF BLOCK+ '\x258c' -> 0xdd -- LEFT HALF BLOCK+ '\x2590' -> 0xde -- RIGHT HALF BLOCK+ '\x2580' -> 0xdf -- UPPER HALF BLOCK+ '\x03b1' -> 0xe0 -- GREEK SMALL LETTER ALPHA+ '\x00df' -> 0xe1 -- LATIN SMALL LETTER SHARP S+ '\x0393' -> 0xe2 -- GREEK CAPITAL LETTER GAMMA+ '\x03c0' -> 0xe3 -- GREEK SMALL LETTER PI+ '\x03a3' -> 0xe4 -- GREEK CAPITAL LETTER SIGMA+ '\x03c3' -> 0xe5 -- GREEK SMALL LETTER SIGMA+ '\x00b5' -> 0xe6 -- MICRO SIGN+ '\x03c4' -> 0xe7 -- GREEK SMALL LETTER TAU+ '\x03a6' -> 0xe8 -- GREEK CAPITAL LETTER PHI+ '\x0398' -> 0xe9 -- GREEK CAPITAL LETTER THETA+ '\x03a9' -> 0xea -- GREEK CAPITAL LETTER OMEGA+ '\x03b4' -> 0xeb -- GREEK SMALL LETTER DELTA+ '\x221e' -> 0xec -- INFINITY+ '\x03c6' -> 0xed -- GREEK SMALL LETTER PHI+ '\x03b5' -> 0xee -- GREEK SMALL LETTER EPSILON+ '\x2229' -> 0xef -- INTERSECTION+ '\x2261' -> 0xf0 -- IDENTICAL TO+ '\x00b1' -> 0xf1 -- PLUS-MINUS SIGN+ '\x2265' -> 0xf2 -- GREATER-THAN OR EQUAL TO+ '\x2264' -> 0xf3 -- LESS-THAN OR EQUAL TO+ '\x2320' -> 0xf4 -- TOP HALF INTEGRAL+ '\x2321' -> 0xf5 -- BOTTOM HALF INTEGRAL+ '\x00f7' -> 0xf6 -- DIVISION SIGN+ '\x2248' -> 0xf7 -- ALMOST EQUAL TO+ '\x00b0' -> 0xf8 -- DEGREE SIGN+ '\x2219' -> 0xf9 -- BULLET OPERATOR+ '\x00b7' -> 0xfa -- MIDDLE DOT+ '\x221a' -> 0xfb -- SQUARE ROOT+ '\x207f' -> 0xfc -- SUPERSCRIPT LATIN SMALL LETTER N+ '\x00b2' -> 0xfd -- SUPERSCRIPT TWO+ '\x25a0' -> 0xfe -- BLACK SQUARE+ '\x00a0' -> 0xff -- NO-BREAK SPACE+ _ -> 0x00 -- Invalid conversion++byteToUtf c = case c of+ 0x00 -> '\x0020' -- NULL+ 0x01 -> '\x263A' -- START OF HEADING+ 0x02 -> '\x263B' -- START OF TEXT+ 0x03 -> '\x2665' -- END OF TEXT+ 0x04 -> '\x2666' -- END OF TRANSMISSION+ 0x05 -> '\x2663' -- ENQUIRY+ 0x06 -> '\x2660' -- ACKNOWLEDGE+ 0x07 -> '\x2022' -- BELL+ 0x08 -> '\x25D8' -- BACKSPACE+ 0x09 -> '\x25CB' -- HORIZONTAL TABULATION+ 0x0a -> '\x25D9' -- LINE FEED+ 0x0b -> '\x2642' -- VERTICAL TABULATION+ 0x0c -> '\x2640' -- FORM FEED+ 0x0d -> '\x266A' -- CARRIAGE RETURN+ 0x0e -> '\x266B' -- SHIFT OUT+ 0x0f -> '\x263C' -- SHIFT IN+ 0x10 -> '\x25BA' -- DATA LINK ESCAPE+ 0x11 -> '\x25C4' -- DEVICE CONTROL ONE+ 0x12 -> '\x2195' -- DEVICE CONTROL TWO+ 0x13 -> '\x203C' -- DEVICE CONTROL THREE+ 0x14 -> '\x00B6' -- DEVICE CONTROL FOUR+ 0x15 -> '\x00A7' -- NEGATIVE ACKNOWLEDGE+ 0x16 -> '\x25AC' -- SYNCHRONOUS IDLE+ 0x17 -> '\x21A8' -- END OF TRANSMISSION BLOCK+ 0x18 -> '\x2191' -- CANCEL+ 0x19 -> '\x2193' -- END OF MEDIUM+ 0x1a -> '\x2192' -- SUBSTITUTE+ 0x1b -> '\x2190' -- ESCAPE+ 0x1c -> '\x221F' -- FILE SEPARATOR+ 0x1d -> '\x2194' -- GROUP SEPARATOR+ 0x1e -> '\x25B2' -- RECORD SEPARATOR+ 0x1f -> '\x25BC' -- UNIT SEPARATOR+ 0x20 -> '\x0020' -- SPACE+ 0x21 -> '\x0021' -- EXCLAMATION MARK+ 0x22 -> '\x0022' -- QUOTATION MARK+ 0x23 -> '\x0023' -- NUMBER SIGN+ 0x24 -> '\x0024' -- DOLLAR SIGN+ 0x25 -> '\x0025' -- PERCENT SIGN+ 0x26 -> '\x0026' -- AMPERSAND+ 0x27 -> '\x0027' -- APOSTROPHE+ 0x28 -> '\x0028' -- LEFT PARENTHESIS+ 0x29 -> '\x0029' -- RIGHT PARENTHESIS+ 0x2a -> '\x002a' -- ASTERISK+ 0x2b -> '\x002b' -- PLUS SIGN+ 0x2c -> '\x002c' -- COMMA+ 0x2d -> '\x002d' -- HYPHEN-MINUS+ 0x2e -> '\x002e' -- FULL STOP+ 0x2f -> '\x002f' -- SOLIDUS+ 0x30 -> '\x0030' -- DIGIT ZERO+ 0x31 -> '\x0031' -- DIGIT ONE+ 0x32 -> '\x0032' -- DIGIT TWO+ 0x33 -> '\x0033' -- DIGIT THREE+ 0x34 -> '\x0034' -- DIGIT FOUR+ 0x35 -> '\x0035' -- DIGIT FIVE+ 0x36 -> '\x0036' -- DIGIT SIX+ 0x37 -> '\x0037' -- DIGIT SEVEN+ 0x38 -> '\x0038' -- DIGIT EIGHT+ 0x39 -> '\x0039' -- DIGIT NINE+ 0x3a -> '\x003a' -- COLON+ 0x3b -> '\x003b' -- SEMICOLON+ 0x3c -> '\x003c' -- LESS-THAN SIGN+ 0x3d -> '\x003d' -- EQUALS SIGN+ 0x3e -> '\x003e' -- GREATER-THAN SIGN+ 0x3f -> '\x003f' -- QUESTION MARK+ 0x40 -> '\x0040' -- COMMERCIAL AT+ 0x41 -> '\x0041' -- LATIN CAPITAL LETTER A+ 0x42 -> '\x0042' -- LATIN CAPITAL LETTER B+ 0x43 -> '\x0043' -- LATIN CAPITAL LETTER C+ 0x44 -> '\x0044' -- LATIN CAPITAL LETTER D+ 0x45 -> '\x0045' -- LATIN CAPITAL LETTER E+ 0x46 -> '\x0046' -- LATIN CAPITAL LETTER F+ 0x47 -> '\x0047' -- LATIN CAPITAL LETTER G+ 0x48 -> '\x0048' -- LATIN CAPITAL LETTER H+ 0x49 -> '\x0049' -- LATIN CAPITAL LETTER I+ 0x4a -> '\x004a' -- LATIN CAPITAL LETTER J+ 0x4b -> '\x004b' -- LATIN CAPITAL LETTER K+ 0x4c -> '\x004c' -- LATIN CAPITAL LETTER L+ 0x4d -> '\x004d' -- LATIN CAPITAL LETTER M+ 0x4e -> '\x004e' -- LATIN CAPITAL LETTER N+ 0x4f -> '\x004f' -- LATIN CAPITAL LETTER O+ 0x50 -> '\x0050' -- LATIN CAPITAL LETTER P+ 0x51 -> '\x0051' -- LATIN CAPITAL LETTER Q+ 0x52 -> '\x0052' -- LATIN CAPITAL LETTER R+ 0x53 -> '\x0053' -- LATIN CAPITAL LETTER S+ 0x54 -> '\x0054' -- LATIN CAPITAL LETTER T+ 0x55 -> '\x0055' -- LATIN CAPITAL LETTER U+ 0x56 -> '\x0056' -- LATIN CAPITAL LETTER V+ 0x57 -> '\x0057' -- LATIN CAPITAL LETTER W+ 0x58 -> '\x0058' -- LATIN CAPITAL LETTER X+ 0x59 -> '\x0059' -- LATIN CAPITAL LETTER Y+ 0x5a -> '\x005a' -- LATIN CAPITAL LETTER Z+ 0x5b -> '\x005b' -- LEFT SQUARE BRACKET+ 0x5c -> '\x005c' -- REVERSE SOLIDUS+ 0x5d -> '\x005d' -- RIGHT SQUARE BRACKET+ 0x5e -> '\x005e' -- CIRCUMFLEX ACCENT+ 0x5f -> '\x005f' -- LOW LINE+ 0x60 -> '\x0060' -- GRAVE ACCENT+ 0x61 -> '\x0061' -- LATIN SMALL LETTER A+ 0x62 -> '\x0062' -- LATIN SMALL LETTER B+ 0x63 -> '\x0063' -- LATIN SMALL LETTER C+ 0x64 -> '\x0064' -- LATIN SMALL LETTER D+ 0x65 -> '\x0065' -- LATIN SMALL LETTER E+ 0x66 -> '\x0066' -- LATIN SMALL LETTER F+ 0x67 -> '\x0067' -- LATIN SMALL LETTER G+ 0x68 -> '\x0068' -- LATIN SMALL LETTER H+ 0x69 -> '\x0069' -- LATIN SMALL LETTER I+ 0x6a -> '\x006a' -- LATIN SMALL LETTER J+ 0x6b -> '\x006b' -- LATIN SMALL LETTER K+ 0x6c -> '\x006c' -- LATIN SMALL LETTER L+ 0x6d -> '\x006d' -- LATIN SMALL LETTER M+ 0x6e -> '\x006e' -- LATIN SMALL LETTER N+ 0x6f -> '\x006f' -- LATIN SMALL LETTER O+ 0x70 -> '\x0070' -- LATIN SMALL LETTER P+ 0x71 -> '\x0071' -- LATIN SMALL LETTER Q+ 0x72 -> '\x0072' -- LATIN SMALL LETTER R+ 0x73 -> '\x0073' -- LATIN SMALL LETTER S+ 0x74 -> '\x0074' -- LATIN SMALL LETTER T+ 0x75 -> '\x0075' -- LATIN SMALL LETTER U+ 0x76 -> '\x0076' -- LATIN SMALL LETTER V+ 0x77 -> '\x0077' -- LATIN SMALL LETTER W+ 0x78 -> '\x0078' -- LATIN SMALL LETTER X+ 0x79 -> '\x0079' -- LATIN SMALL LETTER Y+ 0x7a -> '\x007a' -- LATIN SMALL LETTER Z+ 0x7b -> '\x007b' -- LEFT CURLY BRACKET+ 0x7c -> '\x007c' -- VERTICAL LINE+ 0x7d -> '\x007d' -- RIGHT CURLY BRACKET+ 0x7e -> '\x007e' -- TILDE+ 0x7f -> '\x2302' -- DELETE+ 0x80 -> '\x00c7' -- LATIN CAPITAL LETTER C WITH CEDILLA+ 0x81 -> '\x00fc' -- LATIN SMALL LETTER U WITH DIAERESIS+ 0x82 -> '\x00e9' -- LATIN SMALL LETTER E WITH ACUTE+ 0x83 -> '\x00e2' -- LATIN SMALL LETTER A WITH CIRCUMFLEX+ 0x84 -> '\x00e4' -- LATIN SMALL LETTER A WITH DIAERESIS+ 0x85 -> '\x00e0' -- LATIN SMALL LETTER A WITH GRAVE+ 0x86 -> '\x00e5' -- LATIN SMALL LETTER A WITH RING ABOVE+ 0x87 -> '\x00e7' -- LATIN SMALL LETTER C WITH CEDILLA+ 0x88 -> '\x00ea' -- LATIN SMALL LETTER E WITH CIRCUMFLEX+ 0x89 -> '\x00eb' -- LATIN SMALL LETTER E WITH DIAERESIS+ 0x8a -> '\x00e8' -- LATIN SMALL LETTER E WITH GRAVE+ 0x8b -> '\x00ef' -- LATIN SMALL LETTER I WITH DIAERESIS+ 0x8c -> '\x00ee' -- LATIN SMALL LETTER I WITH CIRCUMFLEX+ 0x8d -> '\x00ec' -- LATIN SMALL LETTER I WITH GRAVE+ 0x8e -> '\x00c4' -- LATIN CAPITAL LETTER A WITH DIAERESIS+ 0x8f -> '\x00c5' -- LATIN CAPITAL LETTER A WITH RING ABOVE+ 0x90 -> '\x00c9' -- LATIN CAPITAL LETTER E WITH ACUTE+ 0x91 -> '\x00e6' -- LATIN SMALL LIGATURE AE+ 0x92 -> '\x00c6' -- LATIN CAPITAL LIGATURE AE+ 0x93 -> '\x00f4' -- LATIN SMALL LETTER O WITH CIRCUMFLEX+ 0x94 -> '\x00f6' -- LATIN SMALL LETTER O WITH DIAERESIS+ 0x95 -> '\x00f2' -- LATIN SMALL LETTER O WITH GRAVE+ 0x96 -> '\x00fb' -- LATIN SMALL LETTER U WITH CIRCUMFLEX+ 0x97 -> '\x00f9' -- LATIN SMALL LETTER U WITH GRAVE+ 0x98 -> '\x00ff' -- LATIN SMALL LETTER Y WITH DIAERESIS+ 0x99 -> '\x00d6' -- LATIN CAPITAL LETTER O WITH DIAERESIS+ 0x9a -> '\x00dc' -- LATIN CAPITAL LETTER U WITH DIAERESIS+ 0x9b -> '\x00a2' -- CENT SIGN+ 0x9c -> '\x00a3' -- POUND SIGN+ 0x9d -> '\x00a5' -- YEN SIGN+ 0x9e -> '\x20a7' -- PESETA SIGN+ 0x9f -> '\x0192' -- LATIN SMALL LETTER F WITH HOOK+ 0xa0 -> '\x00e1' -- LATIN SMALL LETTER A WITH ACUTE+ 0xa1 -> '\x00ed' -- LATIN SMALL LETTER I WITH ACUTE+ 0xa2 -> '\x00f3' -- LATIN SMALL LETTER O WITH ACUTE+ 0xa3 -> '\x00fa' -- LATIN SMALL LETTER U WITH ACUTE+ 0xa4 -> '\x00f1' -- LATIN SMALL LETTER N WITH TILDE+ 0xa5 -> '\x00d1' -- LATIN CAPITAL LETTER N WITH TILDE+ 0xa6 -> '\x00aa' -- FEMININE ORDINAL INDICATOR+ 0xa7 -> '\x00ba' -- MASCULINE ORDINAL INDICATOR+ 0xa8 -> '\x00bf' -- INVERTED QUESTION MARK+ 0xa9 -> '\x2310' -- REVERSED NOT SIGN+ 0xaa -> '\x00ac' -- NOT SIGN+ 0xab -> '\x00bd' -- VULGAR FRACTION ONE HALF+ 0xac -> '\x00bc' -- VULGAR FRACTION ONE QUARTER+ 0xad -> '\x00a1' -- INVERTED EXCLAMATION MARK+ 0xae -> '\x00ab' -- LEFT-POINTING DOUBLE ANGLE QUOTATION MARK+ 0xaf -> '\x00bb' -- RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK+ 0xb0 -> '\x2591' -- LIGHT SHADE+ 0xb1 -> '\x2592' -- MEDIUM SHADE+ 0xb2 -> '\x2593' -- DARK SHADE+ 0xb3 -> '\x2502' -- BOX DRAWINGS LIGHT VERTICAL+ 0xb4 -> '\x2524' -- BOX DRAWINGS LIGHT VERTICAL AND LEFT+ 0xb5 -> '\x2561' -- BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE+ 0xb6 -> '\x2562' -- BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE+ 0xb7 -> '\x2556' -- BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE+ 0xb8 -> '\x2555' -- BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE+ 0xb9 -> '\x2563' -- BOX DRAWINGS DOUBLE VERTICAL AND LEFT+ 0xba -> '\x2551' -- BOX DRAWINGS DOUBLE VERTICAL+ 0xbb -> '\x2557' -- BOX DRAWINGS DOUBLE DOWN AND LEFT+ 0xbc -> '\x255d' -- BOX DRAWINGS DOUBLE UP AND LEFT+ 0xbd -> '\x255c' -- BOX DRAWINGS UP DOUBLE AND LEFT SINGLE+ 0xbe -> '\x255b' -- BOX DRAWINGS UP SINGLE AND LEFT DOUBLE+ 0xbf -> '\x2510' -- BOX DRAWINGS LIGHT DOWN AND LEFT+ 0xc0 -> '\x2514' -- BOX DRAWINGS LIGHT UP AND RIGHT+ 0xc1 -> '\x2534' -- BOX DRAWINGS LIGHT UP AND HORIZONTAL+ 0xc2 -> '\x252c' -- BOX DRAWINGS LIGHT DOWN AND HORIZONTAL+ 0xc3 -> '\x251c' -- BOX DRAWINGS LIGHT VERTICAL AND RIGHT+ 0xc4 -> '\x2500' -- BOX DRAWINGS LIGHT HORIZONTAL+ 0xc5 -> '\x253c' -- BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL+ 0xc6 -> '\x255e' -- BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE+ 0xc7 -> '\x255f' -- BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE+ 0xc8 -> '\x255a' -- BOX DRAWINGS DOUBLE UP AND RIGHT+ 0xc9 -> '\x2554' -- BOX DRAWINGS DOUBLE DOWN AND RIGHT+ 0xca -> '\x2569' -- BOX DRAWINGS DOUBLE UP AND HORIZONTAL+ 0xcb -> '\x2566' -- BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL+ 0xcc -> '\x2560' -- BOX DRAWINGS DOUBLE VERTICAL AND RIGHT+ 0xcd -> '\x2550' -- BOX DRAWINGS DOUBLE HORIZONTAL+ 0xce -> '\x256c' -- BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL+ 0xcf -> '\x2567' -- BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE+ 0xd0 -> '\x2568' -- BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE+ 0xd1 -> '\x2564' -- BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE+ 0xd2 -> '\x2565' -- BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE+ 0xd3 -> '\x2559' -- BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE+ 0xd4 -> '\x2558' -- BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE+ 0xd5 -> '\x2552' -- BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE+ 0xd6 -> '\x2553' -- BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE+ 0xd7 -> '\x256b' -- BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE+ 0xd8 -> '\x256a' -- BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE+ 0xd9 -> '\x2518' -- BOX DRAWINGS LIGHT UP AND LEFT+ 0xda -> '\x250c' -- BOX DRAWINGS LIGHT DOWN AND RIGHT+ 0xdb -> '\x2588' -- FULL BLOCK+ 0xdc -> '\x2584' -- LOWER HALF BLOCK+ 0xdd -> '\x258c' -- LEFT HALF BLOCK+ 0xde -> '\x2590' -- RIGHT HALF BLOCK+ 0xdf -> '\x2580' -- UPPER HALF BLOCK+ 0xe0 -> '\x03b1' -- GREEK SMALL LETTER ALPHA+ 0xe1 -> '\x00df' -- LATIN SMALL LETTER SHARP S+ 0xe2 -> '\x0393' -- GREEK CAPITAL LETTER GAMMA+ 0xe3 -> '\x03c0' -- GREEK SMALL LETTER PI+ 0xe4 -> '\x03a3' -- GREEK CAPITAL LETTER SIGMA+ 0xe5 -> '\x03c3' -- GREEK SMALL LETTER SIGMA+ 0xe6 -> '\x00b5' -- MICRO SIGN+ 0xe7 -> '\x03c4' -- GREEK SMALL LETTER TAU+ 0xe8 -> '\x03a6' -- GREEK CAPITAL LETTER PHI+ 0xe9 -> '\x0398' -- GREEK CAPITAL LETTER THETA+ 0xea -> '\x03a9' -- GREEK CAPITAL LETTER OMEGA+ 0xeb -> '\x03b4' -- GREEK SMALL LETTER DELTA+ 0xec -> '\x221e' -- INFINITY+ 0xed -> '\x03c6' -- GREEK SMALL LETTER PHI+ 0xee -> '\x03b5' -- GREEK SMALL LETTER EPSILON+ 0xef -> '\x2229' -- INTERSECTION+ 0xf0 -> '\x2261' -- IDENTICAL TO+ 0xf1 -> '\x00b1' -- PLUS-MINUS SIGN+ 0xf2 -> '\x2265' -- GREATER-THAN OR EQUAL TO+ 0xf3 -> '\x2264' -- LESS-THAN OR EQUAL TO+ 0xf4 -> '\x2320' -- TOP HALF INTEGRAL+ 0xf5 -> '\x2321' -- BOTTOM HALF INTEGRAL+ 0xf6 -> '\x00f7' -- DIVISION SIGN+ 0xf7 -> '\x2248' -- ALMOST EQUAL TO+ 0xf8 -> '\x00b0' -- DEGREE SIGN+ 0xf9 -> '\x2219' -- BULLET OPERATOR+ 0xfa -> '\x00b7' -- MIDDLE DOT+ 0xfb -> '\x221a' -- SQUARE ROOT+ 0xfc -> '\x207f' -- SUPERSCRIPT LATIN SMALL LETTER N+ 0xfd -> '\x00b2' -- SUPERSCRIPT TWO+ 0xfe -> '\x25a0' -- BLACK SQUARE+ 0xff -> '\x00a0' -- NO-BREAK SPACE+ _ -> '\xFFFD' -- Invalid conversion
test/Spec.hs view
@@ -2,13 +2,20 @@ import qualified Data.Text as T import Data.Text.Arbitrary import Data.Text.CP437+import qualified Data.Text.CP437.Graphical as G compareChars :: (Char, Char) -> Bool compareChars (a, b) = a == b || b == '\x0' +compareGraphicalChars :: (Char, Char) -> Bool+compareGraphicalChars (a, b) = a == b || b == ' '+ propReversableInRange :: T.Text -> Bool propReversableInRange t = all compareChars (T.zip t (cp437ToText (textToCp437 t))) +propReversableInRangeGraphical :: T.Text -> Bool+propReversableInRangeGraphical t = all compareGraphicalChars (T.zip t (G.cp437ToText (G.textToCp437 t)))+ main :: IO ()-main = quickCheck propReversableInRange+main = quickCheck propReversableInRange >> quickCheck propReversableInRangeGraphical
text-cp437.cabal view
@@ -1,5 +1,5 @@ name: text-cp437-version: 0.2.1+version: 0.2.2 synopsis: Conversion of Text to and from CP437 description: Some devices such as receipt printers require@@ -22,6 +22,7 @@ library hs-source-dirs: src exposed-modules: Data.Text.CP437+ , Data.Text.CP437.Graphical build-depends: base >= 4.7 && < 5 , bytestring , text