mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Upgraded to Unicode 6 and added support for a smaller database with just the 16-bits part of Unicode

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-02-19 23:45:27 +00:00
parent 5f9ad922f7
commit 00f99f5e98
3 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
contrib/unicode/ucd.dat
View file

Binary file not shown.

2
contrib/unicode/ucd.lisp
View file

@ -303,7 +303,7 @@
(defun output (&optional small-unicode)
(let* ((num-pages (/ (if small-unicode #x10000 *unicode-char-limit*)
*page-size*))
(ucd-file-name (concatenate 'base-string "ucd" (if small-unicode "32" "")))
(ucd-file-name (concatenate 'base-string "ucd" (if small-unicode "16" "")))
(hash (make-hash-table :test #'equalp))
(index 0))
(print num-pages)

BIN
contrib/unicode/ucd16.dat Normal file
View file

Binary file not shown.