;; -*- Coding: iso-2022-7bit -*-
;;
;; mac-im greek and cyrillic convertion
;;
;;   Copyright (C) 2004  MURAMATSU Atsushi
;;     version 0.2   2004/07/03

(setq mac-im-to-japanese-translate (make-hash-table))

;; this is for translating Yen mark to Backslash
(puthash 2213 ?\\ mac-im-to-japanese-translate)
(mapc
 (lambda (pair)
   (let ((internal (decode-char 'ucs (car pair)))
	 (char (cadr pair)))
     (puthash internal char mac-im-to-japanese-translate)))
 '(
   ;; jisx0208
   (#xa2 ?¢)
   (#xa3 ?£)
   (#xa7 ?§)
   (#xa8 ?¨)
   (#xac ?¬)
   (#xb0 ?°)
   (#xb1 ?±)
   (#xb4 ?´)
   (#xb6 ?¶)
   (#xd7 ?×)
   (#xf7 ?÷)
   (#x391 ?Α)
   (#x392 ?Β)
   (#x393 ?Γ)
   (#x394 ?Δ)
   (#x395 ?Ε)
   (#x396 ?Ζ)
   (#x397 ?Η)
   (#x398 ?Θ)
   (#x399 ?Ι)
   (#x39a ?Κ)
   (#x39b ?Λ)
   (#x39c ?Μ)
   (#x39d ?Ν)
   (#x39e ?Ξ)
   (#x39f ?Ο)
   (#x3a0 ?Π)
   (#x3a1 ?Ρ)
   (#x3a3 ?Σ)
   (#x3a4 ?Τ)
   (#x3a5 ?Υ)
   (#x3a6 ?Φ)
   (#x3a7 ?Χ)
   (#x3a8 ?Ψ)
   (#x3a9 ?Ω)
   (#x3b1 ?α)
   (#x3b2 ?β)
   (#x3b3 ?γ)
   (#x3b4 ?δ)
   (#x3b5 ?ε)
   (#x3b6 ?ζ)
   (#x3b7 ?η)
   (#x3b8 ?θ)
   (#x3b9 ?ι)
   (#x3ba ?κ)
   (#x3bb ?λ)
   (#x3bc ?μ)
   (#x3bd ?ν)
   (#x3be ?ξ)
   (#x3bf ?ο)
   (#x3c0 ?π)
   (#x3c1 ?ρ)
   (#x3c3 ?σ)
   (#x3c4 ?τ)
   (#x3c5 ?υ)
   (#x3c6 ?φ)
   (#x3c7 ?χ)
   (#x3c8 ?ψ)
   (#x3c9 ?ω)
   (#x401 ?Ё)
   (#x410 ?А)
   (#x411 ?Б)
   (#x412 ?В)
   (#x413 ?Г)
   (#x414 ?Д)
   (#x415 ?Е)
   (#x416 ?Ж)
   (#x417 ?З)
   (#x418 ?И)
   (#x419 ?Й)
   (#x41a ?К)
   (#x41b ?Л)
   (#x41c ?М)
   (#x41d ?Н)
   (#x41e ?О)
   (#x41f ?П)
   (#x420 ?Р)
   (#x421 ?С)
   (#x422 ?Т)
   (#x423 ?У)
   (#x424 ?Ф)
   (#x425 ?Х)
   (#x426 ?Ц)
   (#x427 ?Ч)
   (#x428 ?Ш)
   (#x429 ?Щ)
   (#x42a ?Ъ)
   (#x42b ?Ы)
   (#x42c ?Ь)
   (#x42d ?Э)
   (#x42e ?Ю)
   (#x42f ?Я)
   (#x430 ?а)
   (#x431 ?б)
   (#x432 ?в)
   (#x433 ?г)
   (#x434 ?д)
   (#x435 ?е)
   (#x436 ?ж)
   (#x437 ?з)
   (#x438 ?и)
   (#x439 ?й)
   (#x43a ?к)
   (#x43b ?л)
   (#x43c ?м)
   (#x43d ?н)
   (#x43e ?о)
   (#x43f ?п)
   (#x440 ?р)
   (#x441 ?с)
   (#x442 ?т)
   (#x443 ?у)
   (#x444 ?ф)
   (#x445 ?х)
   (#x446 ?ц)
   (#x447 ?ч)
   (#x448 ?ш)
   (#x449 ?щ)
   (#x44a ?ъ)
   (#x44b ?ы)
   (#x44c ?ь)
   (#x44d ?э)
   (#x44e ?ю)
   (#x44f ?я)
   (#x451 ?ё)
   (#x2010 ?‐)
   (#x2015 ?―)
   (#x2016 ?‖)
   (#x2018 ?‘)
   (#x2019 ?’)
   (#x201c ?“)
   (#x201d ?”)
   (#x2020 ?†)
   (#x2021 ?‡)
   (#x2025 ?‥)
   (#x2026 ?…)
   (#x2030 ?‰)
   (#x2032 ?′)
   (#x2033 ?″)
   (#x203b ?※)
   (#x2103 ?℃)
   (#x212b ?Å)
   (#x2190 ?←)
   (#x2191 ?↑)
   (#x2192 ?→)
   (#x2193 ?↓)
   (#x21d2 ?⇒)
   (#x21d4 ?⇔)
   (#x2200 ?∀)
   (#x2202 ?∂)
   (#x2203 ?∃)
   (#x2207 ?∇)
   (#x2208 ?∈)
   (#x220b ?∋)
   (#x2212 ?−)
   (#x221a ?√)
   (#x221d ?∝)
   (#x221e ?∞)
   (#x2220 ?∠)
   (#x2227 ?∧)
   (#x2228 ?∨)
   (#x2229 ?∩)
   (#x222a ?∪)
   (#x222b ?∫)
   (#x222c ?∬)
   (#x2234 ?∴)
   (#x2235 ?∵)
   (#x223d ?∽)
   (#x2252 ?≒)
   (#x2260 ?≠)
   (#x2261 ?≡)
   (#x2266 ?≦)
   (#x2267 ?≧)
   (#x226a ?≪)
   (#x226b ?≫)
   (#x2282 ?⊂)
   (#x2283 ?⊃)
   (#x2286 ?⊆)
   (#x2287 ?⊇)
   (#x22a5 ?⊥)
   (#x2312 ?⌒)
   (#x2500 ?─)
   (#x2501 ?━)
   (#x2502 ?│)
   (#x2503 ?┃)
   (#x250c ?┌)
   (#x250f ?┏)
   (#x2510 ?┐)
   (#x2513 ?┓)
   (#x2514 ?└)
   (#x2517 ?┗)
   (#x2518 ?┘)
   (#x251b ?┛)
   (#x251c ?├)
   (#x251d ?┝)
   (#x2520 ?┠)
   (#x2523 ?┣)
   (#x2524 ?┤)
   (#x2525 ?┥)
   (#x2528 ?┨)
   (#x252b ?┫)
   (#x252c ?┬)
   (#x252f ?┯)
   (#x2530 ?┰)
   (#x2533 ?┳)
   (#x2534 ?┴)
   (#x2537 ?┷)
   (#x2538 ?┸)
   (#x253b ?┻)
   (#x253c ?┼)
   (#x253f ?┿)
   (#x2542 ?╂)
   (#x254b ?╋)
   (#x25a0 ?■)
   (#x25a1 ?□)
   (#x25b2 ?▲)
   (#x25b3 ?△)
   (#x25bc ?▼)
   (#x25bd ?▽)
   (#x25c6 ?◆)
   (#x25c7 ?◇)
   (#x25cb ?○)
   (#x25ce ?◎)
   (#x25cf ?●)
   (#x25ef ?◯)
   (#x2605 ?★)
   (#x2606 ?☆)
   (#x2640 ?♀)
   (#x2642 ?♂)
   (#x266a ?♪)
   (#x266d ?♭)
   (#x266f ?♯)
))

(defun mac-im-insert (str)
  (defun mac-im-insert-internal (str len index)
    (when (< index len)
	(let ((jis (gethash (aref str index) mac-im-to-japanese-translate)))
	  (if jis (store-substring str index jis)))
	(mac-im-insert-internal str len (+ index 1))
      ))
  (mac-im-insert-internal str (length str) 0)
  (insert str)
  (setq mac-im-insert-text-length (length str)))