Commit 3921ea21 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(unidata-text-file): Delete it.

(unidata-list): Initialize to nil.
(unidata-setup-list): New function.
(unidata-gen-files): New optional arg unidata-text-file.  If it's
nil, set unidata-text-file the left command line arg.  Call
unidate-setup-list at first.
parent 12045f74
...@@ -74,16 +74,14 @@ ...@@ -74,16 +74,14 @@
;; 4th: function to call to get a description of a property value ;; 4th: function to call to get a description of a property value
;; 5th: data referred by the above functions ;; 5th: data referred by the above functions
;; The name of the file UnicodeData.txt.
(defconst unidata-text-file
(expand-file-name "admin/unidata/unidata.txt" source-directory))
;; List of elements of this form: ;; List of elements of this form:
;; (CHAR-or-RANGE PROP1 PROP2 ... PROPn) ;; (CHAR-or-RANGE PROP1 PROP2 ... PROPn)
;; CHAR-or-RANGE: a character code or a cons of character codes ;; CHAR-or-RANGE: a character code or a cons of character codes
;; PROPn: string representing the nth property value ;; PROPn: string representing the nth property value
(defvar unidata-list (defvar unidata-list nil)
(defun unidata-setup-list (unidata-text-file)
(let* ((table (list nil)) (let* ((table (list nil))
(tail table) (tail table)
(block-names '(("^<CJK Ideograph" . CJK\ IDEOGRAPH) (block-names '(("^<CJK Ideograph" . CJK\ IDEOGRAPH)
...@@ -128,7 +126,7 @@ ...@@ -128,7 +126,7 @@
(setcdr tail (list val)) (setcdr tail (list val))
(setq tail (cdr tail)))) (setq tail (cdr tail))))
(error nil))) (error nil)))
(cdr table))) (setq unidata-list (cdr table))))
;; Alist of this form: ;; Alist of this form:
;; (PROP INDEX GENERATOR FILENAME) ;; (PROP INDEX GENERATOR FILENAME)
...@@ -1121,8 +1119,11 @@ Property value is a character." ...@@ -1121,8 +1119,11 @@ Property value is a character."
;; The entry function. It generates files described in the header ;; The entry function. It generates files described in the header
;; comment of this file. ;; comment of this file.
(defun unidata-gen-files () (defun unidata-gen-files (&optional unidata-text-file)
(interactive) (or unidata-text-file
(setq unidata-text-file (car command-line-args-left)
command-line-args-left (cdr command-line-args-left)))
(unidata-setup-list unidata-text-file)
(let ((coding-system-for-write 'utf-8) (let ((coding-system-for-write 'utf-8)
(charprop-file "charprop.el")) (charprop-file "charprop.el"))
(with-temp-file charprop-file (with-temp-file charprop-file
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment