/*
Copyright (C) 2001-2006, William Joseph.
All Rights Reserved.

This file is part of GtkRadiant.

GtkRadiant is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

GtkRadiant is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GtkRadiant; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*/

#if !defined(INCLUDED_GENERIC_CLOSURE_H)
#define INCLUDED_GENERIC_CLOSURE_H

/// \file
/// \brief Type-safe techniques for binding the first argument of an opaque callback. 

#include <cstddef>
#include "functional.h"
#include "callbackfwd.h"

template<typename Type>
inline void* convertToOpaque(Type* t)
{
  return t;
}
template<typename Type>
inline void* convertToOpaque(const Type* t)
{
  return const_cast<Type*>(t);
}
template<typename Type>
inline void* convertToOpaque(Type& t)
{
  return &t;
}
template<typename Type>
inline void* convertToOpaque(const Type& t)
{
  return const_cast<Type*>(&t);
}


template<typename Type>
class ConvertFromOpaque
{
};

template<typename Type>
class ConvertFromOpaque<Type&>
{
public:
  static Type& apply(void* p)
  {
    return *static_cast<Type*>(p);
  }
};

template<typename Type>
class ConvertFromOpaque<const Type&>
{
public:
  static const Type& apply(void* p)
  {
    return *static_cast<Type*>(p);
  }
};


template<typename Type>
class ConvertFromOpaque<Type*>
{
public:
  static Type* apply(void* p)
  {
    return static_cast<Type*>(p);
  }
};

template<typename Type>
class ConvertFromOpaque<const Type*>
{
public:
  static const Type* apply(void* p)
  {
    return static_cast<Type*>(p);
  }
};

template<typename Caller>
class BindFirstOpaque
{
  typedef typename Caller::first_argument_type FirstBound;
  FirstBound firstBound;
public:
  typedef typename Caller::result_type result_type;
  explicit BindFirstOpaque(FirstBound firstBound) : firstBound(firstBound)
  {
  }
  result_type operator()() const
  {
    return Caller::call(firstBound);
  }
  FirstBound getBound() const
  {
    return firstBound;
  }
  static result_type thunk(void* environment)
  {
    return Caller::call(ConvertFromOpaque<FirstBound>::apply(environment));
  }
  void* getEnvironment() const
  {
    return convertToOpaque(firstBound);
  }
};

template<typename Caller>
class BindFirstOpaque1
{
  typedef typename Caller::first_argument_type FirstBound;
  FirstBound firstBound;
public:
  typedef typename Caller::second_argument_type first_argument_type;
  typedef typename Caller::result_type result_type;
  explicit BindFirstOpaque1(FirstBound firstBound) : firstBound(firstBound)
  {
  }
  result_type operator()(first_argument_type a1) const
  {
    return Caller::call(firstBound, a1);
  }
  FirstBound getBound() const
  {
    return firstBound;
  }
  static result_type thunk(void* environment, first_argument_type a1)
  {
    return Caller::call(ConvertFromOpaque<FirstBound>::apply(environment), a1);
  }
  void* getEnvironment() const
  {
    return convertToOpaque(firstBound);
  }
};

template<typename Caller>
class BindFirstOpaque2
{
  typedef typename Caller::first_argument_type FirstBound;
  FirstBound firstBound;
public:
  typedef typename Caller::second_argument_type first_argument_type;
  typedef typename Caller::third_argument_type second_argument_type;
  typedef typename Caller::result_type result_type;
  explicit BindFirstOpaque2(FirstBound firstBound) : firstBound(firstBound)
  {
  }
  result_type operator()(first_argument_type a1, second_argument_type a2) const
  {
    return Caller::call(firstBound, a1, a2);
  }
  FirstBound getBound() const
  {
    return firstBound;
  }
  static result_type thunk(void* environment, first_argument_type a1, second_argument_type a2)
  {
    return Caller::call(ConvertFromOpaque<FirstBound>::apply(environment), a1, a2);
  }
  void* getEnvironment() const
  {
    return convertToOpaque(firstBound);
  }
};

