liblts_dot.cpp

Go to the documentation of this file.

// Author(s): Muck van Weerdenburg
// Copyright: see the accompanying file COPYING or copy at
// https://github.com/mCRL2org/mCRL2/blob/master/COPYING
//
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)
//
 
#include "mcrl2/lts/lts_io.h"
#include "mcrl2/lts/parse.h"
#include "mcrl2/lts/detail/liblts_swap_to_from_probabilistic_lts.h"
 
using namespace mcrl2::core;
 
namespace mcrl2
{
namespace lts
{
 
void probabilistic_lts_dot_t::save(std::ostream& os) const
{
  // Language definition seems to suggest that the name is optional, but tools seem to think otherwise
  os << "digraph G {" << std::endl;
  // os << "size=\"7,10.5\";" << std::endl;
  os << "center = TRUE;" << std::endl;
  os << "mclimit = 10.0;" << std::endl;
  os << "nodesep = 0.05;" << std::endl;
  os << "node [ width=0.25, height=0.25, label=\"\" ];" << std::endl;
  if (num_states() > 0)
  {
    if (initial_probabilistic_state().size()<=1)
    { 
      const std::size_t initial_state=initial_probabilistic_state().get();
      if (has_state_info())
      {
        os << state_label(initial_state).name();
      }
      else
      {
        os << "S" << initial_state;
      }
    }
    else
    {
      throw mcrl2::runtime_error("Cannnot save a probabilistic transition system in .dot format.");
    }
 
    os << " [ peripheries=2 ];" << std::endl;
    for (std::size_t i=0; i<num_states(); i++)
    {
      if (has_state_info())
      {
        const std::string& label = state_label(i).label();
        if (!label.empty())
        {
          os << state_label(i).name() << " [label=\"" << label << "\"];" << std::endl;
        }
      }
      else
      {
        os << "S" << i << std::endl;
      }
    }
  }
  
  for (const transition& t: get_transitions())
  {
    if (has_state_info())
    {
      if (probabilistic_state(t.to()).size()>1)
      {
        throw mcrl2::runtime_error("Cannot save probabilistic states in .dot format.");
      }
      os << state_label(t.from()).name() << "->" << state_label(probabilistic_state(t.to()).get()).name() << "[label=\"" <<
         mcrl2::lts::pp(action_label(t.label())) << "\"];" << std::endl;
    }
    else
    {
      os << "S" << t.from() << " -> " << "S" << t.to() << "[label=\"" <<
         mcrl2::lts::pp(action_label(apply_hidden_label_map(t.label()))) << "\"];" << std::endl;
    }
  }
 
  os << "}" << std::endl;
}
 
void probabilistic_lts_dot_t::save(const std::string& filename) const
{
  std::ofstream os(filename.c_str());
  if (!os.is_open())
  {
    throw mcrl2::runtime_error("cannot open DOT file '" + filename + "' for writing.");
  }
  save(os);
  os.close();
}
 
void lts_dot_t::save(std::ostream& os) const
{
  probabilistic_lts_dot_t l;
  detail::translate_to_probabilistic_lts
            <state_label_dot,
             action_label_string,
             probabilistic_state<std::size_t, mcrl2::utilities::probabilistic_arbitrary_precision_fraction>,
             detail::lts_dot_base>(*this,l);
  l.save(os);
}
 
void lts_dot_t::save(const std::string& filename) const
{
  if (filename.empty() || filename=="-")
  {
    save(std::cout);
  }
  else
  {
    std::ofstream os(filename.c_str());
    if (!os.is_open())
    {
      throw mcrl2::runtime_error("cannot open DOT file '" + filename + "' for writing.");
    }
    save(os);
    os.close();
  }
}
 
}
}