#!/bin/sh
# -*- coding: utf-8 -*-
# Copyright (C) by the Spot authors, see the AUTHORS file for details.
#
# 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/>.

. ./defs
set -e

ltl2tgba=../ikwiad


(
# Some formulas supplied by Joachim Klein.  The first two were
# incorrectly translated by ltl_to_tgba_fm(), while the other have
# shown some bugs in other translators.
cat <<EOF
G(Fa & ((a M b) U ((c U !d) M d)))
XF(p2 R (!Fp1 W p1))
X p0 || ((X p0) V <>p0)
p0 xor (p0 W X!p0)
p0 & (!p0 W Xp0)
EOF
# Random formulas
randltl -n 100 p1 p2 p3 p4 p5 p6 --tree-size 5..15
) |
ltlcross -D \
  "$ltl2tgba -t -f %f > %T" \
  "$ltl2tgba -t -f -y %f > %T" \
  "$ltl2tgba -t -f -fu %f > %T" \
  "$ltl2tgba -t -f -r4 %f > %T" \
  "$ltl2tgba -t -f -R3 %f > %T" \
  "$ltl2tgba -t -f -R3 -Rm %f > %T" \
  "$ltl2tgba -t -f -R3 -RM %f > %T" \
  "$ltl2tgba -t -f -DT %f > %T" \
  "$ltl2tgba -t -f -DS %f > %T" \
  "$ltl2tgba -t -f -r4 -R3 -RDS %f > %T" \
  "$ltl2tgba -t -f -r4 -R3 -RRS %f > %T" \
  "$ltl2tgba -t -f -r4 -R3 -RIS %f > %T" \
  "$ltl2tgba -t -f -r4 -R3 -RDS -DS %f > %T" \
  "$ltl2tgba -t -f -x -p %f > %T" \
  "$ltl2tgba -t -f -x -p -L %f > %T" \
  "$ltl2tgba -t -f -x -p -DT %f > %T" \
  "$ltl2tgba -t -f -x -p -L -DT %f > %T" \
  "$ltl2tgba -t -taa -r4 %f > %T" \
  "$ltl2tgba -t -taa -r4 -c %f > %T" \
  "$ltl2tgba -t -taa -r4 -R3 -RDS %f > %T"


# This case, reported by Salomon Sickert, used to break ltlcross in
# Spot 2.8.  We use ltl2tgba twice so ltlcross build cross-products.
ltlcross --verbose ltl2tgba ltl2tgba \
-f '(G(F((a1)&(X(X(b1))))))&(G(F((a2)&(X(X(b2))))))&(G(F((a3)&(X(X(b3))))))'

# Issue #524.
ltlcross ltl2tgba -f '!(X(v3 | G!v5) | ((Xv5 & !(v5 & !X!v3)) U !v5))'

# Issue #546, Issue #552.
ltlcross 'ltl2tgba --medium -p' \
         'ltl2tgba -p' \
         'ltl2tgba --medium -D -p' \
         'ltl2tgba --medium --colored-parity="min even" -C -D' \
         'ltl2tgba --colored-parity="min even" -C -D' \
         -f 'a | FGa | GF(!b | Gb)' \
         -f '(~ v1 U ~ v5) | G(F v9 & F G v1) | G F(~ v7 | G v7 | G v3)' \
         -f 'FG((a | Fb | FG!b) & !G(c & d))'