From 3864d9407972dec949ebd588a084249aa5855380 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 3 Dec 2017 22:19:10 +0000 Subject: pst-tools (3dec17) git-svn-id: svn://tug.org/texlive/trunk@45978 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-tools/pst-tools.pro | 39 ++++++++++++++++++++----- 1 file changed, 32 insertions(+), 7 deletions(-) (limited to 'Master/texmf-dist/dvips/pst-tools') diff --git a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro index 9386a166064..4b7ba7a8fd3 100644 --- a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro +++ b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro @@ -1,7 +1,7 @@ % $Id: pst-tools.pro 842 2013-10-26 10:25:41Z herbert $ % %% PostScript tools prologue for pstricks.tex. -%% Version 0.05, 2017/11/29 +%% Version 0.06, 2017/12/03 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -210,12 +210,37 @@ end pop } bind def % -/concatstrings % (a) (b) -> (ab) - { exch dup length - 2 index length add string - dup dup 4 2 roll copy length - 4 -1 roll putinterval - } bind def +/concatstrings{ % (a) (b) -> (ab) + 1 dict begin + exch dup length + 2 index length add string + dup dup 4 2 roll copy length + 4 -1 roll putinterval + end +} def +% +/reversestring { % (aBC) -> (CBa) + 5 dict begin + /str exch def + /L str length def + /strTemp L string def + /i 0 def + L { + /I L 1 sub i sub def + strTemp i str I 1 getinterval putinterval + /i i 1 add def + } repeat + strTemp + end +} def +% +/concatarray{ % [a c] [b d] -> [a c b d] + 2 dict begin + /a2 exch def + /a1 exch def + [ a1 aload pop a2 aload pop ] + end +} def % /dot2comma {% on stack a string (...) 2 dict begin -- cgit v1.2.3