pst-jtree

git-svn-id: svn://tug.org/texlive/trunk@20894 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 282 insertions, 150 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-jtree/pst-jtree.tex b/Master/texmf-dist/tex/generic/pst-jtree/pst-jtree.tex
index 0bbd8d0ea1e..898a84f50cc 100644
--- a/Master/texmf-dist/tex/generic/pst-jtree/pst-jtree.tex
+++ b/Master/texmf-dist/tex/generic/pst-jtree/pst-jtree.tex
@@ -1,21 +1,58 @@
+% Author: John Frampton, j.frampton@neu.edu
+%
 % Users should feel free to modify this file in any way they
 % see fit.  If these modification go beyond your personal
 % use, please send me a careful description of the
 % modifications that have been made and the reasons that
 % they were made.
-\def\fileversion{2.5}
-\def\filedate{2010/02/22}
-\message{ v\fileversion, \filedate}
-
+%
+% Please NOTIFY ME about bugs and incompatibilities.
+%
+\def\fileversion{2.6}
+\def\filedate{2010/12/17}
+\message{`PST-jTree' v\fileversion\space\space <\filedate> (jf)}
+%
 \csname JTreeLoaded\endcsname
 \let\JTreeLoaded\endinput
 \ifx\PSTricksLoaded\endinput \else \input pstricks \fi\relax
 \ifx\PSTnodesLoaded\endinput \else \input pst-node \fi\relax
 \ifx\PSTXKeyLoaded\endinput \else \input pst-xkey \fi\relax
-\edef\TheAtCode{\the\catcode`\@}
-
-\catcode`@=12 \let\OtherAt=@
+%
+% commands for manipulating character codes
+\begingroup
 \catcode`@=11
