automaton_maker.thxx

//                                                              -*- C++ -*-
// automaton_maker.thxx: this file is part of the Vaucanson project.
//
// Vaucanson, a generic library for finite state machines.
//
// Copyright (C) 2004, 2005, 2006, 2007 The Vaucanson Group.
//
// This program 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.
//
// The complete GNU General Public Licence Notice can be found as the
// `COPYING' file in the root directory.
//
// The Vaucanson Group consists of people listed in the `AUTHORS' file.
//

/*
 * CPP guard should not be inserted here as
 * VCSN_CONTEXT_NAMESPACE could be changed.
 */

#include <vaucanson/algorithms/krat_exp_expand.hh>
#include <vaucanson/algorithms/aut_to_exp.hh>
#include <vaucanson/algorithms/standard_of.hh>
#include <vaucanson/algorithms/thompson.hh>

namespace vcsn
{

  VCSN_CONTEXT_NAMESPACE
  {

    /*-----------------.
    | make_automaton() |
    `-----------------*/

    template <class InputIterator>
    automata_set_t 
    make_automata_set(InputIterator begin,
                      InputIterator end)
    {
      alphabet_t                alpha;
      for (InputIterator e = begin; e != end; ++e)
        alpha.insert(*e);
      semiring_t                semiring;
      monoid_t          freemonoid (alpha);
      series_set_t              series (semiring, freemonoid);
      return automata_set_t (series);
    }

    template <class InputIterator>
    automaton_t 
    make_automaton(InputIterator begin,
                   InputIterator end)
    {
      return automaton_t (make_automata_set(begin, end));
    }

    template <class T>
    automaton_t 
    make_automaton(const T& alphabet)
    {
      return make_automaton(alphabet.begin(), alphabet.end());
    }

    template <class InputIterator>
    gen_automaton_t 
    make_gen_automaton(InputIterator begin,
                       InputIterator end)
    {
      return gen_automaton_t (make_automata_set(begin, end));
    }

    template <class T>
    gen_automaton_t 
    make_gen_automaton(const T& alphabet)
    {
      return make_gen_automaton(alphabet.begin(), alphabet.end());
    }


    /*---------------.
    | make_rat_exp() |
    `---------------*/

    template <class Iterator>
    rat_exp_t 
    make_rat_exp(const Iterator& begin,
                 const Iterator& end,
                 const std::string& exp)
    {
      alphabet_t        alphabet;
      for (Iterator i = begin; i != end; ++i)
        alphabet.insert(*i);
      monoid_t          monoid (alphabet);
      semiring_t        semiring;
      series_set_t      series (semiring, monoid);

      rat_exp_t r (series);
      std::pair<bool, std::string> p = parse(exp, r);

      postcondition_ (not p.first, p.second);

      return r;
    }

    template <class T>
    rat_exp_t 
    make_rat_exp(const T& alphabet, const std::string& exp)
    {
      return make_rat_exp(alphabet.begin(), alphabet.end(), exp);
    }

    /*--------------.
    | standard_of() |
    `--------------*/

    template <class SeriesImpl>
    automaton_t
    do_standard_of(const series_set_t& structure, const SeriesImpl& impl)
    {
      automaton_t r = make_automaton(structure.monoid().alphabet());
      standard_of(r, impl);
      return r;
    }

    template <class SeriesSet, class SeriesImpl>
    automaton_t
    standard_of(const Element<SeriesSet, SeriesImpl>& e)
    {
      return do_standard_of(e.structure(), e.value());
    }

    /*--------------.
    | thompson_of() |
    `--------------*/

    template <class SeriesImpl>
    automaton_t
    do_thompson_of(const series_set_t& structure, const SeriesImpl& impl)
    {
      automaton_t r = make_automaton(structure.monoid().alphabet());
      thompson_of(r, impl);
      return r;
    }

    template <class SeriesSet, class SeriesImpl>
    automaton_t
    thompson_of(const Element<SeriesSet, SeriesImpl>& e)
    {
      return do_thompson_of(e.structure(), e.value());
    }

    /*-------------.
    | aut_to_exp() |
    `-------------*/

    inline
    rat_exp_t
    aut_to_exp(const automaton_t& a)
    {
      return aut_to_exp(generalized(a));
    }

    template <class Chooser>
    rat_exp_t
    aut_to_exp(const automaton_t& a, const Chooser& c)
    {
      return aut_to_exp(generalized(a), c);
    }

  } // End of VCSN_CONTEXT_NAMESPACE.

} // End of namespace vcsn.

---