Initial move from Spirit CVS

[SVN r34896]

include/boost/fusion/support/category_of.hpp

@@ -0,0 +1,38 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_CATEGORY_OF_07202005_0308)
+#define FUSION_CATEGORY_OF_07202005_0308
+
+#include <boost/fusion/support/detail/category_of.hpp>
+#include <boost/fusion/support/tag_of.hpp>
+#include <boost/fusion/support/tags.hpp>
+
+namespace boost { namespace fusion
+{ 
+    namespace extension
+    {
+        template<typename Tag>
+        struct category_of_impl
+        {
+            template<typename T>
+            struct apply
+                : detail::fusion_category_of<T>
+            {};
+        };
+    }
+
+    namespace traits
+    {
+        template <typename T>
+        struct category_of
+            : extension::category_of_impl<typename detail::tag_of<T>::type>::
+                template apply<T>
+        {};
+}}}
+
+#endif

include/boost/fusion/support/detail/access.hpp

@@ -0,0 +1,56 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_ACCESS_04182005_0737)
+#define FUSION_ACCESS_04182005_0737
+
+#include <boost/mpl/eval_if.hpp>
+#include <boost/mpl/identity.hpp>
+#include <boost/type_traits/add_const.hpp>
+#include <boost/type_traits/add_reference.hpp>
+#include <boost/type_traits/is_reference.hpp>
+#include <boost/type_traits/remove_cv.hpp>
+
+namespace boost { namespace fusion { namespace detail
+{
+    template <typename T>
+    struct ref_result
+    {
+        typedef typename add_reference<typename T::type>::type type;
+    };
+
+    template <typename T>
+    struct cref_result
+    {
+        typedef typename 
+            add_reference<
+                typename add_const<typename T::type>::type
+            >::type 
+        type;
+    };
+
+    template <typename T>
+    struct non_ref_parameter
+    {
+        typedef typename boost::remove_cv<T>::type const& type;
+    };
+
+    template <typename T>
+    struct call_param
+    {
+        typedef typename 
+            mpl::eval_if<
+                is_reference<T>
+              , mpl::identity<T>
+              , non_ref_parameter<T>
+            >::type
+        type;
+    };
+}}}
+
+#endif
+

include/boost/fusion/support/detail/as_fusion_element.hpp

