familytree (27jun22)

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

1 files changed, 247 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/familytree/ft-lib.dtx b/Master/texmf-dist/source/latex/familytree/ft-lib.dtx
new file mode 100644
index 00000000000..2c54589f36a
--- /dev/null
+++ b/Master/texmf-dist/source/latex/familytree/ft-lib.dtx
@@ -0,0 +1,247 @@
+% \iffalse
+% Copyright 2022 Jiro Senju
+%
+% This package is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% any later version.
+%
+% This package is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this package.  If not, see <http://www.gnu.org/licenses/>.
+% \fi
+%
+% \section{Library (\texttt{ft-lib.dtx})}
+%
+% While this is the last section of this document, |ft-lib.dtx| is located
+% top of |sty|.
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \subsectImpl
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%    \begin{macrocode}
+\RequirePackage{relsize}
+\RequirePackage{xparse}
+%    \end{macrocode}
+%
+% \DescribeMacro{\ft@unit}
+% Represents a width of a single character.
+%
+% \DescribeMacro{\if@tate}
+% Supports Japanese vertical mode (|jlreq.cls|). Other than Japanese, this
+% dummy |\if@tate| is always false.
+% \medskip
+%
+%    \begin{macrocode}
+\global\newlength{\ft@unit}%
+\@ifundefined{if@tate}{%
+  \global\newif\if@tate%
+  \global\ft@unit=1em%
+}{
+  \global\ft@unit=1zw%
+}%
+%    \end{macrocode}
+%
+% \DescribeMacro{\ft@alias}
+% Makes an alias with prefix-less (|ft|).
+% I don't know why such many |\expandafter|s are necessary.
+% \medskip
+%
+%    \begin{macrocode}
+\newcommand{\ft@alias}[1]{% ft-less-name
+  \@ifundefined{#1}{%
+    \global\expandafter\expandafter\expandafter%
+      \let\expandafter\expandafter\csname#1\endcsname\expandafter%
+      =\csname ft#1\endcsname%
+  }{%
+    \message{skip alias to ft#1}%
+  }%
+}
+%    \end{macrocode}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \subsubsection{utility}
+%
+% \DescribeMacro{\ftymd}
+% \DescribeMacro{\ymd}
+% \cmd{\ftymd
+%   \marg{year}
+%   \oarg{month}
+%   \oarg{date}
+% }
+%
+% Arranges and prints year-month-date. Japanese vertical mode is supported.
+% Assumes to be used in \meta{additional info} of |\indvdldef|.
+% \medskip
+%
+%    \begin{macrocode}
+\NewDocumentCommand{\ftymd}{moo}{% year [month] [date]
+  \if@tate%
+  \tatechuyoko{#1}%
+  \IfValueT{#2}{\tatechuyoko{#2}}%
+  \IfValueT{#3}{\tatechuyoko{#3}}%
+  \else%
+  #1%
+  \IfValueT{#2}{\slash#2}%
+  \IfValueT{#3}{\slash#3}%
+  \fi%
+}
+\ft@alias{ymd}
+%    \end{macrocode}
+%
+% \noindent
+% \DescribeMacro{\ftundef}
+% \cmd{\ftundef
+%   \marg{box name}
+% }
+%
+% Undefines all internal \CS es who has \meta{box name} in its name.
+% For this macro, we don't define the prefix-less alias.
+% \medskip
+%
+%    \begin{macrocode}
+\newcommand{\ftundef}[1]{%
+  \@for\@temptokena:=#1\do{%
+    \global\expandafter\let\csname\@temptokena\endcsname=\relax%
+    \global\expandafter\let\csname\@temptokena nameCY\endcsname=\relax%
+    \global\expandafter\let\csname\@temptokena mrrgCY\endcsname=\relax%
+    \global\expandafter\let\csname\@temptokena hasmaleline\endcsname%
+      =\relax%
+  }%
+}
+%    \end{macrocode}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \subsubsection{internal library}
+%
+% \parag{global variable}
+%
+%    \begin{macrocode}
+\newif\ifft@box@has@maleline
+\newif\ifft@widest@has@no@maleline
+\newlength{\ft@len}
+\newlength{\ft@width}
+\newlength{\ft@height}
+\newlength{\ft@depth}
+\newlength{\ft@theight}
+\newlength{\ft@x}
+\newlength{\ft@xx}
+\newlength{\ft@y}
+\newlength{\ft@yy}
+%    \end{macrocode}
+%
+% \parag{utility function}
+%
+% \DescribeMacro{\ft@namexdef}
+% \DescribeMacro{\ft@namexdefstrip}
+% \NoDescription
+%    \begin{macrocode}
+\newcommand{\ft@namexdef}[2]{% name value
+  \global\expandafter\edef\csname#1\endcsname{#2}%
+  %\expandafter\xdef\csname#1\endcsname{#2}%
+  \ft@dbgmsg{xdef #1 #2}%
+}
+\newcommand{\ft@namexdefstrip}[2]{% name length
+  \ft@namexdef{#1}{\strip@pt#2}%
+}
+%    \end{macrocode}
+%
+% \DescribeMacro{\ft@savenamebox}
+% \DescribeMacro{\ft@newnamebox}
+% \NoDescription
+%    \begin{macrocode}
+\newcommand{\ft@savenamebox}[2]{% name contents
+  \expandafter\savebox\expandafter{\csname#1\endcsname}{#2}%
+}
+\newcommand{\ft@newnamebox}[2]{% name contents
+  \global\expandafter\newsavebox\expandafter{\csname#1\endcsname}%
+  \ft@savenamebox{#1}{#2}%
+}
+%    \end{macrocode}
+%
+% \DescribeMacro{\ft@nameboxsz}
+% \DescribeMacro{\ft@boxsz}
+% \NoDescription
+%    \begin{macrocode}
+\newcommand{\ft@nameboxsz}[4][]{% [width] name ht-value dp-value
+  \ifx#1\empty\else%
+  \expandafter\wd\csname#2\endcsname=#1%
+  \fi%
+  \expandafter\ht\csname#2\endcsname=#3%
+  \expandafter\dp\csname#2\endcsname=#4%
+  \ft@dbgmsg{#2 box, W \the\wd\@nameuse{#2}, H \the\ht\@nameuse{#2},%
+    D \the\dp\@nameuse{#2}}%
+}
+\newcommand{\ft@boxsz}[3]{% box ht-value dp-value
+  \expandafter\ht#1=#2%
+  \expandafter\dp#1=#3%
+  \ft@dbgmsg{#2 box, W \the\wd#1, H \the\ht#1, D \the\dp#1}%
+}
+%    \end{macrocode}
+%
+% \DescribeMacro{\ft@list@append}
+% \NoDescription
+%    \begin{macrocode}
+\newcommand{\ft@list@append}[3]{% list element
+  \ifx#1\empty%
+  \xdef#1{#2}%
+  \else%
+  \xdef#1{#1,#2}%
+  \fi%
+}
+\iffalse
+\newcommand{\ft@detokenize}[1]{%
+  {%
+    \escapechar=`\ %
+    \catcode`\ =9%
+    %\string#1%
+    \detokenize{#1}%
+  }%
+}
+\fi
+%    \end{macrocode}
+%
+% \parag{debugging}
+%
+% \DescribeMacro{\ifftdbg}
+% \DescribeMacro{\ft@dbgmsg}
+% \DescribeMacro{\ft@dbgframe}
+% \DescribeMacro{\ft@dbgplot}
+% \DescribeMacro{\ft@dbgbox}
+% \NoDescription
+%    \begin{macrocode}
+\newif\ifftdbg
+\newcommand{\ft@dbgmsg}[1]{%
+  \ifftdbg%
+    \message{#1}%
+  \fi%
+}
+\newcommand{\ft@dbgframe}[2][0,0]{% [point x,y] width,height
+  \ifftdbg%
+    \put(#1){\framebox(#2){}}%
+  \fi%
+}
+\newcommand{\ft@dbgplot}[2][]{%
+  \ifftdbg%
+    \put(#2){\circle{1}{\tiny#1}}%
+  \fi%
+}%
+\newcommand{\ft@dbgbox}[2][]{% [extra-put] box
+  \ifftdbg%
+    \ft@len=\dimexpr\ht#2 + \dp#2\relax%
+    \begin{picture}(\strip@pt\wd#2,\strip@pt\ht#2)(0,-\strip@pt\dp#2)%
+      \ft@dbgframe[0,-\strip@pt\dp#2]{\strip@pt\wd#2,\strip@pt\ft@len}%
+      %\put(0,0){{\tiny\ft@detokenize{#2}}}%
+      %\put(0,-\strip@pt\dp#2){\usebox{#2}}%
+      \put(0,0){\usebox{#2}}%
+      #1%
+    \end{picture}%
+  \fi%
+}
+%    \end{macrocode}