summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-tools
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-12-03 22:19:10 +0000
committerKarl Berry <karl@freefriends.org>2017-12-03 22:19:10 +0000
commit3864d9407972dec949ebd588a084249aa5855380 (patch)
tree5caa9a27429180aa26c3e153c8672db359d715ca /Master/texmf-dist/dvips/pst-tools
parente72d523402a19a7e892e5bb851b7ef858956aff3 (diff)
pst-tools (3dec17)
git-svn-id: svn://tug.org/texlive/trunk@45978 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-tools')
-rw-r--r--Master/texmf-dist/dvips/pst-tools/pst-tools.pro39
1 files changed, 32 insertions, 7 deletions
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