MIM/bo-tcrc.mim

   1 ;; bo-tcrc.mim -- Tibetan input method with TCRC keyboard layout
   2 ;; Copyright (C) 2006, 2007
   3 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   4 ;;   Registration Number H15PRO112
   5
   6 ;; This file is part of the m17n database; a sub-part of the m17n
   7 ;; library.
   8
   9 ;; The m17n library is free software; you can redistribute it and/or
  10 ;; modify it under the terms of the GNU Lesser General Public License
  11 ;; as published by the Free Software Foundation; either version 2.1 of
  12 ;; the License, or (at your option) any later version.
  13
  14 ;; The m17n library is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 ;; Lesser General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU Lesser General Public
  20 ;; License along with the m17n library; if not, write to the Free
  21 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  22 ;; Boston, MA 02110-1301, USA.
  23
  24 (input-method bo tcrc)
  25
  26 (description "Tibetan input method using the TCRC keyboard layout.
  27 For more information, see the page:
  28   http://www.tibet.net/tb/download/tcrckbd.rtf
  29 ")
  30
  31 (title "ཀ")
  32 (map
  33  (map
  34   ("!" "༑")
  35   ("@" "༄")
  36   ("#" "༄༅")
  37   ("^" "྾")
  38   ("&" "༼")
  39   ("*" "༽")
  40   ("_" "ཱྀ")
  41   ("+" "ཾ")
  42   ("|" "༈")
  43
  44   ("`" "༌")
  45   ("1" "༡")
  46   ("2" "༢")
  47   ("3" "༣")
  48   ("4" "༤")
  49   ("5" "༥")
  50   ("6" "༦")
  51   ("7" "༧")
  52   ("8" "༨")
  53   ("9" "༩")
  54   ("0" "༠")
  55   ("-" "ྀ")
  56   ("=" "ྃ")
  57   ("\\" "༔")
  58
  59   ("Q" (cond ((= @-1 0x0F84) (delete @-1) "ྛ") (1 "ཋ")))
  60   ("W" "ྭ")
  61   ("E" "ཻ")
  62   ("R" (cond ((= @-1 0x0F84) (delete @-1) "ྲ྄") (1 "ར྄")))
  63   ("T" (cond ((= @-1 0x0F84) (delete @-1) "ྠ") (1 "ཐ")))
  64   ("Y" "-")
  65   ("U" "ཱུ")
  66   ("I" "ཱི")
  67   ("O" "ཽ")
  68   ("P" (cond ((= @-1 0x0F84) (delete @-1) "ྥ") (1 "ཕ")))
  69   ("{" "`")
  70   ("}" "+")
  71
  72   ("q" (cond ((= @-1 0x0F84) (delete @-1) "ྚ") (1 "ཊ")))
  73   ("w" (cond ((= @-1 0x0F84) (delete @-1) "ྭ") (1 "ཝ")))
  74   ("e" "ེ")
  75   ("r" (cond ((= @-1 0x0F84) (delete @-1) "ྲ") (1 "ར")))
  76   ("t" (cond ((= @-1 0x0F84) (delete @-1) "ྟ") (1 "ཏ")))
  77   ("y" (cond ((= @-1 0x0F84) (delete @-1) "ྱ") (1 "ཡ")))
  78   ("u" "ུ")
  79   ("i" "ི")
  80   ("o" "ོ")
  81   ("p" (cond ((= @-1 0x0F84) (delete @-1) "ྤ") (1 "པ")))
  82   ("[" "'")
  83   ("]" ",")
  84
  85   ("A" (cond ((= @-1 0x0F84) (delete @-1) "ྸ") (1 "ཨ")))
  86   ("S" (cond ((= @-1 0x0F84) (delete @-1) "ྴ") (1 "ཤ")))
  87   ("D" (cond ((= @-1 0x0F84) (delete @-1) "ྫ") (1 "ཛ")))
  88   ("F" (cond ((= @-1 0x0F84) (delete @-1) "ྡྷ") (1 "དྷ")))
  89   ("G" (cond ((= @-1 0x0F84) (delete @-1) "ྒྷ") (1 "གྷ")))
  90   ("H" "ྷ")
  91   ("J" (cond ((= @-1 0x0F84) (delete @-1) "ྫྷ") (1 "ཛྷ")))
  92   ("K" (cond ((= @-1 0x0F84) (delete @-1) "ྑ") (1 "ཁ")))
  93   ("L" (cond ((= @-1 0x0F84) (delete @-1) "ླ྄") (1 "ལ྄")))
  94   (":" "ཿ")
  95   ("\"" "ཱ")
  96
  97   ("a" "྄")
  98   ("s" (cond ((= @-1 0x0F84) (delete @-1) "ྶ") (1 "ས")))
  99   ("d" (cond ((= @-1 0x0F84) (delete @-1) "ྡ") (1 "ད")))
 100   ("f" (cond ((= @-1 0x0F84) (delete @-1) "ྔ") (1 "ང")))
 101   ("g" (cond ((= @-1 0x0F84) (delete @-1) "ྒ") (1 "ག")))
 102   ("h" (cond ((= @-1 0x0F84) (delete @-1) "ྷ") (1 "ཧ")))
 103   ("j" (cond ((= @-1 0x0F84) (delete @-1) "ྗ") (1 "ཇ")))
 104   ("k" (cond ((= @-1 0x0F84) (delete @-1) "ྐ") (1 "ཀ")))
 105   ("l" (cond ((= @-1 0x0F84) (delete @-1) "ླ") (1 "ལ")))
 106   (";" (cond ((= @-1 0x0F84) (delete @-1) "ྜྷ") (1 "ཌྷ")))
 107   ("'" (cond ((= @-1 0x0F84) (delete @-1) "ྰ") (1 "འ")))
 108
 109   ("Z" (cond ((= @-1 0x0F84) (delete @-1) "ྮ") (1 "ཞ")))
 110   ("X" (cond ((= @-1 0x0F84) (delete @-1) "ྪ") (1 "ཚ")))
 111   ("C" (cond ((= @-1 0x0F84) (delete @-1) "ྖ") (1 "ཆ")))
 112   ("V" (cond ((= @-1 0x0F84) (delete @-1) "ྞ") (1 "ཎ")))
 113   ("B" (cond ((= @-1 0x0F84) (delete @-1) "ྦྷ") (1 "བྷ")))
 114   ("N" (cond ((= @-1 0x0F84) (delete @-1) "ྙ") (1 "ཉ")))
 115   ("M" (cond ((= @-1 0x0F84) (delete @-1) "ྵ") (1 "ཥ")))
 116   ("<" "ླ")
 117   (">" (cond ((= @-1 0x0F84) (delete @-1) "ྲ྄") (1 "ཪ྄")))
 118   ("?" (cond ((= @-1 0x0F84) (delete @-1) "ྶ྄") (1 "ས྄")))
 119
 120   ("z" (cond ((= @-1 0x0F84) (delete @-1) "ྯ") (1 "ཟ")))
 121   ("x" (cond ((= @-1 0x0F84) (delete @-1) "ྩ") (1 "ཙ")))
 122   ("c" (cond ((= @-1 0x0F84) (delete @-1) "ྕ") (1 "ཅ")))
 123   ("v" (cond ((= @-1 0x0F84) (delete @-1) "ྜ") (1 "ཌ")))
 124   ("b" (cond ((= @-1 0x0F84) (delete @-1) "ྦ") (1 "བ")))
 125   ("n" (cond ((= @-1 0x0F84) (delete @-1) "ྣ") (1 "ན")))
 126   ("m" (cond ((= @-1 0x0F84) (delete @-1) "ྨ") (1 "མ")))
 127   ("." "ྲ")
 128   ("," "ྱ")
 129   ("/"
 130    (cond ((| (= @-1 0x0F44) (= @-1 0x0F94)) "་"))
 131    "།")
 132
 133   (" "
 134    (cond ((& (| (= @-2 0x0F42) (= @-2 0x0F92)) (= @-1 0x0F0B)) (delete @-1))
 135          (1 "་")))
 136   ))
 137
 138 (state
 139  (init
 140   (map)))
 141
 142 ;; Local Variables:
 143 ;; coding: utf-8
 144 ;; mode: emacs-lisp
 145 ;; End: