new latex pkg undolabl (10jun10)

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

1 files changed, 98 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/undolabl/undolabl.sty b/Master/texmf-dist/tex/latex/undolabl/undolabl.sty
new file mode 100644
index 00000000000..efbb32af0e5
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/undolabl/undolabl.sty
@@ -0,0 +1,98 @@
+%%
+%% This is file `undolabl.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% undolabl.dtx  (with options: `package')
+%% 
+%% This is a generated file.
+%% 
+%% IMPORTANT NOTICE:
+%% The usual disclaimers apply:
+%% If it doesn't work right that's your problem.
+%% (Nevertheless, send an e-mail to the maintainer
+%%  when you find an error in this package.)
+%% 
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3c of this license or (at your option) any later
+%% version. This version of this license is in
+%%    http://www.latex-project.org/lppl/lppl-1-3c.txt
+%% and the latest version of this license is in
+%%    http://www.latex-project.org/lppl.txt
+%% and version 1.3c or later is part of all distributions of
+%% LaTeX version 2005/12/01 or later.
+%% 
+%% This work has the LPPL maintenance status "maintained".
+%% 
+%% The Current Maintainer of this work is H.-Martin Muench
+%% (Martin dot Muench at Uni-Bonn dot de).
+%% 
+%% The main code of this package was invented by Ulrich Diez
+%% (eu_angelion@web.de) in 2008 and published on the internet.
+%% While Ulrich Diez neither wanted to create a package himself
+%% nor have one published under his name, he granted the
+%% publication of his code. Therefore: Thanks!
+%% 
+%% This work consists of the main source file undolabl.dtx
+%% and the derived files
+%%    undolabl.sty, undolabl.pdf, undolabl.ins, undolabl.drv,
+%%    undolabl-example.tex.
+%% 
+
+
+\NeedsTeXFormat{LaTeX2e}[1994/06/01]
+\ProvidesPackage{undolabl}[2010/06/03 v1.0b
+  Overriding labels (HMM)]
+
+\newcommand\overridelabel[1]{%
+  \@bsphack
+  \protected@write\@auxout{}{\string\undonewlabel{#1}{\on@line}}%
+  \label{#1}%
+  \@esphack
+  }%
+
+\newcommand\undonewlabel{\@und@newl@bel rs}%
+
+\newcommand\@und@newl@bel[4]{%
+  \@ifundefined{#1@#3}\relax{%
+    \@latex@warning@no@line{Label `#3' overridden#4}%
+    \expandafter\global
+    \expandafter\let
+    \csname #1@#3\endcsname\relax
+    \@ifundefined{#2@#3}{\global\@namedef{#2@#3}{i}}{%
+      \expandafter\g@addto@macro\csname #2@#3\endcsname{i}%
+      }%
+    }%
+  }%
+
+\newcommand\undolabl@testdef[3]{%
+  \@ifundefined{s@#2}\@secondoftwo\@firstofone{%
+    \expandafter\ifx\csname s@#2\endcsname\empty
+      \expandafter\@firstofone
+    \else
+    \expandafter\xdef\csname s@#2\endcsname{%
+      \expandafter\expandafter
+      \expandafter\@gobble
+      \csname s@#2\endcsname
+      }%
+    \expandafter\@gobble
+    \fi
+    }%
+    {%
+    \@testdef{#1}{#2}{#3}%
+    }%
+  }%
+
+\protected@write\@auxout{}{\string\reset@newl@bel}%
+
+\newcommand\reset@newl@bel{%
+  \ifx\@newl@bel\@testdef
+    \let\@newl@bel\undolabl@testdef
+    \let\undonewlabel\@gobbletwo
+  \fi
+  }%
+\endinput
+%%
+%% End of file `undolabl.sty'.