mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-19 18:13:55 +00:00
119 lines
3.9 KiB
EmacsLisp
119 lines
3.9 KiB
EmacsLisp
;;; indian.el --- Indian languages support -*- coding: iso-2022-7bit; -*-
|
|
|
|
;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
|
|
|
|
;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp>
|
|
;; Keywords: multilingual, 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-charsets ascii indian-is13194)
|
|
(post-read-conversion . in-is13194-post-read-conversion)
|
|
(pre-write-conversion . in-is13194-pre-write-conversion)))
|
|
|
|
(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'.")
|
|
|
|
(defun indian-glyph-char (index &optional script)
|
|
"Return character of charset `indian-glyph' made from glyph index INDEX.
|
|
The variable `indian-default-script' specifies the script of the glyph.
|
|
Optional argument SCRIPT, if non-nil, overrides `indian-default-script'.
|
|
See also the function `indian-char-glyph'."
|
|
(or script
|
|
(setq script indian-default-script))
|
|
(let ((offset (get script 'indian-glyph-code-offset)))
|
|
(or (integerp offset)
|
|
(error "Invalid script name: %s" script))
|
|
(or (and (>= index 0) (< index 256))
|
|
(error "Invalid glyph index: %d" index))
|
|
(setq index (+ offset index))
|
|
(make-char 'indian-glyph (+ (/ index 96) 32) (+ (% index 96) 32))))
|
|
|
|
(defvar indian-glyph-max-char
|
|
(indian-glyph-char
|
|
255 (aref indian-script-table (1- (length indian-script-table))))
|
|
"The maximum valid code of characters in the charset `indian-glyph'")
|
|
|
|
(defun indian-char-glyph (char)
|
|
"Return information about the glphy code for CHAR of `indian-glyph' charset.
|
|
The value is (INDEX . SCRIPT), where INDEX is the glyph index
|
|
in the font that Indian script name SCRIPT specifies.
|
|
See also the function `indian-glyph-char'."
|
|
(let ((split (split-char char))
|
|
code)
|
|
(or (eq (car split) 'indian-glyph)
|
|
(error "Charset of `%c' is not indian-glyph" char))
|
|
(or (<= char indian-glyph-max-char)
|
|
(error "Invalid indian-glyph char: %d" char))
|
|
(setq code (+ (* (- (nth 1 split) 32) 96) (nth 2 split) -32))
|
|
(cons (% code 256) (aref indian-script-table (/ code 256)))))
|
|
|
|
(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))
|
|
|
|
(setq font-ccl-encoder-alist
|
|
(cons '("ISO10646.*-1" . ccl-encode-unicode-font)
|
|
font-ccl-encoder-alist))
|
|
|
|
(provide 'indian)
|
|
|
|
;;; indian.el ends here
|