github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-10 21:03:22 +00:00
Code Issues Projects Releases Wiki Activity

Set up to help BDF font creation

Browse Source
This commit is contained in:
rmkaplan
2026-02-26 17:03:07 -08:00
parent 5943ef448b
commit 20f6407905
4 changed files with 126 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

133
sources/FONT
View File

@@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "20-Feb-2026 12:54:44" {WMEDLEY}<sources>FONT.;675 277180
(FILECREATED "26-Feb-2026 17:01:47" {WMEDLEY}<sources>FONT.;677 278005
:EDIT-BY rmk
:PREVIOUS-DATE "19-Feb-2026 00:10:22" {WMEDLEY}<sources>FONT.;674)
:CHANGES-TO (FNS MOVEFONTCHARS)
:PREVIOUS-DATE "20-Feb-2026 12:54:44" {WMEDLEY}<sources>FONT.;675)
(PRETTYCOMPRINT FONTCOMS)
@@ -1548,7 +1550,8 @@
NEWDESCENT])
(MOVEFONTCHARS
[LAMBDA (PAIRS DESTFONT DEFAULTSOURCEFONT) (* ; "Edited 4-Sep-2025 11:07 by rmk")
[LAMBDA (PAIRS DESTFONT DEFAULTSOURCEFONT) (* ; "Edited 26-Feb-2026 16:59 by rmk")
(* ; "Edited 4-Sep-2025 11:07 by rmk")
(* ; "Edited 30-Aug-2025 23:20 by rmk")
(* ; "Edited 26-Aug-2025 23:10 by rmk")
(* ; "Edited 25-Aug-2025 09:12 by rmk")
@@ -1575,27 +1578,37 @@
(FONTCREATE DEFAULTSOURCEFONT NIL NIL NIL (FONTPROP DESTFONT
'DEVICE))
DESTFONT))
(LET (PAIRINFO)
[if (HARRAYP PAIRS)
then
(* ;; "E.g. *UNICODETOMCCS*")
(* ;; "Fix/check arguments, and expand out the information for all the source characters, so there is no toe-stepping if there are overlaps.")
[MAPHASH PAIRS (FUNCTION (LAMBDA (VAL KEY)
(CL:UNLESS (EQ VAL KEY)
(\MOVEFONTCHAR (\MOVEFONTCHARS.SOURCEDATA KEY
DEFAULTSOURCEFONT)
VAL DESTFONT))]
else (LET (PAIRINFO)
(SETQ PAIRINFO (for P S DCODE in PAIRS collect (CL:WHEN (SMALLP P)
(SETQ P (LIST P P)))
(SETQ DCODE (CADR P))
(CL:UNLESS (CHARCODEP DCODE)
(SETQ DCODE (CHARCODE.DECODE DCODE)))
(\INSURECHARSETINFO DESTFONT (\CHARSET
DCODE))
(LIST (\MOVEFONTCHARS.SOURCEDATA
(CAR P)
DEFAULTSOURCEFONT)
DCODE)))
(* ;; "Fix/check arguments, and expand out the information for all the source characters, so there is no toe-stepping if there are overlaps.")
(* ;; "Install source character information into the destination font. ")
(SETQ PAIRINFO (for P S DCODE in PAIRS collect (CL:WHEN (SMALLP P)
(SETQ P (LIST P P)))
(SETQ DCODE (CADR P))
(CL:UNLESS (CHARCODEP DCODE)
(SETQ DCODE (CHARCODE.DECODE
DCODE)))
(\INSURECHARSETINFO DESTFONT
(\CHARSET DCODE))
(LIST (\MOVEFONTCHARS.SOURCEDATA
(CAR P)
DEFAULTSOURCEFONT)
DCODE)))
(for P in PAIRINFO do (\MOVEFONTCHAR (CAR P)
(CADR P)
DESTFONT))))
(* ;; "Install source character information into the destination font. ")
(for P in PAIRINFO do (\MOVEFONTCHAR (CAR P)
(CADR P)
DESTFONT])
DESTFONT])
(\MOVEFONTCHAR
@@ -4480,43 +4493,43 @@
(ADDTOVAR LAMA FONTCOPY)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (11390 21057 (CHARWIDTH 11400 . 12189) (CHARWIDTHY 12191 . 13708) (STRINGWIDTH 13710 .
14747) (\CHARWIDTH.DISPLAY 14749 . 15164) (\STRINGWIDTH.DISPLAY 15166 . 15594) (\STRINGWIDTH.GENERIC
15596 . 21055)) (21058 27690 (DEFAULTFONT 21068 . 22353) (FONTCLASS 22355 . 24627) (FONTCLASSUNPARSE
24629 . 25530) (FONTCLASSCOMPONENT 25532 . 26120) (SETFONTCLASSCOMPONENT 26122 . 26564) (
GETFONTCLASSCOMPONENT 26566 . 27688)) (29403 47443 (FONTCREATE 29413 . 32658) (FONTCREATE1 32660 .
35275) (FONTCREATE.SLUGFD 35277 . 36781) (\FONT.CHECKARGS1 36783 . 41488) (\FONTCREATE1.NOFN 41490 .
41704) (FONTFILEP 41706 . 42594) (\READCHARSET 42596 . 47441)) (47444 54520 (\FONT.CHECKARGS 47454 .
54203) (\CHARSET.CHECK 54205 . 54518)) (54521 61132 (COERCEFONTSPEC 54531 . 60443) (
COERCEFONTSPEC.TARGETFACE 60445 . 61130)) (63327 64676 (MAKEFONTSPEC 63337 . 64674)) (64677 72854 (
COMPLETE.FONT 64687 . 67210) (COMPLETEFONTP 67212 . 67835) (COMPLETE.CHARSET 67837 . 70522) (
PRUNESLUGCSINFOS 70524 . 71449) (MONOSPACEFONTP 71451 . 72852)) (72893 81351 (FONTASCENT 72903 . 73287
) (FONTDESCENT 73289 . 73774) (FONTHEIGHT 73776 . 74178) (FONTPROP 74180 . 80628) (\AVGCHARWIDTH 80630
. 81349)) (82008 82916 (FONTDEVICEPROP 82018 . 82914)) (82962 83816 (EDITCHAR 82972 . 83814)) (83862
96052 (GETCHARBITMAP 83872 . 84996) (PUTCHARBITMAP 84998 . 87156) (\GETCHARBITMAP.CSINFO 87158 . 89174
) (\PUTCHARBITMAP.CSINFO 89176 . 96050)) (96053 116547 (MOVECHARBITMAP 96063 . 97957) (MOVEFONTCHARS
97959 . 101919) (\MOVEFONTCHAR 101921 . 106768) (\MOVEFONTCHARS.SOURCEDATA 106770 . 112885) (
\MAKESLUGCHAR 112887 . 115422) (SLUGCHARP.DISPLAY 115424 . 116545)) (117205 129054 (FONTFILES 117215
. 119048) (\FINDFONTFILE 119050 . 121027) (\FONTFILENAMES 121029 . 121589) (\FONTFILENAME 121591 .
124502) (FONTSPECFROMFILENAME 124504 . 129052)) (129055 165304 (FONTCOPY 129065 . 134148) (FONTP
134150 . 134449) (FONTUNPARSE 134451 . 136174) (SETFONTDESCRIPTOR 136176 . 137640) (\STREAMCHARWIDTH
137642 . 141653) (\COERCECHARSET 141655 . 145022) (\BUILDSLUGCSINFO 145024 . 148655) (\FONTSYMBOL
148657 . 149311) (\DEVICESYMBOL 149313 . 150097) (\FONTFACE 150099 . 157303) (\FONTFACE.COLOR 157305
. 164087) (SETFONTCHARENCODING 164089 . 165302)) (165305 184982 (FONTSAVAILABLE 165315 . 170679) (
FONTEXISTS? 170681 . 174222) (\SEARCHFONTFILES 174224 . 177311) (FLUSHFONTCACHE 177313 . 179536) (
FINDFONTFILES 179538 . 182754) (SORTFONTSPECS 182756 . 184980)) (184983 189098 (MATCHFONTFACE 184993
. 185808) (MAKEFONTFACE 185810 . 186844) (FONTFACETOATOM 186846 . 189096)) (189729 190221 (
\UNITWIDTHSVECTOR 189739 . 190219)) (204864 206931 (FONTDESCRIPTOR.DEFPRINT 204874 . 206453) (
FONTCLASS.DEFPRINT 206455 . 206929)) (210760 213550 (\CREATEKERNELEMENT 210770 . 211128) (
\FSETLEFTKERN 211130 . 211621) (\FGETLEFTKERN 211623 . 213548)) (213551 225217 (\CREATEFONT 213561 .
216457) (\CREATECHARSET 216459 . 220968) (\INSTALLCHARSETINFO 220970 . 224304) (
\INSTALLCHARSETINFO.CHARENCODING 224306 . 225215)) (225539 226907 (\FONTRESETCHARWIDTHS 225549 .
226905)) (227537 237614 (\CREATEDISPLAYFONT 227547 . 229414) (\CREATECHARSET.DISPLAY 229416 . 235131)
(\FONTEXISTS?.DISPLAY 235133 . 237612)) (237615 252620 (STRIKEFONT.FILEP 237625 . 238513) (
STRIKEFONT.GETCHARSET 238515 . 244109) (WRITESTRIKEFONTFILE 244111 . 249024) (STRIKECSINFO 249026 .
252618)) (252651 268984 (MAKEBOLD.CHARSET 252661 . 256316) (MAKEBOLD.CHAR 256318 . 258070) (
MAKEITALIC.CHARSET 258072 . 261751) (MAKEITALIC.CHAR 261753 . 264099) (\SFMAKEBOLD 264101 . 266327) (
\SFMAKEITALIC 266329 . 268982)) (268985 273009 (\SFMAKEROTATEDFONT 268995 . 270229) (\SFROTATECSINFO
270231 . 270906) (\SFROTATEFONTCHARACTERS 270908 . 271292) (\SFROTATECSINFOOFFSETS 271294 . 273007)) (
273010 274184 (\SFMAKECOLOR 273020 . 274182)))))
(FILEMAP (NIL (11429 21096 (CHARWIDTH 11439 . 12228) (CHARWIDTHY 12230 . 13747) (STRINGWIDTH 13749 .
14786) (\CHARWIDTH.DISPLAY 14788 . 15203) (\STRINGWIDTH.DISPLAY 15205 . 15633) (\STRINGWIDTH.GENERIC
15635 . 21094)) (21097 27729 (DEFAULTFONT 21107 . 22392) (FONTCLASS 22394 . 24666) (FONTCLASSUNPARSE
24668 . 25569) (FONTCLASSCOMPONENT 25571 . 26159) (SETFONTCLASSCOMPONENT 26161 . 26603) (
GETFONTCLASSCOMPONENT 26605 . 27727)) (29442 47482 (FONTCREATE 29452 . 32697) (FONTCREATE1 32699 .
35314) (FONTCREATE.SLUGFD 35316 . 36820) (\FONT.CHECKARGS1 36822 . 41527) (\FONTCREATE1.NOFN 41529 .
41743) (FONTFILEP 41745 . 42633) (\READCHARSET 42635 . 47480)) (47483 54559 (\FONT.CHECKARGS 47493 .
54242) (\CHARSET.CHECK 54244 . 54557)) (54560 61171 (COERCEFONTSPEC 54570 . 60482) (
COERCEFONTSPEC.TARGETFACE 60484 . 61169)) (63366 64715 (MAKEFONTSPEC 63376 . 64713)) (64716 72893 (
COMPLETE.FONT 64726 . 67249) (COMPLETEFONTP 67251 . 67874) (COMPLETE.CHARSET 67876 . 70561) (
PRUNESLUGCSINFOS 70563 . 71488) (MONOSPACEFONTP 71490 . 72891)) (72932 81390 (FONTASCENT 72942 . 73326
) (FONTDESCENT 73328 . 73813) (FONTHEIGHT 73815 . 74217) (FONTPROP 74219 . 80667) (\AVGCHARWIDTH 80669
. 81388)) (82047 82955 (FONTDEVICEPROP 82057 . 82953)) (83001 83855 (EDITCHAR 83011 . 83853)) (83901
96091 (GETCHARBITMAP 83911 . 85035) (PUTCHARBITMAP 85037 . 87195) (\GETCHARBITMAP.CSINFO 87197 . 89213
) (\PUTCHARBITMAP.CSINFO 89215 . 96089)) (96092 117372 (MOVECHARBITMAP 96102 . 97996) (MOVEFONTCHARS
97998 . 102744) (\MOVEFONTCHAR 102746 . 107593) (\MOVEFONTCHARS.SOURCEDATA 107595 . 113710) (
\MAKESLUGCHAR 113712 . 116247) (SLUGCHARP.DISPLAY 116249 . 117370)) (118030 129879 (FONTFILES 118040
. 119873) (\FINDFONTFILE 119875 . 121852) (\FONTFILENAMES 121854 . 122414) (\FONTFILENAME 122416 .
125327) (FONTSPECFROMFILENAME 125329 . 129877)) (129880 166129 (FONTCOPY 129890 . 134973) (FONTP
134975 . 135274) (FONTUNPARSE 135276 . 136999) (SETFONTDESCRIPTOR 137001 . 138465) (\STREAMCHARWIDTH
138467 . 142478) (\COERCECHARSET 142480 . 145847) (\BUILDSLUGCSINFO 145849 . 149480) (\FONTSYMBOL
149482 . 150136) (\DEVICESYMBOL 150138 . 150922) (\FONTFACE 150924 . 158128) (\FONTFACE.COLOR 158130
. 164912) (SETFONTCHARENCODING 164914 . 166127)) (166130 185807 (FONTSAVAILABLE 166140 . 171504) (
FONTEXISTS? 171506 . 175047) (\SEARCHFONTFILES 175049 . 178136) (FLUSHFONTCACHE 178138 . 180361) (
FINDFONTFILES 180363 . 183579) (SORTFONTSPECS 183581 . 185805)) (185808 189923 (MATCHFONTFACE 185818
. 186633) (MAKEFONTFACE 186635 . 187669) (FONTFACETOATOM 187671 . 189921)) (190554 191046 (
\UNITWIDTHSVECTOR 190564 . 191044)) (205689 207756 (FONTDESCRIPTOR.DEFPRINT 205699 . 207278) (
FONTCLASS.DEFPRINT 207280 . 207754)) (211585 214375 (\CREATEKERNELEMENT 211595 . 211953) (
\FSETLEFTKERN 211955 . 212446) (\FGETLEFTKERN 212448 . 214373)) (214376 226042 (\CREATEFONT 214386 .
217282) (\CREATECHARSET 217284 . 221793) (\INSTALLCHARSETINFO 221795 . 225129) (
\INSTALLCHARSETINFO.CHARENCODING 225131 . 226040)) (226364 227732 (\FONTRESETCHARWIDTHS 226374 .
227730)) (228362 238439 (\CREATEDISPLAYFONT 228372 . 230239) (\CREATECHARSET.DISPLAY 230241 . 235956)
(\FONTEXISTS?.DISPLAY 235958 . 238437)) (238440 253445 (STRIKEFONT.FILEP 238450 . 239338) (
STRIKEFONT.GETCHARSET 239340 . 244934) (WRITESTRIKEFONTFILE 244936 . 249849) (STRIKECSINFO 249851 .
253443)) (253476 269809 (MAKEBOLD.CHARSET 253486 . 257141) (MAKEBOLD.CHAR 257143 . 258895) (
MAKEITALIC.CHARSET 258897 . 262576) (MAKEITALIC.CHAR 262578 . 264924) (\SFMAKEBOLD 264926 . 267152) (
\SFMAKEITALIC 267154 . 269807)) (269810 273834 (\SFMAKEROTATEDFONT 269820 . 271054) (\SFROTATECSINFO
271056 . 271731) (\SFROTATEFONTCHARACTERS 271733 . 272117) (\SFROTATECSINFOOFFSETS 272119 . 273832)) (
273835 275009 (\SFMAKECOLOR 273845 . 275007)))))
STOP

BIN
sources/FONT.LCOM
View File

Binary file not shown.

98
sources/MCCS
View File

@@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "20-Feb-2026 09:21:16" {WMEDLEY}<sources>MCCS.;167 61063
(FILECREATED "26-Feb-2026 12:57:11" {WMEDLEY}<sources>MCCS.;168 61634
:EDIT-BY rmk
:PREVIOUS-DATE "19-Feb-2026 13:32:23" {WMEDLEY}<sources>MCCS.;165)
:CHANGES-TO (FNS MCCSMAPPAIRS)
:PREVIOUS-DATE "20-Feb-2026 09:21:16" {WMEDLEY}<sources>MCCS.;167)
(PRETTYCOMPRINT MCCSCOMS)
@@ -1366,7 +1368,8 @@
NIL])
(MCCSMAPPAIRS
[LAMBDA (FROMENCODING NONIDENTITY) (* ; "Edited 7-Oct-2025 14:47 by rmk")
[LAMBDA (FROMENCODING NONIDENTITY) (* ; "Edited 26-Feb-2026 12:56 by rmk")
(* ; "Edited 7-Oct-2025 14:47 by rmk")
(* ; "Edited 6-Oct-2025 09:47 by rmk")
(* ; "Edited 20-Sep-2025 09:45 by rmk")
(* ; "Edited 6-Sep-2025 16:43 by rmk")
@@ -1374,27 +1377,30 @@
(* ;; "Returns the pairs for MOVEFONTCHARS to use to move charset-0 glyphs into their MCCS positions. For example, the Leftarrow and Lowline glyphs switch positions in an XCCS$ font. Returns NIL (= nothing to do) if there is no function.")
(LET ((FN (MCCSMAPFN FROMENCODING))
PAIRS KEEPCS0)
(CL:WHEN FN
[SETQ PAIRS (SELECTQ FROMENCODING
(GACHA (* ; "ctrl and upper are slugged")
[APPEND (XCCSUNDEFINEDPAIRS)
'(((Uparrow TERMINAL)
Circumflex)
(↑X Lowline])
(ALTOTEXT (APPEND (XCCSUNDEFINEDPAIRS)
ALTOTEXT2MCCS))
(XCCS$ '((Uparrow Circumflex)
(Leftarrow Lowline)
(Lowline Leftarrow)
(Circumflex Uparrow)))
(PALATINO (APPEND (XCCS.CS0.UNDEFINED)
PALATINOTOMCCS))
(PROGN (SETQ KEEPCS0 T)
(for C M from 0 to \MAXTHINCHAR
when (SETQ M (APPLY* FN C NONIDENTITY))
collect (LIST C M]
(LET (PAIRS KEEPCS0)
[SETQ PAIRS (SELECTQ FROMENCODING
(GACHA (* ; "ctrl and upper are slugged")
[APPEND (XCCSUNDEFINEDPAIRS)
'(((Uparrow TERMINAL)
Circumflex)
(↑X Lowline])
(ALTOTEXT (APPEND (XCCSUNDEFINEDPAIRS)
ALTOTEXT2MCCS))
(XCCS$ '((Uparrow Circumflex)
(Leftarrow Lowline)
(Lowline Leftarrow)
(Circumflex Uparrow)))
(UNICODE *UNICODETOMCCS*)
(PALATINO (APPEND (XCCS.CS0.UNDEFINED)
PALATINOTOMCCS))
(PROGN (SETQ KEEPCS0 T)
(for C M FN from 0 to \MAXTHINCHAR first (CL:UNLESS (SETQ FN
(MCCSMAPFN
FROMENCODING))
(RETURN))
when (SETQ M (APPLY* FN C NONIDENTITY))
collect (LIST C M]
(CL:WHEN (LISTP PAIRS)
(* ;; "Weed out interspersed comments, convert to charcodes")
@@ -1417,14 +1423,16 @@
(* ;; "Any character that is moved gets replaced by a slug. It may then be coerced from another font. But families like SYMBOL, HIPPO etc. want to preserve CS0 even if they copy their glyphs also to somewhere else.")
[APPEND PAIRS (for P in PAIRS when (CAR P)
unless [OR (AND KEEPCS0 (ILEQ (CAR P)
\MAXTHINCHAR))
(AND (LISTP (CAR P))
(LITATOM (CADAR P)))
(thereis X in PAIRS suchthat (EQ (CADR X)
(CAR P]
collect (LIST NIL (CAR P])])
[SETQ PAIRS (APPEND PAIRS (for P in PAIRS when (CAR P)
unless [OR (AND KEEPCS0 (ILEQ (CAR P)
\MAXTHINCHAR))
(AND (LISTP (CAR P))
(LITATOM (CADAR P)))
(thereis X in PAIRS
suchthat (EQ (CADR X)
(CAR P]
collect (LIST NIL (CAR P])
PAIRS])
(XCCS.CS0.UNDEFINED
[LAMBDA NIL (* ; "Edited 5-Oct-2025 22:44 by rmk")
@@ -1571,16 +1579,16 @@
(RPAQ? *SYSTEM-EXTERNALFORMAT* :UTF-8)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3065 14636 (\MCCSINCCODE 3075 . 6163) (\MCCSPEEKCCODE 6165 . 9052) (\MCCSOUTCHAR 9054
. 11153) (\MCCSBACKCCODE 11155 . 12699) (\MCCSFORMATBYTESTREAM 12701 . 13431) (\MCCSCHARSETFN 13433
. 14634)) (14637 17088 (\CREATE.MCCS.EXTERNALFORMAT 14647 . 15517) (\CREATE.XCCS.EXTERNALFORMAT 15519
. 17086)) (17089 18066 (\MCCS.24BITENCODING.ERROR 17099 . 18064)) (19442 22084 (MTOXCODE 19452 .
20249) (XTOMCODE 20251 . 20908) (XTOMSTRING 20910 . 21497) (MTOXSTRING 21499 . 22082)) (22085 23745 (
MTOX$CODE 22095 . 22827) (X$TOMCODE 22829 . 23743)) (23746 24386 (KANJICHARSETP 23756 . 24012) (
CHINESECHARSETP 24014 . 24384)) (44966 47455 (MCCSCODEMAPARRAY 44976 . 47453)) (48071 54554 (MCCSMAPFN
48081 . 49448) (MCCSMAPPAIRS 49450 . 53560) (XCCS.CS0.UNDEFINED 53562 . 54191) (XCCSUNDEFINEDPAIRS
54193 . 54552)) (54659 59413 (GACHATOMCODE 54669 . 55183) (SYMBOLTOMCODE 55185 . 55833) (SIGMATOMCODE
55835 . 56481) (ATOMCODE 56483 . 57015) (MATHTOMCODE 57017 . 57673) (HIPPOTOMCODE 57675 . 58212) (
CYRILLICTOMCODE 58214 . 58648) (PALATINOTOMCODE 58650 . 59411)) (59414 60852 (SYSTEM-EXTERNALFORMAT
59424 . 60368) (MTOSYSSTRING 60370 . 60563) (SYSTOMSTRING 60565 . 60850)))))
(FILEMAP (NIL (3103 14674 (\MCCSINCCODE 3113 . 6201) (\MCCSPEEKCCODE 6203 . 9090) (\MCCSOUTCHAR 9092
. 11191) (\MCCSBACKCCODE 11193 . 12737) (\MCCSFORMATBYTESTREAM 12739 . 13469) (\MCCSCHARSETFN 13471
. 14672)) (14675 17126 (\CREATE.MCCS.EXTERNALFORMAT 14685 . 15555) (\CREATE.XCCS.EXTERNALFORMAT 15557
. 17124)) (17127 18104 (\MCCS.24BITENCODING.ERROR 17137 . 18102)) (19480 22122 (MTOXCODE 19490 .
20287) (XTOMCODE 20289 . 20946) (XTOMSTRING 20948 . 21535) (MTOXSTRING 21537 . 22120)) (22123 23783 (
MTOX$CODE 22133 . 22865) (X$TOMCODE 22867 . 23781)) (23784 24424 (KANJICHARSETP 23794 . 24050) (
CHINESECHARSETP 24052 . 24422)) (45004 47493 (MCCSCODEMAPARRAY 45014 . 47491)) (48109 55125 (MCCSMAPFN
48119 . 49486) (MCCSMAPPAIRS 49488 . 54131) (XCCS.CS0.UNDEFINED 54133 . 54762) (XCCSUNDEFINEDPAIRS
54764 . 55123)) (55230 59984 (GACHATOMCODE 55240 . 55754) (SYMBOLTOMCODE 55756 . 56404) (SIGMATOMCODE
56406 . 57052) (ATOMCODE 57054 . 57586) (MATHTOMCODE 57588 . 58244) (HIPPOTOMCODE 58246 . 58783) (
CYRILLICTOMCODE 58785 . 59219) (PALATINOTOMCODE 59221 . 59982)) (59985 61423 (SYSTEM-EXTERNALFORMAT
59995 . 60939) (MTOSYSSTRING 60941 . 61134) (SYSTOMSTRING 61136 . 61421)))))
STOP

BIN
sources/MCCS.LCOM
View File

Binary file not shown.