template<typename Caller>
class BindFirstOpaque3
{
  typedef typename Caller::first_argument_type FirstBound;
  FirstBound firstBound;
public:
  typedef typename Caller::second_argument_type first_argument_type;
  typedef typename Caller::third_argument_type second_argument_type;
  typedef typename Caller::fourth_argument_type third_argument_type;
  typedef typename Caller::result_type result_type;
  explicit BindFirstOpaque3(FirstBound firstBound) : firstBound(firstBound)
  {
  }
  result_type operator()(first_argument_type a1, second_argument_type a2, third_argument_type a3) const
  {
    return Caller::call(firstBound, a1, a2, a3);
  }
  FirstBound getBound() const
  {
    return firstBound;
  }
  static result_type thunk(void* environment, first_argument_type a1, second_argument_type a2, third_argument_type a3)
  {
    return Caller::call(ConvertFromOpaque<FirstBound>::apply(environment), a1, a2, a3);
  }
  void* getEnvironment() const
  {
    return convertToOpaque(firstBound);
  }
};

template<typename Thunk_>
class CallbackBase
{
  void* m_environment;
  Thunk_ m_thunk;
public:
  typedef Thunk_ Thunk;
  CallbackBase(void* environment, Thunk function) : m_environment(environment), m_thunk(function)
  {
  }
  void* getEnvironment() const
  {
    return m_environment;
  }
  Thunk getThunk() const
  {
    return m_thunk;
  }
};

template<typename Thunk>
inline bool operator==(const CallbackBase<Thunk>& self, const CallbackBase<Thunk>& other)
{
  return self.getEnvironment() == other.getEnvironment() && self.getThunk() == other.getThunk();
}
template<typename Thunk>
inline bool operator!=(const CallbackBase<Thunk>& self, const CallbackBase<Thunk>& other)
{
  return !(self == other);
}
template<typename Thunk>
inline bool operator<(const CallbackBase<Thunk>& self, const CallbackBase<Thunk>& other)
{
  return self.getEnvironment() < other.getEnvironment() || 
        (!(other.getEnvironment() < self.getEnvironment()) && self.getThunk() < other.getThunk()); 
}


/// \brief Combines a void pointer with a pointer to a function which operates on a void pointer.
///
/// Use with the callback constructors MemberCaller, ConstMemberCaller, ReferenceCaller, ConstReferenceCaller, PointerCaller, ConstPointerCaller and FreeCaller.
template<typename Result>
class Callback0 : public CallbackBase<Result (*)(void*)>
{
  typedef CallbackBase<Result (*)(void*)> Base;
  static Result nullThunk(void*)
  {
  }

public:
  typedef Result result_type;

  Callback0() : Base(0, nullThunk)
  {
  }
  template<typename Caller>
  Callback0(const BindFirstOpaque<Caller>& caller) : Base(caller.getEnvironment(), BindFirstOpaque<Caller>::thunk)
  {
  }
  Callback0(void* environment, typename Base::Thunk function) : Base(environment, function)
  {
  }
  result_type operator()() const
  {
    return Base::getThunk()(Base::getEnvironment());
  }
};

template<typename Caller>
inline Callback0<typename Caller::result_type> makeCallback0(const Caller& caller, typename Caller::first_argument_type callee)
{
  return Callback0<typename Caller::result_type>(BindFirstOpaque<Caller>(callee));
}
template<typename Caller>
inline Callback0<typename Caller::result_type> makeStatelessCallback0(const Caller& caller)
{
  return makeCallback0(Caller0To1<Caller>(), 0);
}

typedef Callback0<void> Callback;



/// \brief Combines a void pointer with a pointer to a function which operates on a void pointer and one other argument. 
///
/// Use with the callback constructors MemberCaller1, ConstMemberCaller1, ReferenceCaller1, ConstReferenceCaller1, PointerCaller1, ConstPointerCaller1 and FreeCaller1.
template<typename FirstArgument, typename Result>
class Callback1 : public CallbackBase<Result (*)(void*, FirstArgument)>
{
  typedef CallbackBase<Result (*)(void*, FirstArgument)> Base;
  static Result nullThunk(void*, FirstArgument)
  {
  }

public:
  typedef FirstArgument first_argument_type;
  typedef Result result_type;

  Callback1() : Base(0, nullThunk)
  {
  }
  template<typename Caller>
  Callback1(const BindFirstOpaque1<Caller>& caller) : Base(caller.getEnvironment(), BindFirstOpaque1<Caller>::thunk)
  {
  }
  Callback1(void* environment, typename Base::Thunk function) : Base(environment, function)
  {
  }
  result_type operator()(FirstArgument firstArgument) const
  {
    return Base::getThunk()(Base::getEnvironment(), firstArgument);
  }
};

