3 // Testing character type and state type with char_traits and codecvt
4 // specializations for the C++ library testsuite.
6 // Copyright (C) 2003, 2005 Free Software Foundation, Inc.
8 // This file is part of the GNU ISO C++ Library. This library is free
9 // software; you can redistribute it and/or modify it under the
10 // terms of the GNU General Public License as published by the
11 // Free Software Foundation; either version 2, or (at your option)
14 // This library is distributed in the hope that it will be useful,
15 // but WITHOUT ANY WARRANTY; without even the implied warranty of
16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 // GNU General Public License for more details.
19 // You should have received a copy of the GNU General Public License along
20 // with this library; see the file COPYING. If not, write to the Free
21 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
24 // As a special exception, you may use this file as part of a free software
25 // library without restriction. Specifically, if other files instantiate
26 // templates or use macros or inline functions from this file, or you compile
27 // this file and link it with other files to produce an executable, this
28 // file does not by itself cause the resulting executable to be covered by
29 // the GNU General Public License. This exception does not however
30 // invalidate any other reasons why the executable file might be covered by
31 // the GNU General Public License.
33 #ifndef _GLIBCXX_TESTSUITE_CHARACTER_H
34 #define _GLIBCXX_TESTSUITE_CHARACTER_H
37 #include <string> // for char_traits
38 #include <locale> // for codecvt
39 #include <ext/pod_char_traits.h>
49 operator==(const pod_int
& lhs
, const pod_int
& rhs
)
50 { return lhs
.value
== rhs
.value
; }
53 operator<(const pod_int
& lhs
, const pod_int
& rhs
)
54 { return lhs
.value
< rhs
.value
; }
62 operator==(const pod_state
& lhs
, const pod_state
& rhs
)
63 { return lhs
.value
== rhs
.value
; }
66 operator<(const pod_state
& lhs
, const pod_state
& rhs
)
67 { return lhs
.value
< rhs
.value
; }
69 // Alternate character types.
70 using __gnu_cxx::character
;
71 typedef character
<unsigned char, pod_int
, pod_state
> pod_char
;
72 typedef character
<unsigned char, unsigned int, pod_state
> pod_uchar
;
73 typedef character
<unsigned short, unsigned int> pod_ushort
;
74 typedef character
<unsigned int, unsigned long> pod_uint
;
80 inline pod_char::char_type
81 pod_char::char_type::from(const V2
& v
)
83 char_type ret
= { static_cast<value_type
>(v
.value
) };
90 pod_char::char_type::to(const char_type
& c
)
99 inline pod_uchar::char_type
100 pod_uchar::char_type::from(const V2
& v
)
103 ret
.value
= (v
>> 5);
108 template<typename V2
>
110 pod_uchar::char_type::to(const char_type
& c
)
111 { return static_cast<V2
>(c
.value
<< 5); }
112 }; // namespace __gnu_test
116 // codecvt specialization
118 // The conversion performed by the specialization is not supposed to
119 // be useful, rather it has been designed to demonstrate the
120 // essential features of stateful conversions:
121 // * Number and value of bytes for each internal character depends on the
122 // state in addition to the character itself.
123 // * Unshift produces an unshift sequence and resets the state. On input
124 // the unshift sequence causes the state to be reset.
126 // The conversion for output is as follows:
127 // 1. Calculate the value tmp by xor-ing the state and the internal
129 // 2. Split tmp into either two or three bytes depending on the value of
130 // state. Output those bytes.
131 // 3. tmp becomes the new value of state.
133 class codecvt
<__gnu_test::pod_uchar
, char, __gnu_test::pod_state
>
134 : public __codecvt_abstract_base
<__gnu_test::pod_uchar
, char,
135 __gnu_test::pod_state
>
138 typedef codecvt_base::result result
;
139 typedef __gnu_test::pod_uchar intern_type
;
140 typedef char extern_type
;
141 typedef __gnu_test::pod_state state_type
;
142 typedef __codecvt_abstract_base
<intern_type
, extern_type
, state_type
>
145 explicit codecvt(size_t refs
= 0) : base_type(refs
)
148 static locale::id id
;
155 do_out(state_type
& state
, const intern_type
* from
,
156 const intern_type
* from_end
, const intern_type
*& from_next
,
157 extern_type
* to
, extern_type
* to_limit
,
158 extern_type
*& to_next
) const
160 while (from
< from_end
&& to
< to_limit
)
162 unsigned char tmp
= (state
.value
^ from
->value
);
163 if (state
.value
& 0x8)
165 if (to
>= to_limit
- 2)
168 *to
++ = ((tmp
>> 3) & 0x7);
169 *to
++ = ((tmp
>> 6) & 0x3);
173 if (to
>= to_limit
- 1)
176 *to
++ = ((tmp
>> 4) & 0xf);
184 return (from
< from_end
) ? partial
: ok
;
188 do_in(state_type
& state
, const extern_type
* from
,
189 const extern_type
* from_end
, const extern_type
*& from_next
,
190 intern_type
* to
, intern_type
* to_limit
,
191 intern_type
*& to_next
) const
193 while (from
< from_end
&& to
< to_limit
)
195 unsigned char c
= *from
;
205 if (state
.value
& 0x8)
207 if (from
>= from_end
- 2)
209 tmp
= (*from
++ & 0x7);
210 tmp
|= ((*from
++ << 3) & 0x38);
211 tmp
|= ((*from
++ << 6) & 0xc0);
215 if (from
>= from_end
- 1)
217 tmp
= (*from
++ & 0xf);
218 tmp
|= ((*from
++ << 4) & 0xf0);
220 to
->value
= (tmp
^ state
.value
);
227 return (from
< from_end
) ? partial
: ok
;
231 do_unshift(state_type
& state
, extern_type
* to
, extern_type
* to_limit
,
232 extern_type
*& to_next
) const
234 for (unsigned int i
= 0; i
< CHAR_BIT
; ++i
)
236 unsigned int mask
= (1 << i
);
237 if (state
.value
& mask
)
245 state
.value
&= ~mask
;
246 *to
++ = static_cast<unsigned char>(~mask
);
251 return state
.value
== 0 ? ok
: error
;
255 do_encoding() const throw()
259 do_always_noconv() const throw()
263 do_length(state_type
& state
, const extern_type
* from
,
264 const extern_type
* end
, size_t max
) const
266 const extern_type
* beg
= from
;
267 while (from
< end
&& max
)
269 unsigned char c
= *from
;
279 if (state
.value
& 0x8)
283 tmp
= (*from
++ & 0x7);
284 tmp
|= ((*from
++ << 3) & 0x38);
285 tmp
|= ((*from
++ << 6) & 0xc0);
291 tmp
= (*from
++ & 0xf);
292 tmp
|= ((*from
++ << 4) & 0xf0);
300 // Maximum 8 bytes unshift sequence followed by max 3 bytes for
303 do_max_length() const throw()
308 class ctype
<__gnu_test::pod_uchar
>
309 : public __ctype_abstract_base
<__gnu_test::pod_uchar
>
312 typedef __gnu_test::pod_uchar char_type
;
314 explicit ctype(size_t refs
= 0)
315 : __ctype_abstract_base
<__gnu_test::pod_uchar
>(refs
) { }
317 static locale::id id
;
324 do_is(mask m
, char_type c
) const
327 virtual const char_type
*
328 do_is(const char_type
* low
, const char_type
* high
, mask
* vec
) const
330 fill_n(vec
, high
- low
, mask());
334 virtual const char_type
*
335 do_scan_is(mask m
, const char_type
* low
, const char_type
* high
) const
338 virtual const char_type
*
339 do_scan_not(mask m
, const char_type
* low
, const char_type
* high
) const
343 do_toupper(char_type c
) const
346 virtual const char_type
*
347 do_toupper(char_type
* low
, const char_type
* high
) const
351 do_tolower(char_type c
) const
354 virtual const char_type
*
355 do_tolower(char_type
* low
, const char_type
* high
) const
359 do_widen(char c
) const
360 { return __gnu_test::pod_uchar::from
<char>(c
); }
363 do_widen(const char* low
, const char* high
, char_type
* dest
) const
365 transform(low
, high
, dest
, &__gnu_test::pod_uchar::from
<char>);
370 do_narrow(char_type
, char dfault
) const
373 virtual const char_type
*
374 do_narrow(const char_type
* low
, const char_type
* high
,
375 char dfault
, char* dest
) const
377 fill_n(dest
, high
- low
, dfault
);
382 // numpunct specializations
384 class numpunct
<__gnu_test::pod_uint
>
385 : public locale::facet
388 typedef __gnu_test::pod_uint char_type
;
389 typedef basic_string
<char_type
> string_type
;
391 static locale::id id
;
394 numpunct(size_t refs
= 0)
395 : locale::facet(refs
)
399 decimal_point() const
400 { return this->do_decimal_point(); }
403 thousands_sep() const
404 { return this->do_thousands_sep(); }
408 { return this->do_grouping(); }
412 { return this->do_truename(); }
416 { return this->do_falsename(); }
423 do_decimal_point() const
424 { return char_type(); }
427 do_thousands_sep() const
428 { return char_type(); }
436 { return string_type(); }
440 { return string_type(); }
444 class moneypunct
<__gnu_test::pod_uint
>
445 : public locale::facet
, public money_base
448 typedef __gnu_test::pod_uint char_type
;
449 typedef basic_string
<char_type
> string_type
;
451 static locale::id id
;
452 static const bool intl
= false;
455 moneypunct(size_t refs
= 0)
456 : locale::facet(refs
)
460 decimal_point() const
461 { return this->do_decimal_point(); }
464 thousands_sep() const
465 { return this->do_thousands_sep(); }
469 { return this->do_grouping(); }
473 { return this->do_curr_symbol(); }
476 positive_sign() const
477 { return this->do_positive_sign(); }
480 negative_sign() const
481 { return this->do_negative_sign(); }
485 { return this->do_frac_digits(); }
489 { return this->do_pos_format(); }
493 { return this->do_neg_format(); }
500 do_decimal_point() const
501 { return char_type(); }
504 do_thousands_sep() const
505 { return char_type(); }
512 do_curr_symbol() const
513 { return string_type(); }
516 do_positive_sign() const
517 { return string_type(); }
520 do_negative_sign() const
521 { return string_type(); }
524 do_frac_digits() const
528 do_pos_format() const
529 { return pattern(); }
532 do_neg_format() const
533 { return pattern(); }
537 #endif // _GLIBCXX_TESTSUITE_CHARACTER_H