tools/board_print_to_gtp

   1 #!/usr/bin/perl
   2 # Convert ascii board diagrams from board_print() to gtp.
   3 # Usage: ./board_print_to_gtp > foo.gtp
   4 #        copy paste the diagram, ^D
   5 #        tweak foo.gtp: script doesn't pay attention to last
   6 #        move currently so always sets black to play.
   7
   8 use utf8;
   9 binmode STDIN, ":utf8";
  10 binmode STDOUT, ":utf8";
  11
  12 my $asdf = "abcdefghjklmnopqrstuvwxyz";
  13
  14 sub coord2gtp
  15 {
  16     my ($x, $y) = @_;
  17     $y += 0;
  18     return substr($asdf, $x-1, 1) . $y;
  19 }
  20
  21 my $ab = "";
  22 my $aw = "";
  23 my $size = 0;
  24 foreach my $s (<STDIN>)
  25 {
  26     $s =~ s/·/./g;
  27     # remove current move mark
  28     $s =~ s/([OX.])\)/$1 /;
  29     if ($s =~ m/^ ([ 1][0-9]) \| (([.OX] )+)\|/ ||
  30         $s =~ m/^([ 1][0-9])  *(([.OX] )+) /)
  31     {
  32         my ($l, $s) = ($1, $2);
  33         $s =~ s/ //g;
  34         my @t = split("", $s);
  35
  36         $size = @t;
  37         for (my $i = 0; $i < @t; $i++)
  38         {
  39             if ($t[$i] ne "X") { next; }
  40             $ab .= sprintf("play b %s\n", coord2gtp($i+1, $l));
  41         }
  42
  43         for (my $i = 0; $i < @t; $i++)
  44         {
  45             if ($t[$i] ne "O") { next; }
  46             $aw .= sprintf("play w %s\n", coord2gtp($i+1, $l));
  47         }
  48     }
  49 }
  50
  51 print "boardsize $size\n";
  52 print "clear_board\n";
  53 print "komi 7.5\n";
  54 print "$ab";
  55 print "$aw";
  56 print "genmove b\n";