2 * Copyright (C) 1999-2001, 2008 Free Software Foundation, Inc.
3 * This file is part of the GNU LIBICONV Library.
5 * The GNU LIBICONV Library is free software; you can redistribute it
6 * and/or modify it under the terms of the GNU Library General Public
7 * License as published by the Free Software Foundation; either version 2
8 * of the License, or (at your option) any later version.
10 * The GNU LIBICONV Library is distributed in the hope that it will be
11 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Library General Public License for more details.
15 * You should have received a copy of the GNU Library General Public
16 * License along with the GNU LIBICONV Library; see the file COPYING.LIB.
17 * If not, write to the Free Software Foundation, Inc., 51 Franklin Street,
18 * Fifth Floor, Boston, MA 02110-1301, USA.
25 /* Specification: RFC 2781 */
28 utf16le_mbtowc (conv_t conv
, ucs4_t
*pwc
, const unsigned char *s
, int n
)
32 ucs4_t wc
= s
[0] + (s
[1] << 8);
33 if (wc
>= 0xd800 && wc
< 0xdc00) {
35 ucs4_t wc2
= s
[2] + (s
[3] << 8);
36 if (!(wc2
>= 0xdc00 && wc2
< 0xe000))
38 *pwc
= 0x10000 + ((wc
- 0xd800) << 10) + (wc2
- 0xdc00);
41 } else if (wc
>= 0xdc00 && wc
< 0xe000) {
48 return RET_TOOFEW(count
);
51 return RET_SHIFT_ILSEQ(count
);
55 utf16le_wctomb (conv_t conv
, unsigned char *r
, ucs4_t wc
, int n
)
57 if (!(wc
>= 0xd800 && wc
< 0xe000)) {
60 r
[0] = (unsigned char) wc
;
61 r
[1] = (unsigned char) (wc
>> 8);
66 else if (wc
< 0x110000) {
68 ucs4_t wc1
= 0xd800 + ((wc
- 0x10000) >> 10);
69 ucs4_t wc2
= 0xdc00 + ((wc
- 0x10000) & 0x3ff);
70 r
[0] = (unsigned char) wc1
;
71 r
[1] = (unsigned char) (wc1
>> 8);
72 r
[2] = (unsigned char) wc2
;
73 r
[3] = (unsigned char) (wc2
>> 8);