texlive[45290] trunk: pst2pdf (14sep17)

commits+karl at tug.org commits+karl at tug.org
Thu Sep 14 00:05:58 CEST 2017


Revision: 45290
          http://tug.org/svn/texlive?view=revision&revision=45290
Author:   karl
Date:     2017-09-14 00:05:58 +0200 (Thu, 14 Sep 2017)
Log Message:
-----------
pst2pdf (14sep17)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl
    trunk/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
    trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes
    trunk/Master/texmf-dist/doc/latex/pst2pdf/README
    trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.pdf
    trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.tex
    trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl

Added Paths:
-----------
    trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib

Modified: trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl	2017-09-13 22:05:42 UTC (rev 45289)
+++ trunk/Build/source/texk/texlive/linked_scripts/pst2pdf/pst2pdf.pl	2017-09-13 22:05:58 UTC (rev 45290)
@@ -5,7 +5,7 @@
 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 at tug.org> 
+# 2017-09-11	(c) Herbert Voss <hvoss at tug.org> 
 #                   Pablo González Luengo <pablogonz at yahoo.com>
 # 
 # This program is free software; you can redistribute it and/or modify
@@ -59,10 +59,10 @@
 
 #---------------- 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 $nv='v0.17';
+my $ident = '$Id: pst2pdf.pl 119 2017-09-11 12:04:09Z herbert $';
 my $copyright = <<END_COPYRIGHT ;
-Copyright 2011-2014 (c) Herbert Voss <hvoss\@tug.org> and Pablo González.
+Copyright 2011-2017 (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
@@ -502,7 +502,7 @@
 close $ENTRADA;
  
 ## Partición del documento
-my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin{document}) (.+) (^ \\end{document} .*) \z/msx;
+my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin\{document\}) (.+) (^ \\end\{document\} .*) \z/msx;
 
 ## Variables y constantes
 my $no_del = "\0";

Modified: trunk/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl	2017-09-13 22:05:42 UTC (rev 45289)
+++ trunk/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl	2017-09-13 22:05:58 UTC (rev 45290)
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: tlmgr.pl 45190 2017-09-01 08:01:01Z preining $
+# $Id: tlmgr.pl 45275 2017-09-12 00:47:29Z preining $
 #
 # Copyright 2008-2017 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
@@ -6,8 +6,8 @@
 # or any later version.
 #
 
-my $svnrev = '$Revision: 45190 $';
-my $datrev = '$Date: 2017-09-01 10:01:01 +0200 (Fri, 01 Sep 2017) $';
+my $svnrev = '$Revision: 45275 $';
+my $datrev = '$Date: 2017-09-12 02:47:29 +0200 (Tue, 12 Sep 2017) $';
 my $tlmgrrevision;
 my $prg;
 if ($svnrev =~ m/: ([0-9]+) /) {
@@ -3702,9 +3702,9 @@
       print "installed:   No\n";
       return($F_OK);
     }
