(chise-tex-encode-region-for-jis): \UCSjis{XXXX} or \UCSgb{XXXX} can

[chise/omega.git] / chise2otf / elisp / chise-tex.el

diff --git a/chise2otf/elisp/chise-tex.el b/chise2otf/elisp/chise-tex.el
index 9f8f4aa..0f5e29c 100644 (file)
--- a/chise2otf/elisp/chise-tex.el
+++ b/chise2otf/elisp/chise-tex.el
@@ -1,6 +1,6 @@
 ;;; chise-tex.el --- Coding-system based chise2otf like tool
 
-;; Copyright (C) 2004,2005 MORIOKA Tomohiko
+;; Copyright (C) 2004,2005,2006 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: OTF package, pTeX, CHISE, Multiscript, Multilingual
@@ -39,6 +39,7 @@
     (=gt-pj-9          "GTpjI"         4 X)
     (=gt-pj-10         "GTpjJ"         4 X)
     (=gt-pj-11         "GTpjK"         4 X)
+    (=ruimoku-v6       "Ruimoku"       4 X)
     (=ucs-bmp@cns      "UCScns"        4 X)))
 
 (defun chise-tex-encode-region-for-gb (start end)
@@ -92,7 +93,7 @@
     (save-restriction
       (narrow-to-region start end)
       (goto-char start)
-      (let (chr ret rest spec modifier)
+      (let (chr ret rest spec modifier base modifier-1)
        (while (and (skip-chars-forward "\x00-\x7F")
                    (not (eobp)))
          (setq chr (char-after))
@@ -101,25 +102,45 @@
                 ;; ((setq ret (encode-char chr '=jis-x0208-1990))
                 ;;  (delete-char)
                 ;;  (insert (decode-char '=jis-x0208-1983 ret)))
-               ((and (setq ret (char-feature chr '=decomposition))
+               ((and (not (eq (char-ucs chr) #x0439))
+                     (not (eq (char-ucs chr) #x0451))
+                     (setq ret (char-feature chr '=decomposition))
                      (setq modifier (assq (nth 1 ret)
                                           '((?\u0300 . "`")
                                             (?\u0301 . "'")
                                             (?\u0302 . "^")
                                             (?\u0303 . "~")
                                             (?\u0304 . "=")
+                                            (?\u0306 . "u")
                                             (?\u0307 . ".")
                                             (?\u0308 . "\"")
+                                            (?\u0309 . "Hook")
                                             (?\u030C . "v")
                                             (?\u0323 . "d")
                                             (?\u0327 . "c")
                                             ))))
                 (delete-char)
-                (insert (format "\\%s{%c}" (cdr modifier) (car ret))))
+                (setq base (car ret))
+                (if (and (setq ret (char-feature base '=decomposition))
+                         (setq modifier-1
+                               (assq (car modifier)
+                                     (cdr
+                                      (assq (nth 1 ret)
+                                            '((?\u0302
+                                               (?\u0301 . "CircAcute")
+                                               (?\u0303 . "CircTilde")
+                                               (?\u0309 . "CircHook")
+                                               )
+                                              (?\u0323
+                                               (?\u0302 . "Circudot")
+                                               )))))))
+                    (insert (format "\\%s{%c}" (cdr modifier-1) (car ret)))
+                  (insert (format "\\%s{%c}" (cdr modifier) base))))
                ((and (or (encode-char chr '=jis-x0213-1-2000)
                          (encode-char chr '=jis-x0213-2-2000))
                      (setq ret (or (encode-char chr '=ucs@jis/2000)
-                                   (encode-char chr '=ucs@jis/fw))))
+                                   (encode-char chr '=ucs@jis/fw)))
+                     (<= ret #xFFFF))
                 (delete-char)
                 ;; (if (eq (char-before) ?\e$B!T\e(B)
                 ;;     (insert " "))
@@ -136,15 +157,37 @@
                 ;; (if (eq (char-before) ?\e$B!T\e(B)
                 ;;     (insert " "))
                 (insert (format "\\UCSks{%04X}" ret)))
+               ((eq chr ?\u00B2)
+                (delete-char)
+                (insert "$^2$"))
+               ((eq chr ?\u00B3)
+                (delete-char)
+                (insert "$^3$"))
+               ((eq chr ?\u0111)
+                (delete-char)
+                (insert "{\\usefont{T1}{pxr}{m}{n}\\dj}"))
+               ((eq chr ?\u014B)
+                (delete-char)
+                (insert "{\\usefont{T1}{pxr}{m}{n}\\ng}"))
+               ((eq chr ?\u0282)
+                (delete-char)
+                (insert "{\\usefont{T1}{pxr}{m}{n}\\k{s}}"))
                ((eq chr ?\u2022)
                 (delete-char)
                 (insert "\\textbullet{}"))
+               ((eq chr ?\u2083)
+                (delete-char)
+                (insert "$_3$"))
+               ((eq chr ?\u2085)
+                (delete-char)
+                (insert "$_5$"))
                ((eq chr ?\u0294)
                 (delete-char)
                 (insert "\\UCSjis{0294}"))
                ((and (encode-char chr '=ucs@jp)
                      (setq ret (char-representative-of-domain chr 'gb))
-                     (setq ret (encode-char ret '=ucs@gb)))
+                     (setq ret (encode-char ret '=ucs@gb))
+                     (<= ret #xFFFF))
                 (delete-char)
                 ;; (if (eq (char-before) ?\e$B!T\e(B)
                 ;;     (insert " "))