Mercurial > hg > xemacs-beta

annotate etc/unicode/mule-ucs/README @ 4745:0c54de4c4b9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly src/ChangeLog addition: 2009-11-15 Aidan Kehoe <kehoea@parhasard.net> * mule-ccl.c (CCL_CALL_FOR_MAP_INSTRUCTION): Assert that we always have a symbol in this macro. (setup_ccl_program): Ensure we're not allocating unreachable memory in this function; all symbols must have been resolved in a given CCL program before this function is called. (find_ccl_program): New function, return a CCL program with all its symbols resolved if it is valid (possibly allocating memory), Qnil otherwise. (get_ccl_program): New function, exported to other files; call find_ccl_program, and error if it gives nil. (Fccl_program_p): Call find_ccl_program from this function instead of implementing the bulk of it here. (Fccl_execute): Call get_ccl_program instead of implementing the bulk of it here. (Fccl_execute_on_string): Ditto. * mule-ccl.h (Vfont_ccl_encoder_alist): Remove this declaration, it hasn't been used in years. (get_ccl_program): Declare this function. * mule-coding.c (ccl_putprop): Use get_ccl_program on any specified encode or decode CCL program property. (fixed_width_putprop): Ditto. * mule-charset.c (Fmake_charset): Use get_ccl_program on any specified ccl-program. (Fset_charset_ccl_program): Ditto.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 15 Nov 2009 16:53:14 +0000
parents a29c4eef8f00
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
779
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
1 The files in this directory were converted from data in the mule-ucs
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
2 package (mule-ucs/lisp/reldata/*), using this code:
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
3
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
4 (defun convert-mule-ucs-file (start end)
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
5 (interactive "r")
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
6 (with-output-to-temp-buffer "*mule-ucs-convert*"
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
7 (save-excursion
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
8 (goto-char start)
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
9 (while (re-search-forward "(\\?\\(.\\) \\. \"\\(.*\\)\") ;+ \\(.*\\)$"
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
10 end t)
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
11 (let ((ch (string-to-char (match-string 1)))
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
12 (codepoint (match-string 2))
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
13 (name (match-string 3)))
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
14 (if (= 1 (charset-dimension (char-charset ch)))
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
15 (princ (format "0x%x %s # %s\n" (char-octet ch) codepoint name))
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
16 (princ (format "0x%x%x %s # %s\n" (char-octet ch 0) (char-octet ch 1) codepoint name))))))))
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
17
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
18 Each file is named after the XEmacs charset it represents. The CNS files
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
19 contain more codepoints than those in unicode-consortium/ because they list
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
20 codepoints above 0xFFFF, those handled by surrogates (supported starting in
a29c4eef8f00 [xemacs-hg @ 2002-03-18 09:40:27 by ben]
ben
parents:
diff changeset
21 Windows 2000, I think, but not yet by XEmacs).