(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8) (FILECREATED "26-Apr-2026 10:44:13" ("compiled on " {MEDLEY}UNICODE-TABLES.;23) "16-Apr-2026 11:19:55" brecompiled exprs%: nothing in "FULL 16-Apr-2026 ..." dated "16-Apr-2026 11:20:03") (FILECREATED "26-Apr-2026 10:44:13" {MEDLEY}UNICODE-TABLES.;23 44829 :EDIT-BY rmk :CHANGES-TO (VARS UNICODE-TABLESCOMS) :PREVIOUS-DATE "31-Mar-2026 09:01:05" {MEDLEY}UNICODE-TABLES.;22) READ-UNICODE-MAPPING-FILENAMES :D8 (P 22 D P 19 D P 16 FN P 15 D P 13 FOCTAL P 12 FF P 10 FTAIL P 5 CSI P 4 X P 3 F I 0 FILESPEC F 23 XCCS-CHARSETS) f@dg0W.dIHhZH&JAIJa N_OIhIIJK K `"OdymgKgggo i` ddh9`!O"O$$KW.]M `!O(O* OO_hO_O_gOggOg gggo  _ 3+O"_&hO"_&O"_"goK gggogO&  =goKo gggogO&  _$O(_,hO(_,O(_(O,oKo _, O*O,o _*h__hO_O,Oh__O_OO OiOO&_(591 CL::SIMPLE-STRING-EQUAL 533 \NCONC2 528 DIRECTORY 523 CONCAT 505 DIRECTORYNAMEP 498 CONCAT 448 DIRECTORY 443 PACKFILENAME 410 CONCAT 387 DIRECTORY 382 PACKFILENAME 349 CONCAT 301 DIRECTORY 296 PACKFILENAME 270 CONCAT 216 \NCONC2 190 READ-UNICODE-MAPPING-FILENAMES 147 FINDFILE 136 PACKFILENAME 88 OCTALSTRING 79 CHARCODEP) (435 BODY 425 VERSION 420 TXT 415 EXTENSION 394 NAME 374 BODY 364 VERSION 359 TXT 354 EXTENSION 338 NAME 285 VERSION 280 TXT 275 EXTENSION 265 =* 258 XCCS- 253 BODY 246 DIRECTORY 197 UNICODEDIRECTORIES 161 UNICODEDIRECTORIES 142 UNICODEDIRECTORIES 125 VERSION 120 TXT 115 EXTENSION 109 BODY 93 UNICODEDIRECTORIES 6 ALL) ( 518 ">*.TXT;" 493 ">" 487 ">" 430 "" 405 "=*" 399 "XCCS-" 369 "" 343 "XCCS-*=" 290 "" 130 "") READ-UNICODE-MAPPINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 16 CODES P 15 END P 11 START P 10 CHARSET P 9 NAME P 8 LINE P 4 STREAM P 3 FILE P 1 SEPBITTABLE I 0 SI::*CLEANUP-FORMS* F 17 SI::*RESETFORMS* F 18 FILESPEC F 19 PRINT) W$ o 2HJJoKgho \hW"c"p oLhddi oL oLhd _oLhddi oLhd o_W&5i Oi oi Ol i i Lhd _IOki _OO l#PIOO O k_EOOOko _OCOh__IOOi _OO l#Odd&O_NOh^]]O&_O&^NL M HXs(413 \NCONC2 405 CLOSEF? 351 NTHCHARCODE 339 STRPOSL 312 CHARCODE.DECODE 307 SUBSTRING 283 NCHARS 274 STRPOSL 256 NTHCHARCODE 243 STRPOSL 227 CL:READ-LINE 218 TERPRI 211 PRIN1 205 SUBSTRING 195 PRIN1 183 PRIN1 174 TERPRI 155 CL:STRING-TRIM 150 CL:READ-LINE 135 FILEPOS 116 CL:STRING-TRIM 111 CL:READ-LINE 97 ERROR 92 FULLNAME 79 FILEPOS 50 OPENSTREAM 16 MAKEBITTABLE 6 READ-UNICODE-MAPPING-FILENAMES) (39 INPUT) ( 302 "" 189 " " 161 "" 142 " " 124 "XCCS charset:" 103 " " 86 "NOT A UNICODE MAPPING FILE" 68 "Name:" 45 ((FORMAT :THROUGH) (EOLCONVENTION LF)) 33 (PROGN (CLOSEF? OLDVALUE)) 11 (9 32)) READ-UNICODE-MAPPING :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 NOERROR I 1 PRINT I 0 FILESPEC F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 READ-UNICODE-MAPPINGA0001) (8 SI::RESETUNWIND) () MAKE-UNICODE-TRANSLATION-TABLES :D8 (P 1 INVERSETABLE P 0 TABLE I 1 REINSTALL I 0 MAPPING) @ bAYhnn@ @ h@HI HI``hg nnh@ (134 MERGE-UNICODE-TRANSLATION-TABLES 107 BOUNDP 71 MERGE-UNICODE-TRANSLATION-TABLES 59 HASHARRAY 54 LENGTH 48 HASHARRAY 43 LENGTH 5 GET-MCCS-UNICODE-MAPPING) (126 *NEXT-PRIVATE-UNICODE* 117 *NEXT-PRIVATE-MCCSCODE* 102 *NEXT-PRIVATE-MCCSCODE* 93 *UNICODETOMCCS* 88 *MCCSTOUNICODE* 83 *UNICODETOMCCS* 77 *MCCSTOUNICODE* 37 *NEXT-PRIVATE-UNICODE* 29 *NEXT-PRIVATE-MCCSCODE* 21 *MCCS-LOADED-CHARSETS* 16 *UNICODE-LOADED-CHARSETS*) () GET-MCCS-UNICODE-MAPPING :D8 (P 4 I P 3 R P 2 PAIR I 0 MAPPING) j@dUl @2kI iC@KLHJJ Jddh[3 jKKjK hILk԰@ i (103 SORT 97 XCCSTOMCCS-MAPPING 92 READ-UNICODE-MAPPING 74 CHARCODEP 42 CHARCODEP) NIL () INVERT-UNICODE-MAPPING :D8 (P 11 MS P 10 U P 9 PTAIL2 P 8 PTAIL P 0 INVERTED I 0 MAPPING) @aIJi XdA O__O/H]M_NOdNhK Lh[ZIYL&[AI_OOMMK Lh[OL&J_OOOOO Oz(154 SORT 18 SORT) NIL () XCCSTOMCCS-MAPPING :D8 (P 9 AP P 3 AFFECTED P 0 XTOMCODES I 0 XTOUMAPPING) o o1@ALM[ OCo@_HhYhO_N Oh^L\OJJiIO&_dHO_NIL NIL ( 31 (127 127) 4 ((164 36) (36 164) (94 173) (173 94) (95 172) (172 95))) ALL-UNICODE-MAPPINGSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 I I 0 SI::*CLEANUP-FORMS* F 1 STREAM F 2 INDEX F 3 A332474) xRMdoQ HQ oQ HQ oQ Q Q oQ Q Q hc$(110 \MVLIST 105 FULLNAME 98 TERPRI 91 PRIN1 75 TERPRI 68 TERPRI 61 PRIN1 49 PRIN1 39 PRIN1 27 PRIN1 18 PRIN1) NIL ( 85 "STOP" 55 "]" 33 " " 12 "[") ALL-UNICODE-MAPPINGSA0002 :D8 (F 0 STREAM F 1 A332474) PgQ (11 CL:CLOSE) (5 :ABORT) () ALL-UNICODE-MAPPINGS :D8 (P 15 A332474 P 14 STREAM P 13 M P 11 CS P 7 PAIR P 1 INDEX P 0 MAPPING I 1 FILE I 0 INVERTED) Lg Q@H HNI_W0 O_I OhIY_O_OOOhKKdJ_O_O OOMMLN^d O O-Odi Ii YAgAiA&_dd O_@ggg`ddhgg bdgggg ig OgO $I(323 CL:CLOSE 309 \MVLIST 304 ALL-UNICODE-MAPPINGSA0001 290 OPEN 261 PACKFILENAME 205 SORT 172 SORT 159 SORT 112 MEMBER 20 INVERT-UNICODE-MAPPING 9 GET-MCCS-UNICODE-MAPPING) (316 :ABORT 299 ALL-UNICODE-MAPPINGSA0002 284 :NEW-VERSION 279 :IF-EXISTS 274 :OUTPUT 269 :DIRECTION 255 TXT 250 EXTENSION 237 UNICODEDIRECTORIES 232 DIRECTORY 227 MCCS-TO-UNICODE-MAPPINGS 221 UNICODE-TO-MCCS-MAPPINGS 183 BODY 4 ALL) () XCCSJAPANESECHARSETSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STREAM F 1 $$VAL F 2 A165356) QP P hc$(18 \MVLIST 13 FULLNAME 6 PRINT) NIL () XCCSJAPANESECHARSETSA0002 :D8 (F 0 STREAM F 1 A165356) PgQ (11 CL:CLOSE) (5 :ABORT) () XCCSJAPANESECHARSETS :D8 (P 8 A165356 P 7 STREAM P 6 CS P 5 POS P 4 F P 1 $$VAL I 1 FILE I 0 OCTAL) o aHI AgAdiog`ddhgg gggg ig OgO $oLkhdi ]5LMgLM k @NNo J KhZHX0K&I(209 MKATOM 204 CONCAT 188 SUBSTRING 181 STRPOS 164 STRPOS 141 CL:CLOSE 127 \MVLIST 122 XCCSJAPANESECHARSETSA0001 108 OPEN 82 PACKFILENAME 26 SORT 9 READ-UNICODE-MAPPING-FILENAMES) (174 =JIS 134 :ABORT 117 XCCSJAPANESECHARSETSA0002 102 :NEW-VERSION 97 :IF-EXISTS 92 :OUTPUT 87 :DIRECTION 76 TXT 71 EXTENSION 58 UNICODEDIRECTORIES 53 DIRECTORY 37 BODY) ( 199 "Q" 153 "XCCS-" 48 "JAPANESECHARSETS" 4 "JIS") WRITE-UNICODE-MAPPINGA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 0 RIGHTC I 0 SI::*CLEANUP-FORMS* F 1 FIRSTRIGHTC F 2 LEFTC F 3 M) oh Rl h S.doh oh Hl h oh Qdno.no"l QoQl@ Q h h (157 TERPRI 151 PRIN1 145 CHARACTER 138 CONCAT 133 CHARACTER 86 PRIN1 70 PRIN1 64 HEXSTRING 55 PRIN1 43 PRIN1 24 PRIN1 18 HEXSTRING 10 PRIN1) NIL ( 124 "↑" 111 "MISSING" 99 "UNDEFINED" 80 " # " 49 "0x" 37 " " 4 "0x") WRITE-UNICODE-MAPPINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 SI::*RESETFORMS* P 5 CSI P 4 FIRSTRIGHTC P 3 LEFTC P 2 CSET P 1 M I 0 SI::*CLEANUP-FORMS* F 7 STREAM F 8 CSETINFO F 9 IMAPPING F 10 RANGES F 11 A165364) WWW Wi WQHW hc$YIJKJKZWW oW MW oW MW W gW hhhg $HX`(178 SI::RESETUNWIND 173 \MVLIST 168 WRITE-UNICODE-MAPPINGA0001A0002 148 OUTPUT 135 TERPRI 127 PRIN1 115 PRIN1 102 PRIN2 91 PRIN1 78 TERPRI 42 \MVLIST 37 FULLNAME 19 SORT 10 WRITE-UNICODE-MAPPING-HEADER) (163 SI::RESETUNWIND 141 OUTPUT) ( 108 " " 84 "# ") WRITE-UNICODE-MAPPINGA0003 :D8 (F 0 STREAM F 1 A165364) PgQ (11 CL:CLOSE) (5 :ABORT) () WRITE-UNICODE-MAPPING :D8 (P 12 A165364 P 11 STREAM P 8 RANGES P 7 CSETINFO P 6 IMAPPING P 5 F P 4 CSI I 3 EMPTYOK I 2 FILE I 1 INCLUDECHARSETS I 0 MAPPING F 13 XCCS-SET-NAMES)  AiJBG@0WQHI@Lhi ]J KhZHXK&oi i hP @A _O__O_NVBOO gggggg i g OgO $Coi Asoi Addhi hihi i C(262 TERPRI 255 PRINTDEF 245 POSITION 230 PRIN1 212 PRIN1 193 CL:CLOSE 179 \MVLIST 174 WRITE-UNICODE-MAPPINGA0001 160 OPEN 124 WRITE-UNICODE-MAPPING-FILENAME 91 \MVLIST 86 WRITE-UNICODE-INCLUDED 74 TERPRI 67 PRIN1 33 WRITE-UNICODE-MAPPING) (186 :ABORT 169 WRITE-UNICODE-MAPPINGA0003 154 :UTF-8-RAW 149 :EXTERNAL-FORMAT 144 :NEW-VERSION 139 :IF-EXISTS 134 :OUTPUT 129 :DIRECTION) ( 224 " FOR " 206 "THERE ARE NO MAPPINGS" 61 "THERE ARE NO MAPPINGS") WRITE-UNICODE-INCLUDED :D8 (P 30 LAST P 29 KNOWN P 28 STR P 27 R P 20 I P 18 CSI P 17 M P 12 KNOWN P 11 POS P 10 C P 4 IMAPPING P 3 ICSETS P 2 RANGES P 1 CSETINFO P 0 CHARSETS I 1 INCLUDECHARSETS I 0 MAPPING F 31 XCCS-SET-NAMES) pA'0 W>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@ Hdg}o@ A9o@ l@ BdI@ o@ eo@ l@ A@ o@ A+g"o@ l @ o H@ @ $@ (232 TERPRI 217 TERPRI 210 PRIN1 202 DATE 191 SPACES 182 PRIN1 155 PRIN1 143 PRIN1 132 SPACES 123 PRIN1 105 PRIN1 93 PRIN1 77 SPACES 68 PRIN1 52 PRIN1 29 TAB 19 PRIN1) (168 DATE 37 XCCSCHARACTERSETS) ( 197 (DATEFORMAT NO.TIME NO.LEADING.SPACES) 176 " Date:" 149 " " 117 ": " 99 " " 62 "s:" 46 " XCCS charset" 13 "#") WRITE-UNICODE-MAPPING-FILENAME :D8 (P 3 R P 2 RTAIL I 2 RANGES I 1 CSETINFO I 0 FILE) g@cgAdBB1HZIFIJ[doKhhJKoh K JoAh g`gg (131 PACKFILENAME 104 CONCATLIST 76 \NCONC2 69 \NCONC2) (125 TXT 120 EXTENSION 114 UNICODEDIRECTORIES 109 DIRECTORY 12 XCCS- 4 BODY) ( 89 "=" 62 "," 43 "-") 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 :UTF-8 66 EXTERNALFORMAT 56 EXTERNALFORMAT 48 TXT 33 EXTENSION) ( 4 "XCCS-") 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) SHOWCHARSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 C P 1 CHARS P 0 OLDFONT I 0 SI::*CLEANUP-FORMS* F 7 FROMCHAR F 8 TOCHAR F 9 SI::*RESETFORMS* F 10 ONELINE F 11 FONT) hi W Wi WcWMW =W W WcWW2KdJLM Nh]Kk[N&W Ygd go WcI\dHi K oKl i l hi Wi K i Wi h(241 TERPRI 231 PRIN1 225 CHARACTER 218 CHANGEFONT 209 TAB 199 PRIN1 193 CONCAT 188 OCTALSTRING 174 OCTALSTRING 166 CHANGEFONT 151 TERPRI 140 SETTOPVAL 124 GETTOPVAL 112 CHCON 61 CHARCODE.DECODE 53 CHARCODEP 44 CHARCODEP 25 CHARCODE.DECODE 16 CHARCODEP 6 DSPFONT) (130 OLDFONT 118 OLDFONT) ( 179 "," 135 (PROGN (DSPFONT OLDVALUE))) SHOWCHARS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 ONELINE I 2 TOCHAR I 1 FROMCHAR I 0 FONT F 3 LISPXHIST) 3@o bS!g $(48 TERPRI 38 SI::RESETUNWIND 33 \MVLIST 28 SHOWCHARSA0001 12 FONTCREATE) (23 SI::RESETUNWIND) ( 7 (CLASSIC 12)) (PRETTYCOMPRINT UNICODE-TABLESCOMS) (RPAQQ UNICODE-TABLESCOMS ((* ;; "This is code for reading/writing the XCCS-to-UNICODE mapping tables. It runs offline, when UNICODE-UTF8 is modified. " ) (COMS (* ; "Read Unicode mapping files") (INITVARS (UNICODEDIRECTORIES (QUOTE ( {MEDLEY}/unicode/xerox/)))) (GLOBALVARS UNICODEDIRECTORIES) (VARS XCCS-CHARSETS) (FNS READ-UNICODE-MAPPING-FILENAMES READ-UNICODE-MAPPING)) (COMS (* ; "Make translation tables for UTF external formats") (FNS MAKE-UNICODE-TRANSLATION-TABLES GET-MCCS-UNICODE-MAPPING INVERT-UNICODE-MAPPING XCCSTOMCCS-MAPPING) (FNS ALL-UNICODE-MAPPINGS XCCSJAPANESECHARSETS) (COMS (* ; "Write Unicode mapping files") (FNS WRITE-UNICODE-MAPPING WRITE-UNICODE-INCLUDED WRITE-UNICODE-MAPPING-HEADER WRITE-UNICODE-MAPPING-FILENAME) (FNS XCCS-UTF8-AFTER-OPEN) (* ;; "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)) (FNS UTF8HEXSTRING) (COMS (* ; "debugging") (FNS SHOWCHARS) (DECLARE%: DOEVAL@LOAD DONTCOPY (MACROS HEXCHAR OCTALCHAR))) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) UNICODE-EXPORTS))))) (RPAQ? UNICODEDIRECTORIES (QUOTE ({MEDLEY}/unicode/xerox/))) (RPAQQ XCCS-CHARSETS ((LATIN "0") (JAPANESE-SYMBOLS1 "41") (JAPANESE-SYMBOLS2 "42") (EXTENDED-LATIN "43") (HIRAGANA "44") (KATAKANA "45") (GREEK "46") (CYRILLIC "47") (FORMS "50") (RUNIC-GOTHIC "51") ( MORE-CYRILLIC "52") (UNKNOWN1 "56") (DECORATED-RULES "56") (UNKNOWN2 "57") (VERTICAL-JAPANESE "57") ( ARABIC "340") (HEBREW "341") (IPA "342") (HANGUL "343") (GEORGIAN-ARMENIAN "344") (DEVANAGRI "345") ( BENGALI "346") (GURMUKHI "347") (THAI-LAO "350") (SYMBOLS3 "353") (EXTENDED-ITC-DINGBATS "354") ( ITC-DINGBATS1 "355") (SYMBOLS2 "356") (SYMBOLS1 "357") (LIGATURES "360") (ACCENTED-LATIN1 "361") ( ACCENTED-LATIN2 "362") (ACCENTED-GREEK1 "363") (ACCENTED-GREEK2 "364") (MORE-ARABIC "365") ( GRAPHIC-VARIANTS "375") (JAPANESE HIRAGANA KATAKANA JIS) (DEFAULT LATIN ACCENTED-LATIN1 EXTENDED-LATIN SYMBOLS1 SYMBOLS2 FORMS JAPANESE-SYMBOLS1 JAPANESE-SYMBOLS2) (JIS "60-166"))) (RPAQQ UNICODE-MAPPING-HEADER ("" " Name: XCCS (Version 2.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" "2.0, 1990) into Unicode 3.0. standard codes. That is an extension of 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 and the Unicode character names when 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 UTF-8, 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 ")) NIL