texlive[45323] trunk: epstopdf (16sep17)
commits+karl at tug.org
commits+karl at tug.org
Sat Sep 16 22:47:39 CEST 2017
Revision: 45323
http://tug.org/svn/texlive?view=revision&revision=45323
Author: karl
Date: 2017-09-16 22:47:39 +0200 (Sat, 16 Sep 2017)
Log Message:
-----------
epstopdf (16sep17)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl
trunk/Master/texmf-dist/doc/man/man1/epstopdf.1
trunk/Master/texmf-dist/doc/man/man1/epstopdf.man1.pdf
trunk/Master/texmf-dist/doc/man/man1/repstopdf.man1.pdf
trunk/Master/texmf-dist/doc/support/epstopdf/README
trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
Modified: trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl 2017-09-16 20:47:20 UTC (rev 45322)
+++ trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl 2017-09-16 20:47:39 UTC (rev 45323)
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: epstopdf.pl 41577 2016-06-30 16:38:01Z karl $
+# $Id: epstopdf.pl 45306 2017-09-14 21:41:37Z karl $
# (Copyright lines below.)
#
# Redistribution and use in source and binary forms, with or without
@@ -35,7 +35,11 @@
#
# emacs-page
#
-my $ver = "2.26";
+my $ver = "2.27";
+# 2017/09/14 v2.27 (Karl Berry)
+# * extract value from --gsopt with $3 not $2 (extra regexp group
+# added previously), and check it with ^(...)$ so anchors apply to all.
+# (report to Karl from Yannick Berker, 7 Sep 2017 14:07:09.)
# 2017/01/07 v2.26 (Norbert Preining, Karl Berry)
# * allow cmdline of infile outfile.pdf.
# * explicitly allow -o as abbreviation for --outfile,
@@ -183,7 +187,7 @@
### emacs-page
### program identification
my $program = "epstopdf";
-my $ident = '($Id: epstopdf.pl 41577 2016-06-30 16:38:01Z karl $)' . " $ver";
+my $ident = '($Id: epstopdf.pl 45306 2017-09-14 21:41:37Z karl $)' . " $ver";
my $copyright = <<END_COPYRIGHT ;
Copyright 2009-2017 Karl Berry et al.
Copyright 2002-2009 Gerben Wierda et al.
@@ -295,6 +299,7 @@
MonoImageFilter /(CCITTFaxEncode|FlateEncode|RunLengthEncode)
MonoImageResolution \d+
NOCIE true
+ NODISPLAY true
NOEPS true
NOINTERPOLATE true
NOPSICC true
@@ -628,9 +633,9 @@
my $ok = 0;
if ($gsopt =~ /^-[dD]([A-Za-z0-9]+)(=(.*))?$/) {
my $name = $1;
- my $value = $2;
+ my $value = $3;
$value = 'true' if not defined $value;
- if ($optcheck{$name} and $value =~ /^$optcheck{$name}$/) {
+ if ($optcheck{$name} and $value =~ /^($optcheck{$name})$/) {
$ok = 1;
}
else {
Modified: trunk/Master/texmf-dist/doc/man/man1/epstopdf.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/epstopdf.1 2017-09-16 20:47:20 UTC (rev 45322)
+++ trunk/Master/texmf-dist/doc/man/man1/epstopdf.1 2017-09-16 20:47:39 UTC (rev 45323)
@@ -1,5 +1,5 @@
.TH EPSTOPDF 1 "7 January 2017"
-.\" $Id: epstopdf.1 41288 2016-05-29 16:50:38Z karl $
+.\" $Id: epstopdf.1 42895 2017-01-08 00:10:22Z karl $
.SH NAME
epstopdf, repstopdf \- convert an EPS file to PDF
.SH SYNOPSIS
Modified: trunk/Master/texmf-dist/doc/man/man1/epstopdf.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/repstopdf.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/support/epstopdf/README
===================================================================
--- trunk/Master/texmf-dist/doc/support/epstopdf/README 2017-09-16 20:47:20 UTC (rev 45322)
+++ trunk/Master/texmf-dist/doc/support/epstopdf/README 2017-09-16 20:47:39 UTC (rev 45323)
@@ -1,9 +1,9 @@
-$Id: README 32701 2014-01-17 18:09:54Z karl $
+$Id: README 42921 2017-01-10 23:39:44Z karl $
This file is public domain. (Originally written by Karl Berry, 2009.)
This is the README for the epstopdf script distribution.
-Primary distribution point: http://mirror.ctan.org/support/epstopdf/
+Primary distribution point: http://ctan.org/pkg/epstopdf
(list of mirrors at: http://ctan.org/mirrors)
Home page: http://tug.org/epstopdf/
@@ -15,7 +15,12 @@
options, so the problem can be reproduced.
-------------------------------------------------------------------------
-The test-binary and test-bin2 files were supplied by Akira Kakuto and
+Various test files and a Makefile to exercise them are in the source
+repository, which is currently a subdirectory of the texlive Subversion
+repo, purely for the developers' convenience:
+ http://tug.org/svn/texlive/trunk/Build/source/extra/epstopdf/
+
+The test-binary and test-bin2 files there were supplied by Akira Kakuto and
Reinhard Kotucha. They contain binary data. They are public domain.
The test-binhdr* files were supplied by Martin von Gagern, constructed
Modified: trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl 2017-09-16 20:47:20 UTC (rev 45322)
+++ trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl 2017-09-16 20:47:39 UTC (rev 45323)
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: epstopdf.pl 41577 2016-06-30 16:38:01Z karl $
+# $Id: epstopdf.pl 45306 2017-09-14 21:41:37Z karl $
# (Copyright lines below.)
#
# Redistribution and use in source and binary forms, with or without
@@ -35,7 +35,11 @@
#
# emacs-page
#
-my $ver = "2.26";
+my $ver = "2.27";
+# 2017/09/14 v2.27 (Karl Berry)
+# * extract value from --gsopt with $3 not $2 (extra regexp group
+# added previously), and check it with ^(...)$ so anchors apply to all.
+# (report to Karl from Yannick Berker, 7 Sep 2017 14:07:09.)
# 2017/01/07 v2.26 (Norbert Preining, Karl Berry)
# * allow cmdline of infile outfile.pdf.
# * explicitly allow -o as abbreviation for --outfile,
@@ -183,7 +187,7 @@
### emacs-page
### program identification
my $program = "epstopdf";
-my $ident = '($Id: epstopdf.pl 41577 2016-06-30 16:38:01Z karl $)' . " $ver";
+my $ident = '($Id: epstopdf.pl 45306 2017-09-14 21:41:37Z karl $)' . " $ver";
my $copyright = <<END_COPYRIGHT ;
Copyright 2009-2017 Karl Berry et al.
Copyright 2002-2009 Gerben Wierda et al.
@@ -295,6 +299,7 @@
MonoImageFilter /(CCITTFaxEncode|FlateEncode|RunLengthEncode)
MonoImageResolution \d+
NOCIE true
+ NODISPLAY true
NOEPS true
NOINTERPOLATE true
NOPSICC true
@@ -628,9 +633,9 @@
my $ok = 0;
if ($gsopt =~ /^-[dD]([A-Za-z0-9]+)(=(.*))?$/) {
my $name = $1;
- my $value = $2;
+ my $value = $3;
$value = 'true' if not defined $value;
- if ($optcheck{$name} and $value =~ /^$optcheck{$name}$/) {
+ if ($optcheck{$name} and $value =~ /^($optcheck{$name})$/) {
$ok = 1;
}
else {
More information about the tex-live-commits
mailing list