tags.hh

Go to the documentation of this file.

#pragma once

#include <vcsn/algos/is-deterministic.hh>
#include <vcsn/algos/standard.hh>
#include <vcsn/core/mutable-automaton.hh>
#include <vcsn/misc/static-if.hh>
#include <vcsn/misc/symbol.hh>

namespace vcsn
{
  /*------------------.
  | tags definitions  |
  `------------------*/

  struct auto_tag {};

  struct deterministic_tag {};

  struct general_tag
  {
    static symbol sname()
    {
      static auto res = symbol{"general_tag"};
      return res;
    }
  };

  struct standard_tag
  {
    static symbol sname()
    {
      static auto res = symbol{"standard_tag"};
      return res;
    }
  };

  namespace detail
  {
    template <Automaton... Aut, typename Operation>
    auto
    dispatch_tags(std::string algo, Operation op, Aut&&... auts)
    {
      // Whether all the labelsets are free.  Requirement to call
      // determinize/is_deterministic.
      constexpr bool are_free
        = all_<labelset_t_of<decltype(auts)>::is_free()...>();

      if (algo == "auto")
        {
          // Applies to both GCC and Clang.  Cannot be done inside a
          // statement.
#if defined __GNUC__
# pragma GCC diagnostic push
# pragma GCC diagnostic ignored "-Wunused-parameter"
#endif
          if (all(is_standard(std::forward<Aut>(auts))...))
            algo = "standard";
          else if (static_if<are_free>
                   ([](auto&&... as){ return all(is_deterministic(as)...); },
#if (defined __clang__ && __clang_major__ == 3 && __clang_minor__ < 6   \
     || defined __GNUC__ && !defined __clang__ && __GNUC__ < 5)
                     // Clang 3.5 and GCC 4.9 require that we name the argument.
                     [](auto&&... as){ return false; }
#else
                     [](auto&&...){ return false; }
#endif
                     )
                   (std::forward<Aut>(auts)...))
            algo = "deterministic";
          else
            algo = "general";
#if defined __GNUC__
# pragma GCC diagnostic pop
#endif
        }

      if (algo == "general")
        return op(general_tag{});
      else if (algo == "standard")
        return op(standard_tag{});
      else
        {
          using res_t = decltype(op(standard_tag{}));
          res_t res = nullptr;
          if (algo == "deterministic")
            static_if<are_free>([&res](auto&& op)
                                { res = op(deterministic_tag{}); })(op);
          require(res, "invalid algorithm: ", str_escape(algo));
          return res;
        }
    }

    template <Automaton... Auts>
    auto
    make_join_automaton(deterministic_tag, Auts&&... auts)
      // SFINAE
      -> decltype(join_automata(std::forward<Auts>(auts)...))
    {
      return join_automata(std::forward<Auts>(auts)...);
    }

    template <Automaton... Auts>
    auto
    make_join_automaton(general_tag, Auts&&... auts)
      // SFINAE
      -> decltype(nullable_join_automata(std::forward<Auts>(auts)...))
    {
      return nullable_join_automata(std::forward<Auts>(auts)...);
    }

    template <Automaton... Auts>
    auto
    make_join_automaton(standard_tag, Auts&&... auts)
      // SFINAE
      -> decltype(join_automata(std::forward<Auts>(auts)...))
    {
      return join_automata(std::forward<Auts>(auts)...);
    }
  }

  struct boolean_tag
  {
    static symbol sname()
    {
      static auto res = symbol{"boolean_tag"};
      return res;
    }
  };

  struct dijkstra_tag {};

  struct weighted_tag
  {
    static symbol sname()
    {
      static auto res = symbol{"weighted_tag"};
      return res;
    }
  };
}