From 1b9a60f4032a22fb0059c0dce245273099ba5bab Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 17 Oct 2012 00:54:25 +0000 Subject: pst-tools (16oct12) git-svn-id: svn://tug.org/texlive/trunk@27986 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-tools') diff --git a/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex b/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex index a6e4cad0e72..81885f0fea8 100644 --- a/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex +++ b/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex @@ -26,17 +26,20 @@ % interface to the `xkeyval' package \pst@addfams{pst-tools} % -\def\fileversion{0.1} -\def\filedate{2012/01/01} +\def\fileversion{0.02} +\def\filedate{2012/10/16} \message{`PST-tools' v\fileversion, \filedate\space (hv)} % \define@boolkey[psset]{pst-tools}[Pst@]{dot}[true]{} +\define@boolkey[psset]{pst-tools}[Pst@]{trimSpaces}[true]{} \define@key[psset]{pst-tools}{xShift}[0]{\def\psk@xShift{#1}} +\define@key[psset]{pst-tools}{postString}[]{\def\psk@postString{#1}} \define@key[psset]{pst-tools}{PSfont}[Times-Roman]{\def\psk@PSfont{/#1 }} \define@key[psset]{pst-tools}{valuewidth}[10]{\pst@getint{#1}\psk@valuewidth } \define@key[psset]{pst-tools}{fontscale}[10]{\pst@checknum{#1}\psk@fontscale } \define@key[psset]{pst-tools}{decimals}[-1]{\pst@getint{#1}\psk@decimals } -\psset[pst-tools]{PSfont=Times-Roman,fontscale=10,valuewidth=10,decimals=-1,xShift=0,dot} +\psset[pst-tools]{PSfont=Times-Roman,fontscale=10,valuewidth=10,decimals=-1, + xShift=0,dot,trimSpaces=false,postString={}} % \def\psPrintValue{\pst@object{psPrintValue}} \def\psPrintValue@i#1{\expandafter\psPrintValue@ii#1,,\@nil} @@ -51,6 +54,9 @@ \else #1 \fi \psk@decimals -1 gt { 10 \psk@decimals exp dup 3 1 roll mul cvi exch div } if \psk@valuewidth string cvs %/Output exch def % save output +%/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422 + \ifx\relax\psk@postString\relax\else [ exch (\psk@postString) ] concatstringarray \fi + \ifPst@trimSpaces rightTrim \fi \ifPst@dot dot2comma \fi % do we have to change dot to comma \psk@xShift\space 0 moveto %Output show grestore -- cgit v1.2.3