@@ -0,0 +1,48 @@
+/*=============================================================================
+    Copyright (c) 1999-2003 Jaakko J<>rvi
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_AS_FUSION_ELEMENT_05052005_0338)
+#define FUSION_AS_FUSION_ELEMENT_05052005_0338
+
+#include <boost/ref.hpp>
+
+namespace boost { namespace fusion { namespace detail
+{
+    template <typename T>
+    struct as_fusion_element
+    {
+        typedef T type;
+    };
+
+    template <typename T>
+    struct as_fusion_element<reference_wrapper<T> >
+    {
+        typedef T& type;
+    };
+
+    template <typename T, int N>
+    struct as_fusion_element<T[N]>
+    {
+        typedef const T(&type)[N];
+    };
+
+    template <typename T, int N>
+    struct as_fusion_element<volatile T[N]>
+    {
+        typedef const volatile T(&type)[N];
+    };
+
+    template <typename T, int N>
+    struct as_fusion_element<const volatile T[N]>
+    {
+        typedef const volatile T(&type)[N];
+    };
+
+}}}
+
+#endif

include/boost/fusion/support/detail/category_of.hpp

@@ -0,0 +1,20 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_CATEGORY_OF_07212005_1025)
+#define FUSION_CATEGORY_OF_07212005_1025
+
+namespace boost { namespace fusion { namespace detail
+{
+    template <typename T>
+    struct fusion_category_of
+    {
+        typedef typename T::category type;
+    };
+}}}
+
+#endif

include/boost/fusion/support/detail/compiler_config.hpp

@@ -0,0 +1,18 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_COMPILER_CONFIG_01052006_1200)
+#define FUSION_COMPILER_CONFIG_01052006_1200
+
+#include <boost/config.hpp>
+#include <boost/detail/workaround.hpp>
+
+#if BOOST_WORKAROUND(BOOST_MSVC, BOOST_TESTED_AT(1310))
+#pragma warning(disable : 4512 4244 4100 4305)
+#endif
+
+#endif

include/boost/fusion/support/detail/is_mpl_sequence.hpp

@@ -0,0 +1,54 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+    Copyright (c) 2005-2006 Dan Marsden
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_DETAIL_IS_MPL_SEQUENCE_15122005_2137)
+#define FUSION_DETAIL_IS_MPL_SEQUENCE_15122005_2137
+
+#include <boost/fusion/support/sequence_base.hpp>
+#include <boost/mpl/is_sequence.hpp>
+#include <boost/mpl/and.hpp>
+#include <boost/mpl/not.hpp>
+#include <boost/mpl/bool.hpp>
+#include <boost/mpl/int_fwd.hpp>
+#include <boost/mpl/long_fwd.hpp>
+#include <boost/mpl/size_t_fwd.hpp>
+#include <boost/mpl/integral_c_fwd.hpp>
+#include <boost/type_traits/is_base_of.hpp>
+#include <boost/type_traits/is_convertible.hpp>
+#include <cstddef>
+
+namespace boost { namespace fusion { namespace detail
+{
+    struct mpl_int_detect
+    {
+        template <int N>
+        mpl_int_detect(mpl::int_<N>) {}
+
+        template <bool B>
+        mpl_int_detect(mpl::bool_<B>) {}
+
+        template <typename T, T N>
+        mpl_int_detect(mpl::integral_c<T, N>) {}
+
+        template <long N>
+        mpl_int_detect(mpl::long_<N>) {}
+
+        template <std::size_t N>
+        mpl_int_detect(mpl::size_t<N>) {}
+    };
+    
+    template <typename T>
+    struct is_mpl_sequence
+        : mpl::and_<
+            mpl::not_<is_convertible<T, mpl_int_detect> >
+          , mpl::not_<is_base_of<sequence_root, T> >
+          , mpl::is_sequence<T> >
+    {};
+}}}
+
+#endif

include/boost/fusion/support/detail/is_view.hpp

@@ -0,0 +1,20 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_IS_VIEW_03202006_0018)
+#define FUSION_IS_VIEW_03202006_0018
+
+namespace boost { namespace fusion { namespace detail
+{
+    template <typename T>
+    struct fusion_is_view
+    {
+        typedef typename T::is_view type;
+    };
+}}}
+
+#endif

include/boost/fusion/support/detail/iterator_to_sequence_category.hpp

@@ -0,0 +1,62 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_ITERATOR_TO_SEQUENCE_CATEGORY_07212005_0726)
+#define FUSION_ITERATOR_TO_SEQUENCE_CATEGORY_07212005_0726
+
+namespace boost { namespace fusion
+{
+    struct incrementable_traversal_tag;
+    struct single_pass_traversal_tag;
+    struct forward_traversal_tag;
+    struct bidirectional_traversal_tag;
+    struct random_access_traversal_tag;
+
+    struct incrementable_sequence_tag;
+    struct single_pass_sequence_tag;
+    struct forward_sequence_tag;
+    struct bidirectional_sequence_tag;
+    struct random_access_sequence_tag;
+}}
+    
+namespace boost { namespace fusion { namespace detail
+{
+    template <typename Category>
+    struct iterator_to_sequence_category;
+    
+    template <>
+    struct iterator_to_sequence_category<incrementable_traversal_tag>
+    {
+        typedef incrementable_sequence_tag type;
+    };
+
+    template <>
+    struct iterator_to_sequence_category<single_pass_traversal_tag>
+    {
+        typedef single_pass_sequence_tag type;
+    };
+
+    template <>
+    struct iterator_to_sequence_category<forward_traversal_tag>
+    {
+        typedef forward_sequence_tag type;
+    };
+
+    template <>
+    struct iterator_to_sequence_category<bidirectional_traversal_tag>
+    {
+        typedef bidirectional_sequence_tag type;
+    };
+
+    template <>
+    struct iterator_to_sequence_category<random_access_traversal_tag>
+    {
+        typedef random_access_sequence_tag type;
+    };
+}}}
+
+#endif

include/boost/fusion/support/detail/mpl_iterator_category.hpp

@@ -0,0 +1,49 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_MPL_ITERATOR_CATEGORY_07212005_0923)
+#define FUSION_MPL_ITERATOR_CATEGORY_07212005_0923
+
+namespace boost { namespace mpl 
+{
+    struct forward_iterator_tag;
+    struct bidirectional_iterator_tag;
+    struct random_access_iterator_tag;
+}}
+
+namespace boost { namespace fusion
+{
+    struct forward_traversal_tag;
+    struct bidirectional_traversal_tag;
+    struct random_access_traversal_tag;
+}}
+
+namespace boost { namespace fusion { namespace detail
+{
+    template <typename Category>
+    struct mpl_iterator_category;
+    
+    template <>
+    struct mpl_iterator_category<mpl::forward_iterator_tag>
+    {
+        typedef forward_traversal_tag type;
+    };
+
+    template <>
+    struct mpl_iterator_category<mpl::bidirectional_iterator_tag>
+    {
+        typedef bidirectional_traversal_tag type;
+    };
+
+    template <>
+    struct mpl_iterator_category<mpl::random_access_iterator_tag>
+    {
+        typedef random_access_traversal_tag type;
+    };
+}}}
+
+#endif

include/boost/fusion/support/detail/unknown_key.hpp

@@ -0,0 +1,17 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_UNKNOWN_KEY_09242005_1219)
+#define FUSION_UNKNOWN_KEY_09242005_1219
+
+namespace boost { namespace fusion { namespace detail
+{
+    template <int index>
+    struct unknown_key {};
+}}}
+
+#endif

include/boost/fusion/support/is_associative.hpp

@@ -0,0 +1,36 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+    Copyright (c) 2006 Dan Marsden
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_IS_ASSOCIATIVE_09242005_1018)
+#define FUSION_IS_ASSOCIATIVE_09242005_1018
+
+#include <boost/mpl/bool.hpp>
+#include <boost/fusion/support/tag_of.hpp>
+
+namespace boost { namespace fusion {
+    namespace extension
+    {
+      template<typename Tag>
+      struct is_associative_impl
+      {
+        template<typename Seq>
+        struct apply
+          : mpl::false_
+        {};
+      };
+    }
+
+    namespace traits
+    {
+      template <typename Seq>
+      struct is_associative
+        : extension::is_associative_impl<typename detail::tag_of<Seq>::type>::template apply<Seq>
+      {};
+}}}
+
+#endif

include/boost/fusion/support/is_iterator.hpp

@@ -0,0 +1,21 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_IS_ITERATOR_05062005_1219)
+#define FUSION_IS_ITERATOR_05062005_1219
+
+#include <boost/type_traits/is_base_and_derived.hpp>
+
+namespace boost { namespace fusion
+{
+    struct iterator_root;
+
+    template <typename T>
+    struct is_fusion_iterator : is_base_and_derived<iterator_root, T> {};
+}}
+
+#endif

include/boost/fusion/support/is_sequence.hpp

@@ -0,0 +1,51 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_IS_SEQUENCE_05052005_1002)
+#define FUSION_IS_SEQUENCE_05052005_1002
+
+#include <boost/type_traits/is_base_and_derived.hpp>
+#include <boost/fusion/support/sequence_base.hpp>
+#include <boost/fusion/support/tag_of.hpp>
+#include <boost/mpl/is_sequence.hpp>
+#include <boost/mpl/or.hpp>
+#include <boost/mpl/bool.hpp>
+
+namespace boost { namespace fusion
+{
+    struct non_fusion_tag;
+
+    namespace extension
+    {
+        template<typename T>
+        struct is_sequence_impl
+            : is_base_and_derived<sequence_root, T>
+        {
+            template<typename Sequence>
+            struct apply 
+                : is_base_and_derived<sequence_root, Sequence>
+            {};
+        };
+
+        template<>
+        struct is_sequence_impl<non_fusion_tag>
+        {
+            template<typename T>
+            struct apply : mpl::false_ {};
+        };
+    }
+
+    namespace traits
+    {
+        template <typename T>
+        struct is_sequence
+            : extension::is_sequence_impl<typename detail::tag_of<T>::type>::template apply<T>
+        {};
+    }
+}}
+
+#endif

include/boost/fusion/support/is_view.hpp

@@ -0,0 +1,37 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_IS_VIEW_03202006_0015)
+#define FUSION_IS_VIEW_03202006_0015
+
+#include <boost/fusion/support/detail/is_view.hpp>
+#include <boost/fusion/support/tag_of.hpp>
+
+namespace boost { namespace fusion 
+{
+    namespace extension
+    {
+        template<typename Tag>
+        struct is_view_impl
+        {
+            template<typename T>
+            struct apply
+                : detail::fusion_is_view<T>
+            {};
+        };
+    }
+
+    namespace traits
+    {
+        template <typename T>
+        struct is_view : 
+            extension::is_view_impl<typename detail::tag_of<T>::type>::
+                template apply<T>::type
+        {};
+}}}
+
+#endif

include/boost/fusion/support/iterator_base.hpp

@@ -0,0 +1,34 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_ITERATOR_BASE_05042005_1008)
+#define FUSION_ITERATOR_BASE_05042005_1008
+
+#include <boost/fusion/support/detail/compiler_config.hpp>
+
+namespace boost { namespace fusion
+{
+    struct iterator_root {};
+
+    template <typename Iterator>
+    struct iterator_base : iterator_root
+    {
+        Iterator const&
+        cast() const
+        {
+            return static_cast<Iterator const&>(*this);
+        }
+
+        Iterator&
+        cast()
+        {
+            return static_cast<Iterator&>(*this);
+        }
+    };
+}}
+
+#endif

include/boost/fusion/support/pair.hpp

@@ -0,0 +1,81 @@
+/*=============================================================================
+    Copyright (c) 2005 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_PAIR_07222005_1203)
+#define FUSION_PAIR_07222005_1203
+
+#include <boost/fusion/support/detail/compiler_config.hpp>
+#include <boost/fusion/support/detail/access.hpp>
+#include <boost/fusion/support/detail/as_fusion_element.hpp>
+
+namespace boost { namespace fusion
+{
+    // A half runtime pair where the first type does not have data
+    template <typename First, typename Second>
+    struct pair
+    {
+        pair()
+            : second() {}
+
+        pair(typename detail::call_param<Second>::type val)
+            : second(val) {}
+        
+        template <typename Second2>
+        pair(pair<First, Second2> const& rhs)
+            : second(rhs.second) {}
+
+        template <typename Second2>
+        pair& operator=(pair<First, Second2> const& rhs)
+        {
+            second = rhs.second;
+            return *this;
+        }
+
+        typedef First first_type;
+        typedef Second second_type;
+        Second second;
+    };
+
+    template <typename First, typename Second>
+    inline pair<First, typename detail::as_fusion_element<Second>::type>
+    make_pair(Second const& val)
+    {
+        return pair<First, typename detail::as_fusion_element<Second>::type>(val);
+    }
+
+    template <typename OStream, typename First, typename Second>
+    inline OStream&
+    operator<<(OStream& os, pair<First, Second> const& p)
+    {
+        os << p.second;
+        return os;
+    }
+
+    template <typename IStream, typename First, typename Second>
+    inline IStream&
+    operator>>(IStream& is, pair<First, Second>& p)
+    {
+        is >> p.second;
+        return is;
+    }
+    
+    template <typename First, typename SecondL, typename SecondR>
+    inline bool 
+    operator==(pair<First, SecondL> const& l, pair<First, SecondR> const& r)
+    {
+        return l.second == r.second;
+    }
+
+    template <typename First, typename SecondL, typename SecondR>
+    inline bool 
+    operator!=(pair<First, SecondL> const& l, pair<First, SecondR> const& r)
+    {
+        return l.second != r.second;
+    }
+}}
+
+#endif

include/boost/fusion/support/sequence_base.hpp

@@ -0,0 +1,34 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_SEQUENCE_BASE_04182005_0737)
+#define FUSION_SEQUENCE_BASE_04182005_0737
+
+#include <boost/fusion/support/detail/compiler_config.hpp>
+
+namespace boost { namespace fusion
+{
+    struct sequence_root {};
+
+    template <typename Sequence>
+    struct sequence_base : sequence_root
+    {
+        Sequence const&
+        derived() const
+        {
+            return static_cast<Sequence const&>(*this);
+        }
+
+        Sequence&
+        derived()
+        {
+            return static_cast<Sequence&>(*this);
+        }
+    };
+}}
+
+#endif

include/boost/fusion/support/tag_of.hpp

@@ -0,0 +1,48 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_TAG_OF_09232005_0845)
+#define FUSION_TAG_OF_09232005_0845
+
+#include <boost/type_traits/remove_const.hpp>
+#include <boost/fusion/support/tag_of_fwd.hpp>
+#include <boost/mpl/has_xxx.hpp>
+#include <boost/utility/enable_if.hpp>
+
+namespace boost { namespace fusion
+{
+    struct non_fusion_tag;
+        
+    namespace detail
+    {
+        BOOST_MPL_HAS_XXX_TRAIT_DEF(ftag)
+    }
+
+    namespace traits
+    {
+        template <typename Sequence, typename Active>
+        struct tag_of
+        {
+            typedef non_fusion_tag type;
+        };
+
+        template<typename Sequence>
+        struct tag_of<Sequence, typename boost::enable_if<detail::has_ftag<Sequence> >::type>
+        {
+            typedef typename Sequence::ftag type;
+        };
+    }
+
+    namespace detail
+    {
+        template<typename T>
+        struct tag_of
+            : traits::tag_of<typename remove_const<T>::type>
+        {};
+    }
+}}
+#endif

include/boost/fusion/support/tag_of_fwd.hpp

@@ -0,0 +1,21 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+    Copyright (c) 2005-2006 Dan Marsden
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(BOOST_FUSION_TAG_OF_FWD_31122005_1445)
+#define BOOST_FUSION_TAG_OF_FWD_31122005_1445
+
+namespace boost { namespace fusion {
+
+    namespace traits
+    {
+        template<typename T, typename Active = void>
+        struct tag_of;
+    }
+}}
+
+#endif

include/boost/fusion/support/tags.hpp

@@ -0,0 +1,47 @@
+/*=============================================================================
+    Copyright (c) 2001-2006 Joel de Guzman
+
+    Use, modification and distribution is subject to 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)
+==============================================================================*/
+#if !defined(FUSION_TAGS_07212005_1031)
+#define FUSION_TAGS_07212005_1031
+
+namespace boost { namespace fusion
+{
+//  Iterator Classification
+    struct incrementable_traversal_tag {};
+
+    struct single_pass_traversal_tag
+        : incrementable_traversal_tag {};
+
+    struct forward_traversal_tag
+        : single_pass_traversal_tag {};
+
+    struct bidirectional_traversal_tag
+        : forward_traversal_tag {};
+
+    struct random_access_traversal_tag
+        : bidirectional_traversal_tag {};
+
+//  Sequence Classification
+    struct incrementable_sequence_tag {};
+
+    struct single_pass_sequence_tag
+        : incrementable_sequence_tag {};
+
+    struct forward_sequence_tag
+        : single_pass_sequence_tag {};
+
+    struct bidirectional_sequence_tag
+        : forward_sequence_tag {};
+
+    struct random_access_sequence_tag
+        : bidirectional_sequence_tag {};
+
+    struct associative_sequence_tag // $$$ this is no longer true $$$ 
+        : forward_sequence_tag {};
+}}
+
+#endif