summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/pst2pdf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-12-15 02:01:37 +0000
committerKarl Berry <karl@freefriends.org>2011-12-15 02:01:37 +0000
commit45b9ab369ae1508758c6596c963db163fbb9700a (patch)
treeaa551a8e6fa82166ea3675889b143abf6a3c8d90 /Master/texmf-dist/scripts/pst2pdf
parentc036275403fa8fef1df0533f4d48ef8cf2288401 (diff)
pst2pdf (13dec11)
git-svn-id: svn://tug.org/texlive/trunk@24845 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/pst2pdf')
-rwxr-xr-xMaster/texmf-dist/scripts/pst2pdf/pst2pdf495
1 files changed, 286 insertions, 209 deletions
diff --git a/Master/texmf-dist/scripts/pst2pdf/pst2pdf b/Master/texmf-dist/scripts/pst2pdf/pst2pdf
index 6b6ab985429..da0aba08e4d 100755
--- a/Master/texmf-dist/scripts/pst2pdf/pst2pdf
+++ b/Master/texmf-dist/scripts/pst2pdf/pst2pdf
@@ -3,11 +3,11 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $
use strict; # to be sure, that all is safe ... :-)
-# v. 0.11 simplify the use of PSTricks with pdf
-# 2011-01-18 (c) Herbert Voss <hvoss@tug.org>
-# $Id: pst2pdf.pl 239 2010-01-01 17:23:13Z herbert $
-# Thanks to Pablo Gonzales Luengo
-#
+# $Id: pst2pdf.pl 611 2011-12-14 08:41:35Z herbert $
+# v. 0.13 simplify the use of PSTricks with pdf
+# 2011-12-12 (c) Herbert Voss <hvoss@tug.org>
+# Pablo González Luengo and http://perlenespanol.com
+#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or (at
@@ -28,44 +28,126 @@ use File::Copy; # copying files
use File::Basename; # scan argument
use IO::File; # simple IO operation
use Getopt::Long; # read parameter
-
#----------------------- User part begin ------------------------
my $imageDir = "images"; # where to save the images
-my @imageType = ("eps","pdf"); # all image types
-my $machine = "Linux";
-if ($^O eq 'MSWin32') { $machine = "Windows"; }
-else { push (@imageType, "png"); }
my $Iext = ".pdf"; # leave empty, if not a special one
my $tempDir = "."; # temporary directory
my $verbose = 1; # 0 or 1, logfile
my $clear = 0; # 0 or 1, clears all temporary files
my $DPI = 75; # very low value for the png's
-my $Iscale = 1; # for \includegraphics
+my $Iscale = 1; # for \includegraphics
my $noImages = 0; # 1->create no images
my $runBibTeX = 0; # 1->runs bibtex
my $runBiber = 0; # 1->runs biber and sets $runBibTeX=0
+my $ppm = 0; # 1->create .ppm files
+my $norun = 0; # 1->runs pdflatex
+my $miktex = 0; # 1->runs pdlatex for miktex
+my $eps = 0; # 1->create .eps files
#----------------------- User part end ---------------------------
-
-@ARGV == 0 && die "file name expected!\n";
-
-my @SuffixList = (".tex","",".ltx"); # possible extensions
+#----------------------- program identification, options and help
+my $program = "pst2pdf";
+my $ident = '$Id: pst2pdf.pl 611 2011-12-14 08:41:35Z herbert $';
+my $copyright = <<END_COPYRIGHT ;
+Copyright 2011-01-18 (c) Herbert Voss <hvoss\@tug.org>
+END_COPYRIGHT
+my $licensetxt= <<END_LICENSE ;
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful, but
+ WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ MA 02111-1307 USA
+END_LICENSE
+my $title = "$program $ident\n";
+my $usage = <<"END_OF_USAGE";
+${title}Usage: $program <texfile[,tex]> [Options]
+pst2pdf run a TeX source, and convert all PS-related part as
+ single images (pdf and/or eps and/or png and/or ...)
+ and then runs pdflatex. See pst2pdf documentation for more info
+Options:
+ --help - display this help and exit
+ --version - display version information and exit
+ --license - display license information and exit
+ --imageDir - the dir for the created images (default images)
+ --DPI=<int> - the dots per inch for a cretaed ppm files (default 75)
+ --ppm - create .ppm files
+ --eps - create .eps files
+ --Iscale=<real> - the value for [scale=] in \\includegraphics
+ --verbose - long log
+ --clear - delete all temp files
+ --norun - create file-pdf.tex, but, no run pdflatex
+ --runBibTeX - run bibtex on the aux file, if exists
+ --runBiber - run biber on the bcf file, if exists
+ --miktex - for miktex users -enable-write18
+Examples:
+* $program test.tex --clear --ppm --eps
+* produce test-pdf.tex and .ppm,.eps,.tex and .pdf for all images in image dir
+END_OF_USAGE
+#
+my $result=GetOptions (
+ "help",
+ "version",
+ "license",
+ "DPI=i" => \$DPI, # numeric
+ "Iscale=f" => \$Iscale, # real
+ "imageDir=s" => \$imageDir, # string
+ "tempDir=s" => \$tempDir, # string
+ "Iext=s" => \$Iext, # string
+ "clear" => \$clear, # flag
+ "noImages" => \$noImages, # flag
+ "runBibTeX" => \$runBibTeX, # flag
+ "ppm" => \$ppm, # flag
+ "norun" => \$norun, # flag
+ "miktex" => \$miktex, # flag
+ "eps" => \$eps, # flag
+ "runBiber" => \$runBiber, # flag
+ "verbose" => \$verbose,
+) or die $usage;
+# help functions
+sub debug { print STDERR "* @_\n" if $::opt_debug; }
+sub warning { print STDERR "==> Warning: @_\n"; }
+sub error { die "$title!!! Error: @_\n"; }
+sub errorUsage { die "Error: @_ (try --help for more information)\n"; }
+# options for command line
+if ($::opt_help) {
+ print $usage;
+ exit (0);
+}
+if ($::opt_version) {
+ print $title;
+ print $copyright;
+ exit (0);
+}
+if ($::opt_license) {
+ print $licensetxt;
+ exit (0);
+}
+# open file
+my $InputFilename = "";
+if ($::opt_filter) {
+ @ARGV == 0 or
+ errorUsage "Input file cannot be used with filter option";
+ debug "Filtering: will read standard input";
+} else {
+ @ARGV > 0 or errorUsage "Input filename missing";
+ @ARGV < 2 or errorUsage "Unknown option or too many input files";
+ $InputFilename = $ARGV[0];
+ debug "Input filename:", $InputFilename;
+}
+my @SuffixList = (".tex","",".ltx"); # possible extensions
my ($name,$path,$ext) = fileparse($ARGV[0],@SuffixList);
-if ( $ext eq "" ) { $ext = ".tex"; } # me need the extension as well
+if ($ext eq "") { $ext = ".tex"; } # me need the extension as well
my $TeXfile = "$path$name$ext";
-my $Logfile = "$tempDir/$name.plog"; # our own log file
-open (LOGfile, ">$Logfile") or die "cannot open $Logfile!";
-
-my $result = GetOptions ("DPI=i" => \$DPI, # numeric
- "Iscale=f" => \$Iscale, # real
- "imageDir=s" => \$imageDir, # string
- "tempDir=s" => \$tempDir, # string
- "Iext=s" => \$Iext, # string
- "clear" => \$clear, # flag
- "noImages" => \$noImages, # flag
- "runBibTeX" => \$runBibTeX, # flag
- "runBiber" => \$runBiber, # flag
- "verbose" => \$verbose); # flag
-
+my $Logfile = "$tempDir/$name.plog"; # our own log file
+open (LOGfile,">$Logfile") or die "cannot open $Logfile!";
LOG ("Parameters:");
LOG ("==> imageDir = $imageDir");
LOG ("==> Iext = $Iext");
@@ -77,61 +159,108 @@ LOG ("==> clear = $clear");
LOG ("==> noImages = $noImages");
LOG ("==> runBibTeX= $runBibTeX");
LOG ("==> runBiber = $runBiber");
+LOG ("==> ppm = $ppm");
+LOG ("==> norun = $norun");
+LOG ("==> miktex = $miktex");
+LOG ("==> eps = $eps");
if ($runBibTeX && $runBiber) {
LOG ("!!! you cannot run BibTeX and Biber at the same document ...");
LOG ("!!! Assuming to run Biber");
$runBibTeX = 0;
}
+if ($ppm) {
+ LOG ("Generate .ppm files ...");
+ $ppm = 1;
+}
+if ($norun) {
+ LOG ("no compile file-pdf.tex");
+ $norun = 1;
+}
+if ($miktex) {
+ LOG ("enable write 18 ...");
+ $miktex = 1;
+}
+if ($eps) {
+ LOG ("Generate .eps files ...");
+ $eps = 1;
+}
-my $imgNo = 0; # internal image counter
-my $pstExaLoaded = 0; # Document loads pst-exa
+my $imgNo = 1; # internal image counter
+my $pstExaLoaded = 0; # Document loads pst-exa
LOG ("Running on [$path][$name][$ext]");
open (FILE, "<$TeXfile") or die "cannot open source file $TeXfile!"; # the source
-if ( !$noImages ) {
+if (!$noImages ) {
if (-d $imageDir) { LOG ("$imageDir exists") }
else { mkdir("$imageDir", 0744) || die "cannot mkdir $imageDir: $!";
- LOG ("Imagedir created"); }
-
- LOG ("go to savePreamble ... ");
- savePreamble($name);
- LOG ("done!\n go to runFile ...");
- runFile($name);
- LOG ("done!");
- close FILE; # close source file
+LOG ("Imagedir created"); }
+LOG ("go to savePreamble ... ");
+savePreamble($name);
+runBurst("$tempDir");
+LOG ("done!\n go to runFile ...");
+runFile($name);
+LOG ("done!");
+close FILE; # close source file
}# !noImages
-
+#------------ Create filename-pics.pdf, split and generate .ppm
+sub runBurst{
+if ($miktex){system("pdflatex -enable-write18 -interaction=nonstopmode $tempDir/$name");}
+else{system("pdflatex -shell-escape -interaction=nonstopmode $tempDir/$name");}
+system("pdftk $name-pics.pdf burst output $imageDir/$name-tmp-\%1d.pdf");
+if ($ppm){system("pdftoppm -r $DPI $name-pics.pdf $imageDir/$name-tmp");
+# Renaming .ppm neded for windows
+if ($^O eq 'MSWin32') {
+my $dren = "$tempDir/$imageDir";
+my $fichero = '';
+my $ppmren = '';
+my $renNo = 1;
+if(opendir(DIR,$dren)){
+ foreach (readdir DIR){
+ $fichero = $_;
+ if ($fichero =~ /([^\d]+)(\d+).ppm/){
+ my $renNo=int($2);
+ my $newname="$1$renNo.ppm";
+ $ppmren = rename("$dren/$fichero","$dren/$newname");
+ }
+ }
+ }
+ else
+ {
+ print "dont open".$dren;
+ }
+closedir DIR;
+}
+# end renaming
+}
+}
+#------------ end pdftk burst
LOG ("runpdfTeX ... ");
runpdfTeX("$path$name",$name);
LOG ("all finished ... :-)");
close LOGfile;
-if ( $clear ) {
- unlink "$path$name.aux";
- unlink "$path$name.log";
- unlink "$path$name.preamble";
- unlink "$path$name-tmp.aux";
- unlink "$path$name-tmp.dvi";
- unlink "$path$name-tmp.log";
- unlink "$path$name-tmp.pdf";
- unlink "$path$name-tmp.ps";
- unlink "$path$name-tmp.tex";
-}
-sub savePreamble { # create a preamble file
+if ( $clear ) {
+unlink "$path$name.txt";
+unlink "$path$name.log";
+unlink "$path$name.plog";
+unlink "$path$name.preamble";
+unlink "$path$name.pdf";
+ }
+# create a preamble file
# if we have a \input command inside the preamble, it doesn't hurt, we need
# it anyway for the postscript files and the pdf one.
- my $filename = pop; # get the file name
+sub savePreamble {
+ my $filename = pop; # get the file name
LOG ("----- Start Preamble -----");
open (FILEp, ">$tempDir/$filename.preamble")
or die "cannot open preamble file $tempDir/$filename.preamble!";
- while (<FILE>) { # read all until \begin{document}
+ while (<FILE>) { # read all until \begin{document}
$pstExaLoaded = index($_,"usepackage{pst-exa}");
my $i = index($_,"begin{document}");
if ($i > 0) {
if ($i > 1) { print FILEp substr($_,0,--$i); } # write all until \begin{document}
- print FILEp "\n\\usepackage{pst-exa}\n";
close(FILEp); # close preamble
LOG ("----- Close Preamble ------");
return;
@@ -145,25 +274,25 @@ sub savePreamble { # create a preamble file
return;
}
-sub searchPS { # search the PostScript parts
- my @PS = (); # single PS sequence
- my @PStotal = (); # all PS sequences as list of arrays
- my $depth = -1; # counts nested macros
- my $type = -1; # -1-> none; 1->PST; 2->PS;
- my $EndDocument = 0; # ignore all after \end{document}
- my $iVerb = 0; # test for verbatim or lstlisting environment, must be ignored
- while (<FILE>) { # scan the input file
+sub searchPS { # search the PostScript parts
+ my @PS = (); # single PS sequence
+ my @PStotal = (); # all PS sequences as list of arrays
+ my $depth = -1; # counts nested macros
+ my $type = -1; # -1-> none; 1->PST; 2->PS;
+ my $EndDocument = 0; # ignore all after \end{document}
+ my $iVerb = 0; # test for verbatim or lstlisting environment, must be ignored
+ while (<FILE>) { # scan the input file
if (!$EndDocument) {
- chomp; # delete EOL character
- my $line = $_; # save line
+ chomp; # delete EOL character
+ my $line = $_; # save line
if ( !$iVerb ) {
$iVerb = ((index($line,"begin{verbatim}") > 0) or (index($line,"begin{lstlisting}") > 0));
- } # do nothing until \end{verbatim}
+ } # do nothing until \end{verbatim}
if ( !$iVerb ) {
my $iPS = index($line,"begin{postscript}");
my $iPST = index($line,"begin{pspicture*}");
if ($iPST < 0) { $iPST = index($line,"begin{pspicture}"); } # alternative
- if ($iPST < 0) { $iPST = index($line,"pspicture"); } # alternative \pspicture...
+ if ($iPST < 0) { $iPST = index($line,"pspicture"); } # alternative \pspicture...
if (($iPS > 0) && ( $type == 1 )){ print "postscript environment must be of outer level!\n"; exit 1; }
if ( $type < 0 ) { # no active environment
if ($iPS > 0) { # we have \begin{postscript}
@@ -171,30 +300,30 @@ sub searchPS { # search the PostScript parts
$line = substr($line,$iPS-1); # add rest of the line
LOG("PS-Zeile: $line");
}
- elsif ( $iPST > 0 ) { # we have \begin{pspicture} or \pspicture
+ elsif ( $iPST > 0 ) { # we have \begin{pspicture} or \pspicture
$type = 1;
$depth++;
$line = substr($line,$iPST-1); # add all unitl pspicture
LOG("PST-Zeile: $line");
}
}
-# we have now \begin{pspicture} or \begin{postscript}
- if ($type > 0) { # start Scan, we have an environment
+# we have now \begin{pspicture} or \begin{postscript}
+ if ($type > 0) { # start Scan, we have an environment
LOG ("searchPS: set \$type=$type");
$iPST = index($line,"end{pspicture*}");
if ($iPST < 0) { $iPST = index($line,"end{pspicture}"); } # alternative
- if ($iPST < 0) { $iPST = index($line,"endpspicture"); } # alternative \endpspicture...
+ if ($iPST < 0) { $iPST = index($line,"endpspicture"); } # alternative \endpspicture...
$iPS = index($line,"end{postscript}");
- if ($iPST > 0) { # test, we can have postscript and pspicture in one line
- if ( $type < 2) { # found end of pspicture environment
+ if ($iPST > 0) { # test, we can have postscript and pspicture in one line
+ if ( $type < 2) { # found end of pspicture environment
LOG ("searchPS: $line");
$depth--;
if ($depth < 0) {
$type = -1;
- if (index($line,"endpspicture") > 0) # add line, depends to type
+ if (index($line,"endpspicture") > 0) # add line, depends to type
{ push @PS,substr($line,0,$iPST+12); } # \endpspicture
elsif (index($line,"pspicture*") > 0)
- { push @PS,substr($line,0,$iPST+15); } # \end{pspicture}
+ { push @PS,substr($line,0,$iPST+15); }# \end{pspicture}
else { push @PS,substr($line,0,$iPST+14); } # \end{pspicture}
LOG ("searchPS: set \$type=$type");
push @PStotal,[@PS]; # add PS sequence
@@ -205,16 +334,16 @@ sub searchPS { # search the PostScript parts
} elsif ($iPS > 0) { # must be type=1 -> stop Scan
LOG ("searchPS: $line");
$type = -1;
- push @PS,substr($line,0,$iPS+15);# add line
+ push @PS,substr($line,0,$iPS+15); # add line
LOG ("searchPS: set \$type=$type");
- push @PStotal,[@PS]; # add PS sequence
+ push @PStotal,[@PS]; # add PS sequence
LOG ("---->PS---->\n@PS\n<----PS<----");
- @PS = (); # start new PS sequence
- } else { push @PS,$line; } # add line
+ @PS =(); # start new PS sequence
+ } else { push @PS,$line; } # add line
}
my $i = index($line,"end{document}");
if ($i > 0) { $EndDocument++; LOG("EndDocument in searchPS"); }
- } # if ( $iVerb )
+ } # if ( $iVerb )
if (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; }
}}
if ( $verbose ) {
@@ -227,30 +356,18 @@ sub searchPS { # search the PostScript parts
LOG ("<----PStotal<----");
}
close(FILE);
- return @PStotal; # return all PS sequences
+ return @PStotal; # return all PS sequences
}
-sub runTeX {
+# Creating subfiles.tex and .eps for images
+sub runTeX{
my $filename = pop;
- system("latex $filename"); # or die "Error in the LaTeX run from file $filename!";
- system("dvips $filename"); # or die "Error in the dvips run from file $filename!";
- system("ps2pdf $filename.ps");# or die "Error in the ps2pdf run from file $filename!";
- copy("$filename.tex", "$imageDir/$filename-$imgNo.tex") or die "Cannot copy Source file!";;
- for my $Itype ( @imageType ) {
- if ($Itype eq "pdf") { system("pdfcrop $filename.pdf $imageDir/$filename-$imgNo.pdf"); }
- if ($Itype eq "png") {
- system("pdftoppm -f 1 -l 1 -r $DPI $imageDir/$filename-$imgNo.pdf $imageDir/");
- system("convert $imageDir/-1.ppm $imageDir/$filename-$imgNo.png");
- system("rm $imageDir/-1.ppm");
- }
- if ($Itype eq "jpg") {
- system("pdftoppm -f 1 -l 1 -r $DPI $imageDir/$filename-$imgNo.pdf $imageDir/");
- system("convert $imageDir/-1.ppm $imageDir/$filename-$imgNo.jpg");
- system("rm $imageDir/-1.ppm");
- }
- if ($Itype eq "eps") { system("pdftops -f 1 -l 1 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps"); }
- }
- $imgNo++;
+ my $name = "$filename";
+ copy("$filename.tex", "$imageDir/$filename-$imgNo.tex") or die "Cannot copy Source file!";
+ if ($eps){
+ system("pdftops -level3 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps");
+ }
+$imgNo=$imgNo+1;
}
sub runFile {
@@ -269,13 +386,10 @@ sub runFile {
}
for my $aref ( @PSarray ) {
my @PS = @$aref;
- open (FILEp, "<$tempDir/$filename.preamble") or die "cannot open $tempDir/$filename.preamble!";
- open (FILEsub, ">$tempDir/$filename-tmp.tex") or die "cannot open $tempDir/$filename-tmp.tex!";
- #print FILEsub "\\RequirePackage{listings}\n";
- while (<FILEp>) { print FILEsub $_; }
+ open (FILEp,"<$tempDir/$filename.preamble") or die "cannot open $tempDir/$filename.preamble!";
+ open (FILEsub,">$tempDir/$filename-tmp.tex") or die "cannot open $tempDir/$filename-tmp.tex!";
+ while (<FILEp>) {print FILEsub $_; }
print FILEsub "\\pagestyle{empty}\n";
- print FILEsub "\\newenvironment{postscript}{}{}\n";
- print FILEsub "\\providecommand\\IncludeGraphics[2][]{}\n";
print FILEsub "\\begin{document}\n";
if ( $verbose ) { LOG("\@PS: $_"); }
foreach ( @PS ) { print FILEsub "$_\n"; }
@@ -285,24 +399,18 @@ sub runFile {
runTeX("$tempDir/$filename-tmp");
}
}
-
+# Replace files
sub runpdfTeX() {
my ($name,$pdfname) = @_;
open (PDF, ">$tempDir/$pdfname-pdf.tex") or die "cannot open $tempDir/$pdfname-pdf.tex!";
open (FILE, "<$name.tex") or die "cannot open $name!";
- print PDF "\\RequirePackage{graphicx}\n";
- #if ($pstExaLoaded < 1) {
- print PDF "\\let\\IncludeGraphics\\includegraphics\n"; #}
-# print PDF "\\setkeys{Gin}{scale=0.25}\n";
-# print PDF "\\providecommand\\psset[1]{}\n";
- print PDF "\\graphicspath{{$imageDir/}}\n"; #uncomment
my $ignore = 0;
- my $IMGno = 0;
+ my $IMGno = 1;
my $depth = -1;
my $type = -1;
- my $EndDocument = 0; # ignore all after \end{document}
+ my $EndDocument = 0; # ignore all after \end{document}
my $iVerb = 0;
- while (<FILE>) { # scan the input file
+ while (<FILE>) { # scan the input file
if ( !$iVerb ) {
$iVerb = ((index($_,"begin{verbatim}") > 0) or (index($_,"begin{lstlisting}") > 0));
} # do nothing until \end{verbatim}|| \end{lstlisting}
@@ -315,40 +423,39 @@ sub runpdfTeX() {
$type = 2;
$ignore = 1;
if ($iPS > 1) { print PDF substr($_,0,--$iPS); } # add preceeding text
- print PDF "\\IncludeGraphics[scale=$Iscale]{$pdfname-tmp-$IMGno$Iext}"; #change name x pdfname
- $IMGno++;
+ print PDF "\\includegraphics[scale=$Iscale]{$pdfname-tmp-$IMGno}"; # use pdfname
+ $IMGno=$IMGno+1;
} # postscript env
if ( $type < 2 ) {
my $iPST = index($_,"begin{pspicture*}");
if ($iPST < 0) { $iPST = index($_,"begin{pspicture}"); } # alternative ...
- if ($iPST < 0) { $iPST = index($_,"\\pspicture"); } # alternative \endpspicture...
- if ( $iPST >= 0 ) { # start Scan
+ if ($iPST < 0) { $iPST = index($_,"\\pspicture"); } # alternative \endpspicture...
+ if ( $iPST >= 0 ) { # start Scan
$ignore = 1;
$type = 1;
- $depth++; # pspicture env
+ $depth++; # pspicture env
LOG("Increase depth: $depth");
if ( $depth == 0 ) {
- if ($iPST > 1) { print PDF substr($_,0,--$iPST); }# add preceeding text
- # print PDF "\\IncludeGraphics[scale=$Iscale]{$imageDir/$pdfname-tmp-$IMGno$Iext}"; #change name x pdfname
- print PDF "\\IncludeGraphics[scale=$Iscale]{$pdfname-tmp-$IMGno$Iext}"; # use \graphicspath
- $IMGno++;
+ if ($iPST > 1) { print PDF substr($_,0,--$iPST); } # add preceeding text
+ print PDF "\\includegraphics[scale=$Iscale]{$pdfname-tmp-$IMGno}"; # use \graphicspath
+ $IMGno=$IMGno+1;
LOG("Increase Image counter: $IMGno");
}
}
}
- if ( !$ignore ) { print PDF "$_"; } # default line
- if ( $type == 2 ) { # postscript env
+ if ( !$ignore ) { print PDF "$_"; } # default line
+ if ( $type == 2 ) { # postscript env
my $iPS = index($_,"end{postscript}");
if ($iPS > 0) {
- print PDF substr($_,$iPS+15); # rest of line
+ print PDF substr($_,$iPS+15); # rest of line
$ignore = 0;
$type=-1;
- } # end Scan
+ } # end Scan
} elsif ( $type == 1 ) { # pspicture env
my $iPST = index($_,"end{pspicture*}");
- if ($iPST < 0) { $iPST = index($_,"end{pspicture}"); }# alternative ...
- if ($iPST < 0) { $iPST = index($_,"endpspicture"); } # alternative \endpspicture...
- if ($iPST > 0) { # end Scan
+ if ($iPST < 0) { $iPST = index($_,"end{pspicture}"); } # alternative ...
+ if ($iPST < 0) { $iPST = index($_,"endpspicture"); } # alternative \endpspicture...
+ if ($iPST > 0) { # end Scan
if (index($_,"endpspicture") > 0) # add rest of line, depends to type
{ print PDF substr($_,$iPST+12); } # \endpspicture
elsif (index($_,"pspicture*") > 0)
@@ -365,83 +472,53 @@ sub runpdfTeX() {
} # while (<FILE>)
close (FILE);
close (PDF);
- my $runAgain = 0;
- system("pdflatex $tempDir/$pdfname-pdf");
- if (-e "$tempDir/$pdfname-pdf.idx") { system("makeindex $tempDir/$pdfname-pdf.idx"); $runAgain++; }
- if ($runBibTeX && -e "$tempDir/$pdfname-pdf.aux") { system("bibtex $tempDir/$pdfname-pdf"); $runAgain++; }
- if ($runBiber && -e "$tempDir/$pdfname-pdf.bcf") { system("biber $tempDir/$pdfname-pdf"); $runAgain++; }
- if ($runAgain) { system("pdflatex $tempDir/$pdfname-pdf"); }
- if ( $clear ) {
- unlink "$tempDir/$pdfname-pdf.log";
- unlink "$tempDir/$pdfname-pdf.aux";
- }
+# Coment pst-package
+ open (IPDF, "<$tempDir/$pdfname-pdf.tex");
+ undef $/; # read all file
+ my ($uno,$dos) = split(/\\begin\{document\}/,<IPDF>,2);
+ close IPDF;
+
+ my @coment = split /\n/, $uno; # split in two
+ my @preamb;
+
+ foreach my $line (@coment) {
+ chomp($line);
+ $line =~ s/\\usepackage(?:\[.+?\])?\{pst.+?}//g; # delete
+ $line =~ s/\\usepackage(?:\[.+?\])?\{psfr.+?}//g; # delete
+ $line =~ s/(\\usepackage(?:\[.+?\])?)\{auto-pst.+?}//g; # delete
+ $line =~ s/(\\usepackage(?:\[.+?\])?)\{vaucanson-.+?}//g; # delete
+ $line =~ s/(\\usepackage(?:\[.+?\])?)\{psgo}//g; # delete
+ $line =~ s/(\\usepackage(?:\[.+?\])?)\{graph/\%$1\{graph/g; # comment
+ next if $line =~ m/^\s*$/;
+ push(@preamb,$line); # adding changes
+}
+my $clean = join("\n", @preamb, "\\usepackage{grfext}\n\\\PrependGraphicsExtensions*{$Iext}\n\\usepackage{graphicx}\n\\graphicspath{{$imageDir/}}\n\\begin{document}\n". $dos);
+
+open (OPDF,">$tempDir/$pdfname-pdf.tex"); # write changes
+print OPDF $clean;
+close OPDF;
+# close coment pst-package
+
+my $runAgain = 0;
+if ($norun){print "Done\n";}
+else {system("pdflatex -interaction=nonstopmode $pdfname-pdf");}
+if (-e "$tempDir/$pdfname-pdf.idx") { system("makeindex $tempDir/$pdfname-pdf.idx"); $runAgain++; }
+if ($runBibTeX && -e "$tempDir/$pdfname-pdf.aux") { system("bibtex $tempDir/$pdfname-pdf"); $runAgain++; }
+if ($runBiber && -e "$tempDir/$pdfname-pdf.bcf") { system("biber $tempDir/$pdfname-pdf"); $runAgain++; }
+if ($runAgain) { system("pdflatex $tempDir/$pdfname-pdf"); }
+if ( $clear ) {
+ unlink "$name.txt";
+ unlink "$tempDir/$name.aux";
+ unlink "$tempDir/$pdfname-pdf.log";
+ unlink "$tempDir/$pdfname-pdf.aux";
+ unlink "$tempDir/$pdfname-pdf-autopp.txt";
+ unlink "$tempDir/$pdfname-pics.pdf";
+ unlink "$tempDir/doc_data.txt";
+ unlink "$tempDir/$pdfname-tmp.tex";
+ }
}
sub LOG() {
if ( $verbose ) { print LOGfile "@_\n"; }
}
-
__END__
-
-=head1 NAME
-
-B<pst2pdf> - run a TeX source, and convert all PS-related part as single images
- (pdf and/or eps and/or png and/or ...) and then runs pdflatex.
-
-=head1 SYNOPSIS
-
- pst2pdf.pl <texfile[,tex]> [Options]
-
-TODO
-
-=head1 DESCRIPTION
-
-runs latex and pdflatex on the TeX source file
-
-=head1 OPTIONS
-
-=over
-
-=item --imageDir - the dir for the created images
-
-=item --Iext=<.ext> - the extension for \includegraphics, can be empty
-
-=item --DPI=<int> - the dots per inch for a cretaed png file
-
-=item --Iscale=<real> - the value for \scale= in \includegraphics
-
-=item --tempDir=<dir> - temporary directory for the temp files
-
-=item --verbose - long log
-
-=item --clear - delete all temp files
-
-=item --noImages - create no images, build only pdf
-
-=item --runBibTeX - run bibtex on the aux file, if exists
-
-=item --runBiber - run biber on the bcf file, if exists
-
-=back
-
-=head1 AUTHORS
-
-Herbert Voss <hvoss@tug.org>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2007-2011 Herbert Voss <hvoss@tug.org>
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA