diff -r cce8365a9d50 -r 8b90d57759c9 tex/prn2eps.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tex/prn2eps.pl	Mon Sep 13 03:54:21 2010 +0900
@@ -0,0 +1,76 @@
+#!/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');