template<typename Caller>
inline Callback1<typename Caller::second_argument_type, typename Caller::result_type> makeCallback1(const Caller& caller, typename Caller::first_argument_type callee)
{
  return Callback1<typename Caller::second_argument_type, typename Caller::result_type>(BindFirstOpaque1<Caller>(callee));
}
template<typename Caller>
inline Callback1<typename Caller::second_argument_type, typename Caller::result_type> makeStatelessCallback1(const Caller& caller)
{
  return makeCallback1(Caller1To2<Caller>(), 0);
}


/// \brief Combines a void pointer with a pointer to a function which operates on a void pointer and two other arguments. 
///
template<typename FirstArgument, typename SecondArgument, typename Result>
class Callback2 : public CallbackBase<Result (*)(void*, FirstArgument, SecondArgument)>
{
  typedef CallbackBase<Result (*)(void*, FirstArgument, SecondArgument)> Base;
  static Result nullThunk(void*, FirstArgument, SecondArgument)
  {
  }

public:
  typedef FirstArgument first_argument_type;
  typedef SecondArgument second_argument_type;
  typedef Result result_type;

  Callback2() : Base(0, nullThunk)
  {
  }
  template<typename Caller>
  Callback2(const BindFirstOpaque2<Caller>& caller) : Base(caller.getEnvironment(), BindFirstOpaque2<Caller>::thunk)
  {
  }
  Callback2(void* environment, typename Base::Thunk function) : Base(environment, function)
  {
  }
  result_type operator()(FirstArgument firstArgument, SecondArgument secondArgument) const
  {
    return Base::getThunk()(Base::getEnvironment(), firstArgument, secondArgument);
  }
};

template<typename Caller>
inline Callback2<
  typename Caller::second_argument_type,
  typename Caller::third_argument_type,
  typename Caller::result_type
> makeCallback2(const Caller& caller, typename Caller::first_argument_type callee)
{
  return Callback2<
    typename Caller::second_argument_type,
    typename Caller::third_argument_type,
    typename Caller::result_type
  >(BindFirstOpaque2<Caller>(callee));
}
template<typename Caller>
inline Callback2<
  typename Caller::first_argument_type,
  typename Caller::second_argument_type,
  typename Caller::result_type
> makeStatelessCallback2(const Caller& caller)
{
  return makeCallback2(Caller2To3<Caller>(), 0);
}


/// \brief Combines a void pointer with a pointer to a function which operates on a void pointer and three other arguments. 
///
template<typename FirstArgument, typename SecondArgument, typename ThirdArgument, typename Result>
class Callback3 : public CallbackBase<Result (*)(void*, FirstArgument, SecondArgument, ThirdArgument)>
{
  typedef CallbackBase<Result (*)(void*, FirstArgument, SecondArgument, ThirdArgument)> Base;
  static Result nullThunk(void*, FirstArgument, SecondArgument, ThirdArgument)
  {
  }

public:
  typedef FirstArgument first_argument_type;
  typedef SecondArgument second_argument_type;
  typedef ThirdArgument third_argument_type;
  typedef Result result_type;

  Callback3() : Base(0, nullThunk)
  {
  }
  template<typename Caller>
  Callback3(const BindFirstOpaque3<Caller>& caller) : Base(caller.getEnvironment(), BindFirstOpaque3<Caller>::thunk)
  {
  }
  Callback3(void* environment, typename Base::Thunk function) : Base(environment, function)
  {
  }
  result_type operator()(FirstArgument firstArgument, SecondArgument secondArgument, ThirdArgument thirdArgument) const
  {
    return Base::getThunk()(Base::getEnvironment(), firstArgument, secondArgument, thirdArgument);
  }
};

template<typename Caller>
inline Callback3<
  typename Caller::second_argument_type,
  typename Caller::third_argument_type,
  typename Caller::fourth_argument_type,
  typename Caller::result_type
