neverclaim: rewrite the output using the tgba_digraph interface

* src/tgbaalgos/neverclaim.cc, src/tgbaalgos/neverclaim.hh: Here.
Also take a string to supply options.
* src/tgbatest/ltl2tgba.cc: Adjust call.

src/tgbaalgos/neverclaim.cc

@@ -33,172 +33,141 @@ namespace spot
 {
   namespace
   {
-    class never_claim_bfs : public tgba_reachable_iterator_breadth_first
+    class never_claim_output
     {
     public:
-      never_claim_bfs(const const_tgba_ptr& a, std::ostream& os,
+      std::ostream& os_;
-		      bool comments)
+      bool opt_comments_ = false;
-	: tgba_reachable_iterator_breadth_first(a),
+      const_tgba_digraph_ptr aut_;
-	  os_(os), accept_all_(-1), fi_needed_(false),
+      bool fi_needed_ = false;
-	  comments_(comments),
+      bool need_accept_all_ = false;
-	  sba_(std::dynamic_pointer_cast<const tgba_digraph>(a))
+
+    public:
+      never_claim_output(std::ostream& os, const char* options)
+	: os_(os)
       {
-	assert(!sba_ || sba_->has_state_based_acc());
+	if (options)
+	  while (char c = *options++)
+	    switch (c)
+	      {
+	      case 'c':
+		opt_comments_ = true;
+		break;
+	      default:
+		throw std::runtime_error
+		  (std::string("unknown option for never_claim(): ") + c);
+	      }
       }
 
       void
-      start()
+      start() const
       {
 	os_ << "never {";
 	auto n = aut_->get_named_prop<std::string>("automaton-name");
 	if (n)
 	  os_ << " /* " << *n << " */";
 	os_ << '\n';
-	init_ = aut_->get_init_state();
       }
 
       void
-      end()
+      end() const
       {
-	if (fi_needed_)
+	if (need_accept_all_)
-	  os_ << "  fi;\n";
-	if (accept_all_ != -1)
 	  os_ << "accept_all:\n  skip\n";
 	os_ << '}' << std::endl;
-	init_->destroy();
       }
 
-      bool
+      bool is_sink(unsigned n) const
-      state_is_accepting(const state *s)
       {
-	// If the automaton is a SBA, it's easier to just query the
+	auto ts = aut_->out(n);
-	// state_is_accepting() method.
+	assert(ts.begin() != ts.end());
-	if (sba_)
+	auto it = ts.begin();
-	  return sba_->state_is_accepting(s);
+	return (it->cond == bddtrue) && (it->dst == n) && (++it == ts.end());
-
-	// Otherwise, since we are dealing with a degeneralized
-	// automaton nonetheless, the transitions leaving an accepting
-	// state are either all accepting, or all non-accepting.  So
-	// we just check the acceptance of the first transition.  This
-	// is not terribly efficient since we have to create the
-	// iterator.
-	tgba_succ_iterator* it = aut_->succ_iter(s);
-	bool accepting = it->first()
-	  && aut_->acc().accepting(it->current_acceptance_conditions());
-	aut_->release_iter(it);
-	return accepting;
       }
 
-      std::string
+      void
-      get_state_label(const state* s, int n)
+      print_state(unsigned n) const
       {
 	std::string label;
-	if (s->compare(init_) == 0)
+	bool acc = aut_->state_is_accepting(n);
-	  if (state_is_accepting(s))
+	if (n == aut_->get_init_state_number())
-	    label = "accept_init";
-	  else
-	    label = "T0_init";
-	else
 	  {
-	    std::ostringstream ost;
+	    if (acc)
-	    ost << n;
+	      os_ << "accept_init";
-	    std::string ns(ost.str());
-
-	    if (state_is_accepting(s))
-	      {
-		tgba_succ_iterator* it = aut_->succ_iter(s);
-		if (!it->first())
-		  label = "accept_S" + ns;
-		else
-		  {
-		    state* current = it->current_state();
-		    if (it->current_condition() != bddtrue
-			|| s->compare(current) != 0)
-		      label = "accept_S" + ns;
-		    else
-		      label = "accept_all";
-		    current->destroy();
-		  }
-		aut_->release_iter(it);
-	      }
 	    else
-	      label = "T0_S" + ns;
+	      os_ << "T0_init";
-	  }
-	  return label;
-      }
-
-      void
-      process_state(const state* s, int n, tgba_succ_iterator*)
-      {
-	tgba_succ_iterator* it = aut_->succ_iter(s);
-	if (!it->first())
-	  {
-	    if (fi_needed_ != 0)
-	      os_ << "  fi;\n";
-	    os_ << get_state_label(s, n) << ':';
-	    if (comments_)
-	      os_ << " /* " << aut_->format_state(s) << " */";
-	    os_ << "\n  if\n  :: (0) -> goto "
-		<< get_state_label(s, n) << '\n';
-	    fi_needed_ = true;
 	  }
 	else
 	  {
-	    state* current = it->current_state();
+	    if (!acc)
-	    if (state_is_accepting(s)
+	      os_ << "T0_S" << n;
-		&& it->current_condition() == bddtrue
+	    else if (is_sink(n))
-		&& s->compare(init_) != 0
+	      os_ << "accept_all";
-		&& s->compare(current) == 0)
-	      accept_all_ = n;
 	    else
-	      {
+	      os_ << "accept_S" << n;
-		if (fi_needed_)
-		  os_ << "  fi;\n";
-		os_ << get_state_label(s, n) << ':';
-		if (comments_)
-		  os_ << " /* " << aut_->format_state(s) << " */";
-		os_ << "\n  if\n";
-		fi_needed_ = true;
-	      }
-	    current->destroy();
 	  }
-	aut_->release_iter(it);
       }
 
-      void
+      void process_state(unsigned n)
-      process_link(const state*, int in, const state*, int out,
-		   const tgba_succ_iterator* si)
       {
-	if (in != accept_all_)
+	if (aut_->state_is_accepting(n) && is_sink(n))
 	  {
+	    // We want the accept_all state at the end of the never claim.
+	    need_accept_all_ = true;
+	    return;
+	  }
+
+	print_state(n);
+	os_ << ':';
+	if (opt_comments_)
+	  os_ << " /* " << aut_->format_state(n) << " */";
+	os_ << "\n  if\n";
+	bool did_output = false;
+	for (auto&t : aut_->out(n))
+	  {
+	    did_output = true;
 	    os_ << "  :: (";
-	    const ltl::formula* f = bdd_to_formula(si->current_condition(),
+	    const ltl::formula* f = bdd_to_formula(t.cond, aut_->get_dict());
-						   aut_->get_dict());
 	    to_spin_string(f, os_, true);
 	    f->destroy();
-	    state* current = si->current_state();
+	    os_ << ") -> goto ";
-	    os_ << ") -> goto " << get_state_label(current, out) << '\n';
+	    print_state(t.dst);
-	    current->destroy();
+	    os_ << '\n';
 	  }
+	if (!did_output)
+	  {
+	    os_ << "  :: (false) -> goto ";
+	    print_state(n);
+	    os_ << '\n';
+	  }
+	os_ << "  fi;\n";
       }
 
-    private:
+      void print(const const_tgba_digraph_ptr& aut)
-      std::ostream& os_;
+      {
-      int accept_all_;
+	aut_ = aut;
-      bool fi_needed_;
+	start();
-      state* init_;
+	unsigned init = aut_->get_init_state_number();
-      bool comments_;
+	unsigned ns = aut_->num_states();
-      const_tgba_digraph_ptr sba_;
+	process_state(init);
+	for (unsigned n = 0; n < ns; ++n)
+	  if (n != init)
+	    process_state(n);
+	end();
+      }
     };
-  } // anonymous
+  } // anonymous namespace
 
   std::ostream&
   never_claim_reachable(std::ostream& os, const const_tgba_ptr& g,
-			bool comments)
+			const char* options)
   {
     assert(g->acc().num_sets() <= 1);
-    never_claim_bfs n(g, os, comments);
+    never_claim_output d(os, options);
-    n.run();
+    auto aut = std::dynamic_pointer_cast<const tgba_digraph>(g);
+    if (!aut)
+      aut = make_tgba_digraph(g, tgba::prop_set::all());
+    d.print(aut);
     return os;
   }
 }

