diff options
author | Karl Berry <karl@freefriends.org> | 2014-09-24 21:43:37 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-09-24 21:43:37 +0000 |
commit | ab53e4ac1fa7c4f7e35d26bc4fa9b055305371ee (patch) | |
tree | 134786a15c6da7f5cfa284e97debc034925b89ab /Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl | |
parent | b6cb826a8d5edf82e16adf164bea852ebc88cf97 (diff) |
pst2pdf (24sep14)
git-svn-id: svn://tug.org/texlive/trunk@35247 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl')
-rwxr-xr-x | Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl | 1382 |
1 files changed, 980 insertions, 402 deletions
diff --git a/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl b/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl index 568f0aef049..01b7a946e5f 100755 --- a/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl +++ b/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl @@ -1,12 +1,12 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' if 0; -use strict; # to be sure, that all is safe ... :-) - -# $Id: pst2pdf.pl 611 2011-12-14 08:41:35Z herbert $ -# v. 0.15 simplify the use of PSTricks with pdf -# 2011-12-12 (c) Herbert Voss <hvoss@tug.org> -# Pablo González Luengo +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.16 2014-09-14 simplify the use of PSTricks with pdf +# 2014-09-24 (c) Herbert Voss <hvoss@tug.org> +# Pablo González Luengo <pablogonz@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 @@ -23,39 +23,46 @@ use strict; # to be sure, that all is safe ... :-) # 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 File::Basename; # scan argument use IO::File; # simple IO operation -use Getopt::Long; # read parameter -use autodie; # more safe +use Getopt::Long qw(:config bundling_override); # read parameter and activate "bundling" +use autodie; # more safe +use Config; +use File::Spec; +use File::Find; + #----------------------- User part begin ------------------------ -my $imageDir = "images"; # where to save the images -my $Iext = ".pdf"; # leave empty, if not a special one my $tempDir = "."; # temporary directory -my $verbose = 0; # 0 or 1, logfile +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 = 75; # very low value for the png's -my $Iscale = 1; # for \includegraphics +my $DPI = 300; # very low value for the png's my $noImages = 0; # 1->no create images -my $single = 0; # 1->create images in single mode +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 $files = 1; # 1->create image files .tex +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 $PS2 = " "; # Options for ps2pdf -#----------------------- User part end --------------------------- -#-------------- program identification, options and help --------- -my $program = "pst2pdf"; -my $nv="0.15"; -my $ident = '$Id: pst2pdf.pl 611 2011-12-14 08:41:35Z herbert $'; +my $exacount = 1; # Counter for PSTexample +my $noSource = 0; # Delete TeX source for images +my $other = "other"; # search other verbatim environment +#------------------------- User part end ------------------------------- + +#---------------- Program identification, options and help ------------- +my $program = 'pst2pdf'; +my $nv='v0.16'; +my $ident = '$Id: pst2pdf.pl 119 2014-09-24 12:04:09Z herbert $'; my $copyright = <<END_COPYRIGHT ; -Copyright 2011-2013 (c) Herbert Voss <hvoss\@tug.org> and Pablo González. +Copyright 2011-2014 (c) Herbert Voss <hvoss\@tug.org> and Pablo González. END_COPYRIGHT my $licensetxt= <<END_LICENSE ; This program is free software; you can redistribute it and/or modify @@ -64,60 +71,76 @@ my $licensetxt= <<END_LICENSE ; (at your option) any later version. END_LICENSE +my $version= <<END_VERSION ; +${program} ${nv} ${ident} +${copyright} +END_VERSION my $title = "$program $nv $ident\n"; my $usage = <<"END_OF_USAGE"; ${title}Usage: $program <texfile.tex> [Options] -pst2pdf run a TeX source, read all PS-related part and convert in - single images in pdf,eps,jpg or png format (default pdf) and - create new file whitout pst-enviroment and runs (pdf/Xe)latex. +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-enviroment and runs (pdf/Xe)latex. See pst2pdf documentation for more info. Options: - -h,-help - display this help and exit - -l,-license - display license information and exit - -imageDir= - the dir for the created images (default images) - -d,-DPI=<int> - the dots per inch for a cretaed ppm files (default 75) - -j,-jpg - create .jpg files (need pdftoppm and ImageMagick) - -p,-png - create .png files (need pdftoppm and ImageMagick) - -e,-eps - create .eps files (need pdftops) - -Iscale=<real> - the value for [scale=] in \\includegraphics - -noImages - generate file-pdf.tex, but not images - -v,-verbose - creates log file (.plog) - -c,-clear - delete all tmp files - -runBibTeX - run bibtex on the aux file, if exists - -runBiber - run biber on the bcf file, if exists - -s,-single - create images whitout pdftk - -a,-all - create all image type and images.tex - -x,-xetex - using (Xe)LaTeX for compilation - -PS2=<opt> - pass options to ps2pdf (default empty) + -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 -all -* produce test-pdf.tex whitout pst-enviroment and create image dir -* whit all images (pdf,eps,jpg,png) and source(.tex) for all pst-enviroment +* $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 +* enviroment in "pics" dir using Ghostscript and cleaning all tmp files. +* suport bundling for short options $program test.tex -epjc --imgdir=pics END_OF_USAGE # my $result=GetOptions ( - 'h|help' => \$::opt_help, - 'l|license' => \$::opt_license, - 'd|DPI=i' => \$DPI, # numeric - "Iscale=f" => \$Iscale, # real - "imageDir=s" => \$imageDir, # string - "PS2=s" => \$PS2, # string - "tempDir=s" => \$tempDir, # string - "Iext=s" => \$Iext, # string - 'c|clear' => \$clear, # flag - "noImages" => \$noImages, # flag - 's|single' => \$single, # flag - "runBibTeX" => \$runBibTeX, # flag - 'e|eps' => \$eps, # flag - 'j|jpg' => \$jpg, # flag - 'p|png' => \$png, # flag - 'a|all' => \$all, # flag - 'x|xetex' => \$xetex, # flag - "runBiber" => \$runBiber, # flag - 'v|verbose' => \$verbose, + '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"; } +sub errorUsage { + die "Error: @_ (try --help for more information)\n"; + } + # options for command line if ($::opt_help) { print $usage; @@ -129,36 +152,240 @@ if ($::opt_license) { print $licensetxt; exit (0); } +if ($::opt_version) { +print $version; + exit (0); +} + # 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]; -my @SuffixList = (".tex","",".ltx"); # possible extensions -my ($name,$path,$ext) = fileparse($ARGV[0],@SuffixList); -if ($ext eq "") { $ext = ".tex"; } # me need the extension as well -my $TeXfile = "$path$name$ext"; +#------------------------ 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; + +#--------------------- Directorio destino de imágenes ------------------ +-e $imageDir or mkdir($imageDir,0744) or die "No puedo crear $imageDir: $!\n"; + +# expresion regular para swpl +my $graphics = "graphic=\{\[scale=1\]$imageDir/$name-exa"; + +# directorio en el cual están las imágenes +my $dir = "$tempDir/$imageDir"; + +# archivo de entrada para el resto del script +my $TeXfile = "$tempDir/$name-tmp$ext"; + + +#----------------------------- Search GS ------------------------------ +# The next code its part of pdfcrop from TexLive 2014 +# Windows detection +my $Win = 0; +$Win = 1 if $^O =~ /mswin32/i; +$Win = 1 if $^O =~ /cygwin/i; + +my $archname = $Config{'archname'}; +$archname = 'unknown' unless defined $Config{'archname'}; + +# get Ghostscript command name +$::opt_gscmd = ''; +sub find_ghostscript () { + return if $::opt_gscmd; + if ($Verbose) { + print "* Perl executable: $^X\n"; + if ($] < 5.006) { + print "* Perl version: $]\n"; + } + else { + printf "* Perl version: v%vd\n", $^V; + } + if (defined &ActivePerl::BUILD) { + printf "* 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'); + } + 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; + 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|] + ); + if ($system eq 'win' or $system eq 'cygwin' or $system eq 'miktex') { + if ($archname =~ /mswin32-x64/i) { + my @a = (); + foreach my $name (@{$candidates{$system}}) { + push @a, 'gswin64c' if $name eq 'gswin32c'; + push @a, $name; + } + $candidates{$system} = \@a; + } + } + my %exe = ( + 'unix' => '', + 'dos' => '.exe', + 'os2' => '.exe', + 'win' => '.exe', + 'cygwin' => '.exe', + 'miktex' => '.exe' + ); + my $candidates_ref = $candidates{$system}; + my $exe = $Config{'_exe'}; + $exe = $exe{$system} unless defined $exe; + my @path = File::Spec->path(); + my $found = 0; + foreach my $candidate (@$candidates_ref) { + foreach my $dir (@path) { + my $file = File::Spec->catfile($dir, "$candidate$exe"); + if (-x $file) { + $::opt_gscmd = $candidate; + $found = 1; + print "* Found ($candidate): $file\n" if $Verbose; + last; + } + print "* Not found ($candidate): $file\n" if $Verbose; + } + last if $found; + } + if (not $found and $Win) { + $found = SearchRegistry(); + } + if ($found) { + print "* Autodetected ghostscript command: $::opt_gscmd\n" if $Verbose; + } + else { + $::opt_gscmd = $$candidates_ref[0]; + print "* Default ghostscript command: $::opt_gscmd\n" if $Verbose; + } +} + +sub SearchRegistry () { + my $found = 0; + eval 'use Win32::TieRegistry qw|KEY_READ REG_SZ|;'; + if ($@) { + if ($Verbose) { + print "* Registry lookup for Ghostscript failed:\n"; + my $msg = $@; + $msg =~ s/\s+$//; + foreach (split /\r?\n/, $msg) { + print " $_\n"; + } + } + return $found; + } + my $open_params = {Access => KEY_READ(), Delimiter => '/'}; + 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; + return $found; + } + print "* Search registry at `$current_key'.\n" if $Verbose; + 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; + my $key_gs = $software->Open($key_name_gs, $open_params); + if (not $key_gs) { + print "* Cannot open registry key `$current_key'!\n" if $Verbose; + 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 (not $key_name_version =~ /^(\d+)\.(\d+)$/) { + print " The sub key is not a version number!\n" if $Verbose; + next; + } + my $version_main = $1; + my $version_sub = $2; + $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; + 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; + $value =~ s|([\\/])([^\\/]+\.dll)$|$1gswin32c.exe|i; + my $value64 = $value; + $value64 =~ s/gswin32c\.exe$/gswin64c.exe/; + if ($archname =~ /mswin32-x64/i and -f $value64) { + $value = $value64; + } + if (-f $value) { + print " EXE found: $value\n" if $Verbose; + } + else { + print " EXE not found!\n" if $Verbose; + next; + } + my $sortkey = sprintf '%02d.%03d %s', + $version_main, $version_sub, $key_name_gs; + $list{$sortkey} = $value; + } + else { + print " Missing key `GS_DLL' with type `REG_SZ'!\n" if $Verbose; + } + } + } + foreach my $entry (reverse sort keys %list) { + $::opt_gscmd = $list{$entry}; + print "* Found (via registry): $::opt_gscmd\n" if $Verbose; + $found = 1; + last; + } + return $found; +} + +find_ghostscript(); + +if ($Win and $::opt_gscmd =~ /\s/) { + $::opt_gscmd = "\"$::opt_gscmd\""; +} +# end GS search + open my $LOGfile,'>', "$tempDir/$name.plog"; # our own log file LOG ("Parameters:"); - LOG ("==> imageDir = $imageDir"); - LOG ("==> Iext = $Iext"); - LOG ("==> DPI = $DPI"); - LOG ("==> PS2 = $PS2"); - LOG ("==> Iscale = $Iscale"); - LOG ("==> tempDir = $tempDir"); - LOG ("==> verbose = $verbose"); - LOG ("==> clear = $clear"); - LOG ("==> noImages = $noImages"); - LOG ("==> single = $single"); - LOG ("==> runBibTeX= $runBibTeX"); - LOG ("==> runBiber = $runBiber"); - LOG ("==> ppm = $ppm"); - LOG ("==> eps = $eps"); - LOG ("==> jpg = $jpg"); - LOG ("==> png = $png"); - LOG ("==> files = $files"); - LOG ("==> xetex = $xetex"); + 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"); if ($runBibTeX && $runBiber) { LOG ("!!! you cannot run BibTeX and Biber at the same document ..."); @@ -175,25 +402,23 @@ if ($eps) { } if ($jpg) { LOG ("Generate .jpg files ..."); - $ppm = 1; - $jpg = 1; + $jpg = 1; } if ($png) { LOG ("Generate .png files ..."); - $ppm = 1; - $png = 1; + $png = 1; } -if ($files) { - LOG ("Generate .tex images files ..."); - $files=1; +if ($svg) { + LOG ("Generate .svg files ..."); + $svg = 1; } if ($all) { - LOG ("Generate all images eps/pdf/files and clear..."); - $eps =$ppm=$jpg=$png=$clear = 1; + LOG ("Generate images eps/pdf/files and clear..."); + $eps =$ppm=$jpg=$png=$svg=$clear = 1; } -if ($single) { - LOG ("single mode generate images files ..."); - $single= 1; +if ($nopreview) { + LOG ("nopreview mode generate images files ..."); + $nopreview= 1; } if ($xetex) { LOG ("Compiling using XeLaTeX ..."); @@ -201,68 +426,317 @@ if ($xetex) { } if ($noImages ) { LOG ("no create images"); - $single= 0; + $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; +} + +# Creamos un hash con los cambios +my %cambios = ( + '\pspicture' => '\TRICKS', + '\endpspicture' => '\ENDTRICKS', + + '\begin{PSTexample' => '\begin{PSTEXAMPLE', + '\end{PSTexample' => '\end{PSTEXAMPLE', + + '\begin{pspicture' => '\begin{TRICKS', + '\end{pspicture' => '\end{TRICKS', + + '\begin{postscript}' => '\begin{POSTRICKS}', + '\end{postscript}' => '\end{POSTRICKS}', + + '\begin{document}' => '\begin{DOCTRICKS}', + '\end{document}' => '\end{DOCTRICKS}' +); + +# 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; + +my $tcbverb = qr/\\(?:tcboxverb|myverb)/; + +my $arg_brac = qr/(?:\[.+?\])?/; + +my $arg_curl = qr/\{(.+)\}/; # ATENCIÓN + +for (@lineas) { + if (/^\\begin\{($ENTORNO)(?{ $DEL = "\Q$^N" })\}/ .. /^\\end\{$DEL\}/) { + while (my($busco, $cambio) = each %cambios) { + s/\Q$busco\E/$cambio/g; + } } + 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; + +#--------------------------------Parte 2-------------------------------- +# Comentamos el texto en verbatim a lo largo del cuerpo +open my $ENTRADA, '<', "$tempDir/$name-tmp$ext"; +my $archivo; +{ + local $/; + $archivo = <$ENTRADA>; +} +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; + +## 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 + } +} + + +# 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 + } + + if (not $corchetes or $corchetes =~ /\[\s*\]/) { # si no hay corchetes, o están vacíos, + $corchetes = "[$graphics-$exacount}]"; # ponemos los nuestros + } + else { # si sí hay corchetes, + $corchetes =~ s/\]/,$graphics-$exacount}]/; # lo agregamos al final, dentro de los corchetes + } + + 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++; +} + +#----------------------- Extract PSTexample files ---------------------- + +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; +} +# 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 +@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; +} + +# 4- Salida +open my $SALIDA, '>', "$tempDir/$name-exa$ext"; + +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++; +} + +print $SALIDA '\end{document}'; +close $SALIDA; + } # close join exa files (if exist) +} # close nopreview + +### Escribimos en el mismo archivo con los cambios en verbatim +open my $SALIDA, '>', "$tempDir/$name-tmp$ext"; +print $SALIDA "$cabeza$cuerpo$final"; +close $SALIDA; + +## 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; + +## 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"; +} +else{ +print $OUTFILE "\\RequirePackage\[active,tightpage\]\{preview\}\n"; +} +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; +} + +my $PSTexample = qr/(?: PSTexample | PSTcode )/xi; +# +my $DEL; + +for (@lineas) { + if (/^\\begin\{($PSTexample)(?{ $DEL = "\Q$^N" })\}/ .. /^\\end\{$DEL\}/) { + while (my($busco, $cambio) = each %cambios) { + s/\Q$busco\E/$cambio/g; + } + } + } + +# Escritura del resultado +open my $SALIDA, '>', "$tempDir/$name-tmp$ext"; +print $SALIDA @lineas; +close $SALIDA; +# end code for pstexample my $imgNo = 1; # internal image counter -#----------- single mode, no need pdftk ---------------------- -if ($single) { +#----------------- nopreview mode, dont'n need gs ---------------------- +if ($nopreview) { LOG ("Running on [$path][$name][$ext]"); open my $FILE,'<', "$TeXfile" ; # the source -LOG ("single mode generate images..."); -if (-d $imageDir) { LOG ("$imageDir exists") } -else { mkdir("$imageDir", 0744) ;} +if (!$noImages ) { +LOG ("nopreview mode generate images..."); savePreamble($name); -runXPD($name); runFile($name); +runPSTimg($name); close $FILE; # close source file close $LOGfile; -}#---------------- Default way, using pdftk -------------- + } +} +#----------------------- Default way, using gs ------------------------- else{ LOG ("Running on [$path][$name][$ext]"); open my $FILE,'<', "$TeXfile" ; # the source if (!$noImages ) { -if (-d $imageDir) { LOG ("$imageDir exists") } -else { mkdir("$imageDir", 0744) ; -LOG ("Imagedir created"); } -LOG ("go to savePreamble ... "); +LOG ("Using gs for split images ... "); savePreamble($name); -runXPD($name); runFile($name); +runPSTimg($name); LOG ("done!\n go to runFile ..."); LOG ("done!"); close $FILE; # close source file close $LOGfile; -}# !noImages -} -# Create xpdfrc conf for silent output pdftops/pdftoppm mesagge in windows + }# !noImages +}# close -sub runXPD{ -if ($^O eq 'MSWin32'){ -open my $ppmconf, '>', "$tempDir/xpd"; -print $ppmconf <<'EOH'; -errQuiet yes -EOH -close $ppmconf; - } -} -# end fix -# 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. -# ----------------- Save Preamble --------------------- +#-------------------------- 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, '<', "$name.tex"; +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 ($single) { + if ($nopreview) { print $FILEp "\\newenvironment{postscript}{}{}\n"; print $FILEp "\\pagestyle{empty}\n"; } @@ -277,30 +751,25 @@ else { } close $FILE; close $FILEp; - if ( $verbose ) { LOG("<-----Preamble<----"); } - return; } - +# Search in source-parser file sub searchPS { # search the PostScript parts - my @PS = (); # single PS sequence - my @PStotal = (); # all PS sequences as list of arrays + 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 $EndDocument = 0; # ignore all after \end{document} my $iVerb = 0; # test for verbatim or lstlisting environment, must be ignored - open my $FILE, '<', "$name.tex"; - while (<$FILE>) { # scan the input file + open my $FILE, '<', "$tempDir/$name-tmp$ext"; + while (<$FILE>) { # scan the input file if (!$EndDocument) { - chomp; # delete EOL character + chomp; # delete EOL character my $line = $_; # save line if ( !$iVerb ) { - $iVerb = ((index($line,"begin{verbatim}") > 0) - or (index($line,"begin{lstlisting}") > 0) - or (index($line,"begin{Verbatim}") > 0) - or (index($line,"begin{verbatim*}") > 0)); - } # do nothing until \end{verbatim} + $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 $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... @@ -331,11 +800,11 @@ sub searchPS { # search the PostScript parts $depth--; if ($depth < 0) { $type = -1; - if (index($line,"endpspicture") > 0) # add line, depends to type - { push @PS,substr($line,0,$iPST+12); } # \endpspicture + 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} + else { push @PS,substr($line,0,$iPST+14); } # \end{pspicture} LOG ("searchPS: set \$type=$type"); push @PStotal,[@PS]; # add PS sequence LOG ("---->PS---->\n@PS\n<----PS<----"); @@ -354,13 +823,10 @@ sub searchPS { # search the PostScript parts } 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 ) - or ( index($line,"end{Verbatim}") > 0 ) - or ( index($line,"end{verbatim*}") > 0 )) { $iVerb = 0; } + } # if ( $iVerb ) + if (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; } }} - if ( $verbose ) { + if ( $Verbose ) { LOG("---->PStotal---->"); for my $aref ( @PStotal ) { my @a = @$aref; @@ -370,62 +836,16 @@ sub searchPS { # search the PostScript parts LOG ("<----PStotal<----"); } close $FILE; - return @PStotal; # return all PS sequences + return @PStotal; # return all PS sequences } -# Creating file.tex and .pdf(eps,ppm) for images in single mode -sub runsingle{ - my $filename = pop; - -if ($xetex){ - system("xelatex -interaction=batchmode $filename"); - system("pdfcrop -margins 1 -xetex $filename.pdf $imageDir/$filename-$imgNo.pdf"); - } -else{ - system("latex -interaction=batchmode $filename"); - system("dvips -q -Ppdf $filename"); - system("ps2pdf $PS2 $filename.ps"); - system("pdfcrop -margins 1 $filename.pdf $imageDir/$filename-$imgNo.pdf"); - } -if ($files){ - copy("$filename.tex", "$imageDir/$filename-$imgNo.tex"); - } - -if ($eps) { - if ($^O eq 'MSWin32'){ - system("pdftops -cfg $tempDir/xpd -q -level3 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps"); - } - else{ - system("pdftops -q -level3 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps"); - } - } -if ($ppm) { - if ($^O eq 'MSWin32'){ - system("pdftoppm -cfg xpd -q -r $DPI $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo"); - } -else{ - system("pdftoppm -q -r $DPI $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo"); - } - } - - $imgNo=$imgNo+1; -} -#------------------- Copy files.tex for images in default mode --------- -sub runTeX{ - my $filename = pop; - if ($files){ - copy("$filename.tex", "$imageDir/$filename-$imgNo.tex"); -} - $imgNo=$imgNo+1; -} - -#------------------ Create files.tex for images -------------- +#---------------------- Create files.tex for images -------------------- sub runFile { my $filename = pop; my @PSarray = searchPS(); - if ( $verbose ) { + if ( $Verbose ) { LOG("---->PSarray---->"); for my $aref ( @PSarray ) { my @a = @$aref; @@ -439,71 +859,199 @@ sub runFile { for my $aref ( @PSarray ) { my @PS = @$aref; open my $FILEp,'<',"$tempDir/$filename.preamble"; - open my $FILEsub,'>',"$tempDir/$filename-fig.tex"; + open my $FILEsub,'>',"$tempDir/$filename-fig$ext"; while (<$FILEp>) {print $FILEsub $_; } print $FILEsub "\\begin{document}\n"; - if ( $verbose ) { LOG("\@PS: $_"); } + if ( $Verbose ) { LOG("\@PS: $_"); } foreach ( @PS ) { print $FILEsub "$_\n"; } print $FILEsub "\\end{document}"; close $FILEsub; close $FILEp; - if ($single) { - runsingle("$tempDir/$filename-fig"); - } - else{runTeX("$tempDir/$filename-fig");} + runTeX("$tempDir/$filename-fig"); } } LOG ("runpdfTeX ... "); runpdfTeX("$path$name",$name); LOG ("all finished ... :-)"); -# ----------------Renaming ppm need for correct name -if(!$noImages){ - my $dren = "$tempDir/$imageDir"; - my $fich = ''; - my $ppmren = ''; - my $PPMno = 1; - my $renNo = 1; - if(opendir(DIR,$dren)){ - foreach (readdir DIR){ - $fich = $_; - if ( $fich =~ /($name-fig-)(\d+|\d+[-]\d+).ppm/) { - my $renNo = int($2); - my $newname="$1$renNo.ppm"; - $ppmren = rename("$dren/$fich","$dren/$newname"); - if($jpg){ - system("convert $imageDir/$name-fig-$renNo.ppm $imageDir/$name-fig-$renNo.jpg"); - } - if($png){ - system("convert $imageDir/$name-fig-$renNo.ppm $imageDir/$name-fig-$renNo.png"); +#------------------- Copy files.tex for images in default mode --------- +sub runTeX{ + my $filename = pop; + copy("$filename$ext", "$imageDir/$filename-$imgNo$ext"); + $imgNo=$imgNo+1; +} +#------------------- 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 +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"; + } +} # close check file exist + +# 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 = $_; + +# 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 + +# Create xpdfrc conf for silent output pdftops/pdftoppm mesagge +if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){ + +if ($eps or $ppm) { +open my $ppmconf, '>', "$tempDir/xpd"; +print $ppmconf <<'EOH'; +errQuiet yes +EOH +close $ppmconf; + } +}# end fix for windows + +# options for other images type using ghostscript +my $opt_gs_raw='-dGraphicsAlphaBits=4 -dTextAlphaBits=4 -dNOPAUSE -dBATCH '; + +# 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)/) { + +# PNG format +if ($png) { +system("$::opt_gscmd -q -sDEVICE=pngalpha -r$DPI $opt_gs_raw -sOutputFile=$imageDir/$+{nombre}.png $imageDir/$+{nombre}.pdf"); + } + +# JPEG format +if ($jpg) { +system("$::opt_gscmd -q -sDEVICE=jpeg -r$DPI -dJPEGQ=100 $opt_gs_raw -sOutputFile=$imageDir/$+{nombre}.jpg $imageDir/$+{nombre}.pdf"); + } + +# SVG format +if ($svg) { + system("pdf2svg $imageDir/$+{nombre}.pdf $imageDir/$+{nombre}.svg"); + } + +# 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 + +# 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 + +## 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; - if($clear){ - unlink <$imageDir/*.ppm>; - } -}# end renaming ppm + } + closedir DIR; + } # close rename ppm + } # close ppm +} # cerramos runPSTimg -#------------------ Replace pst enviroment for images--------- +#--------------------- Replace PST enviroment for images---------------- sub runpdfTeX() { my ($name,$pdfname) = @_; - open my $PDF,'>',"$tempDir/$pdfname-pdf.tex"; - open my $FILE,'<',"$name.tex"; + 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 + while (<$FILE>) { # scan the input file if ( !$iVerb ) { - $iVerb = ((index($_,"begin{verbatim}") > 0) - or (index($_,"begin{lstlisting}") > 0) - or (index($_,"begin{Verbatim}") > 0) - or (index($_,"begin{verbatim*}") > 0)); + $iVerb = ((index($_,"begin{verbatim}") > 0) or ( index($_,"begin{lstlisting}") > 0)); } # do nothing until \end{verbatim}|| \end{lstlisting} if ( !$iVerb ) { my $i = index($_,"end{document}"); @@ -514,7 +1062,7 @@ sub runpdfTeX() { $type = 2; $ignore = 1; if ($iPS > 1) { print $PDF substr($_,0,--$iPS); } # add preceeding text - print $PDF "\\includegraphics[scale=$Iscale]{$pdfname-fig-$IMGno}"; # use pdfname + print $PDF "\\includegraphics[scale=1]{$pdfname-fig-$IMGno}"; # use pdfname $IMGno=$IMGno+1; } # postscript env if ( $type < 2 ) { @@ -528,7 +1076,7 @@ sub runpdfTeX() { LOG("Increase depth: $depth"); if ( $depth == 0 ) { if ($iPST > 1) { print $PDF substr($_,0,--$iPST); } # add preceeding text - print $PDF "\\includegraphics[scale=$Iscale]{$pdfname-fig-$IMGno}"; # use \graphicspath + print $PDF "\\includegraphics[scale=1]{$pdfname-fig-$IMGno}"; # use \graphicspath $IMGno=$IMGno+1; LOG("Increase Image counter: $IMGno"); } @@ -538,16 +1086,16 @@ sub runpdfTeX() { if ( $type == 2 ) { # postscript env my $iPS = index($_,"end{postscript}"); if ($iPS > 0) { - print $PDF substr($_,$iPS+15); # rest of line + print $PDF substr($_,$iPS+15); # rest of line $ignore = 0; $type=-1; } # end Scan } - elsif ( $type == 1 ) { # pspicture env + elsif ( $type == 1 ) { # pspicture env my $iPST = index($_,"end{pspicture*}"); if ($iPST < 0) { $iPST = index($_,"end{pspicture}"); } # alternative ... - if ($iPST < 0) { $iPST = index($_,"endpspicture"); } # alternative \endpspicture... - if ($iPST > 0) { # end Scan + if ($iPST < 0) { $iPST = index($_,"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) @@ -559,172 +1107,202 @@ sub runpdfTeX() { } } } # if ( !$EndDocument ) - } - else { print $PDF $_; } # if ( $iVerb ) - if (( index($_,"end{verbatim}") > 0 ) - or ( index($_,"end{lstlisting}") > 0 ) - or ( index($_,"end{Verbatim}") > 0 ) - or ( index($_,"end{verbatim*}") > 0 )) { $iVerb = 0; } + } else { print $PDF $_; } # if ( $iVerb ) + if (( index($_,"end{verbatim}") > 0 ) or ( index($_,"end{lstlisting}") > 0 )) { $iVerb = 0; } } # while (<$FILE>) close $FILE; close $PDF; -# ------------- Create one file contain all pst (default mode) ---------------- -if (!$single==!$noImages){ -my ($name,$pdfname) = @_; -my @PSTarray = searchPS(); -my @pstfiles = glob("$imageDir/*.tex"); -@pstfiles = - map { $_->[1] } - sort { $a->[0] <=> $b->[0] } - map { [ ($_ =~ /(\d+)\.tex$/), $_ ] } - @pstfiles; -my @container; -for my $archivo (@pstfiles) { - - open my $FH, '<:crlf', $archivo; # EOL - my $tex = join q{}, <$FH>; # - close $FH; - my($pstimg) = $tex =~ m/\\begin\{document\}\n(.+?)\n\\end\{document\}/sm; - push @container, $pstimg if $pstimg; -} -open my $FILE,'<',"$tempDir/$name.preamble"; -open my $OUTPST,'>',"$tempDir/$name-pst.tex"; - while (<$FILE>) {print $OUTPST $_; } - print $OUTPST "\\newenvironment{postscript}{}{}\n"; - print $OUTPST "\\pagestyle{empty}\n"; - print $OUTPST "\\begin{document}\n"; -my $fig = 1; -for my $item (@container) { - print $OUTPST $item; - print $OUTPST "\n%fig" . "$fig\n"; - print $OUTPST "\\newpage\n"; - $fig++; +## Close generate file +if ($clear) { +unlink "$tempDir/$pdfname-tmp$ext"; +#unlink "$tempDir/$pdfname-fig$ext"; } - print $OUTPST "\\end{document}"; - close $OUTPST; - close $FILE; -# close all -# -------------------- Compiling File using pdftk ---------------------- -my ($name,$pdfname) = @_; -if ($xetex){ - system("xelatex -interaction=batchmode $tempDir/$pdfname-pst.tex"); - system("pdfcrop -xetex $tempDir/$name-pst.pdf $tempDir/$pdfname-pst.pdf"); - } +#------------------- Clean pstpack, reverse changes -------------------- +## Leer archivo +open my $INFILE, '<', "$tempDir/$pdfname-pdf$ext"; +my $IPDF; +{ + local $/; + $IPDF = <$INFILE>; +} +close $INFILE; + +## Constantes +my $BEGINDOC = quotemeta('\begin{document}'); +my $USEPACK = quotemeta('\usepackage'); +my $GRAPHICX = quotemeta('{graphicx}'); + +## Exp. Reg. + +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; + +## Dividir el archivo +my($cabeza, $cuerpo) = $IPDF =~ m/\A (.+?) ($BEGINDOC .+?) \z/msx; + +## Revisamos si esta cargado pst-exa +my $pstTcbload = 0; # Buscamos si esta cargado \usepackage[...]{pst-exa} +$pstTcbload = index($cabeza,"usepackage[tcb]{pst-exa}"); + +## 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 + +$cabeza .= <<"EXTRA"; +\\usepackage{graphicx} +\\graphicspath{{$imageDir/}} +\\usepackage{grfext} +\\PrependGraphicsExtensions*{.pdf} +EXTRA + +## 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; + +# Se añade la opción [tcb] al paquete pst-exa +$cabeza .= <<"EXTRA"; +\\usepackage[pdf,tcb]{pst-exa} +EXTRA +} # close if else{ - system("latex -interaction=batchmode $tempDir/$pdfname-pst"); - system("dvips -q -Ppdf $tempDir/$pdfname-pst"); - system("ps2pdf $PS2 $tempDir/$pdfname-pst.ps $tempDir/$pdfname-pst.pdf"); - system("pdfcrop -margins 1 $tempDir/$pdfname-pst.pdf $tempDir/$pdfname-pst.pdf"); +# 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 + +### 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; + +### Delete extra psset{..} in body +$cuerpo =~ s/\\psset\{[^\}]+\}(\s*\\includegraphics\[scale=1\]\{$pdfname-fig-\d*\})/$1/gms; + +### 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}' +); + +## 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; + } + +## Escribimos en el mismo archivo +open my $SALIDA, '>', "$tempDir/$pdfname-pdf$ext"; +print $SALIDA "$cabeza$cuerpo"; +close $SALIDA; +# + +my $runAgain = 0; + +if($xetex){ # xelatex mode +if ($noImages){ + print "The file $pdfname-pdf$ext are created (Xe)LaTeX\n"; } - system("pdftk $tempDir/$pdfname-pst.pdf burst output $imageDir/$pdfname-fig-\%1d.pdf"); -if ($eps){ -for my $fichero_pdf (<$imageDir/*.pdf>) { - (my $fichero_eps = $fichero_pdf) = s/ppm$/png/i; - if ($^O eq 'MSWin32'){ - system("pdftops -cfg xpd -q -level3 -eps $fichero_pdf $fichero_eps"); # conversión - } - else{ - system("pdftops -q -level3 -eps $fichero_pdf $fichero_eps"); # conversión - } - } +else{ + system("xelatex -interaction=batchmode $tempDir/$pdfname-pdf"); + print "Done, compiled $pdfname-pdf$ext using (Xe)LaTeX\n"; + } + } +else{ #pdflatex mode +if ($noImages){ + print "The file $pdfname-pdf$ext are created (pdf)LaTeX\n"; + } +else{ + system("pdflatex -interaction=batchmode $tempDir/$pdfname-pdf$ext"); + print "Done, compiled $pdfname-pdf$ext using (pdf)LaTeX\n"; + } } -if ($ppm){ - if ($^O eq 'MSWin32'){ - system("pdftoppm -cfg xpd -q -r $DPI $tempDir/$pdfname-pst.pdf $imageDir/$pdfname-fig"); + +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++; } - else{ - system("pdftoppm -q -r $DPI $tempDir/$pdfname-pst.pdf $imageDir/$pdfname-fig"); +if ($runAgain){ + if($xetex){ + system("xelatex -interaction=batchmode $tempDir/$pdfname-pdf"); + } + else{ + system("pdflatex -interaction=batchmode $tempDir/$pdfname-pdf"); } } +} #close sub run pdfTEX + +#----------------------------- Write LOG file -------------------------- +sub LOG() { + if ( $Verbose ) { print $LOGfile "@_\n"; } } +#-------------------------- Clear all tmp files ------------------------ +if ($clear) { -#---------------- Coment pst-package in file-pdf.tex for (pdf/Xe)LaTeX ---------------- - open my $IPDF,'<', "$tempDir/$pdfname-pdf.tex"; - undef $/; # read all file - my ($uno,$dos) = split(/\\begin\{document\}/,<$IPDF>,2); - close $IPDF; - - my @coment = split /\n/, $uno; # split in two - my @preamb; - - foreach my $line (@coment) { - chomp($line); - if(!$xetex){ - $line =~ s/\\usepackage(?:\[.+?\])?\{pst.+?}//g; # delete - $line =~ s/\\usepackage(?:\[.+?\])?\{psfr.+?}//g; # delete - $line =~ s/(\\usepackage(?:\[.+?\])?)\{auto-pst.+?}//g; # delete - $line =~ s/(\\usepackage(?:\[.+?\])?)\{vaucanson-.+?}//g; # delete - $line =~ s/(\\usepackage(?:\[.+?\])?)\{psgo}//g; # delete - } - $line =~ s/(\\usepackage(?:\[.+?\])?)\{graph/\%$1\{graph/g; # comment - next if $line =~ m/^\s*$/; - push(@preamb,$line);} # adding changes - -my $clean = join("\n", @preamb, "\\usepackage{grfext}\n\\\PrependGraphicsExtensions*{$Iext}\n\\usepackage{graphicx}\n\\graphicspath{{$imageDir/}}\n\\begin{document}". $dos); - - open my $OPDF,'>',"$tempDir/$pdfname-pdf.tex"; # write changes - print $OPDF $clean; - close $OPDF; +if (-e "$tempDir/$name-pst$ext") { +unlink "$tempDir/$name-pst$ext"; +} + 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 -my $runAgain = 0; - - if($xetex){ # xelatex mode - if ($noImages){print "The file $pdfname-pdf.tex are created (Xe)LaTeX\n";} - else{ - system("xelatex -interaction=batchmode $tempDir/$pdfname-pdf"); - print "Done, compiled $pdfname-pdf.tex using (Xe)LaTeX\n";}} - else{ #pdflatex mode - if ($noImages){ - print "The file $pdfname-pdf.tex are created (pdf)LaTeX\n";} - else{ - system("pdflatex -interaction=batchmode $tempDir/$pdfname-pdf.tex"); - print "Done, compiled $pdfname-pdf.tex using (pdf)LaTeX\n";} - } - - 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");} - } - - if ($clear) { - unlink "$tempDir/$name.preamble"; - unlink "$tempDir/$name-pdf.aux"; - unlink "$tempDir/$name-pdf.log"; - unlink "$tempDir/$name-fig.tex"; - if ($eps or $ppm){ - if ($^O eq 'MSWin32'){unlink "$tempDir/xpd";} - } - if(!$verbose) {unlink "$tempDir/$name.plog";} - if ($single) {#comon - unlink "$tempDir/$name-fig.pdf"; - unlink "$tempDir/$name-fig.aux"; - unlink "$tempDir/$name-fig.log"; - if($xetex){ } - else{ - unlink "$tempDir/$name-fig.dvi"; - unlink "$tempDir/$name-fig.ps";} - } - else{ #clean for pdftk mode - unlink "$tempDir/$name-pst.log"; - unlink "$tempDir/$name-pst.pdf"; - unlink "$tempDir/$name-pst.aux"; - if($xetex){ } - else{ - unlink "$tempDir/$name-pst.dvi"; - unlink "$tempDir/$name-pst.ps"; - } +if ($^O eq 'MSWin32' || $^O eq 'MSWin64'){ +if ($eps or $ppm){ + unlink "$tempDir/xpd"; } } -} -sub LOG() { - if ( $verbose ) { print $LOGfile "@_\n"; } +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; } +} +unlink @del_src; +}# end source clear + __END__ |