(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8) (FILECREATED "11-Mar-2026 11:58:53" ("compiled on " {WMEDLEY}MCCS.;199) "10-Mar-2026 18:20:39" brecompiled exprs%: KANJICHARSETP CHINESECHARSETP in "FULL 10-Mar-2026 ..." dated "10-Mar-2026 18:20:49") (FILECREATED "11-Mar-2026 11:58:53" {WMEDLEY}MCCS.;199 23312 :EDIT-BY rmk :CHANGES-TO (FNS KANJICHARSETP CHINESECHARSETP) :PREVIOUS-DATE " 9-Mar-2026 22:08:30" {WMEDLEY}MCCS.;198) \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 () (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))) (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)) NIL