Interlisp.medley/sources/MCCS.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)

(FILECREATED "17-Apr-2026 08:42:39" ("compiled on " {MEDLEY}<sources>MCCS.;200) "16-Apr-2026 11:19:55"
 brecompiled exprs%: KANJICHARSETP UNIHANCHARSETP in "FULL 16-Apr-2026 ..." dated 
"16-Apr-2026 11:20:03")
(FILECREATED "17-Apr-2026 08:42:39" {MEDLEY}<sources>MCCS.;200 23340 :EDIT-BY rmk :CHANGES-TO (FNS 
KANJICHARSETP UNIHANCHARSETP) (VARS MCCSCOMS) :PREVIOUS-DATE "11-Mar-2026 11:58:53" 
{MEDLEY}<sources>MCCS.;199)
\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)) '
o
Hµ	h
µ@
¹@I
ð•Iµñi°îHX°åNIL
NIL
( 4 ((94 173) (173 94) (95 172) (172 95)))
KANJICHARSETP :D8
(L (0 CHARSET)) 
l0@óhð´@lzóhð´@NIL
NIL
()
UNIHANCHARSETP :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 UNIHANCHARSETP)))
(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