summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-tools
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-09-14 20:24:50 +0000
committerKarl Berry <karl@freefriends.org>2021-09-14 20:24:50 +0000
commit76b7312019d63997d093e1f87e178d656b68a4fb (patch)
tree907f7befbdc6dbbba28d5dc09adf0abfe480e996 /Master/texmf-dist/dvips/pst-tools
parentf751fc4bd5f7fb3267af8e42e41ff23d61e79d9c (diff)
pst-tools (14sep21)
git-svn-id: svn://tug.org/texlive/trunk@60507 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.pro8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro
index 4b7ba7a8fd3..bc059faafad 100644
--- a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro
+++ b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro
@@ -174,7 +174,7 @@
%% code de Bill Casselman
%% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/
/bubblesort { % on stack must be an array [ ... ]
-4 dict begin
+ 4 dict begin
/a exch def
/n a length 1 sub def
n 0 gt {
@@ -199,7 +199,7 @@
} repeat
} if
a % return the sorted array
-end
+ end
} def
%
/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
@@ -211,12 +211,10 @@ end
} 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)
@@ -254,6 +252,7 @@ end
} def
%
/rightTrim { % on stack the string and the character number to be stripped
+ 1 dict begin
/charNo exch def
dup
length 1 sub -1 0 {
@@ -261,6 +260,7 @@ end
} for
0 i 1 add getinterval
dup length string copy
+ end
} bind def % leaves the stripped string on the stack
/psStringwidth /stringwidth load def