[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/admin/charsets/mule-charsets.el [emacs-un
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/admin/charsets/mule-charsets.el [emacs-unicode-2] |
Date: |
Mon, 08 Sep 2003 07:56:17 -0400 |
Index: emacs/admin/charsets/mule-charsets.el
diff -c /dev/null emacs/admin/charsets/mule-charsets.el:1.1.2.1
*** /dev/null Mon Sep 8 07:56:17 2003
--- emacs/admin/charsets/mule-charsets.el Mon Sep 8 07:56:09 2003
***************
*** 0 ****
--- 1,58 ----
+ ;; mule-charsets.el -- Generate Mule-orignal charset maps.
+ ;; Copyright (C) 2003
+ ;; National Institute of Advanced Industrial Science and Technology (AIST)
+ ;; Registration Number H13PRO009
+
+ ;; This file is part of GNU Emacs.
+
+ ;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ ;; GNU General Public License for more details.
+
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING. If not, write to the
+ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+
+ (if (or (< emacs-major-version 21)
+ (< emacs-minor-version 3)
+ (and (= emacs-minor-version 3)
+ (string< emacs-version "21.3.50")))
+ (error "Use Emacs of version 21.3.50 or later"))
+
+ (defun func (start end)
+ (while (<= start end)
+ (let ((split (split-char start))
+ (unicode (encode-char start 'ucs)))
+ (if unicode
+ (if (nth 2 split)
+ (insert (format "0x%02X%02X 0x%04X\n"
+ (nth 1 split) (nth 2 split) unicode))
+ (insert (format "0x%02X 0x%04X\n" (nth 1 split) unicode)))))
+ (setq start (1+ start))))
+
+ (defconst charset-alist
+ '(("MULE-ethiopic.map" . ethiopic)
+ ("MULE-ipa.map" . ipa)
+ ("MULE-is13194.map" . indian-is13194)
+ ("MULE-sisheng.map" . chinese-sisheng)
+ ("MULE-tibetan.map" . tibetan)
+ ("MULE-lviscii.map" . vietnamese-viscii-lower)
+ ("MULE-uviscii.map" . vietnamese-viscii-upper)))
+
+ (setq file (car command-line-args-left))
+ (or (stringp file)
+ (error "Invalid file name: %s" file))
+ (setq charset (cdr (assoc file charset-alist)))
+ (or charset
+ (error "Invalid charset: %s" (car command-line-args-left)))
+
+ (with-temp-buffer
+ (map-charset-chars 'func charset)
+ (write-file file))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/admin/charsets/mule-charsets.el [emacs-unicode-2],
Kenichi Handa <=