-    #if (!$remotetlpdb) {
-    #  init_tlmedia_or_die();
-    #}
+    if (!$remotetlpdb) {
+      init_tlmedia_or_die(1);
+    }
     if (defined($tag)) {
       if (!$remotetlpdb->is_virtual) {
         tlwarn("$prg: specifying implicit tags not allowed for non-virtual databases!\n");
@@ -3724,40 +3724,34 @@
         tlwarn("$prg: Cannot find package $pkg in repository $tag\n");
         return($F_WARNING);
       }
-      if ($remotetlpdb->is_virtual) {
+      my @cand = $remotetlpdb->candidates($pkg);
+      if (@cand) {
+        # if @cand is not empty, then we have a virtual database
         # we might have a package that is available in a
         # subsidiary repository, but not installable
         # because it is not pinned
         # we will list it but warn about this fact
-        my @cand = $remotetlpdb->candidates($pkg);
-        if (@cand) {
-          my $first = shift @cand;
-          if (defined($first)) {
-            tlwarn("$prg: strange, we have a first candidate but no tlp: $pkg\n");
-            return($F_WARNING);
-          }
-          # already shifted away the first element
-          if ($#cand >= 0) {
-            # recursively showing all tags, but warn
-            print "package:     ", $pkg, "\n";
-            print "WARNING:     This package is not pinned but present in subsidiary repositories\n";
-            print "WARNING:     As long as it is not pinned it is not installable.\n";
-            print "WARNING:     Listing all available copies of the package.\n";
-            my @aaa;
-            for my $a (@cand) {
-              my ($t,$r) = split(/\//, $a, 2);
-              push @aaa, "$pkg" . '@' . $t;
-            }
-            $ret |= action_info(@aaa);
-            return($ret);
-          } else {
-            tlwarn("$prg: strange, package listed but no residual candidates: $pkg\n");
-            return($F_WARNING);
-          }
-        } else {
-          tlwarn("$prg: strange, package listed but no candidates: $pkg\n");
+        # useless test, @cand will always be defined becuase $remotetlpdb is virtual
+        my $first = shift @cand;
+        if (defined($first)) {
+          tlwarn("$prg: strange, we have a first candidate but no tlp: $pkg\n");
           return($F_WARNING);
         }
+        # already shifted away the first element
+        if ($#cand >= 0) {
+          # recursively showing all tags, but warn
+          print "package:     ", $pkg, "\n";
+          print "WARNING:     This package is not pinned but present in subsidiary repositories\n";
+          print "WARNING:     As long as it is not pinned it is not installable.\n";
+          print "WARNING:     Listing all available copies of the package.\n";
+          my @aaa;
+          for my $a (@cand) {
+            my ($t,$r) = split(/\//, $a, 2);
+            push @aaa, "$pkg" . '@' . $t;
+          }
+          $ret |= action_info(@aaa);
+          return($ret);
+        }
       }
       # we didn't find a package like this, so use search
       info("$prg: cannot find package $pkg, searching for other matches:\n");
@@ -9078,7 +9072,7 @@
 distribution (L<http://tug.org/texlive>) and both are licensed under the
 GNU General Public License Version 2 or later.
 
-$Id: tlmgr.pl 45190 2017-09-01 08:01:01Z preining $
+$Id: tlmgr.pl 45275 2017-09-12 00:47:29Z preining $
 =cut
 
 # to remake HTML version: pod2html --cachedir=/tmp tlmgr.pl >/tmp/tlmgr.html

Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes	2017-09-13 22:05:42 UTC (rev 45289)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/Changes	2017-09-13 22:05:58 UTC (rev 45290)
@@ -1,4 +1,5 @@
 pst2pdf.pl --------
+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

Modified: trunk/Master/texmf-dist/doc/latex/pst2pdf/README
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/README	2017-09-13 22:05:42 UTC (rev 45289)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/README	2017-09-13 22:05:58 UTC (rev 45290)
@@ -1,4 +1,3 @@
-<pre>
 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. 
@@ -33,7 +32,6 @@
 images are named file-fig-<No>.pdf
 
 Options:
-Options:
   -h,--help          - display this help and exit
   -l,--license       - display license information and exit
   -v,--version 	     - display version (current $nv) and exit
@@ -59,4 +57,3 @@
 for more documentation => pst2pdf --help or read the documentation
 --
 Herbert Voss 2010-01-04
-</pre>

Added: trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib	                        (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib	2017-09-13 22:05:58 UTC (rev 45290)
@@ -0,0 +1,84 @@
+ at STRING{tugboat	= {TUGboat} }
+ at STRING{beiprogramm	= {{\TeX}-Beiprogramm} }
+ at STRING{bretter	= {Bretter, die die Welt bedeuten} }
+ at STRING{dtk		= {{D}ie {\TeX}nische {K}om{\"o}die} }
+ at STRING{editorial	= {Editorial} }
+ at STRING{fremdebuehne	= {Von fremden B{\"u}hnen} }
+ at STRING{fundus		= {Aus dem Fundus} }
+ at STRING{hinterbuehne	= {Hinter der B{\"u}hne} }
+ at STRING{leserbrief	= {Leserbrief(e)} }
+ at STRING{magazin	= {Magazin} }
+ at STRING{rezension	= {Rezensionen} }
+ at STRING{schonimmer	= {Was Sie schon immer {\"u}ber {\TeX} wissen wollten \dots} }
+ at STRING{theaterkasse	= {Von der Theaterkasse} }
+ at STRING{theatertage	= {{\TeX}-Theatertage} }
+
+ at Book{tlgc2,
+  author	= {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Denis Roegel and Herbert Vo{\ss}},
+  title		= {The {\LaTeX} {G}raphics {C}ompanion},
+  publisher	= {{Addison-Wesley Publishing Company}},
+  edition	= 2,
+  year		= {2007},
+  address	= {Reading, Mass.}
+}
+
+
+ at Article{girou:01:,
+  author	= {Denis Girou},
+  title		= {Pr\'esentation de {PST}ricks},
+  journal	= {Cahier {GUT}enberg},
+  year		= 1994,
+  volume	= {16},
+  month		= apr,
+  pages		= {21-70}
+}
+
+ at Article{girou:02:,
+  author	= {{Timothy van} Zandt and Denis Girou},
+  title		= {Inside {PST}ricks},
+  journal	= TUGboat,
+  year		= 1994,
+  volume	= {15},
+  month		= sep,
+  pages		= {239-246}
+}
+
+ at Manual{pstricks,
+  Title          = {PSTricks - {\PS} macros for generic {\TeX}},
+  Author         = {{Timothy van} Zandt},
+  Address        = {\url{http://www.tug.org/application/PSTricks}},
+  year           = 1993
+}
+
+ at Book{PSTricks2,
+  author	= {Herbert Vo\ss},
+  title		= {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+  edition	= {7},
+  publisher	= {DANTE -- Lehmanns},
+  year		= {2010},
+  address	= {Heidelberg/Berlin}
+}
+
+ at Book{PSTricks2-UIT,
+  author	= {Herbert Vo\ss},
+  title		= {PSTricks -- Graphics for \TeX\ and \LaTeX},
+  publisher	= {UIT},
+  year		= {2011},
+  address	= {Cambridge}
+}
+
+ at Book{LaTeXRef-UIT,
+  author	= {Herbert Vo\ss},
+  title		= {{\LaTeX} quick reference},
+  publisher	= {UIT},
+  year		= {2012},
+  address	= {Cambridge}
+}
+
+ at Manual{pst-tools,
+  author	= {Herbert Voß},
+  title		= {\texttt{pst-tools} -- Helper functions},
+  publisher	= {CTAN},
+  year		= {2012},
+  address	= {\url{CTAN:/graphics/pstricks/contrib/pst-tools}}
+}


Property changes on: trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.bib
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
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	2017-09-13 22:05:42 UTC (rev 45289)
+++ trunk/Master/texmf-dist/doc/latex/pst2pdf/pst2pdf-doc.tex	2017-09-13 22:05:58 UTC (rev 45290)
@@ -1,6 +1,25 @@
-\documentclass[10pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
-    headexclude,footexclude,oneside]{pst-doc}
+% 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}
+
+\listfiles
+\let\Lfile\LFile
 \usepackage[utf8]{inputenc}
+\usepackage{pst-node}
+\let\pstnodeFV\fileversion
+\let\pstnodeFD\filedate
+%\usepackage{pst-node}
+\usepackage{biblatex}
+
+\addbibresource{\jobname.bib}
+
 \RequirePackage{xspace}
 \usepackage{pst-text,pst-grad}
 \let\pstFV\fileversion
@@ -16,7 +35,7 @@
 \begin{document}
 
 \title{\texttt{pst2pdf}}
-\subtitle{Running a PSTricks document with pdflatex;\\  \small v. 0.16}
+\subtitle{Running a PSTricks document with pdflatex;\\  \small v. 0.17}
 \author{Herbert Vo\ss  \\ Pablo Gonz\'{a}lez Luengo}
 \docauthor{}
 \date{\today}
@@ -177,13 +196,10 @@
 \nxLprog{mogrify} -format tiff \OptArg*{*.ppm} 
 \end{BDef} 
 generate \Lext{tiff} images files.
-\newpage
-%
-\bgroup
-\raggedright
+%\newpage
+\clearpage
 \nocite{*}
-\bibliographystyle{plain}
-\bibliography{pst2pdf-doc}
-\egroup
+\printbibliography
+
 \printindex
 \end{document}

Modified: trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl	2017-09-13 22:05:42 UTC (rev 45289)
+++ trunk/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl	2017-09-13 22:05:58 UTC (rev 45290)
@@ -5,7 +5,7 @@
 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 at tug.org> 
+# 2017-09-11	(c) Herbert Voss <hvoss at tug.org> 
 #                   Pablo González Luengo <pablogonz at yahoo.com>
 # 
 # This program is free software; you can redistribute it and/or modify
@@ -59,10 +59,10 @@
 
 #---------------- 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 $nv='v0.17';
+my $ident = '$Id: pst2pdf.pl 119 2017-09-11 12:04:09Z herbert $';
 my $copyright = <<END_COPYRIGHT ;
-Copyright 2011-2014 (c) Herbert Voss <hvoss\@tug.org> and Pablo González.
+Copyright 2011-2017 (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
@@ -502,7 +502,7 @@
 close $ENTRADA;
  
 ## Partición del documento
-my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin{document}) (.+) (^ \\end{document} .*) \z/msx;
+my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin\{document\}) (.+) (^ \\end\{document\} .*) \z/msx;
 
 ## Variables y constantes
 my $no_del = "\0";



More information about the tex-live-commits mailing list