;;; hankana.el --- hankaku katakana utils

;; Copyright (C) 2002 Masanao Izumo

;; Maintainer: Masanao Izumo <iz@onicos.co.jp>
;; Version: 1.0.0

;; This library 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.

;; This library 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 library; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

(defvar zenkana-hankana-map
  '(("ガ" . "ｶﾞ") ("ギ" . "ｷﾞ") ("グ" . "ｸﾞ") ("ゲ" . "ｹﾞ") ("ゴ" . "ｺﾞ")
    ("ザ" . "ｻﾞ") ("ジ" . "ｼﾞ") ("ズ" . "ｽﾞ") ("ゼ" . "ｾﾞ") ("ゾ" . "ｿﾞ")
    ("ダ" . "ﾀﾞ") ("ヂ" . "ﾁﾞ") ("ヅ" . "ﾂﾞ") ("デ" . "ﾃﾞ") ("ド" . "ﾄﾞ")
    ("バ" . "ﾊﾞ") ("ビ" . "ﾋﾞ") ("ブ" . "ﾌﾞ") ("ベ" . "ﾍﾞ") ("ボ" . "ﾎﾞ")
    ("パ" . "ﾊﾟ") ("ピ" . "ﾋﾟ") ("プ" . "ﾌﾟ") ("ペ" . "ﾍﾟ") ("ポ" . "ﾎﾟ")

    ("。" . "｡") ("「" . "｢") ("」" . "｣") ("、" . "､")
    ("，" . "､") ("・" . "･")
    ("ヲ" . "ｦ")
    ("ァ" . "ｧ") ("ィ" . "ｨ") ("ゥ" . "ｩ") ("ェ" . "ｪ") ("ォ" . "ｫ")
    ("ャ" . "ｬ") ("ュ" . "ｭ") ("ョ" . "ｮ")
    ("ッ" . "ｯ")
    ("ー" . "ｰ") ("―" . "ｰ") ("‐" . "ｰ") ("−" . "ｰ")
    ("ア" . "ｱ") ("イ" . "ｲ") ("ウ" . "ｳ") ("エ" . "ｴ") ("オ" . "ｵ")
    ("カ" . "ｶ") ("キ" . "ｷ") ("ク" . "ｸ") ("ケ" . "ｹ") ("コ" . "ｺ")
    ("サ" . "ｻ") ("シ" . "ｼ") ("ス" . "ｽ") ("セ" . "ｾ") ("ソ" . "ｿ")
    ("タ" . "ﾀ") ("チ" . "ﾁ") ("ツ" . "ﾂ") ("テ" . "ﾃ") ("ト" . "ﾄ")
    ("ナ" . "ﾅ") ("ニ" . "ﾆ") ("ヌ" . "ﾇ") ("ネ" . "ﾈ") ("ノ" . "ﾉ")
    ("ハ" . "ﾊ") ("ヒ" . "ﾋ") ("フ" . "ﾌ") ("ヘ" . "ﾍ") ("ホ" . "ﾎ")
    ("マ" . "ﾏ") ("ミ" . "ﾐ") ("ム" . "ﾑ") ("メ" . "ﾒ") ("モ" . "ﾓ")
    ("ヤ" . "ﾔ") ("ユ" . "ﾕ") ("ヨ" . "ﾖ") ("ラ" . "ﾗ") ("リ" . "ﾘ")
    ("ル" . "ﾙ") ("レ" . "ﾚ") ("ロ" . "ﾛ") ("ワ" . "ﾜ") ("ン" . "ﾝ")
    ("゛" . "ﾞ") ("゜" . "ﾟ")
    ))

(defvar hankana-zenkana-map
  (mapcar #'(lambda (pair) (cons (cdr pair) (car pair)))
	  zenkana-hankana-map))

(defun hankana-convert-region (start end map-alist)
  (save-excursion
    (save-restriction
      (narrow-to-region (point-min) end)
      (goto-char start)
      (while (not (eobp))
	(let ((found nil)
	      (map map-alist))
	  (while (and map (not found))
	    (if (looking-at (car (car map)))
		(setq found (car map))
	      (setq map (cdr map))))
	  (if found
	      (progn
		(delete-region (match-beginning 0) (match-end 0))
		(insert (cdr found)))
	    (forward-char 1)))))))

(defun hankana-zenkana-region (start end)
  (interactive "r")
  (hankana-convert-region start end hankana-zenkana-map))

(defun zenkana-hankana-region (start end)
  (interactive "r")
  (hankana-convert-region start end zenkana-hankana-map))

(provide 'hankana)