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

   1 ;;; indian.el --- Quail packages for inputting Indian
   2
   3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author: KAWABATA, Taichi <kawabata@m17n.org>
   7
   8 ;; Keywords: multilingual, input method, Indian, Devanagari
   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, or (at your option)
  15 ;; 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; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  25 ;; Boston, MA 02110-1301, USA.
  26
  27 ;;; Commentary:
  28
  29 ;; History:
  30
  31 ;; 2000.12.12
  32 ;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
  33
  34 ;;; Code:
  35
  36 (require 'quail)
  37 (require 'ind-util)
  38 (require 'devan-util)
  39
  40 ;;;
  41 ;;; Input by transliteration
  42 ;;;
  43
  44 (defun quail-define-indian-trans-package (hashtbls pkgname
  45                                                    lang title doc)
  46   (funcall 'quail-define-package pkgname lang title t doc
  47            nil nil nil nil nil nil t nil)
  48   (maphash
  49    (lambda (key val)
  50      (quail-defrule key (if (= (length val) 1)
  51                             (string-to-char val)
  52                           (vector val))))
  53    (cdr hashtbls)))
  54
  55 ;; This needs to be seen by quail-update-leim-list-file, but cannot be
  56 ;; commented out because quail-update-leim-list-file ignores
  57 ;; commented-out lines.
  58 (if nil
  59     (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS"))
  60 (quail-define-indian-trans-package
  61  indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
  62  "Devanagari transliteration by ITRANS method.")
  63
  64 (if nil
  65     (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard"))
  66 (quail-define-indian-trans-package
  67  indian-dev-kyoto-harvard-hash
  68  "devanagari-kyoto-harvard" "Devanagari" "DevKH"
  69  "Devanagari transliteration by Kyoto-Harvard method.")
  70
  71 (if nil
  72     (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba"))
  73 (quail-define-indian-trans-package
  74  indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
  75  "Devanagari transliteration by Aiba-method.")
  76
  77 (if nil
  78     (quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS"))
  79 (quail-define-indian-trans-package
  80  indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT"
  81  "Punjabi transliteration by ITRANS method.")
  82
  83 (if nil
  84     (quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS"))
  85 (quail-define-indian-trans-package
  86  indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT"
  87  "Gujarati transliteration by ITRANS method.")
  88
  89 (if nil
  90     (quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS"))
  91 (quail-define-indian-trans-package
  92  indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT"
  93  "Oriya transliteration by ITRANS method.")
  94
  95 (if nil
  96     (quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS"))
  97 (quail-define-indian-trans-package
  98  indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT"
  99  "Bengali transliteration by ITRANS method.")
 100
 101 (if nil
 102     (quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS"))
 103 (quail-define-indian-trans-package
 104  indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT"
 105  "Assamese transliteration by ITRANS method.")
 106
 107 (if nil
 108     (quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS"))
 109 (quail-define-indian-trans-package
 110  indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT"
 111  "Telugu transliteration by ITRANS method.")
 112
 113 (if nil
 114     (quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS"))
 115 (quail-define-indian-trans-package
 116  indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT"
 117  "Kannada transliteration by ITRANS method.")
 118
 119 (if nil
 120     (quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS"))
 121 (quail-define-indian-trans-package
 122  indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT"
 123  "Malayalam transliteration by ITRANS method.")
 124
 125 (if nil
 126     (quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS"))
 127 (quail-define-indian-trans-package
 128  indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT"
 129  "Tamil transliteration by ITRANS method.")
 130
 131
 132 ;;;
 133 ;;; Input by Inscript
 134 ;;;
 135
 136 (defun quail-define-inscript-package (char-tables key-tables pkgname lang
 137                                                   title docstring)
 138   (funcall 'quail-define-package pkgname lang title nil docstring
 139            nil nil nil nil nil nil nil nil)
 140   (let (char-table key-table char key)
 141     (while (and char-tables key-tables)
 142       (setq char-table  (car char-tables)
 143             char-tables (cdr char-tables)
 144             key-table   (car key-tables)
 145             key-tables  (cdr key-tables))
 146       (while (and char-table key-table)
 147         (setq char       (car char-table)
 148               char-table (cdr char-table)
 149               key        (car key-table)
 150               key-table  (cdr key-table))
 151         (if (and (consp char) (consp key))
 152             (setq char-table (append char char-table)
 153                   key-table  (append key  key-table))
 154           (if (and key char)
 155               (quail-defrule
 156                (if (characterp key) (char-to-string key) key)
 157                (if (stringp char)   (vector char) char))))))))
 158
 159 ;;
 160
 161 (defvar inscript-dev-keytable
 162   '(
 163     (;; VOWELS  (18)
 164      (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
 165      (?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w)
 166      (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
 167     (;; CONSONANTS (42)
 168      ?k ?K ?i ?I ?U                ;; GRUTTALS
 169      ?\; ?: ?p ?P ?}               ;; PALATALS
 170      ?' ?\" ?\[ ?{ ?C              ;; CEREBRALS
 171      ?l ?L ?o ?O ?v ?V             ;; DENTALS
 172      ?h ?H ?y ?Y ?c                ;; LABIALS
 173      ?/ ?j ?J ?n ?N "N]" ?b        ;; SEMIVOWELS
 174      ?M ?< ?m ?u                   ;; SIBILANTS
 175      "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
 176      ?% ?&)
 177     (;; Misc Symbols (7)
 178      ?X ?x ?_ ">]" ?d "X]" ?>)
 179     (;; Digits
 180      ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
 181     (;; Inscripts
 182      ?# ?$ ?^ ?* ?\])))
 183
 184 (defvar inscript-tml-keytable
 185   '(
 186     (;; VOWELS  (18)
 187      (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
 188      nil nil nil (?S ?s) (?Z ?z) (?W ?w)
 189      nil (?A ?a) (?~ ?`) (?Q ?q) nil nil)
 190     (;; CONSONANTS (42)
 191      ?k ?K ?i ?I ?U                ;; GRUTTALS
 192      ?\; ?: ?p ?P ?}               ;; PALATALS
 193      ?' ?\" ?\[ ?{ ?C              ;; CEREBRALS
 194      ?l ?L ?o ?O ?v ?V             ;; DENTALS
 195      ?h ?H ?y ?Y ?c                ;; LABIALS
 196      ?/ ?j ?J ?n ?N "N]" ?b        ;; SEMIVOWELS
 197      ?M ?< ?m ?u                   ;; SIBILANTS
 198      "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
 199      ?% ?&)
 200     (;; Misc Symbols (7)
 201      ?X ?x ?_ ">]" ?d "X]" ?>)
 202     (;; Digits
 203      ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
 204     (;; Inscripts
 205      ?# ?$ ?^ ?* ?\])))
 206
 207 (if nil
 208     (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript"))
 209 (quail-define-inscript-package
 210  indian-dev-base-table inscript-dev-keytable
 211  "devanagari-inscript" "Devanagari" "DevIS"
 212  "Devanagari keyboard Inscript.")
 213
 214 (if nil
 215     (quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript"))
 216 (quail-define-inscript-package
 217  indian-pnj-base-table inscript-dev-keytable
 218  "punjabi-inscript" "Punjabi" "PnjIS"
 219  "Punjabi keyboard Inscript.")
 220
 221 (if nil
 222     (quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript"))
 223 (quail-define-inscript-package
 224  indian-gjr-base-table inscript-dev-keytable
 225  "gujarati-inscript" "Gujarati" "GjrIS"
 226  "Gujarati keyboard Inscript.")
 227
 228 (if nil
 229     (quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript"))
 230 (quail-define-inscript-package
 231  indian-ori-base-table inscript-dev-keytable
 232  "oriya-inscript" "Oriya" "OriIS"
 233  "Oriya keyboard Inscript.")
 234
 235 (if nil
 236     (quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript"))
 237 (quail-define-inscript-package
 238  indian-bng-base-table inscript-dev-keytable
 239  "bengali-inscript" "Bengali" "BngIS"
 240  "Bengali keyboard Inscript.")
 241
 242 (if nil
 243     (quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript"))
 244 (quail-define-inscript-package
 245  indian-asm-base-table inscript-dev-keytable
 246  "assamese-inscript" "Assamese" "AsmIS"
 247  "Assamese keyboard Inscript.")
 248
 249 (if nil
 250     (quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript"))
 251 (quail-define-inscript-package
 252  indian-dev-base-table inscript-dev-keytable
 253  "telugu-inscript" "Telugu" "TlgIS"
 254  "Telugu keyboard Inscript.")
 255
 256 (if nil
 257     (quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript"))
 258 (quail-define-inscript-package
 259  indian-knd-base-table inscript-dev-keytable
 260  "kannada-inscript" "Kannada" "KndIS"
 261  "Kannada keyboard Inscript.")
 262
 263 (if nil
 264     (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript"))
 265 (quail-define-inscript-package
 266  indian-mlm-base-table inscript-dev-keytable
 267  "malayalam-inscript" "Malayalam" "MlmIS"
 268  "Malayalam keyboard Inscript.")
 269
 270 (if nil
 271     (quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
 272 (quail-define-inscript-package
 273  indian-tml-base-table inscript-tml-keytable
 274  "tamil-inscript" "Tamil" "TmlIS"
 275  "Tamil keyboard Inscript.")
 276
 277 ;;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
 278 ;;; indian.el ends here