diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-11 23:58:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-11 23:58:51 +0000 |
commit | 5207625972f9358905a04858dce25499866a2e46 (patch) | |
tree | 5340666910fdc153c48d4bf542d2d0c3959bfe58 /Master/texmf-dist/source/latex | |
parent | 8c15d11aef0e29321793969ea1cc7aa56bcae48e (diff) |
trunk/Master/texmf-dist/source/latex/ushort
git-svn-id: svn://tug.org/texlive/trunk@578 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex')
-rw-r--r-- | Master/texmf-dist/source/latex/ushort/ushort.dtx | 764 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/ushort/ushort.ins | 21 |
2 files changed, 785 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/ushort/ushort.dtx b/Master/texmf-dist/source/latex/ushort/ushort.dtx new file mode 100644 index 00000000000..cc6483debc9 --- /dev/null +++ b/Master/texmf-dist/source/latex/ushort/ushort.dtx @@ -0,0 +1,764 @@ +% \def\fileversion{2.1}\def\filedate{2001/06/07}\def\docdate{2001/06/08} +%\iffalse These lines are necessary for the doc and docstrip utilities +%<*asciidocu> + +%%# +%%# Author: +%%# +%%# M. V\"ath vaeth@mathematik.uni-wuerzburg.de +%%# + +%%############################################################################# +%%# +%%# With this package you may write shorter (or longer) underlines/underbars. +%%# This is particularly useful for `underlined' variables which are needed +%%# by some engineers. +%%# +%%############################################################################# + +%%# +%%# This package was tested with plain TeX, LaTeX 2.09, and LaTeX 2e, +%%# and it should actually run with most other TeX formats. +%%# + +% If you have access to (reasonable new) docstrip TeXfiles, you should run +% tex/latex on the file +% `ushort.ins' +% to produce the files `ushort.sty', `ushort.txt' and `ushort.tex'. +% (In case `ushort.ins' is lost: You can find its content in the last +% few lines of the file you are currently reading between the +% lines %<*insfile> and %</insfile>; +% BTW: You should name this file here `ushort.dtx' before you run tex +% on ushort.ins). +% +% The file `ushort.txt' contains a `brief' (but complete) ascii +% documentation. If you have additionally access to LaTeX2e, you may run +% latex on the generated file `ushort.tex' to produce `ushort.dvi' which +% contains a more luxury documentation. +% +% If you do not have access to the docstrip TeXfiles you may simply +% copy/rename this file here into +% `ushort.sty' +% to use the package and read the ascii documentation in this file. +% The ascii documentation (the content of `ushort.txt') consists of all +% lines in this file which start with %%# (this the above block and another +% (very large) block which follows soon). +% +% But I do not recommended this, because TeX will need more time to read this +% longer file, and because there might be a (very slight) incompatibility if +% you use it (namely if you load `ushort.sty' with some *extremely* strange +% catcodes). +% I recommend in this case instead to generate the file `ushort.sty' as +% anything between the lines %<*package> and %</package> by hand. +% (This is not precisely the file which you get with the docstrip TeXfiles, +% but a reasonable good substitute. To speed up loading, you may also +% eliminate all lines starting with `% ' in `ushort.sty'). +% For your information: The file `ushort.tex' produced by the docstrip +% TeXfiles is anything between the lines %<*driver> and %</driver> +% (with a line containing \endinput and two comment lines appended). +% +% +% In any case, you end up with the file `ushort.sty'. +% +% If you can generate `ushort.tex', you will probably want to stop +% reading now and instead read the `luxury' documentation in `ushort.dvi'. +% +% Otherwise, you have to make due with the following ascii documentation. +% +% +% \fi\catcode\#14\relax\iffalse (This line is needed for the doc utility) +% + +%%# In the newsgroup de.comp.text.tex the question arose whether it is +%%# possible to define `underlined' variables: Such variables are required for +%%# complex vectors by electrical engineers. +%%# The usual \underline command is not appropriate for this purpose, because +%%# the underlines of concatenated variables merge which is not desired. +%%# One may use the macro "\ushort" of this package instead. +%%# +%%# However, this package also provides a generic macro which allows to +%%# create new commands which work similarly but use different parameters +%%# for the underlines. In particular, it is possible to create e.g. a macro +%%# which draws longer underlines than usual or which does a similar task with +%%# \underbar. + +%%# +%%# Installation: +%%# + +%%# To use ushort, you have to put `ushort.sty' in a path where TeX looks +%%# for its input files. The TeX documents using ushort need the +%%# following modifications in their header: +%%# +%%# a) If you use LaTeX2.09, use ushort as a style option, e.g. +%%# \documentstyle[ushort]{article} +%%# or +%%# \documentstyle[ushort,12pt]{article} +%%# b) If you use LaTeX2e, put in the preamble the command +%%# \usepackage{ushort} +%%# c) If you use some other (non-LaTeX) format, you will probably have to +%%# insert a line like +%%# \catcode`\@=11\relax \input ushort.sty \catcode`\@=12\relax +%%# +%%# The only LaTeX-specific commands used in `ushort.sty' are: +%%# +%%# \newcommand (only in the form \newcommand{\command}{} to ensure that +%%# \command was not defined before) +%%# \ProvidesPackage +%%# \typeout +%%# +%%# The above commands are used only if they are defined. +%%# + +%%# +%%# Description of the provided macros: +%%# + +%%# This package provides the following macros. +%%# +%%# \ushort +%%# This command is used analogously to \underline with the difference that +%%# the underlines are slightly shorter than usual (and so, in particular, +%%# in concatenations of `\ushort'ed variable names the underlines do not +%%# merge). +%%# \ushortd +%%# This is analogous to \ushort except that the underline is doubled. +%%# \ushortdline +%%# This is analogous to \underline except that the underline is doubled. +%%# This command is internally used by \ushortd and thus redefinitions +%%# change also the behavior of \ushortd correspondingly. +%%# In Plain TeX, this macro can be used only in math mode. +%%# \ushortCreate +%%# This can be used to generate a macro which behaves similarly to \ushort +%%# or \ushortd but for which certain parameters can be changed. +%%# \ushortEnsuremath +%%# This is rather equivalent to the LaTeX2e macro \ensuremath +%%# (but is available also e.g. in compatibility mode or if this package +%%# is used with plain TeX or LaTeX 2.09). +%%# +%%# Only \ushortCreate needs a detailed description. Its call syntax is: +%%# +%%# \ushortCreate*:\command[Summand]<FactorBefore>(FactorAfter) +%%# +{additional calculations}{Name} +%%# +%%# All arguments except for the last one {Name} are optional. +%%# Moreover, also the order of these arguments can be changed arbitrarily, +%%# and they can be repeated (all except for the last occurrence of each +%%# each type of argument is ignored). +%%# Only the last argument {Name} can not be repeated and must be at the end. +%%# +%%# This command creates a new macro \Name. It is not tested whether \Name +%%# already exists; if it exists already, it is overridden. In particular, +%%# it is admissible to use \ushortCreate to redefine \ushort or \ushortd. +%%# +%%# The macro \Name can be used analogously to \underline, but the precise +%%# behavior depends on the arguments of \ushortCreate. +%%# +%%# The meaning of the arguments is as follows: +%%# +%%# * If the * is present, then the command \underbar is used +%%# (instead of the default \underline) to draw the underline. +%%# Moreover, the command \underbar is not used in math mode (while +%%# \underline is used in math mode). +%%# :\command Use \command instead of the default \underline to draw the +%%# underline. Whether \command is executed in math mode or not +%%# depends on whether * has been used. +%%# [Summand] Add Summand to the length of the underline before drawing. +%%# Values like -.3\ht0 are admissible. Summand is expanded only when \Name +%%# is expanded, and \wd0 or \ht0 give the width respectively height of the +%%# argument given to \name. In particular, also the value of the unit `em' +%%# depends on the mode in which \Name is called. +%%# The default is empty (which means 0pt but is faster). +%%# <FactorBefore> Multiply the length of the underline before adding Summand. +%%# The empty string means 1 (and costs no time). +%%# The default is empty. +%%# (FactorAfter) Multiply the length of the underline after adding Summand. +%%# The empty string means 1 (and costs no time). +%%# The default is `.8'. +%%# +{Additional calculations} With this argument, you can introduce an +%%# arbitrary command sequence into the generated command: This sequence +%%# is executed (within a group) after Summand was added, but before +%%# FactorAfter is applied. This sequence is meant to do additional +%%# calculation with \dimen0 which is the length of the generated +%%# underline. When the calculations are carried out, \box0 contains the +%%# content which is to be underlined. However, in contrast to previous +%%# releases of this package, modifications of this box are ignored. +%%# Instead, the registers \dimen1 and \dimen2 also contain the height and +%%# depth of this box - you have to modify these values to attain the +%%# desired effect. +%%# +%%# Examples: +%%# +%%# The most important examples are the macros \ushort and \ushortd which +%%# have been created by +%%# +%%# \ushortCreate{ushort} +%%# \ushortCreate:\ushortdline{ushortd} +%%# +%%# A further example demonstrating other parameters is +%%# +%%# \ushortCreate(3)(.5){uline} +%%# +%%# This creates the macro \uline which underbars its argument but such that +%%# the underbar has only half of the usual length (the argument (3) +%%# in the above call is overridden by the later argument (.5)). +%%# +%%# A more useful example is +%%# +%%# \ushortCreate()[-.3\ht0]{ushort} +%%# +%%# This modifies \ushort such that the underline is shrunken by .3 times +%%# the height of the argument of \ushort. If the argument is one letter, this +%%# means: The higher the letter, the shorter the underline. This looks good +%%# for italic fonts with some exceptions (like the letter `b'). + +% This is the end of the ascii documentation +%</asciidocu> +%\fi\catcode\#6\relax +% +% \iffalse +%<*metainfo> +% \fi + +% \def\basename{ushort} + +%% \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 \~} + +% \CheckSum{265} + +% \iffalse +% \RecordChanges +% \fi +% \def\ChangesTab{\def\mypar{\par}}\let\orichanges\changes +% \def\changes#1#2#3{\orichanges{#1}{#2}{#3}\relax +% \expandafter\def\expandafter\ChangesTab\expandafter{\ChangesTab +% \item[v#1 {\mdseries(\emph{#2})}] {#3.}}} +% \newcommand{\cmdcite}[1]{\texttt{\textbackslash#1}} +% \def\mypar{} + +% \changes{2.1}{2001/06/07}{Improved speed dramatically (up to factor 4) +% by not using \cmdcite{phantom} anymore. Unfortunately, if bad hacks had +% been used for the argument ``Additional calculations'' in +% \cmdcite{ushortCreate}, they could fail to work now. For this reason, +% the major release number has been changed.\mypar +% Further internal change: In \cmdcite{ushrt@Main} the arguments are now +% expanded by a loop} +% \changes{1.4}{2001/04/06}{Set defaults for the parameters as documented} +% \changes{1.3}{2001/04/05}{Added the argument for additional calculations. +% Changed the default values of the arguments (and thus of \cmdcite{ushort})} +% \changes{1.2}{2001/04/04}{Removed a typing error in the scan macro and +% added the commands \cmdcite{ushortd} and \cmdcite{ushortdline}} +% \changes{1.1}{2001/04/04}{Introduced clean version of +% \cmdcite{ushortEnsuremath} (and eliminated the corresponding previous hack)} +% \changes{1.0}{2001/04/03}{First beta release} +% +% \iffalse +% +% The following part is the code needed to compile the documentation. +% We do some trickery here, because we want that this file here could be used +% for *both*: Compiling the documentation *and* as `ushort.sty' +% (if really required). +% Everything between the lines %<*driver> and %</driver> +% goes to the file `ushort.tex'. +% +% \fi +\ifcat @a% If this test is positive, then `@' has letter catcode which means +% that this file is loaded as a style file (or as described in the +% install section of the documentation). +\def\TemporaryDummy{} +\else\long\def\TemporaryDummy{% +% +% +% \iffalse +%</metainfo> +%<*driver> +\documentclass{ltxdoc} +\OnlyDescription%% Comment this out, or +%%\AlsoImplementation%% uncomment this line, if you want to see the source. + +%% If you want an index, uncomment one of the following lines. +%% After running latex a first time, you have to use +%% makeindex -s gind.ist ushort +%% Then run latex again. +%%\CodelineIndex% comment this out if you want an index referring to codelines +%%\PageIndex% comment this out if you want an index referring to pages +%%\OldMakeindex% uncomment this line, if your MakeIndex is pre-v2.9 + +\setlength\hfuzz{15pt} +\hbadness=7000 +\begin{document} +\DocInput{ushort.dtx} +\end{document} +%</driver> +%<*metainfo> +% \fi +} +\fi\TemporaryDummy\let\TemporaryDummy\undefined +% +% \iffalse +% Personal macros used for the doc utility: +% \fi +% \MakeShortVerb{"} +% \def\bracemeta#1{\texttt{\{}\meta{#1}\texttt{\}}} +% \def\DescMac#1{\expandafter\DescribeMacro\expandafter{\csname#1\endcsname}} +% \def\iDescribe#1{\item[\mdseries\cmdcite{#1}:]\DescMac{#1}} +% \def\nocomment{} +% \parindent0pt + +% \title{The \texttt{ushort} package\thanks +% {This package has version number \fileversion{}, last revised \filedate.}} +% \author{Martin V\"ath\thanks +% {\texttt{vaeth@mathematik.uni-wuerzburg.de}}} +% \date{\docdate} +% \maketitle + +% \begin{abstract} +% With this package you may write shorter (or longer) underlines/underbars. +% This is particularly useful for `underlined' variables which are needed +% by some engineers. +% \end{abstract} + +% You may copy this package freely, as long as you distribute only unmodified +% and complete versions. + +% \tableofcontents + +% \section{Changes} +% +% \begin{description} +% \ChangesTab +% \end{description} + +% \section{Introduction} +% +% In the newsgroup "de.comp.text.tex" the question arose whether it is +% possible to define `underlined' variables: Such variables are required for +% complex vectors by electrical engineers. +% The usual "\underline" command is not appropriate for this purpose, because +% the underlines of concatenated variables merge which is not desired. +% One may use the macro "\ushort" of this package instead. +% +% However, this package also provides a generic macro which allows to +% create new commands which work similarly but use different parameters +% for the underlines. In particular, it is possible to create e.g.\ a macro +% which draws longer underlines than usual or which does a similar task with +% "\underbar". + +% \section{Installation} + +% This package was tested with \TeX, \LaTeX 2.09, and \LaTeXe, and it +% should actually run with most other \TeX\ formats. + +% To use ``ushort'', you have to put the file "ushort.sty" in a path where +% \TeX\ looks for its input files. The \TeX\ documents using ushort need the +% following modifications in their header: +% +% \begin{itemize} +% \item If you use \LaTeXe, put in the preamble the command +% \begin{verbatim} +% \usepackage{ushort}\end{verbatim} +% +% \item If you use \LaTeX 2.09, use "ushort" as a style option, e.g.\ +% \begin{verbatim} +% \documentstyle[ushort]{article}\end{verbatim} +% or +% \begin{verbatim} +% \documentstyle[ushort,12pt]{article}\end{verbatim} +% +% \item If you use some other (non-\LaTeX) format, you will probably have to +% insert a line like +% \begin{verbatim} +% \catcode`\@=11\relax \input ushort.sty \catcode`\@=12\relax\end{verbatim} +% +% \end{itemize} +% +% The only \LaTeX-specific commands used in "ushort.sty" are: +% +% \begin{itemize} +% \item "\newcommand" (used only in the form "\newcommand{"\meta{command}"}{}" +% to ensure that \meta{command} was not defined before) +% \item "\ProvidesPackage" +% \item "\typeout" +% \end{itemize} +% The above commands are used only if they are defined +% (for "\typeout" a reasonable substitute is used, otherwise). + +% +% \section{Description of the provided macros} +% +% This package provides the following macros. +% \begin{description} +% \iDescribe{ushort} +% This command is used analogously to +% "\underline" with the difference that the underlines are slightly shorter +% than usual (and so, in particular, in concatenations of "\ushort"'ed +% variable names the underlines do not merge). +% \iDescribe{ushortd} +% This is analogous to "\ushort" except that the underline is doubled. +% \iDescribe{ushortdline} +% This is analogous to "\underline" except that the underline is doubled. +% This command is internally used by "\ushortd" and thus redefinitions +% change also the behavior of "\ushortd" correspondingly. +% In Plain \TeX, this macro can be used only in math mode. +% \iDescribe{ushortCreate} +% This can be used to generate a macro which behaves similarly to "\ushort" +% or "\ushortd" but for which certain parameters can be changed. +% For a detailed description, see below. +% \iDescribe{ushortEnsuremath} +% This is rather equivalent to the \LaTeXe\ macro "\ensuremath" +% (but is available also e.g.\ in compatibility mode or if this package +% is used with plain \TeX\ or \LaTeX 2.09). +% \end{description} +% +% Only "\ushortCreate" needs a detailed description. Its call syntax is: +% \begin{quote} +%"\ushortCreate*:\"\meta{command}"["\meta{summand}"]<"\meta{factor before}">"\\ +%" "\relax +%"("\meta{factor after}")+"\bracemeta{additional calculations}\bracemeta{name} +% \end{quote} +% +% All arguments except for the last one \bracemeta{name} are optional. +% Moreover, also the order of these arguments can be changed arbitrarily, +% and they can be repeated (all except for the last occurrence of each +% each type of argument is ignored). +% Only the last argument \bracemeta{name} can not be repeated and must be at +% the end. +% +% This command creates a new macro \textbackslash\meta{name}. +% It is not tested whether \textbackslash\meta{name} already exists; +% if it exists already, it is overridden. In particular, +% it is admissible to use "\ushortCreate" to redefine "\ushort" or "\ushortd". +% +% The macro \textbackslash\meta{name} can be used analogously to "\underline", +% but the precise behavior depends on the arguments of "\ushortCreate". +% +% The meaning of the arguments is as follows: +% +% \begin{description} +% \item[\mdseries\texttt*] +% If the "*" is present, then the command "\underbar" is used +% (instead of the default "\underline") to draw the underline. +% Moreover, the command "\underbar" is not used in math mode (while +% "\underline" is used in math mode). +% \item[\mdseries\texttt:\textbackslash\meta{command}] +% Use \textbackslash\meta{command} instead of the default "\underline" to +% draw the underline. Whether \textbackslash\meta{command} is executed in +% math mode or not depends on whether "*" has been used. +% \item[\mdseries\texttt{[}\meta{summand}\texttt{]}] +% Add \meta{summand} to the length of the underline before drawing. +% Values like "-.3\ht0" are admissible. +% \meta{summand} is expanded only when \textbackslash\meta{name} is +% expanded, and "\wd0" or "\ht0" give the width respectively height of the +% argument given to "\name". In particular, also the value of the unit "em" +% depends on the mode in which \textbackslash\meta{name} is called. +% The default is empty (which means "0pt" but is faster). +% \item[\mdseries\texttt{<}\meta{factor before}\texttt{>}] +% Multiply the length of the underline before adding \meta{summand}. +% The empty string means $1$ (and costs no time). +% The default is empty. +% \item[\mdseries\texttt{(}\meta{factor after}\texttt{)}] +% Multiply the length of the underline after adding \meta{summand}. +% The empty string means $1$ (and costs no time). +% The default is "0.8". +% \item[\mdseries\texttt+\bracemeta{Additional calculations}] +% With this argument, you can introduce an arbitrary command sequence into +% the generated command: This sequence is executed (within a group) after +% \meta{summand} was added, but before \meta{factor after} is applied. +% This sequence is meant to do additional calculation with "\dimen0" which +% is the length of the generated underline. +% When the calculations are carried out, "\box0" contains the +% content which is to be underlined. However, in contrast to previous +% releases of this package, modifications of this box are ignored. +% Instead, the registers "\dimen1" and "\dimen2" also contain the height +% and depth of this box -- you have to modify these values to attain the +% desired effect. +% \end{description} +% +% Examples: +% The most important examples are the macros "\ushort" and "\ushortd" +% which have been created by +% \begin{verbatim} +% \ushortCreate{ushort}\end{verbatim} +% \begin{verbatim} +% \ushortCreate:\ushortdline{ushortd}\end{verbatim} +% A further example demonstrating other parameters is +% \begin{verbatim} +% \ushortCreate*(3)(.5){uline}\end{verbatim} +% This creates the macro "\uline" which underbars its argument but such that +% the underbar has only half of the usual length (the argument "(3)" in +% the above call is overridden by the later argument "(.5)").\par +% A more useful example is +% \begin{verbatim} +% \ushortCreate()[-.3\ht0]{ushort}\end{verbatim} +% This modifies "\ushort" such that the underline is shrunken by $.3$ times +% the height of the argument of "\ushort". If the argument is one letter, this +% means: The higher the letter, the shorter the underline. This looks good +% for italic fonts with some exceptions (like the letter "b"). + + +% \iffalse +%</metainfo> +% \fi +% \iffalse--------------------------------------------------------------\fi +% \StopEventually{\PrintChanges} +% \section{Implementation} +% +% \iffalse-------------------------------------------------------------- +% +% +%<*package> +% \fi +% \begin{macrocode} +%% +%% This file was generated by the docstrip utility from ushort.dtx. +%% You may distribute this file only together with the source ushort.dtx +%% (and if possible with ushort.ins) and only if these files are unmodified. +%% +%% Author: +%% +%% M. V\"ath vaeth@mathematik.uni-wuerzburg.de +%% + +\ifx\typeout\undefined + \def\ushrt@tmp{\immediate\write17} +\else + \let\ushrt@tmp\typeout +\fi +\ushrt@tmp{ushort.sty by M. Vaeth: Release: 2.1 } + +%% First, some LaTeX support: + +\ifx\ProvidesPackage\undefined\else + \ProvidesPackage{ushort}[2001/06/07 v2.1] +\fi + +\ifx\newcommand\undefined\else + \newcommand{\ushort}{} + \newcommand{\ushortd}{} + \newcommand{\ushortdline}{} + \newcommand{\ushortCreate}{} + \newcommand{\ushortEnsuremath}{} +\fi + +% \end{macrocode} +% +% \begin{macro}{\ushortCreate} +% We first scan the parameters into various macros. Then we call "\ushrt@Main". +% \begin{macrocode} +\def\ushortCreate{\let\ushrt@calc\ushrt@empty\let\ushrt@TextMode\undefined + \def\ushrt@FactorAfter{0.8}\let\ushrt@FactorBefore\ushrt@calc + \let\ushrt@Summand\ushrt@empty\def\ushrt@cmd{\underline}\ushrt@TestLoop} +\def\ushrt@TestLoop{\ushrt@TestAndExec*\ushrt@Star\ushrt@TestCommand} +\def\ushrt@Star*{\def\ushrt@cmd{\underbar}\let\ushrt@TextMode\ushrt@empty + \ushrt@TestLoop} +\def\ushrt@TestCommand{\ushrt@TestAndExec:\ushrt@GetCommand\ushrt@TestCalc} +\def\ushrt@GetCommand:#1{\def\ushrt@cmd{#1}\ushrt@TestLoop} +\def\ushrt@TestCalc{\ushrt@TestAndExec+\ushrt@GetCalc\ushrt@TestSummand} +\def\ushrt@GetCalc+#1{\def\ushrt@calc{#1}\ushrt@TestLoop} +\def\ushrt@TestSummand{\ushrt@TestAndExec[%] + \ushrt@GetSummand\ushrt@TestFactorBefore} +\def\ushrt@GetSummand[#1]{\def\ushrt@Summand{\advance\dimen0 by#1}% + \ushrt@TestLoop} +\def\ushrt@TestFactorBefore{\ushrt@TestAndExec<%> + \ushrt@GetFactorBefore\ushrt@TestFactorAfter} +\def\ushrt@GetFactorBefore<#1>{\def\ushrt@FactorBefore{#1}\ushrt@TestLoop} +\def\ushrt@TestFactorAfter{\ushrt@TestAndExec(%) + \ushrt@GetFactorAfter\ushrt@Main} +\def\ushrt@GetFactorAfter(#1){\def\ushrt@FactorAfter{#1}\ushrt@TestLoop} + +% \end{macrocode} +% +% \begin{macro}{\ushrt@TestAndExec} +% "\ushrt@TestAndExec" is a submacro needed to scan the parameters. +% \begin{macrocode} +\def\ushrt@TestAndExec#1#2#3{% + \ushrt@SkipAndExec{% + \ifx\ushrt@NextToken#1% + \def\ushrt@exec{#2}% + \else + \def\ushrt@exec{#3}% + \fi + \ushrt@exec}} +\def\ushrt@SkipAndExec#1{\def\ushrt@tmp{#1}\ushrt@skip} +\def\ushrt@skip{\futurelet\ushrt@NextToken\ushrt@tmp} + +% \end{macrocode} +% \end{macro} +% \begin{macro}{\ushrt@Main} +% "\ushrt@Main" calls "\ushrt@Define" with appropriately expanded parameters. +% \begin{macrocode} +\def\ushrt@Main#1{\def\ushrt@exec{\ushrt@Define}\ushrt@ExpandLoop + \ushrt@cmd\ushrt@calc\ushrt@Summand\ushrt@FactorBefore\ushrt@FactorAfter + {\csname#1\endcsname}{\csname ushrt@#1\endcsname}{}} + +% \end{macrocode} +% \begin{macro}{\ushrt@ExpandLoop} +% "\ushrt@ExpandLoop" expands successively the first token in each argument +% by precisely one level (until the empty argument is reached which marks +% the end of the argument list). +% The expanded arguments are put into "{...}" and added to the end of the +% content of "\ushrt@exec". +% When all arguments have been parsed, "\ushrt@exec" is executed. +% \begin{macrocode} +\def\ushrt@ExpandLoop#1{\def\ushrt@tmp{#1}% + \ifx\ushrt@tmp\ushrt@empty + \let\ushrt@tmp\ushrt@exec + \else + \let\ushrt@tmp\ushrt@ExpandLoop + \expandafter\ushrt@Expand\expandafter{#1}% + \fi\ushrt@tmp} +\def\ushrt@Expand#1{\expandafter + \def\expandafter\ushrt@exec\expandafter{\ushrt@exec{#1}}} + +% \end{macrocode} +% \end{macro} +% \end{macro} +% \begin{macro}{\ushrt@Define} +% All arguments of "\ushrt@Define" must be expanded. The call syntax is: +% \begin{quote} +%"\ushrt@Define"\relax +%\bracemeta{underline command}\bracemeta{calculations}\bracemeta{summand}\\ +%" "\relax +%\bracemeta{factor before}\bracemeta{factor after}"{\"\meta{name}"}"\relax +%"{\ushrt@"\meta{name}"}" +% \end{quote} +% Actually, \meta{summand} is not only the pure summand but the token sequence +% "\advance\dimen0 by"\meta{value}; \meta{summand} may also be empty. +% \begin{macrocode} +\def\ushrt@Define#1#2#3#4#5#6#7{% + \def#6##1{\ushortEnsuremath{\mathpalette#7{##1}##1}}% + \ifx\ushrt@TextMode\undefined + \def#7##1##2{\hbox to 0pt{{\mathsurround0pt$#1{% + {\setbox0\hbox{\mathsurround0pt$##1##2$}% + \dimen0=#4\wd0#3\dimen1\ht0\dimen2\dp0#2% + \setbox0\hbox to#5\dimen0{}\ht0\dimen1\dp0\dimen2% + \box0}}$\hss}}} + \else + \def#7##1##2{\hbox to 0pt{#1{% + {\setbox0\hbox{\mathsurround0pt$##1##2$}% + \dimen0=#4\wd0#3\dimen1\ht0\dimen2\dp0#2% + \setbox0\hbox to#5\dimen0{}\ht0\dimen1\dp0\dimen2% + \box0}}\hss}} + \fi} + +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\ushortEnsuremath} +% Since "\ensuremath" does not work due to \LaTeXe's irritating test for +% compatibility mode (and in order to use this package also for plain \TeX\ +% and \LaTeX 2.09), we must write our own "\ensuremath" command. The command +% "\relax" in the beginning is necessary, because otherwise our command would +% not work if it is the first command in e.g.\ an "{eqnarray}" environment. +% \begin{macrocode} +\def\ushortEnsuremath{\relax + \ifmmode + \let\ushrt@exec\ushrt@NoSwitch + \else + \let\ushrt@exec\ushrt@Switch + \fi\ushrt@exec} +\def\ushrt@NoSwitch#1{#1} +\def\ushrt@Switch#1{\relax$#1\relax$\relax} + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\ushrt@empty} +% We do not want to rely on the fact that "\empty" is defined as "{}", so +% we use our own definition. +% \begin{macrocode} +\def\ushrt@empty{} + +% \end{macrocode} +% \end{macro} +% \begin{macro}{\ushort} +% "\ushort" is nothing else but an instance created by "\ushortCreate" +% with the default values. +% \begin{macrocode} +\ushortCreate{ushort} + +% \end{macrocode} +% \end{macro} +% \begin{macro}{\ushortd} +% "\ushortd" is nothing else but an instance created by "\ushortCreate" +% with the default values but the \textbackslash\meta{command} value +% "\ushortdline" +% \begin{macrocode} +\ushortCreate:\ushortdline{ushortd} +% \end{macrocode} +% \begin{macro}{\ushortdline} +% "\ushortdline" in turn is very simple to implement: +% \begin{macrocode} +\def\ushortdline#1{\underline{\underline #1}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% +% \iffalse +%</package> +% \fi +% \Finale\PrintIndex +% +% +% +% \iffalse +%<*metainfo> +% \fi +\iffalse ------------------------------------------------------------- +% +% Just in case that for some reason the file `ushort.ins' got lost: +% The content of this file is between the lines %<*insfile> and %</insfile>. +% +%\iffalse +%</metainfo> +%<*insfile> +\def\batchfile{ushort.ins} +\input docstrip.tex +\keepsilent +\nopreamble +\generateFile{ushort.sty}{f}{\from{ushort.dtx}{package}} +\generateFile{ushort.txt}{f}{\from{ushort.dtx}{asciidocu}} +\generateFile{ushort.tex}{f}{\from{ushort.dtx}{driver}} +%%\generateFile{ushort.ins.dup}{f}{\from{ushort.dtx}{insfile}} + +\Msg{***************************************************************} +\Msg{*} +\Msg{* To finish the installation you have to move the} +\Msg{* file 'ushort.sty' into a directory searched by TeX.} +\Msg{*} +\Msg{*} +\Msg{* Run the file ushort.tex through LaTeX to produce the} +\Msg{* documentation or read the ascii documentation in ushort.txt} +\Msg{*} +\Msg{*} +\Msg{***************************************************************} +\endbatchfile +%</insfile> +%<*metainfo> +% \fi +\fi +% \iffalse +%</metainfo> +% \fi +\endinput + +%%% Local Variables: +%%% mode: latex +%%% TeX-master: "ushort.tex" +%%% End: diff --git a/Master/texmf-dist/source/latex/ushort/ushort.ins b/Master/texmf-dist/source/latex/ushort/ushort.ins new file mode 100644 index 00000000000..dca979e653c --- /dev/null +++ b/Master/texmf-dist/source/latex/ushort/ushort.ins @@ -0,0 +1,21 @@ +\def\batchfile{ushort.ins} +\input docstrip.tex +\keepsilent +\nopreamble +\generateFile{ushort.sty}{f}{\from{ushort.dtx}{package}} +\generateFile{ushort.txt}{f}{\from{ushort.dtx}{asciidocu}} +\generateFile{ushort.tex}{f}{\from{ushort.dtx}{driver}} +%%\generateFile{ushort.ins.dup}{f}{\from{ushort.dtx}{insfile}} + +\Msg{***************************************************************} +\Msg{*} +\Msg{* To finish the installation you have to move the} +\Msg{* file 'ushort.sty' into a directory searched by TeX.} +\Msg{*} +\Msg{*} +\Msg{* Run the file ushort.tex through LaTeX to produce the} +\Msg{* documentation or read the ascii documentation in ushort.txt} +\Msg{*} +\Msg{*} +\Msg{***************************************************************} +\endbatchfile |