src/tgbaalgos/neverclaim.hh

@@ -38,12 +38,11 @@ namespace spot
   ///          all the transitions of a state should be either all accepting
   ///          or all unaccepting.  If your automaton does not satisfies
   ///          these requirements, call degeneralize() first.
-  /// \param comments Whether to comment each state of the never clause
+  /// \param opt a string of option: 'c' to comment each state
-  ///          with the label of the \a g automaton.
   SPOT_API std::ostream&
   never_claim_reachable(std::ostream& os,
 			const const_tgba_ptr& g,
-			bool comments = false);
+			const char* opt = nullptr);
 }
 
 #endif // SPOT_TGBAALGOS_NEVERCLAIM_HH

src/tgbatest/ltl2tgba.cc

@@ -381,8 +381,8 @@ checked_main(int argc, char** argv)
   bool containment = false;
   bool opt_closure = false;
   bool opt_stutterize = false;
-  bool spin_comments = false;
+  const char* opt_never = nullptr;
-  const char* hoa_opt = 0;
+  const char* hoa_opt = nullptr;
   auto& env = spot::ltl::default_environment::instance();
   spot::ltl::atomic_prop_set* unobservables = 0;
   spot::tgba_ptr system_aut = 0;
@@ -606,12 +606,13 @@ checked_main(int argc, char** argv)
 	{
 	  degeneralize_opt = DegenSBA;
 	  output = 8;
+	  opt_never = nullptr;
 	}
       else if (!strcmp(argv[formula_index], "-NN"))
 	{
 	  degeneralize_opt = DegenSBA;
 	  output = 8;
-	  spin_comments = true;
+	  opt_never = "c";
 	}
       else if (!strncmp(argv[formula_index], "-O", 2))
 	{
@@ -1595,7 +1596,7 @@ checked_main(int argc, char** argv)
 	      {
 		assert(degeneralize_opt == DegenSBA);
 		if (assume_sba)
-		  spot::never_claim_reachable(std::cout, a, spin_comments);
+		  spot::never_claim_reachable(std::cout, a, opt_never);
 		else
 		  {
 		    // It is possible that we have applied other
@@ -1603,7 +1604,7 @@ checked_main(int argc, char** argv)
 		    // degeneralization.  Let's degeneralize again!
                     auto s = spot::degeneralize(ensure_digraph(a), degen_reset,
 						degen_order, degen_cache);
-		    spot::never_claim_reachable(std::cout, s, spin_comments);
+		    spot::never_claim_reachable(std::cout, s, opt_never);
 		  }
 		break;
 	      }