> makeCallback3(const Caller& caller, typename Caller::first_argument_type callee)
{
  return Callback3<
    typename Caller::second_argument_type,
    typename Caller::third_argument_type,
    typename Caller::fourth_argument_type,
    typename Caller::result_type
  >(BindFirstOpaque3<Caller>(callee));
}
template<typename Caller>
inline Callback3<
  typename Caller::first_argument_type,
  typename Caller::second_argument_type,
  typename Caller::third_argument_type,
  typename Caller::result_type
> makeStatelessCallback3(const Caller& caller)
{
  return makeCallback3(Caller3To4<Caller>(), 0);
}


/// \brief Forms a Callback from a non-const Environment reference and a non-const Environment member-function.
///
/// \dontinclude generic/callback.cpp
/// \skipline MemberCaller example
/// \until end example
template<typename Environment, void (Environment::*member)()>
class MemberCaller : public BindFirstOpaque< Member<Environment, void, member> >
{
public:
  MemberCaller(Environment& environment) : BindFirstOpaque< Member<Environment, void, member> >(environment)
  {
  }
};

/// \brief Forms a Callback from a const Environment reference and a const Environment member-function.
///
/// \dontinclude generic/callback.cpp
/// \skipline MemberCaller example
/// \until end example
template<typename Environment, void (Environment::*member)() const>
class ConstMemberCaller : public BindFirstOpaque< ConstMember<Environment, void, member> >
{
public:
  ConstMemberCaller(const Environment& environment) : BindFirstOpaque< ConstMember<Environment, void, member> >(environment)
  {
  }
};

/// \brief Forms a Callback from a non-const Environment reference and a const Environment member-function which takes one argument.
template<typename Environment, typename FirstArgument, void (Environment::*member)(FirstArgument)>
class MemberCaller1 : public BindFirstOpaque1< Member1<Environment, FirstArgument, void, member> >
{
public:
  MemberCaller1(Environment& environment) : BindFirstOpaque1< Member1<Environment, FirstArgument, void, member> >(environment)
  {
  }
};

/// \brief Forms a Callback from a const Environment reference and a const Environment member-function which takes one argument.
template<typename Environment, typename FirstArgument, void (Environment::*member)(FirstArgument) const>
class ConstMemberCaller1 : public BindFirstOpaque1< ConstMember1<Environment, FirstArgument, void, member> >
{
public:
  ConstMemberCaller1(const Environment& environment) : BindFirstOpaque1< ConstMember1<Environment, FirstArgument, void, member> >(environment)
  {
  }
};

