(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Jul-2023 09:26:13" ("compiled on " {WMEDLEY}UNICODE.;199) "18-Jul-2023 23:56:35" brecompiled exprs%: nothing in "FULL 18-Jul-2023 ..." dated "18-Jul-2023 23:56:41") (FILECREATED "19-Jul-2023 09:26:13" {WMEDLEY}UNICODE.;199 65282 :EDIT-BY rmk :CHANGES-TO ( VARS UNICODECOMS) :PREVIOUS-DATE "19-Jul-2022 15:36:40" {WMEDLEY}UNICODE.;198) UTF8.OUTCHARFN :D8 (P 2 C P 0 X I 2 RAW I 1 CHARCODE I 0 STREAM) 3Al @j@ @k@BA9`AHdAlHAHAl嶵 A` IddhIlJ@J nJ#@Jl @Jl?l oJ3@Jl @Jml?l @Jl?l oJD@Jl @Jml?l @Jml?l @Jl?l 8oJ )(301 ERROR 286 \BOUT 272 \BOUT 255 \BOUT 238 \BOUT 212 \BOUT 198 \BOUT 181 \BOUT 154 \BOUT 140 \BOUT 114 \BOUT 83 UNICODE.UNMAPPED 14 \BOUTEOL) (78 *XCCSTOUNICODE* 34 *XCCSTOUNICODE*) ( 295 "CHARCODE too big for UTF8" 220 2097152 162 65536) UTF8.INCCODEFN :D8 (P 6 X P 5 CODE P 4 BYTE4 P 3 BYTE3 P 2 BYTE2 P 1 BYTE1 P 0 COUNT I 2 RAW I 1 COUNTP I 0 STREAM F 7 *BYTECOUNTER*) kQ@ YdylI`ddl ;@ djl Wl@i l @ All :I6I2l @ kl IIlI@ ZlJoIJh @ [lKoIJKh @ \lLoIJKLh lIlJl?Kl?Ll?lIX@ ZlJoIJh @ [lKoIJKh lIlJl?Kl?.l@ ZlJoIJh IlJl?B?M:`MNdMlNMNMl嶵 M` AHcM(449 UNICODE.UNMAPPED 370 ERROR 311 ERROR 281 ERROR 209 ERROR 177 ERROR 147 ERROR 58 \PEEKBIN) (444 *UNICODETOXCCS* 400 *UNICODETOXCCS* 94 STREAM 33 STREAM) ( 360 "INVALID UTF8 SEQUENCE" 299 "INVALID UTF8 SEQUENCE" 271 "INVALID UTF8 SEQUENCE" 195 "INVALID UTF8 SEQUENCE" 165 "INVALID UTF8 SEQUENCE" 137 "INVALID UTF8 SEQUENCE") UTF8.PEEKCCODEFN :D8 (P 5 X P 4 CODE P 3 BYTE4 P 2 BYTE3 P 1 BYTE2 P 0 BYTE1 I 2 RAW I 1 NOERROR I 0 STREAM) P@A XdhlHH\lH@ @A YlI@ AoHIh L@ @A ZlJ&@ @ AoHIJh L@ @A @ @ @ K.lK(HlIl?Jl?Kl?\AoHIJKhlH{@ @A YlI@ AoHIh L@ @A @ @ J$lJHlIl?Jl?\QAMoHIJh9@ @A @ IlIHlIl?\AoHIh LpBk`LMdLlMLMLl嶵 L` (482 UNICODE.UNMAPPED 418 ERROR 373 \BACKFILEPTR 366 \PEEKBIN 303 \BACKFILEPTR 296 \BACKFILEPTR 289 \PEEKBIN 277 ERROR 259 \BACKFILEPTR 245 \PEEKBIN 161 \BACKFILEPTR 154 \BACKFILEPTR 147 \BACKFILEPTR 140 \PEEKBIN 128 ERROR 107 \BACKFILEPTR 100 \BACKFILEPTR 86 \PEEKBIN 74 ERROR 56 \BACKFILEPTR 42 \PEEKBIN 9 \PEEKBIN) (477 *UNICODETOXCCS* 434 *UNICODETOXCCS*) ( 408 "INVALID UTF8 SEQUENCE" 349 "INVALID UTF8 SEQUENCE" 267 "INVALID UTF8 SEQUENCE" 219 "INVALID UTF8 SEQUENCE" 116 "INVALID UTF8 SEQUENCE" 64 "INVALID UTF8 SEQUENCE") \UTF8.BACKCCODEFN :D8 (P 0 C I 2 RAW I 1 COUNTP I 0 STREAM F 1 *BYTECOUNTER*) @j@ HmԸ@ lAHchHmAHc@hB (61 UTF8.PEEKCCODEFN 22 \PEEKBIN 9 \BACKFILEPTR) NIL () UTF16BE.OUTCHARFN :D8 (P 2 C P 0 X I 2 RAW I 1 CHARCODE I 0 STREAM) xAl @j@k@BA9`AHdAlHAHAl嶵 A` IdIhII@J @Jl (115 \BOUT 104 \BOUT 76 UNICODE.UNMAPPED) (71 *XCCSTOUNICODE* 27 *XCCSTOUNICODE*) () UTF16BE.INCCODEFN :D8 (P 4 X P 3 COUNT P 2 BYTE2 P 1 BYTE1 P 0 CODE I 2 RAW I 1 COUNTP I 0 STREAM F 5 *BYTECOUNTER*) j@@ YU@ ZNl[@ @ XB:`HLdHlLHLHl嶵 H` AKc Ho@ (103 ERROR 83 UNICODE.UNMAPPED) (78 *UNICODETOXCCS* 34 *UNICODETOXCCS*) ( 97 "ODD NUMBER OF BYTES IN UTF16 FILE") UTF16BE.PEEKCCODEFN :D8 (P 3 X P 2 CODE P 1 BYTE2 P 0 BYTE1 I 2 RAW I 1 NOERROR I 0 STREAM) x0@A XdX@ @A Y@ I@HIZB<`JKdJlKJKJl嶵J` AhAoHIh (117 ERROR 93 UNICODE.UNMAPPED 29 \BACKFILEPTR 22 \PEEKBIN 9 \PEEKBIN) (88 *UNICODETOXCCS* 45 *UNICODETOXCCS*) ( 107 "INVALID UTF16 CHARACTER") \UTF16BE.BACKCCODEFN :D8 (P 2 X P 1 CODE P 0 BYTE2 I 2 RAW I 1 COUNTP I 0 STREAM F 3 *BYTECOUNTER*) m@ e@ @ LAmcH@ YB@`IJdIlJ!IJIl嶵I` Amch(97 UNICODE.UNMAPPED 39 \PEEKBIN 22 \BACKFILEPTR 13 \PEEKBIN 5 \BACKFILEPTR) (92 *UNICODETOXCCS* 49 *UNICODETOXCCS*) () MAKE-UNICODE-FORMATSA0001 :D8 (I 1 COUNTP I 0 STREAM) @Ai (7 UTF8.INCCODEFN) NIL () MAKE-UNICODE-FORMATSA0002 :D8 (I 1 NOERROR I 0 STREAM) @Ai (7 UTF8.PEEKCCODEFN) NIL () MAKE-UNICODE-FORMATSA0003 :D8 (I 1 COUNTP I 0 STREAM) @Ai (7 \UTF8.BACKCCODEFN) NIL () MAKE-UNICODE-FORMATSA0004 :D8 (I 1 CHARCODE I 0 STREAM) @Ai (7 UTF8.OUTCHARFN) NIL () MAKE-UNICODE-FORMATSA0005 :D8 (I 1 COUNTP I 0 STREAM) @Ai (7 UTF16BE.INCCODEFN) NIL () MAKE-UNICODE-FORMATSA0006 :D8 (I 1 NOERROR I 0 STREAM) @Ai (7 UTF16BE.PEEKCCODEFN) NIL () MAKE-UNICODE-FORMATSA0007 :D8 (I 1 COUNTP I 0 STREAM) @Ai (7 \UTF16BE.BACKCCODEFN) NIL () MAKE-UNICODE-FORMATSA0008 :D8 (I 1 CHARCODE I 0 STREAM) @Ai (7 UTF16BE.OUTCHARFN) NIL () MAKE-UNICODE-FORMATS :D8 (I 0 EXTERNALEOL) gggggh@ gggggh@ gggggh@ gggggh@ (131 MAKE-EXTERNALFORMAT 98 MAKE-EXTERNALFORMAT 65 MAKE-EXTERNALFORMAT 32 MAKE-EXTERNALFORMAT) (123 MAKE-UNICODE-FORMATSA0008 118 MAKE-UNICODE-FORMATSA0007 113 MAKE-UNICODE-FORMATSA0006 108 MAKE-UNICODE-FORMATSA0005 103 :UTF-16BE-RAW 90 UTF16BE.OUTCHARFN 85 \UTF16BE.BACKCCODEFN 80 UTF16BE.PEEKCCODEFN 75 UTF16BE.INCCODEFN 70 :UTF-16BE 57 MAKE-UNICODE-FORMATSA0004 52 MAKE-UNICODE-FORMATSA0003 47 MAKE-UNICODE-FORMATSA0002 42 MAKE-UNICODE-FORMATSA0001 37 :UTF-8-RAW 24 UTF8.OUTCHARFN 19 \UTF8.BACKCCODEFN 14 UTF8.PEEKCCODEFN 9 UTF8.INCCODEFN 4 :UTF-8) () UNICODE.UNMAPPED :D8 (P 2 NEXTCODE P 1 INVERSE P 0 FORWARD I 1 TRANSLATION-TABLE I 0 CODE) iAn!@H W@H@Ho@ AnkضYdIkZdIo@ @JH J@I J(101 PUTHASH 92 PUTHASH 82 ERROR 45 ERROR 15 GETHASH) NIL ( 76 "EXHAUSTED RANGE FOR UNMAPPED CODES" 39 "UNMAPPED CODE IS EITHER XCCS-UNUSED OR UNICODE-PRIVATE") XCCS-UTF8-AFTER-OPEN :D8 (I 2 PARAMETERS I 1 ACCESS I 0 STREAM) Qo@ :@ g ggB@gg h(76 STREAMPROP 43 U-CASE 38 FILENAMEFIELD 28 FULLNAME 20 STRPOS 15 U-CASE 10 FULLNAME) (71 :UTF8 66 EXTERNALFORMAT 56 EXTERNALFORMAT 48 TXT 33 EXTENSION) ( 4 "XCCS-") XTOUCODE :D8 (P 0 X I 0 XCCSCODE) 7`@Hd@lH@H@l嶵 @` (52 UNICODE.UNMAPPED) (47 *XCCSTOUNICODE* 4 *XCCSTOUNICODE*) () UTOXCODE :D8 (P 0 X I 0 UNICODE) 7`@Hd@lH@H@l嶵 @` (52 UNICODE.UNMAPPED) (47 *UNICODETOXCCS* 4 *UNICODETOXCCS*) () READ-UNICODE-MAPPING-FILENAMES :D8 (P 6 CSI P 5 X P 4 F I 0 FILESPEC F 9 UNICODEDIRECTORIES F 10 XCCS-SET-NAMES) @HIdhHgLgg iW eLW Wh__8h^KggNgN gg iW _LOOiOLJ KhZeK&_(123 FINDFILE 115 PACKFILENAME 100 CONCAT 58 SASSOC 48 FINDFILE 40 PACKFILENAME) (110 TXT 105 EXTENSION 92 = 85 XCCS- 80 BODY 35 TXT 30 EXTENSION 24 BODY) () READ-UNICODE-MAPPINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 8 END P 4 START P 3 LINE I 0 SI::*CLEANUP-FORMS* F 9 STREAM F 10 SEPBITTABLE F 11 NOPRINT F 12 A0123)  PoWhddi oW Whd W.i oi oK i i Whd [WKki \KL l#@WKL K k_d_O Oh_O&_OA O&O[@QO O\Ii Y0 IMO_hO_O_OOW> W>h]nhoO _oO _OOk gl OkOk gl 2O(dO&O*XONNiMd Oh_.O,O.h_,_*O(k_(O.&_,Ogl Oh __"K_$ I O$IO"_ OO h__O_O &_d_O Oh_O&_OQO*_2O2O,ZdQO2fO4ZLIJ$_40 O2/O4O2k$O2_2_4_O Oh__O&_O_0O.O0h_._,O2O0&_._6O4O6 _ _:O6dO8hh O< h _4O2_2#(657 \NCONC2 649 OCTALSTRING 642 OCTALSTRING 614 SASSOC 605 CONCAT 600 OCTALSTRING 588 OCTALSTRING 578 OCTALSTRING 560 LAST 351 MEMB 326 \NCONC2 316 CL:PARSE-INTEGER 261 OCTALSTRING 218 CL:PARSE-INTEGER 206 SUBSTRING 193 CL:PARSE-INTEGER 181 SUBSTRING 163 STRPOS 147 HELP 142 OCTALSTRING 117 SASSOC 77 SORT) (309 :RADIX 211 :RADIX 186 :RADIX) ( 593 "-" 155 "-" 135 "UNKNOWN CHARACTER SET") WRITE-UNICODE-MAPPING-HEADER :D8 (P 1 R P 0 LINE I 2 RANGES I 1 CSETINFO I 0 STREAM F 2 UNICODE-MAPPING-HEADER) Rdo@ lh@ Hdgo@ A?o@ l@ BdI@ o@ @ do@ l@ A@ o@ A+g"o@ l @ o H@ @ @ (240 TERPRI 225 TERPRI 218 PRIN1 210 DATE 199 SPACES 190 PRIN1 163 PRIN1 151 PRIN1 140 SPACES 131 PRIN1 118 TERPRI 107 PRIN1 95 PRIN1 79 SPACES 70 PRIN1 54 PRIN1 29 TAB 19 PRIN1) (176 DATE 37 XCCSCHARACTERSETS) ( 205 (DATEFORMAT NO.TIME NO.LEADING.SPACES) 184 " Date:" 157 " " 125 ": " 101 " " 64 "s:" 48 " XCCS charset" 13 "#") WRITE-UNICODE-MAPPING-FILENAME :D8 (P 3 R P 2 RTAIL I 2 RANGES I 1 CSETINFO I 0 FILE F 4 UNICODEDIRECTORIES) g@cgAdBB1HZIFIJ[doKhhJKoh K JoAh gTgg (127 PACKFILENAME 104 CONCATLIST 76 \NCONC2 69 \NCONC2) (121 TXT 116 EXTENSION 109 DIRECTORY 12 XCCS- 4 BODY) ( 89 "=" 62 "," 43 "-") MAKE-UNICODE-TRANSLATION-TABLES :D8 (P 47 A0580 P 46 A0581 P 45 A0579 P 44 A0576 P 43 A0577 P 42 A0578 P 41 P P 40 A0575 P 39 A0574 P 38 A0573 P 37 A0571 P 36 A0572 P 35 A0570 P 34 A0567 P 33 A0568 P 32 A0569 P 31 P P 30 A0566 P 29 A0593 P 28 A0592 P 27 A0591 P 26 A0590 P 25 A0589 P 24 A0588 P 23 A0587 P 22 A0586 P 21 A0585 P 20 A0584 P 19 A0583 P 18 A0582 P 17 PREV P 16 RCOMBINERS P 15 RBASE P 14 LEFTC P 13 M P 11 CSA P 10 I P 8 A0564 P 7 A0565 P 6 RCODES P 5 RBASE P 4 LEFTC P 3 M P 1 RTOLARRAY P 0 LTORARRAY I 2 RTOLVAR I 1 LTORVAR I 0 MAPPING) 0lngh lngh @aJnj OO>@QOnj OOHn_&l o o o hO(O$O&In_,l o o o hO.O*O,HnkInO4O0O2InkHnO:O6O8ABHIhI H [^nM0KH_L_LlNNMOOOl_BO>_@ODOBH!%O_JO_HOFOJOk____O_ nOWO SO_OlIO_"-I'O_NOlOOLON(OPOLONOO"OO_IO l Mlgh _IO!d1,O_XORl_VOR_TOXOVI!/O_^O_\OZO^Ok_(621 CL:MAKE-ARRAY 603 LENGTH 407 CL:MAKE-ARRAY 389 LENGTH 312 SETTOPVAL 303 SETTOPVAL 208 CHARCODE.DECODE 198 CHARCODE.DECODE 188 CHARCODE.DECODE 178 HASHARRAY 144 CHARCODE.DECODE 134 CHARCODE.DECODE 124 CHARCODE.DECODE 114 HASHARRAY 33 CL:MAKE-ARRAY 16 CL:MAKE-ARRAY) (615 :INITIAL-ELEMENT 401 :INITIAL-ELEMENT 27 :INITIAL-ELEMENT 10 :INITIAL-ELEMENT) ( 203 "U+E000" 193 "U+F8FF" 183 "U+E000" 139 "5,0" 129 "40,0" 119 "5,0") HEXSTRING :D8 (P 5 CHAR P 4 STR P 1 LEFT P 0 I I 1 WIDTH I 0 N) |@3 @ bAjj@IdjHkHHkԸkJdKKl0 m@djLlLHl MMl0Ml lA @bHmԸ(106 RPLCHARCODE 64 ALLOCSTRING 9 CHARCODE.DECODE) NIL () UTF8HEXSTRING :D8 (I 0 CHARCODE) l@@n@@l@l?lmo@#@l@ml?l@l?lCo@/@l@ml?l@ml?l@l?lo@ (148 HEXSTRING 143 ERROR) NIL ( 137 "CHARCODE too big for UTF8" 83 2097152 41 65536) NUTF8CODEBYTES :D8 (I 0 N) -l@kn@lo@lo@l(42 SHOULDNT) NIL ( 31 2097152 20 65536) NUTF8STRINGBYTES :D8 (P 2 C P 0 I I 1 RAWFLG I 0 STRING) )kj@H ZIIAJJ ԹHkԸ(31 NUTF8CODEBYTES 26 XTOUCODE 11 NTHCHARCODE) NIL () XTOUSTRING :D8 (P 3 CHARCODE P 2 SINDEX P 1 I P 0 USTR I 1 RAWFLG I 0 XCCSSTRING) @A kj@I [HAK lKHJkZK nK+HJkZKl HJkZKl?l oK>HJkZKl HJkZKml?l HJkZKl?l _oKQHJkZKl HJkZKml?l HJkZKml?l HJkZKl?l IkԹ(268 SHOULDNT 262 RPLCHARCODE 244 RPLCHARCODE 223 RPLCHARCODE 202 RPLCHARCODE 173 RPLCHARCODE 155 RPLCHARCODE 134 RPLCHARCODE 103 RPLCHARCODE 85 RPLCHARCODE 55 RPLCHARCODE 38 XTOUCODE 26 NTHCHARCODE 11 ALLOCSTRING 6 NUTF8STRINGBYTES) NIL ( 180 2097152 111 65536) XCCSSTRING :D8 (I 0 CODE) '@d3 b o@l (36 CONCAT 31 OCTALSTRING 17 OCTALSTRING 9 CHCON1) NIL ( 22 ",") SHOWCHARSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 C I 0 SI::*CLEANUP-FORMS* F 2 FROMCHAR F 3 TOCHAR F 4 CODE) Rd(S#Ronx cRol) cRR cSdRcRIHh lIlIlll!AT oTl i l hi I i i IkY(164 TERPRI 157 PRIN1 151 CHARACTER 144 TAB 134 PRIN2 128 CONCAT 123 OCTALSTRING 109 OCTALSTRING 80 CHARCODE.DECODE 52 CHARCODE.DECODE 39 CONCAT 23 CONCAT) NIL ( 114 "," 32 "," 15 ",") SHOWCHARS :D8 (P 0 SI::*RESETFORMS* I 2 FONT I 1 TOCHAR I 0 FROMCHAR) 7gBoi hhhg $(48 SI::RESETUNWIND 43 \MVLIST 38 SHOWCHARSA0001 18 DSPFONT) (33 SI::RESETUNWIND 4 DSPFONT) ( 12 (CLASSIC 12)) (PRETTYCOMPRINT UNICODECOMS) (RPAQQ UNICODECOMS ((COMS (* ;; "External formats") (FNS UTF8.OUTCHARFN UTF8.INCCODEFN UTF8.PEEKCCODEFN \UTF8.BACKCCODEFN) (FNS UTF16BE.OUTCHARFN UTF16BE.INCCODEFN UTF16BE.PEEKCCODEFN \UTF16BE.BACKCCODEFN) (INITVARS (EXTERNALEOL (QUOTE LF))) (FNS MAKE-UNICODE-FORMATS) (P ( MAKE-UNICODE-FORMATS EXTERNALEOL)) (ADDVARS (*DEFAULT-EXTERNALFORMATS* (UNIX :UTF-8))) (FNS UNICODE.UNMAPPED) (FNS XCCS-UTF8-AFTER-OPEN) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNICODE.TRANSLATE)) (FNS XTOUCODE UTOXCODE)) (COMS (* ;; "Unicode mapping files") (FNS READ-UNICODE-MAPPING-FILENAMES READ-UNICODE-MAPPING WRITE-UNICODE-MAPPING WRITE-UNICODE-INCLUDED WRITE-UNICODE-MAPPING-HEADER WRITE-UNICODE-MAPPING-FILENAME) (VARS XCCS-SET-NAMES) (* ;; "Automate dumping of a documentation prefix") (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (MISSINGCODE (CL:PARSE-INTEGER "FFFE" :RADIX 16)) (UNDEFINEDCODE (CL:PARSE-INTEGER "FFFF" :RADIX 16)))) (VARS UNICODE-MAPPING-HEADER) (INITVARS (UNICODEDIRECTORIES NIL))) (COMS (* ;; "Set up translation tables for UTF8 and UTFBE external formats") (FNS MAKE-UNICODE-TRANSLATION-TABLES) (INITVARS (DEFAULT-XCCS-CHARSETS (QUOTE (LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 ACCENTED-LATIN GREEK)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAKE-UNICODE-TRANSLATION-TABLES (READ-UNICODE-MAPPING DEFAULT-XCCS-CHARSETS T) (QUOTE *XCCSTOUNICODE*) (QUOTE *UNICODETOXCCS*)))) ( GLOBALVARS *XCCSTOUNICODE* *UNICODETOXCCS*)) (FNS HEXSTRING UTF8HEXSTRING NUTF8CODEBYTES NUTF8STRINGBYTES XTOUSTRING XCCSSTRING) (FNS SHOWCHARS) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS) EXPORTS.ALL) (* ;; "These control the layout of the translation tables. Since many of the upper panels are sparse, doing it per-panel (128) seems more space-efficient, and residual alists can be shorter" ) (CONSTANTS (TRANSLATION-SEGMENT-SIZE 128) (MAX-ALIST-LENGTH 10) (N-TRANSLATION-SEGMENTS (IQUOTIENT 65536 TRANSLATION-SEGMENT-SIZE)) (TRANSLATION-SHIFT (INTEGERLENGTH (SUB1 TRANSLATION-SEGMENT-SIZE))) ( TRANSLATION-MASK (SUB1 TRANSLATION-SEGMENT-SIZE)))))) (RPAQ? EXTERNALEOL (QUOTE LF)) (MAKE-UNICODE-FORMATS EXTERNALEOL) (ADDTOVAR *DEFAULT-EXTERNALFORMATS* (UNIX :UTF-8)) (RPAQQ XCCS-SET-NAMES (("0" LATIN) ("41" SYMBOLS1) ("42" SYMBOLS2) ("43" EXTENDED-LATIN) ("44" HIRAGANA) ("45" KATAKANA) ("46" GREEK) ("47" CYRILLIC) ("50" FORMS) ("60-172" JIS) ("340" ARABIC) ( "341" HEBREW) ("342" IPA) ("343" HANGUL) ("344" GEORGIAN-ARMENIAN) ("356" SYMBOLS3) ("357" SYMBOLS4) ( "360" LIGATURES) ("361" ACCENTED-LATIN) ("365" MORE-ARABIC) ("375" GRAPHIC-VARIANTS))) (RPAQQ UNICODE-MAPPING-HEADER ("" " Name: XCCS (XC-3-1-1-0) to Unicode" " Unicode version: 3.0" XCCSCHARACTERSETS " Table version: 0.1" " Table format: Format A" DATE " Author: Ron Kaplan " "" "This file contains mappings from the Xerox Character Code Standard (version" "XC1-3-3-0, 1987) into Unicode 3.0. standard codes. That is the version of" "XCCS corresponding to the fonts in the Medley system." "" "The format of this file conforms to the format of the other Unicode-supplied" "mapping files:" " Three white-space (tab or spaces) separated columns:" " Column 1 is the XCCS code (as hex 0xXXXX)" " Column 2 is the corresponding Unicode (as hex 0xXXXX)" " Column 3 (after #) is a comment column. For convenience, it contains the" " Unicode character itself (since the Unicode character names" " are not available)" "Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED" "Unicode FFFE is used for XCCS codes that have not yet been filled in." "(Column 3 = MISSING)" "" "This file is encoded in UTF8, so that the Unicode characters" "are properly displayed in Column 3 and can be edited by standard" "Unicode-enabled editors (e.g. Mac Textedit)." "" "This file can also be read by the function" "READ-UNICODE-MAPPING in the UNICODE Medley library package." "" "The entries are in XCCS order and grouped by character sets. In front of" "the mappings, for convenience, there is a line with the octal XCCS" "character set, after #." "" "Note that a given XCCS code might map to codes in several different Unicode" "positions, since there are repetitions in the Unicode standard." "" "For more details, see the associated README.TXT file." "" "Any comments or problems, contact ")) (RPAQ? UNICODEDIRECTORIES NIL) (RPAQ? DEFAULT-XCCS-CHARSETS (QUOTE (LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 ACCENTED-LATIN GREEK))) (MAKE-UNICODE-TRANSLATION-TABLES (READ-UNICODE-MAPPING DEFAULT-XCCS-CHARSETS T) (QUOTE *XCCSTOUNICODE* ) (QUOTE *UNICODETOXCCS*)) NIL