standard.hxx

// standard.hxx: this file is part of the Vaucanson project.
//
// Vaucanson, a generic library for finite state machines.
//
// Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 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.
//
#ifndef VCSN_ALGORITHMS_STANDARD_HXX
# define VCSN_ALGORITHMS_STANDARD_HXX

# include <vaucanson/algorithms/standard.hh>
# include <vaucanson/algorithms/internal/has_neighbour.hh>

# include <vaucanson/algorithms/sum.hh>
# include <vaucanson/algorithms/accessible.hh>
# include <vaucanson/automata/concept/automata_base.hh>
# include <vaucanson/misc/usual_macros.hh>

# include <set>

namespace vcsn {

  /*---------.
  | standard |
  `---------*/
  template <class A_, typename Auto_>
  void
  do_in_standardize(const AutomataBase<A_>&, Auto_& a)
  {
    TIMER_SCOPED("standardize");
    AUTOMATON_TYPES(Auto_);

    hstate_t i = a.add_state();
    std::list<htransition_t> transition_oi;
    series_set_elt_t final_series =
      algebra::zero_as<series_set_elt_value_t>::of(a.series());

    for_all_const_initial_states(oi, a)
    {
      series_set_elt_t s = a.get_initial(*oi);

      // Handle each transitions.
      transition_oi.clear();
      a.deltac(transition_oi, *oi, delta_kind::transitions());
      for_all_const_(std::list<htransition_t>, oil, transition_oi)
      {
        series_set_elt_t t = s * a.series_of(*oil);
        a.add_series_transition(i, a.dst_of(*oil), t);
      }
      // Accumulate final transition series of each initial state.
      final_series += s * a.get_final(*oi);
    }

    // Suppress initial states which are not accessible.  We don't use
    // @c accessible_here for efficienty issues, and because the
    // definition of a standard automaton does not imply the
    // admissible property.
    for (initial_iterator oi = a.initial().begin(), next = oi;
         oi != a.initial().end();
         oi = next)
    {
      ++next;
      if (!has_predecessors(a, *oi))
        a.del_state(*oi);
    }
    a.clear_initial();
    a.set_initial(i);
    a.set_final(i, final_series);
  }

  template<typename A, typename T>
  void
  standardize(Element<A, T>& a)
  {
    do_in_standardize(a.structure(), a);
  }

  /*-----------------.
  | standard_union.  |
  `-----------------*/

  template <typename A, typename lhs_t, typename rhs_t>
  void
  do_union_of_standard_here(const AutomataBase<A>&,
                            lhs_t& lhs,
                            const rhs_t& rhs)
  {
    precondition(is_standard(lhs));
    precondition(is_standard(rhs));

    TIMER_SCOPED("union_of_standard");
    typedef std::list<typename lhs_t::htransition_t> edelta_ret_t;

    // The resulting initial state is that of lhs.
    typename lhs_t::hstate_t new_i = *lhs.initial().begin();
    sum_here(lhs, rhs);

    // Adjust new_i, and handle old_i, the state that was the initial
    // state of rhs.
    typename lhs_t::initial_support_t initial = lhs.initial();

    // There are two initial states, old_i is the other.
    assertion (initial.size() == 2);
    typename lhs_t::initial_iterator i = initial.begin();
    typename lhs_t::hstate_t old_i = *i != new_i ? *i : *++i;

    lhs.set_final(new_i,
                  lhs.get_final(new_i) + lhs.get_final(old_i));

    // Add output transitions of old_i to new_i.
    edelta_ret_t dst;
    lhs.deltac(dst, old_i, delta_kind::transitions());
    for_all_const_(edelta_ret_t, d, dst)
    {
      lhs.add_transition(new_i,
                         lhs.dst_of(*d),
                         lhs.label_of(*d));
      lhs.del_transition(*d);
    }
    lhs.del_state(old_i);
  }

  template<typename A, typename T, typename U>
  void
  union_of_standard_here(Element<A, T>& lhs, const Element<A, U>& rhs)
  {
    // assertion(lhs.structure() == rhs.structure())
    do_union_of_standard_here(lhs.structure(), lhs, rhs);
  }

  template<typename A, typename T, typename U>
  Element<A, T>
  union_of_standard(const Element<A, T>& lhs, const Element<A, U>& rhs)
  {
    // assertion(lhs.structure() == rhs.structure())
    Element<A, T> ret(lhs);
    union_of_standard_here(ret, rhs);
    return ret;
  }

  /*--------------.
  | is_standard.  |
  `--------------*/
  template <typename A, typename auto_t>
  bool
  do_is_standard(const AutomataBase<A>&, const auto_t& a)
  {
    TIMER_SCOPED("is_standard");
    typedef typename auto_t::series_set_elt_value_t     series_set_elt_value_t;

    // Check there is only one initial state.
    if (a.initial().size() != 1)
      return false;

    // Check the multiplicity of the initial state.
    typename auto_t::hstate_t s = *a.initial().begin();
    if (a.get_initial(s)
        != a.series().identity(SELECT(series_set_elt_value_t)))
      return false;

    // Check that there is no input transition on the initial state.
    return !has_predecessors(a, s);
  }

