texlive[56149] trunk: pst2pdf (21aug20)
commits+karl at tug.org
commits+karl at tug.org
Fri Aug 21 23:01:17 CEST 2020
Revision: 56149
http://tug.org/svn/texlive?view=revision&revision=56149
Author: karl
Date: 2020-08-21 23:01:17 +0200 (Fri, 21 Aug 2020)
Log Message:
-----------
pst2pdf (21aug20)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl
trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes
trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib
trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.pdf
trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.tex
trunk/Master/texmf-dist/doc/latex/pst2pdf/test1-pdf.pdf
trunk/Master/texmf-dist/doc/latex/pst2pdf/test2-pdf.pdf
trunk/Master/texmf-dist/doc/latex/pst2pdf/test2.tex
trunk/Master/texmf-dist/doc/latex/pst2pdf/test3-pdf.pdf
trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl
Added Paths:
-----------
trunk/Master/texmf-dist/doc/latex/pst2pdf/README.md
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/latex/pst2pdf/README
Modified: trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl 2020-08-21 20:59:35 UTC (rev 56148)
+++ trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl 2020-08-21 21:01:17 UTC (rev 56149)
@@ -1,236 +1,487 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
- if 0;
+#!/usr/bin/env perl
+use v5.26;
-use strict; # to be sure, that all is safe ... :-)
-use v5.18;
-# $Id: pst2pdf.pl 119 2014-09-24 12:04:09Z herbert $
-# v. 0.18 2017-10-04 simplify the use of PSTricks with pdf
-# (c) Herbert Voss <hvoss at tug.org>
-# Pablo González Luengo <pablgonz at yahoo.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
-# 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
-#
-use re 'eval';
-use File::Path; # creating/removing dirs
-use File::Copy; # copying files
-use File::Basename; # scan argument
-use IO::File; # simple IO operation
-use Getopt::Long qw(:config bundling_override); # read parameter and activate "bundling"
-use autodie; # more safe
+############################# LICENCE ##################################
+# $Id: pst2pdf.pl 119 2014-09-24 12:04:09Z herbert $ #
+# v0.19 2020-08-16 simplify the use of PSTricks with pdf #
+# (c) Herbert Voss <hvoss at tug.org> #
+# Pablo González L <pablgonz at yahoo.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 3 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. #
+########################################################################
+
+use Getopt::Long qw(:config bundling_override no_ignore_case); # require_order
+use File::Spec::Functions qw(catfile devnull);
+use File::Basename;
+use Archive::Tar;
+use Data::Dumper;
+use FileHandle;
+use IO::Compress::Zip qw(:all);
+use File::Path qw(remove_tree);
+use File::Temp qw(tempdir);
+use POSIX qw(strftime);
+use File::Copy;
+use File::Find;
+use Env qw(PATH);
+use autodie;
use Config;
-use File::Spec;
-use File::Find;
+use Cwd;
+use if $^O eq 'MSWin32', 'Win32';
+use if $^O eq 'MSWin32', 'Win32::Console::ANSI'; # need for color :)
+use Term::ANSIColor;
-#----------------------- User part begin ------------------------
-my $tempDir = "."; # temporary directory
-my $imageDir = "images"; # where to save the images
-my $margins = "1"; # margins in pdfcrop
-my $Verbose = 0; # 0 or 1, logfile
-my $clear = 0; # 0 or 1, clears all temporary files
-my $DPI = 300; # very low value for the png's
-my $noImages = 0; # 1->no create images
-my $nopreview = 0; # 1->create images in nopreview mode
-my $runBibTeX = 0; # 1->runs bibtex
-my $runBiber = 0; # 1->runs biber and sets $runBibTeX=0
-my $jpg = 0; # 1->create .jpg files
-my $png = 0; # 1->create .png files
-my $ppm = 0; # 1->create .ppm files
-my $eps = 0; # 1->create .eps files
-my $svg = 0; # 1->create .svg files
-my $all = 0; # 1->create all images and files for type
-my $xetex = 0; # 1->Using (Xe)LaTeX for compilation.
-my $exacount = 1; # Counter for PSTexample
-my $noSource = 0; # Delete TeX source for images
-my $other = "other"; # search other verbatim environment
-#------------------------- User part end -------------------------------
+### Internal vars
+my $tempDir = tempdir( CLEANUP => 1); # temporary directory
+my $workdir = cwd; # current working dir
+my $imgdir = 'images'; # where to save the images
+my $margins = '1'; # margins in pdfcrop
+my $clear = 0; # 0 or 1, clears all temporary files
+my $dpi = '300'; # very low value for the png's
+my $runs = '1'; # set runs for compliler
+my $nocorp = 0; # 1->no crop pdf files created
+my $norun = 0; # 1->no create images
+my $noprew = 0; # 1->create images in nopreview mode
+my $runbibtex = 0; # 1->runs bibtex
+my $runbiber = 0; # 1->runs biber and sets $runbibtex=0
+my $all = 0; # 1->create all images and files for type
+my $xetex = 0; # 1->Using (Xe)LaTeX for compilation.
+my $luatex = 0; # 1->Using dvilualatex for compilation.
+my $latexmk = 0; # 1->Using latexmk for compiler output file.
+my $arara; # 1->Using arara for compiler output file.
+my $nosource = 0; # Delete TeX source for images
+my $srcenv; # write only source code of environments
+my $nopdf; # Don't create a pdf image files
+my $force; # try to capture \psset
+my $nocrop; # Don't crop image files
+my $zip; # compress files generated in .zip
+my $tar; # compress files generated in .tar.gz
+my $help; # help info
+my $version; # version info
+my $shell; # enable -shell-escape
+my $verbose = 0; # verbose info
+my @verb_env_tmp; # store verbatim environments
+my $tmpverbenv; # save verbatim environment
+my $myverb = 'myverb' ; # internal \myverb macro
+my $write18; # storing write18 for compiler in TeXLive and MikTeX
+my $gscmd; # ghostscript executable name
+my $gray; # gray scale ghostscript
+my $log = 0; # log file
+my $PSTexa = 0; # run extract PSTexample environments
+my $STDenv = 0; # run extract pspicture/psfrag environments
+my @currentopt; # storing current options for log file
+my %opts_cmd; # hash to store options for Getopt::Long and log
-#---------------- Program identification, options and help -------------
-my $program = 'pst2pdf';
-my $nv='v0.18';
-my $ident = '$Id: pst2pdf.pl 119 2017-09-11 12:04:09Z herbert $';
-my $copyright = <<END_COPYRIGHT ;
-Copyright 2011-2017 (c) Herbert Voss <hvoss\@tug.org> and Pablo González.
+### Script identification
+my $scriptname = 'pst2pdf';
+my $nv = 'v0.19';
+my $date = '2020-08-17';
+my $ident = '$Id: pst2pdf.pl 119 2020-08-16 12:04:09Z herbert $';
+
+### Log vars
+my $LogFile = "$scriptname.log";
+my $LogWrite;
+my $LogTime = strftime("%y/%m/%d %H:%M:%S", localtime);
+
+### Error in command line
+sub errorUsage {
+ my $msg = shift;
+ die color('red').'* Error!!: '.color('reset').$msg.
+ " (run $scriptname --help for more information)\n";
+ return;
+}
+
+### Extended error messages
+sub exterr {
+ chomp(my $msg_errno = $!);
+ chomp(my $msg_extended_os_error = $^E);
+ if ($msg_errno eq $msg_extended_os_error) {
+ $msg_errno;
+ }
+ else {
+ "$msg_errno/$msg_extended_os_error";
+ }
+}
+
+### Funtion uniq
+sub uniq {
+ my %seen;
+ return grep !$seen{$_}++, @_;
+}
+
+### Funtion array_minus
+sub array_minus(\@\@) {
+ my %e = map{ $_ => undef } @{$_[1]};
+ return grep !exists $e{$_}, @{$_[0]};
+}
+
+### Funtion to create hash begin -> BEGIN, end -> END
+sub crearhash {
+ my %cambios;
+ for my $aentra(@_){
+ for my $initend (qw(begin end)) {
+ $cambios{"\\$initend\{$aentra"} = "\\\U$initend\E\{$aentra";
+ }
+ }
+ return %cambios;
+}
+
+### Print colored info in screen
+sub Infocolor {
+ my $type = shift;
+ my $info = shift;
+ if ($type eq 'Running') {
+ print color('cyan'), '* ', color('reset'), color('green'),
+ "$type: ", color('reset'), color('cyan'), "$info\r\n", color('reset');
+ }
+ if ($type eq 'Warning') {
+ print color('bold red'), "* $type: ", color('reset'),
+ color('yellow'), "$info\r\n", color('reset');
+ }
+ if ($type eq 'Finish') {
+ print color('cyan'), '* ', color('reset'), color('magenta'),
+ "$type!: ", color('reset'), color('green'), "$info\r\n",color('reset');
+ }
+ return;
+}
+
+### Write Log line and print msg (common)
+sub Infoline {
+ my $msg = shift;
+ my $now = strftime("%y/%m/%d %H:%M:%S", localtime);
+ if ($log) { $LogWrite->print(sprintf "[%s] * %s\n", $now, $msg); }
+ say $msg;
+ return;
+}
+
+### Write Log line (no print msg and time stamp)
+sub Logline {
+ my $msg = shift;
+ if ($log) { $LogWrite->print("$msg\n"); }
+ return;
+}
+
+### Write Log line (time stamp)
+sub Log {
+ my $msg = shift;
+ my $now = strftime("%y/%m/%d %H:%M:%S", localtime);
+ if ($log) { $LogWrite->print(sprintf "[%s] * %s\n", $now, $msg); }
+ return;
+}
+
+### Write array env in Log
+sub Logarray {
+ my ($env_ref) = @_;
+ my @env_tmp = @{ $env_ref }; # dereferencing and copying each array
+ if ($log) {
+ if (@env_tmp) {
+ my $tmp = join "\n", map { qq/* $_/ } @env_tmp;
+ print {$LogWrite} "$tmp\n";
+ }
+ else {
+ print {$LogWrite} "Not found\n";
+ }
+ }
+ return;
+}
+
+### Extended print info for execute system commands using $ command
+sub Logrun {
+ my $msg = shift;
+ my $now = strftime("%y/%m/%d %H:%M:%S", localtime);
+ if ($log) { $LogWrite->print(sprintf "[%s] \$ %s\n", $now, $msg); }
+ return;
+}
+
+### Capture and execute system commands
+sub RUNOSCMD {
+ my $cmdname = shift;
+ my $argcmd = shift;
+ my $showmsg = shift;
+ my $captured = "$cmdname $argcmd";
+ Logrun($captured);
+ if ($showmsg eq 'show') {
+ if ($verbose) {
+ Infocolor('Running', $captured);
+ }
+ else{ Infocolor('Running', $cmdname); }
+ }
+ if ($showmsg eq 'only' and $verbose) {
+ Infocolor('Running', $captured);
+ }
+ # Run system system command
+ $captured = qx{$captured};
+ if ($log) { $LogWrite->print($captured); }
+ if ($? == -1) {
+ my $errorlog = "* Error!!: ".$cmdname." failed to execute (%s)!\n";
+ my $errorprint = "* Error!!: ".color('reset').$cmdname." failed to execute (%s)!\n";
+ if ($log) { $LogWrite->print(sprintf $errorlog, exterr); }
+ print STDERR color('red');
+ die sprintf $errorprint, exterr;
+ } elsif ($? & 127) {
+ my $errorlog = "* Error!!: ".$cmdname." died with signal %d!\n";
+ my $errorprint = "* Error!!: ".color('reset').$cmdname." died with signal %d!\n";
+ if ($log) { $LogWrite->print(sprintf $errorlog, ($? & 127)); }
+ print STDERR color('red');
+ die sprintf $errorprint, ($? & 127);
+ } elsif ($? != 0 ) {
+ my $errorlog = "* Error!!: ".$cmdname." exited with error code %d!\n";
+ my $errorprint = "* Error!!: ".color('reset').$cmdname." exited with error code %d!\n";
+ if ($log) { $LogWrite->print(sprintf $errorlog, $? >> 8); }
+ print STDERR color('red');
+ die sprintf $errorprint, $? >> 8;
+ }
+ if ($verbose) { print $captured; }
+ return;
+}
+
+### General information
+my $copyright = <<"END_COPYRIGHT" ;
+[$date] (c) Herbert Voss <hvoss\@tug.org> and Pablo González L <pablgonz\@yahoo.com>.
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.
-
-END_LICENSE
-my $version= <<END_VERSION ;
-${program} ${nv} ${ident}
+
+my $versiontxt= <<"END_VERSION" ;
+${scriptname} ${nv} ${ident}
${copyright}
END_VERSION
-my $title = "$program $nv $ident\n";
+
+### Standart info in terminal
+my $title = "$scriptname $nv - Running a PSTricks document with (pdf/xe/lua)latex [HV \& PG]\n";
+
+### Usage of script
+sub usage {
+find_ghostscript();
+
my $usage = <<"END_OF_USAGE";
-${title}Usage: $program <texfile.tex> [Options]
-pst2pdf run a TeX source, read all PS-related part and convert in images
- in pdf,eps,jpg or png format (default pdf) and create new file
- whitout pst-environment and runs (pdf/Xe)latex.
- See pst2pdf documentation for more info.
+${title}
+ pst2pdf is a Perl script which isolates all PostScript or PSTricks related
+ parts of the TeX document, read all postscript, pspicture, psgraph and
+ PSTexample environments, extract source code in standalone files and
+ converting them into image format. Create new file with all extracted
+ environments converted to \\includegraphics and runs (pdf/xe/lua)latex.
+
+Usage: $scriptname [<options>] <texfile>[.tex|.ltx]
+ $scriptname <texfile>[.tex|.ltx] [options]
+
+ If used without [<options>] the extracted environments are saved in
+ standalone files and converted to pdf image format in the "./images"
+ directory using "latex>dvips>ps2pdf" and "preview" package to process
+ <texfile> and "pdflatex" for compiler <texfile-pdf>.
+
Options:
- -h,--help - display this help and exit
- -l,--license - display license information and exit
- -v,--version - display version (current $nv) and exit
- -d,--dpi=<int> - the dots per inch for images (default 300)
- -j,--jpg - create .jpg files (need Ghostscript)
- -p,--png - create .png files (need Ghostscript)
- -e,--eps - create .eps files (need pdftops)
- -s,--svg - create .svg files (need pdf2svg)
- -P,--ppm - create .ppm files (need pdftoppm)
- -a,--all - create .(pdf,eps,jpg,png,ppm,svg) images
- -c,--clear - delete all temp and aux files
- -x,--xetex - using (Xe)LaTeX for create images
- -m,--margins=<int> - margins for pdfcrop (in bp) (default 1)
- -ni,--noimages - generate file-pdf.tex, but not images
- -np,--single - create images files whitout preview and Ghostscript
- -ns,--nosource - delete all source(.tex) for images files
- --imgdir=<string> - the folder for the created images (default images)
- --ignore=<string> - skip other verbatim environment (default other)
- --bibtex - run bibtex on the aux file, if exists
- --biber - run biber on the bcf file, if exists
- --Verbose - creates a long log file (.plog)
-
-Examples:
-* $program test.tex -e -p -j -c --imgdir=pics
-* produce test-pdf.tex whitout pstriks related parts and create image
-* dir whit all images (pdf,eps,png,jpg) and source (.tex) for all pst
-* environment in "pics" dir using Ghostscript and cleaning all tmp files.
-* suport bundling for short options $program test.tex -epjc --imgdir=pics
+ [default]
+ -l, --log Write .log file with debug information [off]
+ -h, --help Display command line help and exit [off]
+ -v, --version Display current version ($nv) and exit [off]
+ -V, --verbose Verbose printing information [off]
+ -t, --tif Create .tif files using ghostscript [$gscmd]
+ -b, --bmp Create .bmp files using ghostscript [$gscmd]
+ -j, --jpg Create .jpg files using ghostscript [$gscmd]
+ -p, --png Create .png files using ghostscript [$gscmd]
+ -e, --eps Create .eps files using poppler-utils [pdftops]
+ -s, --svg Create .svg files using poppler-utils [pdftocairo]
+ -P, --ppm Create .ppm files using poppler-utils [pdftoppm]
+ -g, --gray Gray scale for images using ghostscript [off]
+ -f, --force Try to capture \\psset{...} to extract [off]
+ -x, --xetex Using xelatex for compiler input and output [off]
+ -ns,--nosource Do not create standalone files [off]
+ -np, --noprew, --single
+ Create images files without preview package [off]
+ -ni,--norun, --noimages
+ Generate file-pdf.tex, but not images [off]
+ -d <integer>, --dpi <integer>
+ Dots per inch resolution for images [150]
+ -r <integer>, --runs <integer>
+ Set the number of times the compiler will
+ run on the input file for extraction [1]
+ -m <integer>, --margins <integer>
+ Set margins in bp for pdfcrop [0]
+ --myverb <macro> Add "\\macroname" to verbatim inline search [myverb]
+ --ignore <environment>
+ Add "environment" to verbatim environments [empty]
+ --srcenv Create files with only code environment [off]
+ --shell Enable \\write18\{SHELL COMMAND\} [off]
+ --nopdf Do not create images in pdf format [off]
+ --nocrop Does not run pdfcrop [off]
+ --imgdir <dirname> Set name of directory to save images/files [images]
+ --luatex Using dvilualatex>dvips>ps2pdf for compiler
+ input and lualatex for compiler output file [off]
+ --arara Use arara for compiler output file [off]
+ --latexmk Using latexmk for compiler output file [off]
+ --zip Compress generated files in .zip format [off]
+ --tar Compress generated files in .tar.gz format [off]
+ --bibtex Run bibtex on the .aux file (if exists) [off]
+ --biber Run biber on the .bcf file (if exists) [off]
+
+Example:
+\$ $scriptname -e -p --imgdir pics test.tex
+* Create a ./pics directory (if it doesn't exist) with all extracted
+* environments converted to individual files (.pdf, .eps, .png, .tex),
+* a file test-fig-all.tex with all extracted environments and the file
+* test-pdf.tex with all environments converted to \\includegraphics using
+* latex>dvips>ps2pdf and preview package for <test.tex> and pdflatex
+* for <test-pdf.tex>.
+
+See texdoc pst2pdf for full documentation.
END_OF_USAGE
-#
+print $usage;
+exit 0;
+}
+
+### Options in terminal
my $result=GetOptions (
- 'h|help' => \$::opt_help,
- 'v|version' => \$::opt_version,
- 'l|license' => \$::opt_license,
- 'd|dpi=i' => \$DPI,# numeric
- 'm|margins=i' => \$margins,# numeric
- 'imgdir=s' => \$imageDir, # string
- 'ignore=s' => \$other, # string
- 'c|clear' => \$clear, # flag
- 'ni|noimages' => \$noImages, # flag
- 'np|single' => \$nopreview, # flag
- 'bibtex' => \$runBibTeX,# flag
- 'e|eps' => \$eps, # flag
- 'j|jpg' => \$jpg, # flag
- 'p|png' => \$png, # flag
- 'P|ppm' => \$ppm, # flag
- 's|svg' => \$svg, # flag
- 'a|all' => \$all, # flag
- 'x|xetex' => \$xetex, # flag
- 'biber' => \$runBiber, # flag
- 'ns|nosource' => \$noSource, # flag
- 'Verbose' => \$Verbose,
-) or die $usage;
-#------------------------ Help functions --------------------------
-sub errorUsage {
- die "Error: @_ (try --help for more information)\n";
- }
+ 'h|help' => \$help, # flag
+ 'v|version' => \$version, # flag
+ 'l|log' => \$log, # flag
+ 'f|force' => \$force, # flag
+ 'd|dpi=i' => \$dpi, # numeric
+ 'runs=i' => \$runs, # numeric
+ 'm|margins=i' => \$margins, # numeric
+ 'imgdir=s' => \$imgdir, # string
+ 'myverb=s' => \$myverb, # string
+ 'ignore=s' => \$tmpverbenv, # string
+ 'c|clear' => \$clear, # flag
+ 'ni|norun|noimages' => \$norun, # flag
+ 'np|noprew|single' => \$noprew, # flag
+ 'bibtex' => \$runbibtex,# flag
+ 'biber' => \$runbiber, # flag
+ 'arara' => \$arara, # flag
+ 'latexmk' => \$latexmk, # flag
+ 'srcenv' => \$srcenv, # flag
+ 'nopdf' => \$nopdf, # flag
+ 'shell' => \$shell, # flag
+ 'nocrop' => \$nocrop, # flag
+ 'zip' => \$zip, # flag
+ 'tar' => \$tar, # flag
+ 'g|gray' => \$gray, # flag
+ 'b|bmp' => \$opts_cmd{image}{bmp}, # gs
+ 't|tif' => \$opts_cmd{image}{tif}, # gs
+ 'j|jpg' => \$opts_cmd{image}{jpg}, # gs
+ 'p|png' => \$opts_cmd{image}{png}, # gs
+ 's|svg' => \$opts_cmd{image}{svg}, # pdftocairo
+ 'e|eps' => \$opts_cmd{image}{eps}, # pdftops
+ 'P|ppm' => \$opts_cmd{image}{ppm}, # pdftoppm
+ 'a|all' => \$all, # flag
+ 'x|xetex' => \$xetex, # flag
+ 'luatex' => \$luatex, # flag
+ 'ns|nosource' => \$nosource, # flag
+ 'V|Verbose' => \$verbose, # flag
+) or do { $log = 0 ; die usage(0); };
-# options for command line
-if ($::opt_help) {
-print $usage;
- exit (0);
+### Open pst2pdf.log file
+if ($log) {
+ if (!defined $ARGV[0]) { errorUsage('Input filename missing'); }
+ my $tempname = $ARGV[0];
+ $tempname =~ s/\.(tex|ltx)$//;
+ if ($LogFile eq "$tempname.log") { $LogFile = "$scriptname-log.log"; }
+ $LogWrite = FileHandle->new("> $LogFile");
}
-if ($::opt_license) {
- print $title;
- print "$copyright\n";
- print $licensetxt;
- exit (0);
+
+### Init pst2pdf.log file
+Log("The script $scriptname $nv was started in $workdir");
+Log("Creating the temporary directory $tempDir");
+
+### Check --arara and --latexmk
+if ($arara && $latexmk) {
+ Log('Error!!: Options --arara and --latexmk are mutually exclusive');
+ errorUsage('Options --arara and --latexmk are mutually exclusive');
}
-if ($::opt_version) {
-print $version;
- exit (0);
+
+### Check --biber and --bibtex
+if ($runbiber && $runbibtex) {
+ Log('Error!!: Options --biber and --bibtex are mutually exclusive');
+ errorUsage('Options --biber and --bibtex are mutually exclusive');
}
-# open file
-my $InputFilename = "";
- @ARGV > 0 or errorUsage "Input filename missing";
- @ARGV < 2 or errorUsage "Unknown option or too many input files";
- $InputFilename = $ARGV[0];
+### Check --runs
+if( $runs <= 0 or $runs >= 3) {
+ Log('Error!!: Invalid argument for --runs, argument out of range');
+ errorUsage('Invalid argument for --runs option');
+}
-#------------------------ Arreglo de la extensión ----------------------
-my @SuffixList = ('.tex', '', '.ltx'); # posible extensión
-my ($name, $path, $ext) = fileparse($ARGV[0], @SuffixList);
-$ext = '.tex' if not $ext;
+### Check --dpi
+if( $dpi <= 0 or $dpi >= 2500) {
+ Log('Error!!: Invalid argument for --dpi, argument out of range');
+ errorUsage('Invalid argument for --dpi option');
+}
-#--------------------- Directorio destino de imágenes ------------------
--e $imageDir or mkdir($imageDir,0744) or die "No puedo crear $imageDir: $!\n";
+### Validate --myverb
+if ($myverb =~ /^(?:\\|\-).+?/) {
+ Log('Error!!: Invalid argument for --myverb option, argument begin with \ or -');
+ errorUsage('Invalid argument for --myverb');
+}
-# expresion regular para swpl
-my $graphics = "graphic=\{\[scale=1\]$imageDir/$name-exa";
+### Validate --ignore
+if ($tmpverbenv =~ /^(?:\\|\-).+?/) {
+ Log('Error!!: Invalid argument for --ignore option, argument begin with \ or -');
+ errorUsage('Invalid argument for --ignore');
+}
-# directorio en el cual están las imágenes
-my $dir = "$tempDir/$imageDir";
+### If $tmpverbenv is valid pass to @verb_env_tmp
+if ($tmpverbenv) { @verb_env_tmp = $tmpverbenv; }
-# archivo de entrada para el resto del script
-my $TeXfile = "$tempDir/$name-tmp$ext";
+### Make ENV safer, see perldoc perlsec
+delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
-
-#----------------------------- Search GS ------------------------------
-# The next code its part of pdfcrop from TexLive 2014
-# Windows detection
+### The next code it's part of pdfcrop (adapted from TexLive 2014)
+# Windows detection
my $Win = 0;
-$Win = 1 if $^O =~ /mswin32/i;
-$Win = 1 if $^O =~ /cygwin/i;
+if ($^O =~ /mswin32/i) { $Win = 1; }
my $archname = $Config{'archname'};
$archname = 'unknown' unless defined $Config{'archname'};
-# get Ghostscript command name
-$::opt_gscmd = '';
+# Get ghostscript command name
sub find_ghostscript () {
- return if $::opt_gscmd;
- if ($Verbose) {
- print "* Perl executable: $^X\n";
+ if ($log) {
+ Log('General information about the Perl instalation and operating system');
+ print {$LogWrite} "* Perl executable: $^X\n";
if ($] < 5.006) {
- print "* Perl version: $]\n";
+ print {$LogWrite} "* Perl version: $]\n";
}
else {
- printf "* Perl version: v%vd\n", $^V;
+ printf {$LogWrite} "* Perl version: v%vd\n", $^V;
}
if (defined &ActivePerl::BUILD) {
- printf "* Perl product: ActivePerl, build %s\n", ActivePerl::BUILD();
+ printf {$LogWrite} "* Perl product: ActivePerl, build %s\n", ActivePerl::BUILD();
}
- printf "* Pointer size: $Config{'ptrsize'}\n";
- printf "* Pipe support: %s\n",
- (defined($Config{'d_pipe'}) ? 'yes' : 'no');
- printf "* Fork support: %s\n",
- (defined($Config{'d_fork'}) ? 'yes' : 'no');
+ printf {$LogWrite} "* Pointer size: $Config{'ptrsize'}\n";
+ printf {$LogWrite} "* Pipe support: %s\n",
+ (defined $Config{'d_pipe'} ? 'yes' : 'no');
+ printf {$LogWrite} "* Fork support: %s\n",
+ (defined $Config{'d_fork'} ? 'yes' : 'no');
}
my $system = 'unix';
- $system = "dos" if $^O =~ /dos/i;
- $system = "os2" if $^O =~ /os2/i;
- $system = "win" if $^O =~ /mswin32/i;
- $system = "cygwin" if $^O =~ /cygwin/i;
- $system = "miktex" if defined($ENV{"TEXSYSTEM"}) and
- $ENV{"TEXSYSTEM"} =~ /miktex/i;
- print "* OS name: $^O\n" if $Verbose;
- print "* Arch name: $archname\n" if $Verbose;
- print "* System: $system\n" if $Verbose;
+ $system = 'win' if $^O =~ /mswin32/i;
+ $system = 'msys' if $^O =~ /msys/i;
+ $system = 'cygwin' if $^O =~ /cygwin/i;
+ $system = 'miktex' if defined $ENV{'TEXSYSTEM'} and
+ $ENV{'TEXSYSTEM'} =~ /miktex/i;
+ if ($log) {
+ print {$LogWrite} "* OS name: $^O\n";
+ print {$LogWrite} "* Arch name: $archname\n";
+ if ($^O eq 'MSWin32') {
+ my $tmp = Win32::GetOSName();
+ print {$LogWrite} "* System: $tmp\n";
+ }
+ else { print {$LogWrite} "* System: $system\n"; }
+ }
+ Log('Trying to locate the executable for Ghostscript');
my %candidates = (
- 'unix' => [qw|gs gsc|],
- 'dos' => [qw|gs386 gs|],
- 'os2' => [qw|gsos2 gs|],
- 'win' => [qw|gswin32c gs|],
- 'cygwin' => [qw|gs gswin32c|],
- 'miktex' => [qw|mgs gswin32c gs|]
+ 'unix' => [qw|gs|],
+ 'win' => [qw|gswin32c|],
+ 'msys' => [qw|gswin64c gswin32c|],
+ 'cygwin' => [qw|gs|],
+ 'miktex' => [qw|mgs gswin32c|],
);
- if ($system eq 'win' or $system eq 'cygwin' or $system eq 'miktex') {
+ if ($system eq 'win' or $system eq 'miktex') {
if ($archname =~ /mswin32-x64/i) {
my @a = ();
foreach my $name (@{$candidates{$system}}) {
@@ -241,12 +492,11 @@
}
}
my %exe = (
- 'unix' => '',
- 'dos' => '.exe',
- 'os2' => '.exe',
- 'win' => '.exe',
+ 'unix' => q{},
+ 'win' => '.exe',
+ 'msys' => '.exe',
'cygwin' => '.exe',
- 'miktex' => '.exe'
+ 'miktex' => '.exe',
);
my $candidates_ref = $candidates{$system};
my $exe = $Config{'_exe'};
@@ -257,65 +507,70 @@
foreach my $dir (@path) {
my $file = File::Spec->catfile($dir, "$candidate$exe");
if (-x $file) {
- $::opt_gscmd = $candidate;
+ $gscmd = $candidate;
$found = 1;
- print "* Found ($candidate): $file\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Found ($candidate): $file\n"; }
last;
}
- print "* Not found ($candidate): $file\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Not found ($candidate): $file\n"; }
}
last if $found;
}
- if (not $found and $Win) {
+ if (not $found and $Win and $system ne 'msys') {
$found = SearchRegistry();
}
+ if (not $found and $system eq 'msys') {
+ $found = Searchbyregquery();
+ }
if ($found) {
- print "* Autodetected ghostscript command: $::opt_gscmd\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Autodetected ghostscript command: $gscmd\n"; }
}
else {
- $::opt_gscmd = $$candidates_ref[0];
- print "* Default ghostscript command: $::opt_gscmd\n" if $Verbose;
+ $gscmd = $$candidates_ref[0];
+ if ($log) { print {$LogWrite} "* Default ghostscript command: $gscmd\n"; }
}
}
-sub SearchRegistry () {
+sub SearchRegistry {
my $found = 0;
- eval 'use Win32::TieRegistry qw|KEY_READ REG_SZ|;';
+ # The module Win32::TieRegistry not aviable in cygwin/msys
+ eval 'use Win32::TieRegistry qw|KEY_READ REG_SZ|';
if ($@) {
- if ($Verbose) {
- print "* Registry lookup for Ghostscript failed:\n";
+ if ($log) {
+ print {$LogWrite} "* Registry lookup for Ghostscript failed:\n";
my $msg = $@;
$msg =~ s/\s+$//;
foreach (split /\r?\n/, $msg) {
- print " $_\n";
+ print {$LogWrite} " $_\n";
}
}
return $found;
}
- my $open_params = {Access => KEY_READ(), Delimiter => '/'};
+ my $open_params = {Access => KEY_READ(), Delimiter => q{/}};
my $key_name_software = 'HKEY_LOCAL_MACHINE/SOFTWARE/';
my $current_key = $key_name_software;
my $software = new Win32::TieRegistry $current_key, $open_params;
if (not $software) {
- print "* Cannot find or access registry key `$current_key'!\n"
- if $::opt_verbose;
+ if ($log) {
+ print {$LogWrite} "* Cannot find or access registry key `$current_key'!\n";
+ }
return $found;
}
- print "* Search registry at `$current_key'.\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Search registry at `$current_key'.\n"; }
my %list;
foreach my $key_name_gs (grep /Ghostscript/i, $software->SubKeyNames()) {
$current_key = "$key_name_software$key_name_gs/";
- print "* Registry entry found: $current_key\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Registry entry found: $current_key\n"; }
my $key_gs = $software->Open($key_name_gs, $open_params);
if (not $key_gs) {
- print "* Cannot open registry key `$current_key'!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Cannot open registry key `$current_key'!\n"; }
next;
}
foreach my $key_name_version ($key_gs->SubKeyNames()) {
$current_key = "$key_name_software$key_name_gs/$key_name_version/";
- print "* Registry entry found: $current_key\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Registry entry found: $current_key\n"; }
if (not $key_name_version =~ /^(\d+)\.(\d+)$/) {
- print " The sub key is not a version number!\n" if $Verbose;
+ if ($log) { print {$LogWrite} " The sub key is not a version number!\n"; }
next;
}
my $version_main = $1;
@@ -323,13 +578,13 @@
$current_key = "$key_name_software$key_name_gs/$key_name_version/";
my $key_version = $key_gs->Open($key_name_version, $open_params);
if (not $key_version) {
- print "* Cannot open registry key `$current_key'!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Cannot open registry key `$current_key'!\n"; }
next;
}
$key_version->FixSzNulls(1);
my ($value, $type) = $key_version->GetValue('GS_DLL');
if ($value and $type == REG_SZ()) {
- print " GS_DLL = $value\n" if $Verbose;
+ if ($log) { print {$LogWrite} " GS_DLL = $value\n"; }
$value =~ s|([\\/])([^\\/]+\.dll)$|$1gswin32c.exe|i;
my $value64 = $value;
$value64 =~ s/gswin32c\.exe$/gswin64c.exe/;
@@ -337,10 +592,10 @@
$value = $value64;
}
if (-f $value) {
- print " EXE found: $value\n" if $Verbose;
+ if ($log) { print {$LogWrite} "EXE found: $value\n"; }
}
else {
- print " EXE not found!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "EXE not found!\n"; }
next;
}
my $sortkey = sprintf '%02d.%03d %s',
@@ -348,961 +603,1679 @@
$list{$sortkey} = $value;
}
else {
- print " Missing key `GS_DLL' with type `REG_SZ'!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "Missing key `GS_DLL' with type `REG_SZ'!\n"; }
}
}
}
foreach my $entry (reverse sort keys %list) {
- $::opt_gscmd = $list{$entry};
- print "* Found (via registry): $::opt_gscmd\n" if $Verbose;
+ $gscmd = $list{$entry};
+ if ($log) { print {$LogWrite} "* Found (via registry): $gscmd\n"; }
$found = 1;
last;
}
return $found;
+} # end GS search registry
+
+### This part is only necessary if you're using Git on windows and don't
+### have gs configured in PATH. Git for windows don't have a Win32::TieRegistry
+### module for perl (is not supported in the current versions of msys).
+sub Searchbyregquery {
+ my $found = 0;
+ my $gs_regkey;
+ my $opt_reg = '//s //v';
+ if ($log) { print {$LogWrite} "* Search Ghostscript in Windows registry under mingw/msys:\n";}
+ $gs_regkey = qx{reg query "HKLM\\Software\\GPL Ghostscript" $opt_reg GS_DLL};
+ if ($? == 0) {
+ if ($log) { print {$LogWrite} "* Registry entry found for GS_DLL (64 bits version)\n";}
+ }
+ else {
+ $gs_regkey = qx{reg query "HKLM\\Software\\Wow6432Node\\GPL Ghostscript" $opt_reg GS_DLL};
+ if ($? == 0) {
+ if ($log) { print {$LogWrite} "* Registry entry found for GS_DLL (32 bits version)\n";}
+ }
+ }
+ my ($gs_find) = $gs_regkey =~ m/(?:\s* GS_DLL \s* REG_SZ \s*) (.+?)(?:\.dll.+?\R)/s;
+ if ($gs_find) {
+ my ($gs_vol, $gs_path, $gs_ver) = $gs_find =~ m/
+ (\w{1})(?:\:) # volumen
+ (.+?) # path to executable
+ (?:\\gsdll) # LIB
+ (\d{2}) # Version
+ /xs;
+ # Adjust
+ $gs_vol = lc($gs_vol);
+ $gs_path = '/'.$gs_vol.$gs_path;
+ $gs_path =~ s|\\|/|gmsxi;
+ # Add to PATH
+ if ($log) { print {$LogWrite} "* Add $gs_path to PATH for current session\n"; }
+ $PATH .= ":$gs_path";
+ # Set executable
+ $gscmd = 'gswin'.$gs_ver.'c';
+ if ($log) { print {$LogWrite} "* Found (via reg query): $gscmd\n"; }
+ $found = 1;
+ }
+ if ($@) {
+ if ($log) {
+ print {$LogWrite} "* Registry lookup for Ghostscript by reg query failed:\n";
+ my $msg = $@;
+ $msg =~ s/\s+$//;
+ foreach (split /\r?\n/, $msg) {
+ print {$LogWrite} " $_\n";
+ }
+ }
+ return $found;
+ }
+ return $found;
}
+### Call GS
find_ghostscript();
-if ($Win and $::opt_gscmd =~ /\s/) {
- $::opt_gscmd = "\"$::opt_gscmd\"";
+### Windows need suport space in path
+if ($Win and $gscmd =~ /\s/) { $gscmd = "\"$gscmd\"";}
+
+### Help
+if (defined $help) {
+ usage(1);
+ exit 0;
}
-# end GS search
-open my $LOGfile,'>', "$tempDir/$name.plog"; # our own log file
- LOG ("Parameters:");
- LOG ("==> imageDir = $imageDir");
- LOG ("==> dpi = $DPI");
- LOG ("==> tempDir = $tempDir");
- LOG ("==> Verbose = $Verbose");
- LOG ("==> clear = $clear");
- LOG ("==> noImages = $noImages");
- LOG ("==> noSource = $noSource");
- LOG ("==> nopreview = $nopreview");
- LOG ("==> runBibTeX = $runBibTeX");
- LOG ("==> runBiber = $runBiber");
- LOG ("==> ppm = $ppm");
- LOG ("==> eps = $eps");
- LOG ("==> jpg = $jpg");
- LOG ("==> png = $png");
- LOG ("==> svg = $svg");
- LOG ("==> xetex = $xetex");
+### Version
+if (defined $version) {
+ print $versiontxt;
+ exit 0;
+}
-if ($runBibTeX && $runBiber) {
- LOG ("!!! you cannot run BibTeX and Biber at the same document ...");
- LOG ("!!! Assuming to run Biber");
- $runBibTeX = 0;
+### Set temp internal vars for <name-fig-tmp> and extraction
+my $tmp = int(rand(10000));
+my $dtxverb = "verbatim$tmp";
+my $wrapping = "$scriptname$tmp"; # wraped for environment extraction
+
+Log("Set up the environment [$wrapping] to encapsulate the extraction");
+
+### Set vars for match/regex
+my $BP = "\\\\begin\{$wrapping\}";
+my $EP = "\\\\end\{$wrapping\}";
+my $BE = '\\\\begin\{PSTexample\}';
+my $EE = '\\\\end\{PSTexample\}';
+
+### Define key = pdf for image format
+if (!$nopdf) {
+ $opts_cmd{image}{pdf} = 1;
}
-if ($ppm) {
- LOG ("Generate .ppm files ...");
- $ppm = 1;
+
+### Store image formats in hash
+my $format = join q{, },grep { defined $opts_cmd{image}{$_} } keys %{$opts_cmd{image}};
+if (!$norun) {
+ Log("Defined image formats for creating: $format");
}
-if ($eps) {
- LOG ("Generate .eps files ...");
- $eps = 1;
+
+### Check <input file> from command line
+ at ARGV > 0 or errorUsage('Input filename missing');
+ at ARGV < 2 or errorUsage('Unknown option or too many input files');
+
+### Check <input file> extention
+my @SuffixList = ('.tex', '', '.ltx'); # posibles
+my ($name, $path, $ext) = fileparse($ARGV[0], @SuffixList);
+$ext = '.tex' if not $ext;
+
+### Read <input file> in memory
+Log("Read input file $name$ext in memory");
+open my $inputfile, '<:crlf', "$name$ext";
+ my $ltxfile;
+ {
+ local $/;
+ $ltxfile = <$inputfile>;
+ }
+close $inputfile;
+
+### Identification message in terminal
+print $title;
+
+### Default environment to extract
+my @extractenv = qw (
+ postscript pspicture psgraph PSTexample
+ );
+
+### Default verbatim environment
+my @iverb_env = qw (
+ Example CenterExample SideBySideExample PCenterExample PSideBySideExample
+ verbatim Verbatim BVerbatim LVerbatim SaveVerbatim PSTcode
+ LTXexample tcblisting spverbatim minted listing lstlisting
+ alltt comment chklisting verbatimtab listingcont boxedverbatim
+ demo sourcecode xcomment pygmented pyglist program programl
+ programL programs programf programsc programt
+ );
+push @verb_env_tmp, @iverb_env;
+
+### Default verbatim write environment
+my @verw_env_tmp;
+my @iverbw_env = qw (
+ scontents filecontents tcboutputlisting tcbexternal tcbwritetmp extcolorbox extikzpicture
+ VerbatimOut verbatimwrite filecontentsdef filecontentshere filecontentsdefmacro
+ filecontentsdefstarred filecontentsgdef filecontentsdefmacro filecontentsgdefmacro
+ );
+push @verw_env_tmp, @iverbw_env;
+
+########################################################################
+# One problem that can arise is the filecontents environment, this can #
+# contain a complete document and be anywhere, before dividing we will #
+# make some replacements for this and comment lines #
+########################################################################
+
+### Create a Regex for verbatim write environment
+ at verw_env_tmp = uniq(@verw_env_tmp);
+my $tmpverbw = join q{|}, map { quotemeta } sort { length $a <=> length $b } @verw_env_tmp;
+$tmpverbw = qr/$tmpverbw/x;
+my $tmp_verbw = qr {
+ (
+ (?:
+ \\begin\{$tmpverbw\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$tmpverbw\*?\})
+ (?!end\{$tmpverbw\*?\})|
+ (?-1)
+ )*
+ \\end\{$tmpverbw\*?\}
+ )
+ )
+ }x;
+
+### A pre-regex for comment lines
+my $tmpcomment = qr/^ \s* \%+ .+? $ /mx;
+
+### Hash for replace in verbatim's and comment lines
+my %document = (
+ '\begin{document}' => '\BEGIN{document}',
+ '\end{document}' => '\END{document}',
+ '\documentclass' => '\DOCUMENTCLASS',
+ '\pagestyle{' => '\PAGESTYLE{',
+ '\thispagestyle{' => '\THISPAGESTYLE{',
+ );
+
+### Changes in input file for verbatim write and comment lines
+while ($ltxfile =~ / $tmp_verbw | $tmpcomment /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ while (my($busco, $cambio) = each %document) {
+ $encontrado =~ s/\Q$busco\E/$cambio/g;
+ }
+ substr $ltxfile, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($ltxfile) = $pos_inicial + length $encontrado;
}
-if ($jpg) {
- LOG ("Generate .jpg files ...");
- $jpg = 1;
+
+### Now, split <input file>
+my ($atbegindoc, $document) = $ltxfile =~ m/\A (\s* .*? \s*) (\\documentclass.*)\z/msx;
+
+### Rules to capture for regex my $CORCHETES = qr/\[ [^]]*? \]/x;
+my $braces = qr/ (?:\{)(.+?)(?:\}) /msx;
+my $braquet = qr/ (?:\[)(.+?)(?:\]) /msx;
+my $no_corchete = qr/ (?:\[ .*? \])? /msx;
+
+### Array for capture new verbatim environments defined in input file
+my @cverb_env = qw (
+ newtcblisting DeclareTCBListing ProvideTCBListing NewTCBListing
+ lstnewenvironment NewListingEnvironment NewProgram specialcomment
+ includecomment DefineVerbatimEnvironment newverbatim newtabverbatim
+ );
+
+### Regex to capture names for new verbatim environments from input file
+my $cverbenv = join q{|}, map { quotemeta} sort { length $a <=> length $b } @cverb_env;
+$cverbenv = qr/\b(?:$cverbenv) $no_corchete $braces/msx;
+
+### Array for capture new verbatim write environments defined in input file
+my @cverb_env_w = qw (
+ renewtcbexternalizetcolorbox renewtcbexternalizeenvironment
+ newtcbexternalizeenvironment newtcbexternalizetcolorbox newenvsc
+ );
+
+### Regex to capture names for new verbatim write environments from input file
+my $cverbenvw = join q{|}, map { quotemeta} sort { length $a <=> length $b } @cverb_env_w;
+$cverbenvw = qr/\b(?:$cverbenvw) $no_corchete $braces/msx;
+
+### Regex to capture MINTED related environments
+my $mintdenv = qr/\\ newminted $braces (?:\{.+?\}) /x;
+my $mintcenv = qr/\\ newminted $braquet (?:\{.+?\}) /x;
+my $mintdshrt = qr/\\ newmint $braces (?:\{.+?\}) /x;
+my $mintcshrt = qr/\\ newmint $braquet (?:\{.+?\}) /x;
+my $mintdline = qr/\\ newmintinline $braces (?:\{.+?\}) /x;
+my $mintcline = qr/\\ newmintinline $braquet (?:\{.+?\}) /x;
+
+### Filter input file, now $ltxfile is pass to $filecheck
+Log("Filter $name$ext \(remove % and comments\)");
+my @filecheck = $ltxfile;
+s/%.*\n//mg foreach @filecheck; # del comments
+s/^\s*|\s*//mg foreach @filecheck; # del white space
+my $filecheck = join q{}, @filecheck;
+
+### Search verbatim and verbatim write environments <input file>
+Log("Search verbatim and verbatim write environments in $name$ext");
+
+### Search new verbatim write names in <input file>
+my @new_write_env = $filecheck =~ m/$cverbenvw/xg;
+if (@new_write_env) {
+ Log("Found new verbatim write environments in $name$ext");
+ Logarray(\@new_write_env);
+ push @verw_env_tmp, @new_write_env;
}
-if ($png) {
- LOG ("Generate .png files ...");
- $png = 1;
+
+### Search new verbatim environments in <input file>
+my @verb_input = $filecheck =~ m/$cverbenv/xg;
+if (@verb_input) {
+ Log("Found new verbatim environments in $name$ext");
+ Logarray(\@verb_input);
+ push @verb_env_tmp, @verb_input;
}
-if ($svg) {
- LOG ("Generate .svg files ...");
- $svg = 1;
+
+### Search \newminted{$mintdenv}{options} in <input file>, need add "code"
+my @mint_denv = $filecheck =~ m/$mintdenv/xg;
+if (@mint_denv) {
+ Log("Found \\newminted\{envname\} in $name$ext");
+ # Append "code"
+ $mintdenv = join "\n", map { qq/$_\Qcode\E/ } @mint_denv;
+ @mint_denv = split /\n/, $mintdenv;
+ Logarray(\@mint_denv);
+ push @verb_env_tmp, @mint_denv;
}
-if ($all) {
- LOG ("Generate images eps/pdf/files and clear...");
- $eps =$ppm=$jpg=$png=$svg=$clear = 1;
+
+### Search \newminted[$mintcenv]{lang} in <input file>
+my @mint_cenv = $filecheck =~ m/$mintcenv/xg;
+if (@mint_cenv) {
+ Log("Found \\newminted\[envname\] in $name$ext");
+ Logarray(\@mint_cenv);
+ push @verb_env_tmp, @mint_cenv;
}
-if ($nopreview) {
- LOG ("nopreview mode generate images files ...");
- $nopreview= 1;
+
+### Remove repetead again :)
+ at verb_env_tmp = uniq(@verb_env_tmp);
+
+### Capture verbatim inline macros in <input file>
+Log("Search verbatim macros in $name$ext");
+
+### Store all minted inline/short in @mintline
+my @mintline;
+
+### Search \newmint{$mintdshrt}{options} in <input file> (while)
+my @mint_dshrt = $filecheck =~ m/$mintdshrt/xg;
+if (@mint_dshrt) {
+ Log("Found \\newmint\{macroname\} (short) in $name$ext");
+ Logarray(\@mint_dshrt);
+ push @mintline, @mint_dshrt;
}
-if ($xetex) {
- LOG ("Compiling using XeLaTeX ...");
- $xetex=1;
+
+### Search \newmint[$mintcshrt]{lang}{options} in <input file> (while)
+my @mint_cshrt = $filecheck =~ m/$mintcshrt/xg;
+if (@mint_cshrt) {
+ Log("Found \\newmint\[macroname\] (short) in $name$ext");
+ Logarray(\@mint_cshrt);
+ push @mintline, @mint_cshrt;
}
-if ($noImages ) {
- LOG ("no create images");
- $nopreview= 0;
- }
-if ($noSource) {
- LOG ("Delete all source files");
- $noSource= 1;
- }
-#----------------------------- Parte 1 ---------------------------------
-# Comentamos los bloques PST dentro de verbatim de todo el archivo
-# Abrimos el archivo
-my $InputFilename = shift;
-my @lineas;
-{
- open my $FILE,'<:crlf',"$InputFilename";
- @lineas = <$FILE>;
- close $FILE;
+### Search \newmintinline{$mintdline}{options} in <input file> (while)
+my @mint_dline = $filecheck =~ m/$mintdline/xg;
+if (@mint_dline) {
+ Log("Found \\newmintinline\{macroname\} in $name$ext");
+ # Append "inline"
+ $mintdline = join "\n", map { qq/$_\Qinline\E/ } @mint_dline;
+ @mint_dline = split /\n/, $mintdline;
+ Logarray(\@mint_dline);
+ push @mintline, @mint_dline;
}
-# Creamos un hash con los cambios
-my %cambios = (
- '\pspicture' => '\TRICKS',
- '\endpspicture' => '\ENDTRICKS',
+### Search \newmintinline[$mintcline]{lang}{options} in <input file> (while)
+my @mint_cline = $filecheck =~ m/$mintcline/xg;
+if (@mint_cline) {
+ Log("Found \\newmintinline\[macroname\] in $name$ext");
+ Logarray(\@mint_cline);
+ push @mintline, @mint_cline;
+}
- '\begin{PSTexample' => '\begin{PSTEXAMPLE',
- '\end{PSTexample' => '\end{PSTEXAMPLE',
+### Add standart mint, mintinline and lstinline
+my @mint_tmp = qw(mint mintinline lstinline);
- '\begin{pspicture' => '\begin{TRICKS',
- '\end{pspicture' => '\end{TRICKS',
+### Join all inline verbatim macros captured
+push @mintline, @mint_tmp;
+ at mintline = uniq(@mintline);
- '\begin{postscript}' => '\begin{POSTRICKS}',
- '\end{postscript}' => '\end{POSTRICKS}',
-
- '\begin{document}' => '\begin{DOCTRICKS}',
- '\end{document}' => '\end{DOCTRICKS}'
-);
+### Create a regex using @mintline
+my $mintline = join q{|}, map { quotemeta } sort { length $a <=> length $b } @mintline;
+$mintline = qr/\b(?:$mintline)/x;
-# Definimos los entonos verbatim donde comentaremos
-my $ENTORNO = qr/(?: (v|V)erbatim\*?| LTXexample | PSTcode |$other\*? | tcblisting\*? | spverbatim | minted | lstlisting | alltt | comment\*? | xcomment)/xi;
-#
-my $DEL;
+### Reserved words in verbatim inline (while)
+my %changes_in = (
+ '%CleanPST' => '%PSTCLEAN',
+ '\psset' => '\PSSET',
+ '\pspicture' => '\TRICKS',
+ '\endpspicture' => '\ENDTRICKS',
+ '\psgraph' => '\PSGRAPHTRICKS',
+ '\endpsgraph' => '\ENDPSGRAPHTRICKS',
+ '\usepackage' => '\USEPACKAGE',
+ '{graphicx}' => '{GRAPHICX}',
+ '\graphicspath{' => '\GRAPHICSPATH{',
+ );
-my $tcbverb = qr/\\(?:tcboxverb|myverb)/;
-
-my $arg_brac = qr/(?:\[.+?\])?/;
-
-my $arg_curl = qr/\{(.+)\}/; # ATENCIÓN
+### Hash to replace \begin and \end in verbatim inline
+my %init_end = (
+ '\begin{' => '\BEGIN{',
+ '\end{' => '\END{',
+ );
-for (@lineas) {
- if (/^\\begin\{($ENTORNO)(?{ $DEL = "\Q$^N" })\}/ .. /^\\end\{$DEL\}/) {
+### Join changes in new hash (while) for verbatim inline
+my %cambios = (%changes_in,%init_end);
+
+### Variables and constantes
+my $no_del = "\0";
+my $del = $no_del;
+
+### Rules
+my $llaves = qr/\{ .+? \} /x;
+my $no_llaves = qr/(?: $llaves )? /x;
+my $corchetes = qr/\[ .+? \] /x;
+my $delimitador = qr/\{ (?<del>.+?) \} /x;
+my $scontents = qr/Scontents [*]? $no_corchete /ix;
+my $verb = qr/(?:((spv|(?:q|f)?v|V)erb|$myverb)[*]?) /ix;
+my $lst = qr/(?:(lst|pyg)inline)(?!\*) $no_corchete /ix;
+my $mint = qr/(?: $mintline |SaveVerb) (?!\*) $no_corchete $no_llaves $llaves /ix;
+my $no_mint = qr/(?: $mintline) (?!\*) $no_corchete /ix;
+my $marca = qr/\\ (?:$verb | $lst |$scontents | $mint |$no_mint) (?:\s*)? (\S) .+? \g{-1} /sx;
+my $comentario = qr/^ \s* \%+ .+? $ /mx;
+my $definedel = qr/\\ (?: DefineShortVerb | lstMakeShortInline| MakeSpecialShortVerb ) [*]? $no_corchete $delimitador /ix;
+my $indefinedel = qr/\\ (?: (Undefine|Delete)ShortVerb | lstDeleteShortInline) $llaves /ix;
+
+Log('Making changes to inline/multiline verbatim macro before extraction');
+
+### Changes in input file for verbatim inline/multiline
+while ($document =~
+ / $marca
+ | $comentario
+ | $definedel
+ | $indefinedel
+ | $del .+? $del
+ /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ if ($encontrado =~ /$definedel/) {
+ $del = $+{del};
+ $del = "\Q$+{del}" if substr($del,0,1) ne '\\';
+ }
+ elsif ($encontrado =~ /$indefinedel/) {
+ $del = $no_del;
+ }
+ else {
while (my($busco, $cambio) = each %cambios) {
- s/\Q$busco\E/$cambio/g;
+ $encontrado =~ s/\Q$busco\E/$cambio/g;
}
+ substr $document, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($document) = $pos_inicial + length $encontrado;
}
- elsif (m/$tcbverb$arg_brac$arg_curl/) {
- while (my($busco, $cambio) = each %cambios) {
- s/\Q$busco\E/$cambio/g;
- }
- } #close elsif
- }
+}
-# Escritura del resultado
-open my $SALIDA, '>', "$tempDir/$name-tmp$ext";
-print $SALIDA @lineas;
-close $SALIDA;
+### Change "escaped braces" to <LTXSB.> (this label is not the one in the document)
+$document =~ s/\\[{]/<LTXSBO>/g;
+$document =~ s/\\[}]/<LTXSBC>/g;
-#--------------------------------Parte 2--------------------------------
-# Comentamos el texto en verbatim a lo largo del cuerpo
-open my $ENTRADA, '<', "$tempDir/$name-tmp$ext";
-my $archivo;
-{
- local $/;
- $archivo = <$ENTRADA>;
+### Regex for verbatim inline/multiline with braces {...}
+my $nestedbr = qr / ( [{] (?: [^{}]++ | (?-1) )*+ [}] ) /x;
+my $fvextra = qr /\\ (?: (Save|Esc)Verb [*]?) $no_corchete /x;
+my $mintedbr = qr /\\ (?:$mintline|pygment) (?!\*) $no_corchete $no_llaves /x;
+my $tcbxverb = qr /\\ (?: tcboxverb [*]?| Scontents [*]? |$myverb [*]?|lstinline) $no_corchete /x;
+my $verb_brace = qr / (?:$tcbxverb|$mintedbr|$fvextra) (?:\s*)? $nestedbr /x;
+
+### Change \verb*{code} for verbatim inline/multiline
+while ($document =~ /$verb_brace/pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ while (my($busco, $cambio) = each %cambios) {
+ $encontrado =~ s/\Q$busco\E/$cambio/g;
+ }
+ substr $document, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($document) = $pos_inicial + length $encontrado;
}
-close $ENTRADA;
-
-## Partición del documento
-my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin\{document\}) (.+) (^ \\end\{document\} .*) \z/msx;
-## Variables y constantes
-my $no_del = "\0";
-my $del = $no_del;
+### We recovered the escaped braces
+$document =~ s/<LTXSBO>/\\{/g;
+$document =~ s/<LTXSBC>/\\}/g;
-## Reglas
-my $llaves = qr/\{ .+? \} /x;
-my $no_corchete = qr/(?:\[ .+? \])? /x;
-my $delimitador = qr/\{ (?<del>.+?) \} /x;
-my $spverb = qr/spverb [*]? /ix;
-my $verb = qr/(v|V)erb [*]? /ix;
-my $lst = qr/lstinline (?!\*) $no_corchete /ix;
-my $mint = qr/mint (?!\*) $no_corchete $llaves /ix;
-my $marca = qr/\\ (?:$verb | $lst | $mint ) (\S) .+? \g{-1} /x;
-my $comentario = qr/^ \s* \%+ .+? $ /mx;
-my $definedel = qr/\\ (?: DefineShortVerb | lstMakeShortInline ) $no_corchete $delimitador /ix;
-my $indefinedel = qr/\\ (?: UndefineShortVerb | lstDeleteShortInline) $llaves /ix;
-
-## Cambiar
-while ($cuerpo =~
- / $marca
- | $comentario
- | $definedel
- | $indefinedel
- | $del .+? $del # delimitado
- /pgmx) {
-
- my($pos_inicial, $pos_final) = ($-[0], $+[0]); # posiciones
- my $encontrado = ${^MATCH}; # lo encontrado
-
- if ($encontrado =~ /$definedel/){ # definimos delimitador
- $del = $+{del};
- $del = "\Q$+{del}" if substr($del,0,1) ne '\\'; # es necesario "escapar" el delimitador
- }
- elsif($encontrado =~ /$indefinedel/) { # indefinimos delimitador
- $del = $no_del;
- }
- else { # aquí se hacen los cambios
- while (my($busco, $cambio) = each %cambios) {
- $encontrado =~ s/\Q$busco\E/$cambio/g; # es necesario escapar $busco
- }
- substr $cuerpo, $pos_inicial, $pos_final-$pos_inicial, $encontrado; # insertamos los nuevos cambios
-
- pos($cuerpo)= $pos_inicial + length $encontrado; # re posicionamos la siguiente búsqueda
- }
+### We recovered CleanPST in all file, but only at begin of line
+$document =~ s/^%PSTCLEAN/%CleanPST/gmsx;
+
+### First we do some security checks to ensure that they are verbatim and
+### verbatim write environments are unique and disjointed
+ at verb_env_tmp = array_minus(@verb_env_tmp, @verw_env_tmp); #disjointed
+my @verbatim = uniq(@verb_env_tmp);
+
+Log('The environments that are considered verbatim:');
+Logarray(\@verbatim);
+
+### Create a Regex for verbatim standart environment
+my $verbatim = join q{|}, map { quotemeta } sort { length $a <=> length $b } @verbatim;
+$verbatim = qr/$verbatim/x;
+my $verb_std = qr {
+ (
+ (?:
+ \\begin\{$verbatim\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$verbatim\*?\})
+ (?!end\{$verbatim\*?\})|
+ (?-1)
+ )*
+ \\end\{$verbatim\*?\}
+ )
+ )
+ }x;
+
+### Verbatim write
+ at verw_env_tmp = array_minus(@verw_env_tmp, @verb_env_tmp); #disjointed
+my @verbatim_w = uniq(@verw_env_tmp);
+
+Log('The environments that are considered verbatim write:');
+Logarray(\@verbatim_w);
+
+### Create a Regex for verbatim write environment
+my $verbatim_w = join q{|}, map { quotemeta } sort { length $a <=> length $b } @verbatim_w;
+$verbatim_w = qr/$verbatim_w/x;
+my $verb_wrt = qr {
+ (
+ (?:
+ \\begin\{$verbatim_w\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$verbatim_w\*?\})
+ (?!end\{$verbatim_w\*?\})|
+ (?-1)
+ )*
+ \\end\{$verbatim_w\*?\}
+ )
+ )
+ }x;
+
+### The environments that will be searched for extraction
+Log('The environments that will be searched for extraction:');
+Logarray(\@extractenv);
+
+### Create a regex to extract environments
+my $environ = join q{|}, map { quotemeta } sort { length $a <=> length $b } @extractenv;
+$environ = qr/$environ/x;
+my $extr_tmp = qr {
+ (
+ (?:
+ \\begin\{$environ\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$environ\*?\})
+ (?!end\{$environ\*?\})|
+ (?-1)
+ )*
+ \\end\{$environ\*?\}
+ )
+ )
+ }x;
+
+### Hash for replace in verbatim begin -> Begin end -> END
+my %extract_env = crearhash(@extractenv);
+
+### The preview and nopreview environments are "special", need replace
+### in verbatim's environments begin -> Begin end -> END
+my @preview_env = qw(preview nopreview);
+my %preview_env = crearhash(@preview_env);
+
+Log('Making changes to verbatim/verbatim write environments before extraction');
+
+### Hash and Regex for changes, this "regex" is re-used in ALL script
+my %replace = (%extract_env, %preview_env, %changes_in, %document);
+my $find = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %replace;
+
+### We go line by line and make the changes [need /p for ${^MATCH}]
+while ($document =~ /$verb_wrt | $verb_std /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ $encontrado =~ s/($find)/$replace{$1}/g;
+ substr $document, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($document) = $pos_inicial + length $encontrado;
}
+### Now match preview environment in <input file>
+my @env_preview = $document =~ m/(\\begin\{preview\}.+?\\end\{preview\})/gmsx;
-# Poner el atributo añadido a \begin{PSTexample}
-while ($cuerpo =~ /^\\begin\{PSTexample\}(\[.+?\])?/gsm) {
-
- my $corchetes = $1;
- my($pos_inicial, $pos_final) = ($-[1], $+[1]); # posición donde están los corchetes
-
- if (not $corchetes) {
- $pos_inicial = $pos_final = $+[0]; # si no hay corchetes, nos ponemos al final de \begin
+### Convert preview to nopreview environment
+if (@env_preview) {
+ my $preNo = scalar @env_preview;
+ Log("Found $preNo preview environments in $name$ext");
+ Log("Pass all preview environments to \\begin{nopreview}\%TMP$tmp ... \\end{nopreview}\%TMP$tmp");
+ $document =~ s/(?:(\\begin\{|\\end\{))(preview\})/$1no$2\%TMP$tmp/gmsx;
+}
+
+### Pass verbatim write environments to dtxtag
+Log("Pass verbatim write environments to %<*$dtxverb> ... %</$dtxverb>");
+$document =~ s/\\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ ($verb_wrt)/\%<\*$dtxverb>$1\%<\/$dtxverb>/gmsx;
+
+### Pass verbatim environments to dtxtag
+Log("Pass verbatim environments to %<*$dtxverb> ... %</$dtxverb>");
+$document =~ s/\\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ($verb_std)/\%<\*$dtxverb>$1\%<\/$dtxverb>/gmsx;
+
+### Pass %CleanPST to dtxtag
+Log("Pass %CleanPST ... %CleanPST to %<*remove$tmp> ... %</remove$tmp>");
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ^(?:%CleanPST) (.+?) (?:%CleanPST)/\%<\*remove$tmp>$1\%<\/remove$tmp>/gmsx;
+
+### Check plain TeX syntax for pspicture [skip PSTexample]
+Log('Convert plain \pspicture to LaTeX syntax [skip in PSTexample]');
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\pspicture(\*)?(.+?)\\endpspicture/\\begin\{pspicture$1\}$2\\end\{pspicture$1\}/gmsx;
+
+### Check plain TeX syntax for psgraph [skip PSTexample]
+Log('Convert plain \psgraph to LaTeX syntax [skip in PSTexample]');
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\psgraph(\*)?(.+?)\\endpsgraph/\\begin\{psgraph$1\}$2\\end\{psgraph$1\}/gmsx;
+
+### Pass all postscript environments [skip in PSTexample]
+Log("Pass all postscript environments to \\begin{$wrapping} ... \\end{$wrapping}");
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ (?:\\begin\{postscript\})(?:\s*\[ [^]]*? \])?
+ (?<code>.+?)
+ (?:\\end\{postscript\})
+ /\\begin\{$wrapping\}$+{code}\\end\{$wrapping\}/gmsx;
+
+### Pass all pstricks environments to \\begin{$wrapping} ... \\end{$wrapping}");
+if ($force) {
+ # Try to capture \psset{...} for pstricks and psgraph [force]
+ Log('Try to capture \psset{...} for pstricks environments [force mode]');
+ Log("Pass all pstricks environments to \\begin{$wrapping} ... \\end{$wrapping} [force mode]");
+ $document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\begin\{$wrapping\}.+?\\end\{$wrapping\}(*SKIP)(*F)|
+ (?<code>
+ (?:\\psset\{(?:\{.*?\}|[^\{])*\}.+?)? # if exist ...save
+ \\begin\{(?<env> pspicture\*?| psgraph)\} .+? \\end\{\k<env>\}
+ )
+ /\\begin\{$wrapping\}$+{code}\\end\{$wrapping\}/gmsx;
+}
+else {
+ Log("Pass all pstricks environments to \\begin{$wrapping} ... \\end{$wrapping}");
+ $document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{$wrapping\}.+?\\end\{$wrapping\}(*SKIP)(*F)|
+ ($extr_tmp)/\\begin\{$wrapping\}$1\\end\{$wrapping\}/gmsx;
+}
+
+### All environments are now classified:
+### Extraction -> \begin{$wrapping} ... \end{$wrapping}
+### Verbatim's -> %<\*$dtxverb> ... <\/$dtxverb>
+
+### Now split document
+my ($preamble,$bodydoc,$enddoc) = $document =~ m/\A (.+?) (\\begin\{document\} .+?)(\\end\{document\}.*)\z/msx;
+
+### Hash for reverse changes for extract and <output file>
+my %changes_out = (
+ '\PSSET' => '\psset',
+ '\TIKZSET' => '\tikzset',
+ '\TRICKS' => '\pspicture',
+ '\ENDTRICKS' => '\endpspicture',
+ '\PSGRAPHTRICKS' => '\psgraph',
+ '\ENDPSGRAPHTRICKS' => '\endpsgraph',
+ '\USEPACKAGE' => '\usepackage',
+ '{GRAPHICX}' => '{graphicx}',
+ '\GRAPHICSPATH{' => '\graphicspath{',
+ '\BEGIN{' => '\begin{',
+ '\END{' => '\end{',
+ '\DOCUMENTCLASS' => '\documentclass',
+ '\PAGESTYLE{' => '\pagestyle{',
+ '\THISPAGESTYLE{' => '\thispagestyle{',
+ '%PSTCLEAN' => '%CleanPST',
+ );
+
+### We restore the changes in body of environments and dtxverb
+%replace = (%changes_out);
+$find = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %replace;
+$bodydoc =~ s/($find)/$replace{$1}/g;
+$preamble =~ s/($find)/$replace{$1}/g;
+
+### First search PSTexample environment for extract
+my @exa_extract = $bodydoc =~ m/(?:\\begin\{$wrapping\})($BE.+?$EE)(?:\\end\{$wrapping\})/gmsx;
+my $exaNo = scalar @exa_extract;
+
+### Set vars for log and print in terminal
+my $envEXA = $exaNo > 1 ? 'PSTexample environments' : 'PSTexample environment';
+my $fileEXA = $exaNo > 1 ? 'files' : 'file';
+
+### If PSTexample environment found
+if ($exaNo!=0) {
+ $PSTexa = 1;
+ Log("Found $exaNo $envEXA in $name$ext");
+ my $figNo = 1;
+ for my $item (@exa_extract) {
+ Logline("%##### PSTexample environment captured number $figNo ######%");
+ Logline($item);
+ $figNo++;
}
-
- if (not $corchetes or $corchetes =~ /\[\s*\]/) { # si no hay corchetes, o están vacíos,
- $corchetes = "[$graphics-$exacount}]"; # ponemos los nuestros
+ # Add [graphic={[...]...}] to \begin{PSTexample}[...]
+ Log('Append [graphic={[...]...}] to \begin{PSTexample}[...]');
+ $figNo = 1;
+ while ($bodydoc =~ /\\begin\{$wrapping\}(\s*)?\\begin\{PSTexample\}(\[.+?\])?/gsm) {
+ my $swpl_grap = "graphic=\{\[scale=1\]$imgdir/$name-fig-exa";
+ my $corchetes = $1;
+ my ($pos_inicial, $pos_final) = ($-[1], $+[1]);
+ if (not $corchetes) { $pos_inicial = $pos_final = $+[0]; }
+ if (not $corchetes or $corchetes =~ /\[\s*\]/) {
+ $corchetes = "[$swpl_grap-$figNo}]";
+ }
+ else { $corchetes =~ s/\]/,$swpl_grap-$figNo}]/; }
+ substr($bodydoc, $pos_inicial, $pos_final - $pos_inicial) = $corchetes;
+ pos($bodydoc) = $pos_inicial + length $corchetes;
}
- else { # si sí hay corchetes,
- $corchetes =~ s/\]/,$graphics-$exacount}]/; # lo agregamos al final, dentro de los corchetes
+ continue { $figNo++; }
+ Log('Pass PSTexample environments to \begin{nopreview} ... \end{nopreview}');
+ $bodydoc =~ s/\\begin\{$wrapping\}
+ (?<code>\\begin\{PSTexample\} .+? \\end\{PSTexample\})
+ \\end\{$wrapping\}
+ /\\begin\{nopreview\}\%$tmp$+{code}\\end\{nopreview\}\%$tmp/gmsx;
+}
+
+### Second search any pstricks environment for extract
+my @env_extract = $bodydoc =~ m/(?:$BP)(.+?)(?:$EP)/gmsx;
+my $envNo = scalar @env_extract;
+
+### Set vars for log and print in terminal
+my $envSTD = $envNo > 1 ? 'pstricks environments' : 'pstricks environment';
+my $fileSTD = $envNo > 1 ? 'files' : 'file';
+
+### If any pstricks environments found
+if ($envNo!=0) {
+ $STDenv = 1;
+ Log("Found $envNo $envSTD in $name$ext");
+ my $fig = 1;
+ for my $item (@env_extract) {
+ Logline("%##### Environment pstricks captured number $fig ######%");
+ Logline($item);
+ $fig++;
}
-
- substr($cuerpo, $pos_inicial, $pos_final - $pos_inicial) = $corchetes;
- pos($cuerpo) = $pos_inicial + length $corchetes; # reposicionamos la búsqueda de la exp. reg.
}
-continue {
- $exacount++;
+
+### Run script process only if any enviroment(s) found in <input file>
+if ($envNo == 0 and $exaNo == 0) {
+ errorUsage("$scriptname can not find any environment to extract in $name$ext");
}
-#----------------------- Extract PSTexample files ----------------------
+### Storing ALL current options of script process for .log file
+if ($zip) { $opts_cmd{boolean}{zip} = 1; }
+if ($tar) { $opts_cmd{boolean}{tar} = 1; }
+if ($shell) { $opts_cmd{boolean}{shell} = 1; }
+if ($nopdf) { $opts_cmd{boolean}{nopdf} = 1; }
+if ($norun) { $opts_cmd{boolean}{norun} = 1; }
+if ($nocrop) { $opts_cmd{boolean}{nocrop} = 1; }
+if ($srcenv) { $opts_cmd{boolean}{srcenv} = 1; }
+if ($gray) { $opts_cmd{boolean}{gray} = 1; }
+if ($force) { $opts_cmd{boolean}{force} = 1; }
+if ($noprew) { $opts_cmd{boolean}{noprew} = 1; }
+if ($runbibtex) { $opts_cmd{boolean}{bibtex} = 1; }
+if ($runbiber) { $opts_cmd{boolean}{biber} = 1; }
+if ($clear) { $opts_cmd{boolean}{clear} = 1; }
+if ($nosource) { $opts_cmd{boolean}{nosource} = 1; }
+if ($arara) { $opts_cmd{compiler}{arara} = 1; }
+if ($latexmk) { $opts_cmd{compiler}{latexmk} = 1; }
+if ($luatex) { $opts_cmd{compiler}{luatex} = 1; }
+if ($xetex) { $opts_cmd{compiler}{xetex} = 1; }
+if ($tmpverbenv) { $opts_cmd{string}{ignore} = $tmpverbenv; }
+$opts_cmd{string}{myverb} = $myverb;
+$opts_cmd{string}{dpi} = $dpi;
+$opts_cmd{string}{runs} = $runs;
+$opts_cmd{string}{margins} = $margins;
+$opts_cmd{string}{imgdir} = $imgdir;
-while ($cuerpo =~ /^\\begin\{PSTexample\}\[.+?(?<nombre_archivo_secundario>$imageDir\/.+?-\d+)\}\](?<contenido>.+?)(?=^\\end\{PSTexample})/gsm) {
- open my $SALIDA, '>', "$+{'nombre_archivo_secundario'}$ext";
- print $SALIDA <<"EOC";
-$cabeza\n\\thispagestyle{empty}$+{'contenido'}\\end{document}
-EOC
- close $SALIDA;
+foreach my $key (keys %{$opts_cmd{boolean}}) {
+ if (defined $opts_cmd{boolean}{$key}) { push @currentopt, "--$key"; }
}
-# Now, deault way join all PSTexample files
-if(!$nopreview){
-if (-e "$imageDir/$name-exa-1$ext") {
-# print "PSTexample environment found\n";
-# 1- Leer los PSTexa files
-my @pstexafiles = glob("$imageDir/$name-exa-*$ext");
-
-# 2- Ordenar según el índice y extención
- at pstexafiles =
- map { $_->[1] }
- sort { $a->[0] <=> $b->[0] }
- map { [ ($_ =~ /(\d+$ext)/), $_ ] }
- @pstexafiles;
-
-# 3- Bucle para leer las secciones
-my @almacen;
-for my $exafile (@pstexafiles) {
-
- # 3.1- Leer el archivo
- open my $FH, '<', $exafile; #
- my $tex = join q{}, <$FH>; #
- close $FH;
-
- # 3.2- Extraer la parte que nos interesa
- my($pedazo) = $tex =~ m/\\thispagestyle\{empty\}\s*(.+?)\s*\\end\{document\}/sm;
-
- # 3.3- Almacenamos, si hemos encontrado algo
- push @almacen, $pedazo if $pedazo;
+foreach my $key (keys %{$opts_cmd{compiler}}) {
+ if (defined $opts_cmd{compiler}{$key}) { push @currentopt, "--$key"; }
}
-
-# 4- Salida
-open my $SALIDA, '>', "$tempDir/$name-exa$ext";
+foreach my $key (keys %{$opts_cmd{image}}) {
+ if (defined $opts_cmd{image}{$key}) { push @currentopt, "--$key"; }
+}
+foreach my $key (keys %{$opts_cmd{string}}) {
+ if (defined $opts_cmd{string}{$key}) { push @currentopt, "--$key $opts_cmd{string}{$key}"; }
+}
-print $SALIDA "$cabeza\n";
-
-my $fig = 1;
-for my $item (@almacen) {
- print $SALIDA "\\thispagestyle\{empty\}\n";
- print $SALIDA $item;
- print $SALIDA "%fig . $fig\n";
- print $SALIDA "\\newpage\n";
- $fig++;
+ at currentopt = grep !/--pdf/, @currentopt;
+my @sorted_words = sort { length $a <=> length $b } @currentopt;
+
+Log('The script will execute the following options:');
+Logarray(\@sorted_words);
+
+### Set directory to save generated files, need full path for goog log :)
+my $imgdirpath = File::Spec->rel2abs($imgdir);
+
+if (-e $imgdir) {
+ Infoline("The generated files will be saved in $imgdirpath");
}
-
-print $SALIDA '\end{document}';
-close $SALIDA;
- } # close join exa files (if exist)
-} # close nopreview
+else {
+ Infoline("Creating the directory $imgdirpath to save the generated files");
+ Infocolor('Running', "mkdir $imgdirpath");
+ Logline("[perl] mkdir($imgdir,0744)");
+ mkdir $imgdir,0744 or errorUsage("Can't create the directory $imgdir");
+}
-### Escribimos en el mismo archivo con los cambios en verbatim
-open my $SALIDA, '>', "$tempDir/$name-tmp$ext";
-print $SALIDA "$cabeza$cuerpo$final";
-close $SALIDA;
+### Set compiler for process <input file>
+my $compiler = $xetex ? 'xelatex'
+ : $luatex ? 'dvilualatex'
+ : 'latex'
+ ;
-## Comentamos pst-exa en el preambulo, para no entorpecer a preview
-$cabeza =~
-s/(?<exapack>\\usepackage\[(swpl|tcb)\]\{pst-exa\})/%$+{exapack}/gsmx;
-## Eliminamos PSTexample y PSTcode para no entorpecer a preview
-$cuerpo =~
-s/(?<initexa>\\begin\{PSTexample\})(?<code>.+?)(?<endexa>\\end\{PSTexample\})//gsmx;
-$cuerpo =~
-s/(?<initexa>\\begin\{PSTcode\})(?<code>.+?)(?<endexa>\\end\{PSTcode\})//gsmx;
+### Set options for pdfcrop
+my $opt_crop = $xetex ? "--xetex --margins $margins"
+ : $luatex ? "--luatex --margins $margins"
+ : "--margins $margins"
+ ;
-## Escribimos el archivo completo para las figuras
-if(!$nopreview){
-open my $OUTFILE, '>', "$tempDir/$name-pst$ext";
-print $OUTFILE "\\AtBeginDocument\{\n";
-if($xetex){
-print $OUTFILE "\\RequirePackage\[xetex,active,tightpage\]\{preview\}\n";
+### Set options for preview package
+my $opt_prew = $xetex ? 'xetex,' : q{};
+
+### Set message in terminal
+my $msg_compiler = $xetex ? 'xelatex'
+ : $luatex ? 'dvilualatex>dvips>ps2pdf'
+ : 'latex>dvips>ps2pdf'
+ ;
+
+### Set write18 for compiler in TeXLive and MikTeX
+if ($shell) {
+ $write18 = '-shell-escape';
+ $write18 = '--enable-write18' if defined $ENV{'TEXSYSTEM'} and $ENV{'TEXSYSTEM'} =~ /miktex/i;
}
-else{
-print $OUTFILE "\\RequirePackage\[active,tightpage\]\{preview\}\n";
+else {
+ $write18 = '-no-shell-escape';
+ $write18 = '--disable-write18' if defined $ENV{'TEXSYSTEM'} and $ENV{'TEXSYSTEM'} =~ /miktex/i;
}
-print $OUTFILE "\\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}%\n";
-print $OUTFILE "\\PreviewEnvironment\{pspicture\}\n";
-print $OUTFILE "\\PreviewEnvironment\{postscript\}\}\n";
-print $OUTFILE "$cabeza$cuerpo\\end\{document\}";
-close $OUTFILE;
-}
-## Escribimos en el mismo archivo, convirtiendo PSTexample
-## esta sera el archivo de entrada en el resto del script
-my @lineas;
-{
- open my $FILE, "$tempDir/$name-tmp$ext";
- @lineas = <$FILE>;
- close $FILE;
+### Set options for compiler
+my $opt_compiler = "$write18 -interaction=nonstopmode -recorder";
+
+if (!$norun) {
+ Log("The options '$opt_compiler' will be passed to $compiler");
}
-my $PSTexample = qr/(?: PSTexample | PSTcode )/xi;
-#
-my $DEL;
+### Set -q for system command line (gs, poppler-utils, dvips)
+my $quiet = $verbose ? q{}
+ : '-q'
+ ;
-for (@lineas) {
- if (/^\\begin\{($PSTexample)(?{ $DEL = "\Q$^N" })\}/ .. /^\\end\{$DEL\}/) {
- while (my($busco, $cambio) = each %cambios) {
- s/\Q$busco\E/$cambio/g;
- }
- }
- }
+### Set options for ghostscript
+my %opt_gs_dev = (
+ pdf => '-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=pdfwrite',
+ gray => '-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=pdfwrite -sColorConversionStrategy=Gray -sProcessColorModel=DeviceGray',
+ png => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=pngalpha -r$dpi",
+ bmp => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=bmp32b -r$dpi",
+ jpg => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=jpeg -r$dpi -dJPEGQ=100 -dGraphicsAlphaBits=4 -dTextAlphaBits=4",
+ tif => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=tiff32nc -r$dpi",
+ );
-# Escritura del resultado
-open my $SALIDA, '>', "$tempDir/$name-tmp$ext";
-print $SALIDA @lineas;
-close $SALIDA;
-# end code for pstexample
+### Set poppler-utils executables
+my %cmd_poppler = (
+ eps => "pdftops",
+ ppm => "pdftoppm",
+ svg => "pdftocairo",
+ );
-my $imgNo = 1; # internal image counter
-#----------------- nopreview mode, dont'n need gs ----------------------
-if ($nopreview) {
-LOG ("Running on [$path][$name][$ext]");
-open my $FILE,'<', "$TeXfile" ; # the source
-if (!$noImages ) {
-LOG ("nopreview mode generate images...");
-savePreamble($name);
-runFile($name);
-runPSTimg($name);
-close $FILE; # close source file
-close $LOGfile;
- }
-}
-#----------------------- Default way, using gs -------------------------
-else{
-LOG ("Running on [$path][$name][$ext]");
-open my $FILE,'<', "$TeXfile" ; # the source
-if (!$noImages ) {
-LOG ("Using gs for split images ... ");
-savePreamble($name);
-runFile($name);
-runPSTimg($name);
-LOG ("done!\n go to runFile ...");
-LOG ("done!");
-close $FILE; # close source file
-close $LOGfile;
- }# !noImages
-}# close
+### Set options for poppler-utils
+my %opt_poppler = (
+ eps => "$quiet -eps",
+ ppm => "$quiet -r $dpi",
+ svg => "$quiet -svg",
+ );
+### Copy preamble and body for temp file with all environments
+my $atbeginout = $atbegindoc;
+my $preamout = $preamble;
+my $tmpbodydoc = $bodydoc;
+### Match \pagestyle and \thispagestyle in preamble
+my $style_page = qr /(?:\\)(?:this)?(?:pagestyle\{) (.+?) (?:\})/x;
+my @style_page = $preamout =~ m/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)| $style_page/gmsx;
+my %style_page = map { $_ => 1 } @style_page; # anon hash
-#-------------------------- Save Preamble ------------------------------
-# Now 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.
-sub savePreamble {
-my $filename = pop; # get the file name
- LOG ("----- Start Preamble -----");
-open my $FILEp,'>',"$tempDir/$filename.preamble";
-open my $FILE, '<', "$tempDir/$name-tmp$ext";
- while (<$FILE>) { # read all until \begin{document}
- my $i = index($_,"begin{document}");
- if ($i > 0) {
- if ($i > 1) { print $FILEp substr($_,0,--$i); } # write all until \begin{document}
- if ($nopreview) {
- print $FILEp "\\newenvironment{postscript}{}{}\n";
- print $FILEp "\\pagestyle{empty}\n";
- }
-close $FILEp; # close preamble
- LOG ("----- Close Preamble ------");
- return;
- }
-else {
- print $FILEp "$_"; # write into preamble
- LOG ("$_");
+### Set \pagestyle{empty} for standalone files and process
+if (@style_page) {
+ if (!exists $style_page{empty}) {
+ Log("Replacing page style for generated files");
+ $preamout =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ (\\(this)?pagestyle)(?:\{.+?\})/$1\{empty\}/gmsx;
}
}
-close $FILE;
-close $FILEp;
+else {
+ Log('Add \pagestyle{empty} for generated files');
+ $preamout = $preamout."\\pagestyle\{empty\}\n";
}
-# Search in source-parser file
-sub searchPS { # search the PostScript parts
- my @PS = (); # nopreview 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
- open my $FILE, '<', "$tempDir/$name-tmp$ext";
- while (<$FILE>) { # scan the input file
- if (!$EndDocument) {
- 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}
- 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 (($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}
- $type = 2;
- $line = substr($line,$iPS-1); # add rest of the line
- LOG("PS-Zeile: $line");
- }
- 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 created a preamble for the individual files
+my $sub_prea = "$atbeginout$preamout".'\begin{document}';
+
+### Revert changes
+$sub_prea =~ s/\%<\*$dtxverb>\s*(.+?)\s*\%<\/$dtxverb>/$1/gmsx;
+%replace = (%changes_out);
+$find = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %replace;
+$sub_prea =~ s/($find)/$replace{$1}/g;
+$sub_prea =~ s/^(?:\%<\*remove$tmp>)(.+?)(?:\%<\/remove$tmp>)/%CleanPST$1%CleanPST/gmsx;
+
+### Write standalone files for environments
+if (!$nosource) {
+ my $src_name = "$name-fig-";
+ my $srcNo = 1;
+ if ($srcenv) {
+ Log('Extract source code of all captured environments without preamble');
+ if ($STDenv) {
+ if (-e "$imgdir/$name-fig-1$ext") {
+ Log("Recreating $envNo $fileSTD [$ext] with source code for $envSTD in $imgdirpath");
+ print "Recreating $envNo $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envSTD\r\n";
+ }
+ else {
+ Log("Creating $envNo $fileSTD [$ext] with source code for $envSTD in $imgdirpath");
+ print "Creating $envNo $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envSTD\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BP(?:\s*)?(?<env_src>.+?)(?:\s*)?$EP/gms) {
+ open my $outexasrc, '>', "$imgdir/$src_name$srcNo$ext";
+ print {$outexasrc} $+{'env_src'};
+ close $outexasrc;
+ }
+ continue { $srcNo++; }
}
- }
-# 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...
- $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
- LOG ("searchPS: $line");
- $depth--;
- if ($depth < 0) {
- $type = -1;
- 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}
- else { push @PS,substr($line,0,$iPST+14); } # \end{pspicture}
- LOG ("searchPS: set \$type=$type");
- push @PStotal,[@PS]; # add PS sequence
- LOG ("---->PS---->\n at PS\n<----PS<----");
- @PS = (); # start new PS sequence
- } # no pspicture env left
- } else { push @PS,$line; } # pspicture inside postscript
- } elsif ($iPS > 0) { # must be type=1 -> stop Scan
- LOG ("searchPS: $line");
- $type = -1;
- push @PS,substr($line,0,$iPS+15); # add line
- LOG ("searchPS: set \$type=$type");
- push @PStotal,[@PS]; # add PS sequence
- LOG ("---->PS---->\n at PS\n<----PS<----");
- @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 (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; }
- }}
- if ( $Verbose ) {
- LOG("---->PStotal---->");
- for my $aref ( @PStotal ) {
- my @a = @$aref;
- my $i = 1;
- foreach ( @a ) { LOG ($a[$i]); $i=$i+1; }
+ if ($PSTexa) {
+ if (-e "$imgdir/$name-fig-exa-1$ext") {
+ Log("Recreating $exaNo $fileEXA [$ext] with source code for $envEXA in $imgdirpath");
+ print "Recreating $exaNo $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envEXA\r\n";
+ }
+ else {
+ Log("Creating $exaNo $fileEXA [$ext] with source code for $envEXA in $imgdirpath");
+ print "Creating $exaNo $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envEXA\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BE\[.+?(?<pst_exa_name>$imgdir\/.+?-\d+)\}\]\s*(?<exa_src>.+?)\s*$EE/gms) {
+ open my $outstdsrc, '>', "$+{'pst_exa_name'}$ext";
+ print {$outstdsrc} $+{'exa_src'};
+ close $outstdsrc;
+ }
+ }
}
- LOG ("<----PStotal<----");
- }
- close $FILE;
- return @PStotal; # return all PS sequences
+ else {
+ Log('Extract source code of all captured environments with preamble');
+ if ($STDenv) {
+ if (-e "$imgdir/$name-fig-1$ext") {
+ Log("Recreating $envNo standalone $fileSTD [$ext] for $envSTD in $imgdirpath");
+ print "Recreating $envNo standalone $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " for $envSTD\r\n";
+ }
+ else {
+ Log("Creating $envNo standalone $fileSTD [$ext] for $envSTD in $imgdirpath");
+ print "Creating $envNo standalone $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " for $envSTD\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BP(?:\s*)?(?<env_src>.+?)(?:\s*)?$EP/gms) {
+ open my $outstdfile, '>', "$imgdir/$src_name$srcNo$ext";
+ print {$outstdfile} "$sub_prea\n$+{'env_src'}\n\\end\{document\}";
+ close $outstdfile;
+ }
+ continue { $srcNo++; }
+ }
+ if ($PSTexa) {
+ if (-e "$imgdir/$name-fig-exa-1$ext") {
+ Log("Recreating $exaNo standalone $fileEXA [$ext] for $envEXA in $imgdirpath");
+ print "Recreating $exaNo standalone $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " for $envEXA\r\n";
+ }
+ else {
+ Log("Creating $exaNo standalone $fileEXA [$ext] for $envEXA in $imgdirpath");
+ print "Creating $exaNo standalone $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " for $envEXA\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BE\[.+?(?<pst_exa_name>$imgdir\/.+?-\d+)\}\]\s*(?<exa_src>.+?)\s*$EE/gms) {
+ open my $outexafile, '>', "$+{'pst_exa_name'}$ext";
+ print {$outexafile} "$sub_prea\n$+{'exa_src'}\n\\end\{document\}";
+ close $outexafile;
+ }
+ }
+ }
}
-#---------------------- Create files.tex for images --------------------
-sub runFile {
+### Store options for preview and pst-pdf (add at begin document)
+my $previewpkg = <<"EXTRA";
+\\PassOptionsToPackage\{inactive\}\{pst-pdf\}%
+\\AtBeginDocument\{%
+\\RequirePackage\[inactive\]\{pst-pdf\}%
+\\RequirePackage\[${opt_prew}active,tightpage\]\{preview\}%
+\\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}\}%
+EXTRA
- my $filename = pop;
- my @PSarray = searchPS();
+### Store options for pst-pdf (add at begin document)
+my $pstpdfpkg = <<'EXTRA';
+\PassOptionsToPackage{inactive}{pst-pdf}
+\AtBeginDocument{%
+\RequirePackage[inactive]{pst-pdf}}%
+EXTRA
- if ( $Verbose ) {
- LOG("---->PSarray---->");
- for my $aref ( @PSarray ) {
- my @a = @$aref;
- my $i = 1;
- foreach ( @a ) { print LOG $a[$i]."\n"; $i=$i+1; }
+### First match preview package in preamble (prevent option clash)
+my $REQPACK = quotemeta'\RequirePackage';
+my $USEPACK = quotemeta'\usepackage';
+my $CORCHETES = qr/\[ [^]]*? \]/x;
+
+my $PALABRAS = qr/\b (?: preview )/x;
+my $FAMILIA = qr/\{ \s* $PALABRAS (?: \s* [,] \s* $PALABRAS )* \s* \}(\%*)?/x;
+
+Log('Remove preview package in preamble [memory]');
+$preamout =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ^ $USEPACK (?: $CORCHETES )? $FAMILIA \s*//msxg;
+$preamout =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ (?: ^ $USEPACK \{ | \G) [^}]*? \K (,?) \s* $PALABRAS (\s*) (,?) /$1 and $3 ? ',' : $1 ? $2 : ''/gemsx;
+$preamout =~ s/^\\usepackage\{\}(?:[\t ]*(?:\r?\n|\r))+/\n/gmsx;
+
+### Remove %<*$dtxverb> ... %</$dtxverb> in tmpbodydoc and preamout
+$tmpbodydoc =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+$preamout =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+
+### Adjust nopreview environments
+$tmpbodydoc =~ s/\\begin\{nopreview\}\%$tmp
+ (?<code> .+?)
+ \\end\{nopreview\}\%$tmp
+ /\\begin\{nopreview\}\n$+{code}\n\\end\{nopreview\}/gmsx;
+
+### Adjust $wrapping environments (no need realy)
+$tmpbodydoc =~ s/\\begin\{$wrapping\}
+ (?<code>.+?)
+ \\end\{$wrapping\}
+ /\\begin\{$wrapping\}\n$+{code}\n\\end\{$wrapping\}/gmsx;
+
+### Reverse changes for temporary file with all env (no in -exa file)
+$tmpbodydoc =~ s/($find)/$replace{$1}/g;
+$tmpbodydoc =~ s/(\%TMP$tmp)//g;
+$preamout =~ s/($find)/$replace{$1}/g;
+$preamout =~ s/^(?:\%<\*remove$tmp>)(.+?)(?:\%<\/remove$tmp>)/%CleanPST$1%CleanPST/gmsx;
+$atbeginout =~ s/($find)/$replace{$1}/g;
+
+### We created a preamble for individual files with all environments
+$sub_prea = $noprew ? "$atbeginout$pstpdfpkg$preamout".'\begin{document}'
+ : "$atbeginout$previewpkg$preamout"
+ ;
+
+### Create a one file with "all" PSTexample environments extracted
+if ($PSTexa) {
+ @exa_extract = undef;
+ Log("Adding packages to $name-fig-exa-$tmp$ext [memory]");
+ Logline($pstpdfpkg);
+ Log('Convert plain Tex syntax for pspicture and psgraph to LaTeX syntax in PSTexample environments');
+ while ($tmpbodydoc =~ m/$BE\[.+? $imgdir\/.+?-\d+\}\] .+?$EE/pgsmx ) { # search
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ $encontrado =~ s/\\pspicture(\*)?(.+?)\\endpspicture/\\begin\{pspicture$1\}$2\\end\{pspicture$1\}/gmsx;
+ $encontrado =~ s/\\psgraph(\*)?(.+?)\\endpsgraph/\\begin\{psgraph$1\}$2\\end\{psgraph$1\}/gmsx;
+ substr $tmpbodydoc, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($tmpbodydoc) = $pos_inicial + length $encontrado;
}
- LOG("<----PSarray<----");
- my $no = @PSarray;
- LOG("PS: ".$no." PS sequence(s)");
- }
- for my $aref ( @PSarray ) {
- my @PS = @$aref;
- open my $FILEp,'<',"$tempDir/$filename.preamble";
- open my $FILEsub,'>',"$tempDir/$filename-fig$ext";
- while (<$FILEp>) {print $FILEsub $_; }
- print $FILEsub "\\begin{document}\n";
- if ( $Verbose ) { LOG("\@PS: $_"); }
- foreach ( @PS ) { print $FILEsub "$_\n"; }
- print $FILEsub "\\end{document}";
- close $FILEsub;
- close $FILEp;
- runTeX("$tempDir/$filename-fig");
- }
+ # Write file
+ Infoline("Creating $name-fig-exa-$tmp$ext with $exaNo $envEXA extracted");
+ while ($tmpbodydoc =~ m/$BE\[.+? $imgdir\/.+?-\d+\}\](?<exa_src>.+?)$EE/gmsx ) { # search
+ push @exa_extract, $+{'exa_src'}."\\newpage\n";
+ open my $allexaenv, '>', "$name-fig-exa-$tmp$ext";
+ print {$allexaenv} "$atbeginout$pstpdfpkg$preamout".'\begin{document}'."@exa_extract"."\\end\{document\}";
+ close $allexaenv;
+ }
+ # Remove [graphic={...}] in PSTexample example environments
+ $tmpbodydoc =~ s/($BE)(?:\[graphic=\{\[scale=1\]$imgdir\/.+?-\d+\}\])/$1/gmsx;
+ $tmpbodydoc =~ s/($BE\[.+?)(?:,graphic=\{\[scale=1\]$imgdir\/.+?-\d+\})(\])/$1$2/gmsx;
+ # Moving and renaming
+ if ($norun) {
+ Infoline("Moving and renaming $name-fig-exa-$tmp$ext to $name-fig-exa-all$ext");
+ if (-e "$imgdir/$name-fig-exa-all$ext") {
+ Infocolor('Warning', "The file [$name-fig-exa-all$ext] already exists and will be rewritten");
+ Log("Rewriting the file $name-fig-exa-all$ext in $imgdirpath");
+ }
+ else {
+ Log("Writing the file $name-fig-exa-all$ext in $imgdirpath");
+ }
+ if ($verbose) {
+ Infocolor('Running', "mv $workdir/$name-fig-exa-$tmp$ext $imgdirpath/$name-fig-exa-all$ext");
+ }
+ else {
+ Infocolor('Running', "mv $name-fig-exa-$tmp$ext ./$imgdir/$name-fig-exa-all$ext");
+ }
+ Logline("[perl] move($workdir/$name-fig-exa-$tmp$ext, $imgdirpath/$name-fig-exa-all$ext)");
+ move("$workdir/$name-fig-exa-$tmp$ext", "$imgdir/$name-fig-exa-all$ext")
+ or die "* Error!!: Couldn't be renamed $name-fig-exa-$tmp$ext to ./$imgdir/$name-fig-exa-all$ext";
+ }
}
-LOG ("runpdfTeX ... ");
-runpdfTeX("$path$name",$name);
-LOG ("all finished ... :-)");
-#------------------- Copy files.tex for images in default mode ---------
-sub runTeX{
- my $filename = pop;
- copy("$filename$ext", "$imageDir/$filename-$imgNo$ext");
- $imgNo=$imgNo+1;
+### Create a one file with "all" standard environments extracted
+if ($STDenv) {
+ if ($noprew) {
+ Log("Creating $name-fig-$tmp$ext with $envNo $envSTD extracted [no preview]");
+ print "Creating $name-fig-$tmp$ext with $envNo $envSTD extracted",
+ color('magenta'), " [no preview]\r\n",color('reset');
+ }
+ else {
+ Log("Creating $name-fig-$tmp$ext with $envNo $envSTD extracted [preview]");
+ print "Creating $name-fig-$tmp$ext with $envNo $envSTD extracted",
+ color('magenta'), " [preview]\r\n",color('reset');
+ }
+ open my $allstdenv, '>', "$name-fig-$tmp$ext";
+ if ($noprew) {
+ my @env_extract;
+ while ($tmpbodydoc =~ m/(?:$BP)(?<env_src>.+?)(?:$EP)/gms) {
+ push @env_extract,$+{'env_src'}."\\newpage\n";
+ }
+ Log("Adding packages to $name-fig-$tmp$ext");
+ Logline($pstpdfpkg);
+ print {$allstdenv} $sub_prea."@env_extract"."\\end{document}";
+ }
+ else {
+ Log("Adding packages to $name-fig-$tmp$ext");
+ Logline($previewpkg);
+ Log("Convert $wrapping to preview environments in $name-fig-$tmp$ext");
+ # Convert $wrapping to preview environments
+ $tmpbodydoc =~ s/\\begin\{$wrapping\}(?<code>.+?)\\end\{$wrapping\}
+ /\\begin\{preview\}\n$+{code}\n\\end\{preview\}\n/gmsx;
+ print {$allstdenv} $sub_prea.$tmpbodydoc."\n\\end{document}";
+ }
+ close $allstdenv;
+ # Moving and renaming
+ if ($norun) {
+ Infoline("Moving and renaming $name-fig-$tmp$ext to $name-fig-all$ext");
+ if (-e "$imgdir/$name-fig-all$ext") {
+ Infocolor('Warning', "The file [$name-fig-all$ext] already exists and will be rewritten");
+ Log("Rewriting the file $name-fig-all$ext in $imgdirpath");
+ }
+ else {
+ Log("Writing the file $name-fig-all$ext in $imgdirpath");
+ }
+ if ($verbose) {
+ Infocolor('Running', "mv $workdir/$name-fig-$tmp$ext $imgdirpath/$name-fig-all$ext");
+ }
+ else {
+ Infocolor('Running', "mv $name-fig-$tmp$ext ./$imgdir/$name-fig-all$ext");
+ }
+ Logline("[perl] move($workdir/$name-fig-$tmp$ext, $imgdirpath/$name-fig-all$ext)");
+ move("$workdir/$name-fig-$tmp$ext", "$imgdir/$name-fig-all$ext")
+ or die "* Error!!: Couldn't be renamed $name-fig-$tmp$ext to ./$imgdir/$name-fig-all$ext";
+ }
}
-#------------------- Create images in PDF fromat ------------------------
-sub runPSTimg() {
-# Option for gs
-my $opt_gs_split='-q -sDEVICE=pdfwrite -dPDFSETTINGS=/prepress -dNOPAUSE -dBATCH ';
-# Option for pdfcrop
-my $opt_pdfcrop="-margins $margins";
-
-# Abrimos el directorio y creamos las imagenes en formato PDF
-if ($nopreview) {
-opendir(my $DIR, $imageDir);
- while (readdir $DIR) {
-if (/(?<nombre>$name-(fig|exa)-\d+)(?<extension>$ext)/) {
-if ($xetex){
- system("xelatex -interaction=batchmode -output-directory=$imageDir $imageDir/$+{nombre}$+{extension}");
- system("pdfcrop $opt_pdfcrop -xetex $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.pdf");
- } # close xelatex
-else{
- system("latex -interaction=batchmode -output-directory=$imageDir $imageDir/$+{nombre}$+{extension}");
- system("dvips -q -P pdf -o $imageDir/$+{nombre}.ps $imageDir/$+{nombre}.dvi");
- system("ps2pdf $imageDir/$+{nombre}.ps $imageDir/$+{nombre}.pdf");
- system("pdfcrop $opt_pdfcrop $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.pdf");
- } # close latex>dvips>ps2pdf
- } # close find regex in nopreview
-} # close while
+### Compiler and generate PDF files
+if (!$norun) {
+Log('Generate a PDF file with all captured environments');
+my @compiler = (1..$runs);
+opendir (my $DIR, $workdir);
+ while (readdir $DIR) {
+ if (/(?<name>$name-fig(-exa)?)(?<type>-$tmp$ext)/) {
+ Log("Compiling the file $+{name}$+{type} using [$msg_compiler]");
+ print "Compiling the file $+{name}$+{type} using ", color('magenta'), "[$msg_compiler]\r\n",color('reset');
+ # Compiling file
+ for (@compiler){
+ RUNOSCMD("$compiler $opt_compiler","$+{name}$+{type}",'show');
+ }
+ # Using dvips>ps2pdf
+ if ($compiler eq 'latex' or $compiler eq 'dvilualatex') {
+ RUNOSCMD("dvips $quiet -Ppdf", "-o $+{name}-$tmp.ps $+{name}-$tmp.dvi",'show');
+ RUNOSCMD("ps2pdf -sPDFSETTINGS=prepress -sAutoRotatePages=None", "$+{name}-$tmp.ps $+{name}-$tmp.pdf",'show');
+ }
+ # Moving and renaming temp files with source code
+ Infoline("Moving and renaming $+{name}$+{type} to $+{name}-all$ext");
+ if (-e "$imgdir/$+{name}-all$ext") {
+ Infocolor('Warning', "The file [$+{name}-all$ext] already exists and will be rewritten");
+ Log("Rewriting the file $+{name}-all$ext with all source for environments in $imgdirpath");
+ }
+ else {
+ Log("Writing the file $+{name}-all$ext with all source for environments in $imgdirpath");
+ }
+ if ($verbose){
+ Infocolor('Running', "mv $workdir/$+{name}$+{type} $imgdirpath/$+{name}-all$ext");
+ }
+ else {
+ Infocolor('Running', "mv $+{name}$+{type} ./$imgdir/$+{name}-all$ext");
+ }
+ Logline("[perl] move($workdir/$+{name}$+{type}, $imgdirpath/$+{name}-all$ext)");
+ move("$workdir/$+{name}$+{type}", "$imgdir/$+{name}-all$ext")
+ or die "* Error!!: Couldn't be renamed $+{name}$+{type} to $imgdir/$+{name}-all$ext";
+ # pdfcrop
+ if (!$nocrop) {
+ Infoline("Cropping the file $+{name}-$tmp.pdf");
+ RUNOSCMD("pdfcrop $opt_crop", "$+{name}-$tmp.pdf $+{name}-$tmp.pdf",'show');
+ }
+ # gray
+ if ($gray) {
+ Infoline("Creating the file $+{name}-all.pdf [gray] in $tempDir");
+ RUNOSCMD("$gscmd $quiet $opt_gs_dev{gray} ","-o $tempDir/$+{name}-all.pdf $workdir/$+{name}-$tmp.pdf",'show');
+ }
+ else {
+ Infoline("Creating the file $+{name}-all.pdf in $tempDir");
+ if ($verbose){
+ Infocolor('Running', "mv $workdir/$+{name}-$tmp.pdf $tempDir/$+{name}-all.pdf");
+ }
+ else { Infocolor('Running', "mv $+{name}-$tmp.pdf $tempDir/$+{name}-all.pdf"); }
+ # Renaming pdf file
+ Logline("[perl] move($workdir/$+{name}-$tmp.pdf, $tempDir/$+{name}-all.pdf)");
+ move("$workdir/$+{name}-$tmp.pdf", "$tempDir/$+{name}-all.pdf")
+ or die "* Error!!: Couldn't be renamed $+{name}-$tmp.pdf to $tempDir/$+{name}-all.pdf";
+ }
+ }
+ }
closedir $DIR;
-} # close $nopreview
-# Cerramos y abrimos con nopreview (gs por defecto)
-else{
-# Compilamos PSTexa usando gs
-if (-e "$tempDir/$name-exa$ext") {
-if ($xetex){
- system("xelatex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-exa$ext");
- system("pdfcrop $opt_pdfcrop -xetex $imageDir/$name-exa.pdf $imageDir/$name-exa.pdf");
- } # xelatex
-else{
- system("latex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-exa$ext");
- system("dvips -q -Ppdf -o $imageDir/$name-exa.ps $imageDir/$name-exa.dvi");
- system("ps2pdf -dPDFSETTINGS=/prepress $imageDir/$name-exa.ps $imageDir/$name-exa.pdf");
- system("pdfcrop $opt_pdfcrop $imageDir/$name-exa.pdf $imageDir/$name-exa.pdf");
- } # close latex>dvips>ps2pdf
-system("$::opt_gscmd $opt_gs_split -sOutputFile=$imageDir/$name-exa-%1d.pdf $imageDir/$name-exa.pdf");
+}
-# Eliminamos los fuentes
-if ($clear) {
- unlink "$imageDir/$name-exa.pdf";
- unlink "$tempDir/$name-exa$ext";
+### Create image formats in separate files
+if (!$norun) {
+ Log("Creating the image formats: $format, working on $tempDir");
+ opendir(my $DIR, $tempDir);
+ while (readdir $DIR) {
+ # PDF/PNG/JPG/BMP/TIFF format suported by ghostscript
+ if (/(?<name>$name-fig(-exa)?)(?<type>-all\.pdf)/) {
+ for my $var (qw(pdf png jpg bmp tif)) {
+ if (defined $opts_cmd{image}{$var}) {
+ Log("Generating format [$var] from file $+{name}$+{type} in $imgdirpath using $gscmd");
+ print 'Generating format', color('blue'), " [$var] ", color('reset'),"from file $+{name}$+{type}\r\n";
+ RUNOSCMD("$gscmd $quiet $opt_gs_dev{$var} ", "-o $workdir/$imgdir/$+{name}-%1d.$var $tempDir/$+{name}$+{type}",'show');
+ }
+ }
+ }
+ # EPS/PPM/SVG format suported by poppler-utils
+ if (/(?<name>$name-fig-exa)(?<type>-all\.pdf)/) { # pst-exa package
+ for my $var (qw(eps ppm svg)) {
+ if (defined $opts_cmd{image}{$var}) {
+ Log("Generating format [$var] from file $+{name}$+{type} in $imgdirpath using $cmd_poppler{$var}");
+ print 'Generating format', color('blue'), " [$var] ", color('reset'),"from file $+{name}$+{type}\r\n";
+ if (!$verbose){
+ Infocolor('Running', "$cmd_poppler{$var} $opt_poppler{$var}");
+ }
+ for (my $epsNo = 1; $epsNo <= $exaNo; $epsNo++) {
+ RUNOSCMD("$cmd_poppler{$var} $opt_poppler{$var}", "-f $epsNo -l $epsNo $tempDir/$+{name}$+{type} $workdir/$imgdir/$+{name}-$epsNo.$var",'only');
+ }
+ }
+ }
+ }
+ if (/(?<name>$name-fig)(?<type>-all\.pdf)/) {
+ for my $var (qw(eps ppm svg)) {
+ if (defined $opts_cmd{image}{$var}) {
+ Log("Generating format [$var] from file $+{name}$+{type} in $imgdirpath using $cmd_poppler{$var}");
+ print 'Generating format', color('blue'), " [$var] ", color('reset'),"from file $+{name}$+{type}\r\n";
+ if (!$verbose){
+ Infocolor('Running', "$cmd_poppler{$var} $opt_poppler{$var}");
+ }
+ for (my $epsNo = 1; $epsNo <= $envNo; $epsNo++) {
+ RUNOSCMD("$cmd_poppler{$var} $opt_poppler{$var}", "-f $epsNo -l $epsNo $tempDir/$+{name}$+{type} $workdir/$imgdir/$+{name}-$epsNo.$var",'only');
+ }
+ }
+ }
+ }
+ } # close while
+ closedir $DIR;
+ # Renaming PPM image files
+ if (defined $opts_cmd{image}{ppm}) {
+ Log("Renaming [ppm] images in $imgdirpath");
+ if ($verbose){
+ print 'Renaming', color('blue'), " [ppm] ", color('reset'),"images in $imgdirpath\r\n";
+ }
+ opendir(my $DIR, $imgdir);
+ while (readdir $DIR) {
+ if (/(?<name>$name-fig(-exa)?-\d+\.ppm)(?<sep>-\d+)(?<ppm>\.ppm)/) {
+ if ($verbose){
+ Infocolor('Running', "mv $+{name}$+{sep}$+{ppm} $+{name}");
+ }
+ Logline("[perl] move($imgdirpath/$+{name}$+{sep}$+{ppm}, $imgdirpath/$+{name})");
+ move("$imgdir/$+{name}$+{sep}$+{ppm}", "$imgdir/$+{name}")
+ or die "* Error!!: Couldn't be renamed $+{name}$+{sep}$+{ppm} to $+{name}";
+ }
+ }
+ closedir $DIR;
}
-} # close check file exist
+} # close run
-# Compilamos las imagenes y las separamos usando gs
-if (-e "$imageDir/$name-fig-1$ext") {
-if ($xetex){
- system("xelatex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-pst$ext");
- system("pdfcrop $opt_pdfcrop -xetex $imageDir/$name-pst.pdf $imageDir/$name-pst.pdf");
- } # xelatex
-else{
- system("latex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-pst$ext");
- system("dvips -q -Ppdf -o $imageDir/$name-pst.ps $imageDir/$name-pst.dvi");
- system("ps2pdf -dPDFSETTINGS=/prepress $imageDir/$name-pst.ps $imageDir/$name-pst.pdf");
- system("pdfcrop $opt_pdfcrop $imageDir/$name-pst.pdf $imageDir/$name-pst.pdf");
- } # close latex>dvips>ps2pdf
-system("$::opt_gscmd $opt_gs_split -sOutputFile=$imageDir/$name-fig-%1d.pdf $imageDir/$name-pst.pdf");
-if ($clear) {
-unlink "$imageDir/$name-pst.pdf";
-unlink "$tempDir/$name-pst$ext";
-unlink "$tempDir/$name-fig$ext";
- } # end clear
- } # close check file exist
-} # close !nopreview (ghostscript)
-#--------------------------- Clear aux files ---------------------------
-if ($clear) {
-my @del_tmp;
-find(\&del_aux_tex, $imageDir);
-sub del_aux_tex{
-my $auximgfile = $_;
+### Constant
+my $findgraphicx = 'true';
-# search .(aux|dvi|log|ps)
-if(-f $auximgfile && $auximgfile =~ /\.(aux|dvi|log|ps)$/){
-push @del_tmp, $File::Find::name;
- }
-}
-unlink @del_tmp;
-}# end clear aux
+### Suport for pst-exa package
+my $pstexa = qr/(?:\\ usepackage) \[\s*(.+?)\s*\] (?:\{\s*(pst-exa)\s*\} ) /x;
+my @pst_exa;
+my %pst_exa;
-# Create xpdfrc conf for silent output pdftops/pdftoppm mesagge
-if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
+### Possible packages that load graphicx
+my @pkgcandidates = qw (
+ rotating epsfig lyluatex xunicode parsa xepersian-hm gregoriotex teixmlslides
+ teixml fotex hvfloat pgfplots grfpaste gmbase hep-paper postage schulealt
+ schule utfsym cachepic abc doclicense rotating epsfig semtrans mgltex
+ graphviz revquantum mpostinl cmpj cmpj2 cmpj3 chemschemex register papercdcase
+ flipbook wallpaper asyprocess draftwatermark rutitlepage dccpaper-base
+ nbwp-manual mandi fmp toptesi isorot pinlabel cmll graphicx-psmin ptmxcomp
+ countriesofeurope iodhbwm-templates fgruler combinedgraphics pax pdfpagediff
+ psfragx epsdice perfectcut upmethodology-fmt ftc-notebook tabvar vtable
+ teubner pas-cv gcard table-fct pdfpages keyfloat pdfscreen showexpl simplecd
+ ifmslide grffile reflectgraphics markdown bclogo tikz-page pst-uml realboxes
+ musikui csbulobalka lwarp mathtools sympytex mpgraphics miniplot.sty:77
+ dottex pdftricks2 feupphdteses tex4ebook axodraw2 hagenberg-thesis dlfltxb
+ hu-berlin-bundle draftfigure quicktype endofproofwd euflag othelloboard
+ pdftricks unswcover breqn pdfswitch latex-make figlatex repltext etsvthor
+ cyber xcookybooky xfrac mercatormap chs-physics-report tikzscale ditaa
+ pst-poker gmp CJKvert asypictureb hletter tikz-network powerdot-fuberlin
+ skeyval gnuplottex plantslabels fancytooltips ieeepes pst-vectorian
+ phfnote overpic xtuformat stubs graphbox ucs pdfwin metalogo mwe
+ inline-images asymptote UNAMThesis authorarchive amscdx pst-pdf adjustbox
+ trimclip fixmetodonotes incgraph scanpages pst-layout alertmessage
+ svg quiz2socrative realhats autopdf egplot decorule figsize tikzexternal
+ pgfcore frontespizio textglos graphicx tikz tcolorbox pst-exa
+ );
-if ($eps or $ppm) {
-open my $ppmconf, '>', "$tempDir/xpd";
-print $ppmconf <<'EOH';
-errQuiet yes
-EOH
-close $ppmconf;
- }
-}# end fix for windows
+my $pkgcandidates = join q{|}, map { quotemeta } sort { length $a <=> length $b } @pkgcandidates;
+$pkgcandidates = qr/$pkgcandidates/x;
+my @graphicxpkg;
-# options for other images type using ghostscript
-my $opt_gs_raw='-dGraphicsAlphaBits=4 -dTextAlphaBits=4 -dNOPAUSE -dBATCH ';
+### \graphicspath
+my $graphicspath= qr/\\ graphicspath \{ ((?: $llaves )+) \}/ix;
+my @graphicspath;
-# Creamos las imagenes en todos los formatos distintos a PDF
-opendir(my $DIR, $imageDir);
-while (readdir $DIR) {
-if (/(?<nombre>$name-(fig|exa)-\d+)(?<extension>\.pdf)/) {
+### Replacing the extracted environments with \includegraphics
+Log("Convert pstricks extracted environments to \\includegraphics for $name-pdf$ext");
+my $grap = "\\includegraphics[scale=1]{$name-fig-";
+my $close = '}';
+my $imgNo = 1;
+$bodydoc =~ s/$BP.+?$EP/$grap@{[$imgNo++]}$close/msg;
-# PNG format
-if ($png) {
-system("$::opt_gscmd -q -sDEVICE=pngalpha -r$DPI $opt_gs_raw -sOutputFile=$imageDir/$+{nombre}.png $imageDir/$+{nombre}.pdf");
- }
+### Add $atbegindoc to $preamble
+$preamble = "$atbegindoc$preamble";
-# JPEG format
-if ($jpg) {
-system("$::opt_gscmd -q -sDEVICE=jpeg -r$DPI -dJPEGQ=100 $opt_gs_raw -sOutputFile=$imageDir/$+{nombre}.jpg $imageDir/$+{nombre}.pdf");
- }
+### Remove content in preamble
+my @tag_remove_preamble = $preamble =~ m/(?:^\%<\*remove$tmp>.+?\%<\/remove$tmp>)/gmsx;
+if (@tag_remove_preamble) {
+ Log("Removing the content between <*remove> ... </remove> tags in preamble for $name-pdf$ext");
+ $preamble =~ s/^\%<\*remove$tmp>\s*(.+?)\s*\%<\/remove$tmp>(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
+}
-# SVG format
-if ($svg) {
- system("pdf2svg $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.svg");
- }
+### To be sure that the package is in the main document and not in a
+### verbatim write environment we make the changes using the hash and
+### range operator in a copy
+my %tmpreplace = (
+ 'graphicx' => 'TMPGRAPHICXTMP',
+ 'pst-exa' => 'TMPPSTEXATMP',
+ 'graphicspath' => 'TMPGRAPHICSPATHTMP',
+);
-# EPS format
-if ($eps) {
- if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
- system("pdftops -cfg $tempDir/xpd -q -level3 -eps $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.eps");
- }else{
- system("pdftops -q -level3 -eps $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.eps");
- }
- } # close EPS
+my $findtmp = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %tmpreplace;
+my $preambletmp = $preamble;
+my @lineas = split /\n/, $preambletmp;
-# PPM format
-if ($ppm) {
- if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
- system("pdftoppm -cfg $tempDir/xpd -q -r $DPI $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}");
- }else{
- system("pdftoppm -q -r $DPI $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}");
- }
- } # close PPM
- } # close finde regex
-} # close while
-closedir $DIR; #close dir
+### We remove the commented lines
+s/\%.*(?:[\t ]*(?:\r?\n|\r))?+//msg foreach @lineas;
-## Renombramos los ppm
-if ($ppm) {
-if (opendir(DIR,$dir)) { # abro el directorio
- while (my $oldname = readdir DIR) { # lo recorro
- # el nuevo nombre es fruto de una sustitución
- my $newname = $oldname =~ s/^($name-(fig|exa)-\d+)(-\d+).ppm$/$1 . ".ppm"/re;
-
- if ($oldname ne $newname) { # comprobación
- rename("$dir/$oldname", "$dir/$newname"); # renombro
- }
- }
- closedir DIR;
- } # close rename ppm
- } # close ppm
-} # cerramos runPSTimg
+### We make the changes in the environments verbatim write
+my $DEL;
+for (@lineas) {
+ if (/\\begin\{($verbatim_w\*?)(?{ $DEL = "\Q$^N" })\}/ .. /\\end\{$DEL\}/) {
+ s/($findtmp)/$tmpreplace{$1}/g;
+ }
+}
-#--------------------- Replace PST environment for images----------------
-sub runpdfTeX() {
+### Join lines in $preambletmp
+$preambletmp = join "\n", @lineas;
- my ($name,$pdfname) = @_;
- open my $PDF,'>',"$tempDir/$pdfname-pdf$ext";
- open my $FILE,'<',"$tempDir/$name-tmp$ext";
- my $ignore = 0;
- my $IMGno = 1;
- my $depth = -1;
- my $type = -1;
- my $EndDocument = 0; # ignore all after \end{document}
- my $iVerb = 0;
- 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}
- if ( !$iVerb ) {
- my $i = index($_,"end{document}");
- if ($i > 0) { print $PDF $_; $EndDocument++; LOG("EndDocument in runpdfTeX"); }
- if ( !$EndDocument ) {
- my $iPS = index($_,"begin{postscript}");
- if ( $iPS > 0 ) {
- $type = 2;
- $ignore = 1;
- if ($iPS > 1) { print $PDF substr($_,0,--$iPS); } # add preceeding text
- print $PDF "\\includegraphics[scale=1]{$pdfname-fig-$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 \\pspicture...
- if ( $iPST >= 0 ) { # start Scan
- $ignore = 1;
- $type = 1;
- $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=1]{$pdfname-fig-$IMGno}"; # use \graphicspath
- $IMGno=$IMGno+1;
- LOG("Increase Image counter: $IMGno");
+### We removed the blank lines
+$preambletmp =~ s/^(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
+
+### Now we're trying to capture
+ at graphicxpkg = $preambletmp =~ m/($pkgcandidates)/gmsx;
+if (@graphicxpkg) {
+ Log("Found graphicx package in preamble for $name-pdf$ext");
+ $findgraphicx = 'false';
+}
+
+### Search graphicspath
+ at graphicspath = $preambletmp =~ m/graphicspath/msx;
+if (@graphicspath) {
+ Log("Found \\graphicspath in preamble for $name-pdf$ext");
+ $findgraphicx = 'false';
+ while ($preamble =~ /$graphicspath /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ if ($encontrado =~ /$graphicspath/) {
+ my $argumento = $1;
+ if ($argumento !~ /\{$imgdir\/\}/) {
+ $argumento .= "\{$imgdir/\}";
+ my $cambio = "\\graphicspath{$argumento}";
+ substr $preamble, $pos_inicial, $pos_final-$pos_inicial, $cambio;
+ pos($preamble) = $pos_inicial + length $cambio;
}
- }
}
- 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
- $ignore = 0;
- $type=-1;
- } # 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 (index($_,"endpspicture") > 0) # add rest of line, depends to type
- { print $PDF substr($_,$iPST+12); } # \endpspicture
- elsif (index($_,"pspicture*") > 0)
- { print $PDF substr($_,$iPST+15); } # \end{pspicture*}
- else{ print $PDF substr($_,$iPST+14); } # \end{pspicture}
- $depth--;
- LOG("Decrease depth: $depth");
- if ($depth < 0) { $ignore = 0; }
- }
- }
- } # if ( !$EndDocument )
- } else { print $PDF $_; } # if ( $iVerb )
- if (( index($_,"end{verbatim}") > 0 ) or ( index($_,"end{lstlisting}") > 0 )) { $iVerb = 0; }
- } # while (<$FILE>)
- close $FILE;
- close $PDF;
-## Close generate file
-if ($clear) {
-unlink "$tempDir/$pdfname-tmp$ext";
-#unlink "$tempDir/$pdfname-fig$ext";
+ }
}
-#------------------- Clean pstpack, reverse changes --------------------
-## Leer archivo
-open my $INFILE, '<', "$tempDir/$pdfname-pdf$ext";
-my $IPDF;
-{
- local $/;
- $IPDF = <$INFILE>;
+
+### Search pst-exa
+ at pst_exa = $preambletmp =~ m/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|$pstexa/xg;
+%pst_exa = map { $_ => 1 } @pst_exa;
+if (@pst_exa) {
+ Log("Comment pst-exa package in preamble for $name-pdf$ext");
+ $findgraphicx = 'false';
+ $preamble =~ s/(\\usepackage\[)\s*(swpl|tcb)\s*(\]\{pst-exa\})/\%$1$2,pdf$3/msxg;
}
-close $INFILE;
+if (exists $pst_exa{tcb}) {
+ Log("Suport for \\usepackage[tcb,pdf]\{pst-exa\} for $name-pdf$ext");
+ $bodydoc =~ s/(graphic=\{)\[(scale=\d*)\]($imgdir\/$name-fig-exa-\d*)\}/$1$2\}\{$3\}/gsmx;
+}
-## Constantes
-my $BEGINDOC = quotemeta('\begin{document}');
-my $USEPACK = quotemeta('\usepackage');
-my $GRAPHICX = quotemeta('{graphicx}');
+### Try to capture arara:compiler in preamble of <output file>
+my @arara_engines = qw (latex pdflatex lualatex xelatex luahbtex);
+my $arara_engines = join q{|}, map { quotemeta} sort { length $a <=> length $b } @arara_engines;
+$arara_engines = qr/\b(?:$arara_engines)/x;
+my $arara_rule = qr /^(?:\%\s{1}arara[:]\s{1}) ($arara_engines) /msx;
-## Exp. Reg.
+### Capture graphicx.sty in .log of LaTeX file
+if ($findgraphicx eq 'true') {
+ Log("Couldn't capture the graphicx package for $name-pdf$ext in preamble");
+ my $ltxlog;
+ my @graphicx;
+ my $null = devnull();
+ Log("Creating $name-fig-$tmp$ext [only preamble]");
+ if ($verbose) { say "Creating [$name-fig-$tmp$ext] with only preamble"; }
+ open my $OUTfile, '>', "$name-fig-$tmp$ext";
+ print {$OUTfile} "$preamble\n\\stop";
+ close $OUTfile;
+ # Set compiler
+ if ($opts_cmd{compiler}{arara}) {
+ my @engine = $preamble =~ m/$arara_rule/msx;
+ my %engine = map { $_ => 1 } @engine;
+ if (%engine) {
+ for my $var (@arara_engines) {
+ if (defined $engine{$var}) {
+ $compiler = $var;
+ }
+ }
+ }
+ else { $compiler = 'pdflatex'; }
+ }
+ if ($compiler eq 'latex') { $compiler = 'pdflatex'; }
+ if ($compiler eq 'dvilualatex') { $compiler = 'lualatex'; }
+ # Compiling file
+ RUNOSCMD("$compiler $write18 -interaction=batchmode", "$name-fig-$tmp$ext >$null", 'only');
+ # Restore arara compiler
+ if ($arara) { $compiler = 'arara'; }
+ Log("Search graphicx package in $name-fig-$tmp.log");
+ open my $LaTeXlog, '<', "$name-fig-$tmp.log";
+ {
+ local $/;
+ $ltxlog = <$LaTeXlog>;
+ }
+ close $LaTeXlog;
+ # Try to capture graphicx
+ @graphicx = $ltxlog =~ m/.+? (graphicx\.sty)/xg;
+ if (@graphicx) {
+ Log("Found graphicx package in $name-fig-$tmp.log");
+ }
+ else {
+ Log("Not found graphicx package in $name-fig-$tmp.log");
+ Log("Add \\usepackage\{graphicx\} to preamble of $name-pdf$ext");
+ $preamble= "$preamble\n\\usepackage\{graphicx\}";
+ }
+}
-my $CORCHETES = qr/\[ [^]]*? \]/x;
-my $PALABRAS = qr/\b (?: pst-\w+ | pstricks (?: -add )? | psfrag |psgo |vaucanson-g| auto-pst-pdf | graphicx )/x;
-my $FAMILIA = qr/\{ \s* $PALABRAS (?: \s* [,] \s* $PALABRAS )* \s* \}/x;
+### Regex for clean (pst-?) in preamble
+$PALABRAS = qr/\b (?: pst-\w+ | pstricks (?: -add | -pdf )? | psfrag |psgo |vaucanson-g| auto-pst-pdf(?: -lua )? )/x;
+$FAMILIA = qr/\{ \s* $PALABRAS (?: \s* [,] \s* $PALABRAS )* \s* \}(\%*)?/x;
-## Dividir el archivo
-my($cabeza, $cuerpo) = $IPDF =~ m/\A (.+?) ($BEGINDOC .+?) \z/msx;
+Log("Remove pstricks packages in preamble for $name-pdf$ext");
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ^ $USEPACK (?: $CORCHETES )? $FAMILIA \s*//msxg;
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ (?: ^ $USEPACK \{ | \G) [^}]*? \K (,?) \s* $PALABRAS (\s*) (,?) /$1 and $3 ? ',' : $1 ? $2 : ''/gemsx;
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\psset\{(?:\{.*?\}|[^\{])*\}(?:[\t ]*(?:\r?\n|\r))+//gmsx;
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\SpecialCoor(?:[\t ]*(?:\r?\n|\r))+//gmsx;
+$preamble =~ s/^\\usepackage\{\}(?:[\t ]*(?:\r?\n|\r))+/\n/gmsx;
-## Revisamos si esta cargado pst-exa
-my $pstTcbload = 0; # Buscamos si esta cargado \usepackage[...]{pst-exa}
-$pstTcbload = index($cabeza,"usepackage[tcb]{pst-exa}");
+if (@pst_exa) {
+ Log("Uncomment pst-exa package in preamble for $name-pdf$ext");
+ $preamble =~ s/(?:\%)(\\usepackage\[\s*)(swpl|tcb)(,pdf\s*\]\{pst-exa\})/$1$2$3/msxg;
+}
-## Filtrado
-# comentar
-$cabeza =~ s/ ^ ($USEPACK $CORCHETES $GRAPHICX) /%$1/msxg;
-
-# eliminar líneas enteras
-$cabeza =~ s/ ^ $USEPACK (?: $CORCHETES )? $FAMILIA \n//msxg;
-
-# eliminar palabras sueltas
-$cabeza =~ s/ (?: ^ $USEPACK \{ | \G) [^}]*? \K (,?) \s* $PALABRAS (\s*) (,?) /$1 and $3 ? ',' : $1 ? $2 : ''/gemsx;
-
-## Añadir
+### Add last lines
+if (!@graphicspath) {
+ Log("Not found \\graphicspath in preamble for $name-pdf$ext");
+ Log("Add \\graphicspath\{\{$imgdir/\}\} to preamble for $name-pdf$ext");
+ $preamble= "$preamble\n\\graphicspath\{\{$imgdir/\}\}";
+}
+Log("Add \\usepackage\{grfext\} to preamble for $name-pdf$ext");
+$preamble = "$preamble\n\\usepackage\{grfext\}";
+Log("Add \\PrependGraphicsExtensions\*\{\.pdf\} to preamble for $name-pdf$ext");
+$preamble = "$preamble\n\\PrependGraphicsExtensions\*\{\.pdf\}";
+$preamble =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+$preamble =~ s/^\\usepackage\{\}(?:[\t ]*(?:\r?\n|\r))+/\n/gmsx;
+$preamble =~ s/^(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
-$cabeza .= <<"EXTRA";
-\\usepackage{graphicx}
-\\graphicspath{{$imageDir/}}
-\\usepackage{grfext}
-\\PrependGraphicsExtensions*{.pdf}
-EXTRA
+### Create a <output file>
+my $out_file = "$preamble\n$bodydoc\n$enddoc";
-## Verificamos que exista el archivo
-if (-e "$imageDir/$name-exa-1$ext") {
-if ($pstTcbload > 1) {
-# Cambiamos de swpl a tcb con una expresion regular
-$cuerpo =~ s/(graphic=\{)\[(scale=\d*)\]($imageDir\/$pdfname-exa-\d*)\}/$1$2\}\{$3\}/gsmx;
+### Clean \psset content in output file
+$out_file =~ s/\\begin\{nopreview\}\%$tmp.+?\\end\{nopreview\}\%$tmp(*SKIP)(*F)|
+ \%<\*$dtxverb> .+? \%<\/$dtxverb>(*SKIP)(*F)|
+ \\psset\{(?:\{.*?\}|[^\{])*\}(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
-# Se añade la opción [tcb] al paquete pst-exa
-$cabeza .= <<"EXTRA";
-\\usepackage[pdf,tcb]{pst-exa}
-EXTRA
-} # close if
-else{
-# print "Se añade la opción swpl al paquete pst-exa\n";
-$cabeza .= <<"EXTRA";
-\\usepackage[swpl]{pst-exa}
-EXTRA
- }
-} # close regex for pst-exa pack
+### Revert preview environments
+if (@env_preview) {
+ Log("Revert \\begin{nopreview}\%TMP$tmp ... \\end{nopreview}\%TMP$tmp");
+ $out_file =~ s/\\begin\{nopreview\}\%TMP$tmp
+ (?<code> .+?)
+ \\end\{nopreview\}\%TMP$tmp
+ /\\begin\{preview\}$+{code}\\end\{preview\}/gmsx;
+}
-### Clear PST content in preamble
-$cabeza =~ s/\\usepackage\{\}/%delete by pst2pdf/gmsx;
-$cabeza =~ s/^\\psset\{.+?\}/%\\psset delete by pst2pdf/gmsx;
-$cabeza =~ s/\\SpecialCoor/%\\SpecialCoor delete by pst2pdf/gmsx;
-$cabeza =~ s/^%CleanPST .+? %CleanPST/% Clean PST by pst2pdf/gmsx;
+$out_file =~ s/\\begin\{nopreview\}%$tmp
+ (?<code>\\begin\{PSTexample\} .+? \\end\{PSTexample\})
+ \\end\{nopreview\}%$tmp
+ /$+{code}/gmsx;
-### Delete extra psset{..} in body
-$cuerpo =~ s/\\psset\{[^\}]+\}(\s*\\includegraphics\[scale=1\]\{$pdfname-fig-\d*\})/$1/gms;
+### Remove internal mark for verbatim and verbatim write environments
+$out_file =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+%replace = (%changes_out);
+$find = join q{|}, map {quotemeta} sort { length $a <=> length $b } keys %replace;
+$out_file =~ s/($find)/$replace{$1}/g;
-### Back
-my %cambios = (
- '\TRICKS' => '\pspicture',
- '\ENDTRICKS' => '\endpspicture',
- '\begin{PSTEXAMPLE' => '\begin{PSTexample',
- '\end{PSTEXAMPLE' => '\end{PSTexample',
- '\begin{TRICKS' => '\begin{pspicture',
- '\end{TRICKS' => '\end{pspicture',
- '\begin{POSTRICKS}' => '\begin{postscript}' ,
- '\end{POSTRICKS}' => '\end{postscript}' ,
- '\begin{DOCTRICKS}' => '\begin{document}' ,
- '\end{DOCTRICKS}' => '\end{document}'
-);
+### Write <output file>
+if (-e "$name-pdf$ext") {
+ Log("Rewriting the file $name-pdf$ext in $workdir");
+ Infocolor('Warning', "The file [$name-pdf$ext] already exists and will be rewritten");
+}
+else{
+ Infoline("Creating the file $name-pdf$ext");
+ Log("Write the file $name-pdf$ext in $workdir");
+}
+open my $OUTfile, '>', "$name-pdf$ext";
+ print {$OUTfile} $out_file;
+close $OUTfile;
-## Recorremos el archivo y realizamos los cambios
-while (my($busco, $cambio) = each %cambios) {
- $cabeza =~ s/\Q$busco\E/$cambio/g;
- $cuerpo =~ s/\Q$busco\E/$cambio/g;
- }
+### Set compiler for process <output file>
+$compiler = $xetex ? 'xelatex'
+ : $luatex ? 'lualatex'
+ : 'pdflatex'
+ ;
-## Escribimos en el mismo archivo
-open my $SALIDA, '>', "$tempDir/$pdfname-pdf$ext";
-print $SALIDA "$cabeza$cuerpo";
-close $SALIDA;
-#
+### Set options for latexmk
+my $ltxmkopt = $xetex ? "-pdfxe -silent -xelatex=\"xelatex $write18 -recorder %O %S\""
+ : $luatex ? "-pdflua -silent -lualatex=\"lualatex $write18 -recorder %O %S\""
+ : "-pdf -silent -pdflatex=\"pdflatex $write18 -recorder %O %S\""
+ ;
+### Set options for compiler
+$opt_compiler = $arara ? '--log'
+ : $latexmk ? "$ltxmkopt"
+ : "$write18 -interaction=nonstopmode -recorder"
+ ;
-my $runAgain = 0;
-
-if($xetex){ # xelatex mode
-if ($noImages){
- print "The file $pdfname-pdf$ext are created (Xe)LaTeX\n";
- }
-else{
- system("xelatex -interaction=batchmode $tempDir/$pdfname-pdf");
- print "Done, compiled $pdfname-pdf$ext using (Xe)LaTeX\n";
+### Set compiler name for arara and latexmk
+if ($arara) { $compiler = $msg_compiler = 'arara'; }
+if ($latexmk) { $compiler = $msg_compiler = 'latexmk'; }
+
+### Process <output file>
+if (!$norun) {
+ Log("Compiling the file $name-pdf$ext using [$msg_compiler]");
+ print "Compiling the file $name-pdf$ext using ", color('magenta'), "[$msg_compiler]\r\n",color('reset');
+ RUNOSCMD("$compiler $opt_compiler", "$name-pdf$ext",'show');
+ # biber
+ if ($runbiber && -e "$name-pdf.bcf" && !$arara && !$latexmk) {
+ RUNOSCMD("biber", "$name-pdf",'show');
+ RUNOSCMD("$compiler $opt_compiler", "$name-pdf$ext",'show');
}
+ # bibtex
+ if ($runbibtex && -e "$name-pdf.aux" && !$arara && !$latexmk) {
+ RUNOSCMD("bibtex", "$name-pdf",'show');
+ RUNOSCMD("$compiler $opt_compiler", "$name-pdf$ext",'show');
}
-else{ #pdflatex mode
-if ($noImages){
- print "The file $pdfname-pdf$ext are created (pdf)LaTeX\n";
+}
+
+### Remove temporary files
+my @tmpfiles;
+my @protected = qw();
+my $flsline = 'OUTPUT';
+my @flsfile;
+
+### Protect generated files
+push @protected, "$name-pdf$ext", "$name-pdf.pdf";
+
+### Find files
+find(\&aux_files, $workdir);
+sub aux_files{
+ my $findtmpfiles = $_;
+ if (-f $findtmpfiles && $findtmpfiles =~ m/$name-fig(-exa)?-$tmp.+?$/) { # search
+ push @tmpfiles, $_;
}
-else{
- system("pdflatex -interaction=batchmode $tempDir/$pdfname-pdf$ext");
- print "Done, compiled $pdfname-pdf$ext using (pdf)LaTeX\n";
- }
+ return;
}
-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){
- if($xetex){
- system("xelatex -interaction=batchmode $tempDir/$pdfname-pdf");
- }
- else{
- system("pdflatex -interaction=batchmode $tempDir/$pdfname-pdf");
- }
+### Add if exists
+if (-e 'arara.log') {
+ push @flsfile, 'arara.log';
+}
+if (-e "$name-fig-$tmp.fls") {
+ push @flsfile, "$name-fig-$tmp.fls";
+}
+if (-e "$name-fig-exa-$tmp.fls") {
+ push @flsfile, "$name-fig-exa-$tmp.fls";
+}
+if (-e "$name-pdf.fls") {
+ push @flsfile, "$name-pdf.fls";
+}
+
+### Read .fls file
+for my $filename(@flsfile){
+ open my $RECtmp, '<', $filename;
+ push @tmpfiles, grep /^$flsline/,<$RECtmp>;
+ close $RECtmp;
+}
+
+foreach (@tmpfiles) { s/^$flsline\s+|\s+$//g; }
+push @tmpfiles, @flsfile;
+
+ at tmpfiles = uniq(@tmpfiles);
+ at tmpfiles = array_minus(@tmpfiles, @protected);
+
+Log('The files that will be deleted are:');
+Logarray(\@tmpfiles);
+
+### Remove only if exist
+if (@tmpfiles) {
+ Infoline("Remove temporary files created in $workdir");
+ foreach my $tmpfiles (@tmpfiles) {
+ move($tmpfiles, $tempDir);
}
-} #close sub run pdfTEX
+}
-#----------------------------- Write LOG file --------------------------
-sub LOG() {
- if ( $Verbose ) { print $LOGfile "@_\n"; }
- }
-#-------------------------- Clear all tmp files ------------------------
-if ($clear) {
+### Find dirs created by minted
+my @deldirs;
+my $mintdir = "\_minted\-$name-fig-$tmp";
+my $mintdirexa = "\_minted\-$name-fig-exa-$tmp";
+if (-e $mintdir) { push @deldirs, $mintdir; }
+if (-e $mintdirexa) { push @deldirs, $mintdirexa; }
-if (-e "$tempDir/$name-pst$ext") {
-unlink "$tempDir/$name-pst$ext";
+Log('The directory that will be deleted are:');
+Logarray(\@deldirs);
+
+### Remove only if exist
+if (@deldirs) {
+ Infoline("Remove temporary directories created by minted in $workdir");
+ foreach my $deldirs (@deldirs) {
+ remove_tree($deldirs);
+ }
}
- my @del_pdf_tmp;
- find(\&del_pdf_aux, $tempDir);
- sub del_pdf_aux{
- my $auximgfile = $_;
- if(-f $auximgfile && $auximgfile =~ /\.(aux|dvi|log|ps|idx|bfc|bib|preamble)$/){
- push @del_pdf_tmp, $File::Find::name;
- }
- } # close sub
-unlink @del_pdf_tmp; # delte files
-if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
-if ($eps or $ppm){
- unlink "$tempDir/xpd";
- }
+### Compress "./images" with generated files
+my $archivetar;
+if ($zip or $tar) {
+ my $stamp = strftime("%Y-%m-%d", localtime);
+ $archivetar = "$imgdir-$stamp";
+
+ my @savetozt;
+ find(\&zip_tar, $imgdir);
+ sub zip_tar{
+ my $filesto = $_;
+ if (-f $filesto && $filesto =~ m/$name-fig-.+?$/) { # search
+ push @savetozt, $File::Find::name;
+ }
+ return;
+ }
+ Log("The files are compress found in $imgdirpath are:");
+ Logarray(\@savetozt);
+ if ($zip) {
+ if (-e "$archivetar.zip") {
+ Infocolor('Warning', "The file [$archivetar.zip] already exists and will be rewritten");
+ Log("Rewriting the file $archivetar.zip in $workdir");
+ }
+ else{
+ print "Creating the file ", color('magenta'), "[$archivetar.zip]",
+ color('reset'), " with generate files in ./$imgdir\r\n";
+ Log("Writen the file $archivetar.tar.gz in $workdir");
+ }
+ zip \@savetozt => "$archivetar.zip";
+ }
+ if ($tar) {
+ if (-e "$archivetar.tar.gz") {
+ Infocolor('Warning', "The file [$archivetar.tar.gz] already exists and will be rewritten");
+ Log("Rewriting the file $archivetar.tar.gz in $workdir");
+ }
+ else{
+ print "Creating the file ", color('magenta'), "[$archivetar.tar.gz]",
+ color('reset'), " with generate files in ./$imgdir\r\n";
+ Log("Writen the file $archivetar.tar.gz in $workdir");
+ }
+ my $imgdirtar = Archive::Tar->new();
+ $imgdirtar->add_files(@savetozt);
+ $imgdirtar->write( "$archivetar.tar.gz" , 9 );
+ }
}
-if(!$Verbose) {
- unlink "$tempDir/$name.plog";
- }
-} # close clear
-# Clear source files
-if ($noSource) {
-my @del_src;
-find(\&del_src_tex, $imageDir);
-sub del_src_tex{
-my $srcimg = $_;
-# search image file source
-if(-f $srcimg && $srcimg =~ /($name-(fig|exa)-\d+)$ext/){
-push @del_src, $File::Find::name;
- }
+### End of script process
+if (!$norun && !$nosource) {
+ Log("The image files: $format and generated files are in $imgdirpath");
}
-unlink @del_src;
-}# end source clear
+if (!$norun && $nosource) {
+ Log("The image files: $format are in $imgdirpath");
+}
+if ($norun && !$nosource) {
+ Log("The generated files are in $imgdirpath");
+}
+Log("The output file $name-pdf$ext are in $workdir");
+Infocolor('Finish', "The execution of $scriptname has been successfully completed");
+
+Log("The execution of $scriptname has been successfully completed");
+
__END__
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes 2020-08-21 20:59:35 UTC (rev 56148)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes 2020-08-21 21:01:17 UTC (rev 56149)
@@ -1,33 +1,37 @@
pst2pdf.pl --------
-0.18 2017-10-04 - fix typos in the code comments
-0.17 2017-09-11 - fix escape character in regex
-0.16 2014-09-14 - using gs for split pdf (no more pdftk)
- - support package pst-exa for examples
- - adding svg image support
- - ignore inline verbatim
-0.15 2013-06-16 - adding short options for command line
- - create png and jpg files in Linux and Windows
- - pass options to ps2pdf
-0.14 2013-02-27 - suport xelatex and -help from command line
-0.13 2011-12-12 - some more improvements to the code
-0.12 2011-01-19 - new optional arguments for running
+0.19 2020-08-08 - Add new options to CLI
+ - Remove deprecate code
+ - Rewrite documentation
+ - Remove unused options
+0.18 2017-10-04 - Fix typos in the code comments
+0.17 2017-09-11 - Fix escape character in regex
+0.16 2014-09-14 - Using gs for split pdf (no more pdftk)
+ - Support package pst-exa for examples
+ - Adding svg image support
+ - Ignore inline verbatim
+0.15 2013-06-16 - Adding short options for command line
+ - Create png and jpg files in Linux and Windows
+ - Pass options to ps2pdf
+0.14 2013-02-27 - Suport xelatex and -help from command line
+0.13 2011-12-12 - Some more improvements to the code
+0.12 2011-01-19 - New optional arguments for running
bibtex or biber
-0.11 2010-10-03 - use graphicspath instead of $imageDir to
+0.11 2010-10-03 - Use graphicspath instead of $imageDir to
allow working with Windows
- - test for pst-exa to write \psset in the
+ - Test for pst-exa to write \psset in the
pdf file
-0.10 2010-01-04 - allow using the package pst-exa
-0.09 2009-10-01 - allow pspicture*
-0.08 2009-08-28 - test for png files (only for Linux)
-0.07 2009-07-24 - fix bug with \begin{postscript} and following
+0.10 2010-01-04 - Allow using the package pst-exa
+0.09 2009-10-01 - Allow pspicture*
+0.08 2009-08-28 - Test for png files (only for Linux)
+0.07 2009-07-24 - Fix bug with \begin{postscript} and following
pspicture environment
- - add some more documentation
-0.06 2007-08-28 - fix bug with \begin{pspicture} and \pspicture
-0.05 2007-07-05 - allow different extensions for the source file
+ - Add some more documentation
+0.06 2007-08-28 - Fix bug with \begin{pspicture} and \pspicture
+0.05 2007-07-05 - Allow different extensions for the source file
e.g. tex, ltx
- - ignore verbatim environment
- - better log file support
-0.04 2007-07-04 - allow all \begin ..\end sequences anywhere
- in a line, see testcase
-0.03 2007-06-21 - fix nested environments
-0.02 2007-06-20 - first (public) version
+ - Ignore verbatim environment
+ - Better log file support
+0.04 2007-07-04 - Allow all \begin ..\end sequences anywhere
+ in a line, see testcase
+0.03 2007-06-21 - Fix nested environments
+0.02 2007-06-20 - First (public) version
Deleted: trunk/Master/texmf-dist/doc/latex/pst2pdf/README
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/README 2020-08-21 20:59:35 UTC (rev 56148)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/README 2020-08-21 21:01:17 UTC (rev 56149)
@@ -1,59 +0,0 @@
-pst2pdf is a Perl script which isolates all PostScript or
-PSTricks related parts of the TeX document into single
-LaTeX files, for which an eps and pdf image is created.
-The pdf ones are then imported in a last pdflatex run
-for the pdf output of the main document. The eps and
-pdf files are saved in a subdirectory images.
-
-Syntax: pst2pdf.pl file[.tex] [options]
-
-alternative: perl pst2pdf.pl file[.tex] [options]
-
-
-Some restrictions:
-\begin{postscript}
-...
-\begin{pspicture}
-....
-\end{pspicture}
-...
-\end{postscript}
-
-The pspicture environment can be nested, the postscript one NOT!
-pspicture can be inside of a postscript environment, but
-not vice versa.
-
-The postscript environment should be used for all other
-PostScript related commands, which are not part of
-a pspicture environment, e.g. nodes inside normal text.
-
-pst2pdf creates a document file-pdf.tex for use with
-pdflatex, which then creates file-pdf.pdf. The created
-images are named file-fig-<No>.pdf
-
-Options:
- -h,--help - display this help and exit
- -l,--license - display license information and exit
- -v,--version - display version (current $nv) and exit
- -d,--dpi=<int> - the dots per inch for images (default 300)
- -j,--jpg - create .jpg files (need Ghostscript)
- -p,--png - create .png files (need Ghostscript)
- -e,--eps - create .eps files (need pdftops)
- -s,--svg - create .svg files (need pdf2svg)
- -P,--ppm - create .ppm files (need pdftoppm)
- -a,--all - create .(pdf,eps,jpg,png,ppm,svg) images
- -c,--clear - delete all temp and aux files
- -x,--xetex - using (Xe)LaTeX for create images
- -m,--margins=<int> - margins for pdfcrop (in bp) (default 1)
- -ni,--noimages - generate file-pdf.tex, but not images
- -np,--single - create images files whitout preview and Ghostscript
- -ns,--nosource - delete all source(.tex) for images files
- --imgdir=<string> - the folder for the created images (default images)
- --ignore=<string> - skip other verbatim environment (default other)
- --bibtex - run bibtex on the aux file, if exists
- --biber - run biber on the bcf file, if exists
- --Verbose - creates a long log file (.plog)
-
-for more documentation => pst2pdf --help or read the documentation
---
-Herbert Voss 2010-01-04
Added: trunk/Master/texmf-dist/doc/latex/pst2pdf/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/README.md (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/README.md 2020-08-21 21:01:17 UTC (rev 56149)
@@ -0,0 +1,93 @@
+# pst2pdf – Running a PSTricks document with pdflatex
+
+Release v0.19 \[2020-08-17\]
+
+## Description
+
+`pst2pdf` is a Perl _script_ which isolates all `PostScript` or `PSTricks` related
+parts of the TeX document, read all `postscript`, `pspicture`, `psgraph` and `PSTexample`
+environments, extract source code in standalone files and converting them into image
+format \(default `pdf`\). Create new file with all extracted environments converted to `\includegraphics`
+and runs \(pdf/xe/lua\)latex.
+
+## Usage
+
+```
+pst2pdf.pl [<options>] <texfile>[.tex|.ltx]
+```
+
+or
+
+```
+pst2pdf.pl <texfile>[.tex|.ltx] [<options>]
+```
+
+Relative or absolute `paths` for directories and files is not supported. Options that accept
+a _value_ require either a blank space or `=` between the option and the _value_. Some short
+options can be bundling.
+
+If used without `[<options>]` the extracted environments are converted to `pdf` image format
+and saved in the `./images` directory using `latex>dvips>ps2pdf` and `preview` package to
+process `<texfile>` and `pdflatex` to process the output file `<texfile-pdf>`.
+
+## Restrictions
+
+The `pspicture` environment can be nested, the `postscript` one **NOT!** `pspicture` can be
+inside of a `postscript` environment, but not vice versa.
+
+```latex
+\begin{postscript}
+ ...
+ \begin{pspicture}
+ ....
+ \end{pspicture}
+ ...
+\end{postscript}
+```
+
+The `postscript` environment should be used for all other PostScript related commands, which
+are not part of a `pspicture` environment, e.g. nodes inside normal text or `\psset{...}`
+outside of environment.
+
+## Installation
+
+The script `pst2pdf` is present in `TeXLive` and `MiKTeX`, use the package manager to install.
+
+For manual installation, download [pst2pdf.zip](http://mirrors.ctan.org/graphics/pstricks/scripts/pst2pdf.zip) and unzip it
+and move all files to appropriate locations:
+
+```
+ pst2pdf-doc.pdf -> TDS:doc/support/pst2pdf/pst2pdf-doc.pdf
+ pst2pdf-doc.tex -> TDS:doc/support/pst2pdf/pst2pdf-doc.tex
+ pst2pdf-doc.bib -> TDS:doc/support/pst2pdf/pst2pdf-doc.bib
+ test1.tex -> TDS:doc/support/pst2pdf/test1.tex
+ test2.tex -> TDS:doc/support/pst2pdf/test2.tex
+ test3.tex -> TDS:doc/support/pst2pdf/test3.tex
+ test1-pdf.tex -> TDS:doc/support/pst2pdf/test1-pdf.pdf
+ test2-pdf.tex -> TDS:doc/support/pst2pdf/test2-pdf.pdf
+ test3-pdf.tex -> TDS:doc/support/pst2pdf/test3-pdf.pdf
+ tux.jpg -> TDS:doc/support/pst2pdf/tux.jpg
+ README.md -> TDS:doc/support/pst2pdf/README.md
+ Changes -> TDS:doc/support/pst2pdf/Changes
+ pst2pdf.pl -> TDS:scripts/pst2pdf/pst2pdf.pl
+```
+
+## Documentation
+
+For more documentation use:
+
+```
+$ pst2pdf --help
+```
+
+or
+
+```
+$ texdoc pst2pdf
+```
+
+To reproduce the documentation run `xelatex pst2pdf-doc.tex`.
+
+## Copyright
+
+Copyright 2013 - 2020 by Herbert Voss `<hvoss at tug.org>` and Pablo González L `<pablgonz at yahoo.com>`.
Property changes on: trunk/Master/texmf-dist/doc/latex/pst2pdf/README.md
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib 2020-08-21 20:59:35 UTC (rev 56148)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib 2020-08-21 21:01:17 UTC (rev 56149)
@@ -82,3 +82,68 @@
year = {2012},
address = {\url{CTAN:/graphics/pstricks/contrib/pst-tools}}
}
+
+ at Manual{preview,
+ author = {David Kastrup},
+ title = {The \texttt{preview} package for \hologo{LaTeX}},
+ publisher = {CTAN},
+ year = {2017},
+ address = {\url{https://www.ctan.org/pkg/preview}}
+}
+
+ at Manual{pst-pdf,
+ author = {Rolf Niepraschk},
+ title = {The \texttt{pst-pdf} package},
+ publisher = {CTAN},
+ year = {2019},
+ address = {\url{https://www.ctan.org/pkg/pst-pdf}}
+}
+
+ at Manual{auto-pst-pdf,
+ author = {Will Robertson},
+ title = {The \texttt{auto-pst-pdf} package},
+ publisher = {CTAN},
+ year = {2009},
+ address = {\url{https://www.ctan.org/pkg/auto-pst-pdf}}
+}
+
+ at Manual{auto-pst-pdf-lua,
+ author = {Herbert Voß},
+ title = {The \texttt{auto-pst-pdf-lua} package - Using \hologo{LuaLaTeX} with \texttt{PSTricks}},
+ publisher = {CTAN},
+ year = {2018},
+ address = {\url{https://www.ctan.org/pkg/auto-pst-pdf-lua}}
+}
+
+ at Manual{pst-exa,
+ author = {Herbert Voß},
+ title = {\texttt{pst-exa} - Typeset \texttt{PSTricks} examples, with \hologo{pdfTeX}},
+ publisher = {CTAN},
+ year = {2017},
+ address = {\url{https://www.ctan.org/pkg/pst-exa}}
+}
+
+ at Manual{graphicx,
+ author = {The \hologo{LaTeX3} Project},
+ title = {\texttt{graphics} - Enhanced support for graphics},
+ publisher = {CTAN},
+ year = {2017},
+ address = {\url{https://www.ctan.org/pkg/graphicx}}
+}
+
+ at Manual{grfext,
+ author = {Heiko Oberdiek},
+ title = {The \texttt{grfext} package},
+ publisher = {CTAN},
+ year = {2017},
+ address = {\url{https://www.ctan.org/pkg/grfext}}
+}
+
+ at Manual{pst-plot,
+ author = {{Timothy van} Zandt and Herbert Voß},
+ title = {\texttt{pst-plot} - Plot data using \texttt{PSTricks}},
+ publisher = {CTAN},
+ year = {2019},
+ address = {\url{https://www.ctan.org/pkg/pst-plot}}
+}
+
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.tex 2020-08-21 20:59:35 UTC (rev 56148)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.tex 2020-08-21 21:01:17 UTC (rev 56149)
@@ -1,200 +1,1239 @@
-% arara: latex: {draft: yes}
-% arara: latex: {draft: yes}
-% arara: biber
-% arara: makeindex
-% arara: latex
-% arara: dvips
-% arara: ps2pdf
-% arara: clean: { files:[PSTricks.bib,pst2pdf-doc.out, pst2pdf-doc.ps, pst2pdf-doc.toc,pst2pdf-doc.log,pst2pdf-doc.ind,pst2pdf-doc.aux, pst2pdf-doc.bbl, pst2pdf-doc.bcf, pst2pdf-doc.blg,pst2pdf-doc.dvi,pst2pdf-doc.idx,pst2pdf-doc.ilg,pst2pdf-doc.run.xml] }
-\documentclass[11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small,
- headinclude=false,footinclude=false,twoside]{pst-doc}
-
+\documentclass[11pt,english,
+ BCOR=10mm,DIV=10,% <- changed
+ bibliography=totoc,parskip=half*,<- changed
+ headings=small,% <- changed
+ headinclude=false,% <- changed
+ footinclude=false,oneside,mpinclude=false]{pst-doc}
+\AfterCalculatingTypearea{%
+ \newgeometry{top=0.5in, bottom=0.3in,left=1.4in,right=0.7in,%
+ marginparwidth=1.3in,marginparsep=0.1in,footskip=0.2in,%
+ headheight=1cm,headsep=0.27cm,reversemarginpar}%
+ \KOMAoptions{headwidth=text,headsepline=:text,footwidth=text}% <- added
+}
+\recalctypearea
+\RedeclareSectionCommand[
+ %runin=false,
+ afterindent=false,
+ beforeskip=\baselineskip,
+ afterskip=.5\baselineskip]{section}
+\RedeclareSectionCommand[
+ %runin=false,
+ afterindent=false,
+ beforeskip=.75\baselineskip,
+ afterskip=.5\baselineskip]{subsection}
+\RedeclareSectionCommand[
+ %runin=false,
+ afterindent=false,
+ beforeskip=.5\baselineskip,
+ afterskip=.25\baselineskip]{subsubsection}
\listfiles
\let\Lfile\LFile
-\usepackage[utf8]{inputenc}
-\usepackage{pst-node}
-\let\pstnodeFV\fileversion
-\let\pstnodeFD\filedate
\usepackage{biblatex}
-
\addbibresource{\jobname.bib}
-
-\RequirePackage{xspace}
-\usepackage{pst-text,pst-grad}
-\let\pstFV\fileversion
-\DeclareFixedFont{\RM}{T1}{ptm}{b}{n}{4cm}
-\renewcommand\bgImage{\pscharpath[fillstyle=gradient,
- gradbegin=red,gradend=blue,gradangle=-90]{\RM pst2pdf}}
-
-\lstset{language=PSTricks,basicstyle=\footnotesize\ttfamily}
+%\lstset{language=PSTricks,basicstyle=\footnotesize\ttfamily}
\def\DVI{\textsc{DVI}}
\def\PDF{\textsc{PDF}}
\def\gs{\textsc{Ghostscript}}
-%
+\usepackage{multicol,enumitem,hologo,accsupp,csquotes}
+
+% Identification
+\def\myscript{pst2pdf}
+\def\fileversion{0.19}
+\def\filedate{2020-08-17}
+
+% Config hyperref
+\hypersetup{
+ linktoc = all,
+ pdftitle = {.:: pst2pdf v\fileversion{} [\filedate] --- Running a PSTricks document with (pdf/xe/lua)latex ::.},%
+ pdfauthor = {Herbert Vo\ss, Pablo Gonz\'{a}lez Luengo},%
+ pdfsubject = {Documentation for version \fileversion},%
+ pdfkeywords = {extract, conversion, images, pstricks, standalone files},
+ pdfstartview = {FitH},%
+ bookmarksopenlevel = 2,%
+}
+
+% Some font for verbatim examples
+\newfontfamily\lmmitalic{lmmono10-italic.otf}[
+ Scale = 0.95,%
+ Extension = .otf,%
+ ItalicFont = lmmono10-italic,%
+ SmallCapsFont = lmmonocaps10-oblique,%
+ SlantedFont = lmmonoslant10-regular,
+ ]
+% The character of visible space is now taken from Latin Modern Mono
+% to prevent fonts in T1. The original definition for xetex/luatex is
+% \def\verbvisiblespace{\usefont{OT1}{cmtt}{m}{n}\asciispace}
+\def\verbvisiblespace{{\fontfamily{lmtt}\selectfont\char"2423}}
+% Add some colors
+\definecolor{optcolor}{rgb}{0.281,0.275,0.485}
+\definecolor{pkgcolor}{rgb}{0,0.5,0.5}
+\definecolor{araracolor}{rgb}{0, 0.72, 0.28}
+\definecolor{linkcolor}{rgb}{0.04,0.38,0.04}
+\definecolor{rulecolor}{rgb}{0.96,0.96,0.96}
+
+% new macros
+\makeatletter
+\def\Lscript#1{\texttt{#1}\index{#1@\texttt{#1}}\index{Script!#1@\texttt{#1}}}
+\def\Losystem#1{\texttt{#1}\index{#1@\texttt{#1}}\index{Operating system!#1@\texttt{#1}}}
+\def\Loptcmd#1{\index{Options in command line!#1@\texttt{#1}}}% \index{#1@\texttt{#1}}
+\def\Limgform#1{\texttt{#1}\index{Image format!#1@\texttt{#1}}}% \index{#1@\texttt{#1}}
+\def\Loptprg#1{\index{Compiler options!#1@\texttt{#1}}}% \index{#1@\texttt{#1}}
+\def\Venv#1{\texttt{#1}\index{Environment Verbatim!#1@\texttt{#1}}}
+\def\Wenv#1{\texttt{#1}\index{Environment Verbatim Write!#1@\texttt{#1}}}
+
+% Only index a starred version
+\RenewDocumentCommand{\LFile}{sm}
+ {
+ \IfBooleanTF{#1}%
+ {%
+ \LFile{#2}
+
+ }%
+ {%
+ \texttt{#2}%
+ }%
+ }%
+
+% \prgopt{sm} : #1 compiler opt, #2 program opt:
+\NewDocumentCommand{\prgopt}{sm}
+ {
+ \IfBooleanTF{#1}%
+ {%
+ \mbox{\textcolor{gray}{\texttt{-{}#2}}}%
+ \Loptprg{-{}#2}%
+ }%
+ {%
+ \mbox{\textcolor{gray}{\texttt{-{}#2}}}%
+ \index{#2@\texttt{-{}#2}}\index{Program options!#1@\texttt{-{}#2}}%
+ }%
+ }%
+
+% \DescribeIF{m}, #1 image format
+\newsavebox{\marginIF}
+\NewDocumentCommand{\DescribeIF}{ m }
+ {%
+ \begin{lrbox}{\marginIF}%
+ \begin{minipage}[t]{\marginparwidth}%
+ \raggedleft\ttfamily\bfseries%
+ \textcolor{optcolor}{#1}\hfill
+ \end{minipage}%
+ \end{lrbox}%
+ \index{Image format!#1@\texttt{#1}}%
+ \leavevmode%
+ \marginpar{\usebox{\marginIF}}%
+ \ignorespaces%
+ }%
+
+% \myenv{environ} for margin
+\NewDocumentCommand{\myenv}{m}
+ {
+ \begin{minipage}[t]{\marginparwidth}%
+ \raggedleft\ttfamily\small%
+ {\textcolor{gray}{\textbackslash begin\{}}{\bfseries\textcolor{pkgcolor}{#1}}\textcolor{gray}{\}}\par%
+ \meta[ac=lightgray,cf=gray]{env content}\par%
+ {\textcolor{gray}{\textbackslash end\{}}{\bfseries\textcolor{pkgcolor}{#1}}\textcolor{gray}{\}}%
+ \end{minipage}%
+ \index{Environment suport by default!#1@\texttt{#1}}
+ }
+% CleanPST for margin
+\NewDocumentCommand{\mytag}{m}
+ {%
+ \begin{minipage}[t]{\marginparwidth}%
+ \raggedleft\ttfamily\small%
+ \textcolor{gray}{\%}{\bfseries\textcolor{pkgcolor}{#1}}\par%
+ \meta[ac=lightgray,cf=gray]{code}\par%
+ \textcolor{gray}{\%}{\bfseries\textcolor{pkgcolor}{#1}}%
+ \end{minipage}%
+ \index{Remove PST code!#1@\texttt{#1}}
+ }%
+
+% \DescribeTE{sm}, #1 tag, #2 env
+\newsavebox{\marginenvtag}
+\NewDocumentCommand{\DescribeTE}{sm}{%
+\begin{lrbox}{\marginenvtag}%
+ \begin{minipage}[t]{\marginparwidth}%
+ \raggedleft
+ \IfBooleanTF{#1}{\mytag{#2}}{\myenv{#2}}
+ \end{minipage}%
+\end{lrbox}%
+ \leavevmode%
+ \marginpar{\usebox{\marginenvtag}}%
+ \ignorespaces%
+}%
+\makeatother
+
+\ExplSyntaxOn
+% \cmdopt[short]{long}
+\NewDocumentCommand{\cmdopt}{om}
+ {
+ \IfNoValueTF{#1}
+ {
+ \textcolor{optcolor}{\texttt{-\/-#2}}
+ }
+ {
+ \textcolor{optcolor}{\texttt{-{}#1}},
+ \textcolor{optcolor}{\texttt{-\/-#2}}
+ }
+ \Loptcmd{-\/-#2}
+ }
+
+% Custom \meta[...]{...}, \marg[...]{...} and \oarg[...]{...} for color
+\NewDocumentCommand{\meta}{O{}m}
+ {
+ \myscript_meta_generic:Nnn \myscript_meta:n { #1 } { #2 }
+ }
+\NewDocumentCommand{\marg}{O{}m}
+ {
+ \myscript_meta_generic:Nnn \myscript_marg:n { #1 } { #2 }
+ }
+\NewDocumentCommand{\oarg}{O{}m}
+ {
+ \myscript_meta_generic:Nnn \myscript_oarg:n { #1 } { #2 }
+ }
+% Variables and keys
+\tl_new:N \l_myscript_meta_font_tl
+
+\keys_define:nn { myscript/meta }
+ {
+ type .choice:,
+ type / tt .code:n = \tl_set:Nn \l_myscript_meta_font_tl { \ttfamily },
+ type / rm .code:n = \tl_set:Nn \l_myscript_meta_font_tl { \rmfamily },
+ type .initial:n = rm,
+ cf .tl_set:N = \l_myscript_meta_color_tl,
+ cf .initial:n = black,%
+ ac .tl_set:N = \l_myscript_meta_anglecolor_tl,
+ ac .initial:n = lightgray,
+ sbc .tl_set:N = \l_myscript_meta_brackcolor_tl,
+ sbc .initial:n = gray,
+ cbc .tl_set:N = \l_myscript_meta_bracecolor_tl,
+ cbc .initial:n = gray,
+ }
+% Internal commands
+\cs_new_protected:Npn \myscript_meta_generic:Nnn #1 #2 #3
+ {
+ \group_begin:
+ \keys_set:nn { myscript/meta } { #2 }
+ \color{ \l_myscript_meta_color_tl }
+ \l_myscript_meta_font_tl
+ #1 { #3 } % #1 is \myscript_meta:n, \myscript_marg:n or \myscript_oarg:n
+ \group_end:
+ }
+\cs_new_protected:Npn \myscript_meta:n #1
+ {
+ \myscript_meta_angle:n { \textlangle }
+ \myscript_meta_meta:n { #1 }
+ \myscript_meta_angle:n { \textrangle }
+ }
+\cs_new_protected:Npn \myscript_marg:n #1
+ {
+ \myscript_meta_brace:n { \textbraceleft }
+ \myscript_meta:n { #1 }
+ \myscript_meta_brace:n { \textbraceright }
+ }
+\cs_new_protected:Npn \myscript_oarg:n #1
+ {
+ \myscript_meta_brack:n { [ }
+ \myscript_meta:n { #1 }
+ \myscript_meta_brack:n { ] }
+ }
+\cs_new_protected:Npn \myscript_meta_meta:n #1
+ {
+ \textnormal{\textit{#1}}
+ }
+\cs_new_protected:Npn \myscript_meta_angle:n #1
+ {
+ \group_begin:
+ \fontfamily{lmr}\selectfont
+ \textcolor{\l_myscript_meta_anglecolor_tl}{#1}
+ \group_end:
+ }
+\cs_new_protected:Npn \myscript_meta_brace:n #1
+ {
+ \group_begin:
+ \color{\l_myscript_meta_bracecolor_tl}
+ #1
+ \group_end:
+ }
+\cs_new_protected:Npn \myscript_meta_brack:n #1
+ {
+ \textcolor{\l_myscript_meta_brackcolor_tl}{#1}
+ }
+
+% \DescribeCmd[...]{...}{...}{...}
+\newsavebox{\optcmdline}
+\NewDocumentCommand{\DescribeCmd}{ o m m m }
+ {
+ \group_begin:
+ \begin{lrbox}{\optcmdline}%
+ \begin{minipage}[t]{\marginparwidth}%
+ \ttfamily\raggedleft%
+ \IfNoValueTF{#1}
+ {\textcolor{optcolor}{-\/-#2}}
+ {\textcolor{optcolor}{-{#1}}\textcolor{gray}{,} \textcolor{optcolor}{-\/-#2}}%
+ \end{minipage}%
+ \Loptcmd{-\/-#2}
+ \end{lrbox}%
+ \leavevmode%
+ \marginpar{\usebox{\optcmdline}}%
+ \meta[ac=lightgray,cf=gray]{#3}
+ \raggedleft\hfill\textcolor{gray}{\textsf{(default: ~ {#4})}}\ignorespaces\par%
+ %\vspace*{2pt}\par%
+ \group_end:
+}
+
+\ExplSyntaxOff
+% Don't copy numbers in code example for listings
+\newcommand*{\noaccsupp}[1]{\BeginAccSupp{ActualText={}}#1\EndAccSupp{}}
+
+% Create a language for documentation
+\lstdefinelanguage{myscript-doc}{
+ texcsstyle=*,%
+ escapechar=`,%
+ showstringspaces=false,%
+ extendedchars=true, %
+ stringstyle = {\color{red}},%
+ alsoletter={\-,.},%
+% comments
+ morecomment=[l]{\%},%
+ commentstyle=\lmmitalic\color{lightgray},%
+% Important words 1
+ keywordstyle=[1]{\color{NavyBlue}},%
+ keywords=[1]{PassOptionsToPackage,AtBeginDocument,documentclass,usepackage,section},%
+% Important words 2 (macros)
+ keywordstyle=[2]{\color{blue!75}},%
+ keywords=[2]{graphicspath,RequirePackage,renewcommand,includegraphics,coordinate,draw,approx,%
+ PreviewBbAdjust,setlength,parindent,usetikzlibrary,tikzexternalize,psset,tikzset,PrependGraphicsExtensions,%
+ DefineShortVerb,lstMakeShortInline,MakeSpecialShortVerb,UndefineShortVerb,verb,myverb,macro,put,line},%
+% Important words 3, options in input file
+ keywordstyle=[3]{\color{optcolor!85}},%
+ keywords=[3]{arara,extensions,luatex,env,norun,%
+ clean,pst,tkz,eps,pdf,xetex,latex,luatex,dvips,png,latexmk,svg,srcenv,noprew,imgdir},%
+% Important words 4, environments and tags
+ keywordstyle=[4]{\color{pkgcolor}},%
+ keywords=[4]{pspicture,endpspicture,description,filecontents,PSTexample,%
+ psgraph, endpsgraph,CleanPST,postscript},%
+% Important words 5, directory
+ keywordstyle=[5]{\color{OrangeRed}},%
+ keywords=[5]{images},% ,pics
+% Important words 6, begin, end and other
+ keywordstyle=[6]{\color{gray}},% replace this color
+ keywords=[6]{begin,end,-recorder,doc,active,inactive,tightpage,BEGIN,END,%
+ -shell-escape,osf,--output-format,dvi},%
+% Important words 7, reserved for arara
+ keywordstyle=[7]{\color{araracolor}},%
+ keywords=[7]{lualatex,halt,xelatex},%
+% Important words 8, pkg and others load in examples
+ keywordstyle=[8]{\color{SlateBlue}},%
+ keywords=[8]{graphicx,grfext,article,document,preview,libertinus,pst-pdf},%
+% Important words 9, files used in examples
+ keywordstyle=[10]{\color{OrangeRed}},%
+ keywords=[10]{test-fig-all.pdf,test-fig-1981.tex,test-fig-1981.pdf, test-fig-1,test-fig-2,test-out,test-in.ltx,%
+ test-fig-1981.tex,test-out.tex,file-in.tex,file-out,test.tex,test-fig-all.dvi,test-fig-1.svg,test-fig-all.tex},%
+}[keywords,tex,comments,strings]% end languaje
+
+% \begin{examplecode}[opts]...\end{examplecode}
+\lstnewenvironment{examplecode}[1][]{%
+\lstset{
+ language=myscript-doc,%
+ stringstyle = {\color{red}},%
+ basicstyle=\ttfamily\small,%
+ numbersep=1em,%
+ numberstyle=\tiny\color{gray}\noaccsupp,%
+ rulecolor=\color{gray!50},%
+ framesep=\fboxsep,%
+ framerule=\fboxrule,%
+ xleftmargin=\dimexpr\fboxsep+\fboxrule\relax,%
+ xrightmargin=\dimexpr\fboxsep+\fboxrule\relax,%
+% literateee
+ literate=*{\{}{{\bfseries\textcolor{gray}{\{}}}{1}
+ {\}}{{\bfseries\textcolor{gray}{\}}}}{1}
+ {[}{{\textcolor{gray}{[}}}{1}
+ {]}{{\textcolor{gray}{]}}}{1}
+ {\*}{{\bfseries\textcolor{MediumOrchid}{*}}}{1}
+ {:}{{\textcolor{gray}{:}}}{1}
+ {,}{{\textcolor{gray}{,}}}{1}
+ {=}{{\textcolor{gray}{=}}}{1}
+ {/}{{\textcolor{OrangeRed}{/}}}{1}
+ {scale=1}{{\textcolor{gray}{scale=1}}}{7}
+ {\%CleanPST}{{\textcolor{gray}{\%}\textcolor{pkgcolor}{CleanPST}}}{9},%
+ #1,%
+ }% close lstset
+}%
+{}% close examplecode
+
+% \begin{examplecmd}...\end{examplecmd}
+\lstnewenvironment{examplecmd}{%
+\lstset{
+ language=myscript-doc,%
+ basicstyle=\ttfamily\small,%
+ frame=single,%
+ alsoletter={\-,.,\-\-},%
+ rulecolor=\color{gray!50},%
+ framesep=\fboxsep,%
+ framerule=\fboxrule,%
+ xleftmargin=\dimexpr\fboxsep+\fboxrule\relax,%
+ xrightmargin=\dimexpr\fboxsep+\fboxrule\relax,%
+ keywordstyle=[20]{\color{gray}},% replace this color
+ keywords=[20]{--margins, -recorder,-shell-escape,-s,-o,-e,-p,-j,--imgdir,%
+ --luatex,--latexmk,--svg,--png,--nopdf,pics,-no-shell-escape,-interaction,nonstopmode},%
+% Reserved words (cmd line options)
+ deletekeywords=[4]{pst2pdf},%
+ classoffset=7,%
+ keywordstyle=\bfseries\color{ForestGreen},%
+ morekeywords={pst2pdf},%
+% % Reserved words (cmd line options)
+ classoffset=8,%
+ keywordstyle={\color{ForestGreen}},%
+ morekeywords={gs,pdftoppm,pdftocairo,pdftops,cd,perl,pdfcrop},%
+% Only for command line options
+ classoffset=5,%
+ keywordstyle=\color{blue},%
+ keywords={user,machine},%
+ literate=*{[}{{\textcolor{darkgray}{[}}}{1}
+ {]}{{\textcolor{darkgray}{]}}}{1}
+ {=}{{\textcolor{gray}{=}}}{1}
+ {@}{{\textcolor{blue}{@}}}{1}
+ {\$}{{\textcolor{blue}{\$}}}{1}
+ {:}{{\textcolor{blue}{:}}}{1}
+ {§}{{\textcolor{red}{\$\space}}}{2}
+ {~}{{\textcolor{blue}{\bfseries\textasciitilde}}}{1}%
+ }% close lstset
+}%
+{}% close examplecmd
+
+% \lstinline[style=inline]|...|
+\lstdefinestyle{inline}
+ {
+ language=myscript-doc,%
+ basicstyle=\ttfamily\color{gray},%
+ escapechar=`,%
+ upquote=true,%
+ deletekeywords=[8]{preview},%
+ morekeywords =[4]{preview},%
+ literate=*{\%}{{\bfseries\textcolor{gray}{\%}}}{1}
+ {\*}{{\bfseries\textcolor{MediumOrchid}{*}}}{1}
+ }
+
+% set default style
+\lstset{style=inline}
+
\begin{document}
\title{\texttt{pst2pdf}}
-\subtitle{Running a PSTricks document with pdflatex;\\ \small v. 0.18}
-\author{Herbert Voß \\ Pablo Gonz\'{a}lez Luengo}
-\docauthor{}
-\date{\today}
+\subtitle{Running a PSTricks document with (pdf/xe/lua)latex;\\ v\fileversion{} --- \filedate\thanks{%
+ This file describes a documentation for version \fileversion, last revised \filedate.}}
+\author{Herbert Voß \\ Pablo Gonz\'{a}lez L}
+\date{}
+
\maketitle
+\begin{abstract}
+
+\texttt{pst2pdf} is a \texttt{Perl} \emph{script} which isolates all \texttt{PostScript} or \texttt{PSTricks} related
+parts of the \TeX{} document, read all \texttt{postscript}, \texttt{pspicture}, \texttt{psgraph}
+and \texttt{PSTexample} environments and, extract source code in \emph{standalone} files and
+converting them into image format \texttt{pdf, eps, jpg, svg} or \texttt{png} (default \texttt{pdf}).
+Create new file with all extracted environments converted to \Lcs{includegraphics} and runs \texttt{(pdf/Xe/lua)latex}.
+\end{abstract}
+
\tableofcontents
\clearpage
+\newpage
\section{Introduction}
+
\PST\ as \PS\ related package uses the programming language \PS\ for internal
calculations. This is an important advantage, because floating point arithmetic is no
problem. Nearly all mathematical calculation can be done when running the \DVI-file
with \gs. However, creating a \PDF\ file in a direct way with \Lprog{pdflatex} is
-not possible. \Lprog{pdflatex} cannot understand the \PS\ related stuff.
+not possible. \Lprog{pdflatex} cannot understand the \PS\ related stuff.
-Instead of running \Lprog{pdflatex} one can use the \Lprog{perl} \emph{script} \Lprog{pst2pdf}, it extracts
+Instead of running \Lprog{pdflatex} one can use the \emph{script} \Lscript{pst2pdf}, it extracts
all \PST\ related code into single documents with the same preamble as the original
main document.
-The \nxLprog{pst2pdf} \emph{script} runs document, clips all whitespace around the
-image and creates a \Lext{pdf} images of the \PST\ related code.
+The \Lscript{pst2pdf} \emph{script} runs document, extract source code for all \PST\ as \PS\ related parts, clips all whitespace around the
+image and creates a \Lext{pdf} images of the \PST\ related code.
In a last run which is the \Lprog{pdflatex} the \PST\ code in the
main document is replaced by the created images.
-\section{Requirements}
-\subsection{Programs needed}
-\nxLprog{pst2pdf} needs a latest version \Lprog{Ghostscript} (9.14), \Lprog{perl} (>=5.18), \Lprog{pdf2svg}, \Lprog{pdftoppm} and \Lprog{pdftops}
-(from \Lprog{poppler-utils} or \Lprog{xpdf-utils}) for the process file. If you need a create .pdf images whitout \Lprog{Ghostscript}, use single mode (see \ref{single}).
+\section{License}
-\subsection{Preparating file}
-The script scan the file for \Lenv{pspicture} and \Lenv{postscript} environments,
-which are then taken with its contents from the main file to create stand alone documents
-with the same preamble as the main document. The \Lenv{pspicture} environment can be nested,
-the \Lenv{postscript} one not! But it can contain an environment \Lenv{pspicture}, but not vice versa.
-The \Lenv{postscript} environment should always be used, when there is some code before a \Lenv{pspicture}
-environment or for some code which is not inside of a \Lenv{pspicture} environment.
+This program is free software; you can redistribute it and/or modify
+it under the terms of the \href{https://www.gnu.org/licenses/gpl-3.0.html}{GNU General Public License} as published by
+the \href{https://www.fsf.org/}{Free Software Foundation}; either version 3 of the License, or
+(at your option) any later version.
-\nxLprog{pst2pdf} delete al lines contains \PST\ package before last run, if you need delete other \PST\ code in preamble use:
+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 \href{https://www.gnu.org/licenses/gpl-3.0.html}{GNU General Public License}
+for more details.
+
+\section{Requirements for operation}
+
+For the complete operation of \Lscript{pst2pdf}{} you need to have a modern %
+\hologo{TeX} distribution such as \hologo{TeX} Live or \hologo{MiKTeX}, the packages \LPack{preview}\cite{preview},
+\LPack{pst-pdf}\cite{pst-pdf}, \LPack{graphicx}\cite{graphicx} and \LPack{grfext}\cite{grfext}, have
+a version equal to or greater than \liningnums{5.28} of \Lprog{perl}, a
+version equal to or greater than \liningnums{9.24} of \Lprog{Ghostscript}, a
+version equal to or greater than \liningnums{1.40} of \Lscript{pdfcrop}
+and have a version equal to or greater than \liningnums{0.52} of %
+\Lprog{poppler-utils}.
+
+The distribution of \hologo{TeX} Live 2020 for \Losystem{Windows} includes %
+\Lscript{pst2pdf} and all requirements, \hologo{MiKTeX} users must install the
+appropriate software for full operation.
+
+The script auto detects the \Lprog{Ghostscript}, but not \Lprog{poppler-utils}.
+You should keep this in mind if you are using the script directly and not
+the version provided in your \hologo{TeX} distribution.
+
+The script has been tested on \Losystem{Windows} (v10) and %
+\Losystem{Linux} (fedora 32) using \Lprog{Ghostscript} %
+\liningnums{v9.52}, \Lprog{poppler-utils} \liningnums{v0.84}, \Lprog{perl} \liningnums{v5.30}
+and the standard classes offers by \hologo{LaTeX}: \LClass{book},
+\LClass{report}, \LClass{article} and \LClass{letter}.
+
+\section{How it works}
+\label{sec:howtowork}
+
+It is important to have a general idea of how the \emph{\enquote{extraction and conversion}}
+process works and the requirements that must be fulfilled so
+that everything works correctly, for this we must be clear about some
+concepts related to how to work with the \meta{input file}, the \meta{verbatim content}
+and the \meta{steps process}.
+
+\subsection{The input file}
+\label{sec:inputfile}
+
+The \meta{input file} must comply with \emph{certain characteristics} in order to
+be processed, the content at the beginning and at the end of the \meta{input
+file} is treated in a special way, before \lstinline|\documentclass| and after
+\lstinline|\end{document}| can go any type of content, internally the script will
+\emph{\enquote{split}} the \meta{input file} at this points.
+
+If the \meta{input file} contains files using \Lcs{input}\marg[type=tt]{file} or
+\Lcs{include}\marg[type=tt]{file} these will not be processed, from the side of
+the \emph{script} they only represent lines within the file, if you want
+them to be processed it is better to use the \Lscript{latexpand}\footnote{\url{https://www.ctan.org/pkg/latexpand}}
+first and then process the file.
+
+Like \Lcs{input}\marg[type=tt]{file} or \Lcs{include}\marg[type=tt]{file}, blank lines, vertical spaces and tab
+characters are treated literally, for the \emph{script} the \meta{input file}
+is just a set of characters, as if it was a simple text file. It is
+advisable to format the source code \meta{input file} using utilities such
+as \Lprog{chktex}\footnote{\url{https://www.ctan.org/pkg/chktex}} and
+\Lscript{latexindent}\footnote{\url{https://www.ctan.org/pkg/latexindent}}, especially if you want to
+extract the source code of the environments.
+
+Both \Lcs{thispagestyle}\marg[type=tt]{style} and \Lcs{pagestyle}\marg[type=tt]{style}
+are treated in a special way by the script, if they do not appear in the
+preamble then \Lcs{pagestyle}\marg[type=tt]{empty} will be added and if they are present
+and \marg[type=tt]{style} is different from \marg[type=tt]{empty} this
+will be replaced by \marg[type=tt]{empty}.
+
+This is necessary for the image creation process, it does not affect the \meta{output file}, but
+it does affect the \emph{standalone} files. For the script the process of dividing the \meta{input file} into four
+parts and then processing them:
+
+\begin{examplecode}[numbers=left,frame=single]
+% Part One: Everything before \documentclass
+\documentclass{article}
+% Part two: Everything between \documentclass and \begin{document}
+\begin{document}
+% Part three: : Everything between \begin{document} and \end{document}
+\end{document}
+% Part Four: Everything after \end{document}
+\end{examplecode}
+
+If for some reason you have an environment \Lenv{filecontens} before \lstinline|\documentclass| or
+in the preamble of the \meta{input file} that contains a \emph{sub-document} or \emph{environment}
+you want to extract, the script will ignore them.
+
+\subsection{Verbatim contents}
+\label{sec:verbatim}
+
+One of the greatest capabilities of this script is to \emph{\enquote{skip}}
+the complications that \meta{verbatim content} produces with the extraction
+of environments using tools outside the \enquote{\hologo{TeX} world}.
+In order to \emph{\enquote{skip}} the complications, the \meta{verbatim content} is classified into
+three types:
+
+\begin{itemize}[nosep]
+ \item Verbatim in line.
+ \item Verbatim standard.
+ \item Verbatim write.
+\end{itemize}
+
+\subsubsection{Verbatim in line}
+\label{sec:verbatim:inline}
+
+The small pieces of code written using a \emph{\enquote{verbatim macro}}
+are considered \meta{verbatim in line}, such as \lstinline+\verb|+\meta{code}\lstinline+|+
+or \lstinline+\verb*|+\meta{code}\lstinline+|+ or \lstinline+\macro+\marg[type=tt]{code} or
+\lstinline+\macro+\oarg[type=tt]{opts}\marg[type=tt]{code}.
+
+Most \emph{\enquote{verbatim macro}} provide by packages \LPack{minted}, %
+\LPack{fancyvrb} and \LPack{listings} have been tested and are fully
+supported. They are automatically detected the \emph{verbatim macro} (including \texttt{\small\bfseries\textcolor{MediumOrchid}{*}} argument) generates by
+\Lcs{newmint} and \Lcs{newmintinline} and the following list:
+
+\vspace*{-10pt}
+\begin{multicols}{3}
+\begin{itemize}[font=\sffamily\small,partopsep=5pt,parsep=5pt,nosep,leftmargin=*]
+\small
+\item \Lcs{mint}
+\item \Lcs{spverb}
+\item \Lcs{qverb}
+\item \Lcs{fverb}
+\item \Lcs{verb}
+\item \Lcs{Verb}
+\item \Lcs{lstinline}
+\item \Lcs{pyginline}
+\item \Lcs{pygment}
+\item \Lcs{Scontents}
+\item \Lcs{tcboxverb}
+\item \Lcs{mintinline}
+\end{itemize}
+\end{multicols}
+
+Some packages define abbreviated versions for \emph{\enquote{verbatim macro}} as %
+\Lcs{DefineShortVerb}, \Lcs{lstMakeShortInline} and %
+\Lcs{MakeSpecialShortVerb}, will be detected automatically if are declared
+explicitly in \meta{input file}.
+
+The following consideration should be kept in mind for some packages that
+use abbreviations for verbatim macros, such as \LPack{shortvrb} or %
+\LPack{doc} for example in which there is no explicit \lstinline+\macro+ in the
+document by means of which the abbreviated form can be detected, for
+automatic detection need to find \Lcs{DefineShortVerb} explicitly to process
+it correctly. The solution is quite simple, just add in \meta{input file}:
+
+\begin{examplecode}
+\UndefineShortVerb{\|}
+\DefineShortVerb{\|}
+\end{examplecode}
+
+depending on the package you are using. If your \emph{\enquote{verbatim macro}} is not
+supported by default or can not detect, use the options described in \ref%
+{sec:optline}.
+
+\subsubsection{Verbatim standard}
+\label{sec:verbatim:std}
+
+These are the \emph{\enquote{classic}} environments for \emph{\enquote{writing code}} are considered %
+\meta{verbatim standard}, such as \Venv{verbatim} and \Venv{lstlisting}
+environments. The following list (including \texttt{\small\bfseries\textcolor{MediumOrchid}{*}} argument)
+is considered as \meta{verbatim standard} environments:
+
+\begin{multicols}{4}
+\begin{itemize}[font=\sffamily\small, noitemsep,leftmargin=*]
+\small
+\item \Venv{Example}
+\item \Venv{CenterExample}
+\item \Venv{SideBySideExample}
+\item \Venv{PCenterExample}
+\item \Venv{PSideBySideExample}
+\item \Venv{verbatim}
+\item \Venv{Verbatim}
+\item \Venv{BVerbatim}
+\item \Venv{LVerbatim}
+\item \Venv{SaveVerbatim}
+\item \Venv{PSTcode}
+\item \Venv{LTXexample}
+\item \Venv{tcblisting}
+\item \Venv{spverbatim}
+\item \Venv{minted}
+\item \Venv{listing}
+\item \Venv{lstlisting}
+\item \Venv{alltt}
+\item \Venv{comment}
+\item \Venv{chklisting}
+\item \Venv{verbatimtab}
+\item \Venv{listingcont}
+\item \Venv{boxedverbatim}
+\item \Venv{demo}
+\item \Venv{sourcecode}
+\item \Venv{xcomment}
+\item \Venv{pygmented}
+\item \Venv{pyglist}
+\item \Venv{program}
+\item \Venv{programl}
+\item \Venv{programL}
+\item \Venv{programs}
+\item \Venv{programf}
+\item \Venv{programsc}
+\item \Venv{programt}
+\end{itemize}
+\end{multicols}
+
+They are automatically detected \meta{verbatim standard} environments
+(including \texttt{\small\bfseries\textcolor{MediumOrchid}{*}} argument)
+generates by commands:
+
+\begin{multicols}{2}
+\begin{itemize}[font=\sffamily\small,noitemsep,leftmargin=*]
+\small
+\item \Lcs{DefineVerbatimEnvironment}
+\item \Lcs{NewListingEnvironment}
+\item \Lcs{DeclareTCBListing}
+\item \Lcs{ProvideTCBListing}
+\item \Lcs{lstnewenvironment}
+\item \Lcs{newtabverbatim}
+\item \Lcs{specialcomment}
+\item \Lcs{includecomment}
+\item \Lcs{newtcblisting}
+\item \Lcs{NewTCBListing}
+\item \Lcs{newverbatim}
+\item \Lcs{NewProgram}
+\item \Lcs{newminted}
+\end{itemize}
+\end{multicols}
+
+If any of the \meta{verbatim standard} environments is not supported by
+default or can not detected, you can use the options described in \ref%
+{sec:optline}.
+
+\subsubsection{Verbatim write}
+\label{sec:verbatim:write}
+
+Some environments have the ability to write \emph{\enquote{external files}}
+or \emph{\enquote{store content}} in memory, these environments are
+considered \meta{verbatim write}, such as \Wenv{scontents}, \Wenv{filecontents}
+or \Lenv{VerbatimOut} environments. The following list is considered (including \texttt{\small\bfseries\textcolor{MediumOrchid}{*}} argument) as %
+\meta{verbatim write} environments:
+
+\begin{multicols}{4}
+\begin{itemize}[font=\sffamily\small, noitemsep,leftmargin=*]
+\ttfamily\small
+\item \Wenv{scontents}
+\item \Wenv{filecontents}
+\item \Wenv{tcboutputlisting}
+\item \Wenv{tcbexternal}
+\item \Wenv{tcbwritetmp}
+\item \Wenv{extcolorbox}
+\item \Wenv{extikzpicture}
+\item \Wenv{VerbatimOut}
+\item \Wenv{verbatimwrite}
+\item \Wenv{filecontentsdef}
+\item \Wenv{filecontentshere}
+\item \Wenv{filecontentsdefmacro}
+\item \Wenv{filecontentsdefstarred}
+\item \Wenv{filecontentsgdef}
+\item \Wenv{filecontentsdefmacro}
+\item \Wenv{filecontentsgdefmacro}
+\end{itemize}
+\end{multicols}
+
+They are automatically detected \meta{verbatim write}
+(including \texttt{\small\bfseries\textcolor{MediumOrchid}{*}} argument) environments generates
+by commands:
+
+\begin{itemize}[font=\sffamily\small, noitemsep,leftmargin=*]
+\small
+\item \Lcs{renewtcbexternalizetcolorbox}
+\item \Lcs{renewtcbexternalizeenvironment}
+\item \Lcs{newtcbexternalizeenvironment}
+\item \Lcs{newtcbexternalizetcolorbox}
+\item \Lcs{newenvsc}
+\end{itemize}
+
+If any of the \meta{verbatim write} environments is not supported by default
+or can not detected, you can use the options described in \ref{sec:optline}.
+
+\subsection{Steps process}
+\label{sec:steps:process}
+
+For creation of the image formats, extraction of source code of environments and creation of an
+\meta{output file}, \Lscript{pst2pdf} need a various steps. Let's assume that the %
+\meta{input file} is \LFile{test.tex}, \meta{output file} is %
+\LFile{test-pdf.tex}, the working directory are \enquote{\texttt{./}}, the
+directory for images are \texttt{./images}, the temporary
+directory is \texttt{/tmp} and we want to generate images in \Limgform{pdf}
+format and \meta{standalone} files for all environments extracted.
+
+We will use the following code as \LFile{test.tex}:
+
+\begin{examplecode}[numbers=left,frame=single]
+% Some commented lines at begin file
+\documentclass{article}
+\usepackage{pstricks}
+\begin{document}
+Some text
+\begin{pspicture}
+ Some code
+\end{pspicture}
+Always use \verb|\begin{pspicture}| and \verb|\end{pspicture}| to open
+and close environment
+\begin{pspicture}
+ Some code
+\end{pspicture}
+Some text
\begin{verbatim}
-%CleanPST
-pstricks code
-%CleanPST
+\begin{pspicture}
+ Some code
+\end{pspicture}
\end{verbatim}
+Some text
+\end{document}
+Some lines that will be ignored by the script
+\end{examplecode}
-\section{Environments support}
-\nxLprog{pst2pdf} support fourth environments in default and single way:
+\subsubsection{Validating Options}
-\vspace{10pt}
-\begin{minipage}[c]{0.25\textwidth}
+The first step is read and validated \oarg[type=tt,cf=optcolor,sbc=gray,ac=lightgray]{options} from the command
+line, verifying that \LFile{test.tex} contains \emph{some} environment to extract,
+check the directory \texttt{./images} if it doesn't exist create it and create a temporary directory \texttt{/tmp/hG45uVklv9}.
+
+The entire \LFile{test.tex} file is loaded into memory and \emph{\enquote{split}} to start the extraction process.
+
+\subsubsection{Comment and ignore}
+In the second step, once the file \LFile{test.tex} is loaded and divided in memory,
+proceeds (in general terms) as follows:
+
+\begin{quotation}
+Search the words \lstinline|\begin{| and \lstinline|\end{| in verbatim standard, verbatim write, verbatim in line and
+commented lines, if it finds them, converts to \lstinline|\BEGIN{| and \lstinline|\END{|, then places all code to
+extract inside the \lstinline|\begin{preview}| \ldots \lstinline|\end{preview}|.
+\end{quotation}
+
+At this point \emph{\enquote{all}} the code you want to extract is inside \lstinline|\begin{preview}|\ldots\lstinline|\end{preview}|.
+
+\subsubsection{Creating standalone files and extracting}
+
+In the third step, the script generate \meta{standalone} files: \LFile{test-fig-1.tex},
+\LFile{test-fig-2.tex}, \dots{} and saved in \texttt{./images} then proceed in two ways
+according to the \oarg[type=tt,cf=optcolor,sbc=gray,ac=lightgray]{options}
+passed to generate a temporary file with a random number (1981 for example):
+
+\begin{enumerate}[leftmargin=*]
+\item If script is call \emph{without} \cmdopt{noprew} options, the following lines
+will be added at the beginning of the \LFile{test.tex} (in memory):
+
+\begin{examplecode}
+\PassOptionsToPackage{inactive}{pst-pdf}%
+\AtBeginDocument{%
+\RequirePackage[inactive]{pst-pdf}%
+\RequirePackage[active,tightpage]{preview}%
+\renewcommand\PreviewBbAdjust{-60pt -60pt 60pt 60pt}}%
+% rest of input file
+\end{examplecode}
+
+The different parts of the file read in memory are joined and save in a temporary
+file \LFile{test-fig-1981.tex} in \texttt{./}. This file will contain all the environments
+for extraction between \lstinline|\begin{preview}|\ldots\lstinline|\end{preview}| along with the rest of the document.
+If the document contains images, these must be in the formats supported by the \emph{engine} selected to process the \meta{input file}.
+
+\item If script is call \emph{with} \cmdopt{noprew} options, the \lstinline|\begin{preview}|\ldots\lstinline|\end{preview}|
+lines are only used as delimiters for extracting the content \emph{without} using the package \LPack{preview}, the following lines
+will be added at the beginning of the \LFile{test.tex} (in memory):
+
+\begin{examplecode}
+\PassOptionsToPackage{inactive}{pst-pdf}%
+\AtBeginDocument{%
+\RequirePackage[inactive]{pst-pdf}}%
+% only environments extracted
+\end{examplecode}
+
+Then it is joined with all extracted environments separated by \Lcs{newpage} and saved
+in a temporary file \LFile{test-fig-1981.tex} in \enquote{\texttt{./}}.
+
+\end{enumerate}
+
+If \cmdopt{norun} is passed, the temporary file \LFile{test-fig-1981.tex}
+is renamed to \LFile{test-fig-all.tex} and moved to \texttt{./images}.
+
+\subsubsection{Generate image formats}
+
+In the fourth step, the script generating the file \LFile{test-fig-1981.pdf} with all code extracted and croping, running:
+\begin{examplecmd}
+[user at machine ~:]§ `\small\meta[type=tt,cf=ForestGreen,ac=lightgray]{compiler}` -no-shell-escape -interaction=nonstopmode -recorder test-fig-1981.tex
+[user at machine ~:]§ pdfcrop --margins `\small\textcolor{gray}{0}` test-fig-1981.pdf test-fig-1981.pdf
+\end{examplecmd}
+
+Now move \LFile{test-fig-1981.pdf} to \texttt{/tmp/hG45uVklv9} and rename to \LFile{test-fig-all.pdf}, generate image files \LFile{test-fig-1.pdf}
+and \LFile{test-fig-2.pdf} and copy to \texttt{./images}, if the image files exist, they will be rewritten each time you run the script. The file \LFile{test-fig-1981.tex} is
+moved to the \texttt{./images} and rename to \LFile{test-fig-all.tex}.
+
+
+
+
+Note the options passed to \meta[type=tt,cf=ForestGreen,ac=lightgray]{compiler} always use \prgopt*{no-shell-escape}
+and \prgopt*{recorder}, to generate the \Lext{fls} file which is used to delete temporary files and directories after
+the process is completed and. The \cmdopt{shell} option activates \prgopt*{shell-escape} for compatibility with packages
+such as \LPack{minted} or others.
+
+\subsubsection{Create output file}
+
+In the fifth step, the script creates the output file \LFile{test-pdf.tex} converting all extracted code to
+\Lcs{includegraphics}, remove all \PST{} packages and content betwen \lstinline|%CleanPST ... %CleanPST|, then
+adding the following lines at end of preamble:
+
+\begin{examplecode}[numbers=left]
+\usepackage{graphicx}
+\graphicspath{{images/}}
+\usepackage{grfext}
+\PrependGraphicsExtensions*{.pdf}
+\end{examplecode}
+
+The script will try to detect whether the \LPack{graphicx} package and
+the \Lcs{graphicspath} command are in the preamble of the \meta[cf=optcolor]{output file}.
+If it is not possible to find it, it will read the \Lext{log} file generated by the temporary file.
+Once the detection is complete, the package \LPack{grfext} and \Lcs{PrependGraphicsExtensions*}
+will be added at the end of the preamble, then proceed to run:
+
+\begin{examplecmd}
+[user at machine ~:]§ `\small\meta[type=tt,cf=ForestGreen,ac=lightgray]{compiler}` -recorder -shell-escape test-pdf.tex
+\end{examplecmd}
+generating the file \LFile{test-pdf.pdf}.
+
+\subsubsection{Clean temporary files and dirs}
+
+In the sixth step, the script read the files \LFile{test-fig-1981.fls}
+and \LFile{test-out.fls}, extract the information from the
+temporary files and dirs generated in the process in \enquote{\texttt{./}} and then
+delete them together with the directory \texttt{/tmp/hG45uVklv9}.
+
+Finally the output file \texttt{test-pdf.tex} looks like this:
+
+\begin{examplecode}[numbers=left]
+% some commented lines at begin document
+\documentclass{article}
+\usepackage{graphicx}
+\graphicspath{{images/}}
+\usepackage{grfext}
+\PrependGraphicsExtensions*{.pdf}
+\begin{document}
+Some text
+\includegraphics[scale=1]{test-fig-1}
+Always use \verb|\begin{pspicture}| and \verb|\end{pspicture}| to open
+and close environment
+\includegraphics[scale=1]{test-fig-2}
+Some text
\begin{verbatim}
-\pspicture*
-\psset{...}
-pstricks code
-\endpspicture
-\end{verbatim}
-\end{minipage}
-\begin{minipage}[c]{0.25\textwidth}
-\begin{verbatim}
\begin{pspicture}
-\psset{...}
-pstricks code
+ Some code
\end{pspicture}
\end{verbatim}
-\end{minipage}
-\begin{minipage}[c]{0.25\textwidth}
-\begin{verbatim}
-\begin{pspicture*}
-\psset{...}
-pstricks code
-\end{pspicture*}
-\end{verbatim}
-\end{minipage}
-\begin{minipage}[c]{0.25\textwidth}
-\begin{verbatim}
-\begin{postscript}
-\psset{...}
-pstricks code
-\end{postscript}
-\end{verbatim}
-\end{minipage}
+Some text
+\end{document}
+\end{examplecode}
-\vspace{10pt}
-Note: When using the default mode, images are created using \Lprog{Ghostscript} and \LPack{preview} package, in this case, it is not necessary
-to write \Lenv{psset} into \PST\ environment.
-\newpage
-\section{Running the script}
-\subsection{Default mode}
-The general syntax for the \Lprog{perl} \emph{script} is simple:
+\section{Default extracted environments}
+\label{sec:extract:env}
-\begin{BDef}
-\nxLprog{perl} \nxLprog{pst2pdf} \Larg{file.tex} \OptArg*{--options}
-\end{BDef}
+\nxLprog{pst2pdf} support fourth environments for extraction. Internally
+the script converts all environments to extract in \Lenv{preview} environments.
+Is better comment this package in preamble unless the option \cmdopt{noprew} is used.
-For \TeX Live users:
+\DescribeTE{postscript}
+Environment provide by \LPack{pst-pdf}\cite{pst-pdf}, \LPack{auto-pst-pdf}\cite{auto-pst-pdf}
+and \LPack{auto-pst-pdf-lua}\cite{auto-pst-pdf-lua} packages. Since the \LPack{pst-pdf}, \LPack{auto-pst-pdf}
+and \LPack{auto-pst-pdf-lua} packages internally use the \LPack{preview} package, is better comment this in preamble.
+Only the \emph{content} of this environment is extracted and \emph{\enquote{not}} the environment itself when using the
+\cmdopt{srcenv} option. The \Lenv{postscript} environment should always be used, when there is some code before a \Lenv{pspicture}
+environment or for some code which is not inside of a \Lenv{pspicture} environment.
-\begin{BDef}
-\nxLprog{pst2pdf} \Larg{file.tex} \OptArg*{--options}
-\end{BDef}
+\DescribeTE{pspicture}
+Environment provide by \LPack{pstricks}\cite{girou:02:} package. The plain \hologo{TeX}
+syntax \lstinline|\pspicture ... \endpspicture| its converted to \hologo{LaTeX} syntax
+\lstinline|\begin{pspicture} ... \end{pspicture}| if not within the \Lenv{PSTexample} or \Lenv{postscript} environments.
-In this way \nxLprog{pst2pdf} creates a new file called \Larg{file-pst.tex} and copy all \Lenv{pspicture}
-and \Lenv{postscript} environments, then processed and create file-pdf.pdf and file-fig-1.pdf, file-fig-2.pdf, file-fig-\dots.pdf and file-fig-1.tex, file-fig-2.tex, file-fig-\dots.tex for all \Lenv{pspicture} and \Lenv{postscript} using \nxLprog{Ghostscript}.
-\subsection{Single mode}
-\label{single}
-If you do not have \nxLprog{Ghostscript} use the option \Loption{-np,---single} in this mode, the files are processed separately (take a more time to create images files). For example:
+\DescribeTE{psgraph}
+Environment provide by \LPack{pst-plot}\cite{pst-plot} package. The plain \hologo{TeX} syntax \lstinline|\psgraph ... \endpsgraph|
+its converted to \hologo{LaTeX} syntax \lstinline|\begin{psgraph} ... \end{psgraph}| if
+not within the \Lenv{PSTexample} or \Lenv{postscript} environments.
-\begin{BDef}
-\nxLprog{pst2pdf} \Larg{file.tex} \OptArg*{---single}
-\end{BDef}
+\DescribeTE{PSTexample}
+Environment provide by \LPack{pst-exa}\cite{pst-exa} package. The script automatically detects the
+\lstinline|\begin{PSTexample}| \lstinline|...\end{PSTexample}|
+environments and processes them as separately compiled files. The user should have loaded the
+package with [\Loption{swpl}] or [\Loption{tcb}] option.
-create file-pdf.pdf and file-fig-1.pdf, file-fig-2.pdf, file-fig-\dots.pdf and file-fig-1.tex, file-fig-2.tex, file-fig-\dots.tex for all \Lenv{pspicture} and \Lenv{postscript} environments (see \ref{options}).
+\section{Remove \PST\ code}
-\section{Options}
-\label{options}
-The options listed in Table~\ref{perloptions} refer only to the \emph{script} and not the \LaTeX\ file.
+By design, the script remove all \PST{} packages in preamble of \meta{output file}, if you need delete other \PST\ code in preamble use:
-\begin{table}[htp]
-\caption{Optional arguments for \nxLprog{pst2pdf}}\label{perloptions}
-\begin{tabularx}{\linewidth}{@{} l l >{\ttfamily}l X @{}}\\\toprule
-\emph{name} & \emph{values} & \textrm{\emph{default}} & \emph{description}\\\midrule
-\Loption{-h,---help} & boolean & 1 & print help and exit.\\
-\Loption{-l,---license} & boolean & 0 & print license and exit.\\
-\Loption{-v,---version} & boolean & 1 & print version and exit.\\
-\Loption{-m,---margins} & literal & 1 & margins for pdfcrop (in bp).\\
-\Loption{-d,---dpi} & integer & 300 & the dots per inch for a created \Lext{ppm} file.\\
-\Loption{-j,---jpg} & boolean & 0 & creates \Lext{jpg} images (need \Lprog{Ghostscript}).\\
-\Loption{-p,---png} & boolean & 0 & creates \Lext{png} images (need \Lprog{Ghostscript}).\\
-\Loption{-e,---eps} & boolean & 0 & creates \Lext{eps} images (need \Lprog{pdftops}).\\
-\Loption{-s,---svg} & boolean & 0 & creates \Lext{ppm} images (need \Lprog{pdf2svg}).\\
-\Loption{-P,---ppm} & boolean & 0 & creates \Lext{ppm} images (need \Lprog{pdftoppm}).\\
-\Loption{-c,---clear} & boolean & 0 & delete all temporary files.\\
-\Loption{-a,---all} & boolean & 0 & generte all images type and clear.\\
-\Loption{-x,---xetex} & boolean & 0 & using \Lprog{xelatex} instead of \Lprog{latex} for process.\\
-\Loption{-np,---single} & boolean & 0 & create images type (whitout Ghostscript).\\
-\Loption{-ni,---noimages} & boolean & 0 & generate file-pdf.tex, but no images.\\
-\Loption{-ns,---nosource} & boolean & 0 & delte all source for images.\\
-\Loption{---imgdir} & literal & images/ & the directory for the created images.\\
-\Loption{---ignore} & literal & other & skip other verbatim environment.\\
-\Loption{---Verbose} & boolean & 1 & for a long \nxLprog{pst2pdf} log.\\
-\Loption{---bibtex} & boolean & 0 & runs \Lprog{bibtex}.\\
-\Loption{---bibtex} & boolean & 0 & runs \Lprog{biber} if a file with extension \Lext{bcf} exists. \\\bottomrule
-\end{tabularx}
-\end{table}
+\DescribeTE*{CleanPST}
+All content betwen \lstinline|%CleanPST ... %CleanPST| are deleted in preamble of the \meta[cf=optcolor]{output file}.
+This lines can \emph{not} be nested and should be at the beginning of the line and in separate lines.
-For Help in command line use:
+\section{Supported image formats}
+\label{sec:image:format}
-\begin{BDef}
-\nxLprog{pst2pdf} \OptArg*{--help}
-\end{BDef}
+The \Larga{image formats} generated by the \Lscript{pst2pdf} using \Lprog{Ghostscript}
+and \Lprog{poppler-utils} are the following command lines:
-\section{Other image format}
-If you need to create other image formats use \nxLprog{pst2pdf}, move to images dir and use
-\nxLprog{mogrify} command (from \Lprog{ImageMagick}), for examples:\\
+\DescribeIF{pdf}
+The image format generated using \Lprog{Ghostscript}. The line executed by the system is:
-\begin{BDef}
-\nxLprog{mogrify} -format tiff \OptArg*{*.ppm}
-\end{BDef}
-generate \Lext{tiff} images files.
+\begin{examplecmd}
+[user at machine ~:]§ gs -q -dNOSAFER -sDEVICE=pdfwrite -dPDFSETTINGS=/prepress
+\end{examplecmd}
+
+\DescribeIF{eps}
+The image format generated using \Lprog{pdftoeps}. The line executed by the system is:
+
+\begin{examplecmd}
+[user at machine ~:]§ pdftops -q -eps
+\end{examplecmd}
+
+\DescribeIF{png}
+The image format generated using \Lprog{Ghostscript}. The line executed by the system is:
+
+\begin{examplecmd}
+[user at machine ~:]§ gs -q -dNOSAFER -sDEVICE=pngalpha -r150
+\end{examplecmd}
+
+\DescribeIF{jpg}
+The image format generated using \Lprog{Ghostscript}. The line executed by the system is:
+\begin{examplecmd}
+[user at machine ~:]§ gs -q -dNOSAFER -sDEVICE=jpeg -r150 -dJPEGQ=100 \
+ -dGraphicsAlphaBits=4 -dTextAlphaBits=4
+\end{examplecmd}
+
+\DescribeIF{ppm}
+The image format generated using \Lprog{pdftoppm}. The line executed by the system is:
+
+\begin{examplecmd}
+[user at machine ~:]§ pdftoppm -q -r 150
+\end{examplecmd}
+
+\DescribeIF{tiff}
+The image format generated using \Lprog{Ghostscript}. The line executed by the system is:
+
+\begin{examplecmd}
+[user at machine ~:]§ gs -q -dNOSAFER -sDEVICE=tiff32nc -r150
+\end{examplecmd}
+
+\DescribeIF{svg}
+The image format generated using \Lprog{pdftocairo}. The line executed by the system is:
+
+\begin{examplecmd}
+[user at machine ~:]§ pdftocairo -q -r 150
+\end{examplecmd}
+
+\DescribeIF{bmp}
+The image format generated using \Lprog{Ghostscript}. The line executed by the system is:
+
+\begin{examplecmd}
+[user at machine ~:]§ gs -q -dNOSAFER -sDEVICE=bmp32b -r150
+\end{examplecmd}
+
+\section{How to use}
+
+\subsection{Syntax}
+
+The syntax for \myscript\ is simple, if your use the version provided in your \hologo{TeX} distribution:
+
+\begin{examplecmd}
+[user at machine ~:]§ pst2pdf `\small\oarg[type=tt,cf=optcolor,sbc=gray,ac=lightgray]{options} \meta[cf=optcolor]{input file}`
+\end{examplecmd}
+or
+\begin{examplecmd}
+[user at machine ~:]§ pst2pdf `\small\meta[cf=optcolor]{input file} \oarg[type=tt,cf=optcolor,sbc=gray,ac=lightgray]{options}`
+\end{examplecmd}
+If the development version is used:
+\begin{examplecmd}
+[user at machine ~:]§ perl pst2pdf `\small\oarg[type=tt,cf=optcolor,sbc=gray,ac=lightgray]{options} \meta[cf=optcolor]{input file}`
+\end{examplecmd}
+
+The extension valid for \meta[cf=optcolor]{input file} are \Lext{tex} or \Lext{ltx},
+relative or absolute paths for files and directories is not supported. If used without
+\oarg[type=tt,cf=optcolor,sbc=gray,ac=lightgray]{options} the extracted environments are converted to \Limgform{pdf}
+image format and saved in the \texttt{./images} directory using \Lprog{latex}\textcolor{optcolor}{\texttt{\bfseries\guillemotright}}\Lprog{dvips}\textcolor{optcolor}{\texttt{\bfseries\guillemotright}}\Lscript{ps2pdf}
+and \LPack{preview} package for process \meta[cf=optcolor]{input file} and \Lprog{pdflatex} for compiler \meta[cf=optcolor]{output file}.
+
+\subsection{Command line interface}
+\label{sec:optline}
+
+The script provides a \emph{command line interface} with short \textcolor{optcolor}{\bfseries\texttt{-}}
+and long \textcolor{optcolor}{\bfseries\texttt{--}} option, they may be given before
+the name of the \meta[cf=optcolor]{input file}, the order of specifying the options is not significant.
+Options that accept a \meta{value} require either a blank space \verb*| | or \textcolor{optcolor}{\bfseries\texttt{=}}
+between the option and the \meta{value}. Some short options can be bundling.
+
+\DescribeCmd[h]{help}{bolean}{off}
+Display a command line help and exit.
+
+\DescribeCmd[l]{log}{bolean}{off}
+Write a \LFile{pst2pdf.log} file with all process information.
+
+\DescribeCmd[v]{version}{bolean}{off}
+Display the current version (\fileversion) and exit.
+
+\DescribeCmd[V]{verbose}{bolean}{off}
+Show verbose information of process in terminal.
+
+\DescribeCmd[d]{dpi}{integer}{150}
+Dots per inch for images files. Values are positive integers less than or equal to 2500.
+
+\DescribeCmd[t]{tif}{bolean}{off}
+Create a \Lext{tif} images files using \Lprog{Ghostscript}.
+
+\DescribeCmd[b]{bmp}{bolean}{off}
+Create a \Lext{bmp} images files using \Lprog{Ghostscript}.
+
+\DescribeCmd[j]{jpg}{bolean}{off}
+Create a \Lext{jpg} images files using \Lprog{Ghostscript}.
+
+\DescribeCmd[p]{png}{bolean}{off}
+Create a \Lext{png} transparent image files using \Lprog{Ghostscript}.
+
+\DescribeCmd[e]{eps}{bolean}{off}
+Create a \Lext{eps} image files using \Lprog{pdftops}.
+
+\DescribeCmd[s]{svg}{bolean}{off}
+Create a \Lext{svg} image files using \Lprog{pdftocairo}.
+
+\DescribeCmd[P]{ppm}{bolean}{off}
+Create a \Lext{ppm} image files using \Lprog{pdftoppm}.
+
+\DescribeCmd[g]{gray}{bolean}{off}
+Create a gray scale for all images using \Lprog{Ghostscript}. The line behind this options is:
+
+\begin{examplecmd}
+[user at machine ~:]§ gs -q -dNOSAFER -sDEVICE=pdfwrite -dPDFSETTINGS=/prepress \
+ -sColorConversionStrategy=Gray -dProcessColorModel=/DeviceGray
+\end{examplecmd}
+
+\DescribeCmd[f]{force}{bolean}{off}
+Try to capture \lstinline|\psset|\marg[type=tt]{code} to extract.
+When using the \cmdopt{force} option the script will try to capture \lstinline|\psset|\marg[type=tt]{code} and
+leave it inside the \Lenv{preview} environment, any line that is between \lstinline|\psset|\marg[type=tt]{code} and
+\lstinline|\begin{pspicture}| will be captured.
+
+\DescribeCmd[np]{noprew}{bolean}{off}
+Create images files without \LPack{preview} package. The \lstinline|\begin{preview}|\ldots \lstinline|\end{preview}|
+lines are only used as delimiters for extracting the content \emph{without} using the package \LPack{preview}.
+Using this option \emph{\enquote{only}} the extracted environments are processed and not the whole \meta[cf=optcolor]{input file}, sometimes
+it is better to use it together with \cmdopt{force}. Alternative name \cmdopt{single}.
+
+\DescribeCmd[m]{margins}{integer}{0}
+Set margins in bp for \Lscript{pdfcrop}.
+
+\DescribeCmd[r]{runs}{\textnormal{\ttfamily 1\textbar 2\textbar 3}}{1}
+Set the number of times the \meta[type=tt,cf=ForestGreen,ac=lightgray]{compiler} will run
+on the \meta[cf=optcolor]{input file} for environment extraction.
+
+\DescribeCmd{myverb}{macro name}{myverb}
+Set custom verbatim command \lstinline+\myverb+. Just pass the \meta{macro name}{}
+\emph{without} \enquote{\textcolor{optcolor}{\texttt{\bfseries\textbackslash}}}.
+
+\DescribeCmd{ignore}{environment name}{empty}
+Add a verbatim environment to internal list.
+
+\DescribeCmd{imgdir}{string}{images}
+Set the name of directory for save generated files. Only the \meta{name} of directory
+must be passed \emph{without} relative or absolute paths.
+
+\DescribeCmd{srcenv}{bolean}{off}
+Create separate files with \emph{\enquote{only code}} for all extracted
+environments.
+
+\DescribeCmd{shell}{bolean}{off}
+Enable \Lcs{write18}\meta{shell command}.
+
+\DescribeCmd[ni]{norun}{bolean}{off}
+Execute the script, but do not create image files. This option is designed to
+to generate standalone files or used in conjunction with \cmdopt{srcenv} and to
+debug the \meta[cf=optcolor]{output file}. Alternative name \cmdopt{noimages}.
+
+\DescribeCmd{nopdf}{bolean}{off}
+Don't create a \Lext{pdf} image files.
+
+\DescribeCmd{nocrop}{bolean}{off}
+Don't run \Lscript{pdfcrop} in image files.
+
+\DescribeCmd[ns]{nosource}{bolean}{off}
+Don't create standalone files.
+
+\DescribeCmd[x]{xetex}{bolean}{off}
+Using \Lprog{xelatex} compiler \meta[cf=optcolor]{input file} and \meta[cf=optcolor]{output file}.
+
+\DescribeCmd{luatex}{bolean}{off}
+Using \Lprog{dvilualatex}\textcolor{optcolor}{\texttt{\bfseries\guillemotright}}\Lprog{dvips}\textcolor{optcolor}{\texttt{\bfseries\guillemotright}}\Lscript{ps2pdf}
+for compiler \meta[cf=optcolor]{input file} and \Lprog{lualatex} for \meta[cf=optcolor]{output file}.
+
+\DescribeCmd{arara}{bolean}{off}
+Use \Lprog{arara}\footnote{\url{https://ctan.org/pkg/arara}} tool for compiler \meta[cf=optcolor]{output file}.
+This option is designed to full process \meta[cf=optcolor]{output file}, is mutually
+exclusive with \cmdopt{latexmk} option.
+
+\DescribeCmd{latexmk}{bolean}{off}
+Using \Lscript{latexmk}\footnote{\url{https://www.ctan.org/pkg/latexmk}} for process \meta[cf=optcolor]{output file}.
+This option is designed to full process \meta[cf=optcolor]{output file}, is mutually exclusive with \cmdopt{arara}.
+
+\DescribeCmd{zip}{bolean}{off}
+Compress the files generated by the script in \texttt{./images} in \Lext{zip} format.
+Does not include \meta[cf=optcolor]{output file}.
+
+\DescribeCmd{tar}{bolean}{off}
+Compress the files generated by the script in \texttt{./images} in \Lext{tar.gz} format.
+Does not include \meta[cf=optcolor]{output file}.
+
+\DescribeCmd{bibtex}{bolean}{off}
+Run \Lprog{bibtex} on the \Lext{aux} file (if exists), is mutually
+exclusive with \cmdopt{biber} option.
+
+\DescribeCmd{biber}{bolean}{off}
+Run \Lprog{biber} on the \Lext{bcf} file (if exists), is mutually
+exclusive with \cmdopt{bibtex} option.
+
+\subsection{Example of usage}
+
+An example of usage from command line:
+
+\begin{examplecmd}
+[user at machine ~:]§ pst2pdf --luatex -e -p -j --imgdir pics test.ltx
+\end{examplecmd}
+
+Create a \texttt{./pics} directory (if it does not exist) with all extracted environments converted to image
+formats (\Lext{pdf}, \Lext{eps}, \Lext{png}, \Lext{jpg}) in individual files, an stanalone files (\Lext{ltx}) for all environments extracted,
+an output file \LFile{test-pdf.ltx} with all extracted environments converted to \Lcs{includegraphics} and a single file
+\LFile{test-fig-all.ltx} with only the extracted environments
+using \Lprog{dvilualatex}\textcolor{optcolor}{\texttt{\bfseries\guillemotright}}\Lprog{dvips}\textcolor{optcolor}{\texttt{\bfseries\guillemotright}}\Lscript{ps2pdf}
+and \LPack{preview} package for for process \LFile{test.ltx} and
+\Lprog{lualatex} for \LFile{test-pdf.ltx}.
+
+\section{Working in another way}
+
+By design, the script generates separate images and files following a predetermined
+routine that has already been described in this documentation. Another way to generate
+images is as follows:
+
+\begin{enumerate}[font=\small, nosep, noitemsep,leftmargin=*]
+\item Execute the script using \cmdopt{norun} to generate \meta{standalone} files, move to \texttt{./images}
+and generate \Lext{pdf} files runing:
+
+\begin{examplecmd}
+[user at machine~:]§for i in *.tex; do `\meta[type=tt,cf=ForestGreen,ac=lightgray]{compiler} \oarg[type=tt,cf=gray,sbc=optcolor,ac=gray]{options}` $i; done
+[user at machine~:]§for i in *.pdf; do pdfcrop `\small\oarg[type=tt,cf=gray,sbc=optcolor,ac=gray]{options}` $i $i; done
+\end{examplecmd}
+
+\item Execute the script using \cmdopt{norun}, move to \texttt{./images} \Lext{pdf} file runing:
+
+\begin{examplecmd}
+[user at machine~:]§`\meta[type=tt,cf=ForestGreen,ac=lightgray]{compiler} \oarg[type=tt,cf=gray,sbc=optcolor,ac=gray]{options}` test-fig-all.tex
+[user at machine~:]§pdfcrop `\oarg[type=tt,cf=gray,sbc=optcolor,ac=gray]{options}` test-fig-all.pdf
+\end{examplecmd}
+
+\end{enumerate}
+
+\section{Example files}
+
+The \texttt{pst2pdf} documentation provides three example files \LFile{test1.tex}, \LFile{test2.tex}
+and \LFile{test3.tex} plus an image file \LFile{tux.jpg} to test and view the script in action.
+Copy these files to a directory you have write access to and execute:
+
+\begin{examplecmd}
+[user at machine~:]§pst2pdf `\oarg[type=tt,cf=gray,sbc=optcolor,ac=gray]{options}` test1.tex
+\end{examplecmd}
+
+To see how this works.
%\newpage
\clearpage
\nocite{*}
@@ -201,4 +1240,5 @@
\printbibliography
\printindex
+
\end{document}
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/test1-pdf.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/test2-pdf.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/test2.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/test2.tex 2020-08-21 20:59:35 UTC (rev 56148)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/test2.tex 2020-08-21 21:01:17 UTC (rev 56149)
@@ -4,7 +4,6 @@
\usepackage{pst-node}
\usepackage{pst-3dplot}
\usepackage{pst-calendar}
-\usepackage{pst-exa}
\usepackage{blindtext}
\usepackage{babel}
\usepackage{microtype}% for the last pdflatex run
@@ -25,7 +24,7 @@
\begin{postscript}
\psscalebox{0.5}{%
-\psCalDodecaeder[style=january,unit=0.75,Year=2010]}
+\psCalDodecaeder[style=january,unit=0.75,Year=2020]}
\end{postscript}
\includegraphics{tux.jpg}% a jpg image
@@ -32,7 +31,7 @@
foo bar baz foo bar baz
-
+
\begin{postscript}\rnode{foo}{foo} bar baz
foo bar baz foo bar \rnode{baz}{baz} foo bar baz
@@ -64,4 +63,4 @@
\end{postscript}
-\end{document}
\ No newline at end of file
+\end{document}
Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/test3-pdf.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl 2020-08-21 20:59:35 UTC (rev 56148)
+++ trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl 2020-08-21 21:01:17 UTC (rev 56149)
@@ -1,236 +1,487 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
- if 0;
+#!/usr/bin/env perl
+use v5.26;
-use strict; # to be sure, that all is safe ... :-)
-use v5.18;
-# $Id: pst2pdf.pl 119 2014-09-24 12:04:09Z herbert $
-# v. 0.18 2017-10-04 simplify the use of PSTricks with pdf
-# (c) Herbert Voss <hvoss at tug.org>
-# Pablo González Luengo <pablgonz at yahoo.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
-# 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
-#
-use re 'eval';
-use File::Path; # creating/removing dirs
-use File::Copy; # copying files
-use File::Basename; # scan argument
-use IO::File; # simple IO operation
-use Getopt::Long qw(:config bundling_override); # read parameter and activate "bundling"
-use autodie; # more safe
+############################# LICENCE ##################################
+# $Id: pst2pdf.pl 119 2014-09-24 12:04:09Z herbert $ #
+# v0.19 2020-08-16 simplify the use of PSTricks with pdf #
+# (c) Herbert Voss <hvoss at tug.org> #
+# Pablo González L <pablgonz at yahoo.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 3 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. #
+########################################################################
+
+use Getopt::Long qw(:config bundling_override no_ignore_case); # require_order
+use File::Spec::Functions qw(catfile devnull);
+use File::Basename;
+use Archive::Tar;
+use Data::Dumper;
+use FileHandle;
+use IO::Compress::Zip qw(:all);
+use File::Path qw(remove_tree);
+use File::Temp qw(tempdir);
+use POSIX qw(strftime);
+use File::Copy;
+use File::Find;
+use Env qw(PATH);
+use autodie;
use Config;
-use File::Spec;
-use File::Find;
+use Cwd;
+use if $^O eq 'MSWin32', 'Win32';
+use if $^O eq 'MSWin32', 'Win32::Console::ANSI'; # need for color :)
+use Term::ANSIColor;
-#----------------------- User part begin ------------------------
-my $tempDir = "."; # temporary directory
-my $imageDir = "images"; # where to save the images
-my $margins = "1"; # margins in pdfcrop
-my $Verbose = 0; # 0 or 1, logfile
-my $clear = 0; # 0 or 1, clears all temporary files
-my $DPI = 300; # very low value for the png's
-my $noImages = 0; # 1->no create images
-my $nopreview = 0; # 1->create images in nopreview mode
-my $runBibTeX = 0; # 1->runs bibtex
-my $runBiber = 0; # 1->runs biber and sets $runBibTeX=0
-my $jpg = 0; # 1->create .jpg files
-my $png = 0; # 1->create .png files
-my $ppm = 0; # 1->create .ppm files
-my $eps = 0; # 1->create .eps files
-my $svg = 0; # 1->create .svg files
-my $all = 0; # 1->create all images and files for type
-my $xetex = 0; # 1->Using (Xe)LaTeX for compilation.
-my $exacount = 1; # Counter for PSTexample
-my $noSource = 0; # Delete TeX source for images
-my $other = "other"; # search other verbatim environment
-#------------------------- User part end -------------------------------
+### Internal vars
+my $tempDir = tempdir( CLEANUP => 1); # temporary directory
+my $workdir = cwd; # current working dir
+my $imgdir = 'images'; # where to save the images
+my $margins = '1'; # margins in pdfcrop
+my $clear = 0; # 0 or 1, clears all temporary files
+my $dpi = '300'; # very low value for the png's
+my $runs = '1'; # set runs for compliler
+my $nocorp = 0; # 1->no crop pdf files created
+my $norun = 0; # 1->no create images
+my $noprew = 0; # 1->create images in nopreview mode
+my $runbibtex = 0; # 1->runs bibtex
+my $runbiber = 0; # 1->runs biber and sets $runbibtex=0
+my $all = 0; # 1->create all images and files for type
+my $xetex = 0; # 1->Using (Xe)LaTeX for compilation.
+my $luatex = 0; # 1->Using dvilualatex for compilation.
+my $latexmk = 0; # 1->Using latexmk for compiler output file.
+my $arara; # 1->Using arara for compiler output file.
+my $nosource = 0; # Delete TeX source for images
+my $srcenv; # write only source code of environments
+my $nopdf; # Don't create a pdf image files
+my $force; # try to capture \psset
+my $nocrop; # Don't crop image files
+my $zip; # compress files generated in .zip
+my $tar; # compress files generated in .tar.gz
+my $help; # help info
+my $version; # version info
+my $shell; # enable -shell-escape
+my $verbose = 0; # verbose info
+my @verb_env_tmp; # store verbatim environments
+my $tmpverbenv; # save verbatim environment
+my $myverb = 'myverb' ; # internal \myverb macro
+my $write18; # storing write18 for compiler in TeXLive and MikTeX
+my $gscmd; # ghostscript executable name
+my $gray; # gray scale ghostscript
+my $log = 0; # log file
+my $PSTexa = 0; # run extract PSTexample environments
+my $STDenv = 0; # run extract pspicture/psfrag environments
+my @currentopt; # storing current options for log file
+my %opts_cmd; # hash to store options for Getopt::Long and log
-#---------------- Program identification, options and help -------------
-my $program = 'pst2pdf';
-my $nv='v0.18';
-my $ident = '$Id: pst2pdf.pl 119 2017-09-11 12:04:09Z herbert $';
-my $copyright = <<END_COPYRIGHT ;
-Copyright 2011-2017 (c) Herbert Voss <hvoss\@tug.org> and Pablo González.
+### Script identification
+my $scriptname = 'pst2pdf';
+my $nv = 'v0.19';
+my $date = '2020-08-17';
+my $ident = '$Id: pst2pdf.pl 119 2020-08-16 12:04:09Z herbert $';
+
+### Log vars
+my $LogFile = "$scriptname.log";
+my $LogWrite;
+my $LogTime = strftime("%y/%m/%d %H:%M:%S", localtime);
+
+### Error in command line
+sub errorUsage {
+ my $msg = shift;
+ die color('red').'* Error!!: '.color('reset').$msg.
+ " (run $scriptname --help for more information)\n";
+ return;
+}
+
+### Extended error messages
+sub exterr {
+ chomp(my $msg_errno = $!);
+ chomp(my $msg_extended_os_error = $^E);
+ if ($msg_errno eq $msg_extended_os_error) {
+ $msg_errno;
+ }
+ else {
+ "$msg_errno/$msg_extended_os_error";
+ }
+}
+
+### Funtion uniq
+sub uniq {
+ my %seen;
+ return grep !$seen{$_}++, @_;
+}
+
+### Funtion array_minus
+sub array_minus(\@\@) {
+ my %e = map{ $_ => undef } @{$_[1]};
+ return grep !exists $e{$_}, @{$_[0]};
+}
+
+### Funtion to create hash begin -> BEGIN, end -> END
+sub crearhash {
+ my %cambios;
+ for my $aentra(@_){
+ for my $initend (qw(begin end)) {
+ $cambios{"\\$initend\{$aentra"} = "\\\U$initend\E\{$aentra";
+ }
+ }
+ return %cambios;
+}
+
+### Print colored info in screen
+sub Infocolor {
+ my $type = shift;
+ my $info = shift;
+ if ($type eq 'Running') {
+ print color('cyan'), '* ', color('reset'), color('green'),
+ "$type: ", color('reset'), color('cyan'), "$info\r\n", color('reset');
+ }
+ if ($type eq 'Warning') {
+ print color('bold red'), "* $type: ", color('reset'),
+ color('yellow'), "$info\r\n", color('reset');
+ }
+ if ($type eq 'Finish') {
+ print color('cyan'), '* ', color('reset'), color('magenta'),
+ "$type!: ", color('reset'), color('green'), "$info\r\n",color('reset');
+ }
+ return;
+}
+
+### Write Log line and print msg (common)
+sub Infoline {
+ my $msg = shift;
+ my $now = strftime("%y/%m/%d %H:%M:%S", localtime);
+ if ($log) { $LogWrite->print(sprintf "[%s] * %s\n", $now, $msg); }
+ say $msg;
+ return;
+}
+
+### Write Log line (no print msg and time stamp)
+sub Logline {
+ my $msg = shift;
+ if ($log) { $LogWrite->print("$msg\n"); }
+ return;
+}
+
+### Write Log line (time stamp)
+sub Log {
+ my $msg = shift;
+ my $now = strftime("%y/%m/%d %H:%M:%S", localtime);
+ if ($log) { $LogWrite->print(sprintf "[%s] * %s\n", $now, $msg); }
+ return;
+}
+
+### Write array env in Log
+sub Logarray {
+ my ($env_ref) = @_;
+ my @env_tmp = @{ $env_ref }; # dereferencing and copying each array
+ if ($log) {
+ if (@env_tmp) {
+ my $tmp = join "\n", map { qq/* $_/ } @env_tmp;
+ print {$LogWrite} "$tmp\n";
+ }
+ else {
+ print {$LogWrite} "Not found\n";
+ }
+ }
+ return;
+}
+
+### Extended print info for execute system commands using $ command
+sub Logrun {
+ my $msg = shift;
+ my $now = strftime("%y/%m/%d %H:%M:%S", localtime);
+ if ($log) { $LogWrite->print(sprintf "[%s] \$ %s\n", $now, $msg); }
+ return;
+}
+
+### Capture and execute system commands
+sub RUNOSCMD {
+ my $cmdname = shift;
+ my $argcmd = shift;
+ my $showmsg = shift;
+ my $captured = "$cmdname $argcmd";
+ Logrun($captured);
+ if ($showmsg eq 'show') {
+ if ($verbose) {
+ Infocolor('Running', $captured);
+ }
+ else{ Infocolor('Running', $cmdname); }
+ }
+ if ($showmsg eq 'only' and $verbose) {
+ Infocolor('Running', $captured);
+ }
+ # Run system system command
+ $captured = qx{$captured};
+ if ($log) { $LogWrite->print($captured); }
+ if ($? == -1) {
+ my $errorlog = "* Error!!: ".$cmdname." failed to execute (%s)!\n";
+ my $errorprint = "* Error!!: ".color('reset').$cmdname." failed to execute (%s)!\n";
+ if ($log) { $LogWrite->print(sprintf $errorlog, exterr); }
+ print STDERR color('red');
+ die sprintf $errorprint, exterr;
+ } elsif ($? & 127) {
+ my $errorlog = "* Error!!: ".$cmdname." died with signal %d!\n";
+ my $errorprint = "* Error!!: ".color('reset').$cmdname." died with signal %d!\n";
+ if ($log) { $LogWrite->print(sprintf $errorlog, ($? & 127)); }
+ print STDERR color('red');
+ die sprintf $errorprint, ($? & 127);
+ } elsif ($? != 0 ) {
+ my $errorlog = "* Error!!: ".$cmdname." exited with error code %d!\n";
+ my $errorprint = "* Error!!: ".color('reset').$cmdname." exited with error code %d!\n";
+ if ($log) { $LogWrite->print(sprintf $errorlog, $? >> 8); }
+ print STDERR color('red');
+ die sprintf $errorprint, $? >> 8;
+ }
+ if ($verbose) { print $captured; }
+ return;
+}
+
+### General information
+my $copyright = <<"END_COPYRIGHT" ;
+[$date] (c) Herbert Voss <hvoss\@tug.org> and Pablo González L <pablgonz\@yahoo.com>.
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.
-
-END_LICENSE
-my $version= <<END_VERSION ;
-${program} ${nv} ${ident}
+
+my $versiontxt= <<"END_VERSION" ;
+${scriptname} ${nv} ${ident}
${copyright}
END_VERSION
-my $title = "$program $nv $ident\n";
+
+### Standart info in terminal
+my $title = "$scriptname $nv - Running a PSTricks document with (pdf/xe/lua)latex [HV \& PG]\n";
+
+### Usage of script
+sub usage {
+find_ghostscript();
+
my $usage = <<"END_OF_USAGE";
-${title}Usage: $program <texfile.tex> [Options]
-pst2pdf run a TeX source, read all PS-related part and convert in images
- in pdf,eps,jpg or png format (default pdf) and create new file
- whitout pst-environment and runs (pdf/Xe)latex.
- See pst2pdf documentation for more info.
+${title}
+ pst2pdf is a Perl script which isolates all PostScript or PSTricks related
+ parts of the TeX document, read all postscript, pspicture, psgraph and
+ PSTexample environments, extract source code in standalone files and
+ converting them into image format. Create new file with all extracted
+ environments converted to \\includegraphics and runs (pdf/xe/lua)latex.
+
+Usage: $scriptname [<options>] <texfile>[.tex|.ltx]
+ $scriptname <texfile>[.tex|.ltx] [options]
+
+ If used without [<options>] the extracted environments are saved in
+ standalone files and converted to pdf image format in the "./images"
+ directory using "latex>dvips>ps2pdf" and "preview" package to process
+ <texfile> and "pdflatex" for compiler <texfile-pdf>.
+
Options:
- -h,--help - display this help and exit
- -l,--license - display license information and exit
- -v,--version - display version (current $nv) and exit
- -d,--dpi=<int> - the dots per inch for images (default 300)
- -j,--jpg - create .jpg files (need Ghostscript)
- -p,--png - create .png files (need Ghostscript)
- -e,--eps - create .eps files (need pdftops)
- -s,--svg - create .svg files (need pdf2svg)
- -P,--ppm - create .ppm files (need pdftoppm)
- -a,--all - create .(pdf,eps,jpg,png,ppm,svg) images
- -c,--clear - delete all temp and aux files
- -x,--xetex - using (Xe)LaTeX for create images
- -m,--margins=<int> - margins for pdfcrop (in bp) (default 1)
- -ni,--noimages - generate file-pdf.tex, but not images
- -np,--single - create images files whitout preview and Ghostscript
- -ns,--nosource - delete all source(.tex) for images files
- --imgdir=<string> - the folder for the created images (default images)
- --ignore=<string> - skip other verbatim environment (default other)
- --bibtex - run bibtex on the aux file, if exists
- --biber - run biber on the bcf file, if exists
- --Verbose - creates a long log file (.plog)
-
-Examples:
-* $program test.tex -e -p -j -c --imgdir=pics
-* produce test-pdf.tex whitout pstriks related parts and create image
-* dir whit all images (pdf,eps,png,jpg) and source (.tex) for all pst
-* environment in "pics" dir using Ghostscript and cleaning all tmp files.
-* suport bundling for short options $program test.tex -epjc --imgdir=pics
+ [default]
+ -l, --log Write .log file with debug information [off]
+ -h, --help Display command line help and exit [off]
+ -v, --version Display current version ($nv) and exit [off]
+ -V, --verbose Verbose printing information [off]
+ -t, --tif Create .tif files using ghostscript [$gscmd]
+ -b, --bmp Create .bmp files using ghostscript [$gscmd]
+ -j, --jpg Create .jpg files using ghostscript [$gscmd]
+ -p, --png Create .png files using ghostscript [$gscmd]
+ -e, --eps Create .eps files using poppler-utils [pdftops]
+ -s, --svg Create .svg files using poppler-utils [pdftocairo]
+ -P, --ppm Create .ppm files using poppler-utils [pdftoppm]
+ -g, --gray Gray scale for images using ghostscript [off]
+ -f, --force Try to capture \\psset{...} to extract [off]
+ -x, --xetex Using xelatex for compiler input and output [off]
+ -ns,--nosource Do not create standalone files [off]
+ -np, --noprew, --single
+ Create images files without preview package [off]
+ -ni,--norun, --noimages
+ Generate file-pdf.tex, but not images [off]
+ -d <integer>, --dpi <integer>
+ Dots per inch resolution for images [150]
+ -r <integer>, --runs <integer>
+ Set the number of times the compiler will
+ run on the input file for extraction [1]
+ -m <integer>, --margins <integer>
+ Set margins in bp for pdfcrop [0]
+ --myverb <macro> Add "\\macroname" to verbatim inline search [myverb]
+ --ignore <environment>
+ Add "environment" to verbatim environments [empty]
+ --srcenv Create files with only code environment [off]
+ --shell Enable \\write18\{SHELL COMMAND\} [off]
+ --nopdf Do not create images in pdf format [off]
+ --nocrop Does not run pdfcrop [off]
+ --imgdir <dirname> Set name of directory to save images/files [images]
+ --luatex Using dvilualatex>dvips>ps2pdf for compiler
+ input and lualatex for compiler output file [off]
+ --arara Use arara for compiler output file [off]
+ --latexmk Using latexmk for compiler output file [off]
+ --zip Compress generated files in .zip format [off]
+ --tar Compress generated files in .tar.gz format [off]
+ --bibtex Run bibtex on the .aux file (if exists) [off]
+ --biber Run biber on the .bcf file (if exists) [off]
+
+Example:
+\$ $scriptname -e -p --imgdir pics test.tex
+* Create a ./pics directory (if it doesn't exist) with all extracted
+* environments converted to individual files (.pdf, .eps, .png, .tex),
+* a file test-fig-all.tex with all extracted environments and the file
+* test-pdf.tex with all environments converted to \\includegraphics using
+* latex>dvips>ps2pdf and preview package for <test.tex> and pdflatex
+* for <test-pdf.tex>.
+
+See texdoc pst2pdf for full documentation.
END_OF_USAGE
-#
+print $usage;
+exit 0;
+}
+
+### Options in terminal
my $result=GetOptions (
- 'h|help' => \$::opt_help,
- 'v|version' => \$::opt_version,
- 'l|license' => \$::opt_license,
- 'd|dpi=i' => \$DPI,# numeric
- 'm|margins=i' => \$margins,# numeric
- 'imgdir=s' => \$imageDir, # string
- 'ignore=s' => \$other, # string
- 'c|clear' => \$clear, # flag
- 'ni|noimages' => \$noImages, # flag
- 'np|single' => \$nopreview, # flag
- 'bibtex' => \$runBibTeX,# flag
- 'e|eps' => \$eps, # flag
- 'j|jpg' => \$jpg, # flag
- 'p|png' => \$png, # flag
- 'P|ppm' => \$ppm, # flag
- 's|svg' => \$svg, # flag
- 'a|all' => \$all, # flag
- 'x|xetex' => \$xetex, # flag
- 'biber' => \$runBiber, # flag
- 'ns|nosource' => \$noSource, # flag
- 'Verbose' => \$Verbose,
-) or die $usage;
-#------------------------ Help functions --------------------------
-sub errorUsage {
- die "Error: @_ (try --help for more information)\n";
- }
+ 'h|help' => \$help, # flag
+ 'v|version' => \$version, # flag
+ 'l|log' => \$log, # flag
+ 'f|force' => \$force, # flag
+ 'd|dpi=i' => \$dpi, # numeric
+ 'runs=i' => \$runs, # numeric
+ 'm|margins=i' => \$margins, # numeric
+ 'imgdir=s' => \$imgdir, # string
+ 'myverb=s' => \$myverb, # string
+ 'ignore=s' => \$tmpverbenv, # string
+ 'c|clear' => \$clear, # flag
+ 'ni|norun|noimages' => \$norun, # flag
+ 'np|noprew|single' => \$noprew, # flag
+ 'bibtex' => \$runbibtex,# flag
+ 'biber' => \$runbiber, # flag
+ 'arara' => \$arara, # flag
+ 'latexmk' => \$latexmk, # flag
+ 'srcenv' => \$srcenv, # flag
+ 'nopdf' => \$nopdf, # flag
+ 'shell' => \$shell, # flag
+ 'nocrop' => \$nocrop, # flag
+ 'zip' => \$zip, # flag
+ 'tar' => \$tar, # flag
+ 'g|gray' => \$gray, # flag
+ 'b|bmp' => \$opts_cmd{image}{bmp}, # gs
+ 't|tif' => \$opts_cmd{image}{tif}, # gs
+ 'j|jpg' => \$opts_cmd{image}{jpg}, # gs
+ 'p|png' => \$opts_cmd{image}{png}, # gs
+ 's|svg' => \$opts_cmd{image}{svg}, # pdftocairo
+ 'e|eps' => \$opts_cmd{image}{eps}, # pdftops
+ 'P|ppm' => \$opts_cmd{image}{ppm}, # pdftoppm
+ 'a|all' => \$all, # flag
+ 'x|xetex' => \$xetex, # flag
+ 'luatex' => \$luatex, # flag
+ 'ns|nosource' => \$nosource, # flag
+ 'V|Verbose' => \$verbose, # flag
+) or do { $log = 0 ; die usage(0); };
-# options for command line
-if ($::opt_help) {
-print $usage;
- exit (0);
+### Open pst2pdf.log file
+if ($log) {
+ if (!defined $ARGV[0]) { errorUsage('Input filename missing'); }
+ my $tempname = $ARGV[0];
+ $tempname =~ s/\.(tex|ltx)$//;
+ if ($LogFile eq "$tempname.log") { $LogFile = "$scriptname-log.log"; }
+ $LogWrite = FileHandle->new("> $LogFile");
}
-if ($::opt_license) {
- print $title;
- print "$copyright\n";
- print $licensetxt;
- exit (0);
+
+### Init pst2pdf.log file
+Log("The script $scriptname $nv was started in $workdir");
+Log("Creating the temporary directory $tempDir");
+
+### Check --arara and --latexmk
+if ($arara && $latexmk) {
+ Log('Error!!: Options --arara and --latexmk are mutually exclusive');
+ errorUsage('Options --arara and --latexmk are mutually exclusive');
}
-if ($::opt_version) {
-print $version;
- exit (0);
+
+### Check --biber and --bibtex
+if ($runbiber && $runbibtex) {
+ Log('Error!!: Options --biber and --bibtex are mutually exclusive');
+ errorUsage('Options --biber and --bibtex are mutually exclusive');
}
-# open file
-my $InputFilename = "";
- @ARGV > 0 or errorUsage "Input filename missing";
- @ARGV < 2 or errorUsage "Unknown option or too many input files";
- $InputFilename = $ARGV[0];
+### Check --runs
+if( $runs <= 0 or $runs >= 3) {
+ Log('Error!!: Invalid argument for --runs, argument out of range');
+ errorUsage('Invalid argument for --runs option');
+}
-#------------------------ Arreglo de la extensión ----------------------
-my @SuffixList = ('.tex', '', '.ltx'); # posible extensión
-my ($name, $path, $ext) = fileparse($ARGV[0], @SuffixList);
-$ext = '.tex' if not $ext;
+### Check --dpi
+if( $dpi <= 0 or $dpi >= 2500) {
+ Log('Error!!: Invalid argument for --dpi, argument out of range');
+ errorUsage('Invalid argument for --dpi option');
+}
-#--------------------- Directorio destino de imágenes ------------------
--e $imageDir or mkdir($imageDir,0744) or die "No puedo crear $imageDir: $!\n";
+### Validate --myverb
+if ($myverb =~ /^(?:\\|\-).+?/) {
+ Log('Error!!: Invalid argument for --myverb option, argument begin with \ or -');
+ errorUsage('Invalid argument for --myverb');
+}
-# expresion regular para swpl
-my $graphics = "graphic=\{\[scale=1\]$imageDir/$name-exa";
+### Validate --ignore
+if ($tmpverbenv =~ /^(?:\\|\-).+?/) {
+ Log('Error!!: Invalid argument for --ignore option, argument begin with \ or -');
+ errorUsage('Invalid argument for --ignore');
+}
-# directorio en el cual están las imágenes
-my $dir = "$tempDir/$imageDir";
+### If $tmpverbenv is valid pass to @verb_env_tmp
+if ($tmpverbenv) { @verb_env_tmp = $tmpverbenv; }
-# archivo de entrada para el resto del script
-my $TeXfile = "$tempDir/$name-tmp$ext";
+### Make ENV safer, see perldoc perlsec
+delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
-
-#----------------------------- Search GS ------------------------------
-# The next code its part of pdfcrop from TexLive 2014
-# Windows detection
+### The next code it's part of pdfcrop (adapted from TexLive 2014)
+# Windows detection
my $Win = 0;
-$Win = 1 if $^O =~ /mswin32/i;
-$Win = 1 if $^O =~ /cygwin/i;
+if ($^O =~ /mswin32/i) { $Win = 1; }
my $archname = $Config{'archname'};
$archname = 'unknown' unless defined $Config{'archname'};
-# get Ghostscript command name
-$::opt_gscmd = '';
+# Get ghostscript command name
sub find_ghostscript () {
- return if $::opt_gscmd;
- if ($Verbose) {
- print "* Perl executable: $^X\n";
+ if ($log) {
+ Log('General information about the Perl instalation and operating system');
+ print {$LogWrite} "* Perl executable: $^X\n";
if ($] < 5.006) {
- print "* Perl version: $]\n";
+ print {$LogWrite} "* Perl version: $]\n";
}
else {
- printf "* Perl version: v%vd\n", $^V;
+ printf {$LogWrite} "* Perl version: v%vd\n", $^V;
}
if (defined &ActivePerl::BUILD) {
- printf "* Perl product: ActivePerl, build %s\n", ActivePerl::BUILD();
+ printf {$LogWrite} "* Perl product: ActivePerl, build %s\n", ActivePerl::BUILD();
}
- printf "* Pointer size: $Config{'ptrsize'}\n";
- printf "* Pipe support: %s\n",
- (defined($Config{'d_pipe'}) ? 'yes' : 'no');
- printf "* Fork support: %s\n",
- (defined($Config{'d_fork'}) ? 'yes' : 'no');
+ printf {$LogWrite} "* Pointer size: $Config{'ptrsize'}\n";
+ printf {$LogWrite} "* Pipe support: %s\n",
+ (defined $Config{'d_pipe'} ? 'yes' : 'no');
+ printf {$LogWrite} "* Fork support: %s\n",
+ (defined $Config{'d_fork'} ? 'yes' : 'no');
}
my $system = 'unix';
- $system = "dos" if $^O =~ /dos/i;
- $system = "os2" if $^O =~ /os2/i;
- $system = "win" if $^O =~ /mswin32/i;
- $system = "cygwin" if $^O =~ /cygwin/i;
- $system = "miktex" if defined($ENV{"TEXSYSTEM"}) and
- $ENV{"TEXSYSTEM"} =~ /miktex/i;
- print "* OS name: $^O\n" if $Verbose;
- print "* Arch name: $archname\n" if $Verbose;
- print "* System: $system\n" if $Verbose;
+ $system = 'win' if $^O =~ /mswin32/i;
+ $system = 'msys' if $^O =~ /msys/i;
+ $system = 'cygwin' if $^O =~ /cygwin/i;
+ $system = 'miktex' if defined $ENV{'TEXSYSTEM'} and
+ $ENV{'TEXSYSTEM'} =~ /miktex/i;
+ if ($log) {
+ print {$LogWrite} "* OS name: $^O\n";
+ print {$LogWrite} "* Arch name: $archname\n";
+ if ($^O eq 'MSWin32') {
+ my $tmp = Win32::GetOSName();
+ print {$LogWrite} "* System: $tmp\n";
+ }
+ else { print {$LogWrite} "* System: $system\n"; }
+ }
+ Log('Trying to locate the executable for Ghostscript');
my %candidates = (
- 'unix' => [qw|gs gsc|],
- 'dos' => [qw|gs386 gs|],
- 'os2' => [qw|gsos2 gs|],
- 'win' => [qw|gswin32c gs|],
- 'cygwin' => [qw|gs gswin32c|],
- 'miktex' => [qw|mgs gswin32c gs|]
+ 'unix' => [qw|gs|],
+ 'win' => [qw|gswin32c|],
+ 'msys' => [qw|gswin64c gswin32c|],
+ 'cygwin' => [qw|gs|],
+ 'miktex' => [qw|mgs gswin32c|],
);
- if ($system eq 'win' or $system eq 'cygwin' or $system eq 'miktex') {
+ if ($system eq 'win' or $system eq 'miktex') {
if ($archname =~ /mswin32-x64/i) {
my @a = ();
foreach my $name (@{$candidates{$system}}) {
@@ -241,12 +492,11 @@
}
}
my %exe = (
- 'unix' => '',
- 'dos' => '.exe',
- 'os2' => '.exe',
- 'win' => '.exe',
+ 'unix' => q{},
+ 'win' => '.exe',
+ 'msys' => '.exe',
'cygwin' => '.exe',
- 'miktex' => '.exe'
+ 'miktex' => '.exe',
);
my $candidates_ref = $candidates{$system};
my $exe = $Config{'_exe'};
@@ -257,65 +507,70 @@
foreach my $dir (@path) {
my $file = File::Spec->catfile($dir, "$candidate$exe");
if (-x $file) {
- $::opt_gscmd = $candidate;
+ $gscmd = $candidate;
$found = 1;
- print "* Found ($candidate): $file\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Found ($candidate): $file\n"; }
last;
}
- print "* Not found ($candidate): $file\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Not found ($candidate): $file\n"; }
}
last if $found;
}
- if (not $found and $Win) {
+ if (not $found and $Win and $system ne 'msys') {
$found = SearchRegistry();
}
+ if (not $found and $system eq 'msys') {
+ $found = Searchbyregquery();
+ }
if ($found) {
- print "* Autodetected ghostscript command: $::opt_gscmd\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Autodetected ghostscript command: $gscmd\n"; }
}
else {
- $::opt_gscmd = $$candidates_ref[0];
- print "* Default ghostscript command: $::opt_gscmd\n" if $Verbose;
+ $gscmd = $$candidates_ref[0];
+ if ($log) { print {$LogWrite} "* Default ghostscript command: $gscmd\n"; }
}
}
-sub SearchRegistry () {
+sub SearchRegistry {
my $found = 0;
- eval 'use Win32::TieRegistry qw|KEY_READ REG_SZ|;';
+ # The module Win32::TieRegistry not aviable in cygwin/msys
+ eval 'use Win32::TieRegistry qw|KEY_READ REG_SZ|';
if ($@) {
- if ($Verbose) {
- print "* Registry lookup for Ghostscript failed:\n";
+ if ($log) {
+ print {$LogWrite} "* Registry lookup for Ghostscript failed:\n";
my $msg = $@;
$msg =~ s/\s+$//;
foreach (split /\r?\n/, $msg) {
- print " $_\n";
+ print {$LogWrite} " $_\n";
}
}
return $found;
}
- my $open_params = {Access => KEY_READ(), Delimiter => '/'};
+ my $open_params = {Access => KEY_READ(), Delimiter => q{/}};
my $key_name_software = 'HKEY_LOCAL_MACHINE/SOFTWARE/';
my $current_key = $key_name_software;
my $software = new Win32::TieRegistry $current_key, $open_params;
if (not $software) {
- print "* Cannot find or access registry key `$current_key'!\n"
- if $::opt_verbose;
+ if ($log) {
+ print {$LogWrite} "* Cannot find or access registry key `$current_key'!\n";
+ }
return $found;
}
- print "* Search registry at `$current_key'.\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Search registry at `$current_key'.\n"; }
my %list;
foreach my $key_name_gs (grep /Ghostscript/i, $software->SubKeyNames()) {
$current_key = "$key_name_software$key_name_gs/";
- print "* Registry entry found: $current_key\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Registry entry found: $current_key\n"; }
my $key_gs = $software->Open($key_name_gs, $open_params);
if (not $key_gs) {
- print "* Cannot open registry key `$current_key'!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Cannot open registry key `$current_key'!\n"; }
next;
}
foreach my $key_name_version ($key_gs->SubKeyNames()) {
$current_key = "$key_name_software$key_name_gs/$key_name_version/";
- print "* Registry entry found: $current_key\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Registry entry found: $current_key\n"; }
if (not $key_name_version =~ /^(\d+)\.(\d+)$/) {
- print " The sub key is not a version number!\n" if $Verbose;
+ if ($log) { print {$LogWrite} " The sub key is not a version number!\n"; }
next;
}
my $version_main = $1;
@@ -323,13 +578,13 @@
$current_key = "$key_name_software$key_name_gs/$key_name_version/";
my $key_version = $key_gs->Open($key_name_version, $open_params);
if (not $key_version) {
- print "* Cannot open registry key `$current_key'!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "* Cannot open registry key `$current_key'!\n"; }
next;
}
$key_version->FixSzNulls(1);
my ($value, $type) = $key_version->GetValue('GS_DLL');
if ($value and $type == REG_SZ()) {
- print " GS_DLL = $value\n" if $Verbose;
+ if ($log) { print {$LogWrite} " GS_DLL = $value\n"; }
$value =~ s|([\\/])([^\\/]+\.dll)$|$1gswin32c.exe|i;
my $value64 = $value;
$value64 =~ s/gswin32c\.exe$/gswin64c.exe/;
@@ -337,10 +592,10 @@
$value = $value64;
}
if (-f $value) {
- print " EXE found: $value\n" if $Verbose;
+ if ($log) { print {$LogWrite} "EXE found: $value\n"; }
}
else {
- print " EXE not found!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "EXE not found!\n"; }
next;
}
my $sortkey = sprintf '%02d.%03d %s',
@@ -348,961 +603,1679 @@
$list{$sortkey} = $value;
}
else {
- print " Missing key `GS_DLL' with type `REG_SZ'!\n" if $Verbose;
+ if ($log) { print {$LogWrite} "Missing key `GS_DLL' with type `REG_SZ'!\n"; }
}
}
}
foreach my $entry (reverse sort keys %list) {
- $::opt_gscmd = $list{$entry};
- print "* Found (via registry): $::opt_gscmd\n" if $Verbose;
+ $gscmd = $list{$entry};
+ if ($log) { print {$LogWrite} "* Found (via registry): $gscmd\n"; }
$found = 1;
last;
}
return $found;
+} # end GS search registry
+
+### This part is only necessary if you're using Git on windows and don't
+### have gs configured in PATH. Git for windows don't have a Win32::TieRegistry
+### module for perl (is not supported in the current versions of msys).
+sub Searchbyregquery {
+ my $found = 0;
+ my $gs_regkey;
+ my $opt_reg = '//s //v';
+ if ($log) { print {$LogWrite} "* Search Ghostscript in Windows registry under mingw/msys:\n";}
+ $gs_regkey = qx{reg query "HKLM\\Software\\GPL Ghostscript" $opt_reg GS_DLL};
+ if ($? == 0) {
+ if ($log) { print {$LogWrite} "* Registry entry found for GS_DLL (64 bits version)\n";}
+ }
+ else {
+ $gs_regkey = qx{reg query "HKLM\\Software\\Wow6432Node\\GPL Ghostscript" $opt_reg GS_DLL};
+ if ($? == 0) {
+ if ($log) { print {$LogWrite} "* Registry entry found for GS_DLL (32 bits version)\n";}
+ }
+ }
+ my ($gs_find) = $gs_regkey =~ m/(?:\s* GS_DLL \s* REG_SZ \s*) (.+?)(?:\.dll.+?\R)/s;
+ if ($gs_find) {
+ my ($gs_vol, $gs_path, $gs_ver) = $gs_find =~ m/
+ (\w{1})(?:\:) # volumen
+ (.+?) # path to executable
+ (?:\\gsdll) # LIB
+ (\d{2}) # Version
+ /xs;
+ # Adjust
+ $gs_vol = lc($gs_vol);
+ $gs_path = '/'.$gs_vol.$gs_path;
+ $gs_path =~ s|\\|/|gmsxi;
+ # Add to PATH
+ if ($log) { print {$LogWrite} "* Add $gs_path to PATH for current session\n"; }
+ $PATH .= ":$gs_path";
+ # Set executable
+ $gscmd = 'gswin'.$gs_ver.'c';
+ if ($log) { print {$LogWrite} "* Found (via reg query): $gscmd\n"; }
+ $found = 1;
+ }
+ if ($@) {
+ if ($log) {
+ print {$LogWrite} "* Registry lookup for Ghostscript by reg query failed:\n";
+ my $msg = $@;
+ $msg =~ s/\s+$//;
+ foreach (split /\r?\n/, $msg) {
+ print {$LogWrite} " $_\n";
+ }
+ }
+ return $found;
+ }
+ return $found;
}
+### Call GS
find_ghostscript();
-if ($Win and $::opt_gscmd =~ /\s/) {
- $::opt_gscmd = "\"$::opt_gscmd\"";
+### Windows need suport space in path
+if ($Win and $gscmd =~ /\s/) { $gscmd = "\"$gscmd\"";}
+
+### Help
+if (defined $help) {
+ usage(1);
+ exit 0;
}
-# end GS search
-open my $LOGfile,'>', "$tempDir/$name.plog"; # our own log file
- LOG ("Parameters:");
- LOG ("==> imageDir = $imageDir");
- LOG ("==> dpi = $DPI");
- LOG ("==> tempDir = $tempDir");
- LOG ("==> Verbose = $Verbose");
- LOG ("==> clear = $clear");
- LOG ("==> noImages = $noImages");
- LOG ("==> noSource = $noSource");
- LOG ("==> nopreview = $nopreview");
- LOG ("==> runBibTeX = $runBibTeX");
- LOG ("==> runBiber = $runBiber");
- LOG ("==> ppm = $ppm");
- LOG ("==> eps = $eps");
- LOG ("==> jpg = $jpg");
- LOG ("==> png = $png");
- LOG ("==> svg = $svg");
- LOG ("==> xetex = $xetex");
+### Version
+if (defined $version) {
+ print $versiontxt;
+ exit 0;
+}
-if ($runBibTeX && $runBiber) {
- LOG ("!!! you cannot run BibTeX and Biber at the same document ...");
- LOG ("!!! Assuming to run Biber");
- $runBibTeX = 0;
+### Set temp internal vars for <name-fig-tmp> and extraction
+my $tmp = int(rand(10000));
+my $dtxverb = "verbatim$tmp";
+my $wrapping = "$scriptname$tmp"; # wraped for environment extraction
+
+Log("Set up the environment [$wrapping] to encapsulate the extraction");
+
+### Set vars for match/regex
+my $BP = "\\\\begin\{$wrapping\}";
+my $EP = "\\\\end\{$wrapping\}";
+my $BE = '\\\\begin\{PSTexample\}';
+my $EE = '\\\\end\{PSTexample\}';
+
+### Define key = pdf for image format
+if (!$nopdf) {
+ $opts_cmd{image}{pdf} = 1;
}
-if ($ppm) {
- LOG ("Generate .ppm files ...");
- $ppm = 1;
+
+### Store image formats in hash
+my $format = join q{, },grep { defined $opts_cmd{image}{$_} } keys %{$opts_cmd{image}};
+if (!$norun) {
+ Log("Defined image formats for creating: $format");
}
-if ($eps) {
- LOG ("Generate .eps files ...");
- $eps = 1;
+
+### Check <input file> from command line
+ at ARGV > 0 or errorUsage('Input filename missing');
+ at ARGV < 2 or errorUsage('Unknown option or too many input files');
+
+### Check <input file> extention
+my @SuffixList = ('.tex', '', '.ltx'); # posibles
+my ($name, $path, $ext) = fileparse($ARGV[0], @SuffixList);
+$ext = '.tex' if not $ext;
+
+### Read <input file> in memory
+Log("Read input file $name$ext in memory");
+open my $inputfile, '<:crlf', "$name$ext";
+ my $ltxfile;
+ {
+ local $/;
+ $ltxfile = <$inputfile>;
+ }
+close $inputfile;
+
+### Identification message in terminal
+print $title;
+
+### Default environment to extract
+my @extractenv = qw (
+ postscript pspicture psgraph PSTexample
+ );
+
+### Default verbatim environment
+my @iverb_env = qw (
+ Example CenterExample SideBySideExample PCenterExample PSideBySideExample
+ verbatim Verbatim BVerbatim LVerbatim SaveVerbatim PSTcode
+ LTXexample tcblisting spverbatim minted listing lstlisting
+ alltt comment chklisting verbatimtab listingcont boxedverbatim
+ demo sourcecode xcomment pygmented pyglist program programl
+ programL programs programf programsc programt
+ );
+push @verb_env_tmp, @iverb_env;
+
+### Default verbatim write environment
+my @verw_env_tmp;
+my @iverbw_env = qw (
+ scontents filecontents tcboutputlisting tcbexternal tcbwritetmp extcolorbox extikzpicture
+ VerbatimOut verbatimwrite filecontentsdef filecontentshere filecontentsdefmacro
+ filecontentsdefstarred filecontentsgdef filecontentsdefmacro filecontentsgdefmacro
+ );
+push @verw_env_tmp, @iverbw_env;
+
+########################################################################
+# One problem that can arise is the filecontents environment, this can #
+# contain a complete document and be anywhere, before dividing we will #
+# make some replacements for this and comment lines #
+########################################################################
+
+### Create a Regex for verbatim write environment
+ at verw_env_tmp = uniq(@verw_env_tmp);
+my $tmpverbw = join q{|}, map { quotemeta } sort { length $a <=> length $b } @verw_env_tmp;
+$tmpverbw = qr/$tmpverbw/x;
+my $tmp_verbw = qr {
+ (
+ (?:
+ \\begin\{$tmpverbw\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$tmpverbw\*?\})
+ (?!end\{$tmpverbw\*?\})|
+ (?-1)
+ )*
+ \\end\{$tmpverbw\*?\}
+ )
+ )
+ }x;
+
+### A pre-regex for comment lines
+my $tmpcomment = qr/^ \s* \%+ .+? $ /mx;
+
+### Hash for replace in verbatim's and comment lines
+my %document = (
+ '\begin{document}' => '\BEGIN{document}',
+ '\end{document}' => '\END{document}',
+ '\documentclass' => '\DOCUMENTCLASS',
+ '\pagestyle{' => '\PAGESTYLE{',
+ '\thispagestyle{' => '\THISPAGESTYLE{',
+ );
+
+### Changes in input file for verbatim write and comment lines
+while ($ltxfile =~ / $tmp_verbw | $tmpcomment /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ while (my($busco, $cambio) = each %document) {
+ $encontrado =~ s/\Q$busco\E/$cambio/g;
+ }
+ substr $ltxfile, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($ltxfile) = $pos_inicial + length $encontrado;
}
-if ($jpg) {
- LOG ("Generate .jpg files ...");
- $jpg = 1;
+
+### Now, split <input file>
+my ($atbegindoc, $document) = $ltxfile =~ m/\A (\s* .*? \s*) (\\documentclass.*)\z/msx;
+
+### Rules to capture for regex my $CORCHETES = qr/\[ [^]]*? \]/x;
+my $braces = qr/ (?:\{)(.+?)(?:\}) /msx;
+my $braquet = qr/ (?:\[)(.+?)(?:\]) /msx;
+my $no_corchete = qr/ (?:\[ .*? \])? /msx;
+
+### Array for capture new verbatim environments defined in input file
+my @cverb_env = qw (
+ newtcblisting DeclareTCBListing ProvideTCBListing NewTCBListing
+ lstnewenvironment NewListingEnvironment NewProgram specialcomment
+ includecomment DefineVerbatimEnvironment newverbatim newtabverbatim
+ );
+
+### Regex to capture names for new verbatim environments from input file
+my $cverbenv = join q{|}, map { quotemeta} sort { length $a <=> length $b } @cverb_env;
+$cverbenv = qr/\b(?:$cverbenv) $no_corchete $braces/msx;
+
+### Array for capture new verbatim write environments defined in input file
+my @cverb_env_w = qw (
+ renewtcbexternalizetcolorbox renewtcbexternalizeenvironment
+ newtcbexternalizeenvironment newtcbexternalizetcolorbox newenvsc
+ );
+
+### Regex to capture names for new verbatim write environments from input file
+my $cverbenvw = join q{|}, map { quotemeta} sort { length $a <=> length $b } @cverb_env_w;
+$cverbenvw = qr/\b(?:$cverbenvw) $no_corchete $braces/msx;
+
+### Regex to capture MINTED related environments
+my $mintdenv = qr/\\ newminted $braces (?:\{.+?\}) /x;
+my $mintcenv = qr/\\ newminted $braquet (?:\{.+?\}) /x;
+my $mintdshrt = qr/\\ newmint $braces (?:\{.+?\}) /x;
+my $mintcshrt = qr/\\ newmint $braquet (?:\{.+?\}) /x;
+my $mintdline = qr/\\ newmintinline $braces (?:\{.+?\}) /x;
+my $mintcline = qr/\\ newmintinline $braquet (?:\{.+?\}) /x;
+
+### Filter input file, now $ltxfile is pass to $filecheck
+Log("Filter $name$ext \(remove % and comments\)");
+my @filecheck = $ltxfile;
+s/%.*\n//mg foreach @filecheck; # del comments
+s/^\s*|\s*//mg foreach @filecheck; # del white space
+my $filecheck = join q{}, @filecheck;
+
+### Search verbatim and verbatim write environments <input file>
+Log("Search verbatim and verbatim write environments in $name$ext");
+
+### Search new verbatim write names in <input file>
+my @new_write_env = $filecheck =~ m/$cverbenvw/xg;
+if (@new_write_env) {
+ Log("Found new verbatim write environments in $name$ext");
+ Logarray(\@new_write_env);
+ push @verw_env_tmp, @new_write_env;
}
-if ($png) {
- LOG ("Generate .png files ...");
- $png = 1;
+
+### Search new verbatim environments in <input file>
+my @verb_input = $filecheck =~ m/$cverbenv/xg;
+if (@verb_input) {
+ Log("Found new verbatim environments in $name$ext");
+ Logarray(\@verb_input);
+ push @verb_env_tmp, @verb_input;
}
-if ($svg) {
- LOG ("Generate .svg files ...");
- $svg = 1;
+
+### Search \newminted{$mintdenv}{options} in <input file>, need add "code"
+my @mint_denv = $filecheck =~ m/$mintdenv/xg;
+if (@mint_denv) {
+ Log("Found \\newminted\{envname\} in $name$ext");
+ # Append "code"
+ $mintdenv = join "\n", map { qq/$_\Qcode\E/ } @mint_denv;
+ @mint_denv = split /\n/, $mintdenv;
+ Logarray(\@mint_denv);
+ push @verb_env_tmp, @mint_denv;
}
-if ($all) {
- LOG ("Generate images eps/pdf/files and clear...");
- $eps =$ppm=$jpg=$png=$svg=$clear = 1;
+
+### Search \newminted[$mintcenv]{lang} in <input file>
+my @mint_cenv = $filecheck =~ m/$mintcenv/xg;
+if (@mint_cenv) {
+ Log("Found \\newminted\[envname\] in $name$ext");
+ Logarray(\@mint_cenv);
+ push @verb_env_tmp, @mint_cenv;
}
-if ($nopreview) {
- LOG ("nopreview mode generate images files ...");
- $nopreview= 1;
+
+### Remove repetead again :)
+ at verb_env_tmp = uniq(@verb_env_tmp);
+
+### Capture verbatim inline macros in <input file>
+Log("Search verbatim macros in $name$ext");
+
+### Store all minted inline/short in @mintline
+my @mintline;
+
+### Search \newmint{$mintdshrt}{options} in <input file> (while)
+my @mint_dshrt = $filecheck =~ m/$mintdshrt/xg;
+if (@mint_dshrt) {
+ Log("Found \\newmint\{macroname\} (short) in $name$ext");
+ Logarray(\@mint_dshrt);
+ push @mintline, @mint_dshrt;
}
-if ($xetex) {
- LOG ("Compiling using XeLaTeX ...");
- $xetex=1;
+
+### Search \newmint[$mintcshrt]{lang}{options} in <input file> (while)
+my @mint_cshrt = $filecheck =~ m/$mintcshrt/xg;
+if (@mint_cshrt) {
+ Log("Found \\newmint\[macroname\] (short) in $name$ext");
+ Logarray(\@mint_cshrt);
+ push @mintline, @mint_cshrt;
}
-if ($noImages ) {
- LOG ("no create images");
- $nopreview= 0;
- }
-if ($noSource) {
- LOG ("Delete all source files");
- $noSource= 1;
- }
-#----------------------------- Parte 1 ---------------------------------
-# Comentamos los bloques PST dentro de verbatim de todo el archivo
-# Abrimos el archivo
-my $InputFilename = shift;
-my @lineas;
-{
- open my $FILE,'<:crlf',"$InputFilename";
- @lineas = <$FILE>;
- close $FILE;
+### Search \newmintinline{$mintdline}{options} in <input file> (while)
+my @mint_dline = $filecheck =~ m/$mintdline/xg;
+if (@mint_dline) {
+ Log("Found \\newmintinline\{macroname\} in $name$ext");
+ # Append "inline"
+ $mintdline = join "\n", map { qq/$_\Qinline\E/ } @mint_dline;
+ @mint_dline = split /\n/, $mintdline;
+ Logarray(\@mint_dline);
+ push @mintline, @mint_dline;
}
-# Creamos un hash con los cambios
-my %cambios = (
- '\pspicture' => '\TRICKS',
- '\endpspicture' => '\ENDTRICKS',
+### Search \newmintinline[$mintcline]{lang}{options} in <input file> (while)
+my @mint_cline = $filecheck =~ m/$mintcline/xg;
+if (@mint_cline) {
+ Log("Found \\newmintinline\[macroname\] in $name$ext");
+ Logarray(\@mint_cline);
+ push @mintline, @mint_cline;
+}
- '\begin{PSTexample' => '\begin{PSTEXAMPLE',
- '\end{PSTexample' => '\end{PSTEXAMPLE',
+### Add standart mint, mintinline and lstinline
+my @mint_tmp = qw(mint mintinline lstinline);
- '\begin{pspicture' => '\begin{TRICKS',
- '\end{pspicture' => '\end{TRICKS',
+### Join all inline verbatim macros captured
+push @mintline, @mint_tmp;
+ at mintline = uniq(@mintline);
- '\begin{postscript}' => '\begin{POSTRICKS}',
- '\end{postscript}' => '\end{POSTRICKS}',
-
- '\begin{document}' => '\begin{DOCTRICKS}',
- '\end{document}' => '\end{DOCTRICKS}'
-);
+### Create a regex using @mintline
+my $mintline = join q{|}, map { quotemeta } sort { length $a <=> length $b } @mintline;
+$mintline = qr/\b(?:$mintline)/x;
-# Definimos los entonos verbatim donde comentaremos
-my $ENTORNO = qr/(?: (v|V)erbatim\*?| LTXexample | PSTcode |$other\*? | tcblisting\*? | spverbatim | minted | lstlisting | alltt | comment\*? | xcomment)/xi;
-#
-my $DEL;
+### Reserved words in verbatim inline (while)
+my %changes_in = (
+ '%CleanPST' => '%PSTCLEAN',
+ '\psset' => '\PSSET',
+ '\pspicture' => '\TRICKS',
+ '\endpspicture' => '\ENDTRICKS',
+ '\psgraph' => '\PSGRAPHTRICKS',
+ '\endpsgraph' => '\ENDPSGRAPHTRICKS',
+ '\usepackage' => '\USEPACKAGE',
+ '{graphicx}' => '{GRAPHICX}',
+ '\graphicspath{' => '\GRAPHICSPATH{',
+ );
-my $tcbverb = qr/\\(?:tcboxverb|myverb)/;
-
-my $arg_brac = qr/(?:\[.+?\])?/;
-
-my $arg_curl = qr/\{(.+)\}/; # ATENCIÓN
+### Hash to replace \begin and \end in verbatim inline
+my %init_end = (
+ '\begin{' => '\BEGIN{',
+ '\end{' => '\END{',
+ );
-for (@lineas) {
- if (/^\\begin\{($ENTORNO)(?{ $DEL = "\Q$^N" })\}/ .. /^\\end\{$DEL\}/) {
+### Join changes in new hash (while) for verbatim inline
+my %cambios = (%changes_in,%init_end);
+
+### Variables and constantes
+my $no_del = "\0";
+my $del = $no_del;
+
+### Rules
+my $llaves = qr/\{ .+? \} /x;
+my $no_llaves = qr/(?: $llaves )? /x;
+my $corchetes = qr/\[ .+? \] /x;
+my $delimitador = qr/\{ (?<del>.+?) \} /x;
+my $scontents = qr/Scontents [*]? $no_corchete /ix;
+my $verb = qr/(?:((spv|(?:q|f)?v|V)erb|$myverb)[*]?) /ix;
+my $lst = qr/(?:(lst|pyg)inline)(?!\*) $no_corchete /ix;
+my $mint = qr/(?: $mintline |SaveVerb) (?!\*) $no_corchete $no_llaves $llaves /ix;
+my $no_mint = qr/(?: $mintline) (?!\*) $no_corchete /ix;
+my $marca = qr/\\ (?:$verb | $lst |$scontents | $mint |$no_mint) (?:\s*)? (\S) .+? \g{-1} /sx;
+my $comentario = qr/^ \s* \%+ .+? $ /mx;
+my $definedel = qr/\\ (?: DefineShortVerb | lstMakeShortInline| MakeSpecialShortVerb ) [*]? $no_corchete $delimitador /ix;
+my $indefinedel = qr/\\ (?: (Undefine|Delete)ShortVerb | lstDeleteShortInline) $llaves /ix;
+
+Log('Making changes to inline/multiline verbatim macro before extraction');
+
+### Changes in input file for verbatim inline/multiline
+while ($document =~
+ / $marca
+ | $comentario
+ | $definedel
+ | $indefinedel
+ | $del .+? $del
+ /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ if ($encontrado =~ /$definedel/) {
+ $del = $+{del};
+ $del = "\Q$+{del}" if substr($del,0,1) ne '\\';
+ }
+ elsif ($encontrado =~ /$indefinedel/) {
+ $del = $no_del;
+ }
+ else {
while (my($busco, $cambio) = each %cambios) {
- s/\Q$busco\E/$cambio/g;
+ $encontrado =~ s/\Q$busco\E/$cambio/g;
}
+ substr $document, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($document) = $pos_inicial + length $encontrado;
}
- elsif (m/$tcbverb$arg_brac$arg_curl/) {
- while (my($busco, $cambio) = each %cambios) {
- s/\Q$busco\E/$cambio/g;
- }
- } #close elsif
- }
+}
-# Escritura del resultado
-open my $SALIDA, '>', "$tempDir/$name-tmp$ext";
-print $SALIDA @lineas;
-close $SALIDA;
+### Change "escaped braces" to <LTXSB.> (this label is not the one in the document)
+$document =~ s/\\[{]/<LTXSBO>/g;
+$document =~ s/\\[}]/<LTXSBC>/g;
-#--------------------------------Parte 2--------------------------------
-# Comentamos el texto en verbatim a lo largo del cuerpo
-open my $ENTRADA, '<', "$tempDir/$name-tmp$ext";
-my $archivo;
-{
- local $/;
- $archivo = <$ENTRADA>;
+### Regex for verbatim inline/multiline with braces {...}
+my $nestedbr = qr / ( [{] (?: [^{}]++ | (?-1) )*+ [}] ) /x;
+my $fvextra = qr /\\ (?: (Save|Esc)Verb [*]?) $no_corchete /x;
+my $mintedbr = qr /\\ (?:$mintline|pygment) (?!\*) $no_corchete $no_llaves /x;
+my $tcbxverb = qr /\\ (?: tcboxverb [*]?| Scontents [*]? |$myverb [*]?|lstinline) $no_corchete /x;
+my $verb_brace = qr / (?:$tcbxverb|$mintedbr|$fvextra) (?:\s*)? $nestedbr /x;
+
+### Change \verb*{code} for verbatim inline/multiline
+while ($document =~ /$verb_brace/pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ while (my($busco, $cambio) = each %cambios) {
+ $encontrado =~ s/\Q$busco\E/$cambio/g;
+ }
+ substr $document, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($document) = $pos_inicial + length $encontrado;
}
-close $ENTRADA;
-
-## Partición del documento
-my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin\{document\}) (.+) (^ \\end\{document\} .*) \z/msx;
-## Variables y constantes
-my $no_del = "\0";
-my $del = $no_del;
+### We recovered the escaped braces
+$document =~ s/<LTXSBO>/\\{/g;
+$document =~ s/<LTXSBC>/\\}/g;
-## Reglas
-my $llaves = qr/\{ .+? \} /x;
-my $no_corchete = qr/(?:\[ .+? \])? /x;
-my $delimitador = qr/\{ (?<del>.+?) \} /x;
-my $spverb = qr/spverb [*]? /ix;
-my $verb = qr/(v|V)erb [*]? /ix;
-my $lst = qr/lstinline (?!\*) $no_corchete /ix;
-my $mint = qr/mint (?!\*) $no_corchete $llaves /ix;
-my $marca = qr/\\ (?:$verb | $lst | $mint ) (\S) .+? \g{-1} /x;
-my $comentario = qr/^ \s* \%+ .+? $ /mx;
-my $definedel = qr/\\ (?: DefineShortVerb | lstMakeShortInline ) $no_corchete $delimitador /ix;
-my $indefinedel = qr/\\ (?: UndefineShortVerb | lstDeleteShortInline) $llaves /ix;
-
-## Cambiar
-while ($cuerpo =~
- / $marca
- | $comentario
- | $definedel
- | $indefinedel
- | $del .+? $del # delimitado
- /pgmx) {
-
- my($pos_inicial, $pos_final) = ($-[0], $+[0]); # posiciones
- my $encontrado = ${^MATCH}; # lo encontrado
-
- if ($encontrado =~ /$definedel/){ # definimos delimitador
- $del = $+{del};
- $del = "\Q$+{del}" if substr($del,0,1) ne '\\'; # es necesario "escapar" el delimitador
- }
- elsif($encontrado =~ /$indefinedel/) { # indefinimos delimitador
- $del = $no_del;
- }
- else { # aquí se hacen los cambios
- while (my($busco, $cambio) = each %cambios) {
- $encontrado =~ s/\Q$busco\E/$cambio/g; # es necesario escapar $busco
- }
- substr $cuerpo, $pos_inicial, $pos_final-$pos_inicial, $encontrado; # insertamos los nuevos cambios
-
- pos($cuerpo)= $pos_inicial + length $encontrado; # re posicionamos la siguiente búsqueda
- }
+### We recovered CleanPST in all file, but only at begin of line
+$document =~ s/^%PSTCLEAN/%CleanPST/gmsx;
+
+### First we do some security checks to ensure that they are verbatim and
+### verbatim write environments are unique and disjointed
+ at verb_env_tmp = array_minus(@verb_env_tmp, @verw_env_tmp); #disjointed
+my @verbatim = uniq(@verb_env_tmp);
+
+Log('The environments that are considered verbatim:');
+Logarray(\@verbatim);
+
+### Create a Regex for verbatim standart environment
+my $verbatim = join q{|}, map { quotemeta } sort { length $a <=> length $b } @verbatim;
+$verbatim = qr/$verbatim/x;
+my $verb_std = qr {
+ (
+ (?:
+ \\begin\{$verbatim\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$verbatim\*?\})
+ (?!end\{$verbatim\*?\})|
+ (?-1)
+ )*
+ \\end\{$verbatim\*?\}
+ )
+ )
+ }x;
+
+### Verbatim write
+ at verw_env_tmp = array_minus(@verw_env_tmp, @verb_env_tmp); #disjointed
+my @verbatim_w = uniq(@verw_env_tmp);
+
+Log('The environments that are considered verbatim write:');
+Logarray(\@verbatim_w);
+
+### Create a Regex for verbatim write environment
+my $verbatim_w = join q{|}, map { quotemeta } sort { length $a <=> length $b } @verbatim_w;
+$verbatim_w = qr/$verbatim_w/x;
+my $verb_wrt = qr {
+ (
+ (?:
+ \\begin\{$verbatim_w\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$verbatim_w\*?\})
+ (?!end\{$verbatim_w\*?\})|
+ (?-1)
+ )*
+ \\end\{$verbatim_w\*?\}
+ )
+ )
+ }x;
+
+### The environments that will be searched for extraction
+Log('The environments that will be searched for extraction:');
+Logarray(\@extractenv);
+
+### Create a regex to extract environments
+my $environ = join q{|}, map { quotemeta } sort { length $a <=> length $b } @extractenv;
+$environ = qr/$environ/x;
+my $extr_tmp = qr {
+ (
+ (?:
+ \\begin\{$environ\*?\}
+ (?:
+ (?>[^\\]+)|
+ \\
+ (?!begin\{$environ\*?\})
+ (?!end\{$environ\*?\})|
+ (?-1)
+ )*
+ \\end\{$environ\*?\}
+ )
+ )
+ }x;
+
+### Hash for replace in verbatim begin -> Begin end -> END
+my %extract_env = crearhash(@extractenv);
+
+### The preview and nopreview environments are "special", need replace
+### in verbatim's environments begin -> Begin end -> END
+my @preview_env = qw(preview nopreview);
+my %preview_env = crearhash(@preview_env);
+
+Log('Making changes to verbatim/verbatim write environments before extraction');
+
+### Hash and Regex for changes, this "regex" is re-used in ALL script
+my %replace = (%extract_env, %preview_env, %changes_in, %document);
+my $find = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %replace;
+
+### We go line by line and make the changes [need /p for ${^MATCH}]
+while ($document =~ /$verb_wrt | $verb_std /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ $encontrado =~ s/($find)/$replace{$1}/g;
+ substr $document, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($document) = $pos_inicial + length $encontrado;
}
+### Now match preview environment in <input file>
+my @env_preview = $document =~ m/(\\begin\{preview\}.+?\\end\{preview\})/gmsx;
-# Poner el atributo añadido a \begin{PSTexample}
-while ($cuerpo =~ /^\\begin\{PSTexample\}(\[.+?\])?/gsm) {
-
- my $corchetes = $1;
- my($pos_inicial, $pos_final) = ($-[1], $+[1]); # posición donde están los corchetes
-
- if (not $corchetes) {
- $pos_inicial = $pos_final = $+[0]; # si no hay corchetes, nos ponemos al final de \begin
+### Convert preview to nopreview environment
+if (@env_preview) {
+ my $preNo = scalar @env_preview;
+ Log("Found $preNo preview environments in $name$ext");
+ Log("Pass all preview environments to \\begin{nopreview}\%TMP$tmp ... \\end{nopreview}\%TMP$tmp");
+ $document =~ s/(?:(\\begin\{|\\end\{))(preview\})/$1no$2\%TMP$tmp/gmsx;
+}
+
+### Pass verbatim write environments to dtxtag
+Log("Pass verbatim write environments to %<*$dtxverb> ... %</$dtxverb>");
+$document =~ s/\\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ ($verb_wrt)/\%<\*$dtxverb>$1\%<\/$dtxverb>/gmsx;
+
+### Pass verbatim environments to dtxtag
+Log("Pass verbatim environments to %<*$dtxverb> ... %</$dtxverb>");
+$document =~ s/\\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ($verb_std)/\%<\*$dtxverb>$1\%<\/$dtxverb>/gmsx;
+
+### Pass %CleanPST to dtxtag
+Log("Pass %CleanPST ... %CleanPST to %<*remove$tmp> ... %</remove$tmp>");
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ^(?:%CleanPST) (.+?) (?:%CleanPST)/\%<\*remove$tmp>$1\%<\/remove$tmp>/gmsx;
+
+### Check plain TeX syntax for pspicture [skip PSTexample]
+Log('Convert plain \pspicture to LaTeX syntax [skip in PSTexample]');
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\pspicture(\*)?(.+?)\\endpspicture/\\begin\{pspicture$1\}$2\\end\{pspicture$1\}/gmsx;
+
+### Check plain TeX syntax for psgraph [skip PSTexample]
+Log('Convert plain \psgraph to LaTeX syntax [skip in PSTexample]');
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\psgraph(\*)?(.+?)\\endpsgraph/\\begin\{psgraph$1\}$2\\end\{psgraph$1\}/gmsx;
+
+### Pass all postscript environments [skip in PSTexample]
+Log("Pass all postscript environments to \\begin{$wrapping} ... \\end{$wrapping}");
+$document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ (?:\\begin\{postscript\})(?:\s*\[ [^]]*? \])?
+ (?<code>.+?)
+ (?:\\end\{postscript\})
+ /\\begin\{$wrapping\}$+{code}\\end\{$wrapping\}/gmsx;
+
+### Pass all pstricks environments to \\begin{$wrapping} ... \\end{$wrapping}");
+if ($force) {
+ # Try to capture \psset{...} for pstricks and psgraph [force]
+ Log('Try to capture \psset{...} for pstricks environments [force mode]');
+ Log("Pass all pstricks environments to \\begin{$wrapping} ... \\end{$wrapping} [force mode]");
+ $document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{PSTexample\}.+?\\end\{PSTexample\}(*SKIP)(*F)|
+ \\begin\{$wrapping\}.+?\\end\{$wrapping\}(*SKIP)(*F)|
+ (?<code>
+ (?:\\psset\{(?:\{.*?\}|[^\{])*\}.+?)? # if exist ...save
+ \\begin\{(?<env> pspicture\*?| psgraph)\} .+? \\end\{\k<env>\}
+ )
+ /\\begin\{$wrapping\}$+{code}\\end\{$wrapping\}/gmsx;
+}
+else {
+ Log("Pass all pstricks environments to \\begin{$wrapping} ... \\end{$wrapping}");
+ $document =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\begin\{nopreview\}.+?\\end\{nopreview\}(*SKIP)(*F)|
+ \\begin\{$wrapping\}.+?\\end\{$wrapping\}(*SKIP)(*F)|
+ ($extr_tmp)/\\begin\{$wrapping\}$1\\end\{$wrapping\}/gmsx;
+}
+
+### All environments are now classified:
+### Extraction -> \begin{$wrapping} ... \end{$wrapping}
+### Verbatim's -> %<\*$dtxverb> ... <\/$dtxverb>
+
+### Now split document
+my ($preamble,$bodydoc,$enddoc) = $document =~ m/\A (.+?) (\\begin\{document\} .+?)(\\end\{document\}.*)\z/msx;
+
+### Hash for reverse changes for extract and <output file>
+my %changes_out = (
+ '\PSSET' => '\psset',
+ '\TIKZSET' => '\tikzset',
+ '\TRICKS' => '\pspicture',
+ '\ENDTRICKS' => '\endpspicture',
+ '\PSGRAPHTRICKS' => '\psgraph',
+ '\ENDPSGRAPHTRICKS' => '\endpsgraph',
+ '\USEPACKAGE' => '\usepackage',
+ '{GRAPHICX}' => '{graphicx}',
+ '\GRAPHICSPATH{' => '\graphicspath{',
+ '\BEGIN{' => '\begin{',
+ '\END{' => '\end{',
+ '\DOCUMENTCLASS' => '\documentclass',
+ '\PAGESTYLE{' => '\pagestyle{',
+ '\THISPAGESTYLE{' => '\thispagestyle{',
+ '%PSTCLEAN' => '%CleanPST',
+ );
+
+### We restore the changes in body of environments and dtxverb
+%replace = (%changes_out);
+$find = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %replace;
+$bodydoc =~ s/($find)/$replace{$1}/g;
+$preamble =~ s/($find)/$replace{$1}/g;
+
+### First search PSTexample environment for extract
+my @exa_extract = $bodydoc =~ m/(?:\\begin\{$wrapping\})($BE.+?$EE)(?:\\end\{$wrapping\})/gmsx;
+my $exaNo = scalar @exa_extract;
+
+### Set vars for log and print in terminal
+my $envEXA = $exaNo > 1 ? 'PSTexample environments' : 'PSTexample environment';
+my $fileEXA = $exaNo > 1 ? 'files' : 'file';
+
+### If PSTexample environment found
+if ($exaNo!=0) {
+ $PSTexa = 1;
+ Log("Found $exaNo $envEXA in $name$ext");
+ my $figNo = 1;
+ for my $item (@exa_extract) {
+ Logline("%##### PSTexample environment captured number $figNo ######%");
+ Logline($item);
+ $figNo++;
}
-
- if (not $corchetes or $corchetes =~ /\[\s*\]/) { # si no hay corchetes, o están vacíos,
- $corchetes = "[$graphics-$exacount}]"; # ponemos los nuestros
+ # Add [graphic={[...]...}] to \begin{PSTexample}[...]
+ Log('Append [graphic={[...]...}] to \begin{PSTexample}[...]');
+ $figNo = 1;
+ while ($bodydoc =~ /\\begin\{$wrapping\}(\s*)?\\begin\{PSTexample\}(\[.+?\])?/gsm) {
+ my $swpl_grap = "graphic=\{\[scale=1\]$imgdir/$name-fig-exa";
+ my $corchetes = $1;
+ my ($pos_inicial, $pos_final) = ($-[1], $+[1]);
+ if (not $corchetes) { $pos_inicial = $pos_final = $+[0]; }
+ if (not $corchetes or $corchetes =~ /\[\s*\]/) {
+ $corchetes = "[$swpl_grap-$figNo}]";
+ }
+ else { $corchetes =~ s/\]/,$swpl_grap-$figNo}]/; }
+ substr($bodydoc, $pos_inicial, $pos_final - $pos_inicial) = $corchetes;
+ pos($bodydoc) = $pos_inicial + length $corchetes;
}
- else { # si sí hay corchetes,
- $corchetes =~ s/\]/,$graphics-$exacount}]/; # lo agregamos al final, dentro de los corchetes
+ continue { $figNo++; }
+ Log('Pass PSTexample environments to \begin{nopreview} ... \end{nopreview}');
+ $bodydoc =~ s/\\begin\{$wrapping\}
+ (?<code>\\begin\{PSTexample\} .+? \\end\{PSTexample\})
+ \\end\{$wrapping\}
+ /\\begin\{nopreview\}\%$tmp$+{code}\\end\{nopreview\}\%$tmp/gmsx;
+}
+
+### Second search any pstricks environment for extract
+my @env_extract = $bodydoc =~ m/(?:$BP)(.+?)(?:$EP)/gmsx;
+my $envNo = scalar @env_extract;
+
+### Set vars for log and print in terminal
+my $envSTD = $envNo > 1 ? 'pstricks environments' : 'pstricks environment';
+my $fileSTD = $envNo > 1 ? 'files' : 'file';
+
+### If any pstricks environments found
+if ($envNo!=0) {
+ $STDenv = 1;
+ Log("Found $envNo $envSTD in $name$ext");
+ my $fig = 1;
+ for my $item (@env_extract) {
+ Logline("%##### Environment pstricks captured number $fig ######%");
+ Logline($item);
+ $fig++;
}
-
- substr($cuerpo, $pos_inicial, $pos_final - $pos_inicial) = $corchetes;
- pos($cuerpo) = $pos_inicial + length $corchetes; # reposicionamos la búsqueda de la exp. reg.
}
-continue {
- $exacount++;
+
+### Run script process only if any enviroment(s) found in <input file>
+if ($envNo == 0 and $exaNo == 0) {
+ errorUsage("$scriptname can not find any environment to extract in $name$ext");
}
-#----------------------- Extract PSTexample files ----------------------
+### Storing ALL current options of script process for .log file
+if ($zip) { $opts_cmd{boolean}{zip} = 1; }
+if ($tar) { $opts_cmd{boolean}{tar} = 1; }
+if ($shell) { $opts_cmd{boolean}{shell} = 1; }
+if ($nopdf) { $opts_cmd{boolean}{nopdf} = 1; }
+if ($norun) { $opts_cmd{boolean}{norun} = 1; }
+if ($nocrop) { $opts_cmd{boolean}{nocrop} = 1; }
+if ($srcenv) { $opts_cmd{boolean}{srcenv} = 1; }
+if ($gray) { $opts_cmd{boolean}{gray} = 1; }
+if ($force) { $opts_cmd{boolean}{force} = 1; }
+if ($noprew) { $opts_cmd{boolean}{noprew} = 1; }
+if ($runbibtex) { $opts_cmd{boolean}{bibtex} = 1; }
+if ($runbiber) { $opts_cmd{boolean}{biber} = 1; }
+if ($clear) { $opts_cmd{boolean}{clear} = 1; }
+if ($nosource) { $opts_cmd{boolean}{nosource} = 1; }
+if ($arara) { $opts_cmd{compiler}{arara} = 1; }
+if ($latexmk) { $opts_cmd{compiler}{latexmk} = 1; }
+if ($luatex) { $opts_cmd{compiler}{luatex} = 1; }
+if ($xetex) { $opts_cmd{compiler}{xetex} = 1; }
+if ($tmpverbenv) { $opts_cmd{string}{ignore} = $tmpverbenv; }
+$opts_cmd{string}{myverb} = $myverb;
+$opts_cmd{string}{dpi} = $dpi;
+$opts_cmd{string}{runs} = $runs;
+$opts_cmd{string}{margins} = $margins;
+$opts_cmd{string}{imgdir} = $imgdir;
-while ($cuerpo =~ /^\\begin\{PSTexample\}\[.+?(?<nombre_archivo_secundario>$imageDir\/.+?-\d+)\}\](?<contenido>.+?)(?=^\\end\{PSTexample})/gsm) {
- open my $SALIDA, '>', "$+{'nombre_archivo_secundario'}$ext";
- print $SALIDA <<"EOC";
-$cabeza\n\\thispagestyle{empty}$+{'contenido'}\\end{document}
-EOC
- close $SALIDA;
+foreach my $key (keys %{$opts_cmd{boolean}}) {
+ if (defined $opts_cmd{boolean}{$key}) { push @currentopt, "--$key"; }
}
-# Now, deault way join all PSTexample files
-if(!$nopreview){
-if (-e "$imageDir/$name-exa-1$ext") {
-# print "PSTexample environment found\n";
-# 1- Leer los PSTexa files
-my @pstexafiles = glob("$imageDir/$name-exa-*$ext");
-
-# 2- Ordenar según el índice y extención
- at pstexafiles =
- map { $_->[1] }
- sort { $a->[0] <=> $b->[0] }
- map { [ ($_ =~ /(\d+$ext)/), $_ ] }
- @pstexafiles;
-
-# 3- Bucle para leer las secciones
-my @almacen;
-for my $exafile (@pstexafiles) {
-
- # 3.1- Leer el archivo
- open my $FH, '<', $exafile; #
- my $tex = join q{}, <$FH>; #
- close $FH;
-
- # 3.2- Extraer la parte que nos interesa
- my($pedazo) = $tex =~ m/\\thispagestyle\{empty\}\s*(.+?)\s*\\end\{document\}/sm;
-
- # 3.3- Almacenamos, si hemos encontrado algo
- push @almacen, $pedazo if $pedazo;
+foreach my $key (keys %{$opts_cmd{compiler}}) {
+ if (defined $opts_cmd{compiler}{$key}) { push @currentopt, "--$key"; }
}
-
-# 4- Salida
-open my $SALIDA, '>', "$tempDir/$name-exa$ext";
+foreach my $key (keys %{$opts_cmd{image}}) {
+ if (defined $opts_cmd{image}{$key}) { push @currentopt, "--$key"; }
+}
+foreach my $key (keys %{$opts_cmd{string}}) {
+ if (defined $opts_cmd{string}{$key}) { push @currentopt, "--$key $opts_cmd{string}{$key}"; }
+}
-print $SALIDA "$cabeza\n";
-
-my $fig = 1;
-for my $item (@almacen) {
- print $SALIDA "\\thispagestyle\{empty\}\n";
- print $SALIDA $item;
- print $SALIDA "%fig . $fig\n";
- print $SALIDA "\\newpage\n";
- $fig++;
+ at currentopt = grep !/--pdf/, @currentopt;
+my @sorted_words = sort { length $a <=> length $b } @currentopt;
+
+Log('The script will execute the following options:');
+Logarray(\@sorted_words);
+
+### Set directory to save generated files, need full path for goog log :)
+my $imgdirpath = File::Spec->rel2abs($imgdir);
+
+if (-e $imgdir) {
+ Infoline("The generated files will be saved in $imgdirpath");
}
-
-print $SALIDA '\end{document}';
-close $SALIDA;
- } # close join exa files (if exist)
-} # close nopreview
+else {
+ Infoline("Creating the directory $imgdirpath to save the generated files");
+ Infocolor('Running', "mkdir $imgdirpath");
+ Logline("[perl] mkdir($imgdir,0744)");
+ mkdir $imgdir,0744 or errorUsage("Can't create the directory $imgdir");
+}
-### Escribimos en el mismo archivo con los cambios en verbatim
-open my $SALIDA, '>', "$tempDir/$name-tmp$ext";
-print $SALIDA "$cabeza$cuerpo$final";
-close $SALIDA;
+### Set compiler for process <input file>
+my $compiler = $xetex ? 'xelatex'
+ : $luatex ? 'dvilualatex'
+ : 'latex'
+ ;
-## Comentamos pst-exa en el preambulo, para no entorpecer a preview
-$cabeza =~
-s/(?<exapack>\\usepackage\[(swpl|tcb)\]\{pst-exa\})/%$+{exapack}/gsmx;
-## Eliminamos PSTexample y PSTcode para no entorpecer a preview
-$cuerpo =~
-s/(?<initexa>\\begin\{PSTexample\})(?<code>.+?)(?<endexa>\\end\{PSTexample\})//gsmx;
-$cuerpo =~
-s/(?<initexa>\\begin\{PSTcode\})(?<code>.+?)(?<endexa>\\end\{PSTcode\})//gsmx;
+### Set options for pdfcrop
+my $opt_crop = $xetex ? "--xetex --margins $margins"
+ : $luatex ? "--luatex --margins $margins"
+ : "--margins $margins"
+ ;
-## Escribimos el archivo completo para las figuras
-if(!$nopreview){
-open my $OUTFILE, '>', "$tempDir/$name-pst$ext";
-print $OUTFILE "\\AtBeginDocument\{\n";
-if($xetex){
-print $OUTFILE "\\RequirePackage\[xetex,active,tightpage\]\{preview\}\n";
+### Set options for preview package
+my $opt_prew = $xetex ? 'xetex,' : q{};
+
+### Set message in terminal
+my $msg_compiler = $xetex ? 'xelatex'
+ : $luatex ? 'dvilualatex>dvips>ps2pdf'
+ : 'latex>dvips>ps2pdf'
+ ;
+
+### Set write18 for compiler in TeXLive and MikTeX
+if ($shell) {
+ $write18 = '-shell-escape';
+ $write18 = '--enable-write18' if defined $ENV{'TEXSYSTEM'} and $ENV{'TEXSYSTEM'} =~ /miktex/i;
}
-else{
-print $OUTFILE "\\RequirePackage\[active,tightpage\]\{preview\}\n";
+else {
+ $write18 = '-no-shell-escape';
+ $write18 = '--disable-write18' if defined $ENV{'TEXSYSTEM'} and $ENV{'TEXSYSTEM'} =~ /miktex/i;
}
-print $OUTFILE "\\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}%\n";
-print $OUTFILE "\\PreviewEnvironment\{pspicture\}\n";
-print $OUTFILE "\\PreviewEnvironment\{postscript\}\}\n";
-print $OUTFILE "$cabeza$cuerpo\\end\{document\}";
-close $OUTFILE;
-}
-## Escribimos en el mismo archivo, convirtiendo PSTexample
-## esta sera el archivo de entrada en el resto del script
-my @lineas;
-{
- open my $FILE, "$tempDir/$name-tmp$ext";
- @lineas = <$FILE>;
- close $FILE;
+### Set options for compiler
+my $opt_compiler = "$write18 -interaction=nonstopmode -recorder";
+
+if (!$norun) {
+ Log("The options '$opt_compiler' will be passed to $compiler");
}
-my $PSTexample = qr/(?: PSTexample | PSTcode )/xi;
-#
-my $DEL;
+### Set -q for system command line (gs, poppler-utils, dvips)
+my $quiet = $verbose ? q{}
+ : '-q'
+ ;
-for (@lineas) {
- if (/^\\begin\{($PSTexample)(?{ $DEL = "\Q$^N" })\}/ .. /^\\end\{$DEL\}/) {
- while (my($busco, $cambio) = each %cambios) {
- s/\Q$busco\E/$cambio/g;
- }
- }
- }
+### Set options for ghostscript
+my %opt_gs_dev = (
+ pdf => '-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=pdfwrite',
+ gray => '-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=pdfwrite -sColorConversionStrategy=Gray -sProcessColorModel=DeviceGray',
+ png => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=pngalpha -r$dpi",
+ bmp => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=bmp32b -r$dpi",
+ jpg => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=jpeg -r$dpi -dJPEGQ=100 -dGraphicsAlphaBits=4 -dTextAlphaBits=4",
+ tif => "-dNOSAFER -dBATCH -dNOPAUSE -sDEVICE=tiff32nc -r$dpi",
+ );
-# Escritura del resultado
-open my $SALIDA, '>', "$tempDir/$name-tmp$ext";
-print $SALIDA @lineas;
-close $SALIDA;
-# end code for pstexample
+### Set poppler-utils executables
+my %cmd_poppler = (
+ eps => "pdftops",
+ ppm => "pdftoppm",
+ svg => "pdftocairo",
+ );
-my $imgNo = 1; # internal image counter
-#----------------- nopreview mode, dont'n need gs ----------------------
-if ($nopreview) {
-LOG ("Running on [$path][$name][$ext]");
-open my $FILE,'<', "$TeXfile" ; # the source
-if (!$noImages ) {
-LOG ("nopreview mode generate images...");
-savePreamble($name);
-runFile($name);
-runPSTimg($name);
-close $FILE; # close source file
-close $LOGfile;
- }
-}
-#----------------------- Default way, using gs -------------------------
-else{
-LOG ("Running on [$path][$name][$ext]");
-open my $FILE,'<', "$TeXfile" ; # the source
-if (!$noImages ) {
-LOG ("Using gs for split images ... ");
-savePreamble($name);
-runFile($name);
-runPSTimg($name);
-LOG ("done!\n go to runFile ...");
-LOG ("done!");
-close $FILE; # close source file
-close $LOGfile;
- }# !noImages
-}# close
+### Set options for poppler-utils
+my %opt_poppler = (
+ eps => "$quiet -eps",
+ ppm => "$quiet -r $dpi",
+ svg => "$quiet -svg",
+ );
+### Copy preamble and body for temp file with all environments
+my $atbeginout = $atbegindoc;
+my $preamout = $preamble;
+my $tmpbodydoc = $bodydoc;
+### Match \pagestyle and \thispagestyle in preamble
+my $style_page = qr /(?:\\)(?:this)?(?:pagestyle\{) (.+?) (?:\})/x;
+my @style_page = $preamout =~ m/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)| $style_page/gmsx;
+my %style_page = map { $_ => 1 } @style_page; # anon hash
-#-------------------------- Save Preamble ------------------------------
-# Now 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.
-sub savePreamble {
-my $filename = pop; # get the file name
- LOG ("----- Start Preamble -----");
-open my $FILEp,'>',"$tempDir/$filename.preamble";
-open my $FILE, '<', "$tempDir/$name-tmp$ext";
- while (<$FILE>) { # read all until \begin{document}
- my $i = index($_,"begin{document}");
- if ($i > 0) {
- if ($i > 1) { print $FILEp substr($_,0,--$i); } # write all until \begin{document}
- if ($nopreview) {
- print $FILEp "\\newenvironment{postscript}{}{}\n";
- print $FILEp "\\pagestyle{empty}\n";
- }
-close $FILEp; # close preamble
- LOG ("----- Close Preamble ------");
- return;
- }
-else {
- print $FILEp "$_"; # write into preamble
- LOG ("$_");
+### Set \pagestyle{empty} for standalone files and process
+if (@style_page) {
+ if (!exists $style_page{empty}) {
+ Log("Replacing page style for generated files");
+ $preamout =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ (\\(this)?pagestyle)(?:\{.+?\})/$1\{empty\}/gmsx;
}
}
-close $FILE;
-close $FILEp;
+else {
+ Log('Add \pagestyle{empty} for generated files');
+ $preamout = $preamout."\\pagestyle\{empty\}\n";
}
-# Search in source-parser file
-sub searchPS { # search the PostScript parts
- my @PS = (); # nopreview 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
- open my $FILE, '<', "$tempDir/$name-tmp$ext";
- while (<$FILE>) { # scan the input file
- if (!$EndDocument) {
- 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}
- 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 (($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}
- $type = 2;
- $line = substr($line,$iPS-1); # add rest of the line
- LOG("PS-Zeile: $line");
- }
- 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 created a preamble for the individual files
+my $sub_prea = "$atbeginout$preamout".'\begin{document}';
+
+### Revert changes
+$sub_prea =~ s/\%<\*$dtxverb>\s*(.+?)\s*\%<\/$dtxverb>/$1/gmsx;
+%replace = (%changes_out);
+$find = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %replace;
+$sub_prea =~ s/($find)/$replace{$1}/g;
+$sub_prea =~ s/^(?:\%<\*remove$tmp>)(.+?)(?:\%<\/remove$tmp>)/%CleanPST$1%CleanPST/gmsx;
+
+### Write standalone files for environments
+if (!$nosource) {
+ my $src_name = "$name-fig-";
+ my $srcNo = 1;
+ if ($srcenv) {
+ Log('Extract source code of all captured environments without preamble');
+ if ($STDenv) {
+ if (-e "$imgdir/$name-fig-1$ext") {
+ Log("Recreating $envNo $fileSTD [$ext] with source code for $envSTD in $imgdirpath");
+ print "Recreating $envNo $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envSTD\r\n";
+ }
+ else {
+ Log("Creating $envNo $fileSTD [$ext] with source code for $envSTD in $imgdirpath");
+ print "Creating $envNo $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envSTD\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BP(?:\s*)?(?<env_src>.+?)(?:\s*)?$EP/gms) {
+ open my $outexasrc, '>', "$imgdir/$src_name$srcNo$ext";
+ print {$outexasrc} $+{'env_src'};
+ close $outexasrc;
+ }
+ continue { $srcNo++; }
}
- }
-# 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...
- $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
- LOG ("searchPS: $line");
- $depth--;
- if ($depth < 0) {
- $type = -1;
- 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}
- else { push @PS,substr($line,0,$iPST+14); } # \end{pspicture}
- LOG ("searchPS: set \$type=$type");
- push @PStotal,[@PS]; # add PS sequence
- LOG ("---->PS---->\n at PS\n<----PS<----");
- @PS = (); # start new PS sequence
- } # no pspicture env left
- } else { push @PS,$line; } # pspicture inside postscript
- } elsif ($iPS > 0) { # must be type=1 -> stop Scan
- LOG ("searchPS: $line");
- $type = -1;
- push @PS,substr($line,0,$iPS+15); # add line
- LOG ("searchPS: set \$type=$type");
- push @PStotal,[@PS]; # add PS sequence
- LOG ("---->PS---->\n at PS\n<----PS<----");
- @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 (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; }
- }}
- if ( $Verbose ) {
- LOG("---->PStotal---->");
- for my $aref ( @PStotal ) {
- my @a = @$aref;
- my $i = 1;
- foreach ( @a ) { LOG ($a[$i]); $i=$i+1; }
+ if ($PSTexa) {
+ if (-e "$imgdir/$name-fig-exa-1$ext") {
+ Log("Recreating $exaNo $fileEXA [$ext] with source code for $envEXA in $imgdirpath");
+ print "Recreating $exaNo $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envEXA\r\n";
+ }
+ else {
+ Log("Creating $exaNo $fileEXA [$ext] with source code for $envEXA in $imgdirpath");
+ print "Creating $exaNo $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " with source code for $envEXA\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BE\[.+?(?<pst_exa_name>$imgdir\/.+?-\d+)\}\]\s*(?<exa_src>.+?)\s*$EE/gms) {
+ open my $outstdsrc, '>', "$+{'pst_exa_name'}$ext";
+ print {$outstdsrc} $+{'exa_src'};
+ close $outstdsrc;
+ }
+ }
}
- LOG ("<----PStotal<----");
- }
- close $FILE;
- return @PStotal; # return all PS sequences
+ else {
+ Log('Extract source code of all captured environments with preamble');
+ if ($STDenv) {
+ if (-e "$imgdir/$name-fig-1$ext") {
+ Log("Recreating $envNo standalone $fileSTD [$ext] for $envSTD in $imgdirpath");
+ print "Recreating $envNo standalone $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " for $envSTD\r\n";
+ }
+ else {
+ Log("Creating $envNo standalone $fileSTD [$ext] for $envSTD in $imgdirpath");
+ print "Creating $envNo standalone $fileSTD ", color('magenta'), "[$ext]",
+ color('reset'), " for $envSTD\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BP(?:\s*)?(?<env_src>.+?)(?:\s*)?$EP/gms) {
+ open my $outstdfile, '>', "$imgdir/$src_name$srcNo$ext";
+ print {$outstdfile} "$sub_prea\n$+{'env_src'}\n\\end\{document\}";
+ close $outstdfile;
+ }
+ continue { $srcNo++; }
+ }
+ if ($PSTexa) {
+ if (-e "$imgdir/$name-fig-exa-1$ext") {
+ Log("Recreating $exaNo standalone $fileEXA [$ext] for $envEXA in $imgdirpath");
+ print "Recreating $exaNo standalone $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " for $envEXA\r\n";
+ }
+ else {
+ Log("Creating $exaNo standalone $fileEXA [$ext] for $envEXA in $imgdirpath");
+ print "Creating $exaNo standalone $fileEXA ", color('magenta'), "[$ext]",
+ color('reset'), " for $envEXA\r\n";
+ }
+ # Write files
+ while ($tmpbodydoc =~ m/$BE\[.+?(?<pst_exa_name>$imgdir\/.+?-\d+)\}\]\s*(?<exa_src>.+?)\s*$EE/gms) {
+ open my $outexafile, '>', "$+{'pst_exa_name'}$ext";
+ print {$outexafile} "$sub_prea\n$+{'exa_src'}\n\\end\{document\}";
+ close $outexafile;
+ }
+ }
+ }
}
-#---------------------- Create files.tex for images --------------------
-sub runFile {
+### Store options for preview and pst-pdf (add at begin document)
+my $previewpkg = <<"EXTRA";
+\\PassOptionsToPackage\{inactive\}\{pst-pdf\}%
+\\AtBeginDocument\{%
+\\RequirePackage\[inactive\]\{pst-pdf\}%
+\\RequirePackage\[${opt_prew}active,tightpage\]\{preview\}%
+\\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}\}%
+EXTRA
- my $filename = pop;
- my @PSarray = searchPS();
+### Store options for pst-pdf (add at begin document)
+my $pstpdfpkg = <<'EXTRA';
+\PassOptionsToPackage{inactive}{pst-pdf}
+\AtBeginDocument{%
+\RequirePackage[inactive]{pst-pdf}}%
+EXTRA
- if ( $Verbose ) {
- LOG("---->PSarray---->");
- for my $aref ( @PSarray ) {
- my @a = @$aref;
- my $i = 1;
- foreach ( @a ) { print LOG $a[$i]."\n"; $i=$i+1; }
+### First match preview package in preamble (prevent option clash)
+my $REQPACK = quotemeta'\RequirePackage';
+my $USEPACK = quotemeta'\usepackage';
+my $CORCHETES = qr/\[ [^]]*? \]/x;
+
+my $PALABRAS = qr/\b (?: preview )/x;
+my $FAMILIA = qr/\{ \s* $PALABRAS (?: \s* [,] \s* $PALABRAS )* \s* \}(\%*)?/x;
+
+Log('Remove preview package in preamble [memory]');
+$preamout =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ^ $USEPACK (?: $CORCHETES )? $FAMILIA \s*//msxg;
+$preamout =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ (?: ^ $USEPACK \{ | \G) [^}]*? \K (,?) \s* $PALABRAS (\s*) (,?) /$1 and $3 ? ',' : $1 ? $2 : ''/gemsx;
+$preamout =~ s/^\\usepackage\{\}(?:[\t ]*(?:\r?\n|\r))+/\n/gmsx;
+
+### Remove %<*$dtxverb> ... %</$dtxverb> in tmpbodydoc and preamout
+$tmpbodydoc =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+$preamout =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+
+### Adjust nopreview environments
+$tmpbodydoc =~ s/\\begin\{nopreview\}\%$tmp
+ (?<code> .+?)
+ \\end\{nopreview\}\%$tmp
+ /\\begin\{nopreview\}\n$+{code}\n\\end\{nopreview\}/gmsx;
+
+### Adjust $wrapping environments (no need realy)
+$tmpbodydoc =~ s/\\begin\{$wrapping\}
+ (?<code>.+?)
+ \\end\{$wrapping\}
+ /\\begin\{$wrapping\}\n$+{code}\n\\end\{$wrapping\}/gmsx;
+
+### Reverse changes for temporary file with all env (no in -exa file)
+$tmpbodydoc =~ s/($find)/$replace{$1}/g;
+$tmpbodydoc =~ s/(\%TMP$tmp)//g;
+$preamout =~ s/($find)/$replace{$1}/g;
+$preamout =~ s/^(?:\%<\*remove$tmp>)(.+?)(?:\%<\/remove$tmp>)/%CleanPST$1%CleanPST/gmsx;
+$atbeginout =~ s/($find)/$replace{$1}/g;
+
+### We created a preamble for individual files with all environments
+$sub_prea = $noprew ? "$atbeginout$pstpdfpkg$preamout".'\begin{document}'
+ : "$atbeginout$previewpkg$preamout"
+ ;
+
+### Create a one file with "all" PSTexample environments extracted
+if ($PSTexa) {
+ @exa_extract = undef;
+ Log("Adding packages to $name-fig-exa-$tmp$ext [memory]");
+ Logline($pstpdfpkg);
+ Log('Convert plain Tex syntax for pspicture and psgraph to LaTeX syntax in PSTexample environments');
+ while ($tmpbodydoc =~ m/$BE\[.+? $imgdir\/.+?-\d+\}\] .+?$EE/pgsmx ) { # search
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ $encontrado =~ s/\\pspicture(\*)?(.+?)\\endpspicture/\\begin\{pspicture$1\}$2\\end\{pspicture$1\}/gmsx;
+ $encontrado =~ s/\\psgraph(\*)?(.+?)\\endpsgraph/\\begin\{psgraph$1\}$2\\end\{psgraph$1\}/gmsx;
+ substr $tmpbodydoc, $pos_inicial, $pos_final-$pos_inicial, $encontrado;
+ pos ($tmpbodydoc) = $pos_inicial + length $encontrado;
}
- LOG("<----PSarray<----");
- my $no = @PSarray;
- LOG("PS: ".$no." PS sequence(s)");
- }
- for my $aref ( @PSarray ) {
- my @PS = @$aref;
- open my $FILEp,'<',"$tempDir/$filename.preamble";
- open my $FILEsub,'>',"$tempDir/$filename-fig$ext";
- while (<$FILEp>) {print $FILEsub $_; }
- print $FILEsub "\\begin{document}\n";
- if ( $Verbose ) { LOG("\@PS: $_"); }
- foreach ( @PS ) { print $FILEsub "$_\n"; }
- print $FILEsub "\\end{document}";
- close $FILEsub;
- close $FILEp;
- runTeX("$tempDir/$filename-fig");
- }
+ # Write file
+ Infoline("Creating $name-fig-exa-$tmp$ext with $exaNo $envEXA extracted");
+ while ($tmpbodydoc =~ m/$BE\[.+? $imgdir\/.+?-\d+\}\](?<exa_src>.+?)$EE/gmsx ) { # search
+ push @exa_extract, $+{'exa_src'}."\\newpage\n";
+ open my $allexaenv, '>', "$name-fig-exa-$tmp$ext";
+ print {$allexaenv} "$atbeginout$pstpdfpkg$preamout".'\begin{document}'."@exa_extract"."\\end\{document\}";
+ close $allexaenv;
+ }
+ # Remove [graphic={...}] in PSTexample example environments
+ $tmpbodydoc =~ s/($BE)(?:\[graphic=\{\[scale=1\]$imgdir\/.+?-\d+\}\])/$1/gmsx;
+ $tmpbodydoc =~ s/($BE\[.+?)(?:,graphic=\{\[scale=1\]$imgdir\/.+?-\d+\})(\])/$1$2/gmsx;
+ # Moving and renaming
+ if ($norun) {
+ Infoline("Moving and renaming $name-fig-exa-$tmp$ext to $name-fig-exa-all$ext");
+ if (-e "$imgdir/$name-fig-exa-all$ext") {
+ Infocolor('Warning', "The file [$name-fig-exa-all$ext] already exists and will be rewritten");
+ Log("Rewriting the file $name-fig-exa-all$ext in $imgdirpath");
+ }
+ else {
+ Log("Writing the file $name-fig-exa-all$ext in $imgdirpath");
+ }
+ if ($verbose) {
+ Infocolor('Running', "mv $workdir/$name-fig-exa-$tmp$ext $imgdirpath/$name-fig-exa-all$ext");
+ }
+ else {
+ Infocolor('Running', "mv $name-fig-exa-$tmp$ext ./$imgdir/$name-fig-exa-all$ext");
+ }
+ Logline("[perl] move($workdir/$name-fig-exa-$tmp$ext, $imgdirpath/$name-fig-exa-all$ext)");
+ move("$workdir/$name-fig-exa-$tmp$ext", "$imgdir/$name-fig-exa-all$ext")
+ or die "* Error!!: Couldn't be renamed $name-fig-exa-$tmp$ext to ./$imgdir/$name-fig-exa-all$ext";
+ }
}
-LOG ("runpdfTeX ... ");
-runpdfTeX("$path$name",$name);
-LOG ("all finished ... :-)");
-#------------------- Copy files.tex for images in default mode ---------
-sub runTeX{
- my $filename = pop;
- copy("$filename$ext", "$imageDir/$filename-$imgNo$ext");
- $imgNo=$imgNo+1;
+### Create a one file with "all" standard environments extracted
+if ($STDenv) {
+ if ($noprew) {
+ Log("Creating $name-fig-$tmp$ext with $envNo $envSTD extracted [no preview]");
+ print "Creating $name-fig-$tmp$ext with $envNo $envSTD extracted",
+ color('magenta'), " [no preview]\r\n",color('reset');
+ }
+ else {
+ Log("Creating $name-fig-$tmp$ext with $envNo $envSTD extracted [preview]");
+ print "Creating $name-fig-$tmp$ext with $envNo $envSTD extracted",
+ color('magenta'), " [preview]\r\n",color('reset');
+ }
+ open my $allstdenv, '>', "$name-fig-$tmp$ext";
+ if ($noprew) {
+ my @env_extract;
+ while ($tmpbodydoc =~ m/(?:$BP)(?<env_src>.+?)(?:$EP)/gms) {
+ push @env_extract,$+{'env_src'}."\\newpage\n";
+ }
+ Log("Adding packages to $name-fig-$tmp$ext");
+ Logline($pstpdfpkg);
+ print {$allstdenv} $sub_prea."@env_extract"."\\end{document}";
+ }
+ else {
+ Log("Adding packages to $name-fig-$tmp$ext");
+ Logline($previewpkg);
+ Log("Convert $wrapping to preview environments in $name-fig-$tmp$ext");
+ # Convert $wrapping to preview environments
+ $tmpbodydoc =~ s/\\begin\{$wrapping\}(?<code>.+?)\\end\{$wrapping\}
+ /\\begin\{preview\}\n$+{code}\n\\end\{preview\}\n/gmsx;
+ print {$allstdenv} $sub_prea.$tmpbodydoc."\n\\end{document}";
+ }
+ close $allstdenv;
+ # Moving and renaming
+ if ($norun) {
+ Infoline("Moving and renaming $name-fig-$tmp$ext to $name-fig-all$ext");
+ if (-e "$imgdir/$name-fig-all$ext") {
+ Infocolor('Warning', "The file [$name-fig-all$ext] already exists and will be rewritten");
+ Log("Rewriting the file $name-fig-all$ext in $imgdirpath");
+ }
+ else {
+ Log("Writing the file $name-fig-all$ext in $imgdirpath");
+ }
+ if ($verbose) {
+ Infocolor('Running', "mv $workdir/$name-fig-$tmp$ext $imgdirpath/$name-fig-all$ext");
+ }
+ else {
+ Infocolor('Running', "mv $name-fig-$tmp$ext ./$imgdir/$name-fig-all$ext");
+ }
+ Logline("[perl] move($workdir/$name-fig-$tmp$ext, $imgdirpath/$name-fig-all$ext)");
+ move("$workdir/$name-fig-$tmp$ext", "$imgdir/$name-fig-all$ext")
+ or die "* Error!!: Couldn't be renamed $name-fig-$tmp$ext to ./$imgdir/$name-fig-all$ext";
+ }
}
-#------------------- Create images in PDF fromat ------------------------
-sub runPSTimg() {
-# Option for gs
-my $opt_gs_split='-q -sDEVICE=pdfwrite -dPDFSETTINGS=/prepress -dNOPAUSE -dBATCH ';
-# Option for pdfcrop
-my $opt_pdfcrop="-margins $margins";
-
-# Abrimos el directorio y creamos las imagenes en formato PDF
-if ($nopreview) {
-opendir(my $DIR, $imageDir);
- while (readdir $DIR) {
-if (/(?<nombre>$name-(fig|exa)-\d+)(?<extension>$ext)/) {
-if ($xetex){
- system("xelatex -interaction=batchmode -output-directory=$imageDir $imageDir/$+{nombre}$+{extension}");
- system("pdfcrop $opt_pdfcrop -xetex $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.pdf");
- } # close xelatex
-else{
- system("latex -interaction=batchmode -output-directory=$imageDir $imageDir/$+{nombre}$+{extension}");
- system("dvips -q -P pdf -o $imageDir/$+{nombre}.ps $imageDir/$+{nombre}.dvi");
- system("ps2pdf $imageDir/$+{nombre}.ps $imageDir/$+{nombre}.pdf");
- system("pdfcrop $opt_pdfcrop $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.pdf");
- } # close latex>dvips>ps2pdf
- } # close find regex in nopreview
-} # close while
+### Compiler and generate PDF files
+if (!$norun) {
+Log('Generate a PDF file with all captured environments');
+my @compiler = (1..$runs);
+opendir (my $DIR, $workdir);
+ while (readdir $DIR) {
+ if (/(?<name>$name-fig(-exa)?)(?<type>-$tmp$ext)/) {
+ Log("Compiling the file $+{name}$+{type} using [$msg_compiler]");
+ print "Compiling the file $+{name}$+{type} using ", color('magenta'), "[$msg_compiler]\r\n",color('reset');
+ # Compiling file
+ for (@compiler){
+ RUNOSCMD("$compiler $opt_compiler","$+{name}$+{type}",'show');
+ }
+ # Using dvips>ps2pdf
+ if ($compiler eq 'latex' or $compiler eq 'dvilualatex') {
+ RUNOSCMD("dvips $quiet -Ppdf", "-o $+{name}-$tmp.ps $+{name}-$tmp.dvi",'show');
+ RUNOSCMD("ps2pdf -sPDFSETTINGS=prepress -sAutoRotatePages=None", "$+{name}-$tmp.ps $+{name}-$tmp.pdf",'show');
+ }
+ # Moving and renaming temp files with source code
+ Infoline("Moving and renaming $+{name}$+{type} to $+{name}-all$ext");
+ if (-e "$imgdir/$+{name}-all$ext") {
+ Infocolor('Warning', "The file [$+{name}-all$ext] already exists and will be rewritten");
+ Log("Rewriting the file $+{name}-all$ext with all source for environments in $imgdirpath");
+ }
+ else {
+ Log("Writing the file $+{name}-all$ext with all source for environments in $imgdirpath");
+ }
+ if ($verbose){
+ Infocolor('Running', "mv $workdir/$+{name}$+{type} $imgdirpath/$+{name}-all$ext");
+ }
+ else {
+ Infocolor('Running', "mv $+{name}$+{type} ./$imgdir/$+{name}-all$ext");
+ }
+ Logline("[perl] move($workdir/$+{name}$+{type}, $imgdirpath/$+{name}-all$ext)");
+ move("$workdir/$+{name}$+{type}", "$imgdir/$+{name}-all$ext")
+ or die "* Error!!: Couldn't be renamed $+{name}$+{type} to $imgdir/$+{name}-all$ext";
+ # pdfcrop
+ if (!$nocrop) {
+ Infoline("Cropping the file $+{name}-$tmp.pdf");
+ RUNOSCMD("pdfcrop $opt_crop", "$+{name}-$tmp.pdf $+{name}-$tmp.pdf",'show');
+ }
+ # gray
+ if ($gray) {
+ Infoline("Creating the file $+{name}-all.pdf [gray] in $tempDir");
+ RUNOSCMD("$gscmd $quiet $opt_gs_dev{gray} ","-o $tempDir/$+{name}-all.pdf $workdir/$+{name}-$tmp.pdf",'show');
+ }
+ else {
+ Infoline("Creating the file $+{name}-all.pdf in $tempDir");
+ if ($verbose){
+ Infocolor('Running', "mv $workdir/$+{name}-$tmp.pdf $tempDir/$+{name}-all.pdf");
+ }
+ else { Infocolor('Running', "mv $+{name}-$tmp.pdf $tempDir/$+{name}-all.pdf"); }
+ # Renaming pdf file
+ Logline("[perl] move($workdir/$+{name}-$tmp.pdf, $tempDir/$+{name}-all.pdf)");
+ move("$workdir/$+{name}-$tmp.pdf", "$tempDir/$+{name}-all.pdf")
+ or die "* Error!!: Couldn't be renamed $+{name}-$tmp.pdf to $tempDir/$+{name}-all.pdf";
+ }
+ }
+ }
closedir $DIR;
-} # close $nopreview
-# Cerramos y abrimos con nopreview (gs por defecto)
-else{
-# Compilamos PSTexa usando gs
-if (-e "$tempDir/$name-exa$ext") {
-if ($xetex){
- system("xelatex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-exa$ext");
- system("pdfcrop $opt_pdfcrop -xetex $imageDir/$name-exa.pdf $imageDir/$name-exa.pdf");
- } # xelatex
-else{
- system("latex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-exa$ext");
- system("dvips -q -Ppdf -o $imageDir/$name-exa.ps $imageDir/$name-exa.dvi");
- system("ps2pdf -dPDFSETTINGS=/prepress $imageDir/$name-exa.ps $imageDir/$name-exa.pdf");
- system("pdfcrop $opt_pdfcrop $imageDir/$name-exa.pdf $imageDir/$name-exa.pdf");
- } # close latex>dvips>ps2pdf
-system("$::opt_gscmd $opt_gs_split -sOutputFile=$imageDir/$name-exa-%1d.pdf $imageDir/$name-exa.pdf");
+}
-# Eliminamos los fuentes
-if ($clear) {
- unlink "$imageDir/$name-exa.pdf";
- unlink "$tempDir/$name-exa$ext";
+### Create image formats in separate files
+if (!$norun) {
+ Log("Creating the image formats: $format, working on $tempDir");
+ opendir(my $DIR, $tempDir);
+ while (readdir $DIR) {
+ # PDF/PNG/JPG/BMP/TIFF format suported by ghostscript
+ if (/(?<name>$name-fig(-exa)?)(?<type>-all\.pdf)/) {
+ for my $var (qw(pdf png jpg bmp tif)) {
+ if (defined $opts_cmd{image}{$var}) {
+ Log("Generating format [$var] from file $+{name}$+{type} in $imgdirpath using $gscmd");
+ print 'Generating format', color('blue'), " [$var] ", color('reset'),"from file $+{name}$+{type}\r\n";
+ RUNOSCMD("$gscmd $quiet $opt_gs_dev{$var} ", "-o $workdir/$imgdir/$+{name}-%1d.$var $tempDir/$+{name}$+{type}",'show');
+ }
+ }
+ }
+ # EPS/PPM/SVG format suported by poppler-utils
+ if (/(?<name>$name-fig-exa)(?<type>-all\.pdf)/) { # pst-exa package
+ for my $var (qw(eps ppm svg)) {
+ if (defined $opts_cmd{image}{$var}) {
+ Log("Generating format [$var] from file $+{name}$+{type} in $imgdirpath using $cmd_poppler{$var}");
+ print 'Generating format', color('blue'), " [$var] ", color('reset'),"from file $+{name}$+{type}\r\n";
+ if (!$verbose){
+ Infocolor('Running', "$cmd_poppler{$var} $opt_poppler{$var}");
+ }
+ for (my $epsNo = 1; $epsNo <= $exaNo; $epsNo++) {
+ RUNOSCMD("$cmd_poppler{$var} $opt_poppler{$var}", "-f $epsNo -l $epsNo $tempDir/$+{name}$+{type} $workdir/$imgdir/$+{name}-$epsNo.$var",'only');
+ }
+ }
+ }
+ }
+ if (/(?<name>$name-fig)(?<type>-all\.pdf)/) {
+ for my $var (qw(eps ppm svg)) {
+ if (defined $opts_cmd{image}{$var}) {
+ Log("Generating format [$var] from file $+{name}$+{type} in $imgdirpath using $cmd_poppler{$var}");
+ print 'Generating format', color('blue'), " [$var] ", color('reset'),"from file $+{name}$+{type}\r\n";
+ if (!$verbose){
+ Infocolor('Running', "$cmd_poppler{$var} $opt_poppler{$var}");
+ }
+ for (my $epsNo = 1; $epsNo <= $envNo; $epsNo++) {
+ RUNOSCMD("$cmd_poppler{$var} $opt_poppler{$var}", "-f $epsNo -l $epsNo $tempDir/$+{name}$+{type} $workdir/$imgdir/$+{name}-$epsNo.$var",'only');
+ }
+ }
+ }
+ }
+ } # close while
+ closedir $DIR;
+ # Renaming PPM image files
+ if (defined $opts_cmd{image}{ppm}) {
+ Log("Renaming [ppm] images in $imgdirpath");
+ if ($verbose){
+ print 'Renaming', color('blue'), " [ppm] ", color('reset'),"images in $imgdirpath\r\n";
+ }
+ opendir(my $DIR, $imgdir);
+ while (readdir $DIR) {
+ if (/(?<name>$name-fig(-exa)?-\d+\.ppm)(?<sep>-\d+)(?<ppm>\.ppm)/) {
+ if ($verbose){
+ Infocolor('Running', "mv $+{name}$+{sep}$+{ppm} $+{name}");
+ }
+ Logline("[perl] move($imgdirpath/$+{name}$+{sep}$+{ppm}, $imgdirpath/$+{name})");
+ move("$imgdir/$+{name}$+{sep}$+{ppm}", "$imgdir/$+{name}")
+ or die "* Error!!: Couldn't be renamed $+{name}$+{sep}$+{ppm} to $+{name}";
+ }
+ }
+ closedir $DIR;
}
-} # close check file exist
+} # close run
-# Compilamos las imagenes y las separamos usando gs
-if (-e "$imageDir/$name-fig-1$ext") {
-if ($xetex){
- system("xelatex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-pst$ext");
- system("pdfcrop $opt_pdfcrop -xetex $imageDir/$name-pst.pdf $imageDir/$name-pst.pdf");
- } # xelatex
-else{
- system("latex -interaction=batchmode -output-directory=$imageDir $tempDir/$name-pst$ext");
- system("dvips -q -Ppdf -o $imageDir/$name-pst.ps $imageDir/$name-pst.dvi");
- system("ps2pdf -dPDFSETTINGS=/prepress $imageDir/$name-pst.ps $imageDir/$name-pst.pdf");
- system("pdfcrop $opt_pdfcrop $imageDir/$name-pst.pdf $imageDir/$name-pst.pdf");
- } # close latex>dvips>ps2pdf
-system("$::opt_gscmd $opt_gs_split -sOutputFile=$imageDir/$name-fig-%1d.pdf $imageDir/$name-pst.pdf");
-if ($clear) {
-unlink "$imageDir/$name-pst.pdf";
-unlink "$tempDir/$name-pst$ext";
-unlink "$tempDir/$name-fig$ext";
- } # end clear
- } # close check file exist
-} # close !nopreview (ghostscript)
-#--------------------------- Clear aux files ---------------------------
-if ($clear) {
-my @del_tmp;
-find(\&del_aux_tex, $imageDir);
-sub del_aux_tex{
-my $auximgfile = $_;
+### Constant
+my $findgraphicx = 'true';
-# search .(aux|dvi|log|ps)
-if(-f $auximgfile && $auximgfile =~ /\.(aux|dvi|log|ps)$/){
-push @del_tmp, $File::Find::name;
- }
-}
-unlink @del_tmp;
-}# end clear aux
+### Suport for pst-exa package
+my $pstexa = qr/(?:\\ usepackage) \[\s*(.+?)\s*\] (?:\{\s*(pst-exa)\s*\} ) /x;
+my @pst_exa;
+my %pst_exa;
-# Create xpdfrc conf for silent output pdftops/pdftoppm mesagge
-if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
+### Possible packages that load graphicx
+my @pkgcandidates = qw (
+ rotating epsfig lyluatex xunicode parsa xepersian-hm gregoriotex teixmlslides
+ teixml fotex hvfloat pgfplots grfpaste gmbase hep-paper postage schulealt
+ schule utfsym cachepic abc doclicense rotating epsfig semtrans mgltex
+ graphviz revquantum mpostinl cmpj cmpj2 cmpj3 chemschemex register papercdcase
+ flipbook wallpaper asyprocess draftwatermark rutitlepage dccpaper-base
+ nbwp-manual mandi fmp toptesi isorot pinlabel cmll graphicx-psmin ptmxcomp
+ countriesofeurope iodhbwm-templates fgruler combinedgraphics pax pdfpagediff
+ psfragx epsdice perfectcut upmethodology-fmt ftc-notebook tabvar vtable
+ teubner pas-cv gcard table-fct pdfpages keyfloat pdfscreen showexpl simplecd
+ ifmslide grffile reflectgraphics markdown bclogo tikz-page pst-uml realboxes
+ musikui csbulobalka lwarp mathtools sympytex mpgraphics miniplot.sty:77
+ dottex pdftricks2 feupphdteses tex4ebook axodraw2 hagenberg-thesis dlfltxb
+ hu-berlin-bundle draftfigure quicktype endofproofwd euflag othelloboard
+ pdftricks unswcover breqn pdfswitch latex-make figlatex repltext etsvthor
+ cyber xcookybooky xfrac mercatormap chs-physics-report tikzscale ditaa
+ pst-poker gmp CJKvert asypictureb hletter tikz-network powerdot-fuberlin
+ skeyval gnuplottex plantslabels fancytooltips ieeepes pst-vectorian
+ phfnote overpic xtuformat stubs graphbox ucs pdfwin metalogo mwe
+ inline-images asymptote UNAMThesis authorarchive amscdx pst-pdf adjustbox
+ trimclip fixmetodonotes incgraph scanpages pst-layout alertmessage
+ svg quiz2socrative realhats autopdf egplot decorule figsize tikzexternal
+ pgfcore frontespizio textglos graphicx tikz tcolorbox pst-exa
+ );
-if ($eps or $ppm) {
-open my $ppmconf, '>', "$tempDir/xpd";
-print $ppmconf <<'EOH';
-errQuiet yes
-EOH
-close $ppmconf;
- }
-}# end fix for windows
+my $pkgcandidates = join q{|}, map { quotemeta } sort { length $a <=> length $b } @pkgcandidates;
+$pkgcandidates = qr/$pkgcandidates/x;
+my @graphicxpkg;
-# options for other images type using ghostscript
-my $opt_gs_raw='-dGraphicsAlphaBits=4 -dTextAlphaBits=4 -dNOPAUSE -dBATCH ';
+### \graphicspath
+my $graphicspath= qr/\\ graphicspath \{ ((?: $llaves )+) \}/ix;
+my @graphicspath;
-# Creamos las imagenes en todos los formatos distintos a PDF
-opendir(my $DIR, $imageDir);
-while (readdir $DIR) {
-if (/(?<nombre>$name-(fig|exa)-\d+)(?<extension>\.pdf)/) {
+### Replacing the extracted environments with \includegraphics
+Log("Convert pstricks extracted environments to \\includegraphics for $name-pdf$ext");
+my $grap = "\\includegraphics[scale=1]{$name-fig-";
+my $close = '}';
+my $imgNo = 1;
+$bodydoc =~ s/$BP.+?$EP/$grap@{[$imgNo++]}$close/msg;
-# PNG format
-if ($png) {
-system("$::opt_gscmd -q -sDEVICE=pngalpha -r$DPI $opt_gs_raw -sOutputFile=$imageDir/$+{nombre}.png $imageDir/$+{nombre}.pdf");
- }
+### Add $atbegindoc to $preamble
+$preamble = "$atbegindoc$preamble";
-# JPEG format
-if ($jpg) {
-system("$::opt_gscmd -q -sDEVICE=jpeg -r$DPI -dJPEGQ=100 $opt_gs_raw -sOutputFile=$imageDir/$+{nombre}.jpg $imageDir/$+{nombre}.pdf");
- }
+### Remove content in preamble
+my @tag_remove_preamble = $preamble =~ m/(?:^\%<\*remove$tmp>.+?\%<\/remove$tmp>)/gmsx;
+if (@tag_remove_preamble) {
+ Log("Removing the content between <*remove> ... </remove> tags in preamble for $name-pdf$ext");
+ $preamble =~ s/^\%<\*remove$tmp>\s*(.+?)\s*\%<\/remove$tmp>(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
+}
-# SVG format
-if ($svg) {
- system("pdf2svg $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.svg");
- }
+### To be sure that the package is in the main document and not in a
+### verbatim write environment we make the changes using the hash and
+### range operator in a copy
+my %tmpreplace = (
+ 'graphicx' => 'TMPGRAPHICXTMP',
+ 'pst-exa' => 'TMPPSTEXATMP',
+ 'graphicspath' => 'TMPGRAPHICSPATHTMP',
+);
-# EPS format
-if ($eps) {
- if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
- system("pdftops -cfg $tempDir/xpd -q -level3 -eps $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.eps");
- }else{
- system("pdftops -q -level3 -eps $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.eps");
- }
- } # close EPS
+my $findtmp = join q{|}, map { quotemeta } sort { length $a <=> length $b } keys %tmpreplace;
+my $preambletmp = $preamble;
+my @lineas = split /\n/, $preambletmp;
-# PPM format
-if ($ppm) {
- if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
- system("pdftoppm -cfg $tempDir/xpd -q -r $DPI $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}");
- }else{
- system("pdftoppm -q -r $DPI $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}");
- }
- } # close PPM
- } # close finde regex
-} # close while
-closedir $DIR; #close dir
+### We remove the commented lines
+s/\%.*(?:[\t ]*(?:\r?\n|\r))?+//msg foreach @lineas;
-## Renombramos los ppm
-if ($ppm) {
-if (opendir(DIR,$dir)) { # abro el directorio
- while (my $oldname = readdir DIR) { # lo recorro
- # el nuevo nombre es fruto de una sustitución
- my $newname = $oldname =~ s/^($name-(fig|exa)-\d+)(-\d+).ppm$/$1 . ".ppm"/re;
-
- if ($oldname ne $newname) { # comprobación
- rename("$dir/$oldname", "$dir/$newname"); # renombro
- }
- }
- closedir DIR;
- } # close rename ppm
- } # close ppm
-} # cerramos runPSTimg
+### We make the changes in the environments verbatim write
+my $DEL;
+for (@lineas) {
+ if (/\\begin\{($verbatim_w\*?)(?{ $DEL = "\Q$^N" })\}/ .. /\\end\{$DEL\}/) {
+ s/($findtmp)/$tmpreplace{$1}/g;
+ }
+}
-#--------------------- Replace PST environment for images----------------
-sub runpdfTeX() {
+### Join lines in $preambletmp
+$preambletmp = join "\n", @lineas;
- my ($name,$pdfname) = @_;
- open my $PDF,'>',"$tempDir/$pdfname-pdf$ext";
- open my $FILE,'<',"$tempDir/$name-tmp$ext";
- my $ignore = 0;
- my $IMGno = 1;
- my $depth = -1;
- my $type = -1;
- my $EndDocument = 0; # ignore all after \end{document}
- my $iVerb = 0;
- 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}
- if ( !$iVerb ) {
- my $i = index($_,"end{document}");
- if ($i > 0) { print $PDF $_; $EndDocument++; LOG("EndDocument in runpdfTeX"); }
- if ( !$EndDocument ) {
- my $iPS = index($_,"begin{postscript}");
- if ( $iPS > 0 ) {
- $type = 2;
- $ignore = 1;
- if ($iPS > 1) { print $PDF substr($_,0,--$iPS); } # add preceeding text
- print $PDF "\\includegraphics[scale=1]{$pdfname-fig-$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 \\pspicture...
- if ( $iPST >= 0 ) { # start Scan
- $ignore = 1;
- $type = 1;
- $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=1]{$pdfname-fig-$IMGno}"; # use \graphicspath
- $IMGno=$IMGno+1;
- LOG("Increase Image counter: $IMGno");
+### We removed the blank lines
+$preambletmp =~ s/^(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
+
+### Now we're trying to capture
+ at graphicxpkg = $preambletmp =~ m/($pkgcandidates)/gmsx;
+if (@graphicxpkg) {
+ Log("Found graphicx package in preamble for $name-pdf$ext");
+ $findgraphicx = 'false';
+}
+
+### Search graphicspath
+ at graphicspath = $preambletmp =~ m/graphicspath/msx;
+if (@graphicspath) {
+ Log("Found \\graphicspath in preamble for $name-pdf$ext");
+ $findgraphicx = 'false';
+ while ($preamble =~ /$graphicspath /pgmx) {
+ my ($pos_inicial, $pos_final) = ($-[0], $+[0]);
+ my $encontrado = ${^MATCH};
+ if ($encontrado =~ /$graphicspath/) {
+ my $argumento = $1;
+ if ($argumento !~ /\{$imgdir\/\}/) {
+ $argumento .= "\{$imgdir/\}";
+ my $cambio = "\\graphicspath{$argumento}";
+ substr $preamble, $pos_inicial, $pos_final-$pos_inicial, $cambio;
+ pos($preamble) = $pos_inicial + length $cambio;
}
- }
}
- 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
- $ignore = 0;
- $type=-1;
- } # 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 (index($_,"endpspicture") > 0) # add rest of line, depends to type
- { print $PDF substr($_,$iPST+12); } # \endpspicture
- elsif (index($_,"pspicture*") > 0)
- { print $PDF substr($_,$iPST+15); } # \end{pspicture*}
- else{ print $PDF substr($_,$iPST+14); } # \end{pspicture}
- $depth--;
- LOG("Decrease depth: $depth");
- if ($depth < 0) { $ignore = 0; }
- }
- }
- } # if ( !$EndDocument )
- } else { print $PDF $_; } # if ( $iVerb )
- if (( index($_,"end{verbatim}") > 0 ) or ( index($_,"end{lstlisting}") > 0 )) { $iVerb = 0; }
- } # while (<$FILE>)
- close $FILE;
- close $PDF;
-## Close generate file
-if ($clear) {
-unlink "$tempDir/$pdfname-tmp$ext";
-#unlink "$tempDir/$pdfname-fig$ext";
+ }
}
-#------------------- Clean pstpack, reverse changes --------------------
-## Leer archivo
-open my $INFILE, '<', "$tempDir/$pdfname-pdf$ext";
-my $IPDF;
-{
- local $/;
- $IPDF = <$INFILE>;
+
+### Search pst-exa
+ at pst_exa = $preambletmp =~ m/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|$pstexa/xg;
+%pst_exa = map { $_ => 1 } @pst_exa;
+if (@pst_exa) {
+ Log("Comment pst-exa package in preamble for $name-pdf$ext");
+ $findgraphicx = 'false';
+ $preamble =~ s/(\\usepackage\[)\s*(swpl|tcb)\s*(\]\{pst-exa\})/\%$1$2,pdf$3/msxg;
}
-close $INFILE;
+if (exists $pst_exa{tcb}) {
+ Log("Suport for \\usepackage[tcb,pdf]\{pst-exa\} for $name-pdf$ext");
+ $bodydoc =~ s/(graphic=\{)\[(scale=\d*)\]($imgdir\/$name-fig-exa-\d*)\}/$1$2\}\{$3\}/gsmx;
+}
-## Constantes
-my $BEGINDOC = quotemeta('\begin{document}');
-my $USEPACK = quotemeta('\usepackage');
-my $GRAPHICX = quotemeta('{graphicx}');
+### Try to capture arara:compiler in preamble of <output file>
+my @arara_engines = qw (latex pdflatex lualatex xelatex luahbtex);
+my $arara_engines = join q{|}, map { quotemeta} sort { length $a <=> length $b } @arara_engines;
+$arara_engines = qr/\b(?:$arara_engines)/x;
+my $arara_rule = qr /^(?:\%\s{1}arara[:]\s{1}) ($arara_engines) /msx;
-## Exp. Reg.
+### Capture graphicx.sty in .log of LaTeX file
+if ($findgraphicx eq 'true') {
+ Log("Couldn't capture the graphicx package for $name-pdf$ext in preamble");
+ my $ltxlog;
+ my @graphicx;
+ my $null = devnull();
+ Log("Creating $name-fig-$tmp$ext [only preamble]");
+ if ($verbose) { say "Creating [$name-fig-$tmp$ext] with only preamble"; }
+ open my $OUTfile, '>', "$name-fig-$tmp$ext";
+ print {$OUTfile} "$preamble\n\\stop";
+ close $OUTfile;
+ # Set compiler
+ if ($opts_cmd{compiler}{arara}) {
+ my @engine = $preamble =~ m/$arara_rule/msx;
+ my %engine = map { $_ => 1 } @engine;
+ if (%engine) {
+ for my $var (@arara_engines) {
+ if (defined $engine{$var}) {
+ $compiler = $var;
+ }
+ }
+ }
+ else { $compiler = 'pdflatex'; }
+ }
+ if ($compiler eq 'latex') { $compiler = 'pdflatex'; }
+ if ($compiler eq 'dvilualatex') { $compiler = 'lualatex'; }
+ # Compiling file
+ RUNOSCMD("$compiler $write18 -interaction=batchmode", "$name-fig-$tmp$ext >$null", 'only');
+ # Restore arara compiler
+ if ($arara) { $compiler = 'arara'; }
+ Log("Search graphicx package in $name-fig-$tmp.log");
+ open my $LaTeXlog, '<', "$name-fig-$tmp.log";
+ {
+ local $/;
+ $ltxlog = <$LaTeXlog>;
+ }
+ close $LaTeXlog;
+ # Try to capture graphicx
+ @graphicx = $ltxlog =~ m/.+? (graphicx\.sty)/xg;
+ if (@graphicx) {
+ Log("Found graphicx package in $name-fig-$tmp.log");
+ }
+ else {
+ Log("Not found graphicx package in $name-fig-$tmp.log");
+ Log("Add \\usepackage\{graphicx\} to preamble of $name-pdf$ext");
+ $preamble= "$preamble\n\\usepackage\{graphicx\}";
+ }
+}
-my $CORCHETES = qr/\[ [^]]*? \]/x;
-my $PALABRAS = qr/\b (?: pst-\w+ | pstricks (?: -add )? | psfrag |psgo |vaucanson-g| auto-pst-pdf | graphicx )/x;
-my $FAMILIA = qr/\{ \s* $PALABRAS (?: \s* [,] \s* $PALABRAS )* \s* \}/x;
+### Regex for clean (pst-?) in preamble
+$PALABRAS = qr/\b (?: pst-\w+ | pstricks (?: -add | -pdf )? | psfrag |psgo |vaucanson-g| auto-pst-pdf(?: -lua )? )/x;
+$FAMILIA = qr/\{ \s* $PALABRAS (?: \s* [,] \s* $PALABRAS )* \s* \}(\%*)?/x;
-## Dividir el archivo
-my($cabeza, $cuerpo) = $IPDF =~ m/\A (.+?) ($BEGINDOC .+?) \z/msx;
+Log("Remove pstricks packages in preamble for $name-pdf$ext");
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ ^ $USEPACK (?: $CORCHETES )? $FAMILIA \s*//msxg;
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ (?: ^ $USEPACK \{ | \G) [^}]*? \K (,?) \s* $PALABRAS (\s*) (,?) /$1 and $3 ? ',' : $1 ? $2 : ''/gemsx;
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\psset\{(?:\{.*?\}|[^\{])*\}(?:[\t ]*(?:\r?\n|\r))+//gmsx;
+$preamble =~ s/\%<\*$dtxverb> .+?\%<\/$dtxverb>(*SKIP)(*F)|
+ \\SpecialCoor(?:[\t ]*(?:\r?\n|\r))+//gmsx;
+$preamble =~ s/^\\usepackage\{\}(?:[\t ]*(?:\r?\n|\r))+/\n/gmsx;
-## Revisamos si esta cargado pst-exa
-my $pstTcbload = 0; # Buscamos si esta cargado \usepackage[...]{pst-exa}
-$pstTcbload = index($cabeza,"usepackage[tcb]{pst-exa}");
+if (@pst_exa) {
+ Log("Uncomment pst-exa package in preamble for $name-pdf$ext");
+ $preamble =~ s/(?:\%)(\\usepackage\[\s*)(swpl|tcb)(,pdf\s*\]\{pst-exa\})/$1$2$3/msxg;
+}
-## Filtrado
-# comentar
-$cabeza =~ s/ ^ ($USEPACK $CORCHETES $GRAPHICX) /%$1/msxg;
-
-# eliminar líneas enteras
-$cabeza =~ s/ ^ $USEPACK (?: $CORCHETES )? $FAMILIA \n//msxg;
-
-# eliminar palabras sueltas
-$cabeza =~ s/ (?: ^ $USEPACK \{ | \G) [^}]*? \K (,?) \s* $PALABRAS (\s*) (,?) /$1 and $3 ? ',' : $1 ? $2 : ''/gemsx;
-
-## Añadir
+### Add last lines
+if (!@graphicspath) {
+ Log("Not found \\graphicspath in preamble for $name-pdf$ext");
+ Log("Add \\graphicspath\{\{$imgdir/\}\} to preamble for $name-pdf$ext");
+ $preamble= "$preamble\n\\graphicspath\{\{$imgdir/\}\}";
+}
+Log("Add \\usepackage\{grfext\} to preamble for $name-pdf$ext");
+$preamble = "$preamble\n\\usepackage\{grfext\}";
+Log("Add \\PrependGraphicsExtensions\*\{\.pdf\} to preamble for $name-pdf$ext");
+$preamble = "$preamble\n\\PrependGraphicsExtensions\*\{\.pdf\}";
+$preamble =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+$preamble =~ s/^\\usepackage\{\}(?:[\t ]*(?:\r?\n|\r))+/\n/gmsx;
+$preamble =~ s/^(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
-$cabeza .= <<"EXTRA";
-\\usepackage{graphicx}
-\\graphicspath{{$imageDir/}}
-\\usepackage{grfext}
-\\PrependGraphicsExtensions*{.pdf}
-EXTRA
+### Create a <output file>
+my $out_file = "$preamble\n$bodydoc\n$enddoc";
-## Verificamos que exista el archivo
-if (-e "$imageDir/$name-exa-1$ext") {
-if ($pstTcbload > 1) {
-# Cambiamos de swpl a tcb con una expresion regular
-$cuerpo =~ s/(graphic=\{)\[(scale=\d*)\]($imageDir\/$pdfname-exa-\d*)\}/$1$2\}\{$3\}/gsmx;
+### Clean \psset content in output file
+$out_file =~ s/\\begin\{nopreview\}\%$tmp.+?\\end\{nopreview\}\%$tmp(*SKIP)(*F)|
+ \%<\*$dtxverb> .+? \%<\/$dtxverb>(*SKIP)(*F)|
+ \\psset\{(?:\{.*?\}|[^\{])*\}(?:[\t ]*(?:\r?\n|\r))?+//gmsx;
-# Se añade la opción [tcb] al paquete pst-exa
-$cabeza .= <<"EXTRA";
-\\usepackage[pdf,tcb]{pst-exa}
-EXTRA
-} # close if
-else{
-# print "Se añade la opción swpl al paquete pst-exa\n";
-$cabeza .= <<"EXTRA";
-\\usepackage[swpl]{pst-exa}
-EXTRA
- }
-} # close regex for pst-exa pack
+### Revert preview environments
+if (@env_preview) {
+ Log("Revert \\begin{nopreview}\%TMP$tmp ... \\end{nopreview}\%TMP$tmp");
+ $out_file =~ s/\\begin\{nopreview\}\%TMP$tmp
+ (?<code> .+?)
+ \\end\{nopreview\}\%TMP$tmp
+ /\\begin\{preview\}$+{code}\\end\{preview\}/gmsx;
+}
-### Clear PST content in preamble
-$cabeza =~ s/\\usepackage\{\}/%delete by pst2pdf/gmsx;
-$cabeza =~ s/^\\psset\{.+?\}/%\\psset delete by pst2pdf/gmsx;
-$cabeza =~ s/\\SpecialCoor/%\\SpecialCoor delete by pst2pdf/gmsx;
-$cabeza =~ s/^%CleanPST .+? %CleanPST/% Clean PST by pst2pdf/gmsx;
+$out_file =~ s/\\begin\{nopreview\}%$tmp
+ (?<code>\\begin\{PSTexample\} .+? \\end\{PSTexample\})
+ \\end\{nopreview\}%$tmp
+ /$+{code}/gmsx;
-### Delete extra psset{..} in body
-$cuerpo =~ s/\\psset\{[^\}]+\}(\s*\\includegraphics\[scale=1\]\{$pdfname-fig-\d*\})/$1/gms;
+### Remove internal mark for verbatim and verbatim write environments
+$out_file =~ s/\%<\*$dtxverb>(.+?)\%<\/$dtxverb>/$1/gmsx;
+%replace = (%changes_out);
+$find = join q{|}, map {quotemeta} sort { length $a <=> length $b } keys %replace;
+$out_file =~ s/($find)/$replace{$1}/g;
-### Back
-my %cambios = (
- '\TRICKS' => '\pspicture',
- '\ENDTRICKS' => '\endpspicture',
- '\begin{PSTEXAMPLE' => '\begin{PSTexample',
- '\end{PSTEXAMPLE' => '\end{PSTexample',
- '\begin{TRICKS' => '\begin{pspicture',
- '\end{TRICKS' => '\end{pspicture',
- '\begin{POSTRICKS}' => '\begin{postscript}' ,
- '\end{POSTRICKS}' => '\end{postscript}' ,
- '\begin{DOCTRICKS}' => '\begin{document}' ,
- '\end{DOCTRICKS}' => '\end{document}'
-);
+### Write <output file>
+if (-e "$name-pdf$ext") {
+ Log("Rewriting the file $name-pdf$ext in $workdir");
+ Infocolor('Warning', "The file [$name-pdf$ext] already exists and will be rewritten");
+}
+else{
+ Infoline("Creating the file $name-pdf$ext");
+ Log("Write the file $name-pdf$ext in $workdir");
+}
+open my $OUTfile, '>', "$name-pdf$ext";
+ print {$OUTfile} $out_file;
+close $OUTfile;
-## Recorremos el archivo y realizamos los cambios
-while (my($busco, $cambio) = each %cambios) {
- $cabeza =~ s/\Q$busco\E/$cambio/g;
- $cuerpo =~ s/\Q$busco\E/$cambio/g;
- }
+### Set compiler for process <output file>
+$compiler = $xetex ? 'xelatex'
+ : $luatex ? 'lualatex'
+ : 'pdflatex'
+ ;
-## Escribimos en el mismo archivo
-open my $SALIDA, '>', "$tempDir/$pdfname-pdf$ext";
-print $SALIDA "$cabeza$cuerpo";
-close $SALIDA;
-#
+### Set options for latexmk
+my $ltxmkopt = $xetex ? "-pdfxe -silent -xelatex=\"xelatex $write18 -recorder %O %S\""
+ : $luatex ? "-pdflua -silent -lualatex=\"lualatex $write18 -recorder %O %S\""
+ : "-pdf -silent -pdflatex=\"pdflatex $write18 -recorder %O %S\""
+ ;
+### Set options for compiler
+$opt_compiler = $arara ? '--log'
+ : $latexmk ? "$ltxmkopt"
+ : "$write18 -interaction=nonstopmode -recorder"
+ ;
-my $runAgain = 0;
-
-if($xetex){ # xelatex mode
-if ($noImages){
- print "The file $pdfname-pdf$ext are created (Xe)LaTeX\n";
- }
-else{
- system("xelatex -interaction=batchmode $tempDir/$pdfname-pdf");
- print "Done, compiled $pdfname-pdf$ext using (Xe)LaTeX\n";
+### Set compiler name for arara and latexmk
+if ($arara) { $compiler = $msg_compiler = 'arara'; }
+if ($latexmk) { $compiler = $msg_compiler = 'latexmk'; }
+
+### Process <output file>
+if (!$norun) {
+ Log("Compiling the file $name-pdf$ext using [$msg_compiler]");
+ print "Compiling the file $name-pdf$ext using ", color('magenta'), "[$msg_compiler]\r\n",color('reset');
+ RUNOSCMD("$compiler $opt_compiler", "$name-pdf$ext",'show');
+ # biber
+ if ($runbiber && -e "$name-pdf.bcf" && !$arara && !$latexmk) {
+ RUNOSCMD("biber", "$name-pdf",'show');
+ RUNOSCMD("$compiler $opt_compiler", "$name-pdf$ext",'show');
}
+ # bibtex
+ if ($runbibtex && -e "$name-pdf.aux" && !$arara && !$latexmk) {
+ RUNOSCMD("bibtex", "$name-pdf",'show');
+ RUNOSCMD("$compiler $opt_compiler", "$name-pdf$ext",'show');
}
-else{ #pdflatex mode
-if ($noImages){
- print "The file $pdfname-pdf$ext are created (pdf)LaTeX\n";
+}
+
+### Remove temporary files
+my @tmpfiles;
+my @protected = qw();
+my $flsline = 'OUTPUT';
+my @flsfile;
+
+### Protect generated files
+push @protected, "$name-pdf$ext", "$name-pdf.pdf";
+
+### Find files
+find(\&aux_files, $workdir);
+sub aux_files{
+ my $findtmpfiles = $_;
+ if (-f $findtmpfiles && $findtmpfiles =~ m/$name-fig(-exa)?-$tmp.+?$/) { # search
+ push @tmpfiles, $_;
}
-else{
- system("pdflatex -interaction=batchmode $tempDir/$pdfname-pdf$ext");
- print "Done, compiled $pdfname-pdf$ext using (pdf)LaTeX\n";
- }
+ return;
}
-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){
- if($xetex){
- system("xelatex -interaction=batchmode $tempDir/$pdfname-pdf");
- }
- else{
- system("pdflatex -interaction=batchmode $tempDir/$pdfname-pdf");
- }
+### Add if exists
+if (-e 'arara.log') {
+ push @flsfile, 'arara.log';
+}
+if (-e "$name-fig-$tmp.fls") {
+ push @flsfile, "$name-fig-$tmp.fls";
+}
+if (-e "$name-fig-exa-$tmp.fls") {
+ push @flsfile, "$name-fig-exa-$tmp.fls";
+}
+if (-e "$name-pdf.fls") {
+ push @flsfile, "$name-pdf.fls";
+}
+
+### Read .fls file
+for my $filename(@flsfile){
+ open my $RECtmp, '<', $filename;
+ push @tmpfiles, grep /^$flsline/,<$RECtmp>;
+ close $RECtmp;
+}
+
+foreach (@tmpfiles) { s/^$flsline\s+|\s+$//g; }
+push @tmpfiles, @flsfile;
+
+ at tmpfiles = uniq(@tmpfiles);
+ at tmpfiles = array_minus(@tmpfiles, @protected);
+
+Log('The files that will be deleted are:');
+Logarray(\@tmpfiles);
+
+### Remove only if exist
+if (@tmpfiles) {
+ Infoline("Remove temporary files created in $workdir");
+ foreach my $tmpfiles (@tmpfiles) {
+ move($tmpfiles, $tempDir);
}
-} #close sub run pdfTEX
+}
-#----------------------------- Write LOG file --------------------------
-sub LOG() {
- if ( $Verbose ) { print $LOGfile "@_\n"; }
- }
-#-------------------------- Clear all tmp files ------------------------
-if ($clear) {
+### Find dirs created by minted
+my @deldirs;
+my $mintdir = "\_minted\-$name-fig-$tmp";
+my $mintdirexa = "\_minted\-$name-fig-exa-$tmp";
+if (-e $mintdir) { push @deldirs, $mintdir; }
+if (-e $mintdirexa) { push @deldirs, $mintdirexa; }
-if (-e "$tempDir/$name-pst$ext") {
-unlink "$tempDir/$name-pst$ext";
+Log('The directory that will be deleted are:');
+Logarray(\@deldirs);
+
+### Remove only if exist
+if (@deldirs) {
+ Infoline("Remove temporary directories created by minted in $workdir");
+ foreach my $deldirs (@deldirs) {
+ remove_tree($deldirs);
+ }
}
- my @del_pdf_tmp;
- find(\&del_pdf_aux, $tempDir);
- sub del_pdf_aux{
- my $auximgfile = $_;
- if(-f $auximgfile && $auximgfile =~ /\.(aux|dvi|log|ps|idx|bfc|bib|preamble)$/){
- push @del_pdf_tmp, $File::Find::name;
- }
- } # close sub
-unlink @del_pdf_tmp; # delte files
-if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){
-if ($eps or $ppm){
- unlink "$tempDir/xpd";
- }
+### Compress "./images" with generated files
+my $archivetar;
+if ($zip or $tar) {
+ my $stamp = strftime("%Y-%m-%d", localtime);
+ $archivetar = "$imgdir-$stamp";
+
+ my @savetozt;
+ find(\&zip_tar, $imgdir);
+ sub zip_tar{
+ my $filesto = $_;
+ if (-f $filesto && $filesto =~ m/$name-fig-.+?$/) { # search
+ push @savetozt, $File::Find::name;
+ }
+ return;
+ }
+ Log("The files are compress found in $imgdirpath are:");
+ Logarray(\@savetozt);
+ if ($zip) {
+ if (-e "$archivetar.zip") {
+ Infocolor('Warning', "The file [$archivetar.zip] already exists and will be rewritten");
+ Log("Rewriting the file $archivetar.zip in $workdir");
+ }
+ else{
+ print "Creating the file ", color('magenta'), "[$archivetar.zip]",
+ color('reset'), " with generate files in ./$imgdir\r\n";
+ Log("Writen the file $archivetar.tar.gz in $workdir");
+ }
+ zip \@savetozt => "$archivetar.zip";
+ }
+ if ($tar) {
+ if (-e "$archivetar.tar.gz") {
+ Infocolor('Warning', "The file [$archivetar.tar.gz] already exists and will be rewritten");
+ Log("Rewriting the file $archivetar.tar.gz in $workdir");
+ }
+ else{
+ print "Creating the file ", color('magenta'), "[$archivetar.tar.gz]",
+ color('reset'), " with generate files in ./$imgdir\r\n";
+ Log("Writen the file $archivetar.tar.gz in $workdir");
+ }
+ my $imgdirtar = Archive::Tar->new();
+ $imgdirtar->add_files(@savetozt);
+ $imgdirtar->write( "$archivetar.tar.gz" , 9 );
+ }
}
-if(!$Verbose) {
- unlink "$tempDir/$name.plog";
- }
-} # close clear
-# Clear source files
-if ($noSource) {
-my @del_src;
-find(\&del_src_tex, $imageDir);
-sub del_src_tex{
-my $srcimg = $_;
-# search image file source
-if(-f $srcimg && $srcimg =~ /($name-(fig|exa)-\d+)$ext/){
-push @del_src, $File::Find::name;
- }
+### End of script process
+if (!$norun && !$nosource) {
+ Log("The image files: $format and generated files are in $imgdirpath");
}
-unlink @del_src;
-}# end source clear
+if (!$norun && $nosource) {
+ Log("The image files: $format are in $imgdirpath");
+}
+if ($norun && !$nosource) {
+ Log("The generated files are in $imgdirpath");
+}
+Log("The output file $name-pdf$ext are in $workdir");
+Infocolor('Finish', "The execution of $scriptname has been successfully completed");
+
+Log("The execution of $scriptname has been successfully completed");
+
__END__
More information about the tex-live-commits
mailing list.