1
0
mirror of synced 2026-04-01 04:29:55 +00:00

Compare commits

...

2 Commits

Author SHA1 Message Date
rmkaplan
6504bfde6b Remake UNICODE-FORMATS to be sure it reflects current files 2026-03-31 10:53:53 -07:00
rmkaplan
96b131ee2c Remove stale files, add README, correct XCCS-164 JIS 2026-03-31 10:53:03 -07:00
11 changed files with 74 additions and 13408 deletions

View File

@@ -1,15 +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 "22-Feb-2026 10:44:33" {WMEDLEY}<library>UNICODE-TABLES.;20 44960
(FILECREATED "31-Mar-2026 09:01:05" {WMEDLEY}<library>UNICODE-TABLES.;22 44782
:EDIT-BY rmk
:CHANGES-TO (FNS ALL-UNICODE-MAPPINGS GET-MCCS-UNICODE-MAPPING INVERT-UNICODE-MAPPING
MAKE-UNICODE-TRANSLATION-TABLES MERGE-UNICODE-TRANSLATION-TABLES
READ-UNICODE-MAPPING-FILENAMES)
(VARS UNICODE-TABLESCOMS)
:CHANGES-TO (VARS XCCS-CHARSETS)
:PREVIOUS-DATE "22-Feb-2026 09:15:20" {WMEDLEY}<library>UNICODE-TABLES.;16)
:PREVIOUS-DATE "22-Feb-2026 10:44:33" {WMEDLEY}<library>UNICODE-TABLES.;20)
(PRETTYCOMPRINT UNICODE-TABLESCOMS)
@@ -78,8 +75,9 @@
(RUNIC-GOTHIC "51")
(MORE-CYRILLIC "52")
(UNKNOWN1 "56")
(DECORATED-RULES "56")
(UNKNOWN2 "57")
(JIS "60-166")
(VERTICAL-JAPANESE "57")
(ARABIC "340")
(HEBREW "341")
(IPA "342")
@@ -101,9 +99,10 @@
(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)
(JAPANESE HIRAGANA KATAKANA JIS)))
(JIS "60-166")))
(DEFINEQ
(READ-UNICODE-MAPPING-FILENAMES
@@ -793,12 +792,12 @@
UNICODE-EXPORTS)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4107 12829 (READ-UNICODE-MAPPING-FILENAMES 4117 . 8586) (READ-UNICODE-MAPPING 8588 .
12827)) (12896 19704 (MAKE-UNICODE-TRANSLATION-TABLES 12906 . 15666) (GET-MCCS-UNICODE-MAPPING 15668
. 16688) (INVERT-UNICODE-MAPPING 16690 . 18483) (XCCSTOMCCS-MAPPING 18485 . 19702)) (19705 26328 (
ALL-UNICODE-MAPPINGS 19715 . 24991) (XCCSJAPANESECHARSETS 24993 . 26326)) (26373 37135 (
WRITE-UNICODE-MAPPING 26383 . 30127) (WRITE-UNICODE-INCLUDED 30129 . 34441) (
WRITE-UNICODE-MAPPING-HEADER 34443 . 35691) (WRITE-UNICODE-MAPPING-FILENAME 35693 . 37133)) (37136
37812 (XCCS-UTF8-AFTER-OPEN 37146 . 37810)) (40337 42426 (UTF8HEXSTRING 40347 . 42424)) (42453 44495 (
SHOWCHARS 42463 . 44493)))))
(FILEMAP (NIL (3929 12651 (READ-UNICODE-MAPPING-FILENAMES 3939 . 8408) (READ-UNICODE-MAPPING 8410 .
12649)) (12718 19526 (MAKE-UNICODE-TRANSLATION-TABLES 12728 . 15488) (GET-MCCS-UNICODE-MAPPING 15490
. 16510) (INVERT-UNICODE-MAPPING 16512 . 18305) (XCCSTOMCCS-MAPPING 18307 . 19524)) (19527 26150 (
ALL-UNICODE-MAPPINGS 19537 . 24813) (XCCSJAPANESECHARSETS 24815 . 26148)) (26195 36957 (
WRITE-UNICODE-MAPPING 26205 . 29949) (WRITE-UNICODE-INCLUDED 29951 . 34263) (
WRITE-UNICODE-MAPPING-HEADER 34265 . 35513) (WRITE-UNICODE-MAPPING-FILENAME 35515 . 36955)) (36958
37634 (XCCS-UTF8-AFTER-OPEN 36968 . 37632)) (40159 42248 (UTF8HEXSTRING 40169 . 42246)) (42275 44317 (
SHOWCHARS 42285 . 44315)))))
STOP

