[thirdparty/binutils-gdb.git] / readline / rlmbutil.h

/* rlmbutil.h -- utility functions for multibyte characters. */

/* Copyright (C) 2001-2015 Free Software Foundation, Inc.

   This file is part of the GNU Readline Library (Readline), a library
   for reading lines of text with interactive input and history editing.      

   Readline is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

   Readline is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with Readline.  If not, see <http://www.gnu.org/licenses/>.
*/

#if !defined (_RL_MBUTIL_H_)
#define _RL_MBUTIL_H_

#include "rlstdc.h"

/************************************************/
/* check multibyte capability for I18N code     */
/************************************************/

/* For platforms which support the ISO C amendement 1 functionality we
   support user defined character classes.  */
   /* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>.  */
#if defined (HAVE_WCTYPE_H) && defined (HAVE_WCHAR_H) && defined (HAVE_LOCALE_H)
#  include <wchar.h>
#  include <wctype.h>
#  if defined (HAVE_ISWCTYPE) && \
      defined (HAVE_ISWLOWER) && \
      defined (HAVE_ISWUPPER) && \
      defined (HAVE_MBSRTOWCS) && \
      defined (HAVE_MBRTOWC) && \
      defined (HAVE_MBRLEN) && \
      defined (HAVE_TOWLOWER) && \
      defined (HAVE_TOWUPPER) && \
      defined (HAVE_WCHAR_T) && \
      defined (HAVE_WCWIDTH)
     /* system is supposed to support XPG5 */
#    define HANDLE_MULTIBYTE      1
#  endif
#endif

/* If we don't want multibyte chars even on a system that supports them, let
   the configuring user turn multibyte support off. */
#if defined (NO_MULTIBYTE_SUPPORT)
#  undef HANDLE_MULTIBYTE
#endif

/* Some systems, like BeOS, have multibyte encodings but lack mbstate_t.  */
#if HANDLE_MULTIBYTE && !defined (HAVE_MBSTATE_T)
#  define wcsrtombs(dest, src, len, ps) (wcsrtombs) (dest, src, len, 0)
#  define mbsrtowcs(dest, src, len, ps) (mbsrtowcs) (dest, src, len, 0)
#  define wcrtomb(s, wc, ps) (wcrtomb) (s, wc, 0)
#  define mbrtowc(pwc, s, n, ps) (mbrtowc) (pwc, s, n, 0)
#  define mbrlen(s, n, ps) (mbrlen) (s, n, 0)
#  define mbstate_t int
#endif

/* Make sure MB_LEN_MAX is at least 16 on systems that claim to be able to
   handle multibyte chars (some systems define MB_LEN_MAX as 1) */
#ifdef HANDLE_MULTIBYTE
#  include <limits.h>
#  if defined(MB_LEN_MAX) && (MB_LEN_MAX < 16)
#    undef MB_LEN_MAX
#  endif
#  if !defined (MB_LEN_MAX)
#    define MB_LEN_MAX 16
#  endif
#endif

/************************************************/
/* end of multibyte capability checks for I18N  */
/************************************************/

/*
 * Flags for _rl_find_prev_mbchar and _rl_find_next_mbchar:
 *
 * MB_FIND_ANY		find any multibyte character
 * MB_FIND_NONZERO	find a non-zero-width multibyte character
 */

#define MB_FIND_ANY	0x00
#define MB_FIND_NONZERO	0x01

extern int _rl_find_prev_mbchar PARAMS((char *, int, int));
extern int _rl_find_next_mbchar PARAMS((char *, int, int, int));

#ifdef HANDLE_MULTIBYTE

extern int _rl_compare_chars PARAMS((char *, int, mbstate_t *, char *, int, mbstate_t *));
extern int _rl_get_char_len PARAMS((char *, mbstate_t *));
extern int _rl_adjust_point PARAMS((char *, int, mbstate_t *));

