--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/stdcpp/tsrc/Stdcpp_test/stdcxx/testengine/src/any.cpp Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,401 @@
+ /************************************************************************
+ *
+ * any.cpp - definitions of the rw_any_t class members
+ *
+ * $Id: any.cpp 345524 2005-11-18 17:08:11Z sebor $
+ *
+ ************************************************************************
+ *
+ * Copyright (c) 1994-2005 Quovadx, Inc., acting through its Rogue Wave
+ * Software division. Licensed under the Apache License, Version 2.0 (the
+ * "License"); you may not use this file except in compliance with the
+ * License. You may obtain a copy of the License at
+ * http://www.apache.org/licenses/LICENSE-2.0. Unless required by
+ * applicable law or agreed to in writing, software distributed under
+ * the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
+ * CONDITIONS OF ANY KIND, either express or implied. See the License
+ * for the specific language governing permissions and limitations under
+ * the License.
+ *
+ **************************************************************************/
+
+// expand _TEST_EXPORT macros
+#define _RWSTD_TEST_SRC
+
+#include <any.h>
+
+#include <printf.h> // for rw_sprintfa()
+#include <stdlib.h> // for free()
+#include <string.h> // for memset()
+
+
+#ifndef _RWSTD_NO_BOOL
+
+_TEST_EXPORT rw_any_t::rw_any_t (bool value)
+ : str_ (0), tid_ (t_bool)
+{
+ // using memset instead of default-initialization in the ctor
+ // initializer list here and in all other ctors to work around
+ // a SunPro -xarch=v9 bug (PR #28328) that causes the following:
+ // Warning (Anachronism): Assigning int to __BIT_BLAST_16_16.
+ // Error: Cannot cast from int to __BIT_BLAST_16_16
+
+ memset (&val_, 0, sizeof val_);
+ val_.bool_ = value;
+}
+
+#endif // _RWSTD_NO_BOOL
+
+_TEST_EXPORT rw_any_t::rw_any_t (char value)
+ : str_ (0), tid_ (t_char)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.char_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (signed char value)
+ : str_ (0), tid_ (t_schar)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.schar_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (unsigned char value)
+ : str_ (0), tid_ (t_uchar)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.uchar_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (signed short value)
+ : str_ (0), tid_ (t_sshrt)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.sshrt_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (unsigned short value)
+ : str_ (0), tid_ (t_ushrt)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.ushrt_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (signed int value)
+ : str_ (0), tid_ (t_sint)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.sint_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (unsigned int value)
+ : str_ (0), tid_ (t_uint)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.uint_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (signed long value)
+ : str_ (0), tid_ (t_slong)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.slong_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (unsigned long value)
+ : str_ (0), tid_ (t_ulong)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.ulong_ = value;
+}
+
+
+#ifdef _RWSTD_LONG_LONG
+
+_TEST_EXPORT rw_any_t::rw_any_t (signed _RWSTD_LONG_LONG value)
+ : str_ (0), tid_ (t_sllong)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.sllong_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (unsigned _RWSTD_LONG_LONG value)
+ : str_ (0), tid_ (t_ullong)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.ullong_ = value;
+}
+
+#endif // _RWSTD_LONG_LONG
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (float value)
+ : str_ (0), tid_ (t_flt)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.flt_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (double value)
+ : str_ (0), tid_ (t_dbl)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.dbl_ = value;
+}
+
+
+#ifndef _RWSTD_NO_LONG_DOUBLE
+
+_TEST_EXPORT rw_any_t::rw_any_t (long double value)
+ : str_ (0), tid_ (t_ldbl)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.ldbl_ = value;
+}
+
+#endif // _RWSTD_NO_LONG_DOUBLE
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (const void* value)
+ : str_ (0), tid_ (t_pvoid)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.pvoid_ = value;
+}
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (const char* value)
+ : str_ (0), tid_ (t_str)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.pvoid_ = value;
+}
+
+
+#ifndef _RWSTD_NO_NATIVE_WCHAR_T
+
+_TEST_EXPORT rw_any_t::rw_any_t (wchar_t value)
+ : str_ (0), tid_ (t_wchar)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.wchar_ = value;
+}
+
+#endif // _RWSTD_NO_NATIVE_WCHAR_T
+
+
+#ifndef _RWSTD_NO_WCHAR_T
+
+_TEST_EXPORT rw_any_t::rw_any_t (const wchar_t* value)
+ : str_ (0), tid_ (t_wstr)
+{
+ memset (&val_, 0, sizeof val_);
+ val_.pvoid_ = value;
+}
+
+#endif // _RWSTD_NO_WCHAR_T
+
+
+_TEST_EXPORT rw_any_t::rw_any_t (const rw_any_t &rhs)
+ : val_ (rhs.val_), str_ (0), tid_ (rhs.tid_)
+{
+}
+
+
+_TEST_EXPORT rw_any_t& rw_any_t::operator= (const rw_any_t &rhs)
+{
+ // free string allocated by tostr() (via a call to sprintfa())
+ free (str_);
+
+ val_ = rhs.val_;
+ str_ = 0;
+ tid_ = rhs.tid_;
+
+ return *this;
+}
+
+
+_TEST_EXPORT rw_any_t::~rw_any_t ()
+{
+ // free string allocated by tostr() (via a call to sprintfa())
+ free (str_);
+
+ memset (&val_, 0, sizeof val_);
+
+ str_ = 0;
+ tid_ = type_id_t ();
+}
+
+
+_TEST_EXPORT const char*
+rw_any_t::type_name () const
+{
+ static const char* const names[] = {
+ "<no type>",
+ "bool", "signed char", "unsigned char", "char",
+ "short", "unsigned short", "int", "unsigned int",
+ "long", "unsigned long",
+ "long long", "unsigned long long",
+ "float", "double", "long double",
+ "wchar_t", "void*",
+ "const char*", "const wchar_t*"
+ };
+
+ // the liftime of the returned string must extend
+ // to the end of the program
+ return names [tid_];
+}
+
+
+_TEST_EXPORT const char*
+rw_any_t::tostr (const char *fmt /* = 0 */)
+{
+ // free the previously allocated string
+ free (str_);
+ str_ = 0;
+
+ switch (tid_) {
+ case t_none:
+ return 0;
+
+ case t_bool:
+ return val_.bool_ ? "true" : "false";
+
+ case t_char:
+ if (0 == fmt)
+ fmt = "%c";
+ str_ = rw_sprintfa (fmt, val_.char_);
+ break;
+
+ case t_schar:
+ if (0 == fmt)
+ fmt = "%hhi";
+ str_ = rw_sprintfa (fmt, val_.schar_);
+ break;
+
+ case t_uchar:
+ if (0 == fmt)
+ fmt = "%hhu";
+ str_ = rw_sprintfa (fmt, val_.uchar_);
+ break;
+
+ case t_sshrt:
+ if (0 == fmt)
+ fmt = "%hi";
+ str_ = rw_sprintfa (fmt, val_.sshrt_);
+ break;
+
+ case t_ushrt:
+ if (0 == fmt)
+ fmt = "%hu";
+ str_ = rw_sprintfa (fmt, val_.ushrt_);
+ break;
+
+ case t_sint:
+ if (0 == fmt)
+ fmt = "%i";
+ str_ = rw_sprintfa (fmt, val_.sint_);
+ break;
+
+ case t_uint:
+ if (0 == fmt)
+ fmt = "%u";
+ str_ = rw_sprintfa (fmt, val_.uint_);
+ break;
+
+ case t_slong:
+ if (0 == fmt)
+ fmt = "%li";
+ str_ = rw_sprintfa (fmt, val_.slong_);
+ break;
+
+ case t_ulong:
+ if (0 == fmt)
+ fmt = "%lu";
+ str_ = rw_sprintfa (fmt, val_.ulong_);
+ break;
+
+#ifdef _RWSTD_LONG_LONG
+
+ case t_sllong:
+ if (0 == fmt)
+ fmt = "%lli";
+ str_ = rw_sprintfa (fmt, val_.sllong_);
+ break;
+
+ case t_ullong:
+ if (0 == fmt)
+ fmt = "%llu";
+ str_ = rw_sprintfa (fmt, val_.ullong_);
+ break;
+
+#endif // _RWSTD_LONG_LONG
+
+ case t_flt:
+ if (0 == fmt)
+ fmt = "%g";
+ str_ = rw_sprintfa (fmt, val_.flt_);
+ break;
+
+ case t_dbl:
+ if (0 == fmt)
+ fmt = "%g";
+ str_ = rw_sprintfa (fmt, val_.dbl_);
+ break;
+
+#ifndef _RWSTD_NO_LONG_DOUBLE
+
+ case t_ldbl:
+ if (0 == fmt)
+ fmt = "%Lg";
+ str_ = rw_sprintfa (fmt, val_.ldbl_);
+ break;
+
+#endif // _RWSTD_NO_LONG_DOUBLE
+
+ case t_pvoid:
+ if (0 == fmt)
+ fmt = "%p";
+ str_ = rw_sprintfa (fmt, val_.pvoid_);
+ break;
+
+#ifndef _RWSTD_NO_NATIVE_WCHAR_T
+
+ case t_wchar:
+ if (0 == fmt)
+ fmt = "%lc";
+ str_ = rw_sprintfa (fmt, val_.wchar_);
+ break;
+
+#endif // _RWSTD_NO_NATIVE_WCHAR_T
+
+ case t_str:
+ if (0 == fmt)
+ fmt = "%s";
+ str_ = rw_sprintfa (fmt, val_.pvoid_);
+ break;
+
+#ifndef _RWSTD_NO_WCHAR_T
+
+ case t_wstr:
+ if (0 == fmt)
+ fmt = "%ls";
+ str_ = rw_sprintfa (fmt, val_.pvoid_);
+ break;
+
+#endif // _RWSTD_NO_WCHAR_T
+
+ }
+
+ return str_;
+}