mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 04:42:13 -08:00
Code Issues Projects Releases Packages Wiki Activity

Added some more references to the character database

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-01-05 17:34:37 +01:00
parent aacec998f6
commit 537cf31bfd
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
contrib/encodings/generate.lisp
View file

@ -12,7 +12,7 @@
(defconstant +sequence-type+ '(unsigned-byte 16))
(defun read-mapping (url)
(let ((command (format nil "curl \"~A\" | sed '/^#.*$/d;s,0x,#x,g;s,#UNDEFINED,NIL # UNDEFINED,g;/LEAD BYTE/d' | sed 's,# .*$,,g;/#x.*/!d' > tmp.txt" url)))
(let ((command (format nil "curl \"~A\" | sed '/^#.*$/d;s,0x,#x,g;s,U+\\([0-9A-Fa-f]*\\),#x\\1,g;s,#UNDEFINED,NIL # UNDEFINED,g;/LEAD BYTE/d' | grep -v '<reserverd>' | sed 's,# .*$,,g;/#x.*/!d' > tmp.txt" url)))
(unless (zerop (si::system command))
(error "Unable to retrieve file ~A" url)))
(let ((mapping '()))
@ -26,8 +26,8 @@
(setf unicode (read aux nil nil)))
(unless (and (typep byte +sequence-type+)
(typep unicode +sequence-type+))
(error "Sequence type ~A is unable to capture this encoding"
+sequence-type+))
(error "Sequence type ~A is unable to capture this encoding (codes ~X and ~X found)"
+sequence-type+ byte unicode))
(setf mapping (list* unicode byte mapping)))))))
(unless mapping
(error "Error reading file ~A" url))
@ -108,6 +108,10 @@
;("JISX0201" "http://unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/JIS0201.TXT")
;("JISX0212" "http://unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/JIS0212.TXT")
;("SHIFT-JIS" "http://unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/SHIFTJIS.TXT")
;Unable to parse because they output more than one Unicode character
;("SJIS-0213" "http://x0213.org/codetable/sjis-0213-2004-std.txt")
;("EUC-JISX0213" "http://x0213.org/codetable/euc-jis")
))
(defun copy-file (in out)