extern int _rl_read_mbchar PARAMS((char *, int));
extern int _rl_read_mbstring PARAMS((int, char *, int));

extern int _rl_is_mbchar_matched PARAMS((char *, int, int, char *, int));

extern wchar_t _rl_char_value PARAMS((char *, int));
extern int _rl_walphabetic PARAMS((wchar_t));

#define _rl_to_wupper(wc)	(iswlower (wc) ? towupper (wc) : (wc))
#define _rl_to_wlower(wc)	(iswupper (wc) ? towlower (wc) : (wc))

#define MB_NEXTCHAR(b,s,c,f) \
	((MB_CUR_MAX > 1 && rl_byte_oriented == 0) \
		? _rl_find_next_mbchar ((b), (s), (c), (f)) \
		: ((s) + (c)))
#define MB_PREVCHAR(b,s,f) \
	((MB_CUR_MAX > 1 && rl_byte_oriented == 0) \
		? _rl_find_prev_mbchar ((b), (s), (f)) \
		: ((s) - 1))

#define MB_INVALIDCH(x)		((x) == (size_t)-1 || (x) == (size_t)-2)
#define MB_NULLWCH(x)		((x) == 0)

/* Try and shortcut the printable ascii characters to cut down the number of
   calls to a libc wcwidth() */
static inline int
_rl_wcwidth (wc)
     wchar_t wc;
{
  switch (wc)
    {
    case ' ': case '!': case '"': case '#': case '%':
    case '&': case '\'': case '(': case ')': case '*':
    case '+': case ',': case '-': case '.': case '/':
    case '0': case '1': case '2': case '3': case '4':
    case '5': case '6': case '7': case '8': case '9':
    case ':': case ';': case '<': case '=': case '>':
    case '?':
    case 'A': case 'B': case 'C': case 'D': case 'E':
    case 'F': case 'G': case 'H': case 'I': case 'J':
    case 'K': case 'L': case 'M': case 'N': case 'O':
    case 'P': case 'Q': case 'R': case 'S': case 'T':
    case 'U': case 'V': case 'W': case 'X': case 'Y':
    case 'Z':
    case '[': case '\\': case ']': case '^': case '_':
    case 'a': case 'b': case 'c': case 'd': case 'e':
    case 'f': case 'g': case 'h': case 'i': case 'j':
    case 'k': case 'l': case 'm': case 'n': case 'o':
    case 'p': case 'q': case 'r': case 's': case 't':
    case 'u': case 'v': case 'w': case 'x': case 'y':
    case 'z': case '{': case '|': case '}': case '~':
      return 1;
    default:
      return wcwidth (wc);
    }
}

/* Unicode combining characters range from U+0300 to U+036F */
#define UNICODE_COMBINING_CHAR(x) ((x) >= 768 && (x) <= 879)

#if defined (WCWIDTH_BROKEN)
#  define WCWIDTH(wc)	((_rl_utf8locale && UNICODE_COMBINING_CHAR(wc)) ? 0 : _rl_wcwidth(wc))
#else
#  define WCWIDTH(wc)	_rl_wcwidth(wc)
#endif

#if defined (WCWIDTH_BROKEN)
#  define IS_COMBINING_CHAR(x)	(WCWIDTH(x) == 0 && iswcntrl(x) == 0)
#else
#  define IS_COMBINING_CHAR(x)	(WCWIDTH(x) == 0)
#endif

#define UTF8_SINGLEBYTE(c)	(((c) & 0x80) == 0)
#define UTF8_MBFIRSTCHAR(c)	(((c) & 0xc0) == 0xc0)
#define UTF8_MBCHAR(c)		(((c) & 0xc0) == 0x80)

#else /* !HANDLE_MULTIBYTE */

#undef MB_LEN_MAX
#undef MB_CUR_MAX

#define MB_LEN_MAX	1
#define MB_CUR_MAX	1

#define _rl_find_prev_mbchar(b, i, f)		(((i) == 0) ? (i) : ((i) - 1))
#define _rl_find_next_mbchar(b, i1, i2, f)	((i1) + (i2))

