cgit.sxemacs.org Git - packages/blob - mule-packages/egg-its/its-hankaku.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
  26 (defvar digit-characters
  27    '( "1"  "2"  "3"  "4" "5"  "6"  "7"  "8"  "9"  "0" ))
  28
  29 (defvar symbol-characters
  30    '( " "  "!"  "@"  "#"  "$"  "%"  "^"  "&"  "*"  "("  ")"
  31       "-"  "="  "`"  "\\" "|"  "_"  "+"  "~" "["  "]"  "{"  "}"
  32       ":"  ";"  "\"" "'"  "<"  ">"  "?"  "/"  ","  "." ))
  33
  34 (defvar downcase-alphabets
  35    '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
  36      "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
  37
  38 (defvar upcase-alphabets
  39    '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
  40      "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
  41
  42 ;;;;
  43 ;;;;
  44 ;;;;
  45
  46 ;; 92.3.16 by K.Handa
  47 ;;(define-its-mode "downcase"  " a a" t)
  48 (its-define-mode "downcase"  "aa" t)
  49
  50 (dolist  (digit digit-characters)
  51   (its-defrule digit  digit))
  52
  53 (dolist (symbol symbol-characters)
  54   (its-defrule symbol symbol))
  55
  56 (dolist (downcase downcase-alphabets)
  57   (its-defrule downcase downcase))
  58
  59 (dolist (upcase upcase-alphabets)
  60   (its-defrule upcase upcase))
  61
  62 ;;;;
  63 ;;;;
  64 ;;;;
  65
  66 (defun upcase-character (ch)
  67   (if (and (<= ?a ch) (<= ch ?z))
  68       (+ ?A (- ch ?a))
  69     ch))
  70
  71 ;; 92.3.16 by K.Handa
  72 ;;(define-its-mode "upcase" " a A" t)
  73 (its-define-mode "upcase" "aA" t);;; 93.7.21 by S.Tomura
  74
  75 (dolist (digit digit-characters)
  76   (its-defrule digit  digit))
  77
  78 (dolist (symbol symbol-characters)
  79   (its-defrule symbol symbol))
  80
  81 (dolist (downcase downcase-alphabets)
  82   (its-defrule downcase (char-to-string (upcase-character (string-to-char downcase)))))
  83
  84 (dolist (upcase upcase-alphabets)
  85   (its-defrule upcase upcase))
  86