* src/ltlvisit/clone.cc (clone): New const version.

* src/ltlvisit/clone.hh (clone): Likewise.
* src/ltlvisit/destroy.cc (destroy): New const version.
* src/ltlvisit/destroy.hh (destroy): Likewise.
* src/tgba/tgbabddconcretefactory.cc
(tgba_bdd_concrete_factory::create_state,
tgba_bdd_concrete_factory::create_atomic_prop,
tgba_bdd_concrete_factory::promise): Clone new formulae.
* src/tgba/tgbabdddict.cc (tgba_bdd_dict::tgba_bdd_dict,
tgba_bdd_dict::~tgba_bdd_dict, tgba_bdd_dict::operator=): New methods
that clone and destroy formulae.
* src/tgbatest/ltl2tgba.test, src/tgbatest/ltl2tgba.cc: New files.
* src/tgbatest/Makefile.am (check_PROGRAMS): Add ltl2tgba.
(ltl2tgba_SOURCES): New variable.
(TESTS): Add ltl2tgba.test.

src/tgbatest/.cvsignore

@@ -6,3 +6,4 @@ explicit
 .libs
 tgbaread
 readsave
+ltl2tgba

src/tgbatest/Makefile.am

@@ -6,17 +6,19 @@ check_SCRIPTS = defs
 check_PROGRAMS = \
   explicit \
   readsave \
-  tgbaread
-
+  tgbaread \
+  ltl2tgba
 
 explicit_SOURCES = explicit.cc
+ltl2tgba_SOURCES = ltl2tgba.cc
 readsave_SOURCES = readsave.cc
 tgbaread_SOURCES = tgbaread.cc
 
 TESTS = \
   explicit.test \
   tgbaread.test \
-  readsave.test
+  readsave.test \
+  ltl2tgba.test
 
 EXTRA_DIST = $(TESTS)
 

src/tgbatest/ltl2tgba.cc

@@ -0,0 +1,59 @@
+#include <iostream>
+#include <cassert>
+#include "ltlvisit/destroy.hh"
+#include "ltlast/allnodes.hh"
+#include "ltlparse/public.hh"
+#include "tgba/ltl2tgba.hh"
+#include "tgbaalgos/dotty.hh"
+
+void
+syntax(char* prog)
+{
+  std::cerr << prog << " [-d] formula" << std::endl;
+  exit(2);
+}
+
+int
+main(int argc, char** argv)
+{
+  int exit_code = 0;
+
+  if (argc < 2)
+    syntax(argv[0]);
+
+  bool debug = false;
+  int formula_index = 1;
+
+  if (!strcmp(argv[1], "-d"))
+    {
+      debug = true;
+      if (argc < 3)
+	syntax(argv[0]);
+      formula_index = 2;
+    }
+
+  spot::ltl::environment& env(spot::ltl::default_environment::instance());
+  spot::ltl::parse_error_list pel;
+  spot::ltl::formula* f = spot::ltl::parse(argv[formula_index],
+					   pel, env, debug);
+
+  exit_code =
+    spot::ltl::format_parse_errors(std::cerr, argv[formula_index], pel);
+
+  if (f)
+    {
+      spot::tgba_bdd_concrete a = spot::ltl_to_tgba(f);
+      spot::ltl::destroy(f);
+      spot::dotty_reachable(std::cout, a);
+    }
+  else
+    {
+      exit_code = 1;
+    }
+
+  assert(spot::ltl::atomic_prop::instance_count() == 0);
+  assert(spot::ltl::unop::instance_count() == 0);
+  assert(spot::ltl::binop::instance_count() == 0);
+  assert(spot::ltl::multop::instance_count() == 0);
+  return exit_code;
+}

src/tgbatest/ltl2tgba.test

@@ -0,0 +1,15 @@
+#!/bin/sh
+
+. ./defs
+
+set -e
+
+# We don't check the output, but just running these might be enough to
+# trigger assertions.
+
+./ltl2tgba a
+./ltl2tgba 'a U b'
+./ltl2tgba 'X a'
+./ltl2tgba 'a & b & c'
+./ltl2tgba 'a | b | (c U (d & (g U (h ^ i))))'
+./ltl2tgba 'Xa & (b U !a) & (b U !a)'