Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl-copy
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
Richard M Kreuter
cmucl-copy
Commits
cd145b0c
Commit
cd145b0c
authored
15 years ago
by
rtoy
Browse files
Options
Downloads
Patches
Plain Diff
Actually implement cp1253 external format. (Was missing the table.)
parent
629db7f7
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/cp1253.lisp
+24
-1
24 additions, 1 deletion
pcl/simple-streams/external-formats/cp1253.lisp
with
24 additions
and
1 deletion
pcl/simple-streams/external-formats/cp1253.lisp
+
24
−
1
View file @
cd145b0c
...
@@ -4,9 +4,32 @@
...
@@ -4,9 +4,32 @@
;;; 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/cp1253.lisp,v 1.
2
2009/06/
1
1 1
6
:0
4
:0
2
rtoy
Exp
$"
)
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1253.lisp,v 1.
3
2009/06/
2
1 1
4
:0
3
:0
9
rtoy
Rel
$"
)
(
in-package
"STREAM"
)
(
in-package
"STREAM"
)
;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1253.TXT
;;
;; For undefined characters we use U+FFFE
(
defconstant
+ms-cp1253+
(
make-array
128
:element-type
'
(
unsigned-byte
16
)
:initial-contents
#(
8364
65534
8218
402
8222
8230
8224
8225
65534
8240
65534
8249
65534
65534
65534
65534
65534
8216
8217
8220
8221
8226
8211
8212
65534
8482
65534
8250
65534
65534
65534
65534
160
901
902
163
164
165
166
167
168
169
65534
171
172
173
174
8213
176
177
178
179
900
181
182
183
904
905
906
187
908
189
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
65534
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
65534
)))
(
define-external-format
:cp1253
(
:mac-roman
)
(
define-external-format
:cp1253
(
:mac-roman
)
((
table
+ms-cp1253+
)))
((
table
+ms-cp1253+
)))
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