4 // Fraunhofer Institute for Open Communication Systems (FOKUS)
5 // Competence Center NETwork research (NET), St. Augustin, GERMANY
6 // Stefan Bund <g0dil@berlios.de>
8 // This program is free software; you can redistribute it and/or modify
9 // it under the terms of the GNU General Public License as published by
10 // the Free Software Foundation; either version 2 of the License, or
11 // (at your option) any later version.
13 // This program is distributed in the hope that it will be useful,
14 // but WITHOUT ANY WARRANTY; without even the implied warranty of
15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 // GNU General Public License for more details.
18 // You should have received a copy of the GNU General Public License
19 // along with this program; if not, write to the
20 // Free Software Foundation, Inc.,
21 // 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
24 \brief ParsedCommand Boost.Preprocesser external iteration include */
26 #if !BOOST_PP_IS_ITERATING && !defined(MPP_ParsedCommand_)
27 #define MPP_ParsedCommand_ 1
30 #include <boost/preprocessor/iteration/iterate.hpp>
31 #include <boost/preprocessor/repetition/enum_trailing.hpp>
32 #include <boost/preprocessor/repetition/enum_params.hpp>
33 #include <boost/preprocessor/repetition/enum_binary_params.hpp>
34 #include <boost/preprocessor/cat.hpp>
35 #include <boost/preprocessor/arithmetic/inc.hpp>
36 #include <boost/preprocessor/arithmetic/sub.hpp>
37 #include <boost/preprocessor/repetition/repeat.hpp>
38 #include <boost/type_traits/remove_reference.hpp>
39 #include <boost/type_traits/remove_const.hpp>
40 #include <boost/bind.hpp>
41 #include <boost/mpl/vector.hpp>
42 #include <boost/mpl/at.hpp>
44 // ///////////////////////////mpp.p////////////////////////////////////////
45 #elif BOOST_PP_IS_ITERATING // ////////////////////////////////////////////
46 // ////////////////////////////////////////////////////////////////////////
49 #define mpp_ArgTypeN(n) BOOST_PP_CAT(BOOST_PP_CAT(arg, BOOST_PP_INC(n)), _type)
50 #define mpp_ArgN(n) BOOST_PP_CAT(arg, BOOST_PP_INC(n))
52 #define mpp_TrailingArgTypes_(z,n,d) typename traits::mpp_ArgTypeN(n)
53 #define mpp_TrailingArgTypes() BOOST_PP_ENUM_TRAILING( BOOST_PP_ITERATION(), mpp_TrailingArgTypes_, _ )
55 #define mpp_ArgTypes_(z,n,d) mpp_ArgTypeN(n)
56 #define mpp_ArgTypes() BOOST_PP_ENUM( BOOST_PP_ITERATION(), mpp_ArgTypes_, _ )
58 #define mpp_Args_(z,n,d) mpp_ArgN(n)
59 #define mpp_TrailingArgs() BOOST_PP_ENUM_TRAILING( BOOST_PP_ITERATION(), mpp_Args_, _ )
61 #define mpp_BindArgs_(z,n,d) BOOST_PP_CAT( _, BOOST_PP_INC(BOOST_PP_INC(n)))
62 #define mpp_TrailingBindArgs() BOOST_PP_ENUM_TRAILING( BOOST_PP_ITERATION(), mpp_BindArgs_, _ )
64 // ////////////////////////////////////////////////////////////////////////
65 #if BOOST_PP_ITERATION_FLAGS()==1 // //////////////////////////////////////
66 // ////////////////////////////////////////////////////////////////////////
70 template <class FunctionTraits, class ReturnValue>
71 class ParsedCommandOverload<FunctionTraits, ReturnValue, BOOST_PP_ITERATION() >
72 : public ParsedCommandOverloadBase
75 typedef boost::intrusive_ptr<ParsedCommandOverload> ptr;
76 typedef FunctionTraits traits;
77 typedef boost::function<typename traits::result_type(std::ostream &
78 mpp_TrailingArgTypes())> Function;
79 typedef typename senf::remove_cvref<typename traits::result_type>::type result_type;
80 typedef boost::function<void (result_type const &, std::ostream &)> Formatter;
82 # define mpp_l(z,n,d) \
83 typedef typename senf::remove_cvref< typename traits::mpp_ArgTypeN(n) >::type \
85 BOOST_PP_REPEAT( BOOST_PP_ITERATION(), mpp_l, _ )
88 typedef boost::mpl::vector< mpp_ArgTypes() > arg_types;
90 static ptr create(Function fn);
92 void formatter(Formatter f);
94 using ParsedCommandOverloadBase::arg;
96 detail::ArgumentInfo<typename boost::mpl::at_c<arg_types, n>::type> & arg() const;
101 ParsedCommandOverload(Function fn);
103 virtual void v_execute(std::ostream & os, ParseCommandInfo const & command) const;
106 Formatter formatter_;
109 template <class FunctionTraits>
110 class ParsedCommandOverload<FunctionTraits, void, BOOST_PP_ITERATION() >
111 : public ParsedCommandOverloadBase
114 typedef boost::intrusive_ptr<ParsedCommandOverload> ptr;
115 typedef FunctionTraits traits;
116 typedef boost::function<typename traits::result_type(std::ostream &
117 mpp_TrailingArgTypes())> Function;
118 typedef void result_type;
120 # define mpp_l(z,n,d) \
121 typedef typename senf::remove_cvref< typename traits::mpp_ArgTypeN(n) >::type \
123 BOOST_PP_REPEAT( BOOST_PP_ITERATION(), mpp_l, _ )
126 typedef boost::mpl::vector< mpp_ArgTypes() > arg_types;
128 static ptr create(Function fn);
130 using ParsedCommandOverloadBase::arg;
131 template <unsigned n>
132 detail::ArgumentInfo<typename boost::mpl::at_c<arg_types, n>::type> & arg() const;
137 ParsedCommandOverload(Function fn);
139 virtual void v_execute(std::ostream & os, ParseCommandInfo const & command) const;
144 // ////////////////////////////////////////////////////////////////////////
145 #elif BOOST_PP_ITERATION_FLAGS()==2 // ////////////////////////////////////
146 // ////////////////////////////////////////////////////////////////////////
148 // inline template implementation (.cti)
150 template <class FunctionTraits, class ReturnValue>
151 prefix_ typename senf::console::ParsedCommandOverload<FunctionTraits, ReturnValue, BOOST_PP_ITERATION() >::ptr
152 senf::console::ParsedCommandOverload<FunctionTraits, ReturnValue, BOOST_PP_ITERATION() >::
155 return ptr(new ParsedCommandOverload(fn));
158 template <class FunctionTraits, class ReturnValue>
160 senf::console::ParsedCommandOverload<FunctionTraits, ReturnValue, BOOST_PP_ITERATION() >::
161 formatter(Formatter f)
166 template <class FunctionTraits, class ReturnValue>
167 template <unsigned n>
168 senf::console::detail::ArgumentInfo<
169 typename boost::mpl::at_c<
170 typename senf::console::ParsedCommandOverload<
171 FunctionTraits, ReturnValue, BOOST_PP_ITERATION()>::arg_types,
173 senf::console::ParsedCommandOverload<FunctionTraits, ReturnValue, BOOST_PP_ITERATION() >::
176 return static_cast< detail::ArgumentInfo<
177 typename boost::mpl::at_c<arg_types, n>::type > & >(arg(n));
180 template <class FunctionTraits, class ReturnValue>
182 senf::console::ParsedCommandOverload<FunctionTraits, ReturnValue, BOOST_PP_ITERATION()>::
183 ParsedCommandOverload(Function fn)
186 # define mpp_l(z,n,d) addParameter< mpp_ArgTypeN(n) >();
187 BOOST_PP_REPEAT( BOOST_PP_ITERATION(), mpp_l, _ )
191 template <class FunctionTraits>
192 prefix_ typename senf::console::ParsedCommandOverload<FunctionTraits, void, BOOST_PP_ITERATION() >::ptr
193 senf::console::ParsedCommandOverload<FunctionTraits, void, BOOST_PP_ITERATION() >::
196 return ptr(new ParsedCommandOverload(fn));
199 template <class FunctionTraits>
200 template <unsigned n>
201 senf::console::detail::ArgumentInfo<
202 typename boost::mpl::at_c<
203 typename senf::console::ParsedCommandOverload<
204 FunctionTraits, void, BOOST_PP_ITERATION()>::arg_types,
206 senf::console::ParsedCommandOverload<FunctionTraits, void, BOOST_PP_ITERATION() >::
209 return static_cast< detail::ArgumentInfo<
210 typename boost::mpl::at_c<arg_types, n>::type > & >(arg(n));
213 template <class FunctionTraits>
215 senf::console::ParsedCommandOverload<FunctionTraits, void, BOOST_PP_ITERATION() >::
216 ParsedCommandOverload(Function fn)
219 # define mpp_l(z,n,d) addParameter< mpp_ArgTypeN(n) >();
220 BOOST_PP_REPEAT( BOOST_PP_ITERATION(), mpp_l, _ )
224 // ////////////////////////////////////////////////////////////////////////
225 #elif BOOST_PP_ITERATION_FLAGS()==3 // ////////////////////////////////////
226 // ////////////////////////////////////////////////////////////////////////
228 // non-inline template implementation (.ct)
230 template <class FunctionTraits, class ReturnValue>
231 prefix_ void senf::console::ParsedCommandOverload<FunctionTraits, ReturnValue, BOOST_PP_ITERATION() >::
232 v_execute(std::ostream & os, ParseCommandInfo const & command)
235 if ( command.arguments().size() > BOOST_PP_ITERATION() )
236 throw SyntaxErrorException("invalid number of arguments");
237 int nDefaults ( BOOST_PP_ITERATION() - command.arguments().size() );
239 typedef typename boost::range_const_reverse_iterator<ParseCommandInfo::ArgumentsRange>::type
241 riterator i (boost::rbegin(command.arguments()));
242 riterator const i_end (boost::rend(command.arguments()));
244 # define mpp_l(z,n,d) \
245 mpp_ArgTypeN(n) mpp_ArgN(n) (arg<n>().defaultValue); \
246 if (! arg(n).hasDefault || nDefaults-- <= 0) { \
248 throw SyntaxErrorException("invalid number of arguments"); \
249 if (arg<n>().parser) \
250 arg<n>().parser( *(i++), mpp_ArgN(n) ); \
252 ArgumentTraits< mpp_ArgTypeN(n) >::parse( *(i++), mpp_ArgN(n) ); \
254 # define mpp_l_(z,n,d) mpp_l(z, BOOST_PP_SUB(BOOST_PP_DEC(BOOST_PP_ITERATION()), n), d)
255 BOOST_PP_REPEAT( BOOST_PP_ITERATION(), mpp_l_, _ )
260 formatter_( function_(os mpp_TrailingArgs()), os );
262 ReturnValueTraits<result_type>::format( function_(os mpp_TrailingArgs()), os );
266 template <class FunctionTraits>
267 prefix_ void senf::console::ParsedCommandOverload<FunctionTraits, void, BOOST_PP_ITERATION() >::
268 v_execute(std::ostream & os, ParseCommandInfo const & command)
271 if ( command.arguments().size() > BOOST_PP_ITERATION() )
272 throw SyntaxErrorException("invalid number of arguments");
273 int nDefaults ( BOOST_PP_ITERATION() - command.arguments().size() );
275 typedef typename boost::range_const_reverse_iterator<ParseCommandInfo::ArgumentsRange>::type
277 riterator i (boost::rbegin(command.arguments()));
278 riterator const i_end (boost::rend(command.arguments()));
280 # define mpp_l(z,n,d) \
281 mpp_ArgTypeN(n) mpp_ArgN(n) (arg<n>().defaultValue); \
282 if (! arg(n).hasDefault || nDefaults-- <= 0) { \
284 throw SyntaxErrorException("invalid number of arguments"); \
285 if (arg<n>().parser) \
286 arg<n>().parser( *(i++), mpp_ArgN(n) ); \
288 ArgumentTraits< mpp_ArgTypeN(n) >::parse( *(i++), mpp_ArgN(n) ); \
290 # define mpp_l_(z,n,d) mpp_l(z, BOOST_PP_SUB(BOOST_PP_DEC(BOOST_PP_ITERATION()), n), d)
291 BOOST_PP_REPEAT( BOOST_PP_ITERATION(), mpp_l_, _ )
295 function_(os mpp_TrailingArgs());
298 // ////////////////////////////////////////////////////////////////////////
299 #elif BOOST_PP_ITERATION_FLAGS()==4 // ////////////////////////////////////
300 // ////////////////////////////////////////////////////////////////////////
302 // CreateParsedCommandOverload
304 template <class Traits>
305 struct CreateParsedCommandOverload<Traits, true, BOOST_PP_ITERATION()>
307 typedef typename Traits::traits traits;
309 template <class Function>
310 static typename senf::console::ParsedCommandOverload<traits>::ptr create(Function fn)
312 return senf::console::ParsedCommandOverload<traits>::create(
313 boost::bind(fn mpp_TrailingBindArgs()) );
318 // ////////////////////////////////////////////////////////////////////////
319 #elif BOOST_PP_ITERATION_FLAGS()==5 // ////////////////////////////////////
320 // ////////////////////////////////////////////////////////////////////////
322 // Create keyword arg forwarding functions
324 template <BOOST_PP_ENUM_PARAMS( BOOST_PP_ITERATION(), class A ) >
325 next_type arg ( BOOST_PP_ENUM_BINARY_PARAMS( BOOST_PP_ITERATION(), A, const & a ),
326 typename arg_params::match< BOOST_PP_ENUM_PARAMS( BOOST_PP_ITERATION(), A ) >::type
327 kw = arg_params()) const {
328 return argInfo( kw(BOOST_PP_ENUM_PARAMS( BOOST_PP_ITERATION(), a )) );
331 // ////////////////////////////////////////////////////////////////////////
332 #endif // /////////////////////////////////////////////////////////////////
333 // ////////////////////////////////////////////////////////////////////////
334 // Undefine local Macros
336 #undef mpp_TrailingArgs
339 #undef mpp_TrailingArgTypes
345 // ////////////////////////////////////////////////////////////////////////
346 #endif // /////////////////////////////////////////////////////////////////
347 // ///////////////////////////mpp.e////////////////////////////////////////
353 // comment-column: 40
354 // c-file-style: "senf"
355 // indent-tabs-mode: nil
356 // ispell-local-dictionary: "american"
357 // compile-command: "scons -u test"