/// \brief Forms a Callback from a non-const Environment reference and a free function which operates on a non-const Environment reference.
///
/// \dontinclude generic/callback.cpp
/// \skipline ReferenceCaller example
/// \until end example
template<typename Environment, void (*func)(Environment&)> 
class ReferenceCaller : public BindFirstOpaque< Function1<Environment&, void, func> >
{
public:
  ReferenceCaller(Environment& environment) : BindFirstOpaque< Function1<Environment&, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a const Environment reference and a free function which operates on a const Environment reference.
///
/// \dontinclude generic/callback.cpp
/// \skipline ReferenceCaller example
/// \until end example
template<typename Environment, void (*func)(const Environment&)> 
class ConstReferenceCaller : public BindFirstOpaque< Function1<const Environment&, void, func> >
{
public:
  ConstReferenceCaller(const Environment& environment) : BindFirstOpaque< Function1<const Environment&, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a non-const Environment reference and a free function which operates on a non-const Environment reference and one other argument.
template<typename Environment, typename FirstArgument, void (*func)(Environment&, FirstArgument)> 
class ReferenceCaller1 : public BindFirstOpaque1< Function2<Environment&, FirstArgument, void, func> >
{
public:
  ReferenceCaller1(Environment& environment) : BindFirstOpaque1< Function2<Environment&, FirstArgument, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a const Environment reference and a free function which operates on a const Environment reference and one other argument.
template<typename Environment, typename FirstArgument, void (*func)(const Environment&, FirstArgument)> 
class ConstReferenceCaller1 : public BindFirstOpaque1< Function2<const Environment&, FirstArgument, void, func> >
{
public:
  ConstReferenceCaller1(const Environment& environment) : BindFirstOpaque1< Function2<const Environment&, FirstArgument, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a non-const Environment pointer and a free function which operates on a non-const Environment pointer.
template<typename Environment, void (*func)(Environment*)> 
class PointerCaller : public BindFirstOpaque< Function1<Environment*, void, func> >
{
public:
  PointerCaller(Environment* environment) : BindFirstOpaque< Function1<Environment*, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a const Environment pointer and a free function which operates on a const Environment pointer.
template<typename Environment, void (*func)(const Environment*)> 
class ConstPointerCaller : public BindFirstOpaque< Function1<const Environment*, void, func> >
{
public:
  ConstPointerCaller(const Environment* environment) : BindFirstOpaque< Function1<const Environment*, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a non-const Environment pointer and a free function which operates on a non-const Environment pointer and one other argument.
template<typename Environment, typename FirstArgument, void (*func)(Environment*, FirstArgument)> 
class PointerCaller1 : public BindFirstOpaque1< Function2<Environment*, FirstArgument, void, func> >
{
public:
  PointerCaller1(Environment* environment) : BindFirstOpaque1< Function2<Environment*, FirstArgument, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a const Environment pointer and a free function which operates on a const Environment pointer and one other argument.
template<typename Environment, typename FirstArgument, void (*func)(const Environment*, FirstArgument)> 
class ConstPointerCaller1 : public BindFirstOpaque1< Function2<const Environment*, FirstArgument, void, func> >
{
public:
  ConstPointerCaller1(const Environment* environment) : BindFirstOpaque1< Function2<const Environment*, FirstArgument, void, func> >(environment)
  {
  }
};

/// \brief Forms a Callback from a free function which takes no arguments.
template<void (*func)()> 
class FreeCaller : public BindFirstOpaque< Caller0To1< Function0<void, func> > >
{
public:
  FreeCaller() : BindFirstOpaque< Caller0To1< Function0<void, func> > >(0)
  {
  }
};

/// \brief Forms a Callback from a free function which takes a single argument.
template<typename FirstArgument, void (*func)(FirstArgument)> 
class FreeCaller1 : public BindFirstOpaque1< Caller1To2< Function1<FirstArgument, void, func> > >
{
public:
  FreeCaller1() : BindFirstOpaque1< Caller1To2< Function1<FirstArgument, void, func> > >(0)
  {
  }
};


/// \brief Constructs a Callback from a non-const \p functor with zero arguments.
/// 
/// \param Functor Must define \c operator()().
template<typename Functor>
inline Callback makeCallback(Functor& functor)
{
  return Callback(MemberCaller<Functor, &Functor::operator()>(functor));
}

/// \brief  Constructs a Callback from a const \p functor with zero arguments.
/// 
/// \param Functor Must define const \c operator()().
template<typename Functor>
inline Callback makeCallback(const Functor& functor)
{
  return Callback(ConstMemberCaller<Functor, &Functor::operator()>(functor));
}

/// \brief  Constructs a Callback1 from a non-const \p functor with one argument.
/// 
/// \param Functor Must define \c first_argument_type and \c operator()(first_argument_type).
template<typename Functor>
inline Callback1<typename Functor::first_argument_type> makeCallback1(Functor& functor)
{
  typedef typename Functor::first_argument_type FirstArgument;
  return Callback1<FirstArgument>(MemberCaller1<Functor, FirstArgument, &Functor::operator()>(functor));
}

/// \brief  Constructs a Callback1 from a const \p functor with one argument.
/// 
/// \param Functor Must define \c first_argument_type and const \c operator()(first_argument_type).
template<typename Functor>
inline Callback1<typename Functor::first_argument_type> makeCallback1(const Functor& functor)
{
  typedef typename Functor::first_argument_type FirstArgument;
  return Callback1<FirstArgument>(ConstMemberCaller1<Functor, FirstArgument, &Functor::operator()>(functor));
}


typedef Callback1<bool> BoolImportCallback;
typedef Callback1<const BoolImportCallback&> BoolExportCallback;

typedef Callback1<int> IntImportCallback;
typedef Callback1<const IntImportCallback&> IntExportCallback;

typedef Callback1<float> FloatImportCallback;
typedef Callback1<const FloatImportCallback&> FloatExportCallback;

typedef Callback1<const char*> StringImportCallback;
typedef Callback1<const StringImportCallback&> StringExportCallback;

typedef Callback1<std::size_t> SizeImportCallback;
typedef Callback1<const SizeImportCallback&> SizeExportCallback;


#endif