1 files changed, 60 insertions, 0 deletions
diff --git a/admin/charsets/mule-charsets.el b/admin/charsets/mule-charsets.el
new file mode 100644
index 00000000000..158121a2cfc
--- /dev/null
+++ b/admin/charsets/mule-charsets.el
@@ -0,0 +1,60 @@
+;; 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))
+
+;;; arch-tag: 515989d7-2e2d-41cc-9163-05ad472fede4