[A21.5QR21.4] Sample CCL coding system for the lispref.

APPROVE 21.5 RECOMMEND 21.4 Please figure out which of the comments below, if any, need to be addressed at this time, and then commit. Please submit a SUPERSEDES patch if you make a change, for Vin's convenience. (I'm pretty sure this will apply without change to 21.4, maybe with an offset but I doubt even that.) When you commit, send a message to XEmacs Patches containing at least the full ChangeLog as a reply to this message, with the keywords "COMMIT 21.5" as the only content of the first line of the body. man/ChangeLog addition: 2005-01-19 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lispref/mule.texi (CCL Example): Detail an implementation of the web's URL encoding as a CCL coding system example. +＠menu +* Four bits to ASCII:: Two tables used for getting hex digits from ASCII. +* URI Encoding constants:: Useful predefined characters. +* Numeric to ASCII-hexadecimal conversion:: Trivial in Lisp, not so in CCL. +* Characters to be preserved:: No transformation needed for these characters. +* The program to decode to internal format:: . +* The program to encode from internal format:: . It would be nice if you showed how to make the coding system object, and how to call it, too. +low-order four bits. So the sixty-fifth entry (offset ＠samp{#x51}) is +the ASCII encoding of `1', the hundred-and-twenty-second (offset +＠samp{#x7a}) is the ASCII encoding of `A'. At least one of the four numbers above is incorrect, I believe. + (aset val i (char-int (aref (format "%02X" i) 1))) char-to-int is the built-in, and therefore preferred, I suppose. -- Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Ask not how you can "do" free software business; ask what your business can "do for" free software.