leim/quail/ipa.el

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