| /*============================================================================= | |
| 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 | |