new package noitcrul (12apr06)

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

9 files changed, 452 insertions, 2 deletions

diff --git a/Build/tools/tpm-ctan-check b/Build/tools/tpm-ctan-check
index 4023f7a414c..ba253c65506 100755
--- a/Build/tools/tpm-ctan-check
+++ b/Build/tools/tpm-ctan-check
@@ -69,8 +69,8 @@ sub main
          "mhchem", "minitoc", "microtype", "minitoc", "mla-paper",
          "moderncv", "movie15", 
 #"mpattern", # not up-to-date on CTAN, wrote author 28may05.
-       "nag", "ncclatex", "ncctools", "newlfm", "nomencl", "nomentbl",
-         "numprint", 
+       "nag", "ncclatex", "ncctools", "newlfm", "noitcrul",
+         "nomencl", "nomentbl", "numprint", 
        "oberdiek", "octavo",
        "pdf-trans", "pdfcprot", "pdftex-def", "perception", "perltex", "pgf",
          "pictex", "placeins", 
diff --git a/Master/texmf-dist/doc/latex/noitcrul/README b/Master/texmf-dist/doc/latex/noitcrul/README
new file mode 100644
index 00000000000..e3fcb221056
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/noitcrul/README
@@ -0,0 +1,116 @@
+[en]
+The LaTeX package 'noitcrul' provides an
+\underline-variant without italics correction at
+the end, for math.
+
+Author:  Paul Ebermann <Paul-Ebermann@gmx.de>
+License: LPPL 1.3b or later, author-maintained
+         (see http://www.latex-project.org/lppl/).
+
+All Documentation (other than this file) is in german.
+
+The package also needs the package 'robustcommand' from the
+same author.
+The typesetting of the documentation needs 'pauldoc' (from the
+same author).
+
+The package comes as .dtx + .ins.
+Run "latex noitcrul.ins" to create the style file (and maybe put
+it to texmf/tex/latex/paul/, if your docstrip is configured
+accordingly), run (after that and maybe updating your TeX hash)
+"latex noitcrul.dtx" to create the documentation.
+
+ Usage:
+--------
+
+Add
+
+    \usepackage{noitcrul}
+
+to the preamble.
+In the text, use (for example)
+
+    $\noitUnderline{M}_k$
+
+instead of
+
+    $\underline{M}_k$
+
+and look whether you like the
+result more. (The distance between
+'M' and 'k' is less with \noitUnderline.)
+
+----------------
+[de]
+LaTeX-Package 'noitcrul' - Eine Variante von \underline
+ohne Italics-Correction im Mathe-Modus.
+
+
+Autor:  Paul Ebermann (Paul-Ebermann@gmx.de).
+Lizenz: LPPL 1.3b oder später, mit Maintenance-Status
+        "author-maintained". Siehe http://www.latex-project.org/lppl/.
+
+Geschrieben für den eigenen Gebrauch
+(-> http://www.math.hu-berlin.de/~ebermann/alg-script/),
+aber  vielleicht ist es auch für andere von Nutzen.
+
+
+'noitcrul' benötigt 'robustcommand' vom selben Autor.
+Zum Setzen der Dokumentation wird das Paket 'pauldoc'
+(vom selben Autor) benötigt.
+
+Das Paket kommt als .dtx + .ins.
+Mit "latex noitcrul.ins" wird die .sty-Datei erstellt (und
+eventuell gleich nach texmf/tex/latex/paul/ installiert,
+wenn docstrip entsprechend eingerichtet ist), mit
+latex noitcrul.dtx kann (danach und eventuell nach einer
+Aktualisierung der TeX-Dateidatenbank) die Dokumentation neu
+erstellt werden.
+
+Zur Verwendung siehe noitcrul.pdf.
+
+----------------
+[eo-h]
+LaTeX-pakajho 'noitcrul' - Variajho de \underline sen korekto por
+oblikvaj/kursivaj literoj je la fino, ene de matematika moduso.
+
+
+Autoro:  Paulo Ebermann (Paul-Ebermann@gmx.de).
+Licenzo: LPPL 1.3, 'author-maintained'
+         (-> http://www.latex-project.org/lppl/).
+
+Kreitaj por propra uzo, sed eble iom de ghi ankau
+uzeblas por aliaj.
+
+La dokumentaro (escepte tiu chi dosiero) estas nur en la germana
+lingvo.
+
+La pakajho 'noitcrul' bezonas 'robustcommand' (de la sama autoro).
+
+Por krei la dokumentadon vi bezonas 'pauldoc' (ankau de la sama
+autoro).
+
+La pakajho venas en .dtx + .ins.
+Voku "latex noitcrul.ins" por krei la .sty-dosieron (kaj eble meti
+ghin al texmf/tex/latex/paul/, se via docstrip estis konfigurita
+laue), voku "latex noitcrul.dtx" por rekrei la dokumentaron.
+
+ Uzado
+-------
+
+Metu
+
+    \usepackage{noitcrul}
+
+en la difinan sekcion (inter \documentclass kaj \begin{document}.
+En la teksto, uzu (ekzemple)
+
+    $\noitUnderline{M}_k$
+
+anstatau
+
+    $\underline{M}_k$
+
+kaj rigardu, kiu el ambau pli plachas al vi.
+(La distanco inter 'M' kaj 'k' estas malpli
+ granda per \noitUnderline).
diff --git a/Master/texmf-dist/doc/latex/noitcrul/noitcrul.pdf b/Master/texmf-dist/doc/latex/noitcrul/noitcrul.pdf
new file mode 100644
index 00000000000..17e6369d021
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/noitcrul/noitcrul.pdf
diff --git a/Master/texmf-dist/source/latex/noitcrul/noitcrul.dtx b/Master/texmf-dist/source/latex/noitcrul/noitcrul.dtx
new file mode 100644
index 00000000000..8410c6b0b2a
--- /dev/null
+++ b/Master/texmf-dist/source/latex/noitcrul/noitcrul.dtx
@@ -0,0 +1,187 @@
+% \iffalse meta-comment
+%
+%%  (C) 2006 Paul Ebermann
+%%
+%%   Package noitcrul - Unterstreichungen ohne "Italic correction".
+%%
+%%   Die Datei noitcrul.dtx sowie die dazugehörige
+%%   noitcrul.ins sowie die damit generierte
+%%   noitcrul.sty stehen unter der
+%%   "LaTeX Project Public License" (LPPL, zu finden
+%%   unter http://www.latex-project.org/lppl/, sowie
+%%   auch in den meisten TeX-Distributionen in
+%%   texmf/docs/latex/base/lppl*.txt), Version 1.3b oder
+%%   später (nach Wahl des Verwenders).
+%%
+%%   Der 'maintenance-status' ist (zur Zeit) 'author-maintained'.
+%%   
+%%   Das heißt u.a., die Dateien dürfen frei vertrieben werden,
+%%   bei Änderungen (durch andere Personen als Paul Ebermann)
+%%   ist aber der Name der Datei zu ändern.
+%
+% \fi
+%
+% \iffalse
+%<package>\NeedsTeXFormat{LaTeX2e}[2003/12/01]
+%<package>\ProvidesPackage{noitcrul}
+%<package> [2006/04/11 v0.2 Unterstreichungen ohne italic correction (PE)]
+%
+%<*driver>
+\documentclass[draft,ngerman]{ltxdoc}
+\usepackage{noitcrul}
+\usepackage{pauldoc}
+\begin{document}
+   \DocInput{noitcrul.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \changes{v0.1}{2006/03/23}{Erste Fassung}
+% \changes{v0.2}{2006/04/11}{Packagename von \pack{underline} zu
+%                            \pack{noitcrul} geändert, wegen
+%                            CTAN-Namenskonflikt.}
+%
+% \GetFileInfo{noitcrul.sty}
+%
+%
+% \title{Das \pack{noitcrul}-Package -- Schönere Unterstreichungen\thanks{%
+% Dieses Dokument gehört zu \pack{noitcrul}~\fileversion,
+% vom~\filedate.}}
+% \author{Paul Ebermann\thanks{\texttt{Paul-Ebermann@gmx.de}}}
+%
+% \maketitle
+%
+%  \begin{abstract}
+%    Das Package stellt eine verkürzte Unterstreichung im Mathemodus
+%    -- $\noitUnderline{M}_k$ statt $\underline{M}_k$ -- zur Verfügung.
+%    Dadurch wirkt es bei folgenden Indizees ästhetischer.
+%  \end{abstract}
+%
+% \tableofcontents
+%
+% \section{Benutzerdoku}
+%
+%  Betrachtet man \fbox{$\underline{M}_k$} und \fbox{$M_k$}, so stellt man fest, dass
+%  das $k$ im zweiten Fall näher am $M$ sitzt als im ersten Fall. Der Grund ist, das
+%  die Unterstreichung noch ein Stück überhängt -- um die sogenannte \emph{italics correction},
+%  d.h. die Länge, die $M$ oben mehr als unten nach rechts ragt. Dieses Paket bietet
+%  nun (für den Mathemodus\footnote{Ich habe das nur für den Mathemodus benötigt
+%   (für Kategoriensymbole wie $\noitUnderline{AM}_k$), eine Implementation für den
+%   Textmodus wäre sogar noch einfacher, denke ich -- kommt vielleicht in einer
+%   späteren Version.}) eine Unterstreichung, welche nicht überhängt.
+%
+%  \noindent\DescribeMacro{\noitUnderline}\marg{formel} unterstreicht \meta{formel}
+%  mit vermindertem rechten Überhang. Beispielsweise ergibt '\noitUnderline{M}_k'
+%  \fbox{$\noitUnderline{M}_k$}.
+%
+% \StopEventually{\PrintChanges\PrintIndex}
+%
+% \CheckSum{25}
+%
+% \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         \~}
+%
+% \section{Implementation}
+%
+%    \begin{macrocode}
+%<*package>
+%    \end{macrocode}
+%
+%  Das Package \pack{robustcommand} stellt uns Hilfsmittel zur Kommandodefinition
+%  zur Verfügung.
+%    \begin{macrocode}
+\RequirePackage{robustcommand}
+%    \end{macrocode}
+%
+%  \begin{macro}{\neg@it@corr}\noindent\marg{formel}
+%  
+%  Dies fügt an der aktuellen Stelle eine negative \emph{italics correction}, wie sie
+%  nach \meta{formel} eingefügt würde, ein.
+%
+%  Da wir zum Ausmessen der Formel eine '\hbox' brauchen, müssen
+%  wir darin wieder in den (richtigen) Mathemodus wechseln, also
+%  rufen wir einfach mit '\mathpalette' ein weiteres Makro auf,
+%  welches dann die eigentliche Arbeit macht.
+%    \begin{macrocode}
+\newcommand*{\neg@it@corr}
+  {\mathpalette\neg@it@corr@}
+%    \end{macrocode}
+%  \end{macro}
+%
+%  \begin{macro}{\neg@it@corr@}\noindent\marg{mathstyle}\marg{formel}
+%    \begin{macrocode}
+\newcommand*{\neg@it@corr@}[2]
+{%
+%    \end{macrocode}
+%  Zunächst messen wir die Formel mit und ohne '\/' aus, speichern die Länge
+%  in Längenregistern.\footnote{\cs{dimen@} und \cs{dimen@ii} sind vom
+%  \LaTeX-Kernel (bzw. auch schon von \PlainTeX) für temporäre lokale
+%   Zuweisungen vorgesehen}
+%  Da '\settowidth' eine '\hbox' aufmacht, müssen wir
+%  darin wieder in den Mathemodus wechseln, und mit \meta{mathstyle} auch
+%  noch in den richtigen Stil, aus dem heraus '\neg@it@corr' aufgerufen wurde.
+%    \begin{macrocode}
+   \settowidth{\dimen@}{$#1#2\/_{}$}%
+   \settowidth{\dimen@ii}{$#1#2_{}$}%
+%    \end{macrocode}
+%  Dann berechnen wir die Differenz der beiden Längen, und geben das ganze
+%  gleich noch aus (zu Debug-Zwecken). \footnote{Im Logfile erscheinen immer vier
+%  Ausgaben, weil \cs{mathpalette} in Wirklichkeit das Makro für jeden Stil
+%  einmal "`ausführt"' (expandiert), und erst die \TeX-Engine später entscheidet,
+%  welche der vier gesetzten Formeln wirklich genommen wird, da sich der Stil auch
+%  noch im Nachhinein ändern kann. Daher geben wir den Namen des Stils gleich mit
+%  aus.}
+%    \begin{macrocode}
+   \advance \dimen@ by -\dimen@ii%
+   \PackageInfo{noitcrul}{#1: \the\dimen@}%
+%    \end{macrocode}
+%  Jetzt die eigentliche Aktion: wir fügen diesen Abstand als negativen Kern hier ein.
+%    \begin{macrocode}
+   \kern -\dimen@%
+}%
+%    \end{macrocode}
+%  \end{macro}
+%
+%  \begin{macro}{\noitUnderline}\noindent{formel}
+%
+%   Hier das Makro, für das wir das alles machen \ldots
+%    \begin{macrocode}
+\robust@new@command{\noitUnderline}[1]
+%    \end{macrocode}
+%  Wir setzen \meta{formel}, und rufen '\neg@it@cor'\marg{formel} auf
+% (was ja wieder etwas zurück geht).
+%  Das ganze unterstreichen wir dann mit '\underline'.
+%    \begin{macrocode}
+  {\underline{#1\neg@it@corr{#1}}}
+%    \end{macrocode}
+%  \end{macro}
+%
+%  Das war es.
+%    \begin{macrocode}
+\endinput
+%</package>
+%    \end{macrocode}
+%
+% \Finale
+%\endinput
+
+
+%%% Folgendes ist nur für meinen Editor.
+%%%
+%%% Local Variables:
+%%% mode: latex
+%%% TeX-master: t
+%%% End:
diff --git a/Master/texmf-dist/source/latex/noitcrul/noitcrul.ins b/Master/texmf-dist/source/latex/noitcrul/noitcrul.ins
new file mode 100644
index 00000000000..5596bc06a9a
--- /dev/null
+++ b/Master/texmf-dist/source/latex/noitcrul/noitcrul.ins
@@ -0,0 +1,59 @@
+%%
+%% (C) 2002-2006 Paul Ebermann  - Installationsdatei zu noitcrul.dtx
+%%
+%% Der vollständige Urheberrechtshinweis befindet sich
+%% am Begin von noitcrul.dtx.
+%%
+%% Ich gebe keine Garantie irgendeiner Art.
+%%
+
+\input docstrip.tex
+\usedir{tex/latex/paul}
+
+\Msg{**********************************************************}
+\Msg{* Ich werde Dateien in \showdirectory{tex/latex/paul}     }
+\Msg{* installieren. Bitte stellen Sie sicher,                 }
+\Msg{* dass dieses Verzeichnis vorhanden ist.                  }
+\Msg{* }
+
+%% der folgende Text wird in jeder generierten
+%% Datei am Anfang eingefügt.
+\preamble
+
+ ,--------------------------------------------------.
+ |  Das ist eine generierte Datei.                  |
+ |                                                  |
+ | (c) 2006 Paul Ebermann.                          |
+ '--------------------------------------------------'
+\endpreamble
+
+
+\generate{\file{noitcrul.sty}{\from{noitcrul.dtx}{package}}}
+
+\Msg{#######################}
+\Msg{#                                        }
+\Msg{# Um die Installation zu beenden,        }
+\Msg{# müssen Sie die folgenden Dateien       }
+\Msg{# in Ihrem TeX-Suchbaum unterbringen:    }
+\Msg{#                                        }
+\Msg{#     noitcrul.sty                       }
+\Msg{#                                        }
+\Msg{# Um eine Dokumentation zu erzeugen,     }
+\Msg{# benutzen Sie                           }
+\Msg{#                                        }
+\Msg{#     latex noitcrul.dtx                 }
+\Msg{#                                        }
+\Msg{# Viel Spaß                              }
+\Msg{#              Paul Ebermann             }
+\Msg{#                                        }
+\Msg{#######################}
+
+\endbatchfile
+
+
+%%% Folgendes ist nur für meinen Editor.
+%%%
+%%% Local Variables:
+%%% mode: latex
+%%% TeX-master: t
+%%% End:
diff --git a/Master/texmf-dist/tex/latex/noitcrul/noitcrul.sty b/Master/texmf-dist/tex/latex/noitcrul/noitcrul.sty
new file mode 100644
index 00000000000..827bdadcb8f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/noitcrul/noitcrul.sty
@@ -0,0 +1,50 @@
+%%
+%% This is file `noitcrul.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% noitcrul.dtx  (with options: `package')
+%% 
+%%  ,--------------------------------------------------.
+%%  |  Das ist eine generierte Datei.                  |
+%%  |                                                  |
+%%  | (c) 2006 Paul Ebermann.                          |
+%%  '--------------------------------------------------'
+%%  (C) 2006 Paul Ebermann
+%%
+%%   Package noitcrul - Unterstreichungen ohne "Italic correction".
+%%
+%%   Die Datei noitcrul.dtx sowie die dazugehörige
+%%   noitcrul.ins sowie die damit generierte
+%%   noitcrul.sty stehen unter der
+%%   "LaTeX Project Public License" (LPPL, zu finden
+%%   unter http://www.latex-project.org/lppl/, sowie
+%%   auch in den meisten TeX-Distributionen in
+%%   texmf/docs/latex/base/lppl*.txt), Version 1.3b oder
+%%   später (nach Wahl des Verwenders).
+%%
+%%   Der 'maintenance-status' ist (zur Zeit) 'author-maintained'.
+%%
+%%   Das heißt u.a., die Dateien dürfen frei vertrieben werden,
+%%   bei Änderungen (durch andere Personen als Paul Ebermann)
+%%   ist aber der Name der Datei zu ändern.
+\NeedsTeXFormat{LaTeX2e}[2003/12/01]
+\ProvidesPackage{noitcrul}
+ [2006/04/11 v0.2 Unterstreichungen ohne italic correction (PE)]
+\RequirePackage{robustcommand}
+\newcommand*{\neg@it@corr}
+  {\mathpalette\neg@it@corr@}
+\newcommand*{\neg@it@corr@}[2]
+{%
+   \settowidth{\dimen@}{$#1#2\/_{}$}%
+   \settowidth{\dimen@ii}{$#1#2_{}$}%
+   \advance \dimen@ by -\dimen@ii%
+   \PackageInfo{noitcrul}{#1: \the\dimen@}%
+   \kern -\dimen@%
+}%
+\robust@new@command{\noitUnderline}[1]
+  {\underline{#1\neg@it@corr{#1}}}
+\endinput
+%%
+%% End of file `noitcrul.sty'.
diff --git a/Master/texmf-dist/tpm/noitcrul.tpm b/Master/texmf-dist/tpm/noitcrul.tpm
new file mode 100644
index 00000000000..1eb7bc6f14f
--- /dev/null
+++ b/Master/texmf-dist/tpm/noitcrul.tpm
@@ -0,0 +1,29 @@
+<!DOCTYPE rdf:RDF SYSTEM "../../support/tpm.dtd">
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:TPM="http://texlive.dante.de/">
+  <rdf:Description about="http://texlive.dante.de/texlive/Package/noitcrul.zip">
+    <TPM:Name>noitcrul</TPM:Name>
+    <TPM:Type>Package</TPM:Type>
+    <TPM:Date>2006/04/11 14:51:00</TPM:Date>
+    <TPM:Version></TPM:Version>
+    <TPM:Creator>karl</TPM:Creator>
+    <TPM:Title>The noitcrul package.</TPM:Title>
+    <TPM:Description></TPM:Description>
+    <TPM:Author></TPM:Author>
+    <TPM:Size>111810</TPM:Size>
+    <TPM:Build/>
+    <TPM:RunFiles size="2750">
+texmf-dist/tex/latex/noitcrul/noitcrul.sty
+texmf-dist/tpm/noitcrul.tpm
+    </TPM:RunFiles>
+    <TPM:DocFiles size="101557">
+texmf-dist/doc/latex/noitcrul/README
+texmf-dist/doc/latex/noitcrul/noitcrul.pdf
+    </TPM:DocFiles>
+    <TPM:SourceFiles size="8535">
+texmf-dist/source/latex/noitcrul/noitcrul.dtx
+texmf-dist/source/latex/noitcrul/noitcrul.ins
+    </TPM:SourceFiles>
+    <TPM:Provides>Package/noitcrul</TPM:Provides>
+  </rdf:Description>
+</rdf:RDF>
+
diff --git a/Master/texmf/lists/noitcrul b/Master/texmf/lists/noitcrul
new file mode 100644
index 00000000000..0d4df215500
--- /dev/null
+++ b/Master/texmf/lists/noitcrul
@@ -0,0 +1,8 @@
+texmf-dist/doc/latex/noitcrul/README
+texmf-dist/doc/latex/noitcrul/noitcrul.pdf
+texmf-dist/source/latex/noitcrul/noitcrul.dtx
+texmf-dist/source/latex/noitcrul/noitcrul.ins
+texmf-dist/tex/latex/noitcrul/noitcrul.sty
+texmf-dist/tpm/noitcrul.tpm
+
+texmf/lists/noitcrul
diff --git a/Master/texmf/tpm/collection-latexextra.tpm b/Master/texmf/tpm/collection-latexextra.tpm
index be5518a01f7..0f457161aec 100644
--- a/Master/texmf/tpm/collection-latexextra.tpm
+++ b/Master/texmf/tpm/collection-latexextra.tpm
@@ -302,6 +302,7 @@ A large collection of add-on packages for LaTeX.
       <TPM:Package name="newthm"/>
       <TPM:Package name="newvbtm"/>
       <TPM:Package name="niceframe"/>
+      <TPM:Package name="noitcrul"/>
       <TPM:Package name="nomencl"/>
       <TPM:Package name="nomentbl"/>
       <TPM:Package name="nonfloat"/>