/*=============================================================================
|
Copyright (c) 2001-2003 Joel de Guzman
|
http://spirit.sourceforge.net/
|
|
Use, modification and distribution is subject to 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_SPIRIT_EXCEPTIONS_IPP
|
#define BOOST_SPIRIT_EXCEPTIONS_IPP
|
|
namespace boost { namespace spirit {
|
|
BOOST_SPIRIT_CLASSIC_NAMESPACE_BEGIN
|
|
namespace impl {
|
|
#ifdef __BORLANDC__
|
template <typename ParserT, typename ScannerT>
|
typename parser_result<ParserT, ScannerT>::type
|
fallback_parser_helper(ParserT const& subject, ScannerT const& scan);
|
#endif
|
|
template <typename RT, typename ParserT, typename ScannerT>
|
RT fallback_parser_parse(ParserT const& p, ScannerT const& scan)
|
{
|
typedef typename ScannerT::iterator_t iterator_t;
|
typedef typename RT::attr_t attr_t;
|
typedef error_status<attr_t> error_status_t;
|
typedef typename ParserT::error_descr_t error_descr_t;
|
|
iterator_t save = scan.first;
|
error_status_t hr(error_status_t::retry);
|
|
while (hr.result == error_status_t::retry)
|
{
|
try
|
{
|
#ifndef __BORLANDC__
|
return p.subject().parse(scan);
|
#else
|
return impl::fallback_parser_helper(p, scan);
|
#endif
|
}
|
|
catch (parser_error<error_descr_t, iterator_t>& error)
|
{
|
scan.first = save;
|
hr = p.handler(scan, error);
|
switch (hr.result)
|
{
|
case error_status_t::fail:
|
return scan.no_match();
|
case error_status_t::accept:
|
return scan.create_match
|
(std::size_t(hr.length), hr.value, save, scan.first);
|
case error_status_t::rethrow:
|
boost::throw_exception(error);
|
default:
|
continue;
|
}
|
}
|
}
|
return scan.no_match();
|
}
|
|
///////////////////////////////////////////////////////////////////////////
|
//
|
// Borland does not like calling the subject directly in the try block.
|
// Removing the #ifdef __BORLANDC__ code makes Borland complain that
|
// some variables and types cannot be found in the catch block. Weird!
|
//
|
///////////////////////////////////////////////////////////////////////////
|
#ifdef __BORLANDC__
|
|
template <typename ParserT, typename ScannerT>
|
typename parser_result<ParserT, ScannerT>::type
|
fallback_parser_helper(ParserT const& p, ScannerT const& scan)
|
{
|
return p.subject().parse(scan);
|
}
|
|
#endif
|
|
}
|
|
BOOST_SPIRIT_CLASSIC_NAMESPACE_END
|
|
}} // namespace boost::spirit::impl
|
|
///////////////////////////////////////////////////////////////////////////////
|
#endif
|
