diff options
author | Karl Berry <karl@freefriends.org> | 2012-02-25 23:48:06 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-02-25 23:48:06 +0000 |
commit | d6acd1a5bfa42cd6adc57bbcd6c06a58cbf01eb4 (patch) | |
tree | 8138ac3a168b8eb8a9d2f2a9da21ef6ed8a725ee /Master | |
parent | 6b4264f45f77531796d8d090f09358be4dff8854 (diff) |
bezos (25feb12)
git-svn-id: svn://tug.org/texlive/trunk@25507 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/texmf-dist/doc/latex/bezos/bezos.pdf | bin | 121994 -> 116180 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/bezos/bezos.tex | 17 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/bezos/soulpos.pdf | bin | 0 -> 159884 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/bezos/soulpos.tex | 367 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/bezos/soulpos.sty | 275 |
5 files changed, 658 insertions, 1 deletions
diff --git a/Master/texmf-dist/doc/latex/bezos/bezos.pdf b/Master/texmf-dist/doc/latex/bezos/bezos.pdf Binary files differindex 866138541ea..1d20c0ca44a 100644 --- a/Master/texmf-dist/doc/latex/bezos/bezos.pdf +++ b/Master/texmf-dist/doc/latex/bezos/bezos.pdf diff --git a/Master/texmf-dist/doc/latex/bezos/bezos.tex b/Master/texmf-dist/doc/latex/bezos/bezos.tex index d79651a8bc8..6d259a67c84 100644 --- a/Master/texmf-dist/doc/latex/bezos/bezos.tex +++ b/Master/texmf-dist/doc/latex/bezos/bezos.tex @@ -13,7 +13,7 @@ \title{The \textsf{Bezos} bundle of packages} \author{Javier Bezos\\\normalsize\texttt{www.tex-tipografia.com}} -\date{2010-10-13} +\date{2012-02-25} \newenvironment{sample}{\small\begin{tabbing}% \hskip14pc\=\hskip6pc\\} @@ -251,6 +251,21 @@ most of classes do that, but there are exceptions like To use it, just \verb|\usepackage{arabicfront}|. +\section{Soulpos} + +This package just combines \textsf{soul} with the \texttt{savepos} +mechanism provided by the pdftex engine, so that you can create +(almost) arbitrary underlining and similar ``decorations'', including +rules, leaders and even pictures (\textsf{pgf}, \textsf{pstricks}, +etc.). Unlike \textsf{soul} underlines, which are built by repeating small +elements, here each chunk of text to be underlined is a single +element. + +A basic underlining is: +\begin{verbatim} +\ulposdef{\uline}{\rule[-.8ex]{\ulwidth}{.5pt}} +\end{verbatim} + % \section{Esbst} % % This file was formerly included in the Spanish style for diff --git a/Master/texmf-dist/doc/latex/bezos/soulpos.pdf b/Master/texmf-dist/doc/latex/bezos/soulpos.pdf Binary files differnew file mode 100644 index 00000000000..98d8e3b0689 --- /dev/null +++ b/Master/texmf-dist/doc/latex/bezos/soulpos.pdf diff --git a/Master/texmf-dist/doc/latex/bezos/soulpos.tex b/Master/texmf-dist/doc/latex/bezos/soulpos.tex new file mode 100644 index 00000000000..54c947e71cf --- /dev/null +++ b/Master/texmf-dist/doc/latex/bezos/soulpos.tex @@ -0,0 +1,367 @@ +% +--------------------------------------------------+ +% | Typeset this file to get the documentation. | +% +--------------------------------------------------+ +% +%% Copyright (C) 2012 Javier Bezos +%% All Rights Reserved +%% http://www.tex-tipografia.com +%% +%% This work may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3 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.3 or later is part of all distributions of LaTeX +%% version 2003/12/01 or later. +%% +%% This work has the LPPL maintenance status "maintained". +%% +%% This Current Maintainer of this work is Javier Bezos. +%% +%% This work consists of the files soulpos.tex and soulpos.sty. + +\documentclass[a4paper,twocolumn]{article} + +\title{Underlining (and more) with soulpos} +\author{Javier Bezos} +\date{2012-02-25} + +\usepackage{tikz} +\usetikzlibrary{decorations.pathmorphing} + +% \usepackage{soul} +\usepackage{soulpos} + +\renewcommand{\ulpostolerance}{12} + +\advance\textwidth16mm +\advance\oddsidemargin-8mm + +\makeatletter +\newenvironment{desc} + {\vskip2ex + \hrule + \trivlist\item[]} + {\endtrivlist} +\makeatother + +\begin{document} + +\maketitle + +This package just combines \textsf{soul} with the \texttt{savepos} +mechanism provided by the pdftex engine, so that you can create +(almost) arbitrary underlining and similar ``decorations'', including +rules, leaders and even pictures (\textsf{pgf}, \textsf{pstricks}, +etc.). Unlike \textsf{soul} underlines, which are built by repeating small +elements, here each chunk of text to be underlined is a single +element. + +The main drawback is obvious -- since it relies on \verb|\pdfsavepos| +two passes are necessary. Further, to prevent exhausting the hash +table, the auxiliary file containing the information about each +underline is read only when needed, which may impact performance +negatively.\footnote{Actually, two files are created, with extensions +\texttt{upa} and \texttt{upb}.} + +Internally \textsf{soul} knows to some point where a break happens, +and this information may be used to set diferent styles depending on +the position. + +This version (1.0) does almost no checking (e.g., to warn about the +need for a new run), which is left for a later release. + +The package \textsf{soulutf8} is loaded if it (or \textsf{soul}) has +not been loaded before (note the UTF-8 encoding is not necessary for +\textsf{soulutf8} to work). + +\section{Usage} + +Underlining macros are defined much like in \textsf{soul}. + +\begin{desc} +\verb|\ulposdef{<name>}[<options>]{<commands>}| +\end{desc} + +Defines an underline as \verb|<commands>|, which is placed in a box of +width zero with either \verb|\llap| or \verb|\rlap|, as explained +below. Typically, \verb|<commands>| will contain a rule or leaders. +If the text spans more than one line, then there will be several +chunks to be undelined (one per line). + +You can use the following macros in \verb|<commands>|. + +\begin{desc} +\verb|\ulwidth| +\end{desc} + +The width of the text block to be underlined. A basic underlining is: +\begin{verbatim} +\ulposdef{\uline}{\rule[-.8ex]{\ulwidth}{.5pt}} +\end{verbatim} + +\begin{desc} +\verb|\ifulstarttype{<type>}{<true>}{<false>}|\qquad +\verb|\ifulendtype{<type>}{<true>}{<false>}| +\end{desc} + +These tests can be used in \verb|<commands>|, to set different underlining +styles depending on where the current chunk begins or ends. Here +\verb|<type>| is: 0 if the very start or end of the underlined text, 1 if a +space, 2 if a discretionary hyphen and 3 if an explicit hyphen. See +an example below. + +\begin{desc} +\verb|\ulstarttype|\qquad\verb|\ulendtype| +\end{desc} + +Macros storing the values described above, so that you can use +\LaTeX{} conditionals (or \TeX{} ones). So, to check if the end is an +hyphen, test \verb|\ulendtype>1|. + +\vskip2ex +\hrule +\vskip2ex + +Valid keys/values in \verb|<options>| are: + +\begin{description} +\item[\texttt{xoffset}] +This key provides a simple way to fix an unpleasant effect found in +many programs when colouring the text background -- the colour starts +and ends just at the edges of the first and last characters. Just set +the offset to a value larger than 0pt, as for example .1 em. This +value is added ($\times$2) to \verb|\ulwidth|, but no space is added +to the text (which can be done with the \verb|gap| key). Of course, +you can still do finer adjustments in the definition of the underline, +as shown in the samples below. You can use \verb|xoffset-start| and +\verb|xoffset-end| to set the corresponding values separately. + +\item[\texttt{gap}] It is equivalent to the outer space in +\verb|\sodef|. This value is \textit{not} added to \verb|\ulwidth|. +You can use \verb|gap-start| and \verb|gap-end| to set the +corresponding values separately. + + +\item[\texttt{hyphens}] Sometimes excluding the hyphen from the +underlined text could make sense. Default is \verb|hyphens=include| +but you can set it to \verb|hyphens=exclude|. + + +\item[\texttt{overdraw}] By default underlines are drawn before the +text is typeset (with \verb|\rlap|), so that they are placed behind. +However, it can be drawn after (with \verb|\llap|), on top the text, +with \verb|overdraw| or, equivalently, \verb|overdraw=true| (default +is \verb|overdraw=false|). +\end{description} + +\begin{desc} +\verb|\ulpostolerance| +\end{desc} + +The current algorithm is based on changes of the $y$ coordinate of +savepos and therefore presumes a regular baseline. Any increasing or +decreasing of $y$ is considered a new chunk, but you can give a certain +tolerance with, for example: +\begin{verbatim} +\renewcommand{\ulpostolerance}{12} +\end{verbatim} + +\section{Future work} + +\begin{itemize} +\item Warnings. +\item In short documents, providing an option for using the aux file. +\item Redefinable macros. +\item \texttt{offset}, including edges at line breaks. +\item \texttt{.upb} is generated at the end of the run, so it might be +used by another program to generate the decorations. As of 1.0. +however, its syntax is likely to change and therefore unsupported. +\item Better manual. +\item Improved performance. +\item Fixing some issues in multicolumn text (it does not work if there +are just two lines, one at the left and the other at the right). +\item Some predefined ``decorations''. +\end{itemize} + +\newcommand\ulpossample[1]{% +A single #1{word}. Now #1{a few words}. Longer: +#1{this text spans several lines, so that you can see the behaviour of +\textsf{soulpos} where there are line breaks}.\vskip2ex\hrule\vskip2ex} + +\section{Examples} + +% \def\ulpostolerance{-78} + +\makeatletter +\expandafter\def\expandafter\verbatim@font\expandafter{% + \verbatim@font\small} +\makeatother + +\begin{verbatim} +\ulposdef{\ulpgfA}{% + \raisebox{-.75ex}{% + \begin{tikzpicture}% + \clip (0,-1pt) rectangle (\ulwidth,1pt); + \draw[ + color=black!40, + line width=.7pt, + decorate, + decoration= + {random steps, + segment length=1.5mm, + amplitude=.5pt}] + (0,0) -- +(\ulwidth+3pt,0); + \end{tikzpicture}}} +\end{verbatim} + +\ulposdef\ulpgfA{% + \raisebox{-.75ex}{% + \begin{tikzpicture}% + \clip (0,-1pt) rectangle (\ulwidth,1pt); + \draw[ + color=black!40, + line width=.7pt, + decorate, + decoration= + {random steps,segment length=1.5mm,amplitude=.5pt}] + (0,0) -- +(\ulwidth+3pt,0); + \end{tikzpicture}}} + +\ulpossample\ulpgfA + +\begin{verbatim} +\ulposdef{\ulpgfB}{% + \raisebox{-.75ex}{% + \begin{tikzpicture}% + \clip (0,-1pt) rectangle (\ulwidth,1pt); + \draw[color=black!40, + line width=.7pt, + decorate, + decoration= + {snake, + amplitude=.3pt, + segment length=1mm,}] + (0,0) -- +(\ulwidth+3pt,0); + \end{tikzpicture}}} +\end{verbatim} + +\ulposdef\ulpgfB{% + \raisebox{-.75ex}{% + \begin{tikzpicture}% + \clip (0,-1pt) rectangle (\ulwidth,1pt); + \draw[color=black!40, + line width=.7pt, + decorate, + decoration= + {snake, amplitude=.3pt,segment length=1mm,}] + (0,0) -- +(\ulwidth+3pt,0); + \end{tikzpicture}}} + +\ulpossample\ulpgfB + +\begin{verbatim} +\ulposdef{\ulpgfC}[xoffset=.15em]{% + \ifulstarttype{0}% + {\def\arr{|}}% + {\def\arr{<}}% + \ifulendtype{0}% + {\edef\arr{\arr-|}}% + {\edef\arr{\arr->}}% + \raisebox{-.7ex}{% + \tikz + \draw[\arr,color=black!40, + line width=1pt] + (0,0) -- +(\ulwidth-1pt,0);}} +\end{verbatim} + +\ulposdef\ulpgfC[xoffset=.15em]{% + \ifulstarttype{0}% + {\def\arr{|}}% + {\def\arr{<}}% + \ifulendtype{0}% + {\edef\arr{\arr-|}}% + {\edef\arr{\arr->}}% + \raisebox{-.7ex}{% + \tikz + \draw[\arr,color=black!40, + line width=1pt] + (0,0) -- +(\ulwidth-1pt,0);}} + +\ulpossample\ulpgfC + +\begin{verbatim} +\ulposdef{\ulbgdD}{% + \mbox{% + \color{black!30}% + \rule[-.8ex]{\ulwidth}{13pt}}} +\end{verbatim} + +\ulposdef\ulbgdD{% + \mbox{% + \color{black!30}% + \rule[-.8ex]{\ulwidth}{13pt}}} + +\ulpossample\ulbgdD + +\begin{verbatim} +\ulposdef{\ulbgdE}[xoffset=.1em]{% + \mbox{% + \color{black!30}% + \rule[-.8ex]{\ulwidth}{13pt}}} +\end{verbatim} + +\ulposdef\ulbgdE[xoffset=.1em]{% + \mbox{% + \color{black!30}% + \rule[-.8ex]{\ulwidth}{13pt}}} + +\ulpossample\ulbgdE + +\begin{verbatim} +\ulposdef{\uldash}{% + \makebox[\ulwidth]{% + \color{blue}% + \xleaders\hbox to.27em + {\hss\rule[-.8ex]{.18em}{.5pt}\hss}% + \hfill}} +\end{verbatim} + +\ulposdef\uldash{% + \makebox[\ulwidth]{% + \color{blue}% + \xleaders\hbox to.27em{\hss\rule[-.8ex]{.18em}{.5pt}\hss}\hfill}} + +\ulpossample\uldash + +\begin{verbatim} +\ulposdef{\uldot}{% + \mbox{% + \raisebox{-.85ex}{% + \xleaders\hbox to.2em + {\hss\footnotesize.\hss}\hskip\ulwidth}}} +\end{verbatim} + +\ulposdef\uldot{% + \mbox{% + \raisebox{-.85ex}{\xleaders\hbox to.2em{\hss\footnotesize.\hss}\hskip\ulwidth}}} + +\ulpossample\uldot + +\begin{verbatim} +\ulposdef{\ulflag}{% + \mbox{% + \color{red}\rule[-.85ex]{.25\ulwidth}{1.5pt}% + \color{yellow}\rule[-.85ex]{.5\ulwidth}{1.5pt}% + \color{red}\rule[-.85ex]{.25\ulwidth}{1.5pt}}} +\end{verbatim} + +\ulposdef\ulflag{% + \mbox{% + \color{red}\rule[-.85ex]{.25\ulwidth}{1.5pt}% + \color{yellow}\rule[-.85ex]{.5\ulwidth}{1.5pt}% + \color{red}\rule[-.85ex]{.25\ulwidth}{1.5pt}}} + +\ulpossample\ulflag + +\end{document}
\ No newline at end of file diff --git a/Master/texmf-dist/tex/latex/bezos/soulpos.sty b/Master/texmf-dist/tex/latex/bezos/soulpos.sty new file mode 100644 index 00000000000..7035b7e6f4a --- /dev/null +++ b/Master/texmf-dist/tex/latex/bezos/soulpos.sty @@ -0,0 +1,275 @@ +% +--------------------------------------------------+ +% | Typeset soulpos.tex to get the documentation. | +% +--------------------------------------------------+ +% +%% Copyright (C) 2012 Javier Bezos +%% All Rights Reserved +%% http://www.tex-tipografia.com +%% +%% This work may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3 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.3 or later is part of all distributions of LaTeX +%% version 2003/12/01 or later. +%% +%% This work has the LPPL maintenance status "maintained". +%% +%% This Current Maintainer of this work is Javier Bezos. +%% +%% This work consists of the files soulpos.tex and soulpos.sty. + +\ProvidesPackage{soulpos}[2012/02/25 v1.0 Fancy underlining] + +\newcount\ulp@subcnt +\newcount\ulp@cnt + +\newwrite\ulp@out +\newread\ulp@in + +\AtBeginDocument{\ulp@begindoc} + +\def\ulp@begindoc{% + \@ifundefined{SOUL@}% + {\PackageInfo{soulpos}{Loading soulutf8}% + \RequirePackage{soulutf8}}{}% + \openout\ulp@out=\jobname.upa\relax + \openin\ulp@in=\jobname.upb\relax} + +\let\ulp@afterend\relax + +\AtEndDocument{% + \closeout\ulp@out + \closein\ulp@in + \write\@auxout{\string\ulp@afterend}% + \def\ulp@afterend{% + \ulp@cnt\z@ + \message{* soulpos - computing points - it may take a few seconds *}% + \immediate\openout\ulp@out=\jobname.upb\relax + \begingroup + \makeatletter + \InputIfFileExists{\jobname.upa}{}{}% + \endgroup + \immediate\closeout\ulp@out}} + +% Underlining options +% -------------------- + +\RequirePackage{keyval} + +\define@key{soulpos}{overdraw}[true]{\@nameuse{ulp@pos@#1}} +\def\ulp@pos@false{\def\ulp@pos{\z@}} +\def\ulp@pos@true{\def\ulp@pos{\@ne}} + +\newif\ifulp@includehyphens +\ulp@includehyphenstrue + +\define@key{soulpos}{hyphens}[include]{\@nameuse{ulp@hyp@#1}} +\def\ulp@hyp@include{\ulp@includehyphenstrue} +\def\ulp@hyp@exclude{\ulp@includehyphensfalse} + +\define@key{soulpos}{xoffset}[0pt]{\def\ulp@skern{#1}\def\ulp@ekern{#1}} +\define@key{soulpos}{xoffset-start}[0pt]{\def\ulp@skern{#1}} +\define@key{soulpos}{xoffset-end}[0pt]{\def\ulp@ekern{#1}} + +\define@key{soulpos}{gap}[0pt]{\def\ulp@sgap{#1}\def\ulp@egap{#1}} +\define@key{soulpos}{gap-start}[0pt]{\def\ulp@sgap{#1}} +\define@key{soulpos}{gap-end}[0pt]{\def\ulp@egap{#1}} + +% Computing start/end points +% --------------------------- + +\newcommand\ulpostolerance{0}% + +\let\ulp@Gb\relax +\def\ulp@Pb#1{\expandafter\gdef\csname ulp@@#1\endcsname} + +\def\ulp@writeb{% + \count@\ulp@xlast + \advance\count@-\ulp@xfirst + \immediate\write\ulp@out{% + \string\ulp@Pb{\ulp@ulsub}% + {{\the\count@}\ulp@startprev\ulp@endprev}\@percentchar}} + +\def\ulp@Ga#1#2{% + \advance\ulp@cnt\@ne + \def\ulp@pos{#1}% + \immediate\write\ulp@out{\string\ulp@Gb\string{\@percentchar\iffalse}\fi}% + #2% + \ulp@writeb + \immediate\write\ulp@out{\iffalse{\fi\string}\@percentchar}} + +\def\ulp@Pa#1#2#3#4{% + \@tempswafalse + \ifnum#2=\@ne + \@tempswatrue + \else + \count@\ulp@ylast\relax + \advance\count@-#4\relax + \ifnum\ulpostolerance<\count@ + \ulp@writeb + \@tempswatrue + \else\ifnum-\ulpostolerance>\count@ + \ulp@writeb + \@tempswatrue + \fi\fi + \fi + \if@tempswa + \def\ulp@xfirst{#3}% + \def\ulp@startprev{#1}% + \ifnum\ulp@pos=\z@ + \edef\ulp@ulsub{#2}% + \fi + \fi + \def\ulp@endprev{#1}% + \def\ulp@xlast{#3}% + \def\ulp@ylast{#4}% + \ifnum\ulp@pos=\@ne + \edef\ulp@ulsub{#2}% + \fi} + +% Writing points to .upa +% ---------------------- + +\def\ulp@stepput{\ulp@step\ulp@put} +\def\ulp@step{\global\advance\ulp@subcnt\@ne} + +% 0: text, 1: space, 2: discretionary, 3 exhyph + +\newdimen\ulwidth + +\def\ulp@fetch#1#2#3{% + \ulwidth#1sp\relax + \def\ulstarttype{#2}% + \def\ulendtype{#3}} + +\def\ulp@put#1{% + \hb@xt@\z@\bgroup + \ifcase\ulp@pos\else\hss\fi % over + \@ifundefined{ulp@@\the\ulp@subcnt}{}% + {\expandafter\expandafter\expandafter + \ulp@fetch\csname ulp@@\the\ulp@subcnt\endcsname + \ulp@draw + \global\expandafter\let\csname ulp@@\the\ulp@subcnt\endcsname\@undefined}% + \ifcase\ulp@pos\hss\fi % over + \pdfsavepos + \protected@write\ulp@out{}% + {\string\ulp@Pa\number#1{\the\ulp@subcnt}% + {\noexpand\the\pdflastxpos}{\noexpand\the\pdflastypos}% + \@percentchar}% + \egroup} + +% The command for defining underlines +% ------------------------------------ + +\def\ulp@preamble{% + \ifeof\ulp@in + \else + \begingroup + \makeatletter + \catcode`\^^M=9 % avoids extra \par's + \read\ulp@in to\@tempa + \@tempa + \endgroup + \fi + \global\advance\ulp@cnt\@ne + \ulp@subcnt\z@ + \ifdim\ulp@sgap>0pt % sacar también desde aquí + \ifdim\lastskip>5sp + \unskip + \hskip\ulp@sgap + \fi + \fi + \protected@write\ulp@out{}{% + \string\ulp@Ga\ulp@pos + \string{\@percentchar\iffalse}\fi}% + \SOUL@setkern{-\ulp@skern}% + \ulp@stepput\z@ + \SOUL@setkern\ulp@skern} + +\def\ulp@postamble{% + \SOUL@setkern\ulp@ekern + \ulp@stepput\z@ + \SOUL@setkern{-\ulp@ekern}% + \write\ulp@out{\iffalse{\fi\string}\@percentchar}% + \ifdim\ulp@egap>0pt + \global\skip@\ulp@egap + \aftergroup\SOUL@socheck + \fi}% + +\def\ulp@everyspace#1{% + \ulp@stepput\@ne + #1\space + \ulp@stepput\@ne}% + +\def\ulp@everyhyphen{% + \ifulp@includehyphens + \ulp@step + \else + \ulp@stepput\tw@ + \fi + \ulp@step + \discretionary + {\SOUL@setkern\SOUL@hyphkern + \SOUL@sethyphenchar + \global\advance\ulp@subcnt\m@ne + \ifulp@includehyphens + \ulp@put\tw@ + \fi + \ulp@step}% + {\ulp@put\tw@}% + {}}% + +\def\ulp@everyexhyphen#1{% + \SOUL@setkern\SOUL@hyphkern + \ifulp@includehyphens + \hbox{#1}% + \ulp@stepput\thr@@ + \else + \ulp@stepput\thr@@ + \hbox{#1}% + \fi + \ulp@step + \discretionary{}% + {\ulp@put\thr@@}% + {\SOUL@setkern\SOUL@charkern}}% + +\newcommand\ulposdef[1]{% + \@ifnextchar[{\ulp@def#1}{\ulp@def#1[]}} + +\def\ulp@def#1[#2]#3{ + \DeclareRobustCommand*#1{% + \def\SOUL@preamble{% + \def\ulp@skern{0pt}% + \def\ulp@ekern{0pt}% + \def\ulp@sgap{0pt}% + \def\ulp@egap{0pt}% + \def\ulp@pos{\z@}% + \setkeys{soulpos}{#2}% + \def\ulp@draw{#3}% + \ulp@preamble}% + \let\SOUL@postamble\ulp@postamble + \let\SOUL@everyspace\ulp@everyspace + \let\SOUL@everyhyphen\ulp@everyhyphen + \let\SOUL@everyexhyphen\ulp@everyexhyphen + \let\SOUL@everysyllable\@empty + \def\SOUL@everytoken{\the\SOUL@token}% + \SOUL@}} + +\newcommand\ifulstarttype[1]{% + \ifnum\ulstarttype=#1\relax + \expandafter\@firstoftwo + \else + \expandafter\@secondoftwo + \fi} + +\newcommand\ifulendtype[1]{% + \ifnum\ulendtype=#1\relax + \expandafter\@firstoftwo + \else + \expandafter\@secondoftwo + \fi} + + + |