complex_rule.hpp

Go to the documentation of this file.

//
// (c) Copyright 2015 DESY, Eugen Wintersberger <eugen.wintersberger@desy.de>
//
// This file is part of libpniio.
//
// libpniio is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 2 of the License, or
// (at your option) any later version.
//
// libpniio is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with libpniio.  If not, see <http://www.gnu.org/licenses/>.
// ===========================================================================
//
// Created on: Jan 20, 2015
//     Author: Eugen Wintersberger <eugen.wintersberger@desy.de>
//
//

#pragma once

// the spirit_rules.hpp header file pulls everything in we need 
#include "spirit_rules.hpp"
#include <boost/mpl/at.hpp>
#include <boost/spirit/include/qi.hpp>
#include <boost/spirit/include/phoenix.hpp>


namespace pni{
namespace io{
 
    template<
             typename ITERT,
             typename CTYPE
            >
    struct complex_rule:  boost::spirit::qi::grammar<ITERT,
                                      boost::spirit::qi::locals<
                                      typename pni::core::type_info<CTYPE>::base_type,
                                      typename pni::core::type_info<CTYPE>::base_type,
                                      typename pni::core::type_info<CTYPE>::base_type
                                      >,
                                      CTYPE()>
    {
        typedef CTYPE result_type;
        typedef typename pni::core::type_info<result_type>::base_type base_t;

        typename boost::mpl::at<spirit_rules,base_t>::type base_rule;

        boost::spirit::qi::rule<ITERT,base_t()> number_rule;
        boost::spirit::qi::rule<ITERT,base_t()> sign_rule;
        boost::spirit::qi::rule<ITERT>         i_rule;
        boost::spirit::qi::rule<ITERT,base_t()> imag_rule;
        boost::spirit::qi::rule<ITERT,
                                boost::spirit::qi::locals<base_t,
                                                          base_t,
                                                          base_t>,
                                result_type()> complex_;

        complex_rule() : complex_rule::base_type(complex_)
        {
            using namespace boost::spirit::qi;
            using namespace boost::phoenix;
            using boost::spirit::qi::_1;

            number_rule = base_rule[_val = _1];
            sign_rule   = char_('+')[_val=1] | char_('-')[_val=-1.] ;
            i_rule      = (char_('i') | char_('j') | char_('I'))>!sign_rule;
            imag_rule   = i_rule>number_rule[_val = _1];

            complex_= eps[_a = 0,_b = 1, _c = 0] >> 
                      (
                       (number_rule[_a = _1] || (sign_rule[_b = _1] > imag_rule[_c = _1]))
                       |
                       (sign_rule[_b = _1] || imag_rule[_c = _1])
                      )[_val = construct<result_type>(_a,_b*_c)] ; 
                         
        }
    };

//end of namespace
}
}