annotate src/charset.c @ 25751:467b88fab665

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Fri, 17 Sep 1999 06:59:04 +0000
parents 9c9d13747ffb
children b7aa6ac26872
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18341
33e78cc7f058 Change copyright notices.
Richard M. Stallman <rms@gnu.org>
parents: 18003
diff changeset
1 /* Basic multilingual character support.
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
2 Copyright (C) 1995, 1997, 1998 Electrotechnical Laboratory, JAPAN.
18341
33e78cc7f058 Change copyright notices.
Richard M. Stallman <rms@gnu.org>
parents: 18003
diff changeset
3 Licensed to the Free Software Foundation.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
5 This file is part of GNU Emacs.
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
6
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
8 it under the terms of the GNU General Public License as published by
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
10 any later version.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
15 GNU General Public License for more details.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
17 You should have received a copy of the GNU General Public License
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
20 Boston, MA 02111-1307, USA. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 /* At first, see the document in `charset.h' to understand the code in
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 this file. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 #include <stdio.h>
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 #ifdef emacs
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 #include <sys/types.h>
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 #include <config.h>
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 #include "lisp.h"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 #include "buffer.h"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 #include "charset.h"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 #include "coding.h"
17843
f03ff9d069c6 Include disptab.h.
Kenichi Handa <handa@m17n.org>
parents: 17834
diff changeset
35 #include "disptab.h"
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 #else /* not emacs */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 #include "mulelib.h"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 #endif /* emacs */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 Lisp_Object Qcharset, Qascii, Qcomposition;
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
44 Lisp_Object Qunknown;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46 /* Declaration of special leading-codes. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47 int leading_code_composition; /* for composite characters */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 int leading_code_private_11; /* for private DIMENSION1 of 1-column */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 int leading_code_private_12; /* for private DIMENSION1 of 2-column */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 int leading_code_private_21; /* for private DIMENSION2 of 1-column */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 int leading_code_private_22; /* for private DIMENSION2 of 2-column */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 /* Declaration of special charsets. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 int charset_ascii; /* ASCII */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 int charset_composition; /* for a composite character */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 int charset_latin_iso8859_1; /* ISO8859-1 (Latin-1) */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 int charset_jisx0208_1978; /* JISX0208.1978 (Japanese Kanji old set) */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 int charset_jisx0208; /* JISX0208.1983 (Japanese Kanji) */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 int charset_katakana_jisx0201; /* JISX0201.Kana (Japanese Katakana) */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 int charset_latin_jisx0201; /* JISX0201.Roman (Japanese Roman) */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 int charset_big5_1; /* Big5 Level 1 (Chinese Traditional) */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62 int charset_big5_2; /* Big5 Level 2 (Chinese Traditional) */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63
20720
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
64 int min_composite_char;
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
65
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66 Lisp_Object Qcharset_table;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
68 /* A char-table containing information of each character set. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 Lisp_Object Vcharset_table;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
70
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 /* A vector of charset symbol indexed by charset-id. This is used
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 only for returning charset symbol from C functions. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 Lisp_Object Vcharset_symbol_table;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 /* A list of charset symbols ever defined. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 Lisp_Object Vcharset_list;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
78 /* Vector of translation table ever defined.
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
79 ID of a translation table is used to index this vector. */
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
80 Lisp_Object Vtranslation_table_vector;
20720
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
81
23489
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
82 /* A char-table for characters which may invoke auto-filling. */
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
83 Lisp_Object Vauto_fill_chars;
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
84
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
85 Lisp_Object Qauto_fill_chars;
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
86
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
87 /* Tables used by macros BYTES_BY_CHAR_HEAD and WIDTH_BY_CHAR_HEAD. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
88 int bytes_by_char_head[256];
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 int width_by_char_head[256];
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
91 /* Mapping table from ISO2022's charset (specified by DIMENSION,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92 CHARS, and FINAL-CHAR) to Emacs' charset. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
93 int iso_charset_table[2][2][128];
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
94
17186
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
95 /* Table of pointers to the structure `cmpchar_info' indexed by
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
96 CMPCHAR-ID. */
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
97 struct cmpchar_info **cmpchar_table;
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
98 /* The current size of `cmpchar_table'. */
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
99 static int cmpchar_table_size;
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
100 /* Number of the current composite characters. */
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
101 int n_cmpchars;
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
102
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
103 /* Variables used locally in the macro FETCH_MULTIBYTE_CHAR. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
104 unsigned char *_fetch_multibyte_char_p;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105 int _fetch_multibyte_char_len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
107 /* Offset to add to a non-ASCII value when inserting it. */
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
108 int nonascii_insert_offset;
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
109
20890
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
110 /* Translation table for converting non-ASCII unibyte characters
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
111 to multibyte codes, or nil. */
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
112 Lisp_Object Vnonascii_translation_table;
20890
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
113
22703
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
114 /* List of all possible generic characters. */
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
115 Lisp_Object Vgeneric_character_list;
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
116
19384
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
117 #define min(X, Y) ((X) < (Y) ? (X) : (Y))
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
118 #define max(X, Y) ((X) > (Y) ? (X) : (Y))
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
119
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
120 void
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
121 invalid_character (c)
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
122 int c;
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
123 {
23397
2fe04027242e (invalid_character): Prepend `0' to octal
Kenichi Handa <handa@m17n.org>
parents: 23210
diff changeset
124 error ("Invalid character: 0%o, %d, 0x%x", c, c, c);
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
125 }
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
126
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
127 /* Parse composite character string STR of length LENGTH (>= 2) and
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
128 set BYTES, CHARSET, C1, and C2 as below.
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
129
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
130 It is assumed that *STR is LEADING_CODE_COMPOSITION and the
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
131 following (LENGTH - 1) bytes satisfy !CHAR_HEAD_P.
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
132
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
133 If there is a valid composite character, set CHARSET, C1, and C2 to
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
134 such values that MAKE_CHAR can make the composite character from
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
135 them. Otherwise, set CHARSET to CHARSET_COMPOSITION, set C1 to the
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
136 second byte of the sequence, C2 to -1 so that MAKE_CHAR can make
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
137 the invalid multibyte character whose string representation is two
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
138 bytes of STR[0] and STR[1]. In any case, set BYTES to LENGTH.
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
139
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
140 This macro should be called only from SPLIT_MULTIBYTE_SEQ. */
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
141
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
142 #define SPLIT_COMPOSITE_SEQ(str, length, bytes, charset, c1, c2) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
143 do { \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
144 int cmpchar_id = str_cmpchar_id ((str), (length)); \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
145 \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
146 (charset) = CHARSET_COMPOSITION; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
147 (bytes) = (length); \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
148 if (cmpchar_id >= 0) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
149 { \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
150 (c1) = CHAR_FIELD2 (cmpchar_id); \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
151 (c2) = CHAR_FIELD3 (cmpchar_id); \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
152 } \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
153 else \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
154 { \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
155 (c1) = (str)[1] & 0x7F; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
156 (c2) = -1; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
157 } \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
158 } while (0)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
159
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
160 /* Parse non-composite multibyte character string STR of length LENGTH
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
161 (>= 2) and set BYTES to the length of actual multibyte sequence,
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
162 CHARSET, C1, and C2 to such values that MAKE_CHAR can make the
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
163 multibyte character from them.
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
164
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
165 It is assumed that *STR is one of base leading codes (excluding
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
166 LEADING_CODE_COMPOSITION) and the following (LENGTH - 1) bytes
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
167 satisfy !CHAR_HEAD_P.
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
168
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
169 This macro should be called only from SPLIT_MULTIBYTE_SEQ. */
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
170
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
171 #define SPLIT_CHARACTER_SEQ(str, length, bytes, charset, c1, c2) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
172 do { \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
173 (bytes) = 1; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
174 (charset) = (str)[0]; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
175 if ((charset) >= LEADING_CODE_PRIVATE_11 \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
176 && (charset) <= LEADING_CODE_PRIVATE_22) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
177 (charset) = (str)[(bytes)++]; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
178 if ((bytes) < (length)) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
179 { \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
180 (c1) = (str)[(bytes)++] & 0x7F; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
181 if ((bytes) < (length)) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
182 (c2) = (str)[(bytes)++] & 0x7F; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
183 else \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
184 (c2) = -1; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
185 } \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
186 else \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
187 (c1) = (c2) = -1; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
188 } while (0)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
189
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
190 /* Parse string STR of length LENGTH and check if a multibyte
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
191 characters is at STR. set BYTES to the actual length, CHARSET, C1,
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
192 C2 to proper values for that character. */
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
193
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
194 #define SPLIT_MULTIBYTE_SEQ(str, length, bytes, charset, c1, c2) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
195 do { \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
196 int i; \
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
197 if (ASCII_BYTE_P ((str)[0])) \
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
198 i = 1; \
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
199 else \
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
200 for (i = 1; i < (length) && ! CHAR_HEAD_P ((str)[i]); i++); \
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
201 if (i == 1) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
202 (bytes) = 1, (charset) = CHARSET_ASCII, (c1) = (str)[0] ; \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
203 else if ((str)[0] == LEADING_CODE_COMPOSITION) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
204 SPLIT_COMPOSITE_SEQ (str, i, bytes, charset, c1, c2); \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
205 else \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
206 { \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
207 if (i > BYTES_BY_CHAR_HEAD ((str)[0])) \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
208 i = BYTES_BY_CHAR_HEAD ((str)[0]); \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
209 SPLIT_CHARACTER_SEQ (str, i, bytes, charset, c1, c2); \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
210 } \
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
211 } while (0)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
212
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
213 /* 1 if CHARSET, C1, and C2 compose a valid character, else 0. */
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
214 #define CHAR_COMPONENTS_VALID_P(charset, c1, c2) \
25611
9c9d13747ffb (CHAR_COMPONENTS_VALID_P): Fix for ASCII.
Kenichi Handa <handa@m17n.org>
parents: 25610
diff changeset
215 (charset == CHARSET_ASCII \
9c9d13747ffb (CHAR_COMPONENTS_VALID_P): Fix for ASCII.
Kenichi Handa <handa@m17n.org>
parents: 25610
diff changeset
216 ? ((c1) >= 0 && (c1) <= 0x7F) \
9c9d13747ffb (CHAR_COMPONENTS_VALID_P): Fix for ASCII.
Kenichi Handa <handa@m17n.org>
parents: 25610
diff changeset
217 : (CHARSET_DIMENSION (charset) == 1 \
9c9d13747ffb (CHAR_COMPONENTS_VALID_P): Fix for ASCII.
Kenichi Handa <handa@m17n.org>
parents: 25610
diff changeset
218 ? ((c1) >= 0x20 && (c1) <= 0x7F) \
9c9d13747ffb (CHAR_COMPONENTS_VALID_P): Fix for ASCII.
Kenichi Handa <handa@m17n.org>
parents: 25610
diff changeset
219 : ((c1) >= 0x20 && (c1) <= 0x7F && (c2) >= 0x20 && (c2) <= 0x7F)))
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
220
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
221 /* Set STR a pointer to the multi-byte form of the character C. If C
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222 is not a composite character, the multi-byte form is set in WORKBUF
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223 and STR points WORKBUF. The caller should allocate at least 4-byte
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
224 area at WORKBUF in advance. Returns the length of the multi-byte
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
225 form. If C is an invalid character, store (C & 0xFF) in WORKBUF[0]
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
226 and return 1.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
228 Use macro `CHAR_STRING (C, WORKBUF, STR)' instead of calling this
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229 function directly if C can be an ASCII character. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
230
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 int
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
232 non_ascii_char_to_string (c, workbuf, str)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
233 int c;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
234 unsigned char *workbuf, **str;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
235 {
25250
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
236 if (c & CHAR_MODIFIER_MASK) /* This includes the case C is negative. */
23767
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
237 {
25250
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
238 /* Multibyte character can't have a modifier bit. */
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
239 if (! SINGLE_BYTE_CHAR_P ((c & ~CHAR_MODIFIER_MASK)))
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
240 invalid_character (c);
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
241
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
242 /* For Meta, Shift, and Control modifiers, we need special care. */
23767
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
243 if (c & CHAR_META)
25250
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
244 {
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
245 /* Move the meta bit to the right place for a string. */
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
246 c = (c & ~CHAR_META) | 0x80;
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
247 }
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
248 if (c & CHAR_SHIFT)
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
249 {
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
250 /* Shift modifier is valid only with [A-Za-z]. */
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
251 if ((c & 0377) >= 'A' && (c & 0377) <= 'Z')
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
252 c &= ~CHAR_SHIFT;
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
253 else if ((c & 0377) >= 'a' && (c & 0377) <= 'z')
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
254 c = (c & ~CHAR_SHIFT) - ('a' - 'A');
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
255 }
23767
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
256 if (c & CHAR_CTL)
25250
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
257 {
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
258 /* Simulate the code in lread.c. */
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
259 /* Allow `\C- ' and `\C-?'. */
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
260 if (c == (CHAR_CTL | ' '))
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
261 c = 0;
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
262 else if (c == (CHAR_CTL | '?'))
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
263 c = 127;
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
264 /* ASCII control chars are made from letters (both cases),
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
265 as well as the non-letters within 0100...0137. */
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
266 else if ((c & 0137) >= 0101 && (c & 0137) <= 0132)
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
267 c &= (037 | (~0177 & ~CHAR_CTL));
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
268 else if ((c & 0177) >= 0100 && (c & 0177) <= 0137)
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
269 c &= (037 | (~0177 & ~CHAR_CTL));
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
270 }
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
271
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
272 /* If C still has any modifier bits, it is an invalid character. */
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
273 if (c & CHAR_MODIFIER_MASK)
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
274 invalid_character (c);
2228d0a678ef (non_ascii_char_to_string): Handle modifier bits as
Kenichi Handa <handa@m17n.org>
parents: 23978
diff changeset
275
23767
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
276 *str = workbuf;
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
277 *workbuf++ = c;
23767
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
278 }
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
279 else
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
280 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
281 int charset, c1, c2;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
282
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
283 SPLIT_NON_ASCII_CHAR (c, charset, c1, c2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
284 if (charset == CHARSET_COMPOSITION)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
285 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
286 if (c >= MAX_CHAR)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
287 invalid_character (c);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
288 if (c >= MIN_CHAR_COMPOSITION)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
289 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
290 /* Valid composite character. */
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
291 *str = cmpchar_table[COMPOSITE_CHAR_ID (c)]->data;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
292 workbuf = *str + cmpchar_table[COMPOSITE_CHAR_ID (c)]->len;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
293 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
294 else
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
295 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
296 /* Invalid but can have multibyte form. */
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
297 *str = workbuf;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
298 *workbuf++ = LEADING_CODE_COMPOSITION;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
299 *workbuf++ = c1 | 0x80;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
300 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
301 }
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
302 else if (charset > CHARSET_COMPOSITION)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
303 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
304 *str = workbuf;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
305 if (charset >= LEADING_CODE_EXT_11)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
306 *workbuf++ = (charset < LEADING_CODE_EXT_12
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
307 ? LEADING_CODE_PRIVATE_11
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
308 : (charset < LEADING_CODE_EXT_21
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
309 ? LEADING_CODE_PRIVATE_12
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
310 : (charset < LEADING_CODE_EXT_22
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
311 ? LEADING_CODE_PRIVATE_21
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
312 : LEADING_CODE_PRIVATE_22)));
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
313 *workbuf++ = charset;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
314 if (c1 > 0 && c1 < 32 || c2 > 0 && c2 < 32)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
315 invalid_character (c);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
316 if (c1)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
317 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
318 *workbuf++ = c1 | 0x80;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
319 if (c2 > 0)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
320 *workbuf++ = c2 | 0x80;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
321 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
322 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
323 else if (charset == CHARSET_ASCII)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
324 *workbuf++= c & 0x7F;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
325 else
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
326 invalid_character (c);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
327 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
328
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
329 return (workbuf - *str);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
331
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
332 /* Return the non-ASCII character corresponding to multi-byte form at
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
333 STR of length LEN. If ACTUAL_LEN is not NULL, store the byte
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
334 length of the multibyte form in *ACTUAL_LEN.
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
335
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
336 Use macro `STRING_CHAR (STR, LEN)' instead of calling this function
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
337 directly if you want ot handle ASCII characters as well. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21445
diff changeset
339 int
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
340 string_to_non_ascii_char (str, len, actual_len)
21419
95aae2ff5fcd (string_to_non_ascii_char, multibyte_form_length)
Karl Heuer <kwzh@gnu.org>
parents: 21255
diff changeset
341 const unsigned char *str;
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
342 int len, *actual_len;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
344 int c, bytes, charset, c1, c2;
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
345
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
346 SPLIT_MULTIBYTE_SEQ (str, len, bytes, charset, c1, c2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
347 c = MAKE_CHAR (charset, c1, c2);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 if (actual_len)
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
349 *actual_len = bytes;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350 return c;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
353 /* Return the length of the multi-byte form at string STR of length LEN.
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
354 Use the macro MULTIBYTE_FORM_LENGTH instead. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
355 int
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 multibyte_form_length (str, len)
21419
95aae2ff5fcd (string_to_non_ascii_char, multibyte_form_length)
Karl Heuer <kwzh@gnu.org>
parents: 21255
diff changeset
357 const unsigned char *str;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
358 int len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
360 int bytes;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
361
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
362 PARSE_MULTIBYTE_SEQ (str, len, bytes);
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
363 return bytes;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
364 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
365
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
366 /* Check multibyte form at string STR of length LEN and set variables
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
367 pointed by CHARSET, C1, and C2 to charset and position codes of the
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
368 character at STR, and return 0. If there's no multibyte character,
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
369 return -1. This should be used only in the macro SPLIT_STRING
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
370 which checks range of STR in advance. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
371
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21445
diff changeset
372 int
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
373 split_non_ascii_string (str, len, charset, c1, c2)
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
374 const unsigned char *str;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
375 unsigned char *c1, *c2;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
376 int len, *charset;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
377 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
378 register int bytes, cs, code1, code2 = -1;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
379
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
380 SPLIT_MULTIBYTE_SEQ (str, len, bytes, cs, code1, code2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
381 if (cs == CHARSET_ASCII)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
382 return -1;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
383 *charset = cs;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
384 *c1 = code1;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
385 *c2 = code2;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
386 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
387
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
388 /* Return 1 iff character C has valid printable glyph.
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
389 Use the macro CHAR_PRINTABLE_P instead. */
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
390 int
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
391 char_printable_p (c)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
392 int c;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
393 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
394 int charset, c1, c2, chars;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
395
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
396 if (SINGLE_BYTE_CHAR_P (c))
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
397 return 1;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
398 if (c >= MIN_CHAR_COMPOSITION)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
399 return (c < MAX_CHAR);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
400
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
401 SPLIT_NON_ASCII_CHAR (c, charset, c1, c2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
402 if (! CHARSET_DEFINED_P (charset))
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
403 return 0;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
404 if (CHARSET_CHARS (charset) == 94
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
405 ? c1 <= 32 || c1 >= 127
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
406 : c1 < 32)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
407 return 0;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
408 if (CHARSET_DIMENSION (charset) == 2
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
409 && (CHARSET_CHARS (charset) == 94
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
410 ? c2 <= 32 || c2 >= 127
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
411 : c2 < 32))
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
412 return 0;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
413 return 1;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
414 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
415
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
416 /* Translate character C by translation table TABLE. If C
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
417 is negative, translate a character specified by CHARSET, C1, and C2
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
418 (C1 and C2 are code points of the character). If no translation is
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
419 found in TABLE, return C. */
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21445
diff changeset
420 int
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
421 translate_char (table, c, charset, c1, c2)
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
422 Lisp_Object table;
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
423 int c, charset, c1, c2;
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
424 {
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
425 Lisp_Object ch;
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
426 int alt_charset, alt_c1, alt_c2, dimension;
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
427
25610
5f9f35400f70 Reset MSBs of arguments of MAKE_CHAR.
Kenichi Handa <handa@m17n.org>
parents: 25584
diff changeset
428 if (c < 0) c = MAKE_CHAR (charset, (c1 & 0x7F) , (c2 & 0x7F));
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
429 if (!CHAR_TABLE_P (table)
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
430 || (ch = Faref (table, make_number (c)), !NATNUMP (ch)))
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
431 return c;
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
432
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
433 SPLIT_CHAR (XFASTINT (ch), alt_charset, alt_c1, alt_c2);
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
434 dimension = CHARSET_DIMENSION (alt_charset);
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
435 if (dimension == 1 && alt_c1 > 0 || dimension == 2 && alt_c2 > 0)
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
436 /* CH is not a generic character, just return it. */
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
437 return XFASTINT (ch);
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
438
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
439 /* Since CH is a generic character, we must return a specific
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
440 charater which has the same position codes as C from CH. */
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
441 if (charset < 0)
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
442 SPLIT_CHAR (c, charset, c1, c2);
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
443 if (dimension != CHARSET_DIMENSION (charset))
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
444 /* We can't make such a character because of dimension mismatch. */
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
445 return c;
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
446 return MAKE_CHAR (alt_charset, c1, c2);
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
447 }
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
448
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
449 /* Convert the unibyte character C to multibyte based on
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
450 Vnonascii_translation_table or nonascii_insert_offset. If they can't
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
451 convert C to a valid multibyte character, convert it based on
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
452 DEFAULT_NONASCII_INSERT_OFFSET which makes C a Latin-1 character. */
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
453
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21445
diff changeset
454 int
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
455 unibyte_char_to_multibyte (c)
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
456 int c;
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
457 {
23928
b718a88bb2b1 (unibyte_char_to_multibyte): Don't convert 7-bit ASCII characters via
Eli Zaretskii <eliz@gnu.org>
parents: 23883
diff changeset
458 if (c < 0400 && c >= 0200)
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
459 {
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
460 int c_save = c;
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
461
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
462 if (! NILP (Vnonascii_translation_table))
23154
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
463 {
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
464 c = XINT (Faref (Vnonascii_translation_table, make_number (c)));
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
465 if (c >= 0400 && ! char_valid_p (c, 0))
23154
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
466 c = c_save + DEFAULT_NONASCII_INSERT_OFFSET;
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
467 }
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
468 else if (c >= 0240 && nonascii_insert_offset > 0)
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
469 {
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
470 c += nonascii_insert_offset;
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
471 if (c < 0400 || ! char_valid_p (c, 0))
23154
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
472 c = c_save + DEFAULT_NONASCII_INSERT_OFFSET;
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
473 }
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
474 else if (c >= 0240)
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
475 c = c_save + DEFAULT_NONASCII_INSERT_OFFSET;
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
476 }
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
477 return c;
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
478 }
22927
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
479
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
480
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
481 /* Convert the multibyte character C to unibyte 8-bit character based
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
482 on Vnonascii_translation_table or nonascii_insert_offset. If
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
483 REV_TBL is non-nil, it should be a reverse table of
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
484 Vnonascii_translation_table, i.e. what given by:
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
485 Fchar_table_extra_slot (Vnonascii_translation_table, make_number (0)) */
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
486
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
487 int
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
488 multibyte_char_to_unibyte (c, rev_tbl)
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
489 int c;
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
490 Lisp_Object rev_tbl;
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
491 {
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
492 if (!SINGLE_BYTE_CHAR_P (c))
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
493 {
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
494 int c_save = c;
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
495
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
496 if (! CHAR_TABLE_P (rev_tbl)
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
497 && CHAR_TABLE_P (Vnonascii_translation_table))
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
498 rev_tbl = Fchar_table_extra_slot (Vnonascii_translation_table,
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
499 make_number (0));
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
500 if (CHAR_TABLE_P (rev_tbl))
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
501 {
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
502 Lisp_Object temp;
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
503 temp = Faref (rev_tbl, make_number (c));
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
504 if (INTEGERP (temp))
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
505 c = XINT (temp);
23154
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
506 if (c >= 256)
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
507 c = (c_save & 0177) + 0200;
22927
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
508 }
23154
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
509 else
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
510 {
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
511 if (nonascii_insert_offset > 0)
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
512 c -= nonascii_insert_offset;
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
513 if (c < 128 || c >= 256)
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
514 c = (c_save & 0177) + 0200;
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
515 }
22927
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
516 }
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
517
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
518 return c;
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
519 }
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
520
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
521
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
522 /* Update the table Vcharset_table with the given arguments (see the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
523 document of `define-charset' for the meaning of each argument).
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
524 Several other table contents are also updated. The caller should
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
525 check the validity of CHARSET-ID and the remaining arguments in
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 advance. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
527
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
528 void
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
529 update_charset_table (charset_id, dimension, chars, width, direction,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
530 iso_final_char, iso_graphic_plane,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
531 short_name, long_name, description)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
532 Lisp_Object charset_id, dimension, chars, width, direction;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
533 Lisp_Object iso_final_char, iso_graphic_plane;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
534 Lisp_Object short_name, long_name, description;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
535 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
536 int charset = XINT (charset_id);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
537 int bytes;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
538 unsigned char leading_code_base, leading_code_ext;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
539
17322
a7d9b8e167ca (non_ascii_char_to_string, update_charset_table,
Kenichi Handa <handa@m17n.org>
parents: 17186
diff changeset
540 if (NILP (CHARSET_TABLE_ENTRY (charset)))
a7d9b8e167ca (non_ascii_char_to_string, update_charset_table,
Kenichi Handa <handa@m17n.org>
parents: 17186
diff changeset
541 CHARSET_TABLE_ENTRY (charset)
a7d9b8e167ca (non_ascii_char_to_string, update_charset_table,
Kenichi Handa <handa@m17n.org>
parents: 17186
diff changeset
542 = Fmake_vector (make_number (CHARSET_MAX_IDX), Qnil);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
543
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
544 /* Get byte length of multibyte form, base leading-code, and
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
545 extended leading-code of the charset. See the comment under the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
546 title "GENERAL NOTE on CHARACTER SET (CHARSET)" in charset.h. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
547 bytes = XINT (dimension);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
548 if (charset < MIN_CHARSET_PRIVATE_DIMENSION1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
549 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
550 /* Official charset, it doesn't have an extended leading-code. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
551 if (charset != CHARSET_ASCII)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
552 bytes += 1; /* For a base leading-code. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
553 leading_code_base = charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
554 leading_code_ext = 0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
555 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
556 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
557 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
558 /* Private charset. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
559 bytes += 2; /* For base and extended leading-codes. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
560 leading_code_base
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
561 = (charset < LEADING_CODE_EXT_12
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
562 ? LEADING_CODE_PRIVATE_11
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
563 : (charset < LEADING_CODE_EXT_21
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
564 ? LEADING_CODE_PRIVATE_12
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
565 : (charset < LEADING_CODE_EXT_22
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
566 ? LEADING_CODE_PRIVATE_21
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
567 : LEADING_CODE_PRIVATE_22)));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
568 leading_code_ext = charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
569 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
570
23628
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
571 if (BYTES_BY_CHAR_HEAD (leading_code_base) != bytes)
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
572 error ("Invalid dimension for the charset-ID %d", charset);
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
573
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
574 CHARSET_TABLE_INFO (charset, CHARSET_ID_IDX) = charset_id;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
575 CHARSET_TABLE_INFO (charset, CHARSET_BYTES_IDX) = make_number (bytes);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
576 CHARSET_TABLE_INFO (charset, CHARSET_DIMENSION_IDX) = dimension;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
577 CHARSET_TABLE_INFO (charset, CHARSET_CHARS_IDX) = chars;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
578 CHARSET_TABLE_INFO (charset, CHARSET_WIDTH_IDX) = width;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
579 CHARSET_TABLE_INFO (charset, CHARSET_DIRECTION_IDX) = direction;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
580 CHARSET_TABLE_INFO (charset, CHARSET_LEADING_CODE_BASE_IDX)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
581 = make_number (leading_code_base);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
582 CHARSET_TABLE_INFO (charset, CHARSET_LEADING_CODE_EXT_IDX)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
583 = make_number (leading_code_ext);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
584 CHARSET_TABLE_INFO (charset, CHARSET_ISO_FINAL_CHAR_IDX) = iso_final_char;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
585 CHARSET_TABLE_INFO (charset, CHARSET_ISO_GRAPHIC_PLANE_IDX)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
586 = iso_graphic_plane;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
587 CHARSET_TABLE_INFO (charset, CHARSET_SHORT_NAME_IDX) = short_name;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
588 CHARSET_TABLE_INFO (charset, CHARSET_LONG_NAME_IDX) = long_name;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
589 CHARSET_TABLE_INFO (charset, CHARSET_DESCRIPTION_IDX) = description;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
590 CHARSET_TABLE_INFO (charset, CHARSET_PLIST_IDX) = Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
591
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
592 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
593 /* If we have already defined a charset which has the same
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
594 DIMENSION, CHARS and ISO-FINAL-CHAR but the different
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
595 DIRECTION, we must update the entry REVERSE-CHARSET of both
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
596 charsets. If there's no such charset, the value of the entry
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
597 is set to nil. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
598 int i;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
599
17186
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
600 for (i = 0; i <= MAX_CHARSET; i++)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
601 if (!NILP (CHARSET_TABLE_ENTRY (i)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
602 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
603 if (CHARSET_DIMENSION (i) == XINT (dimension)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
604 && CHARSET_CHARS (i) == XINT (chars)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
605 && CHARSET_ISO_FINAL_CHAR (i) == XINT (iso_final_char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
606 && CHARSET_DIRECTION (i) != XINT (direction))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
607 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
608 CHARSET_TABLE_INFO (charset, CHARSET_REVERSE_CHARSET_IDX)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
609 = make_number (i);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
610 CHARSET_TABLE_INFO (i, CHARSET_REVERSE_CHARSET_IDX) = charset_id;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
611 break;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
612 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
613 }
17186
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
614 if (i > MAX_CHARSET)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
615 /* No such a charset. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
616 CHARSET_TABLE_INFO (charset, CHARSET_REVERSE_CHARSET_IDX)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
617 = make_number (-1);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
618 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
619
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
620 if (charset != CHARSET_ASCII
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
621 && charset < MIN_CHARSET_PRIVATE_DIMENSION1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
622 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
623 width_by_char_head[leading_code_base] = XINT (width);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
624
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
625 /* Update table emacs_code_class. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
626 emacs_code_class[charset] = (bytes == 2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
627 ? EMACS_leading_code_2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
628 : (bytes == 3
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
629 ? EMACS_leading_code_3
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
630 : EMACS_leading_code_4));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
631 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
632
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
633 /* Update table iso_charset_table. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
634 if (ISO_CHARSET_TABLE (dimension, chars, iso_final_char) < 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
635 ISO_CHARSET_TABLE (dimension, chars, iso_final_char) = charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
636 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
637
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
638 #ifdef emacs
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
639
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
640 /* Return charset id of CHARSET_SYMBOL, or return -1 if CHARSET_SYMBOL
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
641 is invalid. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
642 int
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
643 get_charset_id (charset_symbol)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
644 Lisp_Object charset_symbol;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
645 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
646 Lisp_Object val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
647 int charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
648
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
649 return ((SYMBOLP (charset_symbol)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
650 && (val = Fget (charset_symbol, Qcharset), VECTORP (val))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
651 && (charset = XINT (XVECTOR (val)->contents[CHARSET_ID_IDX]),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
652 CHARSET_VALID_P (charset)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
653 ? charset : -1);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
654 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
655
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
656 /* Return an identification number for a new private charset of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
657 DIMENSION and WIDTH. If there's no more room for the new charset,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
658 return 0. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
659 Lisp_Object
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
660 get_new_private_charset_id (dimension, width)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
661 int dimension, width;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
662 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
663 int charset, from, to;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
664
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
665 if (dimension == 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
666 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
667 if (width == 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
668 from = LEADING_CODE_EXT_11, to = LEADING_CODE_EXT_12;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
669 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
670 from = LEADING_CODE_EXT_12, to = LEADING_CODE_EXT_21;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
671 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
672 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
673 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
674 if (width == 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
675 from = LEADING_CODE_EXT_21, to = LEADING_CODE_EXT_22;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
676 else
20720
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
677 from = LEADING_CODE_EXT_22, to = LEADING_CODE_EXT_MAX + 1;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
678 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
679
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
680 for (charset = from; charset < to; charset++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
681 if (!CHARSET_DEFINED_P (charset)) break;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
682
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
683 return make_number (charset < to ? charset : 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
684 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
685
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
686 DEFUN ("define-charset", Fdefine_charset, Sdefine_charset, 3, 3, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
687 "Define CHARSET-ID as the identification number of CHARSET with INFO-VECTOR.\n\
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
688 If CHARSET-ID is nil, it is decided automatically, which means CHARSET is\n\
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
689 treated as a private charset.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
690 INFO-VECTOR is a vector of the format:\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
691 [DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
692 SHORT-NAME LONG-NAME DESCRIPTION]\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
693 The meanings of each elements is as follows:\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
694 DIMENSION (integer) is the number of bytes to represent a character: 1 or 2.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
695 CHARS (integer) is the number of characters in a dimension: 94 or 96.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
696 WIDTH (integer) is the number of columns a character in the charset\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
697 occupies on the screen: one of 0, 1, and 2.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
698 \n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699 DIRECTION (integer) is the rendering direction of characters in the\n\
22774
a0909e59257d (Fdefine_charset): Fix doc-string.
Kenichi Handa <handa@m17n.org>
parents: 22739
diff changeset
700 charset when rendering. If 0, render from left to right, else\n\
a0909e59257d (Fdefine_charset): Fix doc-string.
Kenichi Handa <handa@m17n.org>
parents: 22739
diff changeset
701 render from right to left.\n\
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702 \n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
703 ISO-FINAL-CHAR (character) is the final character of the\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
704 corresponding ISO 2022 charset.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
705 \n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
706 ISO-GRAPHIC-PLANE (integer) is the graphic plane to be invoked\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
707 while encoding to variants of ISO 2022 coding system, one of the\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
708 following: 0/graphic-plane-left(GL), 1/graphic-plane-right(GR).\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
709 \n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
710 SHORT-NAME (string) is the short name to refer to the charset.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
711 \n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
712 LONG-NAME (string) is the long name to refer to the charset.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
713 \n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
714 DESCRIPTION (string) is the description string of the charset.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
715 (charset_id, charset_symbol, info_vector)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 Lisp_Object charset_id, charset_symbol, info_vector;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
717 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
718 Lisp_Object *vec;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
719
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720 if (!NILP (charset_id))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 CHECK_NUMBER (charset_id, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 CHECK_SYMBOL (charset_symbol, 1);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
723 CHECK_VECTOR (info_vector, 2);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
724
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
725 if (! NILP (charset_id))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
726 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
727 if (! CHARSET_VALID_P (XINT (charset_id)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
728 error ("Invalid CHARSET: %d", XINT (charset_id));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
729 else if (CHARSET_DEFINED_P (XINT (charset_id)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
730 error ("Already defined charset: %d", XINT (charset_id));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
731 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
732
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
733 vec = XVECTOR (info_vector)->contents;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
734 if (XVECTOR (info_vector)->size != 9
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
735 || !INTEGERP (vec[0]) || !(XINT (vec[0]) == 1 || XINT (vec[0]) == 2)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
736 || !INTEGERP (vec[1]) || !(XINT (vec[1]) == 94 || XINT (vec[1]) == 96)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
737 || !INTEGERP (vec[2]) || !(XINT (vec[2]) == 1 || XINT (vec[2]) == 2)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
738 || !INTEGERP (vec[3]) || !(XINT (vec[3]) == 0 || XINT (vec[3]) == 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
739 || !INTEGERP (vec[4]) || !(XINT (vec[4]) >= '0' && XINT (vec[4]) <= '~')
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
740 || !INTEGERP (vec[5]) || !(XINT (vec[5]) == 0 || XINT (vec[5]) == 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
741 || !STRINGP (vec[6])
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
742 || !STRINGP (vec[7])
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
743 || !STRINGP (vec[8]))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
744 error ("Invalid info-vector argument for defining charset %s",
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
745 XSYMBOL (charset_symbol)->name->data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
746
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
747 if (NILP (charset_id))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
748 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
749 charset_id = get_new_private_charset_id (XINT (vec[0]), XINT (vec[2]));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
750 if (XINT (charset_id) == 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
751 error ("There's no room for a new private charset %s",
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
752 XSYMBOL (charset_symbol)->name->data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
753 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
754
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
755 update_charset_table (charset_id, vec[0], vec[1], vec[2], vec[3],
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
756 vec[4], vec[5], vec[6], vec[7], vec[8]);
17322
a7d9b8e167ca (non_ascii_char_to_string, update_charset_table,
Kenichi Handa <handa@m17n.org>
parents: 17186
diff changeset
757 Fput (charset_symbol, Qcharset, CHARSET_TABLE_ENTRY (XINT (charset_id)));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
758 CHARSET_SYMBOL (XINT (charset_id)) = charset_symbol;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
759 Vcharset_list = Fcons (charset_symbol, Vcharset_list);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
760 return Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
761 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
762
22703
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
763 DEFUN ("generic-character-list", Fgeneric_character_list,
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
764 Sgeneric_character_list, 0, 0, 0,
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
765 "Return a list of all possible generic characters.\n\
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
766 It includes a generic character for a charset not yet defined.")
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
767 ()
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
768 {
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
769 return Vgeneric_character_list;
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
770 }
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
771
20435
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
772 DEFUN ("get-unused-iso-final-char", Fget_unused_iso_final_char,
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
773 Sget_unused_iso_final_char, 2, 2, 0,
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
774 "Return an unsed ISO's final char for a charset of DIMENISION and CHARS.\n\
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
775 DIMENSION is the number of bytes to represent a character: 1 or 2.\n\
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
776 CHARS is the number of characters in a dimension: 94 or 96.\n\
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
777 \n\
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
778 This final char is for private use, thus the range is `0' (48) .. `?' (63).\n\
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
779 If there's no unused final char for the specified kind of charset,\n\
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
780 return nil.")
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
781 (dimension, chars)
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
782 Lisp_Object dimension, chars;
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
783 {
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
784 int final_char;
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
785
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
786 CHECK_NUMBER (dimension, 0);
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
787 CHECK_NUMBER (chars, 1);
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
788 if (XINT (dimension) != 1 && XINT (dimension) != 2)
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
789 error ("Invalid charset dimension %d, it should be 1 or 2",
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
790 XINT (dimension));
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
791 if (XINT (chars) != 94 && XINT (chars) != 96)
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
792 error ("Invalid charset chars %d, it should be 94 or 96",
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
793 XINT (chars));
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
794 for (final_char = '0'; final_char <= '?'; final_char++)
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
795 {
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
796 if (ISO_CHARSET_TABLE (dimension, chars, make_number (final_char)) < 0)
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
797 break;
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
798 }
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
799 return (final_char <= '?' ? make_number (final_char) : Qnil);
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
800 }
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
801
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802 DEFUN ("declare-equiv-charset", Fdeclare_equiv_charset, Sdeclare_equiv_charset,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
803 4, 4, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
804 "Declare a charset of DIMENSION, CHARS, FINAL-CHAR is the same as CHARSET.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805 CHARSET should be defined by `defined-charset' in advance.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
806 (dimension, chars, final_char, charset_symbol)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
807 Lisp_Object dimension, chars, final_char, charset_symbol;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
808 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
809 int charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
810
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
811 CHECK_NUMBER (dimension, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
812 CHECK_NUMBER (chars, 1);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
813 CHECK_NUMBER (final_char, 2);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
814 CHECK_SYMBOL (charset_symbol, 3);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
815
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
816 if (XINT (dimension) != 1 && XINT (dimension) != 2)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
817 error ("Invalid DIMENSION %d, it should be 1 or 2", XINT (dimension));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
818 if (XINT (chars) != 94 && XINT (chars) != 96)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
819 error ("Invalid CHARS %d, it should be 94 or 96", XINT (chars));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
820 if (XINT (final_char) < '0' || XFASTINT (final_char) > '~')
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821 error ("Invalid FINAL-CHAR %c, it should be `0'..`~'", XINT (chars));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822 if ((charset = get_charset_id (charset_symbol)) < 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
823 error ("Invalid charset %s", XSYMBOL (charset_symbol)->name->data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
824
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
825 ISO_CHARSET_TABLE (dimension, chars, final_char) = charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
826 return Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
827 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
828
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
829 /* Return number of different charsets in STR of length LEN. In
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
830 addition, for each found charset N, CHARSETS[N] is set 1. The
18003
ac148c939dec (Ffind_charset_string): The variable CHARSETS is
Kenichi Handa <handa@m17n.org>
parents: 17880
diff changeset
831 caller should allocate CHARSETS (MAX_CHARSET + 1 elements) in advance.
22168
2156ac6d054f (find_charset_in_str): New arg CMPCHARP.
Kenichi Handa <handa@m17n.org>
parents: 22121
diff changeset
832 It may lookup a translation table TABLE if supplied.
2156ac6d054f (find_charset_in_str): New arg CMPCHARP.
Kenichi Handa <handa@m17n.org>
parents: 22121
diff changeset
833
2156ac6d054f (find_charset_in_str): New arg CMPCHARP.
Kenichi Handa <handa@m17n.org>
parents: 22121
diff changeset
834 If CMPCHARP is nonzero and some composite character is found,
2156ac6d054f (find_charset_in_str): New arg CMPCHARP.
Kenichi Handa <handa@m17n.org>
parents: 22121
diff changeset
835 CHARSETS[128] is also set 1 and the returned number is incremented
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
836 by 1.
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
837
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
838 If MULTIBYTE is zero, do not check multibyte characters, i.e. if
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
839 any ASCII codes (7-bit) are found, CHARSET[0] is set to 1, if any
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
840 8-bit codes are found CHARSET[1] is set to 1. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
841
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
842 int
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
843 find_charset_in_str (str, len, charsets, table, cmpcharp, multibyte)
17880
06f58d8a59ba (Ffind_charset_region): Change the declaration of
Kenichi Handa <handa@m17n.org>
parents: 17863
diff changeset
844 unsigned char *str;
06f58d8a59ba (Ffind_charset_region): Change the declaration of
Kenichi Handa <handa@m17n.org>
parents: 17863
diff changeset
845 int len, *charsets;
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
846 Lisp_Object table;
22168
2156ac6d054f (find_charset_in_str): New arg CMPCHARP.
Kenichi Handa <handa@m17n.org>
parents: 22121
diff changeset
847 int cmpcharp;
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
848 int multibyte;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
849 {
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
850 register int num = 0, c;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
851
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
852 if (! multibyte)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
853 {
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
854 unsigned char *endp = str + len;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
855 int maskbits = 0;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
856
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
857 while (str < endp && maskbits != 3)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
858 maskbits |= (*str++ < 0x80 ? 1 : 2);
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
859 if (maskbits & 1)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
860 {
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
861 charsets[0] = 1;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
862 num++;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
863 }
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
864 if (maskbits & 2)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
865 {
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
866 charsets[1] = 1;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
867 num++;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
868 }
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
869 return num;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
870 }
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
871
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
872 if (! CHAR_TABLE_P (table))
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
873 table = Qnil;
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
874
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
875 while (len > 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
876 {
19983
a62008636710 (find_charset_in_str): Return also charsets in
Kenichi Handa <handa@m17n.org>
parents: 19444
diff changeset
877 int bytes, charset;
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
878 c = *str;
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
879
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
880 if (c == LEADING_CODE_COMPOSITION)
19983
a62008636710 (find_charset_in_str): Return also charsets in
Kenichi Handa <handa@m17n.org>
parents: 19444
diff changeset
881 {
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
882 int cmpchar_id = str_cmpchar_id (str, len);
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
883 GLYPH *glyph;
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
884
22168
2156ac6d054f (find_charset_in_str): New arg CMPCHARP.
Kenichi Handa <handa@m17n.org>
parents: 22121
diff changeset
885 if (cmpchar_id >= 0)
19983
a62008636710 (find_charset_in_str): Return also charsets in
Kenichi Handa <handa@m17n.org>
parents: 19444
diff changeset
886 {
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
887 struct cmpchar_info *cmp_p = cmpchar_table[cmpchar_id];
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
888 int i;
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
889
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
890 for (i = 0; i < cmp_p->glyph_len; i++)
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
891 {
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
892 c = cmp_p->glyph[i];
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
893 if (!NILP (table))
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
894 {
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
895 if ((c = translate_char (table, c, 0, 0, 0)) < 0)
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
896 c = cmp_p->glyph[i];
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
897 }
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
898 if ((charset = CHAR_CHARSET (c)) < 0)
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
899 charset = CHARSET_ASCII;
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
900 if (!charsets[charset])
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
901 {
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
902 charsets[charset] = 1;
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
903 num += 1;
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
904 }
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
905 }
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
906 str += cmp_p->len;
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
907 len -= cmp_p->len;
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
908 if (cmpcharp && !charsets[CHARSET_COMPOSITION])
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
909 {
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
910 charsets[CHARSET_COMPOSITION] = 1;
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
911 num += 1;
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
912 }
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
913 continue;
19983
a62008636710 (find_charset_in_str): Return also charsets in
Kenichi Handa <handa@m17n.org>
parents: 19444
diff changeset
914 }
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
915
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
916 charset = 1; /* This leads to `unknown' charset. */
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
917 bytes = 1;
19983
a62008636710 (find_charset_in_str): Return also charsets in
Kenichi Handa <handa@m17n.org>
parents: 19444
diff changeset
918 }
a62008636710 (find_charset_in_str): Return also charsets in
Kenichi Handa <handa@m17n.org>
parents: 19444
diff changeset
919 else
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
920 {
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
921 c = STRING_CHAR_AND_LENGTH (str, len, bytes);
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
922 if (! NILP (table))
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
923 {
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
924 int c1 = translate_char (table, c, 0, 0, 0);
20228
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
925 if (c1 >= 0)
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
926 c = c1;
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
927 }
acb7aa0aa71f (find_charset_in_str): Handle the case that STR
Kenichi Handa <handa@m17n.org>
parents: 20188
diff changeset
928 charset = CHAR_CHARSET (c);
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
929 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
930
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
931 if (!charsets[charset])
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
932 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
933 charsets[charset] = 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
934 num += 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
935 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
936 str += bytes;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
937 len -= bytes;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
938 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
939 return num;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
940 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
941
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
942 DEFUN ("find-charset-region", Ffind_charset_region, Sfind_charset_region,
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
943 2, 3, 0,
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
944 "Return a list of charsets in the region between BEG and END.\n\
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
945 BEG and END are buffer positions.\n\
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
946 If the region contains any composite character,\n\
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
947 `composition' is included in the returned list.\n\
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
948 Optional arg TABLE if non-nil is a translation table to look up.\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
949 \n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
950 If the region contains invalid multiybte characters,\n\
23978
5975ffe0b250 (Ffind_charset_region): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents: 23932
diff changeset
951 `unknown' is included in the returned list.\n\
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
952 \n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
953 If the current buffer is unibyte, the returned list contains\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
954 `ascii' if any 7-bit characters are found,\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
955 and `unknown' if any 8-bit characters are found.")
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
956 (beg, end, table)
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
957 Lisp_Object beg, end, table;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
958 {
17880
06f58d8a59ba (Ffind_charset_region): Change the declaration of
Kenichi Handa <handa@m17n.org>
parents: 17863
diff changeset
959 int charsets[MAX_CHARSET + 1];
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
960 int from, from_byte, to, stop, stop_byte, i;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
961 Lisp_Object val;
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
962 int undefined;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
963 int multibyte = !NILP (current_buffer->enable_multibyte_characters);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
964
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
965 validate_region (&beg, &end);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
966 from = XFASTINT (beg);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
967 stop = to = XFASTINT (end);
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
968
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
969 if (from < GPT && GPT < to)
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
970 {
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
971 stop = GPT;
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
972 stop_byte = GPT_BYTE;
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
973 }
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
974 else
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
975 stop_byte = CHAR_TO_BYTE (stop);
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
976
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
977 from_byte = CHAR_TO_BYTE (from);
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
978
17880
06f58d8a59ba (Ffind_charset_region): Change the declaration of
Kenichi Handa <handa@m17n.org>
parents: 17863
diff changeset
979 bzero (charsets, (MAX_CHARSET + 1) * sizeof (int));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
980 while (1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
981 {
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
982 find_charset_in_str (BYTE_POS_ADDR (from_byte), stop_byte - from_byte,
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
983 charsets, table, 1, multibyte);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
984 if (stop < to)
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
985 {
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
986 from = stop, from_byte = stop_byte;
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
987 stop = to, stop_byte = CHAR_TO_BYTE (stop);
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
988 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
989 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
990 break;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
991 }
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
992
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
993 val = Qnil;
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
994 undefined = 0;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
995 for (i = (multibyte ? MAX_CHARSET : 1); i >= 0; i--)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
996 if (charsets[i])
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
997 {
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
998 if (CHARSET_DEFINED_P (i) || i == CHARSET_COMPOSITION)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
999 val = Fcons (CHARSET_SYMBOL (i), val);
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1000 else
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1001 undefined = 1;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1002 }
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1003 if (undefined)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1004 val = Fcons (Qunknown, val);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1005 return val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1006 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1007
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1008 DEFUN ("find-charset-string", Ffind_charset_string, Sfind_charset_string,
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
1009 1, 2, 0,
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
1010 "Return a list of charsets in STR.\n\
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
1011 If the string contains any composite characters,\n\
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
1012 `composition' is included in the returned list.\n\
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1013 Optional arg TABLE if non-nil is a translation table to look up.\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1014 \n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1015 If the region contains invalid multiybte characters,\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1016 `unknown' is included in the returned list.\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1017 \n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1018 If STR is unibyte, the returned list contains\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1019 `ascii' if any 7-bit characters are found,\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1020 and `unknown' if any 8-bit characters are found.")
17727
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
1021 (str, table)
9d39361ce928 (unify_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 17366
diff changeset
1022 Lisp_Object str, table;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1023 {
18003
ac148c939dec (Ffind_charset_string): The variable CHARSETS is
Kenichi Handa <handa@m17n.org>
parents: 17880
diff changeset
1024 int charsets[MAX_CHARSET + 1];
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1025 int i;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1026 Lisp_Object val;
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1027 int undefined;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1028 int multibyte;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1029
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1030 CHECK_STRING (str, 0);
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1031 multibyte = STRING_MULTIBYTE (str);
20614
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1032
18003
ac148c939dec (Ffind_charset_string): The variable CHARSETS is
Kenichi Handa <handa@m17n.org>
parents: 17880
diff changeset
1033 bzero (charsets, (MAX_CHARSET + 1) * sizeof (int));
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21063
diff changeset
1034 find_charset_in_str (XSTRING (str)->data, STRING_BYTES (XSTRING (str)),
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1035 charsets, table, 1, multibyte);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1036 val = Qnil;
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1037 undefined = 0;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1038 for (i = (multibyte ? MAX_CHARSET : 1); i >= 0; i--)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1039 if (charsets[i])
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1040 {
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1041 if (CHARSET_DEFINED_P (i) || i == CHARSET_COMPOSITION)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1042 val = Fcons (CHARSET_SYMBOL (i), val);
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1043 else
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1044 undefined = 1;
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1045 }
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1046 if (undefined)
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1047 val = Fcons (Qunknown, val);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048 return val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1049 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1050
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051 DEFUN ("make-char-internal", Fmake_char_internal, Smake_char_internal, 1, 3, 0,
17186
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
1052 "")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053 (charset, code1, code2)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 Lisp_Object charset, code1, code2;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1055 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1056 int charset_id, c1, c2;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1057
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058 CHECK_NUMBER (charset, 0);
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1059 charset_id = XINT (charset);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1060 if (!CHARSET_DEFINED_P (charset_id))
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1061 error ("Invalid charset ID: %d", XINT (charset));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1062
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1063 if (NILP (code1))
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1064 c1 = 0;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1065 else
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1066 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1067 CHECK_NUMBER (code1, 1);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1068 c1 = XINT (code1);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1069 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1070 if (NILP (code2))
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1071 c2 = 0;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1072 else
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1073 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1074 CHECK_NUMBER (code2, 2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1075 c2 = XINT (code2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1076 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1077
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1078 if (c1 < 0 || c1 > 0xFF || c2 < 0 || c2 > 0xFF)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1079 error ("Invalid code points: %d %d", c1, c2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1080 c1 &= 0x7F;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1081 c2 &= 0x7F;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1082 if (c1 == 0
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1083 ? c2 != 0
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1084 : (c2 == 0
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
1085 ? !CHAR_COMPONENTS_VALID_P (charset, c1, 0x20)
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
1086 : !CHAR_COMPONENTS_VALID_P (charset, c1, c2)))
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1087 error ("Invalid code points: %d %d", c1, c2);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1088
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1089 return make_number (MAKE_CHAR (charset_id, c1, c2));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1090 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1091
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1092 DEFUN ("split-char", Fsplit_char, Ssplit_char, 1, 1, 0,
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1093 "Return list of charset and one or two position-codes of CHAR.\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1094 If CHAR is invalid as a character code,\n\
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1095 return a list of symbol `unknown' and CHAR.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1096 (ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1097 Lisp_Object ch;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1098 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1099 Lisp_Object val;
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1100 int c, charset, c1, c2;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1101
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1102 CHECK_NUMBER (ch, 0);
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1103 c = XFASTINT (ch);
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1104 if (!CHAR_VALID_P (c, 1))
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1105 return Fcons (Qunknown, Fcons (ch, Qnil));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1106 SPLIT_CHAR (XFASTINT (ch), charset, c1, c2);
17322
a7d9b8e167ca (non_ascii_char_to_string, update_charset_table,
Kenichi Handa <handa@m17n.org>
parents: 17186
diff changeset
1107 return (c2 >= 0
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1108 ? Fcons (CHARSET_SYMBOL (charset),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1109 Fcons (make_number (c1), Fcons (make_number (c2), Qnil)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1110 : Fcons (CHARSET_SYMBOL (charset), Fcons (make_number (c1), Qnil)));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1111 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1112
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1113 DEFUN ("char-charset", Fchar_charset, Schar_charset, 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1114 "Return charset of CHAR.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1115 (ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1116 Lisp_Object ch;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1117 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1118 CHECK_NUMBER (ch, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1119
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1120 return CHARSET_SYMBOL (CHAR_CHARSET (XINT (ch)));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1121 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1122
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1123 DEFUN ("charset-after", Fcharset_after, Scharset_after, 0, 1, 0,
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1124 "Return charset of a character in the current buffer at position POS.\n\
23932
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1125 If POS is nil, it defauls to the current point.\n\
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1126 If POS is out of range, the value is nil.")
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1127 (pos)
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1128 Lisp_Object pos;
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1129 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1130 register int pos_byte, bytes, charset, c1, c2;
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1131 register unsigned char *p;
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1132
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1133 if (NILP (pos))
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1134 pos_byte = PT_BYTE;
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1135 else if (MARKERP (pos))
23932
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1136 {
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1137 pos_byte = marker_byte_position (pos);
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1138 if (pos_byte < BEGV_BYTE || pos_byte >= ZV_BYTE)
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1139 return Qnil;
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1140 }
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1141 else
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1142 {
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1143 CHECK_NUMBER (pos, 0);
23932
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1144 if (XINT (pos) < BEGV || XINT (pos) >= ZV)
08e1d4876918 (Fcharset_after): Check range. If POS is out of
Kenichi Handa <handa@m17n.org>
parents: 23928
diff changeset
1145 return Qnil;
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1146 pos_byte = CHAR_TO_BYTE (XINT (pos));
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1147 }
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1148 p = BYTE_POS_ADDR (pos_byte);
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1149 if (BASE_LEADING_CODE_P (*p))
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1150 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1151 SPLIT_MULTIBYTE_SEQ (p, Z_BYTE - pos_byte, bytes, charset, c1, c2);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1152 if (charset < 0)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1153 charset = 1;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1154 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1155 else
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1156 charset = CHARSET_ASCII;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1157
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1158 return CHARSET_SYMBOL (charset);
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1159 }
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
1160
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1161 DEFUN ("iso-charset", Fiso_charset, Siso_charset, 3, 3, 0,
20833
cf404f800d2c (Fiso_charset): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20720
diff changeset
1162 "Return charset of ISO's specification DIMENSION, CHARS, and FINAL-CHAR.\n\
cf404f800d2c (Fiso_charset): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20720
diff changeset
1163 \n\
cf404f800d2c (Fiso_charset): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20720
diff changeset
1164 ISO 2022's designation sequence (escape sequence) distinguishes charsets\n\
cf404f800d2c (Fiso_charset): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20720
diff changeset
1165 by their DIMENSION, CHARS, and FINAL-CHAR,\n\
cf404f800d2c (Fiso_charset): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20720
diff changeset
1166 where as Emacs distinguishes them by charset symbol.\n\
cf404f800d2c (Fiso_charset): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20720
diff changeset
1167 See the documentation of the function `charset-info' for the meanings of\n\
cf404f800d2c (Fiso_charset): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20720
diff changeset
1168 DIMENSION, CHARS, and FINAL-CHAR.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169 (dimension, chars, final_char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1170 Lisp_Object dimension, chars, final_char;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1171 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1172 int charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1173
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1174 CHECK_NUMBER (dimension, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1175 CHECK_NUMBER (chars, 1);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1176 CHECK_NUMBER (final_char, 2);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1177
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1178 if ((charset = ISO_CHARSET_TABLE (dimension, chars, final_char)) < 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1179 return Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1180 return CHARSET_SYMBOL (charset);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1181 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1182
20152
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1183 /* If GENERICP is nonzero, return nonzero iff C is a valid normal or
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1184 generic character. If GENERICP is zero, return nonzero iff C is a
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1185 valid normal character. Do not call this function directly,
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1186 instead use macro CHAR_VALID_P. */
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1187 int
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1188 char_valid_p (c, genericp)
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1189 int c, genericp;
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1190 {
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1191 int charset, c1, c2;
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1192
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1193 if (c < 0)
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1194 return 0;
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1195 if (SINGLE_BYTE_CHAR_P (c))
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1196 return 1;
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1197 SPLIT_NON_ASCII_CHAR (c, charset, c1, c2);
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1198 if (charset == CHARSET_COMPOSITION)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1199 return ((c >= MIN_CHAR_COMPOSITION
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1200 && c < MIN_CHAR_COMPOSITION + n_cmpchars)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1201 || (genericp && c == GENERIC_COMPOSITION_CHAR));
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1202 if (genericp)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1203 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1204 if (c1)
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1205 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1206 if (c2 <= 0) c2 = 0x20;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1207 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1208 else
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1209 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1210 if (c2 <= 0) c1 = c2 = 0x20;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1211 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1212 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1213 return (CHARSET_DEFINED_P (charset)
25584
01026ea61dcc Lots of comments fixed.
Kenichi Handa <handa@m17n.org>
parents: 25506
diff changeset
1214 && CHAR_COMPONENTS_VALID_P (charset, c1, c2));
20152
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1215 }
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1216
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1217 DEFUN ("char-valid-p", Fchar_valid_p, Schar_valid_p, 1, 2, 0,
20636
5ab6701a2b4b (Fchar_valid_p): Fix bare newlines in doc string.
Dave Love <fx@gnu.org>
parents: 20614
diff changeset
1218 "Return t if OBJECT is a valid normal character.\n\
5ab6701a2b4b (Fchar_valid_p): Fix bare newlines in doc string.
Dave Love <fx@gnu.org>
parents: 20614
diff changeset
1219 If optional arg GENERICP is non-nil, also return t if OBJECT is\n\
20152
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1220 a valid generic character.")
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1221 (object, genericp)
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1222 Lisp_Object object, genericp;
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1223 {
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1224 if (! NATNUMP (object))
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1225 return Qnil;
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1226 return (CHAR_VALID_P (XFASTINT (object), !NILP (genericp)) ? Qt : Qnil);
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1227 }
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
1228
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1229 DEFUN ("unibyte-char-to-multibyte", Funibyte_char_to_multibyte,
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1230 Sunibyte_char_to_multibyte, 1, 1, 0,
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1231 "Convert the unibyte character CH to multibyte character.\n\
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
1232 The conversion is done based on `nonascii-translation-table' (which see)\n\
21715
98c5740d198b (Funibyte_char_to_multibyte): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21519
diff changeset
1233 or `nonascii-insert-offset' (which see).")
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1234 (ch)
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1235 Lisp_Object ch;
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1236 {
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1237 int c;
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1238
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1239 CHECK_NUMBER (ch, 0);
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1240 c = XINT (ch);
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1241 if (c < 0 || c >= 0400)
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1242 error ("Invalid unibyte character: %d", c);
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1243 c = unibyte_char_to_multibyte (c);
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1244 if (c < 0)
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1245 error ("Can't convert to multibyte character: %d", XINT (ch));
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1246 return make_number (c);
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1247 }
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
1248
23060
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1249 DEFUN ("multibyte-char-to-unibyte", Fmultibyte_char_to_unibyte,
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1250 Smultibyte_char_to_unibyte, 1, 1, 0,
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1251 "Convert the multibyte character CH to unibyte character.\n\
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1252 The conversion is done based on `nonascii-translation-table' (which see)\n\
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1253 or `nonascii-insert-offset' (which see).")
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1254 (ch)
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1255 Lisp_Object ch;
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1256 {
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1257 int c;
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1258
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1259 CHECK_NUMBER (ch, 0);
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1260 c = XINT (ch);
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1261 if (! CHAR_VALID_P (c, 0))
23060
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1262 error ("Invalid multibyte character: %d", c);
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1263 c = multibyte_char_to_unibyte (c, Qnil);
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1264 if (c < 0)
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1265 error ("Can't convert to unibyte character: %d", XINT (ch));
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1266 return make_number (c);
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1267 }
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
1268
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1269 DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
23140
17ad9953ff42 (Fchar_bytes): Add \n\ in doc-string.
Kenichi Handa <handa@m17n.org>
parents: 23131
diff changeset
1270 "Return 1 regardless of the argument CHAR.\n\
23576
00ee2e0c8976 (Fchar_bytes): Doc fix.
Andreas Schwab <schwab@suse.de>
parents: 23489
diff changeset
1271 This is now an obsolete function. We keep it just for backward compatibility.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1272 (ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1273 Lisp_Object ch;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1274 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1275 Lisp_Object val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1276
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1277 CHECK_NUMBER (ch, 0);
23131
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1278 return make_number (1);
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1279 }
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1280
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1281 /* Return how many bytes C will occupy in a multibyte buffer.
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1282 Don't call this function directly, instead use macro CHAR_BYTES. */
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1283 int
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1284 char_bytes (c)
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1285 int c;
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1286 {
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1287 int bytes;
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1288
23767
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
1289 if (SINGLE_BYTE_CHAR_P (c) || (c & ~GLYPH_MASK_CHAR))
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
1290 return 1;
1dfb6d38354f (non_ascii_char_to_string): If C has modifier bits,
Kenichi Handa <handa@m17n.org>
parents: 23720
diff changeset
1291
23131
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1292 if (COMPOSITE_CHAR_P (c))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1293 {
23131
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1294 unsigned int id = COMPOSITE_CHAR_ID (c);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1295
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1296 bytes = (id < n_cmpchars ? cmpchar_table[id]->len : 1);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1297 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1298 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1299 {
23131
f7e486faa1ad (Fchar_bytes): Now always return 1.
Kenichi Handa <handa@m17n.org>
parents: 23060
diff changeset
1300 int charset = CHAR_CHARSET (c);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1301
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1302 bytes = CHARSET_DEFINED_P (charset) ? CHARSET_BYTES (charset) : 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1303 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1304
23576
00ee2e0c8976 (Fchar_bytes): Doc fix.
Andreas Schwab <schwab@suse.de>
parents: 23489
diff changeset
1305 return bytes;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1306 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1307
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1308 /* Return the width of character of which multi-byte form starts with
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1309 C. The width is measured by how many columns occupied on the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1310 screen when displayed in the current buffer. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1311
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1312 #define ONE_BYTE_CHAR_WIDTH(c) \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1313 (c < 0x20 \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1314 ? (c == '\t' \
17366
f7809ff2c65f (ONE_BYTE_CHAR_WIDTH, Fconcat_chars): Don't use Lisp_Object as integer.
Karl Heuer <kwzh@gnu.org>
parents: 17322
diff changeset
1315 ? XFASTINT (current_buffer->tab_width) \
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1316 : (c == '\n' ? 0 : (NILP (current_buffer->ctl_arrow) ? 4 : 2))) \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1317 : (c < 0x7f \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1318 ? 1 \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1319 : (c == 0x7F \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1320 ? (NILP (current_buffer->ctl_arrow) ? 4 : 2) \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1321 : ((! NILP (current_buffer->enable_multibyte_characters) \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1322 && BASE_LEADING_CODE_P (c)) \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1323 ? WIDTH_BY_CHAR_HEAD (c) \
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
1324 : 4))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1325
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1326 DEFUN ("char-width", Fchar_width, Schar_width, 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1327 "Return width of CHAR when displayed in the current buffer.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1328 The width is measured by how many columns it occupies on the screen.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1329 (ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1330 Lisp_Object ch;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1331 {
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1332 Lisp_Object val, disp;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1333 int c;
18537
6a726658dfa9 (Fchar_width): Check if the current buffer has display
Kenichi Handa <handa@m17n.org>
parents: 18341
diff changeset
1334 struct Lisp_Char_Table *dp = buffer_display_table ();
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1335
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1336 CHECK_NUMBER (ch, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1337
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1338 c = XINT (ch);
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1339
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1340 /* Get the way the display table would display it. */
18537
6a726658dfa9 (Fchar_width): Check if the current buffer has display
Kenichi Handa <handa@m17n.org>
parents: 18341
diff changeset
1341 disp = dp ? DISP_CHAR_VECTOR (dp, c) : Qnil;
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1342
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1343 if (VECTORP (disp))
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1344 XSETINT (val, XVECTOR (disp)->size);
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1345 else if (SINGLE_BYTE_CHAR_P (c))
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1346 XSETINT (val, ONE_BYTE_CHAR_WIDTH (c));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1347 else if (COMPOSITE_CHAR_P (c))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1348 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1349 int id = COMPOSITE_CHAR_ID (XFASTINT (ch));
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1350 XSETFASTINT (val, (id < n_cmpchars ? cmpchar_table[id]->width : 1));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1351 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1352 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1353 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1354 int charset = CHAR_CHARSET (c);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1355
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1356 XSETFASTINT (val, CHARSET_WIDTH (charset));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1357 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1358 return val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1359 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1360
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1361 /* Return width of string STR of length LEN when displayed in the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1362 current buffer. The width is measured by how many columns it
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1363 occupies on the screen. */
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1364
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1365 int
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1366 strwidth (str, len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1367 unsigned char *str;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1368 int len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1369 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1370 unsigned char *endp = str + len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1371 int width = 0;
20362
67bcb068070c (strwidth): Remove extra argument to buffer_display_table.
Kenichi Handa <handa@m17n.org>
parents: 20228
diff changeset
1372 struct Lisp_Char_Table *dp = buffer_display_table ();
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1373
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1374 while (str < endp)
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1375 {
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1376 if (*str == LEADING_CODE_COMPOSITION)
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1377 {
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1378 int id = str_cmpchar_id (str, endp - str);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1379
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1380 if (id < 0)
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1381 {
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1382 width += 4;
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1383 str++;
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1384 }
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1385 else
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1386 {
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1387 width += cmpchar_table[id]->width;
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1388 str += cmpchar_table[id]->len;
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1389 }
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1390 }
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1391 else
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1392 {
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1393 Lisp_Object disp;
21063
44845df088bc (strwidth): Make it work for invalid bytes sequence.
Kenichi Handa <handa@m17n.org>
parents: 21034
diff changeset
1394 int thislen;
44845df088bc (strwidth): Make it work for invalid bytes sequence.
Kenichi Handa <handa@m17n.org>
parents: 21034
diff changeset
1395 int c = STRING_CHAR_AND_LENGTH (str, endp - str, thislen);
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1396
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1397 /* Get the way the display table would display it. */
17863
bc8774c7999b (strwidth): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 17843
diff changeset
1398 if (dp)
bc8774c7999b (strwidth): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 17843
diff changeset
1399 disp = DISP_CHAR_VECTOR (dp, c);
bc8774c7999b (strwidth): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 17843
diff changeset
1400 else
bc8774c7999b (strwidth): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 17843
diff changeset
1401 disp = Qnil;
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1402
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1403 if (VECTORP (disp))
21063
44845df088bc (strwidth): Make it work for invalid bytes sequence.
Kenichi Handa <handa@m17n.org>
parents: 21034
diff changeset
1404 width += XVECTOR (disp)->size;
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1405 else
21063
44845df088bc (strwidth): Make it work for invalid bytes sequence.
Kenichi Handa <handa@m17n.org>
parents: 21034
diff changeset
1406 width += ONE_BYTE_CHAR_WIDTH (*str);
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1407
21063
44845df088bc (strwidth): Make it work for invalid bytes sequence.
Kenichi Handa <handa@m17n.org>
parents: 21034
diff changeset
1408 str += thislen;
17818
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1409 }
76c6740bd736 (strwidth, Fchar_width): Handle display table.
Richard M. Stallman <rms@gnu.org>
parents: 17727
diff changeset
1410 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1411 return width;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1412 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1413
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1414 DEFUN ("string-width", Fstring_width, Sstring_width, 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1415 "Return width of STRING when displayed in the current buffer.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1416 Width is measured by how many columns it occupies on the screen.\n\
19384
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1417 When calculating width of a multibyte character in STRING,\n\
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1418 only the base leading-code is considered; the validity of\n\
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1419 the following bytes is not checked.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1420 (str)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1421 Lisp_Object str;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1422 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1423 Lisp_Object val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1424
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1425 CHECK_STRING (str, 0);
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21063
diff changeset
1426 XSETFASTINT (val, strwidth (XSTRING (str)->data,
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21063
diff changeset
1427 STRING_BYTES (XSTRING (str))));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1428 return val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1429 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1430
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1431 DEFUN ("char-direction", Fchar_direction, Schar_direction, 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1432 "Return the direction of CHAR.\n\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1433 The returned value is 0 for left-to-right and 1 for right-to-left.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1434 (ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1435 Lisp_Object ch;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1436 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1437 int charset;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1438
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1439 CHECK_NUMBER (ch, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1440 charset = CHAR_CHARSET (XFASTINT (ch));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1441 if (!CHARSET_DEFINED_P (charset))
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1442 invalid_character (XINT (ch));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1443 return CHARSET_TABLE_INFO (charset, CHARSET_DIRECTION_IDX);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1444 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1445
19415
309b9a0d8a45 (Fchars_in_region): Renamed form Fcount_chars_region.
Kenichi Handa <handa@m17n.org>
parents: 19384
diff changeset
1446 DEFUN ("chars-in-region", Fchars_in_region, Schars_in_region, 2, 2, 0,
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1447 "Return number of characters between BEG and END.")
19384
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1448 (beg, end)
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1449 Lisp_Object beg, end;
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1450 {
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1451 int from, to;
19384
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1452
22739
f0c8af6c2dfd (Fchars_in_region): Coerce markers.
Richard M. Stallman <rms@gnu.org>
parents: 22703
diff changeset
1453 CHECK_NUMBER_COERCE_MARKER (beg, 0);
f0c8af6c2dfd (Fchars_in_region): Coerce markers.
Richard M. Stallman <rms@gnu.org>
parents: 22703
diff changeset
1454 CHECK_NUMBER_COERCE_MARKER (end, 1);
f0c8af6c2dfd (Fchars_in_region): Coerce markers.
Richard M. Stallman <rms@gnu.org>
parents: 22703
diff changeset
1455
19384
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1456 from = min (XFASTINT (beg), XFASTINT (end));
19444
752afe97eaa4 (Fchars_in_region): Fix gap handling.
Richard M. Stallman <rms@gnu.org>
parents: 19415
diff changeset
1457 to = max (XFASTINT (beg), XFASTINT (end));
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1458
21519
9b26f9300d41 (Fchars_in_region): Fix mixing of Lisp_Object and int.
Andreas Schwab <schwab@suse.de>
parents: 21514
diff changeset
1459 return make_number (to - from);
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1460 }
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1461
20614
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1462 /* Return the number of characters in the NBYTES bytes at PTR.
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1463 This works by looking at the contents and checking for multibyte sequences.
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1464 However, if the current buffer has enable-multibyte-characters = nil,
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1465 we treat each byte as a character. */
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1466
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1467 int
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1468 chars_in_text (ptr, nbytes)
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1469 unsigned char *ptr;
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1470 int nbytes;
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1471 {
20614
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1472 /* current_buffer is null at early stages of Emacs initialization. */
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1473 if (current_buffer == 0
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1474 || NILP (current_buffer->enable_multibyte_characters))
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1475 return nbytes;
20188
d4ad4463384d (Fchars_in_string): Pay attention to
Kenichi Handa <handa@m17n.org>
parents: 20152
diff changeset
1476
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1477 return multibyte_chars_in_text (ptr, nbytes);
19384
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1478 }
6ce37633c7f9 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19025
diff changeset
1479
20614
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1480 /* Return the number of characters in the NBYTES bytes at PTR.
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1481 This works by looking at the contents and checking for multibyte sequences.
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1482 It ignores enable-multibyte-characters. */
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1483
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1484 int
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1485 multibyte_chars_in_text (ptr, nbytes)
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1486 unsigned char *ptr;
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1487 int nbytes;
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1488 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1489 unsigned char *endp;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1490 int chars, bytes;
20614
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1491
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1492 endp = ptr + nbytes;
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1493 chars = 0;
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1494
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1495 while (ptr < endp)
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1496 {
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1497 if (BASE_LEADING_CODE_P (*ptr))
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1498 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1499 PARSE_MULTIBYTE_SEQ (ptr, nbytes, bytes);
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1500 ptr += bytes;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1501 nbytes -= bytes;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1502 }
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1503 else
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1504 {
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1505 ptr++;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1506 nbytes--;
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1507 }
20614
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1508 chars++;
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1509 }
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1510
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1511 return chars;
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1512 }
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1513
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
1514 DEFUN ("string", Fstring, Sstring, 1, MANY, 0,
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1515 "Concatenate all the argument characters and make the result a string.")
17366
f7809ff2c65f (ONE_BYTE_CHAR_WIDTH, Fconcat_chars): Don't use Lisp_Object as integer.
Karl Heuer <kwzh@gnu.org>
parents: 17322
diff changeset
1516 (n, args)
f7809ff2c65f (ONE_BYTE_CHAR_WIDTH, Fconcat_chars): Don't use Lisp_Object as integer.
Karl Heuer <kwzh@gnu.org>
parents: 17322
diff changeset
1517 int n;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1518 Lisp_Object *args;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1519 {
17366
f7809ff2c65f (ONE_BYTE_CHAR_WIDTH, Fconcat_chars): Don't use Lisp_Object as integer.
Karl Heuer <kwzh@gnu.org>
parents: 17322
diff changeset
1520 int i;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1521 unsigned char *buf
17834
e154b943bbba (non_ascii_char_to_string): Signal error if the
Kenichi Handa <handa@m17n.org>
parents: 17818
diff changeset
1522 = (unsigned char *) alloca (MAX_LENGTH_OF_MULTI_BYTE_FORM * n);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1523 unsigned char *p = buf;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1524 Lisp_Object val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1525
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1526 for (i = 0; i < n; i++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1527 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528 int c, len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1529 unsigned char *str;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1531 if (!INTEGERP (args[i]))
20720
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
1532 CHECK_NUMBER (args[i], 0);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1533 c = XINT (args[i]);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1534 len = CHAR_STRING (c, p, str);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1535 if (p != str)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1536 /* C is a composite character. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1537 bcopy (str, p, len);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1538 p += len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1539 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1540
23427
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
1541 /* Here, we can't use make_string_from_bytes because of byte
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
1542 combining problem. */
4acd4faa545a (Fstring): Call make_string instead of
Kenichi Handa <handa@m17n.org>
parents: 23397
diff changeset
1543 val = make_string (buf, p - buf);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1544 return val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1545 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1546
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1547 #endif /* emacs */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1548
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1549 /*** Composite characters staffs ***/
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1550
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1551 /* Each composite character is identified by CMPCHAR-ID which is
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1552 assigned when Emacs needs the character code of the composite
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1553 character (e.g. when displaying it on the screen). See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1554 document "GENERAL NOTE on COMPOSITE CHARACTER" in `charset.h' how a
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1555 composite character is represented in Emacs. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1556
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1557 /* If `static' is defined, it means that it is defined to null string. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1558 #ifndef static
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1559 /* The following function is copied from lread.c. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1560 static int
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1561 hash_string (ptr, len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1562 unsigned char *ptr;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1563 int len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1564 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1565 register unsigned char *p = ptr;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1566 register unsigned char *end = p + len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1567 register unsigned char c;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1568 register int hash = 0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1569
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1570 while (p != end)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1571 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1572 c = *p++;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 if (c >= 0140) c -= 40;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1574 hash = ((hash<<3) + (hash>>28) + c);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1575 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1576 return hash & 07777777777;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1578 #endif
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1579
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1580 #define CMPCHAR_HASH_TABLE_SIZE 0xFFF
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1581
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1582 static int *cmpchar_hash_table[CMPCHAR_HASH_TABLE_SIZE];
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1583
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1584 /* Each element of `cmpchar_hash_table' is a pointer to an array of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1585 integer, where the 1st element is the size of the array, the 2nd
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1586 element is how many elements are actually used in the array, and
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1587 the remaining elements are CMPCHAR-IDs of composite characters of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1588 the same hash value. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1589 #define CMPCHAR_HASH_SIZE(table) table[0]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1590 #define CMPCHAR_HASH_USED(table) table[1]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1591 #define CMPCHAR_HASH_CMPCHAR_ID(table, i) table[i]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1592
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1593 /* Return CMPCHAR-ID of the composite character in STR of the length
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594 LEN. If the composite character has not yet been registered,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1595 register it in `cmpchar_table' and assign new CMPCHAR-ID. This
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1596 is the sole function for assigning CMPCHAR-ID. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1597 int
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1598 str_cmpchar_id (str, len)
21419
95aae2ff5fcd (string_to_non_ascii_char, multibyte_form_length)
Karl Heuer <kwzh@gnu.org>
parents: 21255
diff changeset
1599 const unsigned char *str;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1600 int len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1601 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602 int hash_idx, *hashp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 unsigned char *buf;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1604 int embedded_rule; /* 1 if composition rule is embedded. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1605 int chars; /* number of components. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1606 int i;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1607 struct cmpchar_info *cmpcharp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1608
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1609 /* The second byte 0xFF means COMPOSITION rule is embedded. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1610 embedded_rule = (str[1] == 0xFF);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1611
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1612 /* At first, get the actual length of the composite character. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1613 {
21419
95aae2ff5fcd (string_to_non_ascii_char, multibyte_form_length)
Karl Heuer <kwzh@gnu.org>
parents: 21255
diff changeset
1614 const unsigned char *p, *endp = str + 1, *lastp = str + len;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1615 int bytes;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1616
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1617 while (endp < lastp && ! CHAR_HEAD_P (*endp)) endp++;
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1618 if (endp - str < 5)
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1619 /* Any composite char have at least 5-byte length. */
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1620 return -1;
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1621
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1622 chars = 0;
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1623 p = str + 1;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1624 while (p < endp)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1625 {
23685
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1626 if (embedded_rule)
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1627 {
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1628 p++;
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1629 if (p >= endp)
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1630 return -1;
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1631 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1632 /* No need of checking if *P is 0xA0 because
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1633 BYTES_BY_CHAR_HEAD (0x80) surely returns 2. */
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1634 p += BYTES_BY_CHAR_HEAD (*p - 0x20);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 chars++;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 }
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1637 if (p > endp || chars < 2 || chars > MAX_COMPONENT_COUNT)
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1638 /* Invalid components. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1639 return -1;
20933
5ceea9d50194 (invalid_character): New function.
Kenichi Handa <handa@m17n.org>
parents: 20890
diff changeset
1640 len = p - str;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1641 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1642 hash_idx = hash_string (str, len) % CMPCHAR_HASH_TABLE_SIZE;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1643 hashp = cmpchar_hash_table[hash_idx];
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1644
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1645 /* Then, look into the hash table. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1646 if (hashp != NULL)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1647 /* Find the correct one among composite characters of the same
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648 hash value. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1649 for (i = 2; i < CMPCHAR_HASH_USED (hashp); i++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1650 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1651 cmpcharp = cmpchar_table[CMPCHAR_HASH_CMPCHAR_ID (hashp, i)];
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1652 if (len == cmpcharp->len
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 && ! bcmp (str, cmpcharp->data, len))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 return CMPCHAR_HASH_CMPCHAR_ID (hashp, i);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1655 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1656
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1657 /* We have to register the composite character in cmpchar_table. */
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
1658 if (n_cmpchars >= (CHAR_FIELD2_MASK | CHAR_FIELD3_MASK))
17186
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
1659 /* No, we have no more room for a new composite character. */
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
1660 return -1;
65bc06706714 Adjusted for the change of MAX_CHARSET.
Kenichi Handa <handa@m17n.org>
parents: 17121
diff changeset
1661
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662 /* Make the entry in hash table. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1663 if (hashp == NULL)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1664 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1665 /* Make a table for 8 composite characters initially. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1666 hashp = (cmpchar_hash_table[hash_idx]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1667 = (int *) xmalloc (sizeof (int) * (2 + 8)));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1668 CMPCHAR_HASH_SIZE (hashp) = 10;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1669 CMPCHAR_HASH_USED (hashp) = 2;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1670 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1671 else if (CMPCHAR_HASH_USED (hashp) >= CMPCHAR_HASH_SIZE (hashp))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1672 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1673 CMPCHAR_HASH_SIZE (hashp) += 8;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1674 hashp = (cmpchar_hash_table[hash_idx]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1675 = (int *) xrealloc (hashp,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1676 sizeof (int) * CMPCHAR_HASH_SIZE (hashp)));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1677 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1678 CMPCHAR_HASH_CMPCHAR_ID (hashp, CMPCHAR_HASH_USED (hashp)) = n_cmpchars;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1679 CMPCHAR_HASH_USED (hashp)++;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1680
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1681 /* Set information of the composite character in cmpchar_table. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1682 if (cmpchar_table_size == 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1683 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1684 /* This is the first composite character to be registered. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1685 cmpchar_table_size = 256;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1686 cmpchar_table
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1687 = (struct cmpchar_info **) xmalloc (sizeof (cmpchar_table[0])
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1688 * cmpchar_table_size);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1689 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1690 else if (cmpchar_table_size <= n_cmpchars)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1691 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1692 cmpchar_table_size += 256;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693 cmpchar_table
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 = (struct cmpchar_info **) xrealloc (cmpchar_table,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1695 sizeof (cmpchar_table[0])
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1696 * cmpchar_table_size);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1697 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1698
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1699 cmpcharp = (struct cmpchar_info *) xmalloc (sizeof (struct cmpchar_info));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1700
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1701 cmpcharp->len = len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1702 cmpcharp->data = (unsigned char *) xmalloc (len + 1);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 bcopy (str, cmpcharp->data, len);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 cmpcharp->data[len] = 0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 cmpcharp->glyph_len = chars;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1706 cmpcharp->glyph = (GLYPH *) xmalloc (sizeof (GLYPH) * chars);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1707 if (embedded_rule)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1708 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1709 cmpcharp->cmp_rule = (unsigned char *) xmalloc (chars);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1710 cmpcharp->col_offset = (float *) xmalloc (sizeof (float) * chars);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1711 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1712 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1713 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 cmpcharp->cmp_rule = NULL;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1715 cmpcharp->col_offset = NULL;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1717
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1718 /* Setup GLYPH data and composition rules (if any) so as not to make
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1719 them every time on displaying. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1720 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1721 unsigned char *bufp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1722 int width;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1723 float leftmost = 0.0, rightmost = 1.0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1724
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1725 if (embedded_rule)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1726 /* At first, col_offset[N] is set to relative to col_offset[0]. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1727 cmpcharp->col_offset[0] = 0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1728
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1729 for (i = 0, bufp = cmpcharp->data + 1; i < chars; i++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1730 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1731 if (embedded_rule)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1732 cmpcharp->cmp_rule[i] = *bufp++;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1733
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1734 if (*bufp == 0xA0) /* This is an ASCII character. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1735 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1736 cmpcharp->glyph[i] = FAST_MAKE_GLYPH ((*++bufp & 0x7F), 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1737 width = 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1738 bufp++;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1739 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1740 else /* Multibyte character. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1741 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1742 /* Make `bufp' point normal multi-byte form temporally. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1743 *bufp -= 0x20;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1744 cmpcharp->glyph[i]
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1745 = FAST_MAKE_GLYPH (string_to_non_ascii_char (bufp, 4, 0), 0);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1746 width = WIDTH_BY_CHAR_HEAD (*bufp);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1747 *bufp += 0x20;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1748 bufp += BYTES_BY_CHAR_HEAD (*bufp - 0x20);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1749 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1750
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1751 if (embedded_rule && i > 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1752 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1753 /* Reference points (global_ref and new_ref) are
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1754 encoded as below:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1755
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1756 0--1--2 -- ascent
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1757 | |
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1758 | |
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1759 | 4 -+--- center
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1760 -- 3 5 -- baseline
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1761 | |
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1762 6--7--8 -- descent
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1763
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1764 Now, we calculate the column offset of the new glyph
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1765 from the left edge of the first glyph. This can avoid
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1766 the same calculation everytime displaying this
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1767 composite character. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1768
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1769 /* Reference points of global glyph and new glyph. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1770 int global_ref = (cmpcharp->cmp_rule[i] - 0xA0) / 9;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1771 int new_ref = (cmpcharp->cmp_rule[i] - 0xA0) % 9;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1772 /* Column offset relative to the first glyph. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1773 float left = (leftmost
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1774 + (global_ref % 3) * (rightmost - leftmost) / 2.0
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1775 - (new_ref % 3) * width / 2.0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1776
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1777 cmpcharp->col_offset[i] = left;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1778 if (left < leftmost)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1779 leftmost = left;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1780 if (left + width > rightmost)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1781 rightmost = left + width;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1782 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1783 else
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1784 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1785 if (width > rightmost)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1786 rightmost = width;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1787 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1788 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1789 if (embedded_rule)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1790 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1791 /* Now col_offset[N] are relative to the left edge of the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1792 first component. Make them relative to the left edge of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1793 overall glyph. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1794 for (i = 0; i < chars; i++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1795 cmpcharp->col_offset[i] -= leftmost;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1796 /* Make rightmost holds width of overall glyph. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1797 rightmost -= leftmost;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1798 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1799
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1800 cmpcharp->width = rightmost;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1801 if (cmpcharp->width < rightmost)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1802 /* To get a ceiling integer value. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1803 cmpcharp->width++;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1804 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1805
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1806 cmpchar_table[n_cmpchars] = cmpcharp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1807
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1808 return n_cmpchars++;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1809 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1810
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1811 /* Return the Nth element of the composite character C. If NOERROR is
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1812 nonzero, return 0 on error condition (C is an invalid composite
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1813 charcter, or N is out of range). */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1814 int
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1815 cmpchar_component (c, n, noerror)
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1816 int c, n, noerror;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1817 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1818 int id = COMPOSITE_CHAR_ID (c);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1819
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1820 if (id < 0 || id >= n_cmpchars)
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1821 {
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1822 /* C is not a valid composite character. */
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1823 if (noerror) return 0;
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1824 error ("Invalid composite character: %d", c) ;
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1825 }
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1826 if (n >= cmpchar_table[id]->glyph_len)
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1827 {
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1828 /* No such component. */
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1829 if (noerror) return 0;
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1830 args_out_of_range (make_number (c), make_number (n));
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1831 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1832 /* No face data is stored in glyph code. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1833 return ((int) (cmpchar_table[id]->glyph[n]));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1834 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1835
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1836 DEFUN ("cmpcharp", Fcmpcharp, Scmpcharp, 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1837 "T if CHAR is a composite character.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1838 (ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1839 Lisp_Object ch;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1840 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1841 CHECK_NUMBER (ch, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1842 return (COMPOSITE_CHAR_P (XINT (ch)) ? Qt : Qnil);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1843 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1844
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1845 DEFUN ("composite-char-component", Fcmpchar_component, Scmpchar_component,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1846 2, 2, 0,
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1847 "Return the Nth component character of composite character CHARACTER.")
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1848 (character, n)
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1849 Lisp_Object character, n;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1850 {
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1851 int id;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1852
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1853 CHECK_NUMBER (character, 0);
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1854 CHECK_NUMBER (n, 1);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1855
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1856 return (make_number (cmpchar_component (XINT (character), XINT (n), 0)));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1857 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1858
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1859 DEFUN ("composite-char-composition-rule", Fcmpchar_cmp_rule, Scmpchar_cmp_rule,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1860 2, 2, 0,
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1861 "Return the Nth composition rule of composite character CHARACTER.\n\
17121
f8e2cd94c274 (Fcmpchar_cmp_rule): Escape newlines in docstring.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1862 The returned rule is for composing the Nth component\n\
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1863 on the (N-1)th component.\n\
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1864 If CHARACTER should be composed relatively or N is 0, return 255.")
17121
f8e2cd94c274 (Fcmpchar_cmp_rule): Escape newlines in docstring.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1865 (character, n)
f8e2cd94c274 (Fcmpchar_cmp_rule): Escape newlines in docstring.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1866 Lisp_Object character, n;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1867 {
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1868 int id;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1869
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1870 CHECK_NUMBER (character, 0);
17121
f8e2cd94c274 (Fcmpchar_cmp_rule): Escape newlines in docstring.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1871 CHECK_NUMBER (n, 1);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1872
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1873 id = COMPOSITE_CHAR_ID (XINT (character));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1874 if (id < 0 || id >= n_cmpchars)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1875 error ("Invalid composite character: %d", XINT (character));
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1876 if (XINT (n) < 0 || XINT (n) >= cmpchar_table[id]->glyph_len)
17121
f8e2cd94c274 (Fcmpchar_cmp_rule): Escape newlines in docstring.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1877 args_out_of_range (character, n);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1878
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1879 return make_number (cmpchar_table[id]->cmp_rule
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1880 ? cmpchar_table[id]->cmp_rule[XINT (n)]
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1881 : 255);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1882 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1883
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1884 DEFUN ("composite-char-composition-rule-p", Fcmpchar_cmp_rule_p,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1885 Scmpchar_cmp_rule_p, 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1886 "Return non-nil if composite character CHARACTER contains a embedded rule.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1887 (character)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1888 Lisp_Object character;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1889 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1890 int id;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1891
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1892 CHECK_NUMBER (character, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1893 id = COMPOSITE_CHAR_ID (XINT (character));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1894 if (id < 0 || id >= n_cmpchars)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1895 error ("Invalid composite character: %d", XINT (character));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1896
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1897 return (cmpchar_table[id]->cmp_rule ? Qt : Qnil);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1898 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1899
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1900 DEFUN ("composite-char-component-count", Fcmpchar_cmp_count,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1901 Scmpchar_cmp_count, 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1902 "Return number of compoents of composite character CHARACTER.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1903 (character)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1904 Lisp_Object character;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1905 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1906 int id;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1907
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1908 CHECK_NUMBER (character, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1909 id = COMPOSITE_CHAR_ID (XINT (character));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1910 if (id < 0 || id >= n_cmpchars)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1911 error ("Invalid composite character: %d", XINT (character));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1912
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1913 return (make_number (cmpchar_table[id]->glyph_len));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1914 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1915
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1916 DEFUN ("compose-string", Fcompose_string, Scompose_string,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1917 1, 1, 0,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1918 "Return one char string composed from all characters in STRING.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1919 (str)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1920 Lisp_Object str;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1921 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1922 unsigned char buf[MAX_LENGTH_OF_MULTI_BYTE_FORM], *p, *pend, *ptemp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1923 int len, i;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1924
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1925 CHECK_STRING (str, 0);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1927 buf[0] = LEADING_CODE_COMPOSITION;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1928 p = XSTRING (str)->data;
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21063
diff changeset
1929 pend = p + STRING_BYTES (XSTRING (str));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1930 i = 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1931 while (p < pend)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1932 {
23685
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1933 if (*p < 0x20) /* control code */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1934 error ("Invalid component character: %d", *p);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1935 else if (*p < 0x80) /* ASCII */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1936 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1937 if (i + 2 >= MAX_LENGTH_OF_MULTI_BYTE_FORM)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1938 error ("Too long string to be composed: %s", XSTRING (str)->data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1939 /* Prepend an ASCII charset indicator 0xA0, set MSB of the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1940 code itself. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1941 buf[i++] = 0xA0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1942 buf[i++] = *p++ + 0x80;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1943 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1944 else if (*p == LEADING_CODE_COMPOSITION) /* composite char */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1945 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1946 /* Already composed. Eliminate the heading
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1947 LEADING_CODE_COMPOSITION, keep the remaining bytes
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1948 unchanged. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1949 p++;
23668
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1950 if (*p == 255)
23faf76ec325 (cmpchar_component): New arg NOERROR. Check
Kenichi Handa <handa@m17n.org>
parents: 23665
diff changeset
1951 error ("Can't compose a rule-based composition character");
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1952 ptemp = p;
20534
066251bcf9f7 (Fchars_in_string): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents: 20435
diff changeset
1953 while (! CHAR_HEAD_P (*p)) p++;
23685
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1954 if (str_cmpchar_id (ptemp - 1, p - ptemp + 1) < 0)
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1955 error ("Can't compose an invalid composition character");
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1956 if (i + (p - ptemp) >= MAX_LENGTH_OF_MULTI_BYTE_FORM)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1957 error ("Too long string to be composed: %s", XSTRING (str)->data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1958 bcopy (ptemp, buf + i, p - ptemp);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1959 i += p - ptemp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1960 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1961 else /* multibyte char */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1962 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1963 /* Add 0x20 to the base leading-code, keep the remaining
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1964 bytes unchanged. */
25506
ba0ad349e792 (SPLIT_COMPOSITE_SEQ): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25250
diff changeset
1965 int c = STRING_CHAR_AND_LENGTH (p, pend - p, len);
23685
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1966
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1967 if (len <= 1 || ! CHAR_VALID_P (c, 0))
14c75dfaaa44 (str_cmpchar_id): Check the byte sequence for
Kenichi Handa <handa@m17n.org>
parents: 23668
diff changeset
1968 error ("Can't compose an invalid character");
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1969 if (i + len >= MAX_LENGTH_OF_MULTI_BYTE_FORM)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1970 error ("Too long string to be composed: %s", XSTRING (str)->data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1971 bcopy (p, buf + i, len);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1972 buf[i] += 0x20;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1973 p += len, i += len;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1974 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1975 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1976
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1977 if (i < 5)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1978 /* STR contains only one character, which can't be composed. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1979 error ("Too short string to be composed: %s", XSTRING (str)->data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1980
21255
3d75330ce275 (Fstring): Use make_string_from_bytes.
Richard M. Stallman <rms@gnu.org>
parents: 21244
diff changeset
1981 return make_string_from_bytes (buf, 1, i);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1982 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1983
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1984
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21445
diff changeset
1985 int
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1986 charset_id_internal (charset_name)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1987 char *charset_name;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1988 {
22927
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
1989 Lisp_Object val;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1990
22927
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
1991 val= Fget (intern (charset_name), Qcharset);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1992 if (!VECTORP (val))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1993 error ("Charset %s is not defined", charset_name);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1994
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1995 return (XINT (XVECTOR (val)->contents[0]));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1996 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1997
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1998 DEFUN ("setup-special-charsets", Fsetup_special_charsets,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1999 Ssetup_special_charsets, 0, 0, 0, "Internal use only.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2000 ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2001 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2002 charset_latin_iso8859_1 = charset_id_internal ("latin-iso8859-1");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2003 charset_jisx0208_1978 = charset_id_internal ("japanese-jisx0208-1978");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2004 charset_jisx0208 = charset_id_internal ("japanese-jisx0208");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2005 charset_katakana_jisx0201 = charset_id_internal ("katakana-jisx0201");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2006 charset_latin_jisx0201 = charset_id_internal ("latin-jisx0201");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2007 charset_big5_1 = charset_id_internal ("chinese-big5-1");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2008 charset_big5_2 = charset_id_internal ("chinese-big5-2");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2009 return Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2010 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2011
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21445
diff changeset
2012 void
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2013 init_charset_once ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2014 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2015 int i, j, k;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2016
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2017 staticpro (&Vcharset_table);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2018 staticpro (&Vcharset_symbol_table);
22703
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2019 staticpro (&Vgeneric_character_list);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2020
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2021 /* This has to be done here, before we call Fmake_char_table. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2022 Qcharset_table = intern ("charset-table");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2023 staticpro (&Qcharset_table);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2024
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2025 /* Intern this now in case it isn't already done.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2026 Setting this variable twice is harmless.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2027 But don't staticpro it here--that is done in alloc.c. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2028 Qchar_table_extra_slots = intern ("char-table-extra-slots");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2029
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2030 /* Now we are ready to set up this property, so we can
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2031 create the charset table. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2032 Fput (Qcharset_table, Qchar_table_extra_slots, make_number (0));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2033 Vcharset_table = Fmake_char_table (Qcharset_table, Qnil);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2034
23883
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
2035 Qunknown = intern ("unknown");
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
2036 staticpro (&Qunknown);
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
2037 Vcharset_symbol_table = Fmake_vector (make_number (MAX_CHARSET + 1),
0ca2fa58ca7b (Qunknown): New variable.
Kenichi Handa <handa@m17n.org>
parents: 23767
diff changeset
2038 Qunknown);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2039
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2040 /* Setup tables. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2041 for (i = 0; i < 2; i++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2042 for (j = 0; j < 2; j++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2043 for (k = 0; k < 128; k++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2044 iso_charset_table [i][j][k] = -1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2045
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2046 bzero (cmpchar_hash_table, sizeof cmpchar_hash_table);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2047 cmpchar_table_size = n_cmpchars = 0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2048
23656
031653c4634a (init_charset_once): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 23654
diff changeset
2049 for (i = 0; i < 256; i++)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2050 BYTES_BY_CHAR_HEAD (i) = 1;
23628
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2051 for (i = MIN_CHARSET_OFFICIAL_DIMENSION1;
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2052 i <= MAX_CHARSET_OFFICIAL_DIMENSION1; i++)
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2053 BYTES_BY_CHAR_HEAD (i) = 2;
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2054 for (i = MIN_CHARSET_OFFICIAL_DIMENSION2;
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2055 i <= MAX_CHARSET_OFFICIAL_DIMENSION2; i++)
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2056 BYTES_BY_CHAR_HEAD (i) = 3;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2057 BYTES_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_11) = 3;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2058 BYTES_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_12) = 3;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2059 BYTES_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_21) = 4;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2060 BYTES_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_22) = 4;
23628
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2061 /* The followings don't reflect the actual bytes, but just to tell
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2062 that it is a start of a multibyte character. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2063 BYTES_BY_CHAR_HEAD (LEADING_CODE_COMPOSITION) = 2;
23628
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2064 BYTES_BY_CHAR_HEAD (0x9E) = 2;
4a0a107fac9e (string_to_non_ascii_char): Change the check for the
Kenichi Handa <handa@m17n.org>
parents: 23576
diff changeset
2065 BYTES_BY_CHAR_HEAD (0x9F) = 2;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2066
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2067 for (i = 0; i < 128; i++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2068 WIDTH_BY_CHAR_HEAD (i) = 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2069 for (; i < 256; i++)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2070 WIDTH_BY_CHAR_HEAD (i) = 4;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2071 WIDTH_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_11) = 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2072 WIDTH_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_12) = 2;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2073 WIDTH_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_21) = 1;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2074 WIDTH_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_22) = 2;
22703
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2075
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2076 {
22927
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
2077 Lisp_Object val;
22703
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2078
22927
209acf11198c (multibyte_char_to_unibyte): New function.
Kenichi Handa <handa@m17n.org>
parents: 22774
diff changeset
2079 val = Qnil;
22703
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2080 for (i = 0x81; i < 0x90; i++)
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2081 val = Fcons (make_number ((i - 0x70) << 7), val);
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2082 for (; i < 0x9A; i++)
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2083 val = Fcons (make_number ((i - 0x8F) << 14), val);
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2084 for (i = 0xA0; i < 0xF0; i++)
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2085 val = Fcons (make_number ((i - 0x70) << 7), val);
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2086 for (; i < 0xFF; i++)
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2087 val = Fcons (make_number ((i - 0xE0) << 14), val);
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2088 val = Fcons (make_number (GENERIC_COMPOSITION_CHAR), val);
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2089 Vgeneric_character_list = Fnreverse (val);
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2090 }
23154
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
2091
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
2092 nonascii_insert_offset = 0;
a9cbf64603ca (unibyte_char_to_multibyte):
Kenichi Handa <handa@m17n.org>
parents: 23140
diff changeset
2093 Vnonascii_translation_table = Qnil;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2094 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2095
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2096 #ifdef emacs
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2097
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21445
diff changeset
2098 void
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2099 syms_of_charset ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2100 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2101 Qascii = intern ("ascii");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2102 staticpro (&Qascii);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2103
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2104 Qcharset = intern ("charset");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2105 staticpro (&Qcharset);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2106
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2107 /* Define ASCII charset now. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2108 update_charset_table (make_number (CHARSET_ASCII),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2109 make_number (1), make_number (94),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2110 make_number (1),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2111 make_number (0),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2112 make_number ('B'),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2113 make_number (0),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2114 build_string ("ASCII"),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2115 build_string ("ASCII"),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2116 build_string ("ASCII (ISO646 IRV)"));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2117 CHARSET_SYMBOL (CHARSET_ASCII) = Qascii;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2118 Fput (Qascii, Qcharset, CHARSET_TABLE_ENTRY (CHARSET_ASCII));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2119
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2120 Qcomposition = intern ("composition");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2121 staticpro (&Qcomposition);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2122 CHARSET_SYMBOL (CHARSET_COMPOSITION) = Qcomposition;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2123
23489
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2124 Qauto_fill_chars = intern ("auto-fill-chars");
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2125 staticpro (&Qauto_fill_chars);
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2126 Fput (Qauto_fill_chars, Qchar_table_extra_slots, make_number (0));
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2127
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2128 defsubr (&Sdefine_charset);
22703
15e0119749cf (Vgeneric_character_list): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22524
diff changeset
2129 defsubr (&Sgeneric_character_list);
20435
099812ea310f (Fget_unused_iso_final_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 20362
diff changeset
2130 defsubr (&Sget_unused_iso_final_char);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2131 defsubr (&Sdeclare_equiv_charset);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2132 defsubr (&Sfind_charset_region);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2133 defsubr (&Sfind_charset_string);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2134 defsubr (&Smake_char_internal);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2135 defsubr (&Ssplit_char);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2136 defsubr (&Schar_charset);
21445
4c0b4a1025cd (string_to_non_ascii_char): Include garbage bytes (if
Kenichi Handa <handa@m17n.org>
parents: 21419
diff changeset
2137 defsubr (&Scharset_after);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2138 defsubr (&Siso_charset);
20152
9a3343c36e83 (char_valid_p): New function
Kenichi Handa <handa@m17n.org>
parents: 19983
diff changeset
2139 defsubr (&Schar_valid_p);
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
2140 defsubr (&Sunibyte_char_to_multibyte);
23060
5036ee3de0ac (Fmultibyte_char_to_unibyte): New function.
Richard M. Stallman <rms@gnu.org>
parents: 22927
diff changeset
2141 defsubr (&Smultibyte_char_to_unibyte);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2142 defsubr (&Schar_bytes);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2143 defsubr (&Schar_width);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2144 defsubr (&Sstring_width);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2145 defsubr (&Schar_direction);
19415
309b9a0d8a45 (Fchars_in_region): Renamed form Fcount_chars_region.
Kenichi Handa <handa@m17n.org>
parents: 19384
diff changeset
2146 defsubr (&Schars_in_region);
20614
a4800f9842e4 (multibyte_chars_in_text): New function.
Richard M. Stallman <rms@gnu.org>
parents: 20575
diff changeset
2147 defsubr (&Sstring);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2148 defsubr (&Scmpcharp);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2149 defsubr (&Scmpchar_component);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2150 defsubr (&Scmpchar_cmp_rule);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2151 defsubr (&Scmpchar_cmp_rule_p);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2152 defsubr (&Scmpchar_cmp_count);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2153 defsubr (&Scompose_string);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2154 defsubr (&Ssetup_special_charsets);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2155
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2156 DEFVAR_LISP ("charset-list", &Vcharset_list,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2157 "List of charsets ever defined.");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2158 Vcharset_list = Fcons (Qascii, Qnil);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2159
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
2160 DEFVAR_LISP ("translation-table-vector", &Vtranslation_table_vector,
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
2161 "Vector of cons cell of a symbol and translation table ever defined.\n\
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
2162 An ID of a translation table is an index of this vector.");
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
2163 Vtranslation_table_vector = Fmake_vector (make_number (16), Qnil);
20720
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
2164
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2165 DEFVAR_INT ("leading-code-composition", &leading_code_composition,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2166 "Leading-code of composite characters.");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2167 leading_code_composition = LEADING_CODE_COMPOSITION;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2168
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2169 DEFVAR_INT ("leading-code-private-11", &leading_code_private_11,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2170 "Leading-code of private TYPE9N charset of column-width 1.");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2171 leading_code_private_11 = LEADING_CODE_PRIVATE_11;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2172
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2173 DEFVAR_INT ("leading-code-private-12", &leading_code_private_12,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2174 "Leading-code of private TYPE9N charset of column-width 2.");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2175 leading_code_private_12 = LEADING_CODE_PRIVATE_12;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2176
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2177 DEFVAR_INT ("leading-code-private-21", &leading_code_private_21,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2178 "Leading-code of private TYPE9Nx9N charset of column-width 1.");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2179 leading_code_private_21 = LEADING_CODE_PRIVATE_21;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2180
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2181 DEFVAR_INT ("leading-code-private-22", &leading_code_private_22,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2182 "Leading-code of private TYPE9Nx9N charset of column-width 2.");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2183 leading_code_private_22 = LEADING_CODE_PRIVATE_22;
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
2184
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
2185 DEFVAR_INT ("nonascii-insert-offset", &nonascii_insert_offset,
21034
f3128abaf8aa (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
Kenichi Handa <handa@m17n.org>
parents: 20933
diff changeset
2186 "Offset for converting non-ASCII unibyte codes 0240...0377 to multibyte.\n\
20890
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2187 This is used for converting unibyte text to multibyte,\n\
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2188 and for inserting character codes specified by number.\n\n\
21718
361e50e075d8 (syms_of_charset): Doc fix for nonascii-insert-offset.
Richard M. Stallman <rms@gnu.org>
parents: 21715
diff changeset
2189 This serves to convert a Latin-1 or similar 8-bit character code\n\
361e50e075d8 (syms_of_charset): Doc fix for nonascii-insert-offset.
Richard M. Stallman <rms@gnu.org>
parents: 21715
diff changeset
2190 to the corresponding Emacs multibyte character code.\n\
361e50e075d8 (syms_of_charset): Doc fix for nonascii-insert-offset.
Richard M. Stallman <rms@gnu.org>
parents: 21715
diff changeset
2191 Typically the value should be (- (make-char CHARSET 0) 128),\n\
361e50e075d8 (syms_of_charset): Doc fix for nonascii-insert-offset.
Richard M. Stallman <rms@gnu.org>
parents: 21715
diff changeset
2192 for your choice of character set.\n\
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
2193 If `nonascii-translation-table' is non-nil, it overrides this variable.");
20705
a949dc65fbea (nonascii_insert_offset): Variable moved from cmds.c.
Richard M. Stallman <rms@gnu.org>
parents: 20636
diff changeset
2194 nonascii_insert_offset = 0;
20720
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
2195
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
2196 DEFVAR_LISP ("nonascii-translation-table", &Vnonascii_translation_table,
22185
80a2aa51a6e1 Change term "character translation table" to
Kenichi Handa <handa@m17n.org>
parents: 22168
diff changeset
2197 "Translation table to convert non-ASCII unibyte codes to multibyte.\n\
20890
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2198 This is used for converting unibyte text to multibyte,\n\
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2199 and for inserting character codes specified by number.\n\n\
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2200 Conversion is performed only when multibyte characters are enabled,\n\
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2201 and it serves to convert a Latin-1 or similar 8-bit character code\n\
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2202 to the corresponding Emacs character code.\n\n\
22289
141f0392fb81 (syms_of_charset): Put \n\ at eol of docstring.
Karl Heuer <kwzh@gnu.org>
parents: 22185
diff changeset
2203 If this is nil, `nonascii-insert-offset' is used instead.\n\
22121
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
2204 See also the docstring of `make-translation-table'.");
6e79a15594ab Change terms unify/unification to
Kenichi Handa <handa@m17n.org>
parents: 21718
diff changeset
2205 Vnonascii_translation_table = Qnil;
20890
c7cfd531cf2b (Vnonascii_translate_table): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20833
diff changeset
2206
20720
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
2207 DEFVAR_INT ("min-composite-char", &min_composite_char,
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
2208 "Minimum character code of a composite character.");
f084bb8d535f (min_composite_char): New variable.
Kenichi Handa <handa@m17n.org>
parents: 20705
diff changeset
2209 min_composite_char = MIN_CHAR_COMPOSITION;
23489
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2210
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2211 DEFVAR_LISP ("auto-fill-chars", &Vauto_fill_chars,
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2212 "A char-table for characters which invoke auto-filling.\n\
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2213 Such characters has value t in this table.");
09201cebfa21 (Vauto_fill_chars, Qauto_fill_chars): New variables.
Kenichi Handa <handa@m17n.org>
parents: 23427
diff changeset
2214 Vauto_fill_chars = Fmake_char_table (Qauto_fill_chars, Qnil);
23576
00ee2e0c8976 (Fchar_bytes): Doc fix.
Andreas Schwab <schwab@suse.de>
parents: 23489
diff changeset
2215 CHAR_TABLE_SET (Vauto_fill_chars, make_number (' '), Qt);
00ee2e0c8976 (Fchar_bytes): Doc fix.
Andreas Schwab <schwab@suse.de>
parents: 23489
diff changeset
2216 CHAR_TABLE_SET (Vauto_fill_chars, make_number ('\n'), Qt);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2217 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2218
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2219 #endif /* emacs */