boostorg/mpl
1
0
Fork 1
mirror of https://github.com/boostorg/mpl.git synced 2026-02-03 21:55:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

merge new MPL version from 'mplbook' branch

Browse Source 
[SVN r24874]
This commit is contained in:
Aleksey Gurtovoy
2004-09-02 15:41:37 +00:00
parent e2e70427cc
commit 1689c8ef83
1216 changed files with 89941 additions and 36780 deletions
Download Patch File Download Diff File Expand all files Collapse all files

129
test/numeric_ops.cpp Normal file
View File

@@ -0,0 +1,129 @@
// Copyright Aleksey Gurtovoy 2003-2004
//
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)
//
// See http://www.boost.org/libs/mpl for documentation.
// $Source$
// $Date$
// $Revision$
#include <boost/mpl/arithmetic.hpp>
#include <boost/mpl/comparison.hpp>
#include <boost/mpl/and.hpp>
#include <boost/mpl/int.hpp>
#include <boost/mpl/long.hpp>
#include <boost/mpl/aux_/test.hpp>
struct complex_tag : int_<10> {};
template< typename Re, typename Im > struct complex
{
typedef complex_tag tag;
typedef complex type;
typedef Re real;
typedef Im imag;
};
template< typename C > struct real : C::real {};
template< typename C > struct imag : C::imag {};
namespace boost { namespace mpl {
template<> struct numeric_cast< integral_c_tag,complex_tag >
{
template< typename N > struct apply
: complex< N, integral_c< typename N::value_type, 0 > >
{
};
};
template<>
struct plus_impl< complex_tag,complex_tag >
{
template< typename N1, typename N2 > struct apply
: complex<
plus< typename N1::real, typename N2::real >
, plus< typename N1::imag, typename N2::imag >
>
{
};
};
template<>
struct times_impl< complex_tag,complex_tag >
{
template< typename N1, typename N2 > struct apply
: complex<
minus<
times< typename N1::real, typename N2::real >
, times< typename N1::imag, typename N2::imag >
>
, plus<
times< typename N1::real, typename N2::imag >
, times< typename N1::imag, typename N2::real >
>
>
{
};
};
template<>
struct equal_to_impl< complex_tag,complex_tag >
{
template< typename N1, typename N2 > struct apply
: and_<
equal_to< typename N1::real, typename N2::real >
, equal_to< typename N1::imag, typename N2::imag >
>
{
};
};
}}
typedef complex< int_<5>, int_<-1> > c1;
typedef complex< int_<-5>, int_<1> > c2;
MPL_TEST_CASE()
{
typedef plus<c1,c2>::type r1;
MPL_ASSERT_RELATION( real<r1>::value, ==, 0 );
MPL_ASSERT_RELATION( imag<r1>::value, ==, 0 );
typedef plus<c1,c1>::type r2;
MPL_ASSERT_RELATION( real<r2>::value, ==, 10 );
MPL_ASSERT_RELATION( imag<r2>::value, ==, -2 );
typedef plus<c2,c2>::type r3;
MPL_ASSERT_RELATION( real<r3>::value, ==, -10 );
MPL_ASSERT_RELATION( imag<r3>::value, ==, 2 );
}
MPL_TEST_CASE()
{
typedef times<c1,c2>::type r1;
MPL_ASSERT_RELATION( real<r1>::value, ==, -24 );
MPL_ASSERT_RELATION( imag<r1>::value, ==, 10 );
typedef times<c1,c1>::type r2;
MPL_ASSERT_RELATION( real<r2>::value, ==, 24 );
MPL_ASSERT_RELATION( imag<r2>::value, ==, -10 );
typedef times<c2,c2>::type r3;
MPL_ASSERT_RELATION( real<r3>::value, ==, 24 );
MPL_ASSERT_RELATION( imag<r3>::value, ==, -10 );
}
MPL_TEST_CASE()
{
MPL_ASSERT(( equal_to<c1,c1> ));
MPL_ASSERT(( equal_to<c2,c2> ));
MPL_ASSERT_NOT(( equal_to<c1,c2> ));
MPL_ASSERT(( equal_to<c1, complex< long_<5>, long_<-1> > > ));
}