code.delx.au - gnu-emacs/blob - leim/quail/ipa.el

   1 ;;; ipa.el --- Quail package for inputting IPA characters  -*-coding: utf-8;-*-
   2
   3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
   4 ;;   2006, 2007, 2008, 2009
   5 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   6 ;;   Registration Number H14PRO021
   7
   8 ;; Keywords: multilingual, input method, IPA
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software: you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation, either version 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 (require 'quail)
  30
  31 (quail-define-package
  32  "ipa" "IPA" "IPA" t
  33  "International Phonetic Alphabet for English, French, German and Italian
  34
  35 Upside-down characters are obtained by a preceding slash (/)."
  36  nil t nil nil nil nil nil nil nil nil t)
  37
  38 (quail-define-rules
  39  ("i" ?i)
  40  ("I" ?ɪ)
  41  ("e" ?e)
  42  ("/3" ?ɛ)
  43  ("E" ?ɛ)
  44  ("ae" ?æ)
  45  ("a" ?a)
  46  ("i-" ?ɨ)
  47  ("/e" ?ə)
  48  ("/a" ?ɐ)
  49  ("/m" ?ɯ)
  50  ("&" ?ɤ)
  51  ("/v" ?ʌ)
  52  ("A" ?ɑ)
  53  ("o|" ?ɑ)
  54  ("y" ?y)
  55  ("Y" ?ʏ)
  56  ("o/" ?ø)
  57  ("oe" ?œ)
  58  ("OE" ?ɶ)
  59  ("u-" ?ʉ)
  60  ("o-" ?ɵ)
  61  ("u" ?u)
  62  ("U" ?ʊ)
  63  ("o" ?o)
  64  ("/c" ?ɔ)
  65  ("/A" ?ɒ)
  66  ("|o" ?ɒ)
  67  ("e-" ?ɚ)
  68  ("e|" ?ɚ)
  69  ("/3~" ["ɛ̃"])
  70  ("E~" ["ɛ̃"])
  71  ("A~" ["ɑ̃"])
  72  ("oe~" ["œ̃"])
  73  ("/c~" ["ɔ̃"])
  74  ("p" ?p)
  75  ("b" ?b)
  76  ("t" ?t)
  77  ("d" ?d)
  78  ("k" ?k)
  79  ("g" ?g)
  80  ("f" ?f)
  81  ("v" ?v)
  82  ("th" ?θ)
  83  ("dh" ?ð)
  84  ("s" ?s)
  85  ("z" ?z)
  86  ("sh" ?ʃ)
  87  ("zh" ?ʒ)
  88  ("3" ?ʒ)
  89  ("c," ?ç)
  90  ("x" ?x)
  91  ("/R" ?ʁ)
  92  ("h" ?h)
  93  ("m" ?m)
  94  ("n" ?n)
  95  ("gn" ?ɲ)
  96  ("ng" ?ŋ)
  97  ("r" ?r)
  98  ("R" ?ʀ)
  99  ("/r" ?ɹ)
 100  ("j" ?j)
 101  ("l" ?l)
 102  ("/y" ?ʎ)
 103  ("L" ?ʟ)
 104  ("/h" ?ɥ)
 105  ("w" ?w)
 106  ("M" ?ʍ)
 107  ("'" ?ˈ)
 108  ("`" ?ˌ)
 109  (":" ?ː))
 110
 111 ;; arch-tag: cf2614cc-ecce-4ef5-ba51-37faeed41691
 112 ;;; ipa.el ends here