synttree

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

1 files changed, 466 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/synttree/synttree.sty b/Master/texmf-dist/tex/latex/synttree/synttree.sty
new file mode 100644
index 00000000000..9f4075af960
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/synttree/synttree.sty
@@ -0,0 +1,466 @@
+%%
+%% This is file `synttree.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% synttree.dtx 
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from synttree.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file synttree.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% \CheckSum{806}
+%% synttree.dtx
+%% Package `synttree' for use with LaTeX 2e
+%% Version 1.3.1
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+\def\@AfterFi#1\fi{\fi#1}
+\def\@AfterElseFi#1\else#2\fi{\fi#1}
+\def\MTr@latexdrawline(#1,#2)(#3,#4){%
+  {%
+    \count0=#1 \advance\count0 by #3 \divide\count0 2
+    \count1=#2 \advance\count1 by #4 \divide\count1 2
+    \qbezier(#1,#2)(\count0,\count1)(#3,#4)%
+  }%
+}
+\def\MTr@etexdrawline(#1,#2)(#3,#4){%
+  {%
+    \count0=\@wholewidth \divide\count0 by 4736
+    \special{pn \the\count0}%
+    \count0= #1\advance \count0 2368 \divide \count0 4736
+    \count1=-#2\advance \count1 -2368 \divide \count1 4736
+    \special{pa \the\count0 \space \the\count1}%
+    \count0= #3\advance \count0 2368 \divide \count0 4736
+    \count1=-#4\advance \count1 -2368 \divide \count1 4736
+    \special{pa \the\count0 \space \the\count1}%
+    \special{fp}%
+  }%
+}
+\DeclareOption{specials}{
+  \let\MTr@drawline\MTr@etexdrawline%
+}
+\DeclareOption{nospecials}{
+  \let\MTr@drawline\MTr@latexdrawline%
+}
+\ExecuteOptions{nospecials}%
+\ProcessOptions%
+\newcount\MTr@level
+\newcount\MTr@numchildren
+\newcount\MTr@maxlevel
+\newcount\MTr@mybranchmult
+\newif\ifMTr@mytriangle
+\newif\ifMTr@uselabel
+\newbox\MTr@labelbox
+\newbox\MTr@treebox
+\def\MTr@makechildcounter#1{
+    \expandafter\newcount\csname MTr@child#1\endcsname%
+}
+\def\MTr@makechildstoreage#1{
+    \expandafter\newsavebox\csname MTr@child#1box\endcsname%
+    \MTr@makechildcounter{#1x}
+    \MTr@makechildcounter{#1y}
+    \MTr@makechildcounter{#1v}
+    \MTr@makechildcounter{#1w}
+    \MTr@makechildcounter{#1height}
+    \MTr@makechildcounter{#1depth}
+    \MTr@makechildcounter{#1branchmult}
+    \expandafter\newcount\csname MTr@pic#1height\endcsname
+    \expandafter\newif\csname ifMTr@child#1triangle\endcsname%
+}
+\MTr@makechildstoreage{i}
+\MTr@makechildstoreage{ii}
+\MTr@makechildstoreage{iii}
+\def\MTr@childparam#1#2{\csname MTr@child#1#2\endcsname}
+\newcount\MTr@treev
+\newcount\MTr@treew
+\newcount\MTr@treeheight
+\newcount\MTr@treedepth
+\newcount\MTr@branchmult
+\MTr@branchmult 1
+\newif\ifMTr@triangle
+\newcount\MTr@labeldepth
+\newcount\MTr@labelheight
+\newcount\MTr@labelhalfwidth
+\newcount\MTr@morex
+\newcount\MTr@parenty
+\newcount\MTr@picwidth
+\newcount\MTr@picheight
+\newlength{\MTr@templength}
+\newcount\MTr@tempcnta
+\newcount\MTr@tempcntb
+\newcount\MTr@tempcntc
+\newcount\MTr@branchheight%
+\newcommand{\branchheight}[1]{%
+  \setlength{\MTr@templength}{#1}%
+  \MTr@branchheight\MTr@templength%
+}
+\branchheight{.5in}%
+\newcount\MTr@trianglemultright%
+\newcount\MTr@trianglemultleft%
+\newcommand{\trianglebalance}[1]{%
+  \MTr@trianglemultleft100%
+  \MTr@trianglemultright#1%
+  \advance\MTr@trianglemultleft-#1%
+}
+\trianglebalance{50}%
+\newcount\MTr@lineoffset
+\setlength{\MTr@templength}{2pt}%
+\MTr@lineoffset\MTr@templength%
+\newlength{\MTr@minheight}
+\setlength{\MTr@minheight}{8pt}%
+\newcount\MTr@childsidesep
+\newcommand{\childsidesep}[1]{%
+  \setlength{\MTr@templength}{#1}%
+  \MTr@childsidesep\MTr@templength%
+  \ignorespaces%
+}
+\childsidesep{1em}
+\newcount\MTr@childattachsep
+\newcommand{\childattachsep}[1]{%
+    \setlength{\MTr@templength}{#1}%
+    \MTr@childattachsep\MTr@templength%
+    \ignorespaces%
+}
+\childattachsep{0.5in}
+\def\synttree{%
+    \@ifnextchar[{\MTr@synttree{0}}{\MTr@synttree}%]
+}
+\def\MTr@synttree#1{%
+  \MTr@maxlevel#1%
+  \unitlength 1sp%
+  \MTr@level=0%
+  \MTr@numchildren=0%
+  \MTr@uselabelfalse%
+  \MTr@parserightbracket%
+}
+\def\MTr@parserightbracket#1]{%
+  \MTr@parseleftbracket#1[:\END%
+  \advance\MTr@level by -1%
+  \MTr@dorightbracket%
+  \ifnum\MTr@level=0%
+    \unhbox\MTr@childibox%
+  \else
+    \@AfterFi{\MTr@parserightbracket}%
+  \fi%
+}
+\def\MTr@parseleftbracket#1[#2\END{%
+  \ifMTr@uselabel%
+    \MTr@bottomnodefalse%
+    \MTr@mytrianglefalse%
+    \MTr@parsedot#1.: \END%
+  \fi%
+  \ifx:#2
+  \else
+    \MTr@doleftbracket%
+    \advance\MTr@level by 1%
+    \@AfterFi{\MTr@parseleftbracket#2\END}%
+  \fi%
+}
+\def\MTr@parsedot#1.#2 #3\END{
+  \ifx:#2
+    \setbox\MTr@labelbox\hbox{#1}
+  \else
+    \ifx#2b\MTr@bottomnodetrue\else%
+    \ifx#2x\MTr@bottomnodetrue\MTr@mytriangletrue\else%
+    \ifx#2t\MTr@mytriangletrue\else%
+    \typeout{synttree Warning: unknown dot option #1 in tree}%
+    \fi\fi\fi%
+    \MTr@parsedot#3\END
+  \fi
+}
+\def\MTr@doleftbracket{%
+  \bgroup%
+  \MTr@numchildren=0%
+  \MTr@uselabeltrue%
+}
+\def\MTr@dorightbracket{%
+  \MTr@maketreebox%
+  \egroup%
+  \MTr@uselabelfalse%
+  \MTr@savecurrentchildbox%
+}
+\def\MTr@savecurrentchildbox{%
+  \advance\MTr@numchildren by 1
+  \ifnum\MTr@numchildren<1%
+    \typeout{There is no child box to save.}%
+  \else
+    \ifnum\MTr@numchildren>3%
+      \typeout{I can save at most three child boxes.}%
+    \else
+      \MTr@savechildbox{\romannumeral\MTr@numchildren}%
+    \fi
+  \fi
+}
+\def\MTr@savechildbox#1{%
+  \setbox%
+    \csname MTr@child#1box\endcsname%
+    \hbox{\unhbox\MTr@treebox}%
+  \csname MTr@child#1v\endcsname\MTr@treev%
+  \csname MTr@child#1w\endcsname\MTr@treew%
+  \csname MTr@child#1x\endcsname\MTr@treev%
+  \csname MTr@child#1height\endcsname\MTr@treeheight%
+  \csname MTr@child#1depth\endcsname\MTr@treedepth%
+  \csname MTr@child#1branchmult\endcsname\MTr@branchmult%
+  \ifMTr@triangle%
+    \csname MTr@child#1triangletrue\endcsname%
+  \else%
+    \csname MTr@child#1trianglefalse\endcsname%
+  \fi
+}
+\def\MTr@drawchild#1{%
+  \MTr@tempcnta\MTr@childparam{#1}{x}
+  \advance\MTr@tempcnta-\MTr@childparam{#1}{v}
+  \put(\MTr@tempcnta,\MTr@childparam{#1}{y}){%
+    \makebox(0,0)[tl]{%
+      \usebox{\csname MTr@child#1box\endcsname}}}%
+}
+\def\MTr@bottomnodetrue{%
+  \MTr@branchmult\MTr@maxlevel%
+  \advance\MTr@branchmult-\MTr@level%
+  \advance\MTr@branchmult 1%
+  \ifnum\MTr@branchmult<1%
+    \typeout{synttree Warning: Tree has more levels than indicated.}%
+    \typeout{>> Indicated: \the\MTr@maxlevel.}%
+    \typeout{>> Level now: \the\MTr@level.}%
+    \MTr@branchmult1%
+  \fi%
+  \MTr@mybranchmult\MTr@branchmult%
+}
+\def\MTr@bottomnodefalse{%
+  \MTr@mybranchmult1%
+}
+\def\MTr@setverticalchilddimens#1{%
+    \MTr@tempcnta-\MTr@branchheight%
+    \multiply\MTr@tempcnta\MTr@childparam{#1}{branchmult}%
+    \MTr@tempcntb-\MTr@tempcnta%
+    \advance\MTr@tempcntb\csname MTr@child#1depth\endcsname%
+    \advance\MTr@tempcnta-\MTr@labelheight%
+    \advance\MTr@tempcnta\csname MTr@child#1height\endcsname%
+    \csname MTr@child#1y\endcsname\MTr@tempcnta%
+    \csname MTr@pic#1height\endcsname\MTr@tempcntb%
+}
+\def\MTr@adjustdistance#1#2{%
+  \MTr@tempcnta\MTr@childparam{#1}{w}%
+  \advance\MTr@tempcnta\MTr@childsidesep%
+  \advance\MTr@tempcnta\csname MTr@child#2v\endcsname%
+  \ifnum\MTr@tempcnta<\MTr@childattachsep%
+    \MTr@tempcnta\MTr@childattachsep%
+  \fi%
+  \csname MTr@child#2x\endcsname\MTr@childparam{#1}{x}%
+  \advance\csname MTr@child#2x\endcsname\MTr@tempcnta%
+}
+\def\MTr@setparentdimens#1#2{%
+    \MTr@tempcnta\MTr@childparam{#2}{x}%
+    \advance \MTr@tempcnta -\MTr@childparam{#1}{x}%
+    \divide\MTr@tempcnta 2%
+    \MTr@treev\MTr@tempcnta%
+    \MTr@treew\MTr@treev%
+    \advance \MTr@treev \csname MTr@child#1x\endcsname%
+    \advance \MTr@treew \csname MTr@child#2w\endcsname%
+    \MTr@morex\MTr@labelhalfwidth%
+    \advance\MTr@morex-\MTr@treev%
+    \ifnum\MTr@morex<0\MTr@morex0\fi%
+    \ifnum\MTr@treew<\MTr@labelhalfwidth
+        \MTr@treew\MTr@labelhalfwidth
+    \fi%
+    \ifnum\MTr@treev<\MTr@labelhalfwidth
+        \MTr@treev\MTr@labelhalfwidth
+    \fi%
+    \MTr@picwidth\MTr@treev%
+    \advance\MTr@picwidth\MTr@treew%
+}
+\def\MTr@setpictureparameters{%
+    \global\MTr@treedepth\MTr@picheight%
+    \advance\MTr@picheight\MTr@labelheight%
+    \global\MTr@treeheight\MTr@labelheight%
+    \MTr@parenty-\MTr@labelheight%
+    \advance\MTr@parenty-\MTr@labeldepth%
+    \advance\MTr@parenty-\MTr@lineoffset%
+    \global\MTr@treev\MTr@treev%
+    \global\MTr@treew\MTr@treew%
+}
+\def\MTr@drawlabel{%
+  \put(\MTr@treev,0){%
+    \makebox(0,0)[t]{%
+      \rule{0pt}{\MTr@minheight}%
+      \usebox{\MTr@labelbox}}}%
+}
+\def\MTr@drawchild#1{%
+  \MTr@tempcnta\MTr@childparam{#1}{x}
+  \advance\MTr@tempcnta-\MTr@childparam{#1}{v}
+  \put(\MTr@tempcnta,\MTr@childparam{#1}{y}){%
+    \makebox(0,0)[tl]{%
+      \usebox{\csname MTr@child#1box\endcsname}}}%
+}
+\def\MTr@drawchildline#1{
+  \MTr@tempcnta\MTr@childparam{#1}{y}
+  \advance\MTr@tempcnta\MTr@lineoffset%
+  \csname ifMTr@child#1triangle\endcsname%
+    \MTr@tempcntb\MTr@childparam{#1}{x}%
+    \MTr@tempcntc\MTr@tempcntb%
+    \advance\MTr@tempcntb \MTr@childparam{#1}{w}%
+    \advance\MTr@tempcntc -\MTr@childparam{#1}{v}%
+    \put(0,0){\MTr@drawline%
+        (\MTr@treev,\MTr@parenty)%
+        (\MTr@tempcntc,\MTr@tempcnta)}%
+    \put(0,0){\MTr@drawline%
+        (\MTr@treev,\MTr@parenty)%
+        (\MTr@tempcntb,\MTr@tempcnta)}%
+    \put(0,0){\MTr@drawline%
+        (\MTr@tempcntc,\MTr@tempcnta)%
+        (\MTr@tempcntb,\MTr@tempcnta)}%
+  \else%
+    \put(0,0){\MTr@drawline%
+      (\MTr@treev,\MTr@parenty)%
+      (\MTr@childparam{#1}{x},\MTr@tempcnta)}%
+  \fi%
+}
+\def\MTr@maketreebox{%
+  \MTr@labelheight\ht\MTr@labelbox%
+  \ifnum\MTr@labelheight<\MTr@minheight\MTr@labelheight\MTr@minheight\fi%%
+  \MTr@labeldepth\dp\MTr@labelbox%
+  \MTr@labelhalfwidth\wd\MTr@labelbox%
+  \divide\MTr@labelhalfwidth 2%
+  \ifnum\MTr@numchildren=0%
+    \global\setbox\MTr@treebox\hbox{\MTr@outputlabel}
+  \fi
+  \ifnum\MTr@numchildren=1%
+    \global\setbox\MTr@treebox\hbox{\MTr@outputonechild}
+  \fi
+  \ifnum\MTr@numchildren=2%
+    \global\setbox\MTr@treebox\hbox{\MTr@outputtwochildren}
+  \fi
+  \ifnum\MTr@numchildren=3%
+    \global\setbox\MTr@treebox\hbox{\MTr@outputthreechildren}
+  \fi
+  \global\MTr@branchmult\MTr@mybranchmult%
+  \ifMTr@mytriangle%
+    \global\MTr@triangletrue%
+  \else%
+    \global\MTr@trianglefalse%
+  \fi%
+}
+\def\MTr@outputlabel{%
+    \global\MTr@treeheight\MTr@labelheight%
+    \global\MTr@treedepth\MTr@labeldepth%
+    \ifMTr@mytriangle%
+      \MTr@treew\MTr@labelhalfwidth%
+      \MTr@treev\MTr@labelhalfwidth%
+      \multiply\MTr@treew \MTr@trianglemultright%
+      \multiply\MTr@treev \MTr@trianglemultleft%
+      \divide\MTr@treew 50%
+      \divide\MTr@treev 50%
+      \global\MTr@treew\MTr@treew%
+      \global\MTr@treev\MTr@treev%
+    \else%
+      \global\MTr@treew\MTr@labelhalfwidth%
+      \global\MTr@treev\MTr@labelhalfwidth%
+    \fi%
+    \MTr@picwidth\wd\MTr@labelbox%
+    \MTr@picheight\MTr@treeheight%
+    \advance\MTr@picheight\MTr@treedepth%
+    \begin{picture}%
+        (\MTr@picwidth,\MTr@picheight)%
+        (-\MTr@treev,-\MTr@picheight)%
+      %\put(-\MTr@treev,-\MTr@picheight){\framebox(\MTr@picwidth,\MTr@picheight){}}%
+      \put(-\MTr@treev,0){%
+        \makebox(0,0)[tl]{%
+          \rule{0pt}{\MTr@minheight}%
+          \usebox{\MTr@labelbox}}}%
+    \end{picture}%
+}
+\def\MTr@outputonechild{%
+    \MTr@setparentdimens{i}{i}%
+    \advance\MTr@childix\MTr@morex%
+    \MTr@setverticalchilddimens{i}%
+    \MTr@picheight\MTr@piciheight%
+    \MTr@setpictureparameters%
+    \begin{picture}%
+          (\MTr@picwidth,\MTr@picheight)%
+          (0,-\MTr@picheight)%
+      %\put(0,-\MTr@picheight){\framebox(\MTr@picwidth,\MTr@picheight){}}%
+      \MTr@drawlabel%
+      \MTr@drawchild{i}%
+     \MTr@drawchildline{i}
+    \end{picture}%
+}
+\def\MTr@outputtwochildren{%
+    \MTr@adjustdistance{i}{ii}%
+    \MTr@setparentdimens{i}{ii}%
+    \advance\MTr@childix\MTr@morex%
+    \advance\MTr@childiix\MTr@morex%
+    \MTr@setverticalchilddimens{i}%
+    \MTr@setverticalchilddimens{ii}%
+    \ifnum\MTr@piciheight>\MTr@piciiheight%
+      \MTr@picheight\MTr@piciheight%
+    \else%
+      \MTr@picheight\MTr@piciiheight%
+    \fi%
+    \MTr@setpictureparameters%
+    \begin{picture}(\MTr@picwidth,\MTr@picheight)(0,-\MTr@picheight)%
+      %\put(0,-\MTr@picheight){\framebox(\MTr@picwidth,\MTr@picheight){}}%
+      \MTr@drawlabel%
+      \MTr@drawchild{i}
+      \MTr@drawchild{ii}
+      \MTr@drawchildline{i}
+      \MTr@drawchildline{ii}
+    \end{picture}%
+}
+\def\MTr@outputthreechildren{%
+    \MTr@adjustdistance{i}{ii}%
+    \MTr@adjustdistance{ii}{iii}%
+    \MTr@setparentdimens{i}{iii}%
+    \advance\MTr@childix\MTr@morex%
+    \advance\MTr@childiix\MTr@morex%
+    \advance\MTr@childiiix\MTr@morex%
+    \MTr@setverticalchilddimens{i}%
+    \MTr@setverticalchilddimens{ii}%
+    \MTr@setverticalchilddimens{iii}%
+    \MTr@picheight\MTr@piciheight%
+    \ifnum\MTr@piciiheight>\MTr@picheight%
+      \MTr@picheight\MTr@piciiheight%
+    \fi%
+    \ifnum\MTr@piciiiheight>\MTr@picheight%
+      \MTr@picheight\MTr@piciiiheight%
+    \fi%
+    \MTr@setpictureparameters%
+    \begin{picture}(\MTr@picwidth,\MTr@picheight)(0,-\MTr@picheight)%
+      %\put(0,-\MTr@picheight){\framebox(\MTr@picwidth,\MTr@picheight){}}%
+      \MTr@drawlabel%
+      \MTr@drawchild{i}%
+      \MTr@drawchild{ii}%
+      \MTr@drawchild{iii}%
+      \MTr@drawchildline{i}
+      \MTr@drawchildline{ii}
+      \MTr@drawchildline{iii}
+    \end{picture}%
+}
+\endinput
+%%
+%% End of file `synttree.sty'.