Mercurial > hg > xemacs-beta
comparison etc/unicode/mule-ucs/README @ 779:a29c4eef8f00
[xemacs-hg @ 2002-03-18 09:40:27 by ben]
add more translation tables [from mule-ucs], fixup README's
| author | ben |
|---|---|
| date | Mon, 18 Mar 2002 09:40:41 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 778:2923009caf47 | 779:a29c4eef8f00 |
|---|---|
| 1 The files in this directory were converted from data in the mule-ucs | |
| 2 package (mule-ucs/lisp/reldata/*), using this code: | |
| 3 | |
| 4 (defun convert-mule-ucs-file (start end) | |
| 5 (interactive "r") | |
| 6 (with-output-to-temp-buffer "*mule-ucs-convert*" | |
| 7 (save-excursion | |
| 8 (goto-char start) | |
| 9 (while (re-search-forward "(\\?\\(.\\) \\. \"\\(.*\\)\") ;+ \\(.*\\)$" | |
| 10 end t) | |
| 11 (let ((ch (string-to-char (match-string 1))) | |
| 12 (codepoint (match-string 2)) | |
| 13 (name (match-string 3))) | |
| 14 (if (= 1 (charset-dimension (char-charset ch))) | |
| 15 (princ (format "0x%x %s # %s\n" (char-octet ch) codepoint name)) | |
| 16 (princ (format "0x%x%x %s # %s\n" (char-octet ch 0) (char-octet ch 1) codepoint name)))))))) | |
| 17 | |
| 18 Each file is named after the XEmacs charset it represents. The CNS files | |
| 19 contain more codepoints than those in unicode-consortium/ because they list | |
| 20 codepoints above 0xFFFF, those handled by surrogates (supported starting in | |
| 21 Windows 2000, I think, but not yet by XEmacs). |