  template<typename A, typename T>
  bool
  is_standard(const Element<A, T>& a)
  {
    return do_is_standard(a.structure(), a);
  }

  /*---------------------.
  | concat_of_standard.  |
  `---------------------*/
  template <typename A, typename lhs_t, typename rhs_t>
  void
  do_concat_of_standard_here(const AutomataBase<A>&,
                             lhs_t& lhs,
                             const rhs_t& rhs)
  {
    precondition(is_standard(lhs));
    precondition(is_standard(rhs));

    TIMER_SCOPED("concat_of_standard");
    AUTOMATON_TYPES(lhs_t);
    typedef std::map<hstate_t, hstate_t>        map_t;
    typedef std::list<htransition_t>            delta_ret_t;

    /*------------------.
    | Concat of states. |
    `------------------*/
    map_t       map_h;
    delta_ret_t dst;
    hstate_t    new_state;

    // Add states except the initial one.
    for (typename rhs_t::state_iterator s = rhs.states().begin();
         s != rhs.states().end();
         ++s)
      if (!rhs.is_initial(*s))
      {
        new_state = lhs.add_state();
        map_h[*s] = new_state;
      }

    // Add transitions.
    for (typename rhs_t::state_iterator i = rhs.states().begin();
         i != rhs.states().end();
         ++i)
      if (!rhs.is_initial(*i))
      {
        dst.clear();
        rhs.deltac(dst, *i, delta_kind::transitions());
        for_all_const_(delta_ret_t, d, dst)
          lhs.add_transition(map_h[*i],
                             map_h[rhs.dst_of(*d)],
                             rhs.label_of(*d));
      }

    // Concat final states of lhs to the initial state of rhs.
    hstate_t rhs_i = *rhs.initial().begin();
    dst.clear();
    rhs.deltac(dst, rhs_i, delta_kind::transitions());
    for_all_const_final_states(f, lhs)
    {
      typename lhs_t::series_set_elt_t weight = lhs.get_final(*f);
      for_all_const_(delta_ret_t, d, dst)
        lhs.add_series_transition(*f,
                                  map_h[rhs.dst_of(*d)],
                                  weight * rhs.label_of(*d));
    }

    // Multiply final transitions of lhs by the final multiplicity of the
    // initial state of rhs.
    typename lhs_t::series_set_elt_t rhs_iw = rhs.get_final(rhs_i);
    typename lhs_t::final_support_t support = lhs.final();
    for (typename lhs_t::final_iterator next = lhs.final().begin();
         next != lhs.final().end();)
    {
      typename lhs_t::final_iterator f = next;
      next++;
      lhs.set_final(*f, lhs.get_final(*f) * rhs_iw);
    }

    // Set transitions coming from rhs to final if needed.
    for_all_const_(map_t, nf, map_h)
      if (rhs.is_final(nf->first))
        lhs.set_final(nf->second, rhs.get_final(nf->first));
  }

  template<typename A, typename T, typename U>
  void
  concat_of_standard_here(Element<A, T>& lhs, const Element<A, U>& rhs)
  {
    // assertion(lhs.structure() == rhs.structure())
    do_concat_of_standard_here(lhs.structure(), lhs, rhs);
  }

  template<typename A, typename T, typename U>
  Element<A, T>
  concat_of_standard(const Element<A, T>& lhs,
                     const Element<A, U>& rhs)
  {
    // assertion(lhs.structure() == rhs.structure())
    Element<A, T> ret(lhs);
    do_concat_of_standard_here(ret.structure(), ret, rhs);
    return ret;
  }

  /*----------------.
  | standard_star.  |
  `----------------*/
  template <typename A, typename auto_t>
  void
  do_star_of_standard_here(const AutomataBase<A>&, auto_t& a)
  {
    precondition(is_standard(a));

    TIMER_SCOPED("star_of_standard");
    AUTOMATON_TYPES(auto_t);
    typedef std::list<htransition_t>            edelta_ret_t;

    edelta_ret_t                        dst;
    hstate_t                            new_i = *a.initial().begin();
    series_set_elt_t                    out_mult = a.get_final(new_i);

    out_mult.star();
    a.deltac(dst, new_i, delta_kind::transitions());
    for_all_final_states(f, a)
    {
      if (*f != new_i)
      {
        series_set_elt_t f_mult = a.get_final(*f) * out_mult;
        a.set_final(*f, f_mult);
        for_all_const_(edelta_ret_t, d, dst)
          a.add_series_transition(*f, a.dst_of(*d), f_mult * a.label_of(*d));
      }
    }
    a.set_final(new_i, out_mult);
  }

  template<typename A, typename T>
  void
  star_of_standard_here(Element<A, T>& a)
  {
    do_star_of_standard_here(a.structure(), a);
  }

  template<typename A, typename T>
  Element<A, T>
  star_of_standard(const Element<A, T>& a)
  {
    // assertion(lhs.structure() == rhs.structure())
    Element<A, T> ret(a);
    do_star_of_standard_here(ret.structure(), ret);
    return ret;
  }

} // vcsn

#endif // ! VCSN_ALGORITHMS_STANDARD_HXX

---