Skip to content
Snippets Groups Projects
Commit dd3028a1 authored by rtoy's avatar rtoy
Browse files

Update with data Unicode reference.

parent cd145b0c
No related branches found
No related tags found
No related merge requests found
...@@ -4,23 +4,25 @@ ...@@ -4,23 +4,25 @@
;;; This code was written by Paul Foley and has been placed in the public ;;; This code was written by Paul Foley and has been placed in the public
;;; domain. ;;; domain.
;;; ;;;
(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $") (ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.3 2009/06/21 14:33:07 rtoy Rel $")
(in-package "STREAM") (in-package "STREAM")
;; See http://unicode.org/Public/MAPPINGS/VENDORS/APPLE/ROMAN.TXT. We
;; only need the entries from 128 to 255.
(defconstant +mac-roman+ (defconstant +mac-roman+
(make-array 128 :element-type '(unsigned-byte 16) (make-array 128 :element-type '(unsigned-byte 16)
:initial-contents #(196 197 199 201 209 214 220 225 224 226 228 227 229 :initial-contents #(196 197 199 201 209 214 220 225 224 226 228 227 229
231 233 232 234 235 237 236 238 239 241 243 242 244 231 233 232 234 235 237 236 238 239 241 243 242 244
246 245 250 249 251 252 8224 176 162 163 167 8226 182 246 245 250 249 251 252 8224 176 162 163 167 8226 182
223 174 169 8482 180 168 8800 198 216 8734 177 8804 223 174 169 8482 180 168 8800 198 216 8734 177 8804
8805 165 181 8706 8721 8719 960 8747 170 186 8486 230 8805 165 181 8706 8721 8719 960 8747 170 186 937 230
248 191 161 172 8730 402 8776 8710 171 187 8230 160 248 191 161 172 8730 402 8776 8710 171 187 8230 160
192 195 213 338 339 8211 8212 8220 8221 8216 8217 247 192 195 213 338 339 8211 8212 8220 8221 8216 8217 247
9674 255 376 8260 164 8249 8250 64257 64258 8225 183 9674 255 376 8260 8364 8249 8250 64257 64258 8225 183
8218 8222 8240 194 202 193 203 200 205 206 207 204 211 8218 8222 8240 194 202 193 203 200 205 206 207 204 211
212 65534 210 218 219 217 305 710 732 175 728 729 730 212 63743 210 218 219 217 305 710 732 175 728 729 730
184 733 731 711))) 184 733 731 711)))
(define-external-format :mac-roman (:size 1) (define-external-format :mac-roman (:size 1)
((table +mac-roman+ :type (simple-array (unsigned-byte 16) (128))) ((table +mac-roman+ :type (simple-array (unsigned-byte 16) (128)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment