1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl
#
# Reverse of convert_epd.pl: turns typhoon's setboard/solution|avoid/
# id/go script-format suites back into real EPD, one record per line,
# now that the engine can read EPD directly (`epd <file>` -- see
# ParseEpdRecord in fen.c, EpdCommand in script.c). Written to retire
# the setboard/solution/go intermediate format for suites that are
# just EPD underneath, so there's one suite format instead of two.
#
# Mirrors ScriptCommand's own state machine: track the most recent
# setboard/id/solution/avoid seen and emit one EPD record per "go",
# ignoring any other command in between (sd, st, easy, version,
# quit, ...) -- those belong to scripts that aren't really EPD suites
# (bench.ep_, trial.ep_) and shouldn't be fed to this converter.
use strict;
use warnings;
my $fen;
my $id;
my @sol;
my @avoid;
while (my $line = <>) {
chomp $line;
$line =~ s/\r$//;
if ($line =~ /^\s*setboard\s+(.*?)\s*$/i) {
$fen = $1;
} elsif ($line =~ /^\s*id\s+(.*?)\s*$/i) {
$id = $1;
$id =~ s/^"|"$//g;
} elsif ($line =~ /^\s*solution\s+(.*?)\s*$/i) {
push @sol, split(/\s+/, $1);
} elsif ($line =~ /^\s*avoid\s+(.*?)\s*$/i) {
push @avoid, split(/\s+/, $1);
} elsif ($line =~ /^\s*go\s*$/i) {
if (defined($fen) && (@sol || @avoid)) {
my ($opcode, @moves) = @sol ? ('bm', @sol) : ('am', @avoid);
print "$fen $opcode " . join(' ', @moves) . ';';
print " id \"$id\";" if defined $id;
print "\n";
} else {
warn "ep_to_epd.pl: skipping a 'go' with no fen/solution " .
"in scope (non-suite script line?)\n";
}
@sol = ();
@avoid = ();
$id = undef;
# $fen deliberately survives a record with no solution/avoid
# (mirrors ScriptCommand: a bare setboard+go with no solution
# just plays a move, it doesn't reset anything) -- but since we
# skip printing when there's no solution anyway, this only
# matters for a same-fen "go" that follows one with a solution,
# which none of the real suites in tests/ do.
}
# everything else (sd, st, easy, version, quit, ...) ignored.
}
|