#define _rl_char_value(buf,ind)	((buf)[(ind)])

#define _rl_walphabetic(c)	(rl_alphabetic (c))

#define _rl_to_wupper(c)	(_rl_to_upper (c))
#define _rl_to_wlower(c)	(_rl_to_lower (c))

#define MB_NEXTCHAR(b,s,c,f)	((s) + (c))
#define MB_PREVCHAR(b,s,f)	((s) - 1)

#define MB_INVALIDCH(x)		(0)
#define MB_NULLWCH(x)		(0)

#define UTF8_SINGLEBYTE(c)	(1)

#if !defined (HAVE_WCHAR_T) && !defined (wchar_t)
#  define wchar_t int
#endif

#endif /* !HANDLE_MULTIBYTE */

extern int rl_byte_oriented;

#endif /* _RL_MBUTIL_H_ */
Commit	Line	Data
9255ee31 EZ	1	/* rlmbutil.h -- utility functions for multibyte characters. */
9255ee31 EZ	2
775e241e	3	/* Copyright (C) 2001-2015 Free Software Foundation, Inc.
9255ee31	4
cc88a640 JK	5	This file is part of the GNU Readline Library (Readline), a library
cc88a640 JK	6	for reading lines of text with interactive input and history editing.
9255ee31	7
cc88a640 JK	8	Readline is free software: you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation, either version 3 of the License, or
9255ee31 EZ	11	(at your option) any later version.
9255ee31 EZ	12
cc88a640 JK	13	Readline is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9255ee31 EZ	16	GNU General Public License for more details.
9255ee31 EZ	17
cc88a640 JK	18	You should have received a copy of the GNU General Public License
	19	along with Readline. If not, see <http://www.gnu.org/licenses/>.
	20	*/
9255ee31 EZ	21
	22	#if !defined (_RL_MBUTIL_H_)
	23	#define _RL_MBUTIL_H_
	24
	25	#include "rlstdc.h"
	26
	27	/************************************************/
	28	/* check multibyte capability for I18N code */
	29	/************************************************/
	30
	31	/* For platforms which support the ISO C amendement 1 functionality we
cc88a640	32	support user defined character classes. */
9255ee31	33	/* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>. */
cc88a640	34	#if defined (HAVE_WCTYPE_H) && defined (HAVE_WCHAR_H) && defined (HAVE_LOCALE_H)
9255ee31 EZ	35	# include <wchar.h>
9255ee31 EZ	36	# include <wctype.h>
cc88a640 JK	37	# if defined (HAVE_ISWCTYPE) && \
	38	defined (HAVE_ISWLOWER) && \
	39	defined (HAVE_ISWUPPER) && \
	40	defined (HAVE_MBSRTOWCS) && \
	41	defined (HAVE_MBRTOWC) && \
	42	defined (HAVE_MBRLEN) && \
	43	defined (HAVE_TOWLOWER) && \
	44	defined (HAVE_TOWUPPER) && \
	45	defined (HAVE_WCHAR_T) && \
	46	defined (HAVE_WCWIDTH)
832a9484	47	/* system is supposed to support XPG5 */
9255ee31 EZ	48	# define HANDLE_MULTIBYTE 1
	49	# endif
	50	#endif
	51
5bdf8622 DJ	52	/* If we don't want multibyte chars even on a system that supports them, let
	53	the configuring user turn multibyte support off. */
	54	#if defined (NO_MULTIBYTE_SUPPORT)
	55	# undef HANDLE_MULTIBYTE
	56	#endif
	57
	58	/* Some systems, like BeOS, have multibyte encodings but lack mbstate_t. */
	59	#if HANDLE_MULTIBYTE && !defined (HAVE_MBSTATE_T)
	60	# define wcsrtombs(dest, src, len, ps) (wcsrtombs) (dest, src, len, 0)
	61	# define mbsrtowcs(dest, src, len, ps) (mbsrtowcs) (dest, src, len, 0)
	62	# define wcrtomb(s, wc, ps) (wcrtomb) (s, wc, 0)
	63	# define mbrtowc(pwc, s, n, ps) (mbrtowc) (pwc, s, n, 0)
	64	# define mbrlen(s, n, ps) (mbrlen) (s, n, 0)
	65	# define mbstate_t int
	66	#endif
	67
