[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnugo-devel] matcher_check fixes
From: |
Evan Berggren Daniel |
Subject: |
[gnugo-devel] matcher_check fixes |
Date: |
Sun, 1 Sep 2002 14:28:41 -0400 (EDT) |
OK, here's the real patch.
Evan Daniel
Index: matcher_check
===================================================================
RCS file: /cvsroot/gnugo/gnugo/interface/gtp_examples/matcher_check,v
retrieving revision 1.12
diff -u -r1.12 matcher_check
--- matcher_check 30 Aug 2002 13:34:53 -0000 1.12
+++ matcher_check 1 Sep 2002 18:27:29 -0000
@@ -205,6 +205,7 @@
#set autoflushing for sgf file
select(SGFFILEHANDLE);
$| = 1;
+ select(STDOUT);
print $prog_in "boardsize $size\n";
eat_no_response($prog_out);
@@ -263,14 +264,19 @@
while ($pass < 2) {
if ($toplay eq 'B') {
print $prog_in "genmove_black\n";
- print $stable_in "gg_genmove black\n" if defined($stable);
+ print $stable_in "genmove_black\n" if defined($stable);
} else {
print $prog_in "genmove_white\n";
- print $stable_in "gg_genmove white\n" if defined($stable);
+ print $stable_in "genmove_white\n" if defined($stable);
}
$move = eat_move($prog_out);
- $stable_move = eat_move($stable_out) if defined ($stable);
+ if (defined($stable)) {
+ $stable_move = eat_move($stable_out);
+ print $stable_in "undo\n";
+ eat_no_response($stable_out);
+ }
+
if ($move ne $stable_move and defined ($stable)) {
print "At move $movenum, $toplay\:\n";
print "Test version played $move\n";
- [gnugo-devel] matcher_check fixes,
Evan Berggren Daniel <=