From 2e3fde47ddb7b29ee2f0587f2df92891dbc377bc Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 30 Sep 2020 21:30:06 +0000 Subject: youngtab now generic (30sep20) git-svn-id: svn://tug.org/texlive/trunk@56494 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/generic/youngtab/README | 94 +++++++++++++ Master/texmf-dist/doc/generic/youngtab/makeydoc | 59 +++++++++ Master/texmf-dist/doc/generic/youngtab/youngtab.el | 42 ++++++ .../texmf-dist/doc/generic/youngtab/youngtab.pdf | Bin 0 -> 166158 bytes .../texmf-dist/doc/generic/youngtab/youngtab.tex | 146 +++++++++++++++++++++ Master/texmf-dist/doc/latex/youngtab/README | 94 ------------- Master/texmf-dist/doc/latex/youngtab/makeydoc | 59 --------- Master/texmf-dist/doc/latex/youngtab/makeydoc.bat | 45 ------- Master/texmf-dist/doc/latex/youngtab/youngtab.el | 42 ------ Master/texmf-dist/doc/latex/youngtab/youngtab.pdf | Bin 166158 -> 0 bytes Master/texmf-dist/doc/latex/youngtab/youngtab.tex | 146 --------------------- 11 files changed, 341 insertions(+), 386 deletions(-) create mode 100644 Master/texmf-dist/doc/generic/youngtab/README create mode 100755 Master/texmf-dist/doc/generic/youngtab/makeydoc create mode 100644 Master/texmf-dist/doc/generic/youngtab/youngtab.el create mode 100644 Master/texmf-dist/doc/generic/youngtab/youngtab.pdf create mode 100644 Master/texmf-dist/doc/generic/youngtab/youngtab.tex delete mode 100644 Master/texmf-dist/doc/latex/youngtab/README delete mode 100644 Master/texmf-dist/doc/latex/youngtab/makeydoc delete mode 100755 Master/texmf-dist/doc/latex/youngtab/makeydoc.bat delete mode 100644 Master/texmf-dist/doc/latex/youngtab/youngtab.el delete mode 100644 Master/texmf-dist/doc/latex/youngtab/youngtab.pdf delete mode 100644 Master/texmf-dist/doc/latex/youngtab/youngtab.tex (limited to 'Master/texmf-dist/doc') diff --git a/Master/texmf-dist/doc/generic/youngtab/README b/Master/texmf-dist/doc/generic/youngtab/README new file mode 100644 index 00000000000..5facde72a07 --- /dev/null +++ b/Master/texmf-dist/doc/generic/youngtab/README @@ -0,0 +1,94 @@ +YOUNGTAB-Package +================ +----------------------------------------------------------------------- +Authors: +----------------------------------------------------------------------- + +Volker B"orchers (email: boercher@physik.uni-bremen.de) +and Stefan Gieseke (email: gieseke@physik.uni-bremen.de) + +----------------------------------------------------------------------- +Legal stuff: +----------------------------------------------------------------------- +Copyright (C) 1996,98,99 Volker B"orchers and Stefan Gieseke, +This program can be redistributed and/or modified under the terms +of the LaTeX Project Public License Distributed from CTAN +archives in directory macros/latex/base/lppl.txt; either +version 1 of the License, or any later version. + +----------------------------------------------------------------------- +FILES: +----------------------------------------------------------------------- + +README +---------------- the file you're reading now + +youngtab.dtx +---------------- a documentated version of the package. From it you can +generate both a documentation and the .sty file without most comments +using the docstrip utility. + +youngtab.ins +---------------- run TeX on it to generate the youngtab.sty in your +current working directory (from the .dtx file) + +makeydoc +---------------- this (unix-) script generates youngtab.dvi, the +documentation for the package. + +makeydoc.bat +---------------- same as makeydoc but for MSDOS (may need some editing). + +gind.ist +---------------- You need it to generate the index for the +documentation. (gind.ist is a official part of doc/docstrip +package. Just in the case this is not installed...) + +youngtab.tex +---------------- For thoose who don't use LaTeX but TeX. + +youngtab.el +---------------- Only for thoose who use Emacs in connection with +AUC-TeX, the best TeX-shell i can imagine.. Makes life with +Young-Tableaux even easier (autocompletion, syntax help). + + +----------------------------------------------------------------------- +INSTALL: +----------------------------------------------------------------------- +1) `tex youngtab.ins' (alternatively: `latex youngtab.ins') +2) `makeydoc' + * if you don't want any macrocode listings, uncomment the line + containing ``\OnlyDescription'' (remove the `#') +3) put `youngtab.sty' to a path where LaTeX can find it. + +----------------------------------------------------------------------- +For TeX-users: +----------------------------------------------------------------------- +follow the instructions in the documentation. (You must have +LaTeX2e to produce a .dvi file from youngtab.dtx -- Try to read the +.dtx file instead if you don't have!) +However there is a file already prepared for use with TeX: +`youngtab.tex' - try this and install in a directory where TeX will +find it. + +----------------------------------------------------------------------- +For AUC-TeX-users: +----------------------------------------------------------------------- +. to install it once and for all, copy `youngtab.el' to the AUC-TeX +style-directory, e.g. /usr/lib/emacs/site-lisp/auctex/style/. +. to install it locally: do `mkdir style; cp youngtab.el style' in the +directory where your .tex files, using youngtab, reside (or in each if +you have more). +. Provides autocompletion and syntax checks for the switches and +dimensions "Y.*" and \young and \yng if you type `C-c RET' in emacs. + +----------------------------------------------------------------------- +Date: +----------------------------------------------------------------------- +05/05/98 + +----------------------------------------------------------------------- +Version: +----------------------------------------------------------------------- +1.1 diff --git a/Master/texmf-dist/doc/generic/youngtab/makeydoc b/Master/texmf-dist/doc/generic/youngtab/makeydoc new file mode 100755 index 00000000000..d0fda75af83 --- /dev/null +++ b/Master/texmf-dist/doc/generic/youngtab/makeydoc @@ -0,0 +1,59 @@ +#!/bin/sh +# +# Everything after a `#' is ignored (in this shell script) +# +# remove the string `> /dev/null' if you want more log-output +# remove the line containing `batchmode' if you want even more +# log-information while running LaTeX +# +#----------------- create a `ltxdoc.cfg': -------------------------- + +# Put here a list of options to pass to the class: +OPT=a4paper + +echo "Generating configuration file ltxdoc.cfg for youngtab.dtx" + +# Write the file in one pass: +cat > ltxdoc.cfg < /dev/null) +then + echo;echo "2nd latex $ThisDoc" + latex $ThisDoc > /dev/null + + echo;echo "makeindex -s gind.ist $Base.idx" + makeindex -s gind.ist $Base.idx + echo;echo "3rd latex $ThisDoc" + latex $ThisDoc > /dev/null +else + echo;cat < +;; This program can be redistributed and/or modified under the terms +;; of the LaTeX Project Public License Distributed from CTAN +;; archives in directory macros/latex/base/lppl.txt; either +;; version 1 of the License, or any later version. + +;;-((and (not( = elisp favorite-language)) (concat "lucky" "it" "works" (!)))) + +(TeX-add-style-hook "youngtab" + (function + (lambda () + (TeX-add-symbols + '("Yboxdim" "Box Dimension") + '("Ylinethick" "Line Thickness") + '("Yinterspace" "Space between 2 Tableaux") + '("Yvcentermath" TeX-arg-young-bool) + '("Ystdtext" TeX-arg-young-bool) + '("yng" (TeX-arg-young t)) + '("young" TeX-arg-young) + )))) + +(defun TeX-arg-young (optional &optional isyng) + "Insert macros young and yng. +Ask for the rows of a tableau. +Do not accept non-numbers for yng." + (let ((num 0)) + (insert "(") + (while (>= num 0) + (setq num (1+ num)) + (setq row (read-input (concat (int-to-string num) ". Row: "))) + (if (zerop (length row)) + (setq num -1) + (if (and isyng (<= (string-to-int row) 0)) + (setq num (- num 1)) + (insert (if (> num 1) "," "") row))))) + (insert ")")) + +(defun TeX-arg-young-bool (optional) + "To handle the switches Yvcentermath and Ystdtext" + (insert (if (y-or-n-p "true(y) or false(n)? ") "1" "0"))) + diff --git a/Master/texmf-dist/doc/generic/youngtab/youngtab.pdf b/Master/texmf-dist/doc/generic/youngtab/youngtab.pdf new file mode 100644 index 00000000000..b91f4ae4e90 Binary files /dev/null and b/Master/texmf-dist/doc/generic/youngtab/youngtab.pdf differ diff --git a/Master/texmf-dist/doc/generic/youngtab/youngtab.tex b/Master/texmf-dist/doc/generic/youngtab/youngtab.tex new file mode 100644 index 00000000000..895a7c3267b --- /dev/null +++ b/Master/texmf-dist/doc/generic/youngtab/youngtab.tex @@ -0,0 +1,146 @@ +%% +%% This is file `youngtab.tex', +%% (manually) generated from `youngtab.sty' +%% (For use with TeX) +%% +%% The original source files were: +%% +%% youngtab.dtx (with options: `package') +%% +%% Copyright (C) 1996,98,99 Volker B"orchers and Stefan Gieseke, +%% This program can be redistributed and/or modified under the terms +%% of the LaTeX Project Public License Distributed from CTAN +%% archives in directory macros/latex/base/lppl.txt; either +%% version 1 of the License, or any later version. +\catcode`\@11\relax +\newif\ify@autoscale \y@autoscaletrue \def\Yautoscale#1{\ifnum #1=0 + \y@autoscalefalse\else\y@autoscaletrue\fi} +\newdimen\y@b@xdim +\newdimen\y@boxdim \y@boxdim=13pt +\def\Yboxdim#1{\y@autoscalefalse\y@boxdim=#1} +\newdimen\y@linethick \y@linethick=.3pt +\def\Ylinethick#1{\y@linethick=#1} +\newskip\y@interspace \y@interspace=0ex plus 0.3ex +\def\Yinterspace#1{\y@interspace=#1} +\newif\ify@vcenter \y@vcenterfalse +\def\Yvcentermath#1{\ifnum #1=0 \y@vcenterfalse\else\y@vcentertrue\fi} +\newif\ify@stdtext \y@stdtextfalse +\def\Ystdtext#1{\ifnum #1=0 \y@stdtextfalse\else\y@stdtexttrue\fi} +\newif\ify@enable@skew \y@enable@skewfalse +%% To use skew tableaux, define a macro \enableskew +%% right before loading this file: \def\enableskew{1} +\expandafter\ifx\csname enableskew\endcsname\relax + \y@enable@skewfalse \else \y@enable@skewtrue\fi +%% \DeclareOption{noautoscale}{\y@autoscalefalse} +%% \DeclareOption{vcentermath}{\y@vcentertrue} +%% \DeclareOption{stdtext}{\y@vcentertrue} +%% \DeclareOption{enableskew}{\y@enable@skewtrue} +%% \DeclareOption*{\PackageWarning{youngtab}{% +%% Unknown option `\CurrentOption' (Known:\MessageBreak +%% `vcentermath', `noautoscale', `stdtext', `enableskew'.)}} +%% \ProcessOptions\relax +\def\y@vr{\vrule height0.8\y@b@xdim width\y@linethick depth 0.2\y@b@xdim} +\def\y@emptybox{\y@vr\hbox to \y@b@xdim{\hfil}} +\ify@enable@skew + \def\y@abcbox#1{\if :#1\else + \y@vr\hbox to \y@b@xdim{\hfil#1\hfil}\fi} + \def\y@mathabcbox#1{\if :#1\else + \y@vr\hbox to \y@b@xdim{\hfil$#1$\hfil}\fi} +\else + \def\y@abcbox#1{\y@vr\hbox to \y@b@xdim{\hfil#1\hfil}} + \def\y@mathabcbox#1{\y@vr\hbox to \y@b@xdim{\hfil$#1$\hfil}} +\fi +\def\y@setdim{% + \ify@autoscale% + \ifvoid1\else\typeout{Package youngtab: box1 not free! Expect an + error!}\fi% + \setbox1=\hbox{A}\y@b@xdim=1.6\ht1 \setbox1=\hbox{}\box1% + \else\y@b@xdim=\y@boxdim \advance\y@b@xdim by -2\y@linethick + \fi} +\newcount\y@counter +\newif\ify@islastarg +\def\y@lastargtest#1,#2 {\if\space #2 \y@islastargtrue + \else\y@islastargfalse\fi} +\def\y@emptyboxes#1{\y@counter=#1\loop\ifnum\y@counter>0 + \advance\y@counter by -1 \y@emptybox\repeat} +\def\y@nelineemptyboxes#1{% + \vbox{% + \hrule height\y@linethick% + \hbox{\y@emptyboxes{#1}\y@vr} + \hrule height\y@linethick}\vskip-\y@linethick} +\def\yng(#1){% + \y@setdim% + \hskip\y@interspace% + \ifmmode\ify@vcenter\vcenter\fi\fi{% + \y@lastargtest#1, + \vbox{\offinterlineskip + \ify@islastarg + \y@nelineemptyboxes{#1} + \else + \y@ungempty(#1) + \fi}}\hskip\y@interspace} +\def\y@ungempty(#1,#2){% + \y@nelineemptyboxes{#1} + \y@lastargtest#2, + \ify@islastarg + \y@nelineemptyboxes{#2} + \else + \y@ungempty(#2) + \fi} +\def\y@nelettertest#1#2. {\if\space #2 \y@islastargtrue + \else\y@islastargfalse\fi} +\def\y@abcboxes#1#2.{% + \ify@stdtext\y@abcbox#1\else\y@mathabcbox#1\fi% + \y@nelettertest #2. + \ify@islastarg\unskip% + \ify@stdtext\y@abcbox{#2}\else\y@mathabcbox{#2}\fi% + \else\y@abcboxes#2.\fi} + \newdimen\y@full@b@xdim + \newcount\y@m@veright@cnt +\ify@enable@skew + \def\y@get@m@veright@cnt#1#2.{% + \if :#1 \advance\y@m@veright@cnt by 1\y@get@m@veright@cnt#2.\fi} + \let\y@setdim@=\y@setdim + \def\y@setdim{% + \y@setdim@ \y@full@b@xdim=\y@b@xdim + \advance\y@full@b@xdim by 1\y@linethick} + \def\y@m@veright@ifskew#1{ + \y@m@veright@cnt=0 \y@get@m@veright@cnt#1. + \moveright \y@m@veright@cnt\y@full@b@xdim} +\else + \def\y@m@veright@ifskew#1{} +\fi +\def\y@nelineabcboxes#1{% + \y@nelettertest #1. + \ify@islastarg + \y@m@veright@ifskew{#1} + \vbox{ + \hrule height\y@linethick% + \hbox{\ify@stdtext\y@abcbox#1\else\y@mathabcbox#1\fi\y@vr} + \hrule height\y@linethick}\vskip-\y@linethick + \else + \y@m@veright@ifskew{#1} + \vbox{ + \hrule height\y@linethick% + \hbox{\y@abcboxes #1.\y@vr}% + \hrule height\y@linethick}\vskip-\y@linethick + \fi} +\def\young(#1){% + \y@setdim% + \hskip\y@interspace% + \y@lastargtest#1, + \ifmmode\ify@vcenter\vcenter\fi\fi{% + \vbox{\offinterlineskip + \ify@islastarg\y@nelineabcboxes{#1}% + \else\y@ungabc(#1)% + \fi}}\hskip\y@interspace} +\def\y@ungabc(#1,#2){% + \y@nelineabcboxes{#1}% + \y@lastargtest#2, + \ify@islastarg\y@nelineabcboxes{#2}% + \else\y@ungabc(#2)% + \fi} +\catcode`\@12\relax +\endinput +%% +%% End of file `youngtab.tex'. diff --git a/Master/texmf-dist/doc/latex/youngtab/README b/Master/texmf-dist/doc/latex/youngtab/README deleted file mode 100644 index 5facde72a07..00000000000 --- a/Master/texmf-dist/doc/latex/youngtab/README +++ /dev/null @@ -1,94 +0,0 @@ -YOUNGTAB-Package -================ ------------------------------------------------------------------------ -Authors: ------------------------------------------------------------------------ - -Volker B"orchers (email: boercher@physik.uni-bremen.de) -and Stefan Gieseke (email: gieseke@physik.uni-bremen.de) - ------------------------------------------------------------------------ -Legal stuff: ------------------------------------------------------------------------ -Copyright (C) 1996,98,99 Volker B"orchers and Stefan Gieseke, -This program can be redistributed and/or modified under the terms -of the LaTeX Project Public License Distributed from CTAN -archives in directory macros/latex/base/lppl.txt; either -version 1 of the License, or any later version. - ------------------------------------------------------------------------ -FILES: ------------------------------------------------------------------------ - -README ----------------- the file you're reading now - -youngtab.dtx ----------------- a documentated version of the package. From it you can -generate both a documentation and the .sty file without most comments -using the docstrip utility. - -youngtab.ins ----------------- run TeX on it to generate the youngtab.sty in your -current working directory (from the .dtx file) - -makeydoc ----------------- this (unix-) script generates youngtab.dvi, the -documentation for the package. - -makeydoc.bat ----------------- same as makeydoc but for MSDOS (may need some editing). - -gind.ist ----------------- You need it to generate the index for the -documentation. (gind.ist is a official part of doc/docstrip -package. Just in the case this is not installed...) - -youngtab.tex ----------------- For thoose who don't use LaTeX but TeX. - -youngtab.el ----------------- Only for thoose who use Emacs in connection with -AUC-TeX, the best TeX-shell i can imagine.. Makes life with -Young-Tableaux even easier (autocompletion, syntax help). - - ------------------------------------------------------------------------ -INSTALL: ------------------------------------------------------------------------ -1) `tex youngtab.ins' (alternatively: `latex youngtab.ins') -2) `makeydoc' - * if you don't want any macrocode listings, uncomment the line - containing ``\OnlyDescription'' (remove the `#') -3) put `youngtab.sty' to a path where LaTeX can find it. - ------------------------------------------------------------------------ -For TeX-users: ------------------------------------------------------------------------ -follow the instructions in the documentation. (You must have -LaTeX2e to produce a .dvi file from youngtab.dtx -- Try to read the -.dtx file instead if you don't have!) -However there is a file already prepared for use with TeX: -`youngtab.tex' - try this and install in a directory where TeX will -find it. - ------------------------------------------------------------------------ -For AUC-TeX-users: ------------------------------------------------------------------------ -. to install it once and for all, copy `youngtab.el' to the AUC-TeX -style-directory, e.g. /usr/lib/emacs/site-lisp/auctex/style/. -. to install it locally: do `mkdir style; cp youngtab.el style' in the -directory where your .tex files, using youngtab, reside (or in each if -you have more). -. Provides autocompletion and syntax checks for the switches and -dimensions "Y.*" and \young and \yng if you type `C-c RET' in emacs. - ------------------------------------------------------------------------ -Date: ------------------------------------------------------------------------ -05/05/98 - ------------------------------------------------------------------------ -Version: ------------------------------------------------------------------------ -1.1 diff --git a/Master/texmf-dist/doc/latex/youngtab/makeydoc b/Master/texmf-dist/doc/latex/youngtab/makeydoc deleted file mode 100644 index d0fda75af83..00000000000 --- a/Master/texmf-dist/doc/latex/youngtab/makeydoc +++ /dev/null @@ -1,59 +0,0 @@ -#!/bin/sh -# -# Everything after a `#' is ignored (in this shell script) -# -# remove the string `> /dev/null' if you want more log-output -# remove the line containing `batchmode' if you want even more -# log-information while running LaTeX -# -#----------------- create a `ltxdoc.cfg': -------------------------- - -# Put here a list of options to pass to the class: -OPT=a4paper - -echo "Generating configuration file ltxdoc.cfg for youngtab.dtx" - -# Write the file in one pass: -cat > ltxdoc.cfg < /dev/null) -then - echo;echo "2nd latex $ThisDoc" - latex $ThisDoc > /dev/null - - echo;echo "makeindex -s gind.ist $Base.idx" - makeindex -s gind.ist $Base.idx - echo;echo "3rd latex $ThisDoc" - latex $ThisDoc > /dev/null -else - echo;cat < ltxdoc.cfg -echo \batchmode >> ltxdoc.cfg - -rem The next lines produce full indexes and change logs -rem you may not want those: - -rem echo \AtBeginDocument{\RecordChanges} >> ltxdoc.cfg -rem echo \AtEndDocument{\PrintChanges} >> ltxdoc.cfg -echo \AtBeginDocument{\CodelineIndex\EnableCrossrefs} >> ltxdoc.cfg -echo \AtEndDocument{\PrintIndex} >> ltxdoc.cfg -echo \AtEndDocument{\addcontentsline{toc}{section}{Index}} >> ltxdoc.cfg - -rem If you do not want any code listings, just documentation, then instead -rem of the lines above, uncomment the following: - -rem echo \AtBeginDocument{\OnlyDescription} >> ltxdoc.cfg - -rem ---------- latex the documentation using `ltxdoc.cfg': -------------- - -echo 1st latex youngtab.dtx -latex youngtab.dtx - -echo 2nd latex youngtab.dtx -latex youngtab.dtx - -echo If you don't have Makeindex, exit now! -echo makeindx -s gind.ist youngtab.idx -makeindx -s gind.ist youngtab.idx -rem or: echo makeidx -s gind.ist youngtab.idx -rem or: makeidx -s gind.ist youngtab.idx - -echo 3rd latex youngtab.dtx -latex youngtab.dtx - -echo +++++++++++++ all done! ++++++++++++ - diff --git a/Master/texmf-dist/doc/latex/youngtab/youngtab.el b/Master/texmf-dist/doc/latex/youngtab/youngtab.el deleted file mode 100644 index 458049e8e2f..00000000000 --- a/Master/texmf-dist/doc/latex/youngtab/youngtab.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; youngtab.el - Support for the user macros of the youngtab package -;; by Volker B"orchers, -;; This program can be redistributed and/or modified under the terms -;; of the LaTeX Project Public License Distributed from CTAN -;; archives in directory macros/latex/base/lppl.txt; either -;; version 1 of the License, or any later version. - -;;-((and (not( = elisp favorite-language)) (concat "lucky" "it" "works" (!)))) - -(TeX-add-style-hook "youngtab" - (function - (lambda () - (TeX-add-symbols - '("Yboxdim" "Box Dimension") - '("Ylinethick" "Line Thickness") - '("Yinterspace" "Space between 2 Tableaux") - '("Yvcentermath" TeX-arg-young-bool) - '("Ystdtext" TeX-arg-young-bool) - '("yng" (TeX-arg-young t)) - '("young" TeX-arg-young) - )))) - -(defun TeX-arg-young (optional &optional isyng) - "Insert macros young and yng. -Ask for the rows of a tableau. -Do not accept non-numbers for yng." - (let ((num 0)) - (insert "(") - (while (>= num 0) - (setq num (1+ num)) - (setq row (read-input (concat (int-to-string num) ". Row: "))) - (if (zerop (length row)) - (setq num -1) - (if (and isyng (<= (string-to-int row) 0)) - (setq num (- num 1)) - (insert (if (> num 1) "," "") row))))) - (insert ")")) - -(defun TeX-arg-young-bool (optional) - "To handle the switches Yvcentermath and Ystdtext" - (insert (if (y-or-n-p "true(y) or false(n)? ") "1" "0"))) - diff --git a/Master/texmf-dist/doc/latex/youngtab/youngtab.pdf b/Master/texmf-dist/doc/latex/youngtab/youngtab.pdf deleted file mode 100644 index b91f4ae4e90..00000000000 Binary files a/Master/texmf-dist/doc/latex/youngtab/youngtab.pdf and /dev/null differ diff --git a/Master/texmf-dist/doc/latex/youngtab/youngtab.tex b/Master/texmf-dist/doc/latex/youngtab/youngtab.tex deleted file mode 100644 index 895a7c3267b..00000000000 --- a/Master/texmf-dist/doc/latex/youngtab/youngtab.tex +++ /dev/null @@ -1,146 +0,0 @@ -%% -%% This is file `youngtab.tex', -%% (manually) generated from `youngtab.sty' -%% (For use with TeX) -%% -%% The original source files were: -%% -%% youngtab.dtx (with options: `package') -%% -%% Copyright (C) 1996,98,99 Volker B"orchers and Stefan Gieseke, -%% This program can be redistributed and/or modified under the terms -%% of the LaTeX Project Public License Distributed from CTAN -%% archives in directory macros/latex/base/lppl.txt; either -%% version 1 of the License, or any later version. -\catcode`\@11\relax -\newif\ify@autoscale \y@autoscaletrue \def\Yautoscale#1{\ifnum #1=0 - \y@autoscalefalse\else\y@autoscaletrue\fi} -\newdimen\y@b@xdim -\newdimen\y@boxdim \y@boxdim=13pt -\def\Yboxdim#1{\y@autoscalefalse\y@boxdim=#1} -\newdimen\y@linethick \y@linethick=.3pt -\def\Ylinethick#1{\y@linethick=#1} -\newskip\y@interspace \y@interspace=0ex plus 0.3ex -\def\Yinterspace#1{\y@interspace=#1} -\newif\ify@vcenter \y@vcenterfalse -\def\Yvcentermath#1{\ifnum #1=0 \y@vcenterfalse\else\y@vcentertrue\fi} -\newif\ify@stdtext \y@stdtextfalse -\def\Ystdtext#1{\ifnum #1=0 \y@stdtextfalse\else\y@stdtexttrue\fi} -\newif\ify@enable@skew \y@enable@skewfalse -%% To use skew tableaux, define a macro \enableskew -%% right before loading this file: \def\enableskew{1} -\expandafter\ifx\csname enableskew\endcsname\relax - \y@enable@skewfalse \else \y@enable@skewtrue\fi -%% \DeclareOption{noautoscale}{\y@autoscalefalse} -%% \DeclareOption{vcentermath}{\y@vcentertrue} -%% \DeclareOption{stdtext}{\y@vcentertrue} -%% \DeclareOption{enableskew}{\y@enable@skewtrue} -%% \DeclareOption*{\PackageWarning{youngtab}{% -%% Unknown option `\CurrentOption' (Known:\MessageBreak -%% `vcentermath', `noautoscale', `stdtext', `enableskew'.)}} -%% \ProcessOptions\relax -\def\y@vr{\vrule height0.8\y@b@xdim width\y@linethick depth 0.2\y@b@xdim} -\def\y@emptybox{\y@vr\hbox to \y@b@xdim{\hfil}} -\ify@enable@skew - \def\y@abcbox#1{\if :#1\else - \y@vr\hbox to \y@b@xdim{\hfil#1\hfil}\fi} - \def\y@mathabcbox#1{\if :#1\else - \y@vr\hbox to \y@b@xdim{\hfil$#1$\hfil}\fi} -\else - \def\y@abcbox#1{\y@vr\hbox to \y@b@xdim{\hfil#1\hfil}} - \def\y@mathabcbox#1{\y@vr\hbox to \y@b@xdim{\hfil$#1$\hfil}} -\fi -\def\y@setdim{% - \ify@autoscale% - \ifvoid1\else\typeout{Package youngtab: box1 not free! Expect an - error!}\fi% - \setbox1=\hbox{A}\y@b@xdim=1.6\ht1 \setbox1=\hbox{}\box1% - \else\y@b@xdim=\y@boxdim \advance\y@b@xdim by -2\y@linethick - \fi} -\newcount\y@counter -\newif\ify@islastarg -\def\y@lastargtest#1,#2 {\if\space #2 \y@islastargtrue - \else\y@islastargfalse\fi} -\def\y@emptyboxes#1{\y@counter=#1\loop\ifnum\y@counter>0 - \advance\y@counter by -1 \y@emptybox\repeat} -\def\y@nelineemptyboxes#1{% - \vbox{% - \hrule height\y@linethick% - \hbox{\y@emptyboxes{#1}\y@vr} - \hrule height\y@linethick}\vskip-\y@linethick} -\def\yng(#1){% - \y@setdim% - \hskip\y@interspace% - \ifmmode\ify@vcenter\vcenter\fi\fi{% - \y@lastargtest#1, - \vbox{\offinterlineskip - \ify@islastarg - \y@nelineemptyboxes{#1} - \else - \y@ungempty(#1) - \fi}}\hskip\y@interspace} -\def\y@ungempty(#1,#2){% - \y@nelineemptyboxes{#1} - \y@lastargtest#2, - \ify@islastarg - \y@nelineemptyboxes{#2} - \else - \y@ungempty(#2) - \fi} -\def\y@nelettertest#1#2. {\if\space #2 \y@islastargtrue - \else\y@islastargfalse\fi} -\def\y@abcboxes#1#2.{% - \ify@stdtext\y@abcbox#1\else\y@mathabcbox#1\fi% - \y@nelettertest #2. - \ify@islastarg\unskip% - \ify@stdtext\y@abcbox{#2}\else\y@mathabcbox{#2}\fi% - \else\y@abcboxes#2.\fi} - \newdimen\y@full@b@xdim - \newcount\y@m@veright@cnt -\ify@enable@skew - \def\y@get@m@veright@cnt#1#2.{% - \if :#1 \advance\y@m@veright@cnt by 1\y@get@m@veright@cnt#2.\fi} - \let\y@setdim@=\y@setdim - \def\y@setdim{% - \y@setdim@ \y@full@b@xdim=\y@b@xdim - \advance\y@full@b@xdim by 1\y@linethick} - \def\y@m@veright@ifskew#1{ - \y@m@veright@cnt=0 \y@get@m@veright@cnt#1. - \moveright \y@m@veright@cnt\y@full@b@xdim} -\else - \def\y@m@veright@ifskew#1{} -\fi -\def\y@nelineabcboxes#1{% - \y@nelettertest #1. - \ify@islastarg - \y@m@veright@ifskew{#1} - \vbox{ - \hrule height\y@linethick% - \hbox{\ify@stdtext\y@abcbox#1\else\y@mathabcbox#1\fi\y@vr} - \hrule height\y@linethick}\vskip-\y@linethick - \else - \y@m@veright@ifskew{#1} - \vbox{ - \hrule height\y@linethick% - \hbox{\y@abcboxes #1.\y@vr}% - \hrule height\y@linethick}\vskip-\y@linethick - \fi} -\def\young(#1){% - \y@setdim% - \hskip\y@interspace% - \y@lastargtest#1, - \ifmmode\ify@vcenter\vcenter\fi\fi{% - \vbox{\offinterlineskip - \ify@islastarg\y@nelineabcboxes{#1}% - \else\y@ungabc(#1)% - \fi}}\hskip\y@interspace} -\def\y@ungabc(#1,#2){% - \y@nelineabcboxes{#1}% - \y@lastargtest#2, - \ify@islastarg\y@nelineabcboxes{#2}% - \else\y@ungabc(#2)% - \fi} -\catcode`\@12\relax -\endinput -%% -%% End of file `youngtab.tex'. -- cgit v1.2.3