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 @@
;; 4th: function to call to get a description of a property value
;; 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:
;; (CHAR-or-RANGE PROP1 PROP2 ... PROPn)
;; CHAR-or-RANGE: a character code or a cons of character codes
;; 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))
(tail table)
(block-names '(("^<CJK Ideograph" . CJK\ IDEOGRAPH)
......@@ -128,7 +126,7 @@
(setcdr tail (list val))
(setq tail (cdr tail))))
(error nil)))
(cdr table)))
(setq unidata-list (cdr table))))
;; Alist of this form:
;; (PROP INDEX GENERATOR FILENAME)
......@@ -1121,8 +1119,11 @@ Property value is a character."
;; The entry function. It generates files described in the header
;; comment of this file.
(defun unidata-gen-files ()
(interactive)
(defun unidata-gen-files (&optional unidata-text-file)
(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)
(charprop-file "charprop.el"))
(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