* src/tgbatest/ltl2baw.pl (END): Ensure LTL2TGBA is always
closed.
This commit is contained in:
parent
665216b0c2
commit
373be36cae
2 changed files with 10 additions and 1 deletions
|
|
@ -1,3 +1,8 @@
|
||||||
|
2004-02-13 Alexandre Duret-Lutz <adl@src.lip6.fr>
|
||||||
|
|
||||||
|
* src/tgbatest/ltl2baw.pl (END): Ensure LTL2TGBA is always
|
||||||
|
closed.
|
||||||
|
|
||||||
2004-02-11 Alexandre Duret-Lutz <adl@src.lip6.fr>
|
2004-02-11 Alexandre Duret-Lutz <adl@src.lip6.fr>
|
||||||
|
|
||||||
* src/tgbatest/ltl2tgba.cc (syntax): Recognize "-" as input
|
* src/tgbatest/ltl2tgba.cc (syntax): Recognize "-" as input
|
||||||
|
|
|
||||||
|
|
@ -96,6 +96,11 @@ else
|
||||||
open(LTL2TGBA, "| ./ltl2tgba -T -X -");
|
open(LTL2TGBA, "| ./ltl2tgba -T -X -");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
END {
|
||||||
|
# This also waits for ltl2tgba's termination.
|
||||||
|
close(LTL2TGBA) || die "error closing pipe to ltl2tgba";
|
||||||
|
}
|
||||||
|
|
||||||
my @args = dquote @ARGV;
|
my @args = dquote @ARGV;
|
||||||
open(LTL2BA, "ltl2ba -d @args |") || die "failed to run ltl2ba";
|
open(LTL2BA, "ltl2ba -d @args |") || die "failed to run ltl2ba";
|
||||||
|
|
||||||
|
|
@ -203,7 +208,6 @@ else
|
||||||
print_state($src);
|
print_state($src);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
close(LTL2TGBA)
|
|
||||||
|
|
||||||
### Setup "GNU" style for perl-mode and cperl-mode.
|
### Setup "GNU" style for perl-mode and cperl-mode.
|
||||||
## Local Variables:
|
## Local Variables:
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue