1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/*==============================================================================
Copyright (c) 2001-2010 Joel de Guzman
Copyright (c) 2010 Thomas Heller
Distributed under 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)
==============================================================================*/
#ifndef BOOST_PHOENIX_STATEMENT_FOR_HPP
#define BOOST_PHOENIX_STATEMENT_FOR_HPP
#include <boost/phoenix/core/limits.hpp>
#include <boost/phoenix/core/call.hpp>
#include <boost/phoenix/core/expression.hpp>
#include <boost/phoenix/core/meta_grammar.hpp>
BOOST_PHOENIX_DEFINE_EXPRESSION(
(boost)(phoenix)(for_)
, (meta_grammar) // Cond
(meta_grammar) // Init
(meta_grammar) // Step
(meta_grammar) // Do
)
namespace boost { namespace phoenix
{
struct for_eval
{
typedef void result_type;
template <
typename Init
, typename Cond
, typename Step
, typename Do
, typename Context
>
result_type
operator()(
Init const& init
, Cond const& cond
, Step const& step
, Do const& do_it
, Context const & ctx
) const
{
for(boost::phoenix::eval(init, ctx); boost::phoenix::eval(cond, ctx); boost::phoenix::eval(step, ctx))
boost::phoenix::eval(do_it, ctx);
}
};
template <typename Dummy>
struct default_actions::when<rule::for_, Dummy>
: call<for_eval, Dummy>
{};
template <typename Init, typename Cond, typename Step>
struct for_gen
{
for_gen(Init const& init_, Cond const& cond_, Step const& step_)
: init(init_), cond(cond_), step(step_) {}
template <typename Do>
typename expression::for_<Init, Cond, Step, Do>::type const
operator[](Do const& do_it) const
{
return
expression::
for_<Init, Cond, Step, Do>::
make(init, cond, step, do_it);
}
Init init;
Cond cond;
Step step;
};
template <typename Init, typename Cond, typename Step>
inline
for_gen<Init, Cond, Step> const
for_(Init const& init, Cond const& cond, Step const& step)
{
return for_gen<Init, Cond, Step>(init, cond, step);
}
}}
#endif
|