9255ee31 EZ	68	/* Make sure MB_LEN_MAX is at least 16 on systems that claim to be able to
	69	handle multibyte chars (some systems define MB_LEN_MAX as 1) */
	70	#ifdef HANDLE_MULTIBYTE
	71	# include <limits.h>
	72	# if defined(MB_LEN_MAX) && (MB_LEN_MAX < 16)
	73	# undef MB_LEN_MAX
	74	# endif
	75	# if !defined (MB_LEN_MAX)
	76	# define MB_LEN_MAX 16
	77	# endif
	78	#endif
	79
	80	/************************************************/
	81	/* end of multibyte capability checks for I18N */
	82	/************************************************/
	83
	84	/*
	85	* Flags for _rl_find_prev_mbchar and _rl_find_next_mbchar:
	86	*
	87	* MB_FIND_ANY find any multibyte character
	88	* MB_FIND_NONZERO find a non-zero-width multibyte character
	89	*/
	90
	91	#define MB_FIND_ANY 0x00
	92	#define MB_FIND_NONZERO 0x01
	93
	94	extern int _rl_find_prev_mbchar PARAMS((char *, int, int));
	95	extern int _rl_find_next_mbchar PARAMS((char *, int, int, int));
	96
	97	#ifdef HANDLE_MULTIBYTE
	98
	99	extern int _rl_compare_chars PARAMS((char , int, mbstate_t , char , int, mbstate_t ));
	100	extern int _rl_get_char_len PARAMS((char , mbstate_t ));
	101	extern int _rl_adjust_point PARAMS((char , int, mbstate_t ));
	102
	103	extern int _rl_read_mbchar PARAMS((char *, int));
	104	extern int _rl_read_mbstring PARAMS((int, char *, int));
	105
	106	extern int _rl_is_mbchar_matched PARAMS((char , int, int, char , int));
	107
5bdf8622 DJ	108	extern wchar_t _rl_char_value PARAMS((char *, int));
	109	extern int _rl_walphabetic PARAMS((wchar_t));
	110
	111	#define _rl_to_wupper(wc) (iswlower (wc) ? towupper (wc) : (wc))
	112	#define _rl_to_wlower(wc) (iswupper (wc) ? towlower (wc) : (wc))
	113
	114	#define MB_NEXTCHAR(b,s,c,f) \
	115	((MB_CUR_MAX > 1 && rl_byte_oriented == 0) \
	116	? _rl_find_next_mbchar ((b), (s), (c), (f)) \
	117	: ((s) + (c)))
	118	#define MB_PREVCHAR(b,s,f) \
	119	((MB_CUR_MAX > 1 && rl_byte_oriented == 0) \
	120	? _rl_find_prev_mbchar ((b), (s), (f)) \
	121	: ((s) - 1))
	122
	123	#define MB_INVALIDCH(x) ((x) == (size_t)-1 \|\| (x) == (size_t)-2)
	124	#define MB_NULLWCH(x) ((x) == 0)
	125
