cgit.sxemacs.org Git - packages/blob - mule-packages/egg-its/its-zenkaku.el

   1 ;; Basic Roma-to-Kana Translation Table for Egg
   2 ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
   3
   4 ;; This file is part of Egg on Nemacs (Japanese Environment)
   5
   6 ;; Egg is distributed in the forms of patches to GNU
   7 ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
   8 ;; LICENSE which is distributed along with GNU Emacs by the
   9 ;; Free Software Foundation.
  10
  11 ;; Egg is distributed in the hope that it will be useful,
  12 ;; but WITHOUT ANY WARRANTY; without even the implied
  13 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14 ;; PURPOSE.  See the GNU EMACS GENERAL PUBLIC LICENSE for
  15 ;; more details.
  16
  17 ;; You should have received a copy of the GNU EMACS GENERAL
  18 ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
  19 ;; If not, write to the Free Software Foundation, 675 Mass
  20 ;; Ave, Cambridge, MA 02139, USA.
  21
  22 ;; 92.3.16  modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
  23 ;; 92.3.23  modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
  24 ;;      defrule -> its-defrule, define-its-mode -> its-define-mode
  25 ;;; 92.12.31 modified for Mule Ver.0.9.7.1
  26 ;;;                     by A.Tanaka <aries@ecs.isl.melco.co.jp>
  27 ;;;     Mode indicator of "zenkaku-upcase" fixed.
  28
  29 ;; 92.3.16 by K.Handa
  30 ;;(define-its-mode "zenkaku-downcase"  " a\e$B#a\e(B" t)
  31 (its-define-mode "zenkaku-downcase"  "\e$B#a\e(B" t)
  32
  33 (its-defrule "0" "\e$B#0\e(B")
  34 (its-defrule "1" "\e$B#1\e(B")
  35 (its-defrule "2" "\e$B#2\e(B")
  36 (its-defrule "3" "\e$B#3\e(B")
  37 (its-defrule "4" "\e$B#4\e(B")
  38 (its-defrule "5" "\e$B#5\e(B")
  39 (its-defrule "6" "\e$B#6\e(B")
  40 (its-defrule "7" "\e$B#7\e(B")
  41 (its-defrule "8" "\e$B#8\e(B")
  42 (its-defrule "9" "\e$B#9\e(B")
  43
  44 (its-defrule "A" "\e$B#A\e(B")
  45 (its-defrule "B" "\e$B#B\e(B")
  46 (its-defrule "C" "\e$B#C\e(B")
  47 (its-defrule "D" "\e$B#D\e(B")
  48 (its-defrule "E" "\e$B#E\e(B")
  49 (its-defrule "F" "\e$B#F\e(B")
  50 (its-defrule "G" "\e$B#G\e(B")
  51 (its-defrule "H" "\e$B#H\e(B")
  52 (its-defrule "I" "\e$B#I\e(B")
  53 (its-defrule "J" "\e$B#J\e(B")
  54 (its-defrule "K" "\e$B#K\e(B")
  55 (its-defrule "L" "\e$B#L\e(B")
  56 (its-defrule "M" "\e$B#M\e(B")
  57 (its-defrule "N" "\e$B#N\e(B")
  58 (its-defrule "O" "\e$B#O\e(B")
  59 (its-defrule "P" "\e$B#P\e(B")
  60 (its-defrule "Q" "\e$B#Q\e(B")
  61 (its-defrule "R" "\e$B#R\e(B")
  62 (its-defrule "S" "\e$B#S\e(B")
  63 (its-defrule "T" "\e$B#T\e(B")
  64 (its-defrule "U" "\e$B#U\e(B")
  65 (its-defrule "V" "\e$B#V\e(B")
  66 (its-defrule "W" "\e$B#W\e(B")
  67 (its-defrule "X" "\e$B#X\e(B")
  68 (its-defrule "Y" "\e$B#Y\e(B")
  69 (its-defrule "Z" "\e$B#Z\e(B")
  70
  71 (its-defrule "a" "\e$B#a\e(B")
  72 (its-defrule "b" "\e$B#b\e(B")
  73 (its-defrule "c" "\e$B#c\e(B")
  74 (its-defrule "d" "\e$B#d\e(B")
  75 (its-defrule "e" "\e$B#e\e(B")
  76 (its-defrule "f" "\e$B#f\e(B")
  77 (its-defrule "g" "\e$B#g\e(B")
  78 (its-defrule "h" "\e$B#h\e(B")
  79 (its-defrule "i" "\e$B#i\e(B")
  80 (its-defrule "j" "\e$B#j\e(B")
  81 (its-defrule "k" "\e$B#k\e(B")
  82 (its-defrule "l" "\e$B#l\e(B")
  83 (its-defrule "m" "\e$B#m\e(B")
  84 (its-defrule "n" "\e$B#n\e(B")
  85 (its-defrule "o" "\e$B#o\e(B")
  86 (its-defrule "p" "\e$B#p\e(B")
  87 (its-defrule "q" "\e$B#q\e(B")
  88 (its-defrule "r" "\e$B#r\e(B")
  89 (its-defrule "s" "\e$B#s\e(B")
  90 (its-defrule "t" "\e$B#t\e(B")
  91 (its-defrule "u" "\e$B#u\e(B")
  92 (its-defrule "v" "\e$B#v\e(B")
  93 (its-defrule "w" "\e$B#w\e(B")
  94 (its-defrule "x" "\e$B#x\e(B")
  95 (its-defrule "y" "\e$B#y\e(B")
  96 (its-defrule "z" "\e$B#z\e(B")
  97
  98 (its-defrule " "  "\e$B!!\e(B")
  99 (its-defrule "!"  "\e$B!*\e(B")
 100 (its-defrule "@"  "\e$B!w\e(B")
 101 (its-defrule "#"  "\e$B!t\e(B")
 102 (its-defrule "$"  "\e$B!p\e(B")
 103 (its-defrule "%"  "\e$B!s\e(B")
 104 (its-defrule "^"  "\e$B!0\e(B")
 105 (its-defrule "&"  "\e$B!u\e(B")
 106 (its-defrule "*"  "\e$B!v\e(B")
 107 (its-defrule "("  "\e$B!J\e(B")
 108 (its-defrule ")"  "\e$B!K\e(B")
 109 (its-defrule "-"  "\e$B!]\e(B")
 110 (its-defrule "="  "\e$B!a\e(B")
 111 (its-defrule "`"  "\e$B!.\e(B")
 112 (its-defrule "\\" "\e$B!o\e(B")
 113 (its-defrule "|"  "\e$B!C\e(B")
 114 (its-defrule "_"  "\e$B!2\e(B")
 115 (its-defrule "+"  "\e$B!\\e(B")
 116 (its-defrule "~"  "\e$B!1\e(B")
 117 (its-defrule "["  "\e$B!N\e(B")
 118 (its-defrule "]"  "\e$B!O\e(B")
 119 (its-defrule "{"  "\e$B!P\e(B")
 120 (its-defrule "}"  "\e$B!Q\e(B")
 121 (its-defrule ":"  "\e$B!'\e(B")
 122 (its-defrule ";"  "\e$B!(\e(B")
 123 (its-defrule "\"" "\e$B!I\e(B")
 124 (its-defrule "'"  "\e$B!G\e(B")
 125 (its-defrule "<"  "\e$B!c\e(B")
 126 (its-defrule ">"  "\e$B!d\e(B")
 127 (its-defrule "?"  "\e$B!)\e(B")
 128 (its-defrule "/"  "\e$B!?\e(B")
 129 (its-defrule ","  "\e$B!$\e(B")
 130 (its-defrule "."  "\e$B!%\e(B")
 131
 132 ;;;
 133 ;;;
 134 ;;;
 135
 136 (its-define-mode "zenkaku-upcase"  "\e$B#A\e(B" t) ;92.12.31 by A.Tanaka
 137
 138 (its-defrule "0" "\e$B#0\e(B")
 139 (its-defrule "1" "\e$B#1\e(B")
 140 (its-defrule "2" "\e$B#2\e(B")
 141 (its-defrule "3" "\e$B#3\e(B")
 142 (its-defrule "4" "\e$B#4\e(B")
 143 (its-defrule "5" "\e$B#5\e(B")
 144 (its-defrule "6" "\e$B#6\e(B")
 145 (its-defrule "7" "\e$B#7\e(B")
 146 (its-defrule "8" "\e$B#8\e(B")
 147 (its-defrule "9" "\e$B#9\e(B")
 148
 149 (its-defrule "A" "\e$B#A\e(B")
 150 (its-defrule "B" "\e$B#B\e(B")
 151 (its-defrule "C" "\e$B#C\e(B")
 152 (its-defrule "D" "\e$B#D\e(B")
 153 (its-defrule "E" "\e$B#E\e(B")
 154 (its-defrule "F" "\e$B#F\e(B")
 155 (its-defrule "G" "\e$B#G\e(B")
 156 (its-defrule "H" "\e$B#H\e(B")
 157 (its-defrule "I" "\e$B#I\e(B")
 158 (its-defrule "J" "\e$B#J\e(B")
 159 (its-defrule "K" "\e$B#K\e(B")
 160 (its-defrule "L" "\e$B#L\e(B")
 161 (its-defrule "M" "\e$B#M\e(B")
 162 (its-defrule "N" "\e$B#N\e(B")
 163 (its-defrule "O" "\e$B#O\e(B")
 164 (its-defrule "P" "\e$B#P\e(B")
 165 (its-defrule "Q" "\e$B#Q\e(B")
 166 (its-defrule "R" "\e$B#R\e(B")
 167 (its-defrule "S" "\e$B#S\e(B")
 168 (its-defrule "T" "\e$B#T\e(B")
 169 (its-defrule "U" "\e$B#U\e(B")
 170 (its-defrule "V" "\e$B#V\e(B")
 171 (its-defrule "W" "\e$B#W\e(B")
 172 (its-defrule "X" "\e$B#X\e(B")
 173 (its-defrule "Y" "\e$B#Y\e(B")
 174 (its-defrule "Z" "\e$B#Z\e(B")
 175
 176 (its-defrule "a" "\e$B#A\e(B")
 177 (its-defrule "b" "\e$B#B\e(B")
 178 (its-defrule "c" "\e$B#C\e(B")
 179 (its-defrule "d" "\e$B#D\e(B")
 180 (its-defrule "e" "\e$B#E\e(B")
 181 (its-defrule "f" "\e$B#F\e(B")
 182 (its-defrule "g" "\e$B#G\e(B")
 183 (its-defrule "h" "\e$B#H\e(B")
 184 (its-defrule "i" "\e$B#I\e(B")
 185 (its-defrule "j" "\e$B#J\e(B")
 186 (its-defrule "k" "\e$B#K\e(B")
 187 (its-defrule "l" "\e$B#L\e(B")
 188 (its-defrule "m" "\e$B#M\e(B")
 189 (its-defrule "n" "\e$B#N\e(B")
 190 (its-defrule "o" "\e$B#O\e(B")
 191 (its-defrule "p" "\e$B#P\e(B")
 192 (its-defrule "q" "\e$B#Q\e(B")
 193 (its-defrule "r" "\e$B#R\e(B")
 194 (its-defrule "s" "\e$B#S\e(B")
 195 (its-defrule "t" "\e$B#T\e(B")
 196 (its-defrule "u" "\e$B#U\e(B")
 197 (its-defrule "v" "\e$B#V\e(B")
 198 (its-defrule "w" "\e$B#W\e(B")
 199 (its-defrule "x" "\e$B#X\e(B")
 200 (its-defrule "y" "\e$B#Y\e(B")
 201 (its-defrule "z" "\e$B#Z\e(B")
 202
 203 (its-defrule " "  "\e$B!!\e(B")
 204 (its-defrule "!"  "\e$B!*\e(B")
 205 (its-defrule "@"  "\e$B!w\e(B")
 206 (its-defrule "#"  "\e$B!t\e(B")
 207 (its-defrule "$"  "\e$B!p\e(B")
 208 (its-defrule "%"  "\e$B!s\e(B")
 209 (its-defrule "^"  "\e$B!0\e(B")
 210 (its-defrule "&"  "\e$B!u\e(B")
 211 (its-defrule "*"  "\e$B!v\e(B")
 212 (its-defrule "("  "\e$B!J\e(B")
 213 (its-defrule ")"  "\e$B!K\e(B")
 214 (its-defrule "-"  "\e$B!]\e(B")
 215 (its-defrule "="  "\e$B!a\e(B")
 216 (its-defrule "`"  "\e$B!.\e(B")
 217 (its-defrule "\\" "\e$B!o\e(B")
 218 (its-defrule "|"  "\e$B!C\e(B")
 219 (its-defrule "_"  "\e$B!2\e(B")
 220 (its-defrule "+"  "\e$B!\\e(B")
 221 (its-defrule "~"  "\e$B!1\e(B")
 222 (its-defrule "["  "\e$B!N\e(B")
 223 (its-defrule "]"  "\e$B!O\e(B")
 224 (its-defrule "{"  "\e$B!P\e(B")
 225 (its-defrule "}"  "\e$B!Q\e(B")
 226 (its-defrule ":"  "\e$B!'\e(B")
 227 (its-defrule ";"  "\e$B!(\e(B")
 228 (its-defrule "\"" "\e$B!I\e(B")
 229 (its-defrule "'"  "\e$B!G\e(B")
 230 (its-defrule "<"  "\e$B!c\e(B")
 231 (its-defrule ">"  "\e$B!d\e(B")
 232 (its-defrule "?"  "\e$B!)\e(B")
 233 (its-defrule "/"  "\e$B!?\e(B")
 234 (its-defrule ","  "\e$B!$\e(B")
 235 (its-defrule "."  "\e$B!%\e(B")
 236