leim/quail/ipa.el

   1 ;;; quail/ipa.el -- Quail package for inputting IPA characters
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, input method, IPA
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (require 'quail)
  28
  29 (quail-define-package
  30  "ipa" "IPA" "IPA" t
  31  "International Phonetic Alphabet for English, French, German and Italian
  32
  33 Upside-down characters are obtained by a preceding slash (/)."
  34  nil t)
  35
  36 (quail-define-rules
  37  ("i" ?\e,0 \e(B)
  38  ("I" ?\e,0!\e(B)
  39  ("e" ?\e,0"\e(B)
  40  ("/3" ?\e,0#\e(B)
  41  ("E" ?\e,0#\e(B)
  42  ("ae" ?\e,0$\e(B)
  43  ("a" ?\e,0%\e(B)
  44  ("i-" ?\e,0&\e(B)
  45  ("/e" ?\e,0'\e(B)
  46  ("/a" ?\e,0(\e(B)
  47  ("/m" ?\e,0)\e(B)
  48  ("&" ?\e,0*\e(B)
  49  ("/v" ?\e,0+\e(B)
  50  ("A" ?\e,0,\e(B)
  51  ("o|" ?\e,0,\e(B)
  52  ("y" ?\e,0-\e(B)
  53  ("Y" ?\e,0.\e(B)
  54  ("o/" ?\e,0/\e(B)
  55  ("oe" ?\e,00\e(B)
  56  ("OE" ?\e,01\e(B)
  57  ("u-" ?\e,02\e(B)
  58  ("o-" ?\e,03\e(B)
  59  ("u" ?\e,04\e(B)
  60  ("U" ?\e,05\e(B)
  61  ("o" ?\e,06\e(B)
  62  ("/c" ?\e,07\e(B)
  63  ("/A" ?\e,08\e(B)
  64  ("|o" ?\e,08\e(B)
  65  ("e-" ?\e,0:\e(B)
  66  ("e|" ?\e,0:\e(B)
  67  ("/3~" ?\e,0;\e(B)
  68  ("E~" ?\e,0;\e(B)
  69  ("A~" ?\e,0<\e(B)
  70  ("oe~" ?\e,0=\e(B)
  71  ("/c~" ?\e,0>\e(B)
  72  ("p" ?\e,0@\e(B)
  73  ("b" ?\e,0A\e(B)
  74  ("t" ?\e,0B\e(B)
  75  ("d" ?\e,0C\e(B)
  76  ("k" ?\e,0D\e(B)
  77  ("g" ?\e,0E\e(B)
  78  ("f" ?\e,0F\e(B)
  79  ("v" ?\e,0G\e(B)
  80  ("th" ?\e,0H\e(B)
  81  ("dh" ?\e,0I\e(B)
  82  ("s" ?\e,0J\e(B)
  83  ("z" ?\e,0K\e(B)
  84  ("sh" ?\e,0L\e(B)
  85  ("zh" ?\e,0M\e(B)
  86  ("3" ?\e,0M\e(B)
  87  ("c," ?\e,0N\e(B)
  88  ("x" ?\e,0O\e(B)
  89  ("/R" ?\e,0P\e(B)
  90  ("h" ?\e,0Q\e(B)
  91  ("m" ?\e,0R\e(B)
  92  ("n" ?\e,0S\e(B)
  93  ("gn" ?\e,0T\e(B)
  94  ("ng" ?\e,0U\e(B)
  95  ("r" ?\e,0V\e(B)
  96  ("R" ?\e,0W\e(B)
  97  ("/r" ?\e,0X\e(B)
  98  ("j" ?\e,0Y\e(B)
  99  ("l" ?\e,0Z\e(B)
 100  ("/y" ?\e,0[\e(B)
 101  ("L" ?\e,0\\e(B)
 102  ("/h" ?\e,0]\e(B)
 103  ("w" ?\e,0^\e(B)
 104  ("M" ?\e,0_\e(B)
 105  ("'" ?\e,0p\e(B)
 106  ("`" ?\e,0q\e(B)
 107  (":" ?\e,0r\e(B))