Diggins PDP #2 : Meta-Binders (binding functions to functions)

[christopher diggins]

// meta_binder.hpp
// The Diggins PDP (Public Domain Post) #2
// Public Domain code by Christopher Diggins, May 22, 2005
//
// Description:
// A meta-binder binds function objects to function objects
//
// Motivation:
// lack of a logical_xor in the standard library, and no way to construct
one using the
// standard library using binders and adapters.

#ifndef META_BINDER_HPP
#define META_BINDER_HPP

#include <stdexcept>
#include <functional>

namespace cdiggins
{
template<class BinOp, class BinOpArg1, class BinOpArg2>
class meta_binder2 : public std::binary_fun ction
<
typename BinOp::first_ar gument_type,
typename BinOp::second_a rgument_type,
typename BinOp::result_t ype

{
protected:
BinOp op;
BinOpArg1 arg1;
BinOpArg2 arg2;
public:
meta_binder2(Bi nOp x, BinOpArg1 a1, BinOpArg2 a2) : op(x), arg1(a1),
arg2(a2)
{ }
typename BinOp::result_t ype operator()
(const typename BinOp::first_ar gument_type& x,
const typename BinOp::second_a rgument_type& y)
{
return op(arg1(x, y), arg2(x, y));
}
};

template<class BinOp, class BinOpArg1, class BinOpArg2>
meta_binder2<Bi nOp, BinOpArg1, BinOpArg2>
meta_bind2(BinO p op, BinOpArg1 arg1, BinOpArg2 arg2) {
return meta_binder2<Bi nOp, BinOpArg1, BinOpArg2>(op, arg1, arg2);
}
}

void test(bool b) {
if (!b)
throw std::runtime_er ror("test failed");
}

namespace meta_binder_tes t
{
using namespace cdiggins;

bool logical_xor(boo l x, bool y) {
return (x || y) && !(x && y);
}

void xor_test(bool x, bool y) {
test(logical_xo r(x, y) ==
meta_bind2(
std::logical_an d<bool>(),
std::logical_or <bool>(),
std::not2(std:: logical_and<boo l>())
)(x, y));
}

void test_main()
{
xor_test(true, true);
xor_test(true, false);
xor_test(false, true);
xor_test(false, false);
}
}

#endif

--
Christopher Diggins
http://www.cdiggins.com

[Rapscallion]

christopher diggins wrote:

// meta_binder.hpp
// The Diggins PDP (Public Domain Post) #2
// Public Domain code by Christopher Diggins, May 22, 2005
//
// Description:
// A meta-binder binds function objects to function objects
//
// Motivation:
// lack of a logical_xor in the standard library, and no way to construct one using the
// standard library using binders and adapters.

Did it ever occur to you that normal C++ programmers may be reluctant
to write something like:

logical_xor(x, y) ==
meta_bind2(
std::logical_an d<bool>(),
std::logical_or <bool>(),
std::not2(std:: logical_and<boo *l>())
)(x, y);
?