Tag which engine we are talking to in ucilog.txt

diff --git a/remoteglot.pl b/remoteglot.pl
index cdabf43d382053d8fff9613b487a1379269be545..acb992d89c3cae40abb46b78827d391efab1701f 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -52,8 +52,8 @@ $| = 1;
 select(STDOUT);
 
 # open the chess engine
 select(STDOUT);
 
 # open the chess engine

-my $engine = open_engine($engine_cmdline);
-my $engine2 = open_engine($engine2_cmdline);
+my $engine = open_engine($engine_cmdline, 'E1');
+my $engine2 = open_engine($engine2_cmdline, 'E2');

 my ($last_move, $last_tell);
 my $last_text = '';
 my $last_told_text = '';
 my ($last_move, $last_tell);
 my $last_text = '';
 my $last_told_text = '';


@@ -213,7 +213,7 @@ sub handle_uci {
        chomp $line;
        $line =~ tr/\r//d;
        $line =~ s/  / /g;  # Sometimes needed for Zappa Mexico
        chomp $line;
        $line =~ tr/\r//d;
        $line =~ s/  / /g;  # Sometimes needed for Zappa Mexico

-       print UCILOG localtime() . " <= $line\n";
+       print UCILOG localtime() . " $engine->{'tag'} <= $line\n";

        if ($line =~ /^info/) {
                my (@infos) = split / /, $line;
                shift @infos;
        if ($line =~ /^info/) {
                my (@infos) = split / /, $line;
                shift @infos;


@@ -1028,7 +1028,7 @@ sub can_reach {
 sub uciprint {
        my ($engine, $msg) = @_;
        print { $engine->{'write'} } "$msg\n";
 sub uciprint {
        my ($engine, $msg) = @_;
        print { $engine->{'write'} } "$msg\n";

-       print UCILOG localtime() . " => $msg\n";
+       print UCILOG localtime() . " $engine->{'tag'} => $msg\n";

 }
 
 sub short_score {
 }
 
 sub short_score {


@@ -1164,7 +1164,7 @@ sub book_info {
 }
 
 sub open_engine {
 }
 
 sub open_engine {

-       my $cmdline = shift;
+       my ($cmdline, $tag) = @_;

        my ($uciread, $uciwrite);
        my $pid = IPC::Open2::open2($uciread, $uciwrite, $cmdline);
 
        my ($uciread, $uciwrite);
        my $pid = IPC::Open2::open2($uciread, $uciwrite, $cmdline);
 


@@ -1175,6 +1175,7 @@ sub open_engine {
                write => $uciwrite,
                info => {},
                ids => {},
                write => $uciwrite,
                info => {},
                ids => {},

+               tag => $tag,

        };
 
        uciprint($engine, "uci");
        };
 
        uciprint($engine, "uci");