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

   1 ;;; indian.el --- Quail packages for inputting Indian
   2
   3 ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
   4
   5 ;; Author: KAWABATA, Taichi <kawabata@m17n.org>
   6
   7 ;; Keywords: multilingual, input method, Indian, Devanagari
   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., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; History:
  29
  30 ;; 2000.12.12
  31 ;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
  32
  33 ;;; Code:
  34
  35 (require 'quail)
  36 (require 'devan-util)
  37 (require 'ind-util)
  38
  39 (defun quail-indian-preceding-char-position (position)
  40   "Return the position of preceding composite character."
  41   (let (prec-composed)
  42     (if (char-valid-p (char-before position)) ;; range o.k.
  43         (if (setq prec-composed (find-composition (1- position)))
  44             (car prec-composed)
  45           (1- position))
  46       nil)))
  47
  48 (defvar quail-indian-update-preceding-char nil)
  49 (make-variable-frame-local 'quail-indian-update-preceding-char)
  50
  51 ;;; update function
  52
  53 ;; CONTROL-FLAG is integer (n)
  54 ;;     quail-current-key :: keyboard input.
  55 ;;                          Only first n can be translated.
  56 ;;     quail-current-string :: corresonding string.  Translated when last
  57 ;;                             time CONTROL-FLAG is nil.
  58 ;;     todo :: (1) put last (len-n) char to unrread-command-event.
  59 ;;             (2) put translated string to  quail-current-string.
  60 ;;
  61 ;; CONTROL-FLAG is t (terminate) or nil (proceed the translation)
  62 ;;     quail-current-key :: keyboard input.
  63 ;;     quail-current-string :: corresponding string.  Created by database.
  64 ;;     todo :: (1) put modified translated string to quail-current-string.
  65
  66 (defun quail-indian-update-translation (control-flag)
  67   ;;(message "input control-flag=%s, string=%s, key=%s"
  68   ;;         control-flag quail-current-str quail-current-key)
  69   ;; make quail-current-str string when possible.
  70   (if (char-valid-p quail-current-str)
  71       (setq quail-current-str (char-to-string quail-current-str)))
  72   ;; reset quail-indian-update-preceding-char if it's initial.
  73   (if (= (overlay-start quail-overlay) (overlay-end quail-overlay))
  74       (setq quail-indian-update-preceding-char nil))
  75   ;; set quial-indian-update-preceding-char if appropriate.
  76   (let* (prec-char-position composition-regexp
  77          prec-char-str candidate-str match-pos match-end)
  78     (when (and quail-current-str
  79                (null input-method-use-echo-area)
  80                (null input-method-exit-on-first-char)
  81                (setq prec-char-position
  82                      (quail-indian-preceding-char-position
  83                       (overlay-start quail-overlay)))
  84                (setq composition-regexp
  85                      (if prec-char-position
  86                          (caar (elt composition-function-table
  87                                     (char-after prec-char-position)))))
  88                ;; (null quail-indian-update-preceding-char)
  89                (setq prec-char-str
  90                      (buffer-substring prec-char-position
  91                                        (overlay-start quail-overlay))
  92                      candidate-str (concat prec-char-str quail-current-str)
  93                      match-pos (string-match composition-regexp candidate-str)
  94                      match-end (match-end 0))
  95                (> match-end (length prec-char-str)))
  96       (setq quail-indian-update-preceding-char prec-char-str)
  97       (delete-region prec-char-position
  98                      (overlay-start quail-overlay))))
  99   ;; make quail-current-str string when possible.
 100   (if (null quail-current-str)
 101       (setq quail-current-str ""))
 102   ;; set quail-current-str unless control-flag is number.
 103   (if (numberp control-flag)
 104       (setq quail-indian-update-preceding-char nil
 105             quail-current-str
 106             (if (equal quail-current-str "")
 107                 (substring quail-current-key 0 control-flag)
 108               (indian-compose-string quail-current-str))
 109             unread-command-events
 110             (string-to-list
 111              (substring quail-current-key control-flag)))
 112     (if quail-indian-update-preceding-char
 113         (setq quail-current-str
 114               (concat quail-indian-update-preceding-char
 115                       quail-current-str)))
 116     (setq quail-current-str
 117           (indian-compose-string quail-current-str)))
 118   (when (eq t control-flag)
 119     ;; reset preceding-char if translation is terminated.
 120     (setq quail-indian-update-preceding-char nil))
 121     ;; compose to previous char if it looks possible.
 122   ;;(message "  out control-flag=%s, string=%s, key=%s"
 123   ;;         control-flag quail-current-str quail-current-key)
 124   control-flag)
 125
 126 ;;;
 127 ;;; Input by transliteration
 128 ;;;
 129
 130 (defun quail-define-indian-trans-package (hashtbls pkgname
 131                                                    lang title doc)
 132   (funcall 'quail-define-package pkgname lang title t doc
 133            nil nil nil nil nil nil t nil
 134            'quail-indian-update-translation)
 135   (maphash
 136    '(lambda (key val)
 137       (quail-defrule key (if (= (length val) 1)
 138                              (string-to-char val)
 139                            (vector val))))
 140    (cdr hashtbls)))
 141
 142 ;;
 143
 144 ;; (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS")
 145 (quail-define-indian-trans-package
 146  indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
 147  "Devanagari transliteration by ITRANS method.")
 148
 149 ;; (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard")
 150 (quail-define-indian-trans-package
 151  indian-dev-kyoto-harvard-hash
 152  "devanagari-kyoto-harvard" "Devanagari" "DevKH"
 153  "Devanagari transliteration by Kyoto-Harvard method.")
 154
 155 ;; (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba")
 156 (quail-define-indian-trans-package
 157  indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
 158  "Devanagari transliteration by Aiba-method.")
 159
 160 ;;;
 161 ;;; Input by Inscript
 162 ;;;
 163
 164 (defun quail-indian-flatten-list (lst)
 165   "Flatten the nested LIST so that there would be no innner list."
 166   (if (listp lst)
 167       (apply 'append (mapcar 'quail-indian-flatten-list lst))
 168     (list lst)))
 169
 170 (defun quail-define-inscript-package (char-table key-table pkgname lang title
 171                                                  docstring)
 172   (setq char-table (quail-indian-flatten-list char-table))
 173   (setq key-table (quail-indian-flatten-list key-table))
 174   (funcall 'quail-define-package pkgname lang title nil docstring
 175            nil nil nil nil nil nil nil nil
 176            'quail-indian-update-translation
 177            )
 178   (mapcar*
 179    '(lambda (key val)
 180       (and key val
 181            (quail-defrule
 182             (if (char-valid-p key) (char-to-string key) key)
 183             (if (stringp val) (vector val) val))))
 184    key-table char-table))
 185
 186 ;;
 187
 188 (defvar inscript-dev-keytable
 189   '(
 190     (;; VOWELS  (18)
 191      (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
 192      (?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w)
 193      (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
 194     (;; CONSONANTS (42)
 195      ?k ?K ?i ?I ?U                ;; GRUTTALS
 196      ?\; ?: ?p ?P ?}               ;; PALATALS
 197      ?' ?\" ?\[ ?{ ?C              ;; CEREBRALS
 198      ?l ?L ?o ?O ?v ?V             ;; DENTALS
 199      ?h ?H ?y ?Y ?c                ;; LABIALS
 200      ?/ ?j ?J ?n ?N "N]" ?b        ;; SEMIVOWELS
 201      ?M ?< ?m ?u                   ;; SIBILANTS
 202      "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
 203      ?% ?&)
 204     (;; Misc Symbols (7)
 205      ?X ?x ?_ ">]" ?d "X]" ?>)
 206     (;; Digits
 207      ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
 208     (;; Inscripts
 209      ?# ?$ ?^ ?* ?\])))
 210
 211 ;; (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript")
 212 (quail-define-inscript-package
 213  indian-dev-base-table inscript-dev-keytable
 214  "devanagari-inscript" "Devanagari" "DevIS"
 215  "Devanagari keyboard Inscript.")
 216
 217 ;;; indian.el ends here