Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
dd3028a1
Commit
dd3028a1
authored
15 years ago
by
rtoy
Browse files
Options
Downloads
Patches
Plain Diff
Update with data Unicode reference.
parent
cd145b0c
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
pcl/simple-streams/external-formats/mac-roman.lisp
+13
-11
13 additions, 11 deletions
pcl/simple-streams/external-formats/mac-roman.lisp
with
13 additions
and
11 deletions
pcl/simple-streams/external-formats/mac-roman.lisp
+
13
−
11
View file @
dd3028a1
...
@@ -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/
1
1 1
6: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/
2
1 1
4: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
1
64
8249
8250
64257
64258
8225
183
9674
255
376
8260
83
64
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
6
5534
210
218
219
217
305
710
732
175
728
729
730
212
6
3743
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
)))
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment