summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ecltree/ecltree.sty
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-02 15:22:14 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-02 15:22:14 +0000
commitcde29f66cd4a655133f329e7d4339e3fcaf8b1cf (patch)
treef875581f7f936f8b0594838d49f37021b22553f2 /Master/texmf-dist/tex/latex/ecltree/ecltree.sty
parent295d66c308b9c4726a953aead8658b20c32db816 (diff)
ecltree with new pdf entering tlpkg-ctan-check
git-svn-id: svn://tug.org/texlive/trunk@8491 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/ecltree/ecltree.sty')
-rw-r--r--Master/texmf-dist/tex/latex/ecltree/ecltree.sty34
1 files changed, 21 insertions, 13 deletions
diff --git a/Master/texmf-dist/tex/latex/ecltree/ecltree.sty b/Master/texmf-dist/tex/latex/ecltree/ecltree.sty
index 927f50a54b0..234829c17c5 100644
--- a/Master/texmf-dist/tex/latex/ecltree/ecltree.sty
+++ b/Master/texmf-dist/tex/latex/ecltree/ecltree.sty
@@ -1,14 +1,24 @@
% ecltree.sty (C) hideki isozaki Nov. 12, 1990
+% FMi fix: use \protected@edef instead of \edef (2002/11)
%
+% It may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.2
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.2 or later is part of all distributions of LaTeX
+% version 1999/12/01 or later.
+%
% In this style file, I intentionally didn't use ordinary
% terms such as \tree, \subtree, \leaf etc.
% because I will use different tree macros in one file.
%
% This macro needs epic.sty
% Confirm your epic.sty does not contain \makeatother at EOF.
+%
\makeatletter
-\typeout{ECL Tree graph macro by isozaki, Nov. 12, 1990}
+\typeout{ECL Tree graph macro by isozaki, Nov. 12, 1990 + 2e FIX}
% Ignore End Of Line
@@ -57,7 +67,7 @@
\def\@TopLabel{#1}
\def\@HandleList{}
\def\@EdgeLabels{}
- \edef\@EdgeLabelsY{\expandafter\@RemoveDim\the\EdgeLabelSep}
+ \protected@edef\@EdgeLabelsY{\expandafter\@RemoveDim\the\EdgeLabelSep}
\unitlength=\p@
\@BundleWidth=\z@
\@BundleHeight=\z@
@@ -72,25 +82,25 @@
\advance\@BundleHeight by \ht\@NodeBox
\advance\@BundleHeight by \dp\@NodeBox
\vrule\@height\@BundleHeight\@width\z@\@depth\@BundleDepth
- \edef\@SupportY{\expandafter\@RemoveDim\the\GapDepth}
- \edef\@SupportX{\expandafter\@RemoveDim\the\@BundleWidth}
+ \protected@edef\@SupportY{\expandafter\@RemoveDim\the\GapDepth}
+ \protected@edef\@SupportX{\expandafter\@RemoveDim\the\@BundleWidth}
\setbox\@NodeBox=\hbox to \z@{\hss\@TopLabel\hss}
\hskip-\@BundleWidth
- \edef\@EdgeLabels{\@EdgeLabels{}}
- \edef\@PicWidth{\expandafter\@RemoveDim\the\@BundleWidth}
+ \protected@edef\@EdgeLabels{\@EdgeLabels{}}
+ \protected@edef\@PicWidth{\expandafter\@RemoveDim\the\@BundleWidth}
\@BundleWidth=0.5\@BundleWidth
- \edef\@SupportX{\expandafter\@RemoveDim\the\@BundleWidth}
+ \protected@edef\@SupportX{\expandafter\@RemoveDim\the\@BundleWidth}
\@DrawBundle}
\def\@DrawBundle{
\begin{picture}(\@PicWidth,0)(0,0)
- \edef\@HandleList{\expandafter\@cdr\@HandleList\@nil}
+ \protected@edef\@HandleList{\expandafter\@cdr\@HandleList\@nil}
\@for\@HandleX:=\@HandleList\do{
\@DrawLine(\@SupportX,\@SupportY)(\@HandleX,0)
\put(\@HandleX,\@EdgeLabelsY){
\makebox(0,0){\expandafter\@car\@EdgeLabels\@nil}}
- \edef\@EdgeLabels{\expandafter\@cdr\@EdgeLabels\@nil}}
+ \protected@edef\@EdgeLabels{\expandafter\@cdr\@EdgeLabels\@nil}}
\put(\@SupportX,\@SupportY){\raise\dp\@NodeBox\box\@NodeBox}
\end{picture}\egroup}
@@ -104,12 +114,12 @@
\def\chunk{\@ifnextchar[{\@chunk}{\@chunk[]}}
-\def\@chunk[#1]#2{\edef\@EdgeLabels{\@EdgeLabels{#1}}
+\def\@chunk[#1]#2{\protected@edef\@EdgeLabels{\@EdgeLabels{#1}}
\setbox\@NodeBox=\vtop{\null\hbox{#2}}
\advance\@BundleWidth by 0.5\wd\@NodeBox
\ifnum\@BundleDepth<\dp\@NodeBox
\@BundleDepth=\dp\@NodeBox\fi
- \edef\@HandleList{\@HandleList,
+ \protected@edef\@HandleList{\@HandleList,
\expandafter\@RemoveDim\the\@BundleWidth}
\advance\@BundleWidth by 0.5\wd\@NodeBox
\advance\@BundleWidth by \GapWidth
@@ -138,5 +148,3 @@
\endlinechar=13\relax
\endinput
-
-