//  Copyright (c) 2001-2010 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)

#include <boost/config/warning_disable.hpp>
#include <boost/detail/lightweight_test.hpp>
#include <boost/spirit/include/karma_auxiliary.hpp>
#include <boost/spirit/include/karma_char.hpp>
#include <boost/spirit/include/karma_string.hpp>
#include <boost/spirit/include/karma_generate.hpp>

#include <boost/spirit/repository/include/karma_confix.hpp>

#include <iostream>
#include "test.hpp"

namespace html
{
    namespace spirit = boost::spirit;
    namespace repo = boost::spirit::repository;

    ///////////////////////////////////////////////////////////////////////////////
    //  define a HTML tag helper generator
    namespace traits
    {
        template <typename Prefix, typename Suffix = Prefix>
        struct confix_spec 
          : spirit::result_of::terminal<repo::tag::confix(Prefix, Suffix)>
        {};
    }

    template <typename Prefix, typename Suffix>
    inline typename traits::confix_spec<Prefix, Suffix>::type
    confix_spec(Prefix const& prefix, Suffix const& suffix)
    {
        return repo::confix(prefix, suffix);
    }

    ///////////////////////////////////////////////////////////////////////////
    template <typename Char, typename Traits, typename Allocator>
    inline typename traits::confix_spec<
        std::basic_string<Char, Traits, Allocator> 
    >::type
    tag (std::basic_string<Char, Traits, Allocator> const& tagname)
    {
        typedef std::basic_string<Char, Traits, Allocator> string_type;
        return confix_spec(string_type("<") + tagname + ">"
          , string_type("</") + tagname + ">");
    }

    inline traits::confix_spec<std::string>::type
    tag (char const* tagname)
    {
        return tag(std::string(tagname));
    }

    ///////////////////////////////////////////////////////////////////////////
    typedef traits::confix_spec<std::string>::type html_tag_type;

    html_tag_type const ol = tag("ol");
}

///////////////////////////////////////////////////////////////////////////////
int main()
{
    using namespace spirit_test;
    using namespace boost::spirit;
    using namespace boost::spirit::repository;

    {
        using namespace boost::spirit::ascii;

        BOOST_TEST((test("<tag>a</tag>", 
            confix("<tag>", "</tag>")[char_('a')])));
        BOOST_TEST((test("<tag>a</tag>", 
            confix("<tag>", "</tag>")[char_], 'a')));
        BOOST_TEST((test("// some C++ comment\n", 
            confix(string("//"), eol)[" some C++ comment"])));
        BOOST_TEST((test("// some C++ comment\n", 
            confix(string("//"), eol)[string], " some C++ comment")));

        BOOST_TEST((test("<ol>some text</ol>", html::ol["some text"])));
        BOOST_TEST((test("<ol>some text</ol>", html::ol[string], "some text")));
    }

    {
        using namespace boost::spirit::standard_wide;

        BOOST_TEST((test(L"<tag>a</tag>", 
            confix(L"<tag>", L"</tag>")[char_(L'a')])));
        BOOST_TEST((test(L"// some C++ comment\n", 
            confix(string(L"//"), eol)[L" some C++ comment"])));

        BOOST_TEST((test(L"<ol>some text</ol>", html::ol[L"some text"])));
    }

    {
        using namespace boost::spirit::ascii;

        BOOST_TEST((test_delimited("<tag> a </tag> ", 
            confix("<tag>", "</tag>")[char_('a')], space)));
        BOOST_TEST((test_delimited("// some C++ comment \n ", 
            confix(string("//"), eol)["some C++ comment"], space)));

        BOOST_TEST((test_delimited("<ol> some text </ol> ", 
            html::ol["some text"], space)));
    }

    {
        using namespace boost::spirit::standard_wide;

        BOOST_TEST((test_delimited(L"<tag> a </tag> ", 
            confix(L"<tag>", L"</tag>")[char_(L'a')], space)));
        BOOST_TEST((test_delimited(L"// some C++ comment \n ", 
            confix(string(L"//"), eol)[L"some C++ comment"], space)));

        BOOST_TEST((test_delimited(L"<ol> some text </ol> ", 
            html::ol[L"some text"], space)));
    }

    return boost::report_errors();
}