775e241e TT	126	/* Try and shortcut the printable ascii characters to cut down the number of
	127	calls to a libc wcwidth() */
	128	static inline int
	129	_rl_wcwidth (wc)
	130	wchar_t wc;
	131	{
	132	switch (wc)
	133	{
	134	case ' ': case '!': case '"': case '#': case '%':
	135	case '&': case '\'': case '(': case ')': case '*':
	136	case '+': case ',': case '-': case '.': case '/':
	137	case '0': case '1': case '2': case '3': case '4':
	138	case '5': case '6': case '7': case '8': case '9':
	139	case ':': case ';': case '<': case '=': case '>':
	140	case '?':
	141	case 'A': case 'B': case 'C': case 'D': case 'E':
	142	case 'F': case 'G': case 'H': case 'I': case 'J':
	143	case 'K': case 'L': case 'M': case 'N': case 'O':
	144	case 'P': case 'Q': case 'R': case 'S': case 'T':
	145	case 'U': case 'V': case 'W': case 'X': case 'Y':
	146	case 'Z':
	147	case '[': case '\\': case ']': case '^': case '_':
	148	case 'a': case 'b': case 'c': case 'd': case 'e':
	149	case 'f': case 'g': case 'h': case 'i': case 'j':
	150	case 'k': case 'l': case 'm': case 'n': case 'o':
	151	case 'p': case 'q': case 'r': case 's': case 't':
	152	case 'u': case 'v': case 'w': case 'x': case 'y':
	153	case 'z': case '{': case '\|': case '}': case '~':
	154	return 1;
	155	default:
	156	return wcwidth (wc);
	157	}
	158	}
	159
	160	/* Unicode combining characters range from U+0300 to U+036F */
	161	#define UNICODE_COMBINING_CHAR(x) ((x) >= 768 && (x) <= 879)
	162
	163	#if defined (WCWIDTH_BROKEN)
	164	# define WCWIDTH(wc) ((_rl_utf8locale && UNICODE_COMBINING_CHAR(wc)) ? 0 : _rl_wcwidth(wc))
	165	#else
	166	# define WCWIDTH(wc) _rl_wcwidth(wc)
	167	#endif
	168
	169	#if defined (WCWIDTH_BROKEN)
	170	# define IS_COMBINING_CHAR(x) (WCWIDTH(x) == 0 && iswcntrl(x) == 0)
	171	#else
	172	# define IS_COMBINING_CHAR(x) (WCWIDTH(x) == 0)
	173	#endif
	174
cb41b9e7 TT	175	#define UTF8_SINGLEBYTE(c) (((c) & 0x80) == 0)
	176	#define UTF8_MBFIRSTCHAR(c) (((c) & 0xc0) == 0xc0)
	177	#define UTF8_MBCHAR(c) (((c) & 0xc0) == 0x80)
	178
9255ee31 EZ	179	#else /* !HANDLE_MULTIBYTE */
	180
	181	#undef MB_LEN_MAX
	182	#undef MB_CUR_MAX
	183
	184	#define MB_LEN_MAX 1
	185	#define MB_CUR_MAX 1
	186
	187	#define _rl_find_prev_mbchar(b, i, f) (((i) == 0) ? (i) : ((i) - 1))
	188	#define _rl_find_next_mbchar(b, i1, i2, f) ((i1) + (i2))
	189
5bdf8622 DJ	190	#define _rl_char_value(buf,ind) ((buf)[(ind)])
	191
	192	#define _rl_walphabetic(c) (rl_alphabetic (c))
	193
	194	#define _rl_to_wupper(c) (_rl_to_upper (c))
	195	#define _rl_to_wlower(c) (_rl_to_lower (c))
	196
	197	#define MB_NEXTCHAR(b,s,c,f) ((s) + (c))
	198	#define MB_PREVCHAR(b,s,f) ((s) - 1)
	199
	200	#define MB_INVALIDCH(x) (0)
	201	#define MB_NULLWCH(x) (0)
	202
cb41b9e7 TT	203	#define UTF8_SINGLEBYTE(c) (1)
	204
	205	#if !defined (HAVE_WCHAR_T) && !defined (wchar_t)
	206	# define wchar_t int
	207	#endif
	208
9255ee31 EZ	209	#endif /* !HANDLE_MULTIBYTE */
	210
	211	extern int rl_byte_oriented;
	212
	213	#endif /* _RL_MBUTIL_H_ */