+\gdef\jStoreCat#1{%
+   \expandafter\edef\csname @OldCat\string#1\endcsname
+      {\noexpand\catcode\noexpand`\noexpand#1=\the\catcode`#1}%
+}
+\gdef\jRestoreCat#1{\edef\tempa{@OldCat\string#1}%
+   \expandafter\csname\tempa\endcsname \ignorespaces}
+\catcode`@=12
+\global\let\OtherAt=@
+\endgroup
+\def\jTempChangeCat#1#2{\jStoreCat#1\catcode`#1=#2\ignorespaces}
+\jTempChangeCat @{11}
+\def\j@StoreCats#1{%
+   \XKV@for@n{#1}\@char{\expandafter\jStoreCat\@char}%
+}
+\def\j@ChangeCat#1#2{\catcode`#1=#2}
+\def\j@MakeAllOther#1{%
+   \XKV@for@n{#1}\@char{\expandafter\j@ChangeCat\@char{12}}%
+}
+\def\j@TempMakeAllOther#1{%
+   \XKV@for@n{#1}\@char{\expandafter\jTempChangeCat\@char{12}}%
+   \ignorespaces
+}
+\def\j@RestoreCats#1{%
+   \XKV@for@n{#1}\@char{\expandafter\jRestoreCat\@char}%
+   \ignorespaces
+}
+\def\tempjtree@cats{\jTempChangeCat ^{7}\j@TempMakeAllOther{",>,<}}
+\def\jtree@cats{\catcode`^=7 \j@MakeAllOther{",>,<}}
+\def\unjtree@cats{\j@RestoreCats{^,",>,<}}
+\tempjtree@cats
+%
+% register resources
 \newdimen\@xpos
 \newdimen\@ypos
 \newdimen\@@xpos
@@ -33,9 +70,44 @@
 \newtoks\jtEverytree
 \newtoks\jteverytree
 \newtoks\jteverylabel
-\newif\if@omit
 \newcount\@CurrState
-%%%
+%
+\newif\if@omit
+%
+% from eplain - \@futurenonspacelet, \@getoptionalarg
+\def\@futurenonspacelet#1{\def\cs{#1}%
+   \afterassignment\@stepone\let\@nexttoken=
+}
+\begingroup
+\def\\{\global\let\@stoken= }%
+\\ %
+\endgroup
+\def\@stepone{\expandafter\futurelet\cs\@steptwo}%
+\def\@steptwo{\expandafter\ifx\cs\@stoken\let\@@next=\@stepthree
+   \else\let\@@next=\@nexttoken\fi \@@next}%
+\def\@stepthree{\afterassignment\@stepone\let\@@next= }%
+\def\@getoptionalarg#1{%
+   \let\@optionaltemp = #1%
+   \let\@optionalnext = \relax
+   \@futurenonspacelet\@optionalnext\@bracketcheck
+}
+\def\@bracketcheck{%
+   \ifx [\@optionalnext
+      \expandafter\@@getoptionalarg
+   \else
+      \let\@optionalarg = \empty
+      \expandafter\@optionaltemp
+   \fi
+}
+\def\@@getoptionalarg[#1]{%
+   \def\@optionalarg{#1}%
+   \@optionaltemp
+}
+% end eplain utilities
+\def\psset@optionalarg{%
+   \ifx\@optionalarg\empty \else
+      \expandafter\psset\expandafter{\@optionalarg}\fi
+}
 \def\jt@xovery#1#2{%
    \jt@ytox@a#1//\@nil#2\ignorespaces}
 \def\jt@ytox@a#1/#2/#3\@nil#4{%
@@ -44,18 +116,9 @@
    \pst@dimc=\@denom pt \pst@dimd=#1pt  \pst@dimd=-\pst@dimd
    \pst@divide\pst@dimc\pst@dimd#4}
 %%%
-\def\Expandafter#1#2{\expandafter\expandafter\expandafter#1#2}
+\def\expandaftertwice{\expandafter\expandafter\expandafter}
 \def\@empty{}
 \def\@nullbox{\omit}
-\begingroup
-\def\:{\jf@gobblespace} \expandafter\gdef\: {}
-\endgroup
-%%%  this is also in @lingbasics
-\def\ling@getpars#1{%
-   \def\k@@p{#1}\@ifnextchar[\ling@getparsA\ling@getparsB}
-\def\ling@getparsA[#1]{\def\pst@pars{#1}\k@@p}
-\def\ling@getparsB{\let\pst@pars\@empty \k@@p}
-%%%
 \def\psinterpolate(#1)(#2)#3#4{{\SpecialCoor
    \pst@getcoor{#1}\pst@tempa%
    \pst@getcoor{#2}\pst@tempb%
@@ -68,7 +131,6 @@
      /dy YB YA sub def
      dx #3\space mul XA add dy #3\space mul YA add){#4}
    }\ignorespaces}
-
 %% PSTricks parameters
 %%
 % labelgap,labelgapt,labelgapb,everytree,everylabel,branch,triratio
@@ -80,29 +142,23 @@
    \else
       \pssetlength\pst@dima{#2#3}\fi }
 \pst@addfams{jtree}
-\define@key[psset]{jtree}{labelgapt}%
-   {\jtreevalue{labelgapt}#1\@nil
-   \edef\jt@labelgapt{\the\pst@dima}}
-\define@key[psset]{jtree}{labelgapb}
-   {\jtreevalue{labelgapb}#1\@nil
-   \edef\jt@labelgapb{\the\pst@dima}}
+\def\define@inckey#1{%  incremental key
+   \define@key[psset]{jtree}{#1}%
+      {\jtreevalue{#1}##1\@nil
+      \expandafter\edef\csname jt@#1\endcsname{\the\pst@dima}}%
+}
+\def\defin@inckeys#1{\XKV@for@n{#1}\@parname{%
+   \expandafter\define@inckey\expandafter{\@parname}%
+}}
+\defin@inckeys{labelgapt,labelgapb,labeloffset,%
+   labelstrutt,labelstrutb,baretopadjust}
 \define@key[psset]{jtree}{labelgap}
    {\psset{labelgapt=#1,labelgapb=#1}}
-\define@key[psset]{jtree}{labeloffset}{%
-   \jtreevalue{labeloffset}#1\@nil
-   \edef\jt@labeloffset{\the\pst@dima}}
-\define@key[psset]{jtree}{labelstrutt}{%
-   \jtreevalue{labelstrutt}#1\@nil
-   \edef\jt@labelstrutt{\the\pst@dima}}
-\define@key[psset]{jtree}{labelstrutb}{%
-   \jtreevalue{labelstrutb}#1\@nil
-   \edef\jt@labelstrutb{\the\pst@dima}}
 \define@key[psset]{jtree}{everylabel}{\jteverylabel={#1}}
 \define@key[psset]{jtree}{everytree}{\jteverytree={#1}}
+% 12/29/09 parameter eval added
+\define@key[psset]{jtree}{eval}{#1}
 \define@key[psset]{jtree}{triratio}{\edef\jt@triratio{#1}}
-\define@key[psset]{jtree}{baretopadjust}{%
-   \jtreevalue{baretopadjust}#1\@nil
-   \edef\jt@baretopadjust{\the\pst@dima}}
 \define@key[psset]{jtree}{treevshift}{%
    \jtreevalue{labelgapt}#1\@nil
    \edef\jt@treevshift{\the\pst@dima}}
@@ -131,7 +187,7 @@
 % syntax: \psset{dirA=(1:1)} (note :) sets angleA to point in
 %  the (1,1) direction
 %  end new parameter
-
+%
 \def\jt@maxafter{\xdef\jt@@maxafter{%
    \noexpand\max@left=\the\max@left
    \noexpand\max@right=\the\max@right
@@ -145,17 +201,22 @@
    \noexpand\@@xpos=\the\@@xpos
    \noexpand\@@ypos=\the\@@ypos}%
    \aftergroup\vartri@@after}
-%%%%%%%%%%%%%%%%%%%%%%
-%%%%% leaf definitions
-\def\defbranch{\ling@getpars\defbranch@a}
+%
+% leaf definitions
+\def\defenter{\j@TempMakeAllOther{>,<}\@getoptionalarg}
+\def\defreturn{\j@RestoreCats{>,<}}
+%
+\def\defbranch{\defenter\defbranch@a}
 \def\defbranch@a<#1>#2(#3)#4(#5){%
    \jt@xovery{#5}\temp
-   \Expandafter\edef\@nameuse{leaf@#1}%
+   \expandaftertwice\edef\@nameuse{leaf@#1}%
       {\noexpand\def\noexpand\@leaf{%
-         \noexpand\@@branch{\pst@pars}{#3}{\temp}}%
-      }\ignorespaces}
+         \noexpand\@@branch{\@optionalarg}{#3}{\temp}}}%
+   \defreturn
+   \ignorespaces
+}
 \def\@@branch#1#2#3{\@@xpos=\@xpos \@@ypos=\@ypos
-   {\psset{#1}\expandafter\psset\expandafter{\pst@pars}%
+   {\psset{#1}\psset@optionalarg
       \pssetylength\pst@dimd{#2}
    \pst@dimc=#3\pst@dimd
    \pst@divide\psxunit\psyunit\temp
@@ -171,16 +232,18 @@
    \ifdim\@ypos < \max@down \max@down=\@ypos \fi
    \jt@maxafter}%
 }
-\def\deftriangle{\ling@getpars\deftriangle@a}
+\def\deftriangle{\defenter\deftriangle@a}
 \def\deftriangle@a#1<#2>#3(#4)#5(#6)#7(#8){%
    \jt@xovery{#6}\tempA
    \jt@xovery{#8}\tempB
-   \Expandafter\edef\@nameuse{leaf@#2}%
+   \expandaftertwice\edef\@nameuse{leaf@#2}%
       {\noexpand\def\noexpand\@leaf{%
-         \noexpand\@@triangle{\pst@pars}{#4}{\tempA}{\tempB}}}%
+         \noexpand\@@triangle{\@optionalarg}{#4}{\tempA}{\tempB}}}%
+   \defreturn
+   \ignorespaces
 }
 \def\@@triangle#1#2#3#4{\@@xpos=\@xpos \@@ypos=\@ypos
-   {\psset{#1}\expandafter\psset\expandafter{\pst@pars}
+   {\psset{#1}\psset@optionalarg
    \jt@dima=\@xpos \jt@dimb=\@ypos
    \pssetylength\jt@dimc{#2}
    \jt@dimd=#3\jt@dimc
@@ -206,17 +269,19 @@
    \jt@positionafter}%
    \edef\triwd{\temp}%
 }
-\def\defvartriangle{\ling@getpars\defvartriangle@a}
+\def\defvartriangle{\defenter\defvartriangle@a}
 \def\defvartriangle@a#1<#2>#3(#4){%
-   \Expandafter\edef\@nameuse{leaf@#2}%
+   \expandaftertwice\edef\@nameuse{leaf@#2}%
       {\noexpand\@CurrState=\State@vartri
       \noexpand\def\noexpand\@leaf{%
-          \noexpand\@@vartriangle{\pst@pars}{#4}}}%
+          \noexpand\@@vartriangle{\@optionalarg}{#4}}}%
+   \defreturn
+   \ignorespaces
 }
 \def\@@vartriangle#1#2{\@@xpos=\@xpos \@@ypos=\@ypos
    {\expandafter\psset\expandafter{\jf@@pars}%
    \edef\@vartriratio{\jt@triratio}%
-   \psset{#1}\expandafter\psset\expandafter{\pst@pars}%
+   \psset{#1}\psset@optionalarg
    \pssetylength\jt@dimc{#2}
    \jt@dimc=\jt@scaleyby\jt@dimc
    \advance\@ypos by -\jt@dimc
@@ -276,22 +341,14 @@
 \def\@ifCurrState#1{\ifnum\@CurrState=#1}
 \def\start{\xdef\@topadjust{\jt@baretopadjust}\@CurrState=\State@root
    \jtp@parse }
-% 23 June 05 removed \expandafter
-
-
-%%% utility used extensive by the parser
-%%%   removes following space token and expands the token
-%%%   which follows
-\def\@preparenext#1{\def\@@hold{#1}\@pn@}
-\def\@pn@{\futurelet\temp\@pn@a}
-\def\@pn@a{\ifx\temp\@sptoken \let\next\@pn@b
-   \else \let\next\@pn@c \fi \next}
-\def\@pn@b{\expandafter\@pn@c\jf@gobblespace}
-\def\@pn@c{\futurelet\temp\@pn@d}
-\def\@pn@d{\ifcat\noexpand\temp\noexpand\relax
-      \let\next\@pn@e \else \let\next\@@hold \fi \next}
-\def\@pn@e{\expandafter\@@hold}
-%%% main parser
+%
+% \@preparenext is used extensive by the parser.  It removes a
+%   following space token and expands the token which follows.
+\def\@preparenext#1{%
+   \def\@@hold{\expandafter #1}%
+   \@futurenonspacelet\temp\@@hold   % \temp is a dummy
+}
+%%%% main parser
 \def\jtp@parse{\@preparenext\jtp@parseA}
 \def\jtp@parseA{\futurelet\temp\jtp@parseD}
 \def\jtp@parseD{%
@@ -301,7 +358,6 @@
    \ifx\temp:\let\next\jtp@colon \else
    \ifx\temp!\let\next\jtp@insertlabel \else
    \ifx\temp\OtherAt \let\next\jtp@insertlabel \else
-%   \ifx\temp;\let\next\jtp@semicolon \else
    \ifx\temp(\let\next\jtp@lparen \else
    \ifx\temp)\let\next\jtp@rparen \else
    \ifx\temp.\let\next\jtp@exit \else
@@ -316,19 +372,22 @@
 \def\jtp@TestForOmitA{\global\@omittrue
    \ifx\temp\omit \let\next\@gobble
       \else \ifx\temp\pnode \let\next\relax
-         \else \global\@omitfalse
-            \def\next{\the\jteverylabel}\fi\fi \next
+      \else \ifx\temp\elc \let\next\relax
+      \else \global\@omitfalse
+         \def\next{\the\jteverylabel}\fi\fi\fi \next
 }
 %%
-\def\jtp@label#1{\def\@stuff{#1}\@preparenext\jtp@labelA}
-\def\jtp@labelA{\expandafter\ling@getpars\expandafter\jtp@labelB}
+\def\jtp@label{\unjtree@cats\jtp@label@}
+\def\jtp@label@#1{\def\@stuff{#1}\jtree@cats\@preparenext\jtp@labelA}
+%\def\jtp@label#1{\def\@stuff{#1}\@preparenext\jtp@labelA}
+\def\jtp@labelA{\expandafter\@getoptionalarg\expandafter\jtp@labelB}
 \def\jtp@labelB{\@preparenext\jtp@labelC}
 \def\jtp@labelC{\@ifnextchar \OtherAt
    \jtp@labelD{\def\@explabel{}\jtp@labelE}}
 \def\testlabel#1.#2\@nil{\def\temp{#2}\ifx\temp\@empty
    \else \jtp@err{SPACE MUST FOLLOW @TAG OR !TAG}\fi}
 \def\jtp@labelD#1#2 {\def\@explabel{#2}\testlabel#2.\@nil\jtp@labelE}
-\def\jtp@labelE{\bgroup\expandafter\psset\expandafter{\pst@pars}%
+\def\jtp@labelE{\bgroup\psset@optionalarg
    \setbox\@nodebox\hbox{\expandafter\jtp@TestForOmit\@stuff}%
    \@ifCurrState\State@vartri \@leaf \fi
    \jt@setnode\vartri@after\jt@positionafter\egroup
@@ -336,13 +395,11 @@
    \@ifnextchar !\jtp@labelF\jtp@labelG}
 \def\jtp@labelF #1 {%
    \testlabel#1.\@nil
-   \Expandafter\xdef\@nameuse{coords@#1}{%
+   \expandaftertwice\xdef\@nameuse{coords@#1}{%
       \noexpand\@xpos=\the\@xpos\noexpand\@ypos=\the\@ypos}%
    \jtp@labelH
 }
 \def\jtp@labelG{\@ifnextchar (\jtp@lparen\jtp@labelH}
-%\def\jtp@labelH{%
-%   \@ifnextchar;{\expandafter\jtp@labelHa\@gobble}\jtp@labelHa}
 \def\jtp@labelH{%
    \@ifCurrState\State@colonB
       \jt@maxafter\egroup \@CurrState=\State@normal
@@ -355,36 +412,70 @@
 %%%% branches
 \def\colon@error{\jtp@err{(pars) + target should follow : operator}}
 \def\jtp@branch<#1>{%
-   \ifnum\@CurrState=\State@root \@CurrState=\State@normal
-      \else\ifnum\@CurrState=\State@colonA \@CurrState=\State@colonB
-      \else\ifnum\@CurrState=\State@colonB \colon@error \fi\fi\fi
-   \Expandafter\ifx\@nameuse{leaf@#1}\relax
-      \jtp@err{unknown branch, <#1>}\fi
-   \@nameuse{leaf@#1}\@preparenext\jtp@branchA}
-\def\jtp@branchA{\expandafter\ling@getpars\expandafter\jtp@branchB}
+   \ifnum\@CurrState=\State@root
+         \@CurrState=\State@normal
+      \else
+         \ifnum\@CurrState=\State@colonA
+               \@CurrState=\State@colonB
+            \else
+               \ifnum\@CurrState=\State@colonB
+                  \colon@error
+               \fi
+         \fi
+   \fi
+   \expandaftertwice\ifx\@nameuse{leaf@#1}\relax
+      \jtp@err{unknown branch, <#1>}%
+      \fi
+   \@nameuse{leaf@#1}%
+   \@preparenext
+   \jtp@branchA
+}
+\def\jtp@branchA{\expandafter\@getoptionalarg\expandafter\jtp@branchB}
 \def\jtp@branchB{%
-  \@ifCurrState\State@vartri \edef\jf@@pars{\pst@pars}%
-   \let\next\jtp@varbranch\else
-   \let\next\jtp@mkbranch\fi \next}
+   \@ifCurrState\State@vartri
+         \edef\jf@@pars{\@optionalarg}%
+         \let\next\jtp@varbranch
+      \else
+         \let\next\jtp@mkbranch
+      \fi
+   \next
+}
 \def\jtp@mkbranch{\@leaf\jtp@parse}
 \def\jtp@varbranch{\@preparenext\jtp@varbranchA}
 \def\jtp@varbranchA{\@ifnextchar\bgroup \jtp@label
    {\jtp@err{vartriangle (pars) should be followed by a label}%
       \fi \next}}
 %%%  the rest
-\def\jtp@colon#1{\ifnum\@CurrState<\State@colonB
+\def\jtp@colon#1{%
+   \ifnum\@CurrState<\State@colonB
       \else \colon@error \fi
-   \bgroup \@CurrState=\State@colonA
-      \jtp@parse <colonA>}
-%\def\jtp@semicolon#1{\jtp@parse ()}
-\def\jtp@lparen#1{\@ifCurrState\State@root
-   \global\@CurrState=\State@normal \gdef\@topadjust{0pt}%
-      \fi \bgroup \@CurrState=\State@normal \jtp@parse}
-\def\jtp@rparen#1{\jt@maxafter\egroup
+   \bgroup
+   \@CurrState=\State@colonA
+   \jtp@parse <colonA>%
+}
+\def\jtp@lparen#1{%
+   \@ifCurrState\State@root
+      \global\@CurrState=\State@normal
+      \gdef\@topadjust{0pt}%
+      \fi
+   \bgroup
+   \@CurrState=\State@normal
+   \jtp@parse
+}
+\def\jtp@rparen#1{%
+   \jt@maxafter\egroup
    \@ifCurrState\State@colonB
-      \def\next{\jt@maxafter\egroup\@CurrState=\State@normal
-         \jtp@parse <colonB>}\else
-      \def\next{\jtp@parse}\fi \next }
+         \def\next{%
+            \jt@maxafter
+            \egroup
+            \@CurrState=\State@normal
+            \jtp@parse <colonB>%
+            }%
+      \else
+         \def\next{\jtp@parse}%
+      \fi
+   \next
+}
 \def\jtp@exit#1{\ignorespaces}
 \def\jtp@insertlabel{\jtp@parse{\omit}}
 \def\jtp@HatOp#1{\@ifCurrState\State@normal \else
@@ -393,97 +484,138 @@
 \def\jtp@evalnext#1#2{\ifnum\@CurrState>1
       \jtp@err{misplaced " evaluation}\fi #2\jtp@parse}
 %%% end of parser
-
-\def\adjoin at #1 {\Expandafter\ifx\@nameuse{coords@#1}\relax
-   \writeln{* * coords@#1 unknown * *}\let\next\more@gobble\else
-   \@nameuse{coords@#1}\let\next\jtp@parse \fi \next}
+%
+\def\adjoin at #1 {%
+   \expandaftertwice\ifx\@nameuse{coords@#1}\relax
+         \writeln{* * coords@#1 unknown * *}%
+         \let\next\more@gobble
+      \else
+         \@nameuse{coords@#1}%
+         \let\next\jtp@parse
+      \fi
+      \next
+}
 \def\more@gobble#1.{\ignorespaces}
-\def\adjoinop#1 ={\@ifCurrState\State@root
-   \xdef\@topadjust{\jt@baretopadjust}\fi
-   \adjoin at !#1 }
-
-\def\jtree{\ling@getpars\jtree@a}
+\def\adjoinop#1 ={%
+   \@ifCurrState\State@root
+      \xdef\@topadjust{\jt@baretopadjust}\fi
+   \adjoin at !#1
+}
+\def\jtree{\@getoptionalarg\jtree@a}
 \def\jtree@a{\leavevmode
    \setbox\tree@box\hbox\bgroup
-   \Expandafter\def\@nameuse{coords@!}{\@xpos=0pt \@ypos=0pt}%
+   \tempjtree@cats
+   \expandaftertwice\def\@nameuse{coords@!}{\@xpos=0pt \@ypos=0pt}%
    \ifjt@normallabelstrut  \NormalLabelStrut \fi
    \the\jtEverytree
    \the\jteverytree
-   \expandafter\psset\expandafter{\pst@pars}%
+   \psset@optionalarg
    \@CurrState=\State@root
    \def\@topadjust{\jt@baretopadjust}%
    \@xpos=0pt \@ypos=0pt
    \max@left=\maxdimen \max@right=-\maxdimen \max@down=0pt
    \ignorespaces
 }
-\def\jt@topadjustafter{\pssetlength\jt@dime\@topadjust
+\define@key[psset]{jtree}{bbadjust}{\@bbadjust#1 \@nil}
+\def\@bbadjust{\futurelet\temp\@@bbadjust}
+\def\@@bbadjust{\ifx\temp\@nil \let\next\@gobble
+   \else \let\next\@@@bbadjust \fi \next}
+\def\@@@bbadjust #1 #2 {%
+   \expandafter\def\csname jt@bb#1adjust\endcsname{#2}%
+   \@bbadjust
+}
+\psset{bbadjust=height 0pt depth 0pt left 0pt right 0pt}
+\def\jt@afterpic{%
+   \pssetlength\jt@dime\@topadjust
    \psaddtolength\jt@dime\jt@treevshift
-   \xdef\jt@@topadjustafter
-      {\noexpand\def\noexpand\@topadjust{\the\jt@dime}}%
-   \aftergroup\jt@@topadjustafter
+   \xdef\jt@@afterpic
+      {%
+      \noexpand\def\noexpand\@topadjust{\the\jt@dime}%
+      \noexpand\edef\noexpand\@extraht{\jt@bbheightadjust}%
+      \noexpand\edef\noexpand\@extraleft{\jt@bbleftadjust}%
+      \noexpand\edef\noexpand\@extraright{\jt@bbrightadjust}%
+      }%
+   \aftergroup\jt@@afterpic
 }
-\def\endjtree{\jt@maxafter\jt@topadjustafter\egroup
+\def\endjtree{%
+   \advance\max@down by -\jt@bbdepthadjust
+   \jt@afterpic\jt@maxafter\egroup
+   \advance\max@left by -\@extraleft
+   \advance\max@right by \@extraright
    \dp\tree@box=-\max@down
-   \kern-\max@left
-     \raise\@topadjust
-     \box\tree@box\kern\max@right
+   \vbox{%
+   \kern\@extraht
+      \hbox{\kern-\max@left
+         \raise\@topadjust \box\tree@box
+         \kern\max@right}%
+   }%
 }
-
-%%%%
-%% alternates to \psline for drawing branches
+% alternates to \psline for drawing branches
 \let\branch@type=\psline
 \def\blank(#1)(#2){\ignorespaces}
 % branch with centered elision
-\def\brokenbranch(#1,#2)(#3,#4){{\psline(#1,#2)(#3,#4)
-   \dimpuba=#1\dimpubb=#2\dimpubc=#3\dimpubd=#4%
-   \dimpuba=.5\dimpuba \advance\dimpuba by .5\dimpubc
-   \dimpubb=.5\dimpubb \advance\dimpubb by .5\dimpubd
-   \rput(\dimpuba,\dimpubb){\pscirclebox*{\vrule
-         height3pt width0pt\dots}}}\ignorespaces
+\def\brokenbranch(#1,#2)(#3,#4){%
+   {\psline(#1,#2)(#3,#4)
+   \jt@dima=#1\jt@dimb=#2\jt@dimc=#3\jt@dimd=#4%
+   \jt@dima=.5\jt@dima \advance\jt@dima by .5\jt@dimc
+   \jt@dimb=.5\jt@dimb \advance\jt@dimb by .5\jt@dimd
+   \rput(\jt@dima,\jt@dimb){\pscirclebox*{\vrule
+         height3pt width0pt\dots}}}%
+   \ignorespaces
 }
 % \etc branches (trail off into ...)
 \def\psset@etcratio#1{\edef\jt@etcratio{#1}}
 %  determines the proportion of the branch devoted to ...
 \newpsstyle{etc}{nodesepB=0,nodesepA=1pt,linestyle=dotted,
    linewidth=1.2pt,dotsep=2pt}
-\def\etcbranch(#1,#2)(#3,#4){{\dimpuba=#1\dimpubb=#3%
-   \dimpubc=\dimpubb
-   \advance\dimpubc by \jt@etcratio\dimpuba
-   \advance\dimpubc by -\jt@etcratio\dimpubb
-   \dimpuba=#2\dimpubb=#4%
-   \dimpubd=\dimpubb
-   \advance\dimpubd by \jt@etcratio\dimpuba
-   \advance\dimpubd by -\jt@etcratio\dimpubb
-   \psline[arrows=-cc](#1,#2)(\dimpubc,\dimpubd)
-   \pcline[style=etc](\dimpubc,\dimpubd)(#3,#4)}%
+\def\etcbranch(#1,#2)(#3,#4){{\jt@dima=#1\jt@dimb=#3%
+   \jt@dimc=\jt@dimb
+   \advance\jt@dimc by \jt@etcratio\jt@dima
+   \advance\jt@dimc by -\jt@etcratio\jt@dimb
+   \jt@dima=#2\jt@dimb=#4%
+   \jt@dimd=\jt@dimb
+   \advance\jt@dimd by \jt@etcratio\jt@dima
+   \advance\jt@dimd by -\jt@etcratio\jt@dimb
+   \psline[arrows=-cc](#1,#2)(\jt@dimc,\jt@dimd)
+   \pcline[style=etc](\jt@dimc,\jt@dimd)(#3,#4)}%
    \ignorespaces
 }
 \def\etc{[branch=\etcbranch,scaleby=.7]}
 % the default is that \etc is 70% the length of \rb and 75% of
 %    it is dots
 % Incremental tree building
-\def\stuff{\ling@getpars\stuff@A}
-\def\stuff@A{\ifx\pst@pars\@empty no def\else
-   \Expandafter\ifx\@nameuse{stuff@@\pst@pars}\relax
-      {\tt [}\expandafter\tt\pst@pars]\else
-   \@nameuse{stuff@@\pst@pars}\fi\fi
+\def\stuff{\@getoptionalarg\stuff@A}
+\def\stuff@A{\ifx\@optionalarg\@empty no def\else
+   \expandaftertwice\ifx\@nameuse{stuff@@\@optionalarg}\relax
+      {\tt [}\expandafter\tt\@optionalarg]\else
+   \@nameuse{stuff@@\@optionalarg}\fi\fi
 }
 \def\defstuff[#1]#2{%
-   \Expandafter\def\@nameuse{stuff@@#1}{#2}\ignorespaces}
+   \expandaftertwice\def\@nameuse{stuff@@#1}{#2}\ignorespaces}
 % support for multiline labels
 \def\multiline{\setbox0=\hbox{\strut}\vrule height\ht0 width0pt
    \xdef\@temp@{\the\dp0}%
    \vtop\bgroup\let\\=\cr\halign\bgroup \hfil##\hfil\cr}
 \def\endmultiline{\vrule depth\@temp@ width0pt
    \crcr\egroup\egroup}
-
+%
 \def\triline#1{\hbox to\triwd{#1}}
-\catcode`\@=\TheAtCode\relax
-
+% empty label comment
+\defin@inckeys{elcxoffset,elcyoffset}
+\define@key[psset]{jtree}{elcref}
+   {\edef\jt@elcref{#1}}
+\psset{elcxoffset=.8ex,elcyoffset=0,elcref=bl}
+\def\elc{\@getoptionalarg\@elc}
+\def\@elc#1{\psset@optionalarg
+   \rput[\jt@elcref]%
+      (\jt@elcxoffset,\jt@elcyoffset){#1}}
+%
+\unjtree@cats
+\jRestoreCat @
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% the lines below can be commented out and replaced by
-%% personalized settings
-
+% the lines below can be commented out and replaced by
+% personalized settings
+%
 \defbranch<left>(1)(1)
 \defbranch<4left>(1)(2)
 \defbranch<bigleft>(2)(1)