--- /dev/null
+/* -*- C++ -*- ------------------------------------------------------------
+
+Copyright (c) 2007 Jesse Anders and Demian Nave http://cmldev.net/
+
+The Configurable Math Library (CML) is distributed under the terms of the
+Boost Software License, v1.0 (see cml/LICENSE for details).
+
+ *-----------------------------------------------------------------------*/
+/** @file
+ * @brief
+ *
+ * Create unary and binary operators with macros.
+ *
+ * These macros work just like those in cml/quaternion/vecop_macros.h.
+ */
+
+#ifndef quatop_macros_h
+#define quatop_macros_h
+
+/** Declare a unary operator taking a quaternion operand. */
+#define CML_QUAT_UNIOP(_op_, _OpT_) \
+template<typename E, class AT, class OT, class CT> \
+inline et::QuaternionXpr< \
+ et::UnaryQuaternionOp< quaternion<E,AT,OT,CT>, _OpT_ <E> > \
+> \
+ \
+_op_ (const quaternion<E,AT,OT,CT>& arg) \
+{ \
+ typedef et::UnaryQuaternionOp< \
+ quaternion<E,AT,OT,CT>, _OpT_ <E> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(arg)); \
+}
+
+
+/** Declare a unary operator taking a et::QuaternionXpr operand. */
+#define CML_QUATXPR_UNIOP(_op_, _OpT_) \
+template<class XprT> \
+inline et::QuaternionXpr< \
+ et::UnaryQuaternionOp< XprT, _OpT_ <typename XprT::value_type> > \
+> \
+ \
+_op_ (QUATXPR_ARG_TYPE arg) \
+{ \
+ typedef et::UnaryQuaternionOp< \
+ XprT, _OpT_ <typename XprT::value_type> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(arg.expression())); \
+}
+
+
+
+/** Declare an operator taking two quaternion operands. */
+#define CML_QUAT_QUAT_BINOP(_op_, _OpT_) \
+template<typename E1, class AT1, typename E2, class AT2, \
+ class OT, class CT> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ quaternion<E1,AT1,OT,CT>, quaternion<E2,AT2,OT,CT>, \
+ _OpT_ <E1,E2> \
+ > \
+> \
+ \
+_op_ ( \
+ const quaternion<E1,AT1,OT,CT>& left, \
+ const quaternion<E2,AT2,OT,CT>& right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ quaternion<E1,AT1,OT,CT>, quaternion<E2,AT2,OT,CT>, \
+ _OpT_ <E1,E2> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(left,right)); \
+}
+
+
+/** Declare an operator taking a quaternion and a et::QuaternionXpr. */
+#define CML_QUAT_QUATXPR_BINOP(_op_, _OpT_) \
+template<typename E, class AT, class OT, class CT, class XprT> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ quaternion<E,AT,OT,CT>, XprT, \
+ _OpT_ <E, typename XprT::value_type> \
+ > \
+> \
+ \
+_op_ ( \
+ const quaternion<E,AT,OT,CT>& left, \
+ QUATXPR_ARG_TYPE right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ quaternion<E,AT,OT,CT>, XprT, \
+ _OpT_ <E, typename XprT::value_type> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(left,right.expression())); \
+}
+
+
+/** Declare an operator taking an et::QuaternionXpr and a quaternion. */
+#define CML_QUATXPR_QUAT_BINOP(_op_, _OpT_) \
+template<class XprT, typename E, class AT, class OT, class CT> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ XprT, quaternion<E,AT,OT,CT>, \
+ _OpT_ <typename XprT::value_type, E> \
+ > \
+> \
+ \
+_op_ ( \
+ QUATXPR_ARG_TYPE left, \
+ const quaternion<E,AT,OT,CT>& right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ XprT, quaternion<E,AT,OT,CT>, \
+ _OpT_ <typename XprT::value_type, E> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(left.expression(),right)); \
+}
+
+
+/** Declare an operator taking two et::QuaternionXpr operands. */
+#define CML_QUATXPR_QUATXPR_BINOP(_op_, _OpT_) \
+template<class XprT1, class XprT2> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ XprT1, XprT2, \
+ _OpT_ < \
+ typename XprT1::value_type, \
+ typename XprT2::value_type \
+ > \
+ > \
+> \
+ \
+_op_ ( \
+ QUATXPR_ARG_TYPE_N(1) left, \
+ QUATXPR_ARG_TYPE_N(2) right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ XprT1, XprT2, \
+ _OpT_ < \
+ typename XprT1::value_type, \
+ typename XprT2::value_type> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>( \
+ ExprT(left.expression(),right.expression())); \
+}
+
+
+/** Declare an operator taking a quaternion and a scalar. */
+#define CML_QUAT_SCALAR_BINOP(_op_, _OpT_) \
+template<typename E, class AT, class OT, class CT, typename ScalarT> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ quaternion<E,AT,OT,CT>, ScalarT, \
+ _OpT_ <E,ScalarT> \
+ > \
+> \
+ \
+_op_ ( \
+ const quaternion<E,AT,OT,CT>& left, \
+ SCALAR_ARG_TYPE right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ quaternion<E,AT,OT,CT>, ScalarT, _OpT_ <E,ScalarT> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(left,right)); \
+}
+
+
+/** Declare an operator taking a scalar and a quaternion. */
+#define CML_SCALAR_QUAT_BINOP(_op_, _OpT_) \
+template<typename ScalarT, typename E, class AT, class OT, class CT> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ ScalarT, quaternion<E,AT,OT,CT>, _OpT_ <ScalarT,E> \
+ > \
+> \
+ \
+_op_ ( \
+ SCALAR_ARG_TYPE left, \
+ const quaternion<E,AT,OT,CT>& right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ ScalarT, quaternion<E,AT,OT,CT>, _OpT_ <ScalarT,E> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(left,right)); \
+}
+
+
+/** Declare an operator taking a et::QuaternionXpr and a scalar. */
+#define CML_QUATXPR_SCALAR_BINOP(_op_, _OpT_) \
+template<class XprT, typename ScalarT> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ XprT, ScalarT, _OpT_ <typename XprT::value_type,ScalarT> \
+ > \
+> \
+ \
+_op_ ( \
+ QUATXPR_ARG_TYPE left, \
+ SCALAR_ARG_TYPE right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ XprT, ScalarT, _OpT_ <typename XprT::value_type,ScalarT> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(left.expression(),right)); \
+}
+
+
+/** Declare an operator taking a scalar and a et::QuaternionXpr. */
+#define CML_SCALAR_QUATXPR_BINOP(_op_, _OpT_) \
+template<typename ScalarT, class XprT> \
+inline et::QuaternionXpr< \
+ et::BinaryQuaternionOp< \
+ ScalarT, XprT, _OpT_ <ScalarT, typename XprT::value_type> \
+ > \
+> \
+ \
+_op_ ( \
+ SCALAR_ARG_TYPE left, \
+ QUATXPR_ARG_TYPE right) \
+{ \
+ typedef et::BinaryQuaternionOp< \
+ ScalarT, XprT, \
+ _OpT_ <ScalarT, typename XprT::value_type> \
+ > ExprT; \
+ return et::QuaternionXpr<ExprT>(ExprT(left,right.expression())); \
+}
+
+#endif
+
+// -------------------------------------------------------------------------
+// vim:ft=cpp