Chris@16: /*==============================================================================
Chris@16:     Copyright (c) 2001-2010 Joel de Guzman
Chris@16:     Copyright (c) 2010 Thomas Heller
Chris@16: 
Chris@16:     Distributed under the Boost Software License, Version 1.0. (See accompanying
Chris@16:     file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: ==============================================================================*/
Chris@16: #ifndef BOOST_PHOENIX_STATEMENT_FOR_HPP
Chris@16: #define BOOST_PHOENIX_STATEMENT_FOR_HPP
Chris@16: 
Chris@16: #include <boost/phoenix/core/limits.hpp>
Chris@16: #include <boost/phoenix/core/call.hpp>
Chris@16: #include <boost/phoenix/core/expression.hpp>
Chris@16: #include <boost/phoenix/core/meta_grammar.hpp>
Chris@16:     
Chris@16: BOOST_PHOENIX_DEFINE_EXPRESSION(
Chris@16:     (boost)(phoenix)(for_)
Chris@16:   , (meta_grammar) // Cond
Chris@16:     (meta_grammar) // Init
Chris@16:     (meta_grammar) // Step
Chris@16:     (meta_grammar) // Do
Chris@16: )
Chris@16: 
Chris@16: namespace boost { namespace phoenix
Chris@16: {
Chris@16:     struct for_eval
Chris@16:     {
Chris@16:         typedef void result_type;
Chris@16: 
Chris@16:         template <
Chris@16:             typename Init
Chris@16:           , typename Cond
Chris@16:           , typename Step
Chris@16:           , typename Do
Chris@16:           , typename Context
Chris@16:         >
Chris@16:         result_type
Chris@16:         operator()(
Chris@16:             Init const& init
Chris@16:           , Cond const& cond
Chris@16:           , Step const& step
Chris@101:           , Do const& do_it
Chris@16:           , Context const & ctx
Chris@16:         ) const
Chris@16:         {
Chris@16:             for(boost::phoenix::eval(init, ctx); boost::phoenix::eval(cond, ctx); boost::phoenix::eval(step, ctx))
Chris@101:                 boost::phoenix::eval(do_it, ctx);
Chris@16:         }
Chris@16:     };
Chris@16:     
Chris@16:     template <typename Dummy>
Chris@16:     struct default_actions::when<rule::for_, Dummy>
Chris@16:         : call<for_eval, Dummy>
Chris@16:     {};
Chris@16:     
Chris@16:     template <typename Init, typename Cond, typename Step>
Chris@16:     struct for_gen
Chris@16:     {
Chris@101:         for_gen(Init const& init_, Cond const& cond_, Step const& step_)
Chris@101:             : init(init_), cond(cond_), step(step_) {}
Chris@16: 
Chris@16:         template <typename Do>
Chris@16:         typename expression::for_<Init, Cond, Step, Do>::type const
Chris@101:         operator[](Do const& do_it) const
Chris@16:         {
Chris@16:             return
Chris@16:                 expression::
Chris@16:                     for_<Init, Cond, Step, Do>::
Chris@101:                         make(init, cond, step, do_it);
Chris@16:         }
Chris@16: 
Chris@16:         Init init;
Chris@16:         Cond cond;
Chris@16:         Step step;
Chris@16:     };
Chris@16: 
Chris@16:     template <typename Init, typename Cond, typename Step>
Chris@16:     inline
Chris@16:     for_gen<Init, Cond, Step> const
Chris@16:     for_(Init const& init, Cond const& cond, Step const& step)
Chris@16:     {
Chris@16:         return for_gen<Init, Cond, Step>(init, cond, step);
Chris@16:     }
Chris@16: 
Chris@16: }}
Chris@16: 
Chris@16: #endif