mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-28 10:56:36 +00:00
88 lines
2.6 KiB
EmacsLisp
88 lines
2.6 KiB
EmacsLisp
;;; indian.el --- Indian languages support -*- coding: iso-2022-7bit; -*-
|
|
|
|
;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
|
|
|
|
;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
|
|
;; Keywords: multilingual, i18n, Indian
|
|
|
|
;; 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 2, 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; see the file COPYING. If not, write to the
|
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
;; Boston, MA 02111-1307, USA.
|
|
|
|
;;; Commentary:
|
|
|
|
;; This file defines in-is13194 coding system and relationship between
|
|
;; indian-glyph character-set and various CDAC fonts.
|
|
|
|
;;; Code:
|
|
|
|
(make-coding-system
|
|
'in-is13194 2 ?D
|
|
"8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)."
|
|
'(ascii indian-is13194 nil nil
|
|
nil ascii-eol)
|
|
`((safe-chars . ,(let ((table (make-char-table 'safe-chars nil)))
|
|
(set-char-table-range table 'indian-is13194 t)
|
|
(dotimes (i 127)
|
|
(aset table i t)
|
|
(aset table (decode-char 'ucs (+ #x900 i)) t))
|
|
table))
|
|
(post-read-conversion . in-is13194-post-read-conversion)
|
|
(pre-write-conversion . in-is13194-pre-write-conversion)))
|
|
|
|
(define-coding-system-alias 'devanagari 'in-is13194)
|
|
|
|
(defvar indian-script-table
|
|
'[
|
|
devanagari
|
|
sanskrit
|
|
bengali
|
|
tamil
|
|
telugu
|
|
assamese
|
|
oriya
|
|
kannada
|
|
malayalam
|
|
gujarati
|
|
punjabi
|
|
]
|
|
"Vector of Indian script names.")
|
|
|
|
(let ((len (length indian-script-table))
|
|
(i 0))
|
|
(while (< i len)
|
|
(put (aref indian-script-table i) 'indian-glyph-code-offset (* 256 i))
|
|
(setq i (1+ i))))
|
|
|
|
(defvar indian-default-script 'devanagari
|
|
"Default script for Indian languages.
|
|
Each Indian language environment sets this value
|
|
to one of `indian-script-table' (which see).
|
|
The default value is `devanagari'.")
|
|
|
|
(define-ccl-program ccl-encode-indian-glyph-font
|
|
`(0
|
|
;; Shorten (r1 = (((((r1 - 32) * 96) + r2) - 32) % 256))
|
|
(r1 = ((((r1 * 96) + r2) - ,(+ (* 32 96) 32)) % 256))))
|
|
|
|
(setq font-ccl-encoder-alist
|
|
(cons (cons "-CDAC" 'ccl-encode-indian-glyph-font)
|
|
font-ccl-encoder-alist))
|
|
|
|
(provide 'indian)
|
|
|
|
;;; indian.el ends here
|