external-formats: Add support for MacRoman character encoding.
[sbcl.git] / src / code / external-formats / enc-mac.lisp
1 (in-package "SB!IMPL")
2
3 (define-unibyte-mapping-external-format :mac-roman
4     (:|mac-roman| :|MacRoman| :mac :|mac| :macintosh :|macintosh|)
5   (#x80 #x00C4) ; LATIN CAPITAL LETTER A WITH DIAERESIS
6   (#x81 #x00C5) ; LATIN CAPITAL LETTER A WITH RING ABOVE
7   (#x82 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
8   (#x83 #x00C9) ; LATIN CAPITAL LETTER E WITH ACUTE
9   (#x84 #x00D1) ; LATIN CAPITAL LETTER N WITH TILDE
10   (#x85 #x00D6) ; LATIN CAPITAL LETTER O WITH DIAERESIS
11   (#x86 #x00DC) ; LATIN CAPITAL LETTER U WITH DIAERESIS
12   (#x87 #x00E1) ; LATIN SMALL LETTER A WITH ACUTE
13   (#x88 #x00E0) ; LATIN SMALL LETTER A WITH GRAVE
14   (#x89 #x00E2) ; LATIN SMALL LETTER A WITH CIRCUMFLEX
15   (#x8A #x00E4) ; LATIN SMALL LETTER A WITH DIAERESIS
16   (#x8B #x00E3) ; LATIN SMALL LETTER A WITH TILDE
17   (#x8C #x00E5) ; LATIN SMALL LETTER A WITH RING ABOVE
18   (#x8D #x00E7) ; LATIN SMALL LETTER C WITH CEDILLA
19   (#x8E #x00E9) ; LATIN SMALL LETTER E WITH ACUTE
20   (#x8F #x00E8) ; LATIN SMALL LETTER E WITH GRAVE
21   (#x90 #x00EA) ; LATIN SMALL LETTER E WITH CIRCUMFLEX
22   (#x91 #x00EB) ; LATIN SMALL LETTER E WITH DIAERESIS
23   (#x92 #x00ED) ; LATIN SMALL LETTER I WITH ACUTE
24   (#x93 #x00EC) ; LATIN SMALL LETTER I WITH GRAVE
25   (#x94 #x00EE) ; LATIN SMALL LETTER I WITH CIRCUMFLEX
26   (#x95 #x00EF) ; LATIN SMALL LETTER I WITH DIAERESIS
27   (#x96 #x00F1) ; LATIN SMALL LETTER N WITH TILDE
28   (#x97 #x00F3) ; LATIN SMALL LETTER O WITH ACUTE
29   (#x98 #x00F2) ; LATIN SMALL LETTER O WITH GRAVE
30   (#x99 #x00F4) ; LATIN SMALL LETTER O WITH CIRCUMFLEX
31   (#x9A #x00F6) ; LATIN SMALL LETTER O WITH DIAERESIS
32   (#x9B #x00F5) ; LATIN SMALL LETTER O WITH TILDE
33   (#x9C #x00FA) ; LATIN SMALL LETTER U WITH ACUTE
34   (#x9D #x00F9) ; LATIN SMALL LETTER U WITH GRAVE
35   (#x9E #x00FB) ; LATIN SMALL LETTER U WITH CIRCUMFLEX
36   (#x9F #x00FC) ; LATIN SMALL LETTER U WITH DIAERESIS
37   (#xA0 #x2020) ; DAGGER
38   (#xA1 #x00B0) ; DEGREE SIGN
39   (#xA4 #x00A7) ; SECTION SIGN
40   (#xA5 #x2022) ; BULLET
41   (#xA6 #x00B6) ; PILCROW SIGN
42   (#xA7 #x00DF) ; LATIN SMALL LETTER SHARP S
43   (#xA8 #x00AE) ; REGISTERED SIGN
44   (#xAA #x2122) ; TRADE MARK SIGN
45   (#xAB #x00B4) ; ACUTE ACCENT
46   (#xAC #x00A8) ; DIAERESIS
47   (#xAD #x2260) ; NOT EQUAL TO
48   (#xAE #x00C6) ; LATIN CAPITAL LETTER AE
49   (#xAF #x00D8) ; LATIN CAPITAL LETTER O WITH STROKE
50   (#xB0 #x221E) ; INFINITY
51   (#xB2 #x2264) ; LESS-THAN OR EQUAL TO
52   (#xB3 #x2265) ; GREATER-THAN OR EQUAL TO
53   (#xB4 #x00A5) ; YEN SIGN
54   (#xB6 #x2202) ; PARTIAL DIFFERENTIAL
55   (#xB7 #x2211) ; N-ARY SUMMATION
56   (#xB8 #x220F) ; N-ARY PRODUCT
57   (#xB9 #x03C0) ; GREEK SMALL LETTER PI
58   (#xBA #x222B) ; INTEGRAL
59   (#xBB #x00AA) ; FEMININE ORDINAL INDICATOR
60   (#xBC #x00BA) ; MASCULINE ORDINAL INDICATOR
61   (#xBD #x03A9) ; GREEK CAPITAL LETTER OMEGA
62   (#xBE #x00E6) ; LATIN SMALL LETTER AE
63   (#xBF #x00F8) ; LATIN SMALL LETTER O WITH STROKE
64   (#xC0 #x00BF) ; INVERTED QUESTION MARK
65   (#xC1 #x00A1) ; INVERTED EXCLAMATION MARK
66   (#xC2 #x00AC) ; NOT SIGN
67   (#xC3 #x221A) ; SQUARE ROOT
68   (#xC4 #x0192) ; LATIN SMALL LETTER F WITH HOOK
69   (#xC5 #x2248) ; ALMOST EQUAL TO
70   (#xC6 #x2206) ; INCREMENT
71   (#xC7 #x00AB) ; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
72   (#xC8 #x00BB) ; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
73   (#xC9 #x2026) ; HORIZONTAL ELLIPSIS
74   (#xCA #x00A0) ; NO-BREAK SPACE
75   (#xCB #x00C0) ; LATIN CAPITAL LETTER A WITH GRAVE
76   (#xCC #x00C3) ; LATIN CAPITAL LETTER A WITH TILDE
77   (#xCD #x00D5) ; LATIN CAPITAL LETTER O WITH TILDE
78   (#xCE #x0152) ; LATIN CAPITAL LIGATURE OE
79   (#xCF #x0153) ; LATIN SMALL LIGATURE OE
80   (#xD0 #x2013) ; EN DASH
81   (#xD1 #x2014) ; EM DASH
82   (#xD2 #x201C) ; LEFT DOUBLE QUOTATION MARK
83   (#xD3 #x201D) ; RIGHT DOUBLE QUOTATION MARK
84   (#xD4 #x2018) ; LEFT SINGLE QUOTATION MARK
85   (#xD5 #x2019) ; RIGHT SINGLE QUOTATION MARK
86   (#xD6 #x00F7) ; DIVISION SIGN
87   (#xD7 #x25CA) ; LOZENGE
88   (#xD8 #x00FF) ; LATIN SMALL LETTER Y WITH DIAERESIS
89   (#xD9 #x0178) ; LATIN CAPITAL LETTER Y WITH DIAERESIS
90   (#xDA #x2044) ; FRACTION SLASH
91   (#xDB #x20AC) ; EURO SIGN
92   (#xDC #x2039) ; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
93   (#xDD #x203A) ; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
94   (#xDE #xFB01) ; LATIN SMALL LIGATURE FI
95   (#xDF #xFB02) ; LATIN SMALL LIGATURE FL
96   (#xE0 #x2021) ; DOUBLE DAGGER
97   (#xE1 #x00B7) ; MIDDLE DOT
98   (#xE2 #x201A) ; SINGLE LOW-9 QUOTATION MARK
99   (#xE3 #x201E) ; DOUBLE LOW-9 QUOTATION MARK
100   (#xE4 #x2030) ; PER MILLE SIGN
101   (#xE5 #x00C2) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
102   (#xE6 #x00CA) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
103   (#xE7 #x00C1) ; LATIN CAPITAL LETTER A WITH ACUTE
104   (#xE8 #x00CB) ; LATIN CAPITAL LETTER E WITH DIAERESIS
105   (#xE9 #x00C8) ; LATIN CAPITAL LETTER E WITH GRAVE
106   (#xEA #x00CD) ; LATIN CAPITAL LETTER I WITH ACUTE
107   (#xEB #x00CE) ; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
108   (#xEC #x00CF) ; LATIN CAPITAL LETTER I WITH DIAERESIS
109   (#xED #x00CC) ; LATIN CAPITAL LETTER I WITH GRAVE
110   (#xEE #x00D3) ; LATIN CAPITAL LETTER O WITH ACUTE
111   (#xEF #x00D4) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
112   (#xF0 #xF8FF) ; <Private Use, Last> (solid Apple logo)
113   (#xF1 #x00D2) ; LATIN CAPITAL LETTER O WITH GRAVE
114   (#xF2 #x00DA) ; LATIN CAPITAL LETTER U WITH ACUTE
115   (#xF3 #x00DB) ; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
116   (#xF4 #x00D9) ; LATIN CAPITAL LETTER U WITH GRAVE
117   (#xF5 #x0131) ; LATIN SMALL LETTER DOTLESS I
118   (#xF6 #x02C6) ; MODIFIER LETTER CIRCUMFLEX ACCENT
119   (#xF7 #x02DC) ; SMALL TILDE
120   (#xF8 #x00AF) ; MACRON
121   (#xF9 #x02D8) ; BREVE
122   (#xFA #x02D9) ; DOT ABOVE
123   (#xFB #x02DA) ; RING ABOVE
124   (#xFC #x00B8) ; CEDILLA
125   (#xFD #x02DD) ; DOUBLE ACUTE ACCENT
126   (#xFE #x02DB) ; OGONEK
127   (#xFF #x02C7) ; CARON
128 )