#!/usr/bin/env perl

use strict;

use Digest::MD5 qw(md5_hex);

my $f_remove_unused_eps = 0;

if (@ARGV != 1) {

    die 'wrong number of argument';

}

my $prnfile = $ARGV[0];    

my $basename = $prnfile; $basename =~ s/\.prn$//;

my $dirname = $prnfile; $dirname =~ s![^/]*$!!;

my $notedumpfile  = $basename . '.note.txt';

my $md5file  = $basename . '.md5';

my %prev_md5 = ();

my %curr_md5 = ();

if (-e $md5file) {

    open(MD5, $md5file) or die;

    while (<MD5>) {

        if (/^([01-9a-f]+)\s+([-_01-9a-zA-Z]+)/) {

            $prev_md5{$1} = $2;

        }

    }

    close(MD5);

}

my $counter = 1;

open(NOTES, $notedumpfile) or die;

while (<NOTES>) {

    if (/\014/) {

        $counter++;

    }

    if (/\@file=([-_01-9a-zA-Z]+)/) {

        my $epsbase = $1;

        my $page = $counter;

        my $pngfile = $basename . '.ppt.tmp_slide' . $page . '.png';

        my $md5;

        if (-e $pngfile) {

            $md5 = md5_hex(`cat $pngfile`);

            $curr_md5{$md5} = $epsbase;

        } else { # can't happen

            die "no png file: $pngfile";

        }

        if (exists $prev_md5{$md5}) {

            if ($prev_md5{$md5} eq $epsbase) {

                # not changed

                delete $prev_md5{$md5};

            } else {

                system("mv $dirname$prev_md5{$md5}.eps $dirname$epsbase.eps");

                delete $prev_md5{$md5};                

            }

        } else {

            system("psselect $page $prnfile > $dirname$epsbase.ps");

            system("ps2eps -R + -B -f $dirname$epsbase.ps");

            system("ps2eps -C $dirname$epsbase.eps");

            system("mv $dirname$epsbase.eps.eps $dirname$epsbase.eps");

            system("rm $dirname$epsbase.ps");

        }

    }

}

close(NOTES);

if ($f_remove_unused_eps) {

    # to be implemented

}

open(MD5, '>', $md5file) or die;

foreach my $m (keys %curr_md5) {

    print MD5 $m . "\t" . $curr_md5{$m} . "\r\n";

}

close(MD5);

system("rm " . $basename . '.ppt.tmp_slide*.png');