URIGrammar.cpp

Go to the documentation of this file.

/*
---------------------------------------------------------------------------

    This file is part of uHAL.

    uHAL is a hardware access library and programming framework
    originally developed for upgrades of the Level-1 trigger of the CMS
    experiment at CERN.

    uHAL 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 3 of the License, or
    (at your option) any later version.

    uHAL 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 uHAL.  If not, see <http://www.gnu.org/licenses/>.


      Andrew Rose, Imperial College, London
      email: awr01 <AT> imperial.ac.uk

      Marc Magrans de Abril, CERN
      email: marc.magrans.de.abril <AT> cern.ch

---------------------------------------------------------------------------
*/


#include "uhal/grammars/URIGrammar.hpp"


#include <boost/spirit/include/qi.hpp>


namespace grammars
{
  URIGrammar::URIGrammar() :
    URIGrammar::base_type ( start )
  {
    using namespace boost::spirit;
    start = protocol > hostname     > - ( port )   > - ( path ) > -( extension ) > - ( data_pairs_vector ); //EthernetURI | PCIeURI;

    // EthernetURI = protocol > hostname     > port         > - ( path ) > -( extension ) > - ( data_pairs_vector );
    // PCIeURI     = protocol > empty_string > empty_string >  path      > empty_string   > - ( data_pairs_vector );

    protocol = + ( qi::char_ - qi::lit ( ":" ) ) > qi::lit ( "://" );
    hostname = + ( qi::char_ - qi::lit ( ":" ) - qi::lit ( "?" ) ) ;
    port     = qi::lit ( ":" ) > + ( qi::char_ - ascii::punct ) ;
    path                = qi::lit ( "/" ) > + ( qi::char_ - qi::lit ( "." ) - qi::lit ( "?" ) );
    extension           = qi::lit ( "." ) > + ( qi::char_ - qi::lit ( "?" ) ) ;
    data_pairs_vector   = qi::lit ( "?" ) > *data_pairs;
    data_pairs = data_pairs_1 > data_pairs_2;
    data_pairs_1 = + ( qi::char_ - qi::lit ( "=" ) ) > qi::lit ( "=" );
    data_pairs_2 = * ( qi::char_ - qi::lit ( "&" ) ) >> - ( qi::lit ( "&" ) );

    empty_string = boost::spirit::qi::as_string[ boost::spirit::eps ];
  }

}