diff options
Diffstat (limited to 'libcutl/cutl/re/re.cxx')
| -rw-r--r-- | libcutl/cutl/re/re.cxx | 223 |
1 files changed, 223 insertions, 0 deletions
diff --git a/libcutl/cutl/re/re.cxx b/libcutl/cutl/re/re.cxx new file mode 100644 index 0000000..3b132ab --- /dev/null +++ b/libcutl/cutl/re/re.cxx @@ -0,0 +1,223 @@ +// file : cutl/re/re.cxx +// copyright : Copyright (c) 2009-2013 Code Synthesis Tools CC +// license : MIT; see accompanying LICENSE file + +#include <cutl/re.hxx> + +#include <cutl/details/config.hxx> // LIBCUTL_EXTERNAL_BOOST + +#ifndef LIBCUTL_EXTERNAL_BOOST +# include <cutl/details/boost/tr1/regex.hpp> +#else +# include <boost/tr1/regex.hpp> +#endif + +using namespace std; + +namespace cutl +{ + namespace re + { + // + // format_base + // + + format_base:: + ~format_base () throw () + { + } + + char const* format_base:: + what () const throw () + { + return description_.c_str (); + } + + // + // basic_regex + // + template <typename C> + struct basic_regex<C>::impl + { + typedef basic_string<C> string_type; + typedef tr1::basic_regex<C> regex_type; + typedef typename regex_type::flag_type flag_type; + + impl () {} + impl (regex_type const& r): r (r) {} + impl (string_type const& s, bool icase) + { + flag_type f (tr1::regex_constants::ECMAScript); + + if (icase) + f |= tr1::regex_constants::icase; + + r.assign (s, f); + } + + regex_type r; + }; + + template <> + basic_regex<char>:: + ~basic_regex () + { + delete impl_; + } + + template <> + basic_regex<wchar_t>:: + ~basic_regex () + { + delete impl_; + } + + template <> + basic_regex<char>:: + basic_regex (basic_regex const& r) + : str_ (r.str_), impl_ (new impl (r.impl_->r)) + { + } + + template <> + basic_regex<wchar_t>:: + basic_regex (basic_regex const& r) + : str_ (r.str_), impl_ (new impl (r.impl_->r)) + { + } + + template <> + basic_regex<char>& basic_regex<char>:: + operator= (basic_regex const& r) + { + string_type tmp (r.str_); + impl_->r = r.impl_->r; + str_.swap (tmp); + return *this; + } + + template <> + basic_regex<wchar_t>& basic_regex<wchar_t>:: + operator= (basic_regex const& r) + { + string_type tmp (r.str_); + impl_->r = r.impl_->r; + str_.swap (tmp); + return *this; + } + + template <> + void basic_regex<char>:: + init (string_type const* s, bool icase) + { + string_type tmp (s == 0 ? string_type () : *s); + + try + { + if (impl_ == 0) + impl_ = s == 0 ? new impl : new impl (*s, icase); + else + { + impl::flag_type f (tr1::regex_constants::ECMAScript); + + if (icase) + f |= tr1::regex_constants::icase; + + impl_->r.assign (*s, f); + } + } + catch (tr1::regex_error const& e) + { + throw basic_format<char> (s == 0 ? "" : *s, e.what ()); + } + + str_.swap (tmp); + } + + template <> + void basic_regex<wchar_t>:: + init (string_type const* s, bool icase) + { + string_type tmp (s == 0 ? string_type () : *s); + + try + { + if (impl_ == 0) + impl_ = s == 0 ? new impl : new impl (*s, icase); + else + { + impl::flag_type f (tr1::regex_constants::ECMAScript); + + if (icase) + f |= tr1::regex_constants::icase; + + impl_->r.assign (*s, f); + } + } + catch (tr1::regex_error const& e) + { + throw basic_format<wchar_t> (s == 0 ? L"" : *s, e.what ()); + } + + str_.swap (tmp); + } + + template <> + bool basic_regex<char>:: + match (string_type const& s) const + { + return tr1::regex_match (s, impl_->r); + } + + template <> + bool basic_regex<wchar_t>:: + match (string_type const& s) const + { + return tr1::regex_match (s, impl_->r); + } + + template <> + bool basic_regex<char>:: + search (string_type const& s) const + { + return tr1::regex_search (s, impl_->r); + } + + template <> + bool basic_regex<wchar_t>:: + search (string_type const& s) const + { + return tr1::regex_search (s, impl_->r); + } + + template <> + string basic_regex<char>:: + replace (string_type const& s, + string_type const& sub, + bool first_only) const + { + tr1::regex_constants::match_flag_type f ( + tr1::regex_constants::format_default); + + if (first_only) + f |= tr1::regex_constants::format_first_only; + + return tr1::regex_replace (s, impl_->r, sub, f); + } + + template <> + wstring basic_regex<wchar_t>:: + replace (string_type const& s, + string_type const& sub, + bool first_only) const + { + tr1::regex_constants::match_flag_type f ( + tr1::regex_constants::format_default); + + if (first_only) + f |= tr1::regex_constants::format_first_only; + + return tr1::regex_replace (s, impl_->r, sub, f); + } + } +} |