mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity
989bf36895
emacs/leim/quail/indian.el
Glenn Morris 95df8112a0 Refill some long/short copyright headers.
2011-01-26 00:36:39 -08:00

297 lines
10 KiB
EmacsLisp
Raw Blame History

;;; indian.el --- Quail packages for inputting Indian
;; Copyright (C) 2000-2011 Free Software Foundation, Inc.
;; Author: KAWABATA, Taichi <kawabata@m17n.org>
;; Keywords: multilingual, input method, Indian, Devanagari
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; History:
;; 2000.12.12
;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
;;; Code:
(require 'quail)
(require 'ind-util)
;;;
;;; Input by transliteration
;;;
(defun quail-define-indian-trans-package (hashtbls pkgname
lang title doc)
(funcall 'quail-define-package pkgname lang title t doc
nil nil nil nil nil nil t nil)
(maphash
(lambda (key val)
(quail-defrule key (if (= (length val) 1)
(string-to-char val)
(vector val))))
(cdr hashtbls)))
;; This needs to be seen by quail-update-leim-list-file, but cannot be
;; commented out because quail-update-leim-list-file ignores
;; commented-out lines.
(if nil
(quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS"))
(quail-define-indian-trans-package
indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
"Devanagari transliteration by ITRANS method.")
(if nil
(quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard"))
(quail-define-indian-trans-package
indian-dev-kyoto-harvard-hash
"devanagari-kyoto-harvard" "Devanagari" "DevKH"
"Devanagari transliteration by Kyoto-Harvard method.")
(if nil
(quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba"))
(quail-define-indian-trans-package
indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
"Devanagari transliteration by Aiba-method.")
(if nil
(quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS"))
(quail-define-indian-trans-package
indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT"
"Punjabi transliteration by ITRANS method.")
(if nil
(quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS"))
(quail-define-indian-trans-package
indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT"
"Gujarati transliteration by ITRANS method.")
(if nil
(quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS"))
(quail-define-indian-trans-package
indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT"
"Oriya transliteration by ITRANS method.")
(if nil
(quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS"))
(quail-define-indian-trans-package
indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT"
"Bengali transliteration by ITRANS method.")
(if nil
(quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS"))
(quail-define-indian-trans-package
indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT"
"Assamese transliteration by ITRANS method.")
(if nil
(quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS"))
(quail-define-indian-trans-package
indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT"
"Telugu transliteration by ITRANS method.")
(if nil
(quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS"))
(quail-define-indian-trans-package
indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT"
"Kannada transliteration by ITRANS method.")
(if nil
(quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS"))
(quail-define-indian-trans-package
indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT"
"Malayalam transliteration by ITRANS method.")
(if nil
(quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS"))
(quail-define-indian-trans-package
indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT"
"Tamil transliteration by ITRANS method.")
;;;
;;; Input by Inscript
;;;
(defun quail-define-inscript-package (char-tables key-tables pkgname lang
title docstring)
(funcall 'quail-define-package pkgname lang title nil docstring
nil nil nil nil nil nil nil nil)
(let (char-table key-table char key)
(while (and char-tables key-tables)
(setq char-table (car char-tables)
char-tables (cdr char-tables)
key-table (car key-tables)
key-tables (cdr key-tables))
(while (and char-table key-table)
(setq char (car char-table)
char-table (cdr char-table)
key (car key-table)
key-table (cdr key-table))
(if (and (consp char) (consp key))
(setq char-table (append char char-table)
key-table (append key key-table))
(if (and key char)
(quail-defrule
(if (characterp key) (char-to-string key) key)
(if (stringp char) (vector char) char))))))))
;;
(defvar inscript-dev-keytable
'(
(;; VOWELS (18)
(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
(?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w)
(?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
(;; CONSONANTS (42)
?k ?K ?i ?I ?U ;; GRUTTALS
?\; ?: ?p ?P ?} ;; PALATALS
?' ?\" ?\[ ?{ ?C ;; CEREBRALS
?l ?L ?o ?O ?v ?V ;; DENTALS
?h ?H ?y ?Y ?c ;; LABIALS
?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
?M ?< ?m ?u ;; SIBILANTS
"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
?% ?&)
(;; Misc Symbols (7)
?X ?x ?_ ">]" ?d "X]" ?>)
(;; Digits
?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
(;; Inscripts
?# ?$ ?^ ?* ?\])))
(defvar inscript-mlm-keytable
'(
(;; VOWELS (18)
(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
(?+ ?=) ("F]" "f]") (?! ?@) (?S ?s) (?Z ?z) (?W ?w)
(?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
(;; CONSONANTS (42)
?k ?K ?i ?I ?U ;; GRUTTALS
?\; ?: ?p ?P ?} ;; PALATALS
?' ?\" ?\[ ?{ ?C ;; CEREBRALS
?l ?L ?o ?O ?v ?V ;; DENTALS
?h ?H ?y ?Y ?c ;; LABIALS
?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
?M ?< ?m ?u ;; SIBILANTS
"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
?% ?&)
(;; Misc Symbols (7)
?X ?x ?_ ">]" ?d "X]" ?>)
(;; Digits
?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
(;; Inscripts
?# ?$ ?^ ?* ?\])))
(defvar inscript-tml-keytable
'(
(;; VOWELS (18)
(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
nil nil nil (?S ?s) (?Z ?z) (?W ?w)
nil (?A ?a) (?~ ?`) (?Q ?q) nil nil)
(;; CONSONANTS (42)
?k ?K ?i ?I ?U ;; GRUTTALS
?\; ?: ?p ?P ?} ;; PALATALS
?' ?\" ?\[ ?{ ?C ;; CEREBRALS
?l ?L ?o ?O ?v ?V ;; DENTALS
?h ?H ?y ?Y ?c ;; LABIALS
?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
?M ?< ?m ?u ;; SIBILANTS
"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
?% ?&)
(;; Misc Symbols (7)
?X ?x ?_ ">]" ?d "X]" ?>)
(;; Digits
?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
(;; Inscripts
?# ?$ ?^ ?* ?\])))
(if nil
(quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript"))
(quail-define-inscript-package
indian-dev-base-table inscript-dev-keytable
"devanagari-inscript" "Devanagari" "DevIS"
"Devanagari keyboard Inscript.")
(if nil
(quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript"))
(quail-define-inscript-package
indian-pnj-base-table inscript-dev-keytable
"punjabi-inscript" "Punjabi" "PnjIS"
"Punjabi keyboard Inscript.")
(if nil
(quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript"))
(quail-define-inscript-package
indian-gjr-base-table inscript-dev-keytable
"gujarati-inscript" "Gujarati" "GjrIS"
"Gujarati keyboard Inscript.")
(if nil
(quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript"))
(quail-define-inscript-package
indian-ori-base-table inscript-dev-keytable
"oriya-inscript" "Oriya" "OriIS"
"Oriya keyboard Inscript.")
(if nil
(quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript"))
(quail-define-inscript-package
indian-bng-base-table inscript-dev-keytable
"bengali-inscript" "Bengali" "BngIS"
"Bengali keyboard Inscript.")
(if nil
(quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript"))
(quail-define-inscript-package
indian-asm-base-table inscript-dev-keytable
"assamese-inscript" "Assamese" "AsmIS"
"Assamese keyboard Inscript.")
(if nil
(quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript"))
(quail-define-inscript-package
indian-dev-base-table inscript-dev-keytable
"telugu-inscript" "Telugu" "TlgIS"
"Telugu keyboard Inscript.")
(if nil
(quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript"))
(quail-define-inscript-package
indian-knd-base-table inscript-dev-keytable
"kannada-inscript" "Kannada" "KndIS"
"Kannada keyboard Inscript.")
(if nil
(quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript"))
(quail-define-inscript-package
indian-mlm-base-table inscript-mlm-keytable
"malayalam-inscript" "Malayalam" "MlmIS"
"Malayalam keyboard Inscript.")
(if nil
(quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
(quail-define-inscript-package
indian-tml-base-table inscript-tml-keytable
"tamil-inscript" "Tamil" "TmlIS"
"Tamil keyboard Inscript.")
;;; indian.el ends here
Reference in New Issue View Git Blame Copy Permalink