Mercurial > emacs
annotate lisp/language/indian.el @ 89020:b0277093a5f2
(_fetch_multibyte_char_len): This variable deleted.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 20 Aug 2002 03:59:51 +0000 |
parents | dfa89e1b4c56 |
children | 0a7fbcb7bda0 |
rev | line source |
---|---|
41469 | 1 ;;; indian.el --- Indian languages support -*- coding: iso-2022-7bit; -*- |
17052 | 2 |
41469 | 3 ;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. |
17052 | 4 |
41469 | 5 ;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp> |
42312 | 6 ;; Keywords: multilingual, i18n, Indian |
17052 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
17314
f438ebf1c679
Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents:
17300
diff
changeset
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
f438ebf1c679
Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents:
17300
diff
changeset
|
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
f438ebf1c679
Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents:
17300
diff
changeset
|
23 ;; Boston, MA 02111-1307, USA. |
17052 | 24 |
25 ;;; Commentary: | |
26 | |
41469 | 27 ;; This file defines in-is13194 coding system and relationship between |
28 ;; indian-glyph character-set and various CDAC fonts. | |
17052 | 29 |
30 ;;; Code: | |
31 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
32 (define-coding-system 'in-is13194-devanagari |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
33 "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
34 :coding-type 'iso-2022 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
35 :mnemonic ?D |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
36 :designation [ascii indian-is13194 nil nil] |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
37 :charset-list '(ascii indian-is13194) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
38 :post-read-conversion 'in-is13194-devanagari-post-read-conversion |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
39 :pre-write-conversion 'in-is13194-devanagari-pre-write-conversion) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
40 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
41 (define-coding-system-alias 'devanagari 'in-is13194-devanagari) |
17052 | 42 |
41469 | 43 (defvar indian-script-table |
44 '[ | |
45 devanagari | |
46 sanskrit | |
47 bengali | |
48 tamil | |
49 telugu | |
50 assamese | |
51 oriya | |
52 kannada | |
53 malayalam | |
54 gujarati | |
55 punjabi | |
56 ] | |
57 "Vector of Indian script names.") | |
17052 | 58 |
41469 | 59 (let ((len (length indian-script-table)) |
60 (i 0)) | |
61 (while (< i len) | |
62 (put (aref indian-script-table i) 'indian-glyph-code-offset (* 256 i)) | |
63 (setq i (1+ i)))) | |
17052 | 64 |
41469 | 65 (defvar indian-default-script 'devanagari |
66 "Default script for Indian languages. | |
67 Each Indian language environment sets this value | |
68 to one of `indian-script-table' (which see). | |
69 The default value is `devanagari'.") | |
17052 | 70 |
41469 | 71 (define-ccl-program ccl-encode-indian-glyph-font |
72 `(0 | |
73 ;; Shorten (r1 = (((((r1 - 32) * 96) + r2) - 32) % 256)) | |
74 (r1 = ((((r1 * 96) + r2) - ,(+ (* 32 96) 32)) % 256)))) | |
17052 | 75 |
88896
dfa89e1b4c56
Don't register ccl-encode-indian-glyph-font
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
76 ;;(setq font-ccl-encoder-alist |
dfa89e1b4c56
Don't register ccl-encode-indian-glyph-font
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
77 ;; (cons (cons "-CDAC" 'ccl-encode-indian-glyph-font) |
dfa89e1b4c56
Don't register ccl-encode-indian-glyph-font
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
78 ;; font-ccl-encoder-alist)) |
17052 | 79 |
88896
dfa89e1b4c56
Don't register ccl-encode-indian-glyph-font
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
80 ;;(setq font-ccl-encoder-alist |
dfa89e1b4c56
Don't register ccl-encode-indian-glyph-font
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
81 ;; (cons '("ISO10646.*-1" . ccl-encode-unicode-font) |
dfa89e1b4c56
Don't register ccl-encode-indian-glyph-font
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
82 ;; font-ccl-encoder-alist)) |
33778 | 83 |
84 (provide 'indian) | |
41469 | 85 |
17052 | 86 ;;; indian.el ends here |