From f0b5466f95dd6c54eb9a54c56b855a7f96b1b5d1 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Thu, 11 Dec 2014 01:57:46 +0100
Subject: [PATCH] Drop parse-pgn.pl and use (our patched) pgn-extract.

---
 parallel-parse-pgn.sh |  2 +-
 parse-pgn.pl          | 58 -------------------------------------------
 2 files changed, 1 insertion(+), 59 deletions(-)
 delete mode 100755 parse-pgn.pl

diff --git a/parallel-parse-pgn.sh b/parallel-parse-pgn.sh
index 79fa440..2a0279d 100755
--- a/parallel-parse-pgn.sh
+++ b/parallel-parse-pgn.sh
@@ -1,6 +1,6 @@
 #! /bin/sh
 FILE=$1
 for X in $( seq 0 39 ); do
-	( ./parse-pgn.pl $FILE $X 40 >> part-$X.bin ) &
+       ( ./partition-pgn.sh $FILE $X 40 | ~/nmu/pgn-extract/pgn-extract -e -Wsessebin >> part-$X.bin 2>/dev/null ) &
 done
 wait
diff --git a/parse-pgn.pl b/parse-pgn.pl
deleted file mode 100755
index 1da3e3a..0000000
--- a/parse-pgn.pl
+++ /dev/null
@@ -1,58 +0,0 @@
-#! /usr/bin/perl
-use Chess::PGN::Parse;
-use Data::Dumper;
-use strict;
-use warnings;
-use lib '..';
-use Position;
-use Engine;
-use ECO;
-
-my $TEXTOUT = 0;
-my $BINOUT = 1;
-
-ECO::init();
-
-my ($filename, $my_num, $tot_num) = @ARGV;
-
-my $pgn = Chess::PGN::Parse->new($filename)
-	or die "can't open $filename\n";
-my $game_num = 0;
-while ($pgn->read_game()) {
-	next unless ($game_num++ % $tot_num == $my_num);
-	my $tags = $pgn->tags();
-#	next unless $tags->{'WhiteElo'} >= 2000;
-#	next unless $tags->{'BlackElo'} >= 2000;
-	$pgn->quick_parse_game;
-	my $pos = Position->start_pos($pgn->white, $pgn->black);
-	my $result = $pgn->result;
-	my $binresult;
-	if ($result eq '1-0') {
-		$binresult = chr(0);
-	} elsif ($result eq '1/2-1/2') {
-		$binresult = chr(1);
-	} elsif ($result eq '0-1') {
-		$binresult = chr(2);
-	} else {
-		die "Unknown result $result";
-	}
-	my $binwhiteelo = pack('l', $tags->{'WhiteElo'});
-	my $binblackelo = pack('l', $tags->{'BlackElo'});
-	my $moves = $pgn->moves;
-	my $opening = ECO::get_opening_num($pos);
-#	print STDERR $pgn->white, " ", $pgn->black, "\n";
-	for (my $i = 0; $i + 1 < scalar @$moves; ++$i) {
-		my ($from_row, $from_col, $to_row, $to_col, $promo) = $pos->parse_pretty_move($moves->[$i]);
-		my $next_move = $moves->[$i];
-		my $bpfen = $pos->bitpacked_fen;
-		my $fen = $pos->fen;
-		$opening = ECO::get_opening_num($pos) // $opening;
-		print "$fen $next_move $result $opening\n" if $TEXTOUT;
-		if ($BINOUT) {
-			print chr(length($bpfen) + length($next_move)) . $bpfen . $next_move;
-			print $binresult . $binwhiteelo . $binblackelo;
-			print pack('l', $opening);
-		}
-		$pos = $pos->make_move($from_row, $from_col, $to_row, $to_col, $promo, $moves->[$i]);
-	}
-}
-- 
2.39.2