github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-05 11:14:38 +00:00
Code Issues Projects Releases Wiki Activity
Files
ab4eb3d52d73c8af6385367eb43a149ccd021a25
Interlisp.medley/sources/MCCS.LCOM
rmkaplan 0f470b9753 Rmk161 loadup works with utf 8 source files (#2512) 
* New starter.sysout contains the UTF-8 external format
* Init.sysout is created with the UTF-8 external format
* Files with non-ascii characters and some other files converted to UTF-8, for basic testing
* Environment arg of WITH-READER-ENVIRONMENT can be a stream
* Compiler functions now respect the external format as copied from the source file
* Colon is the package delimiter in DEFINE-FILE-INFO expressions
* UNICODE file is deprecated in favor of UNICODE-FORMATS and UNICODE-TABLES
2026-03-02 11:56:11 -08:00

390 lines
25 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "26-Feb-2026 12:57:11" ("compiled on " {WMEDLEY}<sources>MCCS.;168)
"26-Feb-2026 12:11:15" brecompiled exprs%: MCCSMAPPAIRS in "FULL 26-Feb-2026 ..." dated
"26-Feb-2026 12:11:24")
(FILECREATED "26-Feb-2026 12:57:11" {WMEDLEY}<sources>MCCS.;168 61634 :EDIT-BY rmk :CHANGES-TO (FNS
MCCSMAPPAIRS) :PREVIOUS-DATE "20-Feb-2026 09:21:16" {WMEDLEY}<sources>MCCS.;167)
\MCCSINCCODE :D8
(P 2 NUMBYTES P 1 CHAR P 0 CSET I 1 COUNTP I 0 STREAM F 3 *BYTECOUNTER*) f@@ʇ@ Ilÿð²4@ Xlÿð¬@ ¹lº@Hχ°/@ jð²@ ¸@ ¹lº@lÿχ°@ ŽHlÿð—I¸@ ¹l€kZ¿A“Jc¿I´HáIä(69 \MCCS.24BITENCODING.ERROR)
(5 STREAM)
()
\MCCSPEEKCCODE :D8
(P 1 CHAR P 0 CSET I 1 NOERROR I 0 STREAM) Š@@ʇ@A
Id²rlÿð²K@ ¿@ Xlÿð¯@A
¹@ °D@ jð²#@ ¸@A
¹@ ¿@ ¿@ °@ °Hlÿð²I¸@ ¿@A
Y¿@ ¿I´HáIä(127 \BACKFILEPTR 119 \PEEKBIN 99 \MCCS.24BITENCODING.ERROR 91 \BACKFILEPTR 84 \BACKFILEPTR 77 \BACKFILEPTR 70 \PEEKBIN 52 \BACKFILEPTR 45 \PEEKBIN 16 \PEEKBIN)
(5 STREAM)
()
\MCCSOUTCHAR :D8
(I 1 CHARCODE I 0 STREAM) ¥Al
ð²<@jÍ@ʇlÿð’@°@ʇjð³@lÿ
¿@djχ¿j
¿@ @k@ÈÐÓÍ@ʇlÿð²@Aã
@Alÿå
Aã@ʇð³@lÿ
@dAãHIχ¿I
@Alÿå
(162 \BOUT 152 \BOUT 132 \BOUT 114 \BOUT 104 \BOUT 62 \BOUTEOL 55 \BOUT 41 \BOUT)
(88 STREAM 76 STREAM 69 STREAM 15 STREAM)
()
\MCCSBACKCCODE :D8
(P 1 CSET P 0 BYTE I 1 COUNTP I 0 STREAM F 2 *BYTECOUNTER*) R@ ´@ @ʇH´5Ilÿð²$@ ²A”mþc¿@ áHäA´mÿchA”mÿc¿IáHä(55 \PEEKBIN 40 \BACKFILEPTR 13 \PEEKBIN 5 \BACKFILEPTR)
(19 STREAM)
()
\MCCSFORMATBYTESTREAM :D8
(I 1 BYTESTREAM I 0 STREAM) A@
A@ʇ
A(26 \MCCSCHARSETFN 11 \EXTERNALFORMAT 6 \EXTERNALFORMAT)
(18 STREAM)
()
\MCCSCHARSETFN :D8
(P 0 CSET I 2 DONTMARKSTREAM I 1 CHARSET I 0 STREAM) b@ʇAµHdið”¿lÿbHð³ó@Aχ¿B³ê@gi ²Ü@lÿ
¿Alÿð²@lÿ
¿@j
¿°º@A
¿°°(93 \BOUT 83 \BOUT 75 \BOUT 60 \BOUT 50 \IOMODEP)
(44 OUTPUT 5 STREAM)
()
\CREATE.MCCS.EXTERNALFORMAT :D8
(I 1 EOL I 0 NAME) 9@µggggggAµgihdg
(54 MAKE-EXTERNALFORMAT)
(48 \MCCSCHARSETFN 40 LF 32 \MCCSFORMATBYTESTREAM 27 \MCCSOUTCHAR 22 \MCCSBACKCCODE 17 \MCCSPEEKCCODE 12 \MCCSINCCODE 7 :MCCS)
()
\CREATE.XCCS.EXTERNALFORMATA0001 :D8
(I 1 COUNTP I 0 STREAM) @A
(11 XTOMCODE 6 \MCCSINCCODE)
NIL
()
\CREATE.XCCS.EXTERNALFORMATA0002 :D8
(I 1 NOERROR I 0 STREAM) @A
(11 XTOMCODE 6 \MCCSPEEKCCODE)
NIL
()
\CREATE.XCCS.EXTERNALFORMATA0003 :D8
(I 1 COUNTP I 0 STREAM) @A
(11 XTOMCODE 6 \MCCSBACKCCODE)
NIL
()
\CREATE.XCCS.EXTERNALFORMATA0004 :D8
(I 1 CHARCODE I 0 STREAM) @A
(11 \MCCSOUTCHAR 6 MTOXCODE)
NIL
()
\CREATE.XCCS.EXTERNALFORMAT :D8
(I 1 EOL I 0 NAME) B@µggggggAµgighgg
(63 MAKE-EXTERNALFORMAT)
(57 XTOMSTRING 52 \MCCSCHARSETFN 46 MTOXSTRING 40 LF 32 \MCCSFORMATBYTESTREAM 27 \CREATE.XCCS.EXTERNALFORMATA0004 22 \CREATE.XCCS.EXTERNALFORMATA0003 17 \CREATE.XCCS.EXTERNALFORMATA0002 12 \CREATE.XCCS.EXTERNALFORMATA0001 7 :XCCS)
()
\MCCS.24BITENCODING.ERROR :D8
(I 0 STREAM F 0 *SIGNAL-MCCS.24BITENCODING.ERROR*) Pšo@
j(12 ERROR)
NIL
( 6 "24-bit MCCS encoding not supported")
MTOXCODE :D8
(I 0 MCODE)
@oµ@NIL
NIL
( 5 ((164 . 36) (173 . 94) (172 . 95) (36 . 164) (95 . 172) (94 . 173)))
XTOMCODE :D8
(I 0 XCODE)
@oµ@NIL
NIL
( 5 ((164 . 36) (36 . 164) (94 . 173) (95 . 172) (172 . 95) (173 . 94)))
XTOMSTRING :D8
(P 2 XCODE P 1 MSTRING P 0 I I 1 DESTRUCTIVE I 0 XSTRING) /kA‘@…@ @H
Z²IHJ ¿HkÔ¸°äI(36 RPLCHARCODE 31 XTOMCODE 20 NTHCHARCODE 10 CONCAT)
NIL
()
MTOXSTRING :D8
(P 2 MCODE P 1 XSTRING P 0 I I 1 DESTRUCTIVE I 0 MSTRING) /kA‘@…@ @H
Z²IHJ ¿HkÔ¸°äI(36 RPLCHARCODE 31 MTOXCODE 20 NTHCHARCODE 10 CONCAT)
NIL
()
MTOX$CODE :D8
(I 0 MCODE)
@oµ@NIL
NIL
( 5 ((94 . 173) (95 . 172) (172 . 95) (173 . 94)))
X$TOMCODE :D8
(L (0 X$CODE)) 'oHµ hµ@¹@Ið•Iµñi°îHX°åNIL
NIL
( 4 ((94 173) (173 94) (95 172) (172 95)))
KANJICHARSETP :D8
(L (0 CHARSET)) l0@óhð´ @lvóhð´@NIL
NIL
()
CHINESECHARSETP :D8
(L (0 CHARSET)) l¡@óhð´ @lÔóhð´@NIL
NIL
()
MCCSCODEMAPARRAY :D8
(P 6 FROMCODE P 5 PAIR P 3 I P 1 HARRAY P 0 ARRAY I 1 INVERT I 0 MAP F 7 ALTOTEXT2MCCS F 8 MTOXCODEMAP) @dgðš¿WW
ˆgð”Wb¿lÿkØgjd lÿjKJó®HKd ¿KkÔ[°ð@!Lµ/A² l ¹lÿjKdJó²Y@!Lµ^I¢±—HIh]²:Mgð³0M µ
Mi
^²HNM µ
M ¿L\°<>dI ¿KkÔ[°˜]²5Mdgð³) µ
M M µ M I ¿L\±ÿfH(264 PUTHASH 258 CHARCODE.DECODE 249 CHARCODEP 242 CHARCODE.DECODE 232 CHARCODEP 202 PUTHASH 189 SETA 184 CHARCODE.DECODE 174 CHARCODEP 161 CHARCODE.DECODE 151 CHARCODEP 95 HASHARRAY 68 SETA 47 ARRAY 18 \APPEND2)
(222 * 141 * 40 WORD 24 MCCS 6 XCCS)
()
MCCSMAPFN :D8
(L (0 FROMENCODING) F 0 NSFONTFAMILIES F 1 ALTOFONTFAMILIES) ¼@d’bP
•gŽ@dQ
—¿gbgð•g@dgð•ggð•g@dgð•ggð•g@dgð•ggð•g@dgð•ggð•g@dgð•ggð´h(27 MEMB 12 MEMB)
(181 MCCS 175 PALATINOTOMCODE 168 PALATINO 160 GACHATOMCODE 153 GACHA 147 XTOMCODE 140 XCCS 132 CYRILLICTOMCODE 125 CYRILLIC 119 HIPPOTOMCODE 112 HIPPO 104 MATHTOMCODE 97 MATH 91 SIGMATOMCODE 84 SIGMA 76 SYMBOLTOMCODE 69 SYMBOL 63 ATOMCODE 56 ALTOTEXT 48 X$TOMCODE 41 XCCS$ 34 ALTOTEXT 18 XCCS$)
()
MCCSMAPPAIRS :D8
(P 15 P P 10 FN P 9 M P 5 C P 1 KEEPCS0 P 0 PAIRS I 1 NONIDENTITY I 0 FROMENCODING F 16 ALTOTEXT2MCCS F 17 *UNICODETOMCCS* F 18 PALATINOTOMCCS) Â@@dgð²¿o
±”dgðž¿W
°|gð–o°n@dgð”¿W"°`gð<>W$
°Ki¹lÿjR
@ _¢h°6MLó³0MAlO_²MOh_¿OµOh_¾MkÔ]°ØO&_¿°ôNXdd²%¿dAOµOXdAOµ‚±<00>O
_²nOdgð³ad² ”OˆO O° “O‡O O ”OˆO h_¿OµOh__¿O_±ÿlO&_°ò_²QI—Olÿñ²GOšOd3@ð³7Hh»Zµh´°+[Oð•K³i°ïJ°æOh_¿OµOh__¿O_±ÿO&_¿°ò(313 CHARCODE.DECODE 298 CHARCODEP 289 CHARCODE.DECODE 276 CHARCODEP 263 CHARCODE.DECODE 248 CHARCODEP 217 \APPEND2 117 MCCSMAPFN 101 \APPEND2 94 XCCS.CS0.UNDEFINED 52 \APPEND2 45 XCCSUNDEFINEDPAIRS 28 \APPEND2 18 XCCSUNDEFINEDPAIRS)
(233 * 87 PALATINO 75 UNICODE 59 XCCS$ 37 ALTOTEXT 9 GACHA)
( 66 ((Uparrow Circumflex) (Leftarrow Lowline) (Lowline Leftarrow) (Circumflex Uparrow)) 23 (((Uparrow TERMINAL) Circumflex) (↑X Lowline)))
XCCS.CS0.UNDEFINED :D8
(P 1 I) {lj2IHó´JlŸl€2IHó´&J@o°GIh¼Kµ
Lh[ºIkÔY°ÑL&»°÷Ih¼Kµ
Lh[ºIkÔY°ÇL&»°÷d½hMhºKµJh\<5C>J&»µêL
(120 \APPEND2 115 \APPEND2)
NIL
( 34 (127 166 168 192 233 214 215 216 217 218 219 255))
XCCSUNDEFINEDPAIRS :D8
(P 1 I) 2lÿl€2IHó´
J
Ih¼Kµ
Lh[ºIkÔY°ãL&»°÷(23 \APPEND2 4 XCCS.CS0.UNDEFINED)
NIL
()
GACHATOMCODE :D8
(L (0 GCODE))
@dlð‘l¬NIL
NIL
()
SYMBOLTOMCODE :D8
(L (0 SCODE)) #@lÿñ³`@
H@ð¡H€h€hµ@(16 ELT)
(10 SYMBOLTOMCCSARRAY)
()
SIGMATOMCODE :D8
(L (0 SCODE)) #@lÿñ³`@
H@ð¡H€h€hµ@(16 ELT)
(10 SIGMATOMCCSARRAY)
()
ATOMCODE :D8
(L (0 ACODE)) #@lÿñ³`@
H@ð¡H€h€hµ@(16 ELT)
(10 ALTOTOMCCSARRAY)
()
MATHTOMCODE :D8
(L (0 MATHCODE)) #@lÿñ³`@
H@ð¡H€h€hµ@(16 ELT)
(10 MATHTOMCCSARRAY)
()
HIPPOTOMCODE :D8
(L (0 HCODE)) #@lÿñ³`@
H@ð¡H€h€hµ@(16 ELT)
(10 HIPPOTOMCCSARRAY)
()
CYRILLICTOMCODE :D8
(L (0 CCODE)) #@lÿñ³`@
H@ð¡H€h€hµ@(16 ELT)
(10 CYRILLICTOMCCSARRAY)
()
PALATINOTOMCODE :D8
(L (0 PCODE)) #@lÿñ³`@
H@ð¡H€h€hµ@(16 ELT)
(10 PALATINOTOMCCSARRAY)
()
SYSTEM-EXTERNALFORMAT :D8
(P 1 X) DoHµg ɹoI
–g°ÕHX°È(53 STRPOS 48 UNIX-GETENV 22 FIND-FORMAT)
(59 :UTF-8 32 EXTERNALFORMAT 27 *SYSTEM-EXTERNALFORMAT* 16 :THROUGH)
( 42 ".UTF-8" 4 ("LC_CTYPE" "LC_ALL" "LANG"))
MTOSYSSTRING :D8
(I 0 MSTRING) `@
(15 MCCSTOFORMATBYTES 10 MKSTRING)
(4 *SYSTEM-EXTERNALFORMAT*)
()
SYSTOMSTRING :D8
(I 0 SYSTRING) `@
(15 CONCAT 10 FORMATBYTESTOMCCS)
(4 *SYSTEM-EXTERNALFORMAT*)
()
(PRETTYCOMPRINT MCCSCOMS)
(RPAQQ MCCSCOMS ((* ;; "Stringlet number encoding common to MCCS and XCCS") (FNS \MCCSINCCODE
\MCCSPEEKCCODE \MCCSOUTCHAR \MCCSBACKCCODE \MCCSFORMATBYTESTREAM \MCCSCHARSETFN) (FNS
\CREATE.MCCS.EXTERNALFORMAT \CREATE.XCCS.EXTERNALFORMAT) (FNS \MCCS.24BITENCODING.ERROR) (INITVARS (
*SIGNAL-MCCS.24BITENCODING.ERROR*)) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS (\NORUNCODE
255) (NSCHARSETSHIFT 255)) (MACROS \RUNCODED))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (
\CREATE.MCCS.EXTERNALFORMAT :MCCS) (\CREATE.XCCS.EXTERNALFORMAT :XCCS))) (* ;; "") (* ;;
"Assignment of MCCS characters") (ALISTS (CHARACTERNAMES Lowline Circumflex Currency Leftarrow Uparrow
Dollar Underline)) (* ;; "Mapping between true XCCS and MCCS codes") (FNS MTOXCODE XTOMCODE
XTOMSTRING MTOXSTRING) (FNS MTOX$CODE X$TOMCODE) (FNS KANJICHARSETP CHINESECHARSETP) (COMS (* ;
" Mapping to MCCS") (VARS ALTOTEXT2MCCS SYMBOLTOMCCS SIGMATOMCCS HIPPOTOMCCS CYRILLICTOMCCS MATHTOMCCS
PALATINOTOMCCS) (FNS MCCSCODEMAPARRAY) (GLOBALVARS ALTOTOMCCSARRAY SYMBOLTOMCCSARRAY HIPPOTOMCCSARRAY
CYRILLICTOMCCSARRAY MATHTOMCCSARRAY SIGMATOMCCSARRAY PALATINOTOMCCSARRAY) (INITVARS (ALTOTOMCCSARRAY
(MCCSCODEMAPARRAY (QUOTE MCCS))) (SYMBOLTOMCCSARRAY (MCCSCODEMAPARRAY SYMBOLTOMCCS)) (HIPPOTOMCCSARRAY
(MCCSCODEMAPARRAY HIPPOTOMCCS)) (CYRILLICTOMCCSARRAY (MCCSCODEMAPARRAY CYRILLICTOMCCS)) (
MATHTOMCCSARRAY (MCCSCODEMAPARRAY MATHTOMCCS)) (SIGMATOMCCSARRAY (MCCSCODEMAPARRAY SIGMATOMCCS)) (
PALATINOTOMCCSARRAY (MCCSCODEMAPARRAY PALATINOTOMCCS))) (FNS MCCSMAPFN MCCSMAPPAIRS XCCS.CS0.UNDEFINED
XCCSUNDEFINEDPAIRS) (COMS (* ;;
"Mappings into MCCS: needed for hardcopy and Tedit coercion, e.g. \TEDIT.MCCS.TRANSLATE") (FNS
GACHATOMCODE SYMBOLTOMCODE SIGMATOMCODE ATOMCODE MATHTOMCODE HIPPOTOMCODE CYRILLICTOMCODE
PALATINOTOMCODE)) (COMS (FNS SYSTEM-EXTERNALFORMAT MTOSYSSTRING SYSTOMSTRING) (EXPORT (GLOBALVARS
*SYSTEM-EXTERNALFORMAT*)) (INITVARS (*SYSTEM-EXTERNALFORMAT* :UTF-8))))))
(RPAQ? *SIGNAL-MCCS.24BITENCODING.ERROR*)
(\CREATE.MCCS.EXTERNALFORMAT :MCCS)
(\CREATE.XCCS.EXTERNALFORMAT :XCCS)
(ADDTOVAR CHARACTERNAMES (Lowline "0,254") (Circumflex "0,255") (Currency "0,244") (Leftarrow "0,137")
(Uparrow "0,136") (Dollar "0,44") (Underline Lowline))
(RPAQQ ALTOTEXT2MCCS ((* ;; "From bravo doc") (↑N "356,055" MINUS) (↑V "357,44" ENDASH) (↑S EMDASH) (
↑O EMQUAD) (↑X "356,055" MINUS) (↑Y FIGURESPACE ENQUAD) (* ;; "Fom current Helvetica/Timesroman fonts"
) ("0,1" "0,317" HACHEK) ("0,3" "361,255" DIARESIS) ("0,4" "0,310" CCEDILLA) ("0,5" "0,301" GRAVE) (
"0,6" "360,41" ff) ("0,7" "0,271" LSQ) ("0,10" "0,241" SPANISHEXCL) ("0,13" "0,302" ACUTE) ("0,20"
"0,304" TILDE) ("0,21" "360,42" ffi) ("0,22" "360,43" ffl) ("0,24" "360,44" fi) ("0,25" "360,45" fl) (
"0,26" "357,44" ENDASH) ("0,27" "0,306" BREVE) ("0,34" ENQUAD) ("0,36" "0,304" TILDE) ("0,140" "0,251"
) ("0,200" "361,47" A-umlaut) ("0,201" "361,124" O-umlaut) ("0,202" "361,47" A-ring) ("0,233" "357,44"
ENDASH) ("0,234" EMDASH) ("0,240" "361,247" a-umlaut) ("0,241" "361,324" o-umlaut) ("0,242" "361,250"
a-ring) ("0,243" "361,345" u-umlaut) ("0,254" Circumflex) ("0,260" "0,242" CENTS) ("0,261" "0,243"
POUND) ("0,265" "41,172" STAR) ("0,266" "0,247" SECTION) ("0,267" "357,146" BULLET) ("0,270" "357,60"
DAGGER) ("0,271" "357,061" DOUBLEDAGGER) ("0,272" "0,266" PARAGRAPH) ("0,274" "0,261" PLUSMINUS) (
"0,275" "0,241" SPANISHEXCL) ("0,276" "0,277" SPANISHQUES) ("0,277" Lowline)))
(RPAQQ SYMBOLTOMCCS (("0,1" Null) ("0,2" "0,264") ("0,3" "41,142") ("0,4" Null) ("0,5" "41,176") (
"0,6" "0,261") (Bell "357,175") (Backspace "357,142") (Tab "357,143") (Linefeed "357,144") ("0,13"
"357,145") (Page Null) (Newline "0,270") ("0,16" Null) ("0,17" Null) ("0,20" "357,160") ("0,21"
"357,162") ("0,22" "357,131") ("0,23" "357,130") ("0,24" "41,145") ("0,25" "41,146") ("0,26" Null) (
"0,27" Null) ("0,30" "356,176") ("0,31" "357,171") ("0,32" "357,133") (Escape "357,132") ("0,34"
"41,142") ("0,35" "357,163") ("0,36" Null) (Tenexeol Null) (Space Null) ("0,41" "0,256") ("0,42"
Circumflex) ("0,43" "0,257") (Dollar "357,122") ("0,45" "357,102") ("0,46" "357,103") ("0,47"
"357,167") ("0,50" "357,115") ("0,51" "357,117") ("0,52" Null) ("0,53" Null) ("0,54" "357,116") (
"0,55" Null) ("0,56" Null) ("0,57" Null) (Zero Null) (One INFINITY) (Two "357,112") (Three "357,113")
(Four "357,141") (Five Null) (Six "357,154") (Seven Lowline) (Eight "357,265") (Nine "357,264") (
"0,72" "357,152") ("0,73" "357,247") ("0,74" Null) ("0,75" Null) ("0,76" Null) ("0,77" "0,57") (
"0,100" Null) ("0,133" "357,127") ("0,134" "357,126") ("0,135" Null) (Uparrow "357,266") (Leftarrow
"357,267") ("0,140" "357,66") ("0,141" "357,67") ("0,142" "357,262") ("0,143" "357,263") ("0,144"
"357,260") ("0,145" "357,261") ("0,146" "0,173") ("0,147" "0,175") ("0,150" "357,62") ("0,151"
"357,63") ("0,152" "356,174") ("0,153" "41,102") ("0,154" "357,73") ("0,155" "357,72") ("0,156"
"42,44") ("0,157" "42,46") ("0,160" "357,174") ("0,161" "41,142") ("0,162" Null) ("0,163" "357,165") (
"0,164" Null) ("0,165" Null) ("0,166" Null) ("0,167" Null) ("0,170" "0,247") ("0,171" "357,60") (
"0,172" "357,61") ("0,173" "0,266") ("0,174" "0,100") ("0,175" "0,323") ("0,176" "0,243") (Rubout
Dollar) ("0,200" Null) ("0,201" Null) ("0,202" Null) ("0,203" Null) ("0,204" Null) ("0,205" Null) (
"0,206" Null) ("0,207" Null) ("0,210" Null) ("0,211" Null) ("0,212" Null) ("0,213" Null) ("0,214" Null
) ("0,215" Null) ("0,216" Null) ("0,217" Null) ("0,220" Null) ("0,221" Null) ("0,222" Null) ("0,223"
Null) ("0,224" Null) ("0,225" Null) ("0,226" Null) ("0,227" Null) ("0,230" Null) ("0,231" Null) (
"0,232" Null) ("0,233" Null) ("0,234" Null) ("0,235" Null) ("0,236" Null) ("0,237" Null) ("0,240" Null
) ("0,241" Null) ("0,242" Null) ("0,243" Null) (Currency Null) ("0,245" Null) ("0,246" Null) ("0,247"
Null) ("0,250" Null) ("0,251" Null) (LEFT-DOUBLEQUOTE Null) ("0,253" Null) (Lowline Null) (Circumflex
Null) ("0,256" Null) ("0,257" Null) ("0,260" Null) ("0,261" Null) ("0,262" Null) ("0,263" Null) (
"0,264" Null) ("0,265" Null) ("0,266" Null) ("0,267" Null) ("0,270" Null) ("0,271" Null) (
RIGHT-DOUBLEQUOTE Null) ("0,273" Null) ("0,274" Null) ("0,275" Null) ("0,276" Null) ("0,277" Null) (
"0,300" Null) ("0,301" Null) ("0,302" Null) ("0,303" Null) ("0,304" Null) ("0,305" Null) ("0,306" Null
) ("0,307" Null) ("0,310" Null) ("0,311" Null) ("0,312" Null) ("0,313" Null) ("0,314" Null) ("0,315"
Null) ("0,316" Null) ("0,317" Null) ("0,320" Null) ("0,321" Null) ("0,322" Null) ("0,323" Null) (
"0,324" Null) ("0,325" Null) ("0,326" Null) ("0,327" Null) ("0,330" Null) ("0,331" Null) ("0,332" Null
) ("0,333" Null) ("0,334" Null) ("0,335" Null) ("0,336" Null) ("0,337" Null) ("0,340" Null) ("0,341"
Null) ("0,342" Null) ("0,343" Null) ("0,344" Null) ("0,345" Null) ("0,346" Null) ("0,347" Null) (
"0,350" Null) ("0,351" Null) ("0,352" Null) ("0,353" Null) ("0,354" Null) ("0,355" Null) ("0,356" Null
) ("0,357" Null) ("0,360" Null) ("0,361" Null) ("0,362" Null) ("0,363" Null) ("0,364" Null) ("0,365"
Null) ("0,366" Null) ("0,367" Null) ("0,370" Null) ("0,371" Null) ("0,372" Null) ("0,373" Null) (
"0,374" Null) ("0,375" Null) ("0,376" Null) ("0,377" Null)))
(RPAQQ SIGMATOMCCS (("0,101" "0,101" low squaredot not in XCCS) ("0,103" "357,166" contourintegral) (
"0,111" "357,126" intersection) ("0,114" "357,266" and) ("0,115" "357,172" Summation) ("0,120"
"357,173" Product) ("0,122" "357,174" radical) ("0,123" "357,165" integral) ("0,125" "357,127" union)
("0,126" "357,267" or)))
(RPAQQ HIPPOTOMCCS (("0,16" "356,55") ("0,17" EMQUAD) ("0,23" EMDASH) ("0,26" "357,44") ("0,30"
"356,55") ("0,31" ENQUAD) ("0,101" "Greek,101") ("0,102" "Greek,102") ("0,103" "Greek,121") ("0,104"
"Greek,105") ("0,105" "Greek,106") ("0,106" "Greek,132") ("0,107" "Greek,104") ("0,110" "Greek,112") (
"0,111" "Greek,114") ("0,113" "Greek,115") ("0,114" "Greek,116") ("0,115" "Greek,117") ("0,116"
"Greek,120") ("0,117" "Greek,122") ("0,120" "Greek,123") ("0,121" "Greek,113") ("0,122" "Greek,125") (
"0,123" "Greek,126") ("0,124" "Greek,130") ("0,125" "Greek,131") ("0,127" "Greek,135") ("0,130"
"Greek,133") ("0,131" "Greek,134") ("0,132" "Greek,111") (Uparrow Circumflex) (Leftarrow Lowline) (
"0,141" "Greek,141") ("0,142" "Greek,142") ("0,143" "Greek,161") ("0,144" "Greek,145") ("0,145"
"Greek,146") ("0,146" "Greek,172") ("0,147" "Greek,144") ("0,150" "Greek,152") ("0,151" "Greek,154") (
"0,153" "Greek,155") ("0,154" "Greek,156") ("0,155" "Greek,157") ("0,156" "Greek,160") ("0,157"
"Greek,162") ("0,160" "Greek,163") ("0,161" "Greek,153") ("0,162" "Greek,165") ("0,163" "Greek,166") (
"0,164" "Greek,170") ("0,165" "Greek,171") ("0,167" "Greek,175") ("0,170" "Greek,173") ("0,171"
"Greek,174") ("0,172" "Greek,151") ("0,233" "357,44") ("0,234" EMDASH) ("0,267" "357,146")))
(RPAQQ CYRILLICTOMCCS ((Dollar "Cyrillic,47") ("0,52" "Cyrillic,71") ("0,55" "41,76") (Two
"Cyrillic,157") (Four "Cyrillic,127") (Six "Cyrillic,150") (Eight "Cyrillic,151") ("0,74" "0,253") (
"0,76" "0,273") ("0,100" "Cyrillic,77") ("0,101" "Cyrillic,41") ("0,102" "Cyrillic,42") ("0,103"
"Cyrillic,76") ("0,104" "Cyrillic,45") ("0,105" "Cyrillic,46") ("0,106" "Cyrillic,66") ("0,107"
"Cyrillic,44") ("0,110" "Cyrillic,101") ("0,111" "Cyrillic,52") ("0,112" "Cyrillic,53") ("0,113"
"Cyrillic,54") ("0,114" "Cyrillic,55") ("0,115" "Cyrillic,56") ("0,116" "Cyrillic,57") ("0,117"
"Cyrillic,60") ("0,120" "Cyrillic,61") ("0,121" "Cyrillic,67") ("0,122" "Cyrillic,62") ("0,123"
"Cyrillic,63") ("0,124" "Cyrillic,64") ("0,125" "Cyrillic,65") ("0,126" "Cyrillic,43") ("0,127"
"Cyrillic,50") ("0,130" "Cyrillic,75") ("0,131" "Cyrillic,100") ("0,132" "Cyrillic,51") ("0,133"
"Cyrillic,152") ("0,134" "Cyrillic,0") ("0,135" "Cyrillic,153") (Uparrow "Cyrillic,74") (Leftarrow
"Cyrillic,154") ("0,140" "Cyrillic,0") ("0,141" "Cyrillic,121") ("0,142" "Cyrillic,122") ("0,143"
"Cyrillic,176") ("0,144" "Cyrillic,125") ("0,145" "Cyrillic,126") ("0,146" "Cyrillic,146") ("0,147"
"Cyrillic,124") ("0,150" "Cyrillic,161") ("0,151" "Cyrillic,132") ("0,152" "Cyrillic,133") ("0,153"
"Cyrillic,134") ("0,154" "Cyrillic,135") ("0,155" "Cyrillic,136") ("0,156" "Cyrillic,137") ("0,157"
"Cyrillic,140") ("0,160" "Cyrillic,141") ("0,161" "Cyrillic,147") ("0,162" "Cyrillic,142") ("0,163"
"Cyrillic,143") ("0,164" "Cyrillic,144") ("0,165" "Cyrillic,145") ("0,166" "Cyrillic,123") ("0,167"
"Cyrillic,130") ("0,170" "Cyrillic,155") ("0,171" "Cyrillic,160") ("0,172" "Cyrillic,131") ("0,173"
"Cyrillic,72") ("0,174" "Cyrillic,0") ("0,175" "Cyrillic,73") ("0,176" "Cyrillic,70") (Rubout
"Cyrillic,0") ("0,217" "Cyrillic,156") ("0,233" "357,44") ("0,234" EMDASH) ("0,267" "357,146")))
(RPAQQ MATHTOMCCS (("0,1" "357,173") ("0,2" "357,62") ("0,3" "357,63") ("0,4" Null) ("0,5" "0,243") (
"0,6" "357,165") (Bell "357,166") (Backspace Null) (Tab Null) (Linefeed Null) ("0,13" "0,266") (Page
Null) (Newline Null) ("0,16" Null) ("0,17" "357,146") ("0,20" Null) ("0,21" Null) ("0,22" Null) (
"0,23" "357,172") ("0,24" Null) ("0,25" Null) ("0,26" "357,157") ("0,27" Null) ("0,30" Null) ("0,31"
Null) ("0,32" Null) (Escape Null) ("0,34" Null) ("0,35" Null) ("0,36" Null) (Tenexeol Null) ("0,41"
"357,60") ("0,42" "357,147") ("0,43" INFINITY) (Dollar "0,242") ("0,45" "0,270") ("0,46" "357,266") (
"0,47" "357,163") ("0,50" "0,302") ("0,51" "357,174") ("0,52" "0,307") ("0,53" "0,261") ("0,54"
"357,114") ("0,55" "357,175") ("0,56" "41,150") ("0,57" "357,145") (Zero "357,147") (One "42,42") (Two
"42,44") (Three "41,176") (Four "357,142") (Five "357,143") (Six "357,144") (Seven "357,154") (Eight
"41,172") (Nine "0,307") ("0,72" "0,247") ("0,73" Null) ("0,74" "41,145") ("0,75" "41,142") ("0,76"
"41,146") ("0,77" "0,277") ("0,100" "357,100") ("0,101" "357,265") ("0,102" "357,112") ("0,103"
"357,254") ("0,104" "357,271") ("0,105" "357,264") ("0,106" "357,61") ("0,107" "357,133") ("0,110"
"357,137") ("0,111" "357,131") ("0,112" "357,132") ("0,113" "357,136") ("0,114" "357,130") ("0,115"
"360,275") ("0,116" "357,113") ("0,117" "357,141") ("0,120" "357,161") ("0,121" "357,121") ("0,122"
"357,256") ("0,123" "357,171") ("0,124" "357,160") ("0,125" "357,127") ("0,126" "357,267") ("0,127"
"357,162") ("0,130" "0,264") ("0,131" "360,272") ("0,132" "357,270") ("0,133" Null) ("0,134" Null) (
"0,135" Null) (Uparrow "0,257") (Leftarrow "0,256") ("0,140" Null) ("0,141" "357,247") ("0,142"
"357,123") ("0,143" "0,323") ("0,144" "357,272") ("0,145" "357,167") ("0,146" "357,122") ("0,147"
"357,117") ("0,150" "357,150") ("0,151" "357,260") ("0,152" "357,261") ("0,153" "357,262") ("0,154"
"357,263") ("0,155" "357,110") ("0,156" "357,152") ("0,157" "357,147") ("0,160" "357,66") ("0,161"
"357,70") ("0,162" "0,322") ("0,163" "357,76") ("0,164" "357,74") ("0,165" "357,77") ("0,166" "357,75"
) ("0,167" "357,102") ("0,170" "357,103") ("0,171" "357,126") ("0,172" "357,67") ("0,173" "0,274") (
"0,174" "0,275") ("0,175" "0,276") ("0,176" "357,120") (Rubout Null) ("0,200" Null) ("0,201" Null) (
"0,202" Null) ("0,203" Null) ("0,204" Null) ("0,205" Null) ("0,206" Null) ("0,207" Null) ("0,210" Null
) ("0,211" Null) ("0,212" Null) ("0,213" Null) ("0,214" Null) ("0,215" Null) ("0,216" Null) ("0,217"
Null) ("0,220" Null) ("0,221" Null) ("0,222" Null) ("0,223" Null) ("0,224" Null) ("0,225" Null) (
"0,226" Null) ("0,227" Null) ("0,230" Null) ("0,231" Null) ("0,232" Null) ("0,233" Null) ("0,234" Null
) ("0,235" Null) ("0,236" Null) ("0,237" Null) ("0,240" Null) ("0,241" Null) ("0,242" Null) ("0,243"
Null) (Currency Null) ("0,245" Null) ("0,246" Null) ("0,247" Null) ("0,250" Null) ("0,251" Null) (
LEFT-DOUBLEQUOTE Null) ("0,253" Null) (Lowline Null) (Circumflex Null) ("0,256" Null) ("0,257" Null) (
"0,260" Null) ("0,261" Null) ("0,262" Null) ("0,263" Null) ("0,264" Null) ("0,265" Null) ("0,266" Null
) ("0,267" Null) ("0,270" Null) ("0,271" Null) (RIGHT-DOUBLEQUOTE Null) ("0,273" Null) ("0,274" Null)
("0,275" Null) ("0,276" Null) ("0,277" Null) ("0,300" Null) ("0,301" Null) ("0,302" Null) ("0,303"
Null) ("0,304" Null) ("0,305" Null) ("0,306" Null) ("0,307" Null) ("0,310" Null) ("0,311" Null) (
"0,312" Null) ("0,313" Null) ("0,314" Null) ("0,315" Null) ("0,316" Null) ("0,317" Null) ("0,320" Null
) ("0,321" Null) ("0,322" Null) ("0,323" Null) ("0,324" Null) ("0,325" Null) ("0,326" Null) ("0,327"
Null) ("0,330" Null) ("0,331" Null) ("0,332" Null) ("0,333" Null) ("0,334" Null) ("0,335" Null) (
"0,336" Null) ("0,337" Null) ("0,340" Null) ("0,341" Null) ("0,342" Null) ("0,343" Null) ("0,344" Null
) ("0,345" Null) ("0,346" Null) ("0,347" Null) ("0,350" Null) ("0,351" Null) ("0,352" Null) ("0,353"
Null) ("0,354" Null) ("0,355" Null) ("0,356" Null) ("0,357" Null) ("0,360" Null) ("0,361" Null) (
"0,362" Null) ("0,363" Null) ("0,364" Null) ("0,365" Null) ("0,366" Null) ("0,367" Null) ("0,370" Null
) ("0,371" Null) ("0,372" Null) ("0,373" Null) ("0,374" Null) ("0,375" Null) ("0,376" Null) ("0,377"
Null)))
(RPAQQ PALATINOTOMCCS (("0,32" "361,353") ("0,34" "361,260") ("0,35" "361,277") ("0,36" "361,304") (
"0,37" "361,153") ("0,136" "0,255") ("0,137" "0,254") (NIL "0,240") ("0,200" "361,047") ("0,201"
"361,124") ("0,202" "361,043") ("0,203" "361,077") ("0,204" "361,114") ("0,205" "361,120") ("0,206"
"361,121") ("0,207" "361,117") ("0,210" "361,122") ("0,211" "361,134") ("0,212" "361,140") ("0,213"
"361,141") ("0,214" "361,145") ("0,215" "361,137") ("0,216" "361,155") ("0,217" "361,160") ("0,220"
"361,142") ("0,221" "361,241") ("0,222" "361,243") ("0,223" "361,276") ("0,224" "361,250") ("0,225"
"361,320") ("0,226" "361,321") ("0,227" "361,322") ("0,230" "361,322") ("0,231" "361,334") ("0,232"
"361,244") ("0,233" "361,341") ("0,234" "361,261") ("0,235" "361,337") ("0,236" "361,262") ("0,237"
"361,255") ("0,240" "361,247") ("0,244" "0,057") (* ; "Slash, but should be fraction") ("0,246"
"357,243") ("0,250" "0,244") ("0,254" "357,052") ("0,255" "357,053") ("0,256" "360,004") ("0,257"
"360,005") ("0,261" EMDASH) ("0,262" "357,060") ("0,263" "357,061") ("0,267" "357,146") ("0,270"
"43,262") ("0,271" "357,050") ("0,274" "41,104") ("0,275" "357,101") ("0,311" "357,153") ("0,314"
"361,314") ("0,321" "375,261") ("0,324" "361,324") ("0,325" "375,362") ("0,326" "375,363") ("0,327"
"0,274") ("0,330" "0,275") ("0,331" "0,264") ("0,332" "0,270") ("0,333" "357,152") ("0,334" "361,265")
("0,335" "0,261") ("0,336" "361,042") ("0,337" "357,044") ("0,340" "361,340") ("0,344" "361,041") (
"0,345" "361,345") ("0,346" "361,050") ("0,347" "361,044") ("0,355" "361,355") ("0,356" "361,055") (
"0,357" "361,061") ("0,360" "361,360") ("0,362" "361,062") ("0,364" "361,065") ("0,366" "361,060") (
"0,367" "361,277") ("0,375" "361,100") ("0,376" "361,104")))
(RPAQ? ALTOTOMCCSARRAY (MCCSCODEMAPARRAY (QUOTE MCCS)))
(RPAQ? SYMBOLTOMCCSARRAY (MCCSCODEMAPARRAY SYMBOLTOMCCS))
(RPAQ? HIPPOTOMCCSARRAY (MCCSCODEMAPARRAY HIPPOTOMCCS))
(RPAQ? CYRILLICTOMCCSARRAY (MCCSCODEMAPARRAY CYRILLICTOMCCS))
(RPAQ? MATHTOMCCSARRAY (MCCSCODEMAPARRAY MATHTOMCCS))
(RPAQ? SIGMATOMCCSARRAY (MCCSCODEMAPARRAY SIGMATOMCCS))
(RPAQ? PALATINOTOMCCSARRAY (MCCSCODEMAPARRAY PALATINOTOMCCS))
(RPAQ? *SYSTEM-EXTERNALFORMAT* :UTF-8)
NIL
Reference in New Issue View Git Blame Copy Permalink