Reformatted.
[chise/xemacs-chise.git] / src / character.h
1 /* Header for character representation.
2    Copyright (C) 1999,2000,2003 MORIOKA Tomohiko
3
4 This file is part of XEmacs.
5
6 XEmacs is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any
9 later version.
10
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with XEmacs; see the file COPYING.  If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA.  */
20
21 #ifndef _XEMACS_CHARACTER_H
22 #define _XEMACS_CHARACTER_H
23
24 #if !defined(MULE) /* unibyte representation */
25 # include "char-1byte.h"
26 #elif !defined(CHAR_IS_UCS4) /* leading-byte representation */
27 # include "char-lb.h"
28 #else /* CHAR_IS_UCS4 */
29 # include "char-ucs.h"
30 #endif /* CHAR_IS_UCS4 */
31
32 /********************************/
33 /*                              */
34 /*   Interface for characters   */
35 /*                              */
36 /********************************/
37 /*
38    valid_char_p (ch):
39         Return whether the given Emchar is valid.
40
41    CHARP (ch):
42         Return whether the given Lisp_Object is a character.
43
44    CHECK_CHAR_COERCE_INT (ch):
45         Signal an error if CH is not a valid character or integer
46         Lisp_Object.
47         If CH is an integer Lisp_Object, convert it to a character
48         Lisp_Object, but merely by repackaging, without performing
49         tests for char validity.
50
51 Functions/macros when MULE is defined:
52
53    CHAR_ASCII_P (ch):
54         Return whether the given Emchar is ASCII.
55
56    MAKE_CHAR (CHARSET, B1, B2):
57         Return a character whose coded-charset is CHARSET and
58         position-codes are B1 and B2.  1 byte character ignores B2.
59
60    BREAKUP_CHAR (ch, charset, B1, B2):
61         Break up the given Emchar, and store found coded-charset and
62         position-codes to CHARSET, B1 and B2.
63
64    CHAR_CHARSET (CH):
65         Return coded-charset object of Emchar CH.
66
67    CHAR_LEADING_BYTE (CH):
68         Return Charset-ID of Emchar CH.
69 */
70
71 #define CHAR_INTP(x) (INTP (x) && valid_char_p (XINT (x)))
72
73 #define CHAR_OR_CHAR_INTP(x) (CHARP (x) || CHAR_INTP (x))
74
75 INLINE_HEADER Emchar XCHAR_OR_CHAR_INT (Lisp_Object obj);
76 INLINE_HEADER Emchar
77 XCHAR_OR_CHAR_INT (Lisp_Object obj)
78 {
79   return CHARP (obj) ? XCHAR (obj) : XINT (obj);
80 }
81
82 #define CHECK_CHAR_COERCE_INT(x) do {           \
83   if (CHARP (x))                                \
84      ;                                          \
85   else if (CHAR_INTP (x))                       \
86     x = make_char (XINT (x));                   \
87   else                                          \
88     x = wrong_type_argument (Qcharacterp, x);   \
89 } while (0)
90
91
92 #define CHARC_CHARSET(cc)       ((cc).charset)
93 #define CHARC_CHARSET_ID(cc)    XCHARSET_ID (CHARC_CHARSET (cc))
94 #define CHARC_CODE_POINT(cc)    ((cc).code_point)
95 #define CHARC_COLUMNS(cc)       CHARSET_COLUMNS (XCHARSET (CHARC_CHARSET (cc)))
96
97 INLINE_HEADER Emchar CHARC_TO_CHAR (Charc cc);
98 INLINE_HEADER Emchar
99 CHARC_TO_CHAR (Charc cc)
100 {
101   return DECODE_CHAR (cc.charset, cc.code_point, 0);
102 }
103
104 INLINE_HEADER int CHARC_EQ (Charc cc1, Charc cc2);
105 INLINE_HEADER int
106 CHARC_EQ (Charc cc1, Charc cc2)
107 {
108   return EQ (cc1.charset, cc2.charset) && (cc1.code_point == cc2.code_point);
109 }
110
111 INLINE_HEADER int CHARC_ASCII_EQ (Charc cc, int ch);
112 INLINE_HEADER int
113 CHARC_ASCII_EQ (Charc cc, int ch)
114 {
115   return EQ (cc.charset, Vcharset_ascii) && (cc.code_point == ch);
116 }
117
118 INLINE_HEADER int CHARC_IS_SPACE (Charc cc);
119 INLINE_HEADER int
120 CHARC_IS_SPACE (Charc cc)
121 {
122   return (EQ (cc.charset, Vcharset_ascii) ||
123           EQ (cc.charset, Vcharset_control_1) ||
124           EQ (cc.charset, Vcharset_latin_iso8859_1))
125     && isspace (cc.code_point);
126 }
127
128 INLINE_HEADER Charc ASCII_TO_CHARC (int ch);
129 INLINE_HEADER Charc
130 ASCII_TO_CHARC (int ch)
131 {
132   Charc cc;
133
134   cc.charset = Vcharset_ascii;
135   cc.code_point = ch;
136   return cc;
137 }
138
139
140 typedef struct
141 {
142   Dynarr_declare (Charc);
143 } Charc_dynarr;
144
145 #endif /* _XEMACS_CHARACTER_H */