1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/ossrv/stdcpp/tsrc/Stdcpp_test/stdcxx/testengine/src/any.cpp Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,401 @@
1.4 + /************************************************************************
1.5 + *
1.6 + * any.cpp - definitions of the rw_any_t class members
1.7 + *
1.8 + * $Id: any.cpp 345524 2005-11-18 17:08:11Z sebor $
1.9 + *
1.10 + ************************************************************************
1.11 + *
1.12 + * Copyright (c) 1994-2005 Quovadx, Inc., acting through its Rogue Wave
1.13 + * Software division. Licensed under the Apache License, Version 2.0 (the
1.14 + * "License"); you may not use this file except in compliance with the
1.15 + * License. You may obtain a copy of the License at
1.16 + * http://www.apache.org/licenses/LICENSE-2.0. Unless required by
1.17 + * applicable law or agreed to in writing, software distributed under
1.18 + * the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
1.19 + * CONDITIONS OF ANY KIND, either express or implied. See the License
1.20 + * for the specific language governing permissions and limitations under
1.21 + * the License.
1.22 + *
1.23 + **************************************************************************/
1.24 +
1.25 +// expand _TEST_EXPORT macros
1.26 +#define _RWSTD_TEST_SRC
1.27 +
1.28 +#include <any.h>
1.29 +
1.30 +#include <printf.h> // for rw_sprintfa()
1.31 +#include <stdlib.h> // for free()
1.32 +#include <string.h> // for memset()
1.33 +
1.34 +
1.35 +#ifndef _RWSTD_NO_BOOL
1.36 +
1.37 +_TEST_EXPORT rw_any_t::rw_any_t (bool value)
1.38 + : str_ (0), tid_ (t_bool)
1.39 +{
1.40 + // using memset instead of default-initialization in the ctor
1.41 + // initializer list here and in all other ctors to work around
1.42 + // a SunPro -xarch=v9 bug (PR #28328) that causes the following:
1.43 + // Warning (Anachronism): Assigning int to __BIT_BLAST_16_16.
1.44 + // Error: Cannot cast from int to __BIT_BLAST_16_16
1.45 +
1.46 + memset (&val_, 0, sizeof val_);
1.47 + val_.bool_ = value;
1.48 +}
1.49 +
1.50 +#endif // _RWSTD_NO_BOOL
1.51 +
1.52 +_TEST_EXPORT rw_any_t::rw_any_t (char value)
1.53 + : str_ (0), tid_ (t_char)
1.54 +{
1.55 + memset (&val_, 0, sizeof val_);
1.56 + val_.char_ = value;
1.57 +}
1.58 +
1.59 +
1.60 +_TEST_EXPORT rw_any_t::rw_any_t (signed char value)
1.61 + : str_ (0), tid_ (t_schar)
1.62 +{
1.63 + memset (&val_, 0, sizeof val_);
1.64 + val_.schar_ = value;
1.65 +}
1.66 +
1.67 +
1.68 +_TEST_EXPORT rw_any_t::rw_any_t (unsigned char value)
1.69 + : str_ (0), tid_ (t_uchar)
1.70 +{
1.71 + memset (&val_, 0, sizeof val_);
1.72 + val_.uchar_ = value;
1.73 +}
1.74 +
1.75 +
1.76 +_TEST_EXPORT rw_any_t::rw_any_t (signed short value)
1.77 + : str_ (0), tid_ (t_sshrt)
1.78 +{
1.79 + memset (&val_, 0, sizeof val_);
1.80 + val_.sshrt_ = value;
1.81 +}
1.82 +
1.83 +
1.84 +_TEST_EXPORT rw_any_t::rw_any_t (unsigned short value)
1.85 + : str_ (0), tid_ (t_ushrt)
1.86 +{
1.87 + memset (&val_, 0, sizeof val_);
1.88 + val_.ushrt_ = value;
1.89 +}
1.90 +
1.91 +
1.92 +_TEST_EXPORT rw_any_t::rw_any_t (signed int value)
1.93 + : str_ (0), tid_ (t_sint)
1.94 +{
1.95 + memset (&val_, 0, sizeof val_);
1.96 + val_.sint_ = value;
1.97 +}
1.98 +
1.99 +
1.100 +_TEST_EXPORT rw_any_t::rw_any_t (unsigned int value)
1.101 + : str_ (0), tid_ (t_uint)
1.102 +{
1.103 + memset (&val_, 0, sizeof val_);
1.104 + val_.uint_ = value;
1.105 +}
1.106 +
1.107 +
1.108 +_TEST_EXPORT rw_any_t::rw_any_t (signed long value)
1.109 + : str_ (0), tid_ (t_slong)
1.110 +{
1.111 + memset (&val_, 0, sizeof val_);
1.112 + val_.slong_ = value;
1.113 +}
1.114 +
1.115 +
1.116 +_TEST_EXPORT rw_any_t::rw_any_t (unsigned long value)
1.117 + : str_ (0), tid_ (t_ulong)
1.118 +{
1.119 + memset (&val_, 0, sizeof val_);
1.120 + val_.ulong_ = value;
1.121 +}
1.122 +
1.123 +
1.124 +#ifdef _RWSTD_LONG_LONG
1.125 +
1.126 +_TEST_EXPORT rw_any_t::rw_any_t (signed _RWSTD_LONG_LONG value)
1.127 + : str_ (0), tid_ (t_sllong)
1.128 +{
1.129 + memset (&val_, 0, sizeof val_);
1.130 + val_.sllong_ = value;
1.131 +}
1.132 +
1.133 +
1.134 +_TEST_EXPORT rw_any_t::rw_any_t (unsigned _RWSTD_LONG_LONG value)
1.135 + : str_ (0), tid_ (t_ullong)
1.136 +{
1.137 + memset (&val_, 0, sizeof val_);
1.138 + val_.ullong_ = value;
1.139 +}
1.140 +
1.141 +#endif // _RWSTD_LONG_LONG
1.142 +
1.143 +
1.144 +_TEST_EXPORT rw_any_t::rw_any_t (float value)
1.145 + : str_ (0), tid_ (t_flt)
1.146 +{
1.147 + memset (&val_, 0, sizeof val_);
1.148 + val_.flt_ = value;
1.149 +}
1.150 +
1.151 +
1.152 +_TEST_EXPORT rw_any_t::rw_any_t (double value)
1.153 + : str_ (0), tid_ (t_dbl)
1.154 +{
1.155 + memset (&val_, 0, sizeof val_);
1.156 + val_.dbl_ = value;
1.157 +}
1.158 +
1.159 +
1.160 +#ifndef _RWSTD_NO_LONG_DOUBLE
1.161 +
1.162 +_TEST_EXPORT rw_any_t::rw_any_t (long double value)
1.163 + : str_ (0), tid_ (t_ldbl)
1.164 +{
1.165 + memset (&val_, 0, sizeof val_);
1.166 + val_.ldbl_ = value;
1.167 +}
1.168 +
1.169 +#endif // _RWSTD_NO_LONG_DOUBLE
1.170 +
1.171 +
1.172 +_TEST_EXPORT rw_any_t::rw_any_t (const void* value)
1.173 + : str_ (0), tid_ (t_pvoid)
1.174 +{
1.175 + memset (&val_, 0, sizeof val_);
1.176 + val_.pvoid_ = value;
1.177 +}
1.178 +
1.179 +
1.180 +_TEST_EXPORT rw_any_t::rw_any_t (const char* value)
1.181 + : str_ (0), tid_ (t_str)
1.182 +{
1.183 + memset (&val_, 0, sizeof val_);
1.184 + val_.pvoid_ = value;
1.185 +}
1.186 +
1.187 +
1.188 +#ifndef _RWSTD_NO_NATIVE_WCHAR_T
1.189 +
1.190 +_TEST_EXPORT rw_any_t::rw_any_t (wchar_t value)
1.191 + : str_ (0), tid_ (t_wchar)
1.192 +{
1.193 + memset (&val_, 0, sizeof val_);
1.194 + val_.wchar_ = value;
1.195 +}
1.196 +
1.197 +#endif // _RWSTD_NO_NATIVE_WCHAR_T
1.198 +
1.199 +
1.200 +#ifndef _RWSTD_NO_WCHAR_T
1.201 +
1.202 +_TEST_EXPORT rw_any_t::rw_any_t (const wchar_t* value)
1.203 + : str_ (0), tid_ (t_wstr)
1.204 +{
1.205 + memset (&val_, 0, sizeof val_);
1.206 + val_.pvoid_ = value;
1.207 +}
1.208 +
1.209 +#endif // _RWSTD_NO_WCHAR_T
1.210 +
1.211 +
1.212 +_TEST_EXPORT rw_any_t::rw_any_t (const rw_any_t &rhs)
1.213 + : val_ (rhs.val_), str_ (0), tid_ (rhs.tid_)
1.214 +{
1.215 +}
1.216 +
1.217 +
1.218 +_TEST_EXPORT rw_any_t& rw_any_t::operator= (const rw_any_t &rhs)
1.219 +{
1.220 + // free string allocated by tostr() (via a call to sprintfa())
1.221 + free (str_);
1.222 +
1.223 + val_ = rhs.val_;
1.224 + str_ = 0;
1.225 + tid_ = rhs.tid_;
1.226 +
1.227 + return *this;
1.228 +}
1.229 +
1.230 +
1.231 +_TEST_EXPORT rw_any_t::~rw_any_t ()
1.232 +{
1.233 + // free string allocated by tostr() (via a call to sprintfa())
1.234 + free (str_);
1.235 +
1.236 + memset (&val_, 0, sizeof val_);
1.237 +
1.238 + str_ = 0;
1.239 + tid_ = type_id_t ();
1.240 +}
1.241 +
1.242 +
1.243 +_TEST_EXPORT const char*
1.244 +rw_any_t::type_name () const
1.245 +{
1.246 + static const char* const names[] = {
1.247 + "<no type>",
1.248 + "bool", "signed char", "unsigned char", "char",
1.249 + "short", "unsigned short", "int", "unsigned int",
1.250 + "long", "unsigned long",
1.251 + "long long", "unsigned long long",
1.252 + "float", "double", "long double",
1.253 + "wchar_t", "void*",
1.254 + "const char*", "const wchar_t*"
1.255 + };
1.256 +
1.257 + // the liftime of the returned string must extend
1.258 + // to the end of the program
1.259 + return names [tid_];
1.260 +}
1.261 +
1.262 +
1.263 +_TEST_EXPORT const char*
1.264 +rw_any_t::tostr (const char *fmt /* = 0 */)
1.265 +{
1.266 + // free the previously allocated string
1.267 + free (str_);
1.268 + str_ = 0;
1.269 +
1.270 + switch (tid_) {
1.271 + case t_none:
1.272 + return 0;
1.273 +
1.274 + case t_bool:
1.275 + return val_.bool_ ? "true" : "false";
1.276 +
1.277 + case t_char:
1.278 + if (0 == fmt)
1.279 + fmt = "%c";
1.280 + str_ = rw_sprintfa (fmt, val_.char_);
1.281 + break;
1.282 +
1.283 + case t_schar:
1.284 + if (0 == fmt)
1.285 + fmt = "%hhi";
1.286 + str_ = rw_sprintfa (fmt, val_.schar_);
1.287 + break;
1.288 +
1.289 + case t_uchar:
1.290 + if (0 == fmt)
1.291 + fmt = "%hhu";
1.292 + str_ = rw_sprintfa (fmt, val_.uchar_);
1.293 + break;
1.294 +
1.295 + case t_sshrt:
1.296 + if (0 == fmt)
1.297 + fmt = "%hi";
1.298 + str_ = rw_sprintfa (fmt, val_.sshrt_);
1.299 + break;
1.300 +
1.301 + case t_ushrt:
1.302 + if (0 == fmt)
1.303 + fmt = "%hu";
1.304 + str_ = rw_sprintfa (fmt, val_.ushrt_);
1.305 + break;
1.306 +
1.307 + case t_sint:
1.308 + if (0 == fmt)
1.309 + fmt = "%i";
1.310 + str_ = rw_sprintfa (fmt, val_.sint_);
1.311 + break;
1.312 +
1.313 + case t_uint:
1.314 + if (0 == fmt)
1.315 + fmt = "%u";
1.316 + str_ = rw_sprintfa (fmt, val_.uint_);
1.317 + break;
1.318 +
1.319 + case t_slong:
1.320 + if (0 == fmt)
1.321 + fmt = "%li";
1.322 + str_ = rw_sprintfa (fmt, val_.slong_);
1.323 + break;
1.324 +
1.325 + case t_ulong:
1.326 + if (0 == fmt)
1.327 + fmt = "%lu";
1.328 + str_ = rw_sprintfa (fmt, val_.ulong_);
1.329 + break;
1.330 +
1.331 +#ifdef _RWSTD_LONG_LONG
1.332 +
1.333 + case t_sllong:
1.334 + if (0 == fmt)
1.335 + fmt = "%lli";
1.336 + str_ = rw_sprintfa (fmt, val_.sllong_);
1.337 + break;
1.338 +
1.339 + case t_ullong:
1.340 + if (0 == fmt)
1.341 + fmt = "%llu";
1.342 + str_ = rw_sprintfa (fmt, val_.ullong_);
1.343 + break;
1.344 +
1.345 +#endif // _RWSTD_LONG_LONG
1.346 +
1.347 + case t_flt:
1.348 + if (0 == fmt)
1.349 + fmt = "%g";
1.350 + str_ = rw_sprintfa (fmt, val_.flt_);
1.351 + break;
1.352 +
1.353 + case t_dbl:
1.354 + if (0 == fmt)
1.355 + fmt = "%g";
1.356 + str_ = rw_sprintfa (fmt, val_.dbl_);
1.357 + break;
1.358 +
1.359 +#ifndef _RWSTD_NO_LONG_DOUBLE
1.360 +
1.361 + case t_ldbl:
1.362 + if (0 == fmt)
1.363 + fmt = "%Lg";
1.364 + str_ = rw_sprintfa (fmt, val_.ldbl_);
1.365 + break;
1.366 +
1.367 +#endif // _RWSTD_NO_LONG_DOUBLE
1.368 +
1.369 + case t_pvoid:
1.370 + if (0 == fmt)
1.371 + fmt = "%p";
1.372 + str_ = rw_sprintfa (fmt, val_.pvoid_);
1.373 + break;
1.374 +
1.375 +#ifndef _RWSTD_NO_NATIVE_WCHAR_T
1.376 +
1.377 + case t_wchar:
1.378 + if (0 == fmt)
1.379 + fmt = "%lc";
1.380 + str_ = rw_sprintfa (fmt, val_.wchar_);
1.381 + break;
1.382 +
1.383 +#endif // _RWSTD_NO_NATIVE_WCHAR_T
1.384 +
1.385 + case t_str:
1.386 + if (0 == fmt)
1.387 + fmt = "%s";
1.388 + str_ = rw_sprintfa (fmt, val_.pvoid_);
1.389 + break;
1.390 +
1.391 +#ifndef _RWSTD_NO_WCHAR_T
1.392 +
1.393 + case t_wstr:
1.394 + if (0 == fmt)
1.395 + fmt = "%ls";
1.396 + str_ = rw_sprintfa (fmt, val_.pvoid_);
1.397 + break;
1.398 +
1.399 +#endif // _RWSTD_NO_WCHAR_T
1.400 +
1.401 + }
1.402 +
1.403 + return str_;
1.404 +}