324 lines
12 KiB
C++
Executable File
324 lines
12 KiB
C++
Executable File
// Copyright (c) 2001-2008 Hartmut Kaiser
|
|
//
|
|
// 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_KARMA_CHAR_FEB_21_2007_0543PM)
|
|
#define BOOST_SPIRIT_KARMA_CHAR_FEB_21_2007_0543PM
|
|
|
|
#if defined(_MSC_VER) && (_MSC_VER >= 1020)
|
|
#pragma once // MS compatible compilers support #pragma once
|
|
#endif
|
|
|
|
#include <boost/spirit/home/karma/domain.hpp>
|
|
#include <boost/spirit/home/karma/delimit.hpp>
|
|
#include <boost/spirit/home/karma/detail/generate_to.hpp>
|
|
#include <boost/spirit/home/support/modifier.hpp>
|
|
#include <boost/spirit/home/support/char_class.hpp>
|
|
#include <boost/spirit/home/support/detail/to_narrow.hpp>
|
|
#include <boost/spirit/home/support/iso8859_1.hpp>
|
|
#include <boost/spirit/home/support/ascii.hpp>
|
|
#include <boost/fusion/include/at.hpp>
|
|
#include <boost/fusion/include/value_at.hpp>
|
|
#include <boost/fusion/include/vector.hpp>
|
|
#include <boost/fusion/include/cons.hpp>
|
|
#include <boost/utility/enable_if.hpp>
|
|
|
|
namespace boost { namespace spirit { namespace karma
|
|
{
|
|
///////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// any_char
|
|
// generates a single character from the associated parameter
|
|
//
|
|
// Note: this generator has to have an associated parameter
|
|
//
|
|
///////////////////////////////////////////////////////////////////////////
|
|
template <typename Char>
|
|
struct any_char
|
|
{
|
|
template <typename Component, typename Context, typename Unused>
|
|
struct attribute
|
|
{
|
|
typedef Char type;
|
|
};
|
|
|
|
// any_char has a parameter attached
|
|
template <typename Component, typename OutputIterator,
|
|
typename Context, typename Delimiter, typename Parameter>
|
|
static bool
|
|
generate(Component const&, OutputIterator& sink,
|
|
Context& /*ctx*/, Delimiter const& d, Parameter const& param)
|
|
{
|
|
detail::generate_to(sink, param);
|
|
karma::delimit(sink, d); // always do post-delimiting
|
|
return true;
|
|
}
|
|
|
|
// this any_char has no parameter attached, it needs to have been
|
|
// initialized from a direct literal
|
|
template <typename Component, typename OutputIterator,
|
|
typename Context, typename Delimiter>
|
|
static bool
|
|
generate(Component const&, OutputIterator&, Context&, Delimiter const&,
|
|
unused_type)
|
|
{
|
|
BOOST_MPL_ASSERT_MSG(false, char__not_usable_without_parameter, ());
|
|
return false;
|
|
}
|
|
|
|
template <typename Component, typename Context>
|
|
static std::string what(Component const& component, Context const& ctx)
|
|
{
|
|
return "any-char";
|
|
}
|
|
};
|
|
|
|
///////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// literal_char
|
|
// generates a single character given by a literal it was initialized
|
|
// from
|
|
//
|
|
///////////////////////////////////////////////////////////////////////////
|
|
template <typename Char>
|
|
struct literal_char
|
|
{
|
|
template <typename Component, typename Context, typename Unused>
|
|
struct attribute
|
|
{
|
|
typedef unused_type type;
|
|
};
|
|
|
|
// any_char has a parameter attached
|
|
template <typename Component, typename OutputIterator,
|
|
typename Context, typename Delimiter, typename Parameter>
|
|
static bool
|
|
generate(Component const& component, OutputIterator& sink,
|
|
Context& /*ctx*/, Delimiter const& d, Parameter const& /*param*/)
|
|
{
|
|
detail::generate_to(sink, fusion::at_c<0>(component.elements));
|
|
karma::delimit(sink, d); // always do post-delimiting
|
|
return true;
|
|
}
|
|
|
|
template <typename Component, typename Context>
|
|
static std::string what(Component const& component, Context const& ctx)
|
|
{
|
|
return std::string("'")
|
|
+ spirit::detail::to_narrow_char(
|
|
fusion::at_c<0>(component.elements))
|
|
+ '\'';
|
|
}
|
|
};
|
|
|
|
///////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// lazy_char
|
|
// generates a single character given by a functor it was initialized
|
|
// from
|
|
//
|
|
///////////////////////////////////////////////////////////////////////////
|
|
struct lazy_char
|
|
{
|
|
template <typename Component, typename Context, typename Unused>
|
|
struct attribute
|
|
{
|
|
typedef unused_type type;
|
|
};
|
|
|
|
// any_char has a parameter attached
|
|
template <typename Component, typename OutputIterator,
|
|
typename Context, typename Delimiter, typename Parameter>
|
|
static bool
|
|
generate(Component const& component, OutputIterator& sink,
|
|
Context& ctx, Delimiter const& d, Parameter const& /*param*/)
|
|
{
|
|
detail::generate_to(sink,
|
|
fusion::at_c<0>(component.elements)(unused, ctx));
|
|
karma::delimit(sink, d); // always do post-delimiting
|
|
return true;
|
|
}
|
|
|
|
template <typename Component, typename Context>
|
|
static std::string what(Component const& component, Context const& ctx)
|
|
{
|
|
return "char";
|
|
}
|
|
};
|
|
|
|
///////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// lower and upper case variants of any_char with an associated parameter
|
|
// note: this generator has to have a parameter associated
|
|
//
|
|
///////////////////////////////////////////////////////////////////////////
|
|
template <typename Char, typename Tag>
|
|
struct case_any_char
|
|
{
|
|
template <typename Component, typename Context, typename Unused>
|
|
struct attribute
|
|
{
|
|
typedef Char type;
|
|
};
|
|
|
|
typedef typename Tag::char_set char_set;
|
|
typedef typename Tag::char_class char_class_;
|
|
|
|
// case_any_char has a parameter attached
|
|
template <typename Component, typename OutputIterator,
|
|
typename Context, typename Delimiter, typename Parameter>
|
|
static bool
|
|
generate(Component const& /*component*/, OutputIterator& sink,
|
|
Context& /*ctx*/, Delimiter const& d, Parameter const& param)
|
|
{
|
|
using spirit::char_class::convert;
|
|
Char p = convert<char_set>::to(char_class_(), param);
|
|
detail::generate_to(sink, p);
|
|
karma::delimit(sink, d); // always do post-delimiting
|
|
return true;
|
|
}
|
|
|
|
// this case_any_char has no parameter attached, it needs to have been
|
|
// initialized from a direct literal
|
|
template <typename Component, typename OutputIterator,
|
|
typename Context, typename Delimiter>
|
|
static bool
|
|
generate(Component const&, OutputIterator&, Context&, Delimiter const&,
|
|
unused_type)
|
|
{
|
|
BOOST_MPL_ASSERT_MSG(false, char__not_usable_without_parameter, ());
|
|
return false;
|
|
}
|
|
|
|
template <typename Component, typename Context>
|
|
static std::string what(Component const& component, Context const& ctx)
|
|
{
|
|
std::string result;
|
|
result = std::string("any-") +
|
|
spirit::char_class::what<char_set>::is(char_class_()) +
|
|
"case-char";
|
|
return result;
|
|
}
|
|
};
|
|
|
|
}}} // namespace boost::spirit::karma
|
|
|
|
namespace boost { namespace spirit { namespace traits
|
|
{
|
|
///////////////////////////////////////////////////////////////////////////
|
|
// lower_case and upper_case any_char and literal_char generators
|
|
///////////////////////////////////////////////////////////////////////////
|
|
template <typename Domain, typename Elements, typename Modifier,
|
|
typename Char>
|
|
struct make_modified_component<
|
|
Domain, karma::literal_char<Char>, Elements, Modifier,
|
|
typename enable_if<
|
|
is_member_of_modifier<Modifier, spirit::char_class::lower_case_base_tag>
|
|
>::type
|
|
>
|
|
{
|
|
typedef typename
|
|
fusion::result_of::value_at_c<Elements, 0>::type
|
|
char_type;
|
|
typedef fusion::vector<char_type> vector_type;
|
|
|
|
typedef component<
|
|
karma::domain, karma::literal_char<Char>, vector_type>
|
|
type;
|
|
|
|
static type
|
|
call(Elements const& elements)
|
|
{
|
|
typedef typename Modifier::char_set char_set;
|
|
|
|
char_type ch = fusion::at_c<0>(elements);
|
|
vector_type v(char_set::tolower(ch));
|
|
return type(v);
|
|
}
|
|
};
|
|
|
|
template <typename Domain, typename Elements, typename Modifier,
|
|
typename Char>
|
|
struct make_modified_component<
|
|
Domain, karma::literal_char<Char>, Elements, Modifier,
|
|
typename enable_if<
|
|
is_member_of_modifier<Modifier, spirit::char_class::upper_case_base_tag>
|
|
>::type
|
|
>
|
|
{
|
|
typedef typename
|
|
fusion::result_of::value_at_c<Elements, 0>::type
|
|
char_type;
|
|
typedef fusion::vector<char_type> vector_type;
|
|
|
|
typedef
|
|
component<karma::domain, karma::literal_char<Char>, vector_type>
|
|
type;
|
|
|
|
static type
|
|
call(Elements const& elements)
|
|
{
|
|
typedef typename Modifier::char_set char_set;
|
|
|
|
char_type ch = fusion::at_c<0>(elements);
|
|
vector_type v(char_set::toupper(ch));
|
|
return type(v);
|
|
}
|
|
};
|
|
|
|
///////////////////////////////////////////////////////////////////////////
|
|
// lower_case and upper case_any_char conversions
|
|
///////////////////////////////////////////////////////////////////////////
|
|
template <typename Domain, typename Elements, typename Modifier,
|
|
typename Char>
|
|
struct make_modified_component<
|
|
Domain, karma::any_char<Char>, Elements, Modifier,
|
|
typename enable_if<
|
|
is_member_of_modifier<Modifier, spirit::char_class::lower_case_base_tag>
|
|
>::type
|
|
>
|
|
{
|
|
typedef typename Modifier::char_set char_set;
|
|
typedef spirit::char_class::tag::lower char_class_;
|
|
typedef spirit::char_class::key<char_set, char_class_> key_tag;
|
|
|
|
typedef component<
|
|
karma::domain, karma::case_any_char<Char, key_tag>, fusion::nil>
|
|
type;
|
|
|
|
static type
|
|
call(Elements const&)
|
|
{
|
|
return type(fusion::nil());
|
|
}
|
|
};
|
|
|
|
template <typename Domain, typename Elements, typename Modifier,
|
|
typename Char>
|
|
struct make_modified_component<
|
|
Domain, karma::any_char<Char>, Elements, Modifier,
|
|
typename enable_if<
|
|
is_member_of_modifier<Modifier, spirit::char_class::upper_case_base_tag>
|
|
>::type
|
|
>
|
|
{
|
|
typedef typename Modifier::char_set char_set;
|
|
typedef spirit::char_class::tag::upper char_class_;
|
|
typedef spirit::char_class::key<char_set, char_class_> key_tag;
|
|
|
|
typedef component<
|
|
karma::domain, karma::case_any_char<Char, key_tag>, fusion::nil>
|
|
type;
|
|
|
|
static type
|
|
call(Elements const&)
|
|
{
|
|
return type(fusion::nil());
|
|
}
|
|
};
|
|
|
|
}}} // namespace boost::spirit::traits
|
|
|
|
#endif // !defined(BOOST_SPIRIT_KARMA_CHAR_FEB_21_2007_0543PM)
|