2fb436a174
This involves reimplementing some algorithms using tgba_digraph, and implementing an explicit product that takes two tgba_digraphs and produces a tgba_digraph. * src/tgbaalgos/product.cc, src/tgbaalgos/product.hh: New files. * src/tgbaalgos/Makefile.am: Adjust. * src/bin/ltlcross.cc, src/tgba/tgba.cc, src/tgba/tgba.hh, src/tgba/tgbasafracomplement.cc, src/tgba/tgbasafracomplement.hh, src/tgbaalgos/cycles.cc, src/tgbaalgos/cycles.hh, src/tgbaalgos/degen.cc, src/tgbaalgos/degen.hh, src/tgbaalgos/isweakscc.cc, src/tgbaalgos/isweakscc.hh, src/tgbaalgos/minimize.cc, src/tgbaalgos/minimize.hh, src/tgbaalgos/powerset.cc, src/tgbaalgos/powerset.hh, src/tgbaalgos/safety.cc, src/tgbaalgos/safety.hh, src/tgbaalgos/sccinfo.cc, src/tgbaalgos/sccinfo.hh, src/tgbatest/complementation.cc, src/tgbatest/emptchk.cc, src/tgbatest/ltl2ta.test, src/tgbatest/ltl2tgba.cc, src/tgbatest/randtgba.cc: Update to use scc_info and/or tgba_digraph.
267 lines
7.3 KiB
C++
267 lines
7.3 KiB
C++
// -*- coding: utf-8 -*-
|
|
// Copyright (C) 2008, 2009, 2010, 2011, 2012, 2014 Laboratoire de
|
|
// Recherche et Développement de l'Epita (LRDE).
|
|
//
|
|
// This file is part of Spot, a model checking library.
|
|
//
|
|
// Spot 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.
|
|
//
|
|
// Spot 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
#include <iomanip>
|
|
#include <iostream>
|
|
#include "tgbaalgos/dotty.hh"
|
|
#include "tgbaalgos/save.hh"
|
|
#include "tgbaparse/public.hh"
|
|
#include "tgba/tgbaproduct.hh"
|
|
#include "tgbaalgos/gtec/gtec.hh"
|
|
#include "tgbaalgos/ltl2tgba_fm.hh"
|
|
#include "ltlparse/public.hh"
|
|
#include "tgbaalgos/stats.hh"
|
|
#include "tgbaalgos/emptiness.hh"
|
|
#include "ltlast/unop.hh"
|
|
#include "tgbaalgos/stats.hh"
|
|
#include "tgbaalgos/emptiness_stats.hh"
|
|
#include "tgbaalgos/degen.hh"
|
|
|
|
#include "tgba/tgbasafracomplement.hh"
|
|
|
|
void usage(const char* prog)
|
|
{
|
|
std::cout << "usage: " << prog << " [options]" << std::endl;
|
|
std::cout << "with options" << std::endl
|
|
<< "-b Output in spot's format\n"
|
|
<< "-s buchi_automaton display the safra automaton\n"
|
|
<< "-a buchi_automaton display the complemented automaton\n"
|
|
<< "-astat buchi_automaton statistics for !a\n"
|
|
<< "-fstat formula statistics for !A_f\n"
|
|
<< "-f formula test !A_f and !A_!f\n"
|
|
<< "-p formula print the automaton for f\n";
|
|
}
|
|
|
|
int main(int argc, char* argv[])
|
|
{
|
|
char *file = 0;
|
|
bool print_safra = false;
|
|
bool print_automaton = false;
|
|
//bool check = false;
|
|
int return_value = 0;
|
|
bool stats = false;
|
|
bool formula = false;
|
|
bool print_formula = false;
|
|
bool save_spot = false;
|
|
|
|
if (argc < 3)
|
|
{
|
|
usage(argv[0]);
|
|
return 1;
|
|
}
|
|
|
|
for (int i = 1; i < argc; ++i)
|
|
{
|
|
if (argv[i][0] == '-')
|
|
{
|
|
if (strcmp(argv[i] + 1, "b") == 0)
|
|
{
|
|
save_spot = true;
|
|
continue;
|
|
}
|
|
|
|
if (strcmp(argv[i] + 1, "astat") == 0)
|
|
{
|
|
stats = true;
|
|
formula = false;
|
|
continue;
|
|
}
|
|
|
|
if (strcmp(argv[i] + 1, "fstat") == 0)
|
|
{
|
|
stats = true;
|
|
formula = true;
|
|
continue;
|
|
}
|
|
|
|
switch (argv[i][1])
|
|
{
|
|
case 's':
|
|
print_safra = true; break;
|
|
case 'a':
|
|
print_automaton = true; break;
|
|
case 'f':
|
|
//check = true;
|
|
break;
|
|
case 'p':
|
|
print_formula = true; break;
|
|
default:
|
|
std::cerr << "unrecognized option `-" << argv[i][1]
|
|
<< '\'' << std::endl;
|
|
return 2;
|
|
}
|
|
}
|
|
else
|
|
file = argv[i];
|
|
}
|
|
|
|
if (file == 0)
|
|
{
|
|
usage(argv[0]);
|
|
return 1;
|
|
}
|
|
|
|
auto dict = spot::make_bdd_dict();
|
|
if (print_automaton || print_safra)
|
|
{
|
|
spot::ltl::environment& env(spot::ltl::default_environment::instance());
|
|
spot::tgba_parse_error_list pel;
|
|
spot::tgba_digraph_ptr a = spot::tgba_parse(file, pel, dict, env);
|
|
if (spot::format_tgba_parse_errors(std::cerr, file, pel))
|
|
return 2;
|
|
|
|
spot::tgba_ptr complement = 0;
|
|
|
|
complement = spot::make_safra_complement(a);
|
|
|
|
if (print_automaton)
|
|
{
|
|
if (save_spot)
|
|
spot::tgba_save_reachable(std::cout, complement);
|
|
else
|
|
spot::dotty_reachable(std::cout, complement);
|
|
}
|
|
|
|
if (print_safra)
|
|
{
|
|
auto safra_complement =
|
|
std::dynamic_pointer_cast<spot::tgba_safra_complement>(complement);
|
|
spot::display_safra(safra_complement);
|
|
}
|
|
}
|
|
else if (print_formula)
|
|
{
|
|
spot::ltl::parse_error_list p1;
|
|
const spot::ltl::formula* f1 = spot::ltl::parse(file, p1);
|
|
|
|
if (spot::ltl::format_parse_errors(std::cerr, file, p1))
|
|
return 2;
|
|
|
|
auto a = spot::ltl_to_tgba_fm(f1, dict);
|
|
spot::tgba_ptr complement = 0;
|
|
complement = spot::make_safra_complement(a);
|
|
|
|
spot::dotty_reachable(std::cout, complement);
|
|
f1->destroy();
|
|
}
|
|
else if (stats)
|
|
{
|
|
spot::tgba_digraph_ptr a;
|
|
const spot::ltl::formula* f1 = 0;
|
|
|
|
if (formula)
|
|
{
|
|
spot::ltl::parse_error_list p1;
|
|
f1 = spot::ltl::parse(file, p1);
|
|
|
|
if (spot::ltl::format_parse_errors(std::cerr, file, p1))
|
|
return 2;
|
|
|
|
a = spot::ltl_to_tgba_fm(f1, dict);
|
|
}
|
|
else
|
|
{
|
|
spot::tgba_parse_error_list pel;
|
|
spot::ltl::environment& env(spot::ltl::default_environment::instance());
|
|
a = spot::tgba_parse(file, pel, dict, env);
|
|
if (spot::format_tgba_parse_errors(std::cerr, file, pel))
|
|
return 2;
|
|
}
|
|
|
|
auto safra_complement = spot::make_safra_complement(a);
|
|
|
|
spot::tgba_statistics a_size = spot::stats_reachable(a);
|
|
std::cout << "Original: "
|
|
<< a_size.states << ", "
|
|
<< a_size.transitions << ", "
|
|
<< a->acc().num_sets()
|
|
<< std::endl;
|
|
|
|
auto buchi = spot::degeneralize(a);
|
|
std::cout << "Buchi: "
|
|
<< buchi->num_states()
|
|
<< buchi->num_transitions()
|
|
<< buchi->acc().num_sets()
|
|
<< std::endl;
|
|
|
|
spot::tgba_statistics b_size = spot::stats_reachable(safra_complement);
|
|
std::cout << "Safra Complement: "
|
|
<< b_size.states << ", "
|
|
<< b_size.transitions << ", "
|
|
<< safra_complement->acc().num_sets()
|
|
<< std::endl;
|
|
|
|
if (formula)
|
|
{
|
|
auto nf1 = spot::ltl::unop::instance(spot::ltl::unop::Not, f1->clone());
|
|
auto a2 = spot::ltl_to_tgba_fm(nf1, dict);
|
|
spot::tgba_statistics a_size = spot::stats_reachable(a2);
|
|
std::cout << "Not Formula: "
|
|
<< a_size.states << ", "
|
|
<< a_size.transitions << ", "
|
|
<< a2->acc().num_sets()
|
|
<< std::endl;
|
|
|
|
f1->destroy();
|
|
nf1->destroy();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
spot::ltl::parse_error_list p1;
|
|
const spot::ltl::formula* f1 = spot::ltl::parse(file, p1);
|
|
|
|
if (spot::ltl::format_parse_errors(std::cerr, file, p1))
|
|
return 2;
|
|
|
|
auto Af = spot::ltl_to_tgba_fm(f1, dict);
|
|
auto nf1 = spot::ltl::unop::instance(spot::ltl::unop::Not, f1->clone());
|
|
auto Anf = spot::ltl_to_tgba_fm(nf1, dict);
|
|
auto nAf = spot::make_safra_complement(Af);
|
|
auto nAnf = spot::make_safra_complement(Anf);
|
|
auto ec = spot::couvreur99(spot::product(nAf, nAnf));
|
|
auto res = ec->check();
|
|
spot::tgba_statistics a_size = spot::stats_reachable(ec->automaton());
|
|
std::cout << "States: "
|
|
<< a_size.states << std::endl
|
|
<< "Transitions: "
|
|
<< a_size.transitions << std::endl
|
|
<< "Acc Cond: "
|
|
<< ec->automaton()->acc().num_sets()
|
|
<< std::endl;
|
|
if (res)
|
|
{
|
|
std::cout << "FAIL\n";
|
|
return_value = 1;
|
|
if (auto run = res->accepting_run())
|
|
{
|
|
spot::dotty_reachable(std::cout, ec->automaton(), false);
|
|
spot::print_tgba_run(std::cout, ec->automaton(), run);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
std::cout << "OK\n";
|
|
}
|
|
nf1->destroy();
|
|
f1->destroy();
|
|
}
|
|
|
|
return return_value;
|
|
}
|