Lines Matching +defs:table +defs:string
50 (defvar indian-dev-base-table
74 (defvar indian-pnj-base-table
97 (defvar indian-gjr-base-table
120 (defvar indian-ori-base-table
143 (defvar indian-bng-base-table
166 (defvar indian-asm-base-table
189 (defvar indian-tlg-base-table
212 (defvar indian-knd-base-table
235 (defvar indian-mlm-base-table
258 (defvar indian-tml-base-table
281 (defvar indian-base-table-to-language-alist
282 '((indian-dev-base-table . "Devanagari")
283 (indian-pnj-base-table . "Punjabi")
284 (indian-ori-base-table . "Oriya")
285 (indian-bng-base-table . "Bengali")
286 (indian-asm-base-table . "Assamese")
287 (indian-tlg-base-table . "Telugu")
288 (indian-knd-base-table . "Kannada")
289 (indian-mlm-base-table . "Malayalam")
290 (indian-tml-base-table . "Tamil")))
292 (defvar indian-itrans-v5-table
311 (defvar indian-kyoto-harvard-table
330 (defvar indian-harvard-table
349 (defvar indian-tokyo-table
368 (defvar indian-aiba-table
407 ;; char -- nil / char / string (/ list of vowel & matra)
408 ;; trans-char -- nil / string / list of strings
411 (if (char-valid-p char) (setq char (char-to-string char)))
429 (if (char-valid-p c) (setq c (char-to-string c)))
445 (if (char-valid-p c) (setq c (char-to-string c)))
446 (setq v (if (char-valid-p (cadr v)) (char-to-string (cadr v)) ""))
457 (defun indian-make-hash (table trans-table)
459 (let* ((encode-hash (make-hash-table :test 'equal))
460 (decode-hash (make-hash-table :test 'equal))
462 (vowels (elt table 0))
463 (consonants (elt table 1))
464 (misc (elt table 2))
465 (digits (elt table 3))
466 (halant (char-to-string (elt misc 4)))
467 (trans-vowels (elt trans-table 0))
468 (trans-consonants (elt trans-table 1))
469 (trans-misc (elt trans-table 2))
480 (indian-make-hash indian-dev-base-table
481 indian-itrans-v5-table))
483 (indian-make-hash indian-dev-base-table
484 indian-kyoto-harvard-table))
486 (indian-make-hash indian-dev-base-table
487 indian-aiba-table))
490 (indian-make-hash indian-pnj-base-table
491 indian-itrans-v5-table))
494 (indian-make-hash indian-gjr-base-table
495 indian-itrans-v5-table))
498 (indian-make-hash indian-ori-base-table
499 indian-itrans-v5-table))
502 (indian-make-hash indian-bng-base-table
503 indian-itrans-v5-table))
506 (indian-make-hash indian-asm-base-table
507 indian-itrans-v5-table))
510 (indian-make-hash indian-tlg-base-table
511 indian-itrans-v5-table))
514 (indian-make-hash indian-knd-base-table
515 indian-itrans-v5-table))
518 (indian-make-hash indian-mlm-base-table
519 indian-itrans-v5-table))
522 (indian-make-hash indian-tml-base-table
523 indian-itrans-v5-table))
535 (let ((matchstr (gethash (match-string 0)
765 (set hashtable (make-hash-table :test 'equal :size 128))
772 (puthash (cdr x) (char-to-string (decode-char 'ucs (car x)))
782 (concat "[" (char-to-string (decode-char 'ucs #x0900))
783 "-" (char-to-string (decode-char 'ucs #x097f)) "]")
798 (get-char-code-property (string-to-char (match-string 0))
820 (gethash (match-string 0) (eval current-hashtable) ""))))
825 "Compose the region according to `composition-function-table'."
836 (defun indian-compose-string (string)
838 (insert string)
840 (buffer-string)))
1197 (put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1)
1199 (let ((table (make-char-table 'indian-2-column-to-ucs-chartable))
1203 (aset table (aref (car elt) 0) (cdr elt))
1205 (set-char-table-extra-slot table 0 alist)
1206 table))
1214 (alist (char-table-extra-slot indian-2-column-to-ucs-chartable 0)))
1224 (setq subst (cdr (assoc (match-string 0) alist))))
1246 255 (aref indian-script-table (1- (length indian-script-table))))
1262 (cons (% code 256) (aref indian-script-table (/ code 256)))))