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

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

/* Copyright (C) 2001-2009 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

#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)

#endif /* !HANDLE_MULTIBYTE */

extern int rl_byte_oriented;

#endif /* _RL_MBUTIL_H_ */
Commit	Line	Data
	1	/* rlmbutil.h -- utility functions for multibyte characters. */
	2
	3	/* Copyright (C) 2001-2009 Free Software Foundation, Inc.
	4
	5	This file is part of the GNU Readline Library (Readline), a library
	6	for reading lines of text with interactive input and history editing.
	7
	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
	11	(at your option) any later version.
	12
	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
	16	GNU General Public License for more details.
	17
	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	*/
	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
	32	support user defined character classes. */
	33	/* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>. */
	34	#if defined (HAVE_WCTYPE_H) && defined (HAVE_WCHAR_H) && defined (HAVE_LOCALE_H)
	35	# include <wchar.h>
	36	# include <wctype.h>
	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)
	47	/* system is supposed to support XPG5 */
	48	# define HANDLE_MULTIBYTE 1
	49	# endif
	50	#endif
	51
	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
	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
	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
	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
	175	#else /* !HANDLE_MULTIBYTE */
	176
	177	#undef MB_LEN_MAX
	178	#undef MB_CUR_MAX
	179
	180	#define MB_LEN_MAX 1
	181	#define MB_CUR_MAX 1
	182
	183	#define _rl_find_prev_mbchar(b, i, f) (((i) == 0) ? (i) : ((i) - 1))
	184	#define _rl_find_next_mbchar(b, i1, i2, f) ((i1) + (i2))
	185
	186	#define _rl_char_value(buf,ind) ((buf)[(ind)])
	187
	188	#define _rl_walphabetic(c) (rl_alphabetic (c))
	189
	190	#define _rl_to_wupper(c) (_rl_to_upper (c))
	191	#define _rl_to_wlower(c) (_rl_to_lower (c))
	192
	193	#define MB_NEXTCHAR(b,s,c,f) ((s) + (c))
	194	#define MB_PREVCHAR(b,s,f) ((s) - 1)
	195
	196	#define MB_INVALIDCH(x) (0)
	197	#define MB_NULLWCH(x) (0)
	198
	199	#endif /* !HANDLE_MULTIBYTE */
	200
	201	extern int rl_byte_oriented;
	202
	203	#endif /* _RL_MBUTIL_H_ */