Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2001-2007 Joel de Guzman
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 PHOENIX_STATEMENT_FOR_HPP
Chris@16: #define PHOENIX_STATEMENT_FOR_HPP
Chris@16: 
Chris@16: #include <boost/spirit/home/phoenix/core/composite.hpp>
Chris@16: #include <boost/spirit/home/phoenix/core/compose.hpp>
Chris@16: 
Chris@16: namespace boost { namespace phoenix
Chris@16: {
Chris@16:     struct for_eval
Chris@16:     {
Chris@16:         template <
Chris@16:             typename Env
Chris@16:           , typename Init, typename Cond, typename Step, typename Do>
Chris@16:         struct result
Chris@16:         {
Chris@16:             typedef void type;
Chris@16:         };
Chris@16: 
Chris@16:         template <
Chris@16:             typename RT, typename Env
Chris@16:           , typename Init, typename Cond, typename Step, typename Do>
Chris@16:         static void
Chris@16:         eval(
Chris@16:             Env const& env
Chris@16:           , Init& init, Cond& cond, Step& step, Do& do_)
Chris@16:         {
Chris@16:             for (init.eval(env); cond.eval(env); step.eval(env))
Chris@16:                 do_.eval(env);
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template <typename Init, typename Cond, typename Step>
Chris@16:     struct for_gen
Chris@16:     {
Chris@16:         for_gen(Init const& init, Cond const& cond, Step const& step)
Chris@16:             : init(init), cond(cond), step(step) {}
Chris@16: 
Chris@16:         template <typename Do>
Chris@16:         actor<typename as_composite<for_eval, Init, Cond, Step, Do>::type>
Chris@16:         operator[](Do const& do_) const
Chris@16:         {
Chris@16:             return compose<for_eval>(init, cond, step, do_);
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 for_gen<Init, Cond, Step>
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: #endif