Binary file not shown.

View File

@@ -1,13 +1,10 @@
(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 "23-Feb-2026 12:15:24" {WMEDLEY}<sources>UNICODE-FORMATS.;2 216288
(FILECREATED "31-Mar-2026 09:03:25" {WMEDLEY}<sources>UNICODE-FORMATS.;4 218013
:EDIT-BY rmk
:CHANGES-TO (VARS UNICODE-FORMATSCOMS)
(FNS MAKE-UNICODE-FORMATS)
:PREVIOUS-DATE "23-Feb-2026 08:52:29" {WMEDLEY}<sources>UNICODE-UTF8.;26)
:PREVIOUS-DATE " 9-Mar-2026 13:11:16" {WMEDLEY}<sources>UNICODE-FORMATS.;3)
(PRETTYCOMPRINT UNICODE-FORMATSCOMS)
@@ -47,6 +44,9 @@
(LAST-PRIVATE-MCCSCODE (CHARCODE "230,377"]
(FNS UNICODE-INIT)
(P (UNICODE-INIT)))
(COMS (FNS SYSTEM-EXTERNALFORMAT MTOSYSSTRING SYSTOMSTRING)
(EXPORT (GLOBALVARS *SYSTEM-EXTERNALFORMAT*))
(INITVARS (*SYSTEM-EXTERNALFORMAT* :UTF-8)))
(DECLARE%: EVAL@LOAD DONTCOPY (FILES UNICODE-TABLES))
(E (PRINTOUT NIL "(MERGE-UNICODE-TRANSLATION-TABLES NIL (QUOTE " (GET-MCCS-UNICODE-MAPPING
'ALL)
@@ -1243,6 +1243,41 @@
)
(UNICODE-INIT)
(DEFINEQ
(SYSTEM-EXTERNALFORMAT
[LAMBDA NIL (* ; "Edited 6-Feb-2026 11:29 by rmk")
(* ; "Edited 31-Jan-2026 18:51 by rmk")
(* ; "Edited 10-Oct-2022 11:55 by lmm")
(* ; "Edited 7-Jul-2022 10:41 by rmk")
(* ;; "Returns the name, sets the global. For now, UTF-8 or through, could be something else.")
(fetch (EXTERNALFORMAT NAME) of (SETQ *SYSTEM-EXTERNALFORMAT*
(FIND-FORMAT (FOR X IN '("LC_CTYPE" "LC_ALL" "LANG")
WHEN (STRPOS ".UTF-8" (UNIX-GETENV X))
DO (RETURN :UTF-8) FINALLY (RETURN :THROUGH])
(MTOSYSSTRING
[LAMBDA (MSTRING) (* ; "Edited 6-Feb-2026 00:20 by rmk")
(MCCSTOFORMATBYTES *SYSTEM-EXTERNALFORMAT* (MKSTRING MSTRING])
(SYSTOMSTRING
[LAMBDA (SYSTRING) (* ; "Edited 5-Feb-2026 23:36 by rmk")
(* ;; "SYSSTRING is presumably shared with Unix, guarantee a copy on the way out")
(CONCAT (FORMATBYTESTOMCCS *SYSTEM-EXTERNALFORMAT* SYSTRING])
)
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS *SYSTEM-EXTERNALFORMAT*)
)
(* "END EXPORTED DEFINITIONS")
(RPAQ? *SYSTEM-EXTERNALFORMAT* :UTF-8)
(DECLARE%: EVAL@LOAD DONTCOPY
(FILESLOAD UNICODE-TABLES)
@@ -2721,19 +2756,20 @@
(64994 8322) (64995 8323) (64996 8324) (64997 8325) (64998 8326) (64999 8327) (65000 8328) (65001
8329) (65002 8331) (65003 8330) (65004 8332) (65008 (48 824)))))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3333 19425 (UTF8.OUTCHARFN 3343 . 6359) (UTF8.SLUG.OUTCHARFN 6361 . 7025) (
UTF8.INCCODEFN 7027 . 13306) (UTF8.PEEKCCODEFN 13308 . 18441) (\UTF8.BACKCCODEFN 18443 . 19423)) (
19426 24341 (UTF16BE.OUTCHARFN 19436 . 20455) (UTF16BE.INCCODEFN 20457 . 21799) (UTF16BE.PEEKCCODEFN
21801 . 23145) (\UTF16BE.BACKCCODEFN 23147 . 24339)) (24342 29073 (UTF16LE.OUTCHARFN 24352 . 25468) (
UTF16LE.INCCODEFN 25470 . 26599) (UTF16LE.PEEKCCODEFN 26601 . 27877) (\UTF16LE.BACKCCODEFN 27879 .
29071)) (29074 32121 (READBOM 29084 . 31153) (WRITEBOM 31155 . 32119)) (32122 36153 (
MAKE-UNICODE-FORMATS 32132 . 36151)) (36221 40715 (UTF8.BINCODE 36231 . 38919) (\UTF8.FETCHCODE 38921
. 40713)) (40716 46339 (UTF8.VALIDATE 40726 . 43323) (NUTF8-BYTE1-BYTES 43325 . 44062) (
NUTF8-CODE-BYTES 44064 . 45121) (NUTF8-STRING-BYTES 45123 . 46015) (N-MCHARS 46017 . 46337)) (46403
47677 (MTOUCODE 46413 . 46582) (UTOMCODE 46584 . 46781) (MTOUCODE? 46783 . 47162) (UTOMCODE? 47164 .
47675)) (47678 54250 (MTOUSTRING 47688 . 48271) (UTOMSTRING 48273 . 48856) (MTOUTF8STRING 48858 .
53137) (UTF8TOMSTRING 53139 . 54248)) (54308 60016 (XTOUCODE 54318 . 54836) (UTOXCODE 54838 . 55346) (
XTOUCODE? 55348 . 56409) (UTOXCODE? 56411 . 57494) (XTOUSTRING 57496 . 58191) (UTOXSTRING 58193 .
58936) (XTOUTF8STRING 58938 . 60014)) (60017 65196 (MERGE-UNICODE-TRANSLATION-TABLES 60027 . 62789) (
UNICODE.UNMAPPED 62791 . 65194)) (68935 69188 (UNICODE-INIT 68945 . 69186)))))
(FILEMAP (NIL (3431 19523 (UTF8.OUTCHARFN 3441 . 6457) (UTF8.SLUG.OUTCHARFN 6459 . 7123) (
UTF8.INCCODEFN 7125 . 13404) (UTF8.PEEKCCODEFN 13406 . 18539) (\UTF8.BACKCCODEFN 18541 . 19521)) (
19524 24439 (UTF16BE.OUTCHARFN 19534 . 20553) (UTF16BE.INCCODEFN 20555 . 21897) (UTF16BE.PEEKCCODEFN
21899 . 23243) (\UTF16BE.BACKCCODEFN 23245 . 24437)) (24440 29171 (UTF16LE.OUTCHARFN 24450 . 25566) (
UTF16LE.INCCODEFN 25568 . 26697) (UTF16LE.PEEKCCODEFN 26699 . 27975) (\UTF16LE.BACKCCODEFN 27977 .
29169)) (29172 32219 (READBOM 29182 . 31251) (WRITEBOM 31253 . 32217)) (32220 36251 (
MAKE-UNICODE-FORMATS 32230 . 36249)) (36319 40813 (UTF8.BINCODE 36329 . 39017) (\UTF8.FETCHCODE 39019
. 40811)) (40814 46437 (UTF8.VALIDATE 40824 . 43421) (NUTF8-BYTE1-BYTES 43423 . 44160) (
NUTF8-CODE-BYTES 44162 . 45219) (NUTF8-STRING-BYTES 45221 . 46113) (N-MCHARS 46115 . 46435)) (46501
47775 (MTOUCODE 46511 . 46680) (UTOMCODE 46682 . 46879) (MTOUCODE? 46881 . 47260) (UTOMCODE? 47262 .
47773)) (47776 54348 (MTOUSTRING 47786 . 48369) (UTOMSTRING 48371 . 48954) (MTOUTF8STRING 48956 .
53235) (UTF8TOMSTRING 53237 . 54346)) (54406 60114 (XTOUCODE 54416 . 54934) (UTOXCODE 54936 . 55444) (
XTOUCODE? 55446 . 56507) (UTOXCODE? 56509 . 57592) (XTOUSTRING 57594 . 58289) (UTOXSTRING 58291 .
59034) (XTOUTF8STRING 59036 . 60112)) (60115 65294 (MERGE-UNICODE-TRANSLATION-TABLES 60125 . 62887) (
UNICODE.UNMAPPED 62889 . 65292)) (69033 69286 (UNICODE-INIT 69043 . 69284)) (69307 70745 (
SYSTEM-EXTERNALFORMAT 69317 . 70261) (MTOSYSSTRING 70263 . 70456) (SYSTOMSTRING 70458 . 70743)))))
STOP

Binary file not shown.

File diff suppressed because it is too large Load Diff

BIN
unicode/xerox/README.TEDIT Normal file

Binary file not shown.

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -42,195 +42,7 @@
# Any comments or problems, contact <ron.kaplan@post.harvard.edu>
# "165" JIS
0x7521 0x5B57 # 字
0x7522 0x600E # 怎
0x7523 0x5FEB # 快
0x7524 0x5E2B # 師
0x7525 0x8655 # 處
0x7526 0x76F8 # 相
0x7527 0x6D3B # 活
0x7528 0x89AA # 親
0x7529 0x6D77 # 海
0x752A 0x96FB # 電
0x752B 0x6BCD # 母
0x752C 0x679C # 果
0x752D 0x7ACB # 立
0x752E 0x539F # 原
0x752F 0x5408 # 合
0x7530 0x66F8 # 書
0x7531 0x5165 # 入
0x7532 0x4E26 # 並
0x7533 0x5E73 # 平
0x7534 0x696D # 業
0x7535 0x5831 # 報
0x7536 0x8EAB # 身
0x7537 0x5E02 # 市
0x7538 0x88AB # 被
0x7539 0x8A31 # 許
0x753A 0x8ACB # 請
0x753B 0x5C11 # 少
0x753C 0x9593 # 間
0x753D 0x9AD4 # 體
0x753E 0x4F4F # 住
0x753F 0x8ECA # 車
0x7540 0x8ECD # 軍
0x7541 0x908A # 邊
0x7542 0x91CD # 重
0x7543 0x52A0 # 加
0x7544 0x5716 # 圖
0x7545 0x6216 # 或
0x7546 0x6B21 # 次
0x7547 0x6BCF # 每
0x7548 0x7E3D # 總
0x7549 0x706B # 火
0x754A 0x6587 # 文
0x754B 0x5B69 # 孩
0x754C 0x4E16 # 世
0x754D 0x5B89 # 安
0x754E 0x653E # 放
0x754F 0x6A5F # 機
0x7550 0x5167 # 內
0x7551 0x95DC # 關
0x7552 0x5229 # 利
0x7553 0x50CF # 像
0x7554 0x7406 # 理
0x7555 0x6BD4 # 比
0x7556 0x611B # 愛
0x7557 0x738B # 王
0x7558 0x5225 # 別
0x7559 0x592B # 夫
0x755A 0x8207 # 與
0x755B 0x5149 # 光
0x755C 0x82B1 # 花
0x755D 0x83EF # 華
0x755E 0x8AB2 # 課
0x755F 0x80B2 # 育
0x7560 0x6545 # 故
0x7561 0x5FC5 # 必
0x7562 0x689D # 條
0x7563 0x5ABD # 媽
0x7564 0x5F1F # 弟
0x7565 0x7236 # 父
0x7566 0x901A # 通
0x7567 0x8868 # 表
0x7568 0x91D1 # 金
0x7569 0x5BEB # 寫
0x756A 0x5DF1 # 己
0x756B 0x624D # 才
0x756C 0x6CB3 # 河
0x756D 0x7701 # 省
0x756E 0x53F0 # 台
0x756F 0x6C42 # 求
0x7570 0x6536 # 收
0x7571 0x842C # 萬
0x7572 0x4E14 # 且
0x7573 0x4F55 # 何
0x7574 0x4EE3 # 代
0x7575 0x5171 # 共
0x7576 0x53D7 # 受
0x7577 0x98A8 # 風
0x7578 0x6C5F # 江
0x7579 0x62FF # 拿
0x757A 0x96E3 # 難
0x757B 0x754C # 界
0x757C 0x4FE1 # 信
0x757D 0x671B # 望
0x757E 0x7A7A # 空
0x75A1 0x6B7B # 死
0x75A2 0x73ED # 班
0x75A3 0x99AC # 馬
0x75A4 0x671F # 期
0x75A5 0x975E # 非
0x75A6 0x6A39 # 樹
0x75A7 0x53CA # 及
0x75A8 0x7D50 # 結
0x75A9 0x865F # 號
0x75AA 0x5E36 # 帶
0x75AB 0x5143 # 元
0x75AC 0x4EA4 # 交
0x75AD 0x8A72 # 該
0x75AE 0x672A # 未
0x75AF 0x7FA9 # 義
0x75B0 0x5E9C # 府
0x75B1 0x5B8C # 完
0x75B2 0x8AD6 # 論
0x75B3 0x9322 # 錢
0x75B4 0x98DB # 飛
0x75B5 0x547D # 命
0x75B6 0x5F35 # 張
0x75B7 0x54E1 # 員
0x75B8 0x6578 # 數
0x75B9 0x6797 # 林
0x75BA 0x63A5 # 接
0x75BB 0x5C40 # 局
0x75BC 0x53CB # 友
0x75BD 0x559C # 喜
0x75BE 0x6E05 # 清
0x75BF 0x6D0B # 洋
0x75C0 0x6A02 # 樂
0x75C1 0x5A5A # 婚
0x75C2 0x793E # 社
0x75C3 0x65E9 # 早
0x75C4 0x5E03 # 布
0x75C5 0x6975 # 極
0x75C6 0x773C # 眼
0x75C7 0x55CE # 嗎
0x75C8 0x7522 # 產
0x75C9 0x544A # 告
0x75CA 0x54E5 # 哥
0x75CB 0x8208 # 興
0x75CC 0x52DE # 勞
0x75CD 0x9435 # 鐵
0x75CE 0x53D6 # 取
0x75CF 0x7B97 # 算
0x75D0 0x66F4 # 更
0x75D1 0x5175 # 兵
0x75D2 0x9020 # 造
0x75D3 0x7B54 # 答
0x75D4 0x627E # 找
0x75D5 0x7F77 # 罷
0x75D6 0x5931 # 失
0x75D7 0x904B # 運
0x75D8 0x5F62 # 形
0x75D9 0x6613 # 易
0x75DA 0x7FA3 # 羣
0x75DB 0x5EA6 # 度
0x75DC 0x534A # 半
0x75DD 0x8863 # 衣
0x75DE 0x82E5 # 若
0x75DF 0x81F3 # 至
0x75E0 0x8B70 # 議
0x75E1 0x8FD1 # 近
0x75E2 0x7167 # 照
0x75E3 0x8B8A # 變
0x75E4 0x59D0 # 姐
0x75E5 0x670D # 服
0x75E6 0x5247 # 則
0x75E7 0x985E # 類
0x75E8 0x82F1 # 英
0x75E9 0x7403 # 球
0x75EA 0x5343 # 千
0x75EB 0x5F80 # 往
0x75EC 0x8B1B # 講
0x75ED 0x8A08 # 計
0x75EE 0x6230 # 戰
0x75EF 0x6728 # 木
0x75F0 0x7B11 # 笑
0x75F1 0x529F # 功
0x75F2 0x8209 # 舉
0x75F3 0x8DDF # 跟
0x75F4 0x795E # 神
0x75F5 0x6C7A # 決
0x75F6 0x6D41 # 流
0x75F7 0x71B1 # 熱
0x75F8 0x541B # 君
0x75F9 0x7A76 # 究
0x75FA 0x7D04 # 約
0x75FB 0x96BB # 隻
0x75FC 0x76F4 # 直
0x75FD 0x53E4 # 古
0x75FE 0x9EC3 # 黃
# "164" JIS
0x742C 0x32E3 # ㋣ CIRCLED KATAKANA TO
0x742D 0x32E0 # ㋠ CIRCLED KATAKANA TI
0x742E 0x32F7 # ㋷ CIRCLED KATAKANA RI