You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and dots ('.'), can be up to 35 characters long. Letters must be lowercase.
145 lines
4.6 KiB
145 lines
4.6 KiB
/*============================================================================= |
|
Copyright (c) 2001-2011 Joel de Guzman |
|
|
|
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) |
|
==============================================================================*/ |
|
#if !defined(BOOST_SPIRIT_DEBUG_HANDLER_DECEMBER_05_2008_0734PM) |
|
#define BOOST_SPIRIT_DEBUG_HANDLER_DECEMBER_05_2008_0734PM |
|
|
|
#if defined(_MSC_VER) |
|
#pragma once |
|
#endif |
|
|
|
#include <boost/spirit/home/support/unused.hpp> |
|
#include <boost/spirit/home/qi/nonterminal/rule.hpp> |
|
#include <boost/spirit/home/qi/nonterminal/debug_handler_state.hpp> |
|
#include <boost/spirit/home/qi/operator/expect.hpp> |
|
#include <boost/function.hpp> |
|
#include <boost/fusion/include/at.hpp> |
|
#include <boost/fusion/include/vector.hpp> |
|
#include <boost/fusion/include/out.hpp> |
|
#include <iostream> |
|
|
|
namespace boost { namespace spirit { namespace qi |
|
{ |
|
template < |
|
typename Iterator, typename Context |
|
, typename Skipper, typename F> |
|
struct debug_handler |
|
{ |
|
typedef function< |
|
bool(Iterator& first, Iterator const& last |
|
, Context& context |
|
, Skipper const& skipper |
|
)> |
|
function_type; |
|
|
|
debug_handler( |
|
function_type subject |
|
, F f |
|
, std::string const& rule_name) |
|
: subject(subject) |
|
, f(f) |
|
, rule_name(rule_name) |
|
{ |
|
} |
|
|
|
bool operator()( |
|
Iterator& first, Iterator const& last |
|
, Context& context, Skipper const& skipper) const |
|
{ |
|
f(first, last, context, pre_parse, rule_name); |
|
try // subject might throw an exception |
|
{ |
|
if (subject(first, last, context, skipper)) |
|
{ |
|
f(first, last, context, successful_parse, rule_name); |
|
return true; |
|
} |
|
f(first, last, context, failed_parse, rule_name); |
|
} |
|
catch (expectation_failure<Iterator> const& e) |
|
{ |
|
f(first, last, context, failed_parse, rule_name); |
|
boost::throw_exception(e); |
|
} |
|
return false; |
|
} |
|
|
|
function_type subject; |
|
F f; |
|
std::string rule_name; |
|
}; |
|
|
|
template <typename Iterator |
|
, typename T1, typename T2, typename T3, typename T4, typename F> |
|
void debug(rule<Iterator, T1, T2, T3, T4>& r, F f) |
|
{ |
|
typedef rule<Iterator, T1, T2, T3, T4> rule_type; |
|
|
|
typedef |
|
debug_handler< |
|
Iterator |
|
, typename rule_type::context_type |
|
, typename rule_type::skipper_type |
|
, F> |
|
debug_handler; |
|
r.f = debug_handler(r.f, f, r.name()); |
|
} |
|
|
|
struct simple_trace; |
|
|
|
namespace detail |
|
{ |
|
// This class provides an extra level of indirection through a |
|
// template to produce the simple_trace type. This way, the use |
|
// of simple_trace below is hidden behind a dependent type, so |
|
// that compilers eagerly type-checking template definitions |
|
// won't complain that simple_trace is incomplete. |
|
template<typename T> |
|
struct get_simple_trace |
|
{ |
|
typedef simple_trace type; |
|
}; |
|
} |
|
|
|
template <typename Iterator |
|
, typename T1, typename T2, typename T3, typename T4> |
|
void debug(rule<Iterator, T1, T2, T3, T4>& r) |
|
{ |
|
typedef rule<Iterator, T1, T2, T3, T4> rule_type; |
|
|
|
typedef |
|
debug_handler< |
|
Iterator |
|
, typename rule_type::context_type |
|
, typename rule_type::skipper_type |
|
, simple_trace> |
|
debug_handler; |
|
|
|
typedef typename qi::detail::get_simple_trace<Iterator>::type trace; |
|
r.f = debug_handler(r.f, trace(), r.name()); |
|
} |
|
|
|
}}} |
|
|
|
/////////////////////////////////////////////////////////////////////////////// |
|
// Utility macro for easy enabling of rule and grammar debugging |
|
#if !defined(BOOST_SPIRIT_DEBUG_NODE) |
|
#if defined(BOOST_SPIRIT_DEBUG) || defined(BOOST_SPIRIT_QI_DEBUG) |
|
#define BOOST_SPIRIT_DEBUG_NODE(r) r.name(#r); debug(r) |
|
#else |
|
#define BOOST_SPIRIT_DEBUG_NODE(r) r.name(#r) |
|
#endif |
|
#endif |
|
|
|
#define BOOST_SPIRIT_DEBUG_NODE_A(r, _, name) \ |
|
BOOST_SPIRIT_DEBUG_NODE(name); \ |
|
/***/ |
|
|
|
#define BOOST_SPIRIT_DEBUG_NODES(seq) \ |
|
BOOST_PP_SEQ_FOR_EACH(BOOST_SPIRIT_DEBUG_NODE_A, _, seq) \ |
|
/***/ |
|
|
|
#endif
|
|
|