install exptl delimtxt

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

1 files changed, 182 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/delimtxt/delimtxt.sty b/Master/texmf-dist/tex/latex/delimtxt/delimtxt.sty
new file mode 100644
index 00000000000..6244a8d9441
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/delimtxt/delimtxt.sty
@@ -0,0 +1,182 @@
+%%
+%% This is file `delimtxt.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% delimtxt.dtx  (with options: `delimtxt')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from delimtxt.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file delimtxt.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% This is heavily based on:
+%% textmerg.dtx  (with options: `textmerg')
+%%
+%% Copyright (C) 1992,1994 Mike Piff, University of Sheffield, England
+\def\fileversion{1.02}
+\def\filedate{1999/05/03}
+\def\filename{delimtxt.dtx}
+\def\Copyright{Copyright 1999 Bjoern Pedersen}
+\NeedsTeXFormat{LaTeX2e}[1998/06/01]
+\ProvidesPackage{delimtxt}[\filedate]
+\typeout{Package `delimtxt´ <\filedate>.}
+\typeout{\Copyright}
+\def\glet{\global\let}
+
+\newread\DelimFile
+
+\def\InputFile#1{%
+   \openin\DelimFile=#1
+   \ifeof\DelimFile
+   \errmessage{Empty Delim file}%
+   \closein\DelimFile
+   \long\def\MakeTemplate##1{%
+      \def\Template{}}%
+   \else\GetInput
+   \fi}
+\def\GetInput{{
+ \global\LF@false
+ \endlinechar=-1%
+ \expandafter\catcode\expandafter`\the\Del=12
+   \global\read\DelimFile to\InputBuffer}}
+\def\SeeIfEof{%
+   \let\NextLook\relax
+   \ifeof\DelimFile
+   \else
+      \ifx\InputBuffer\empty
+         \LookAgain
+      \fi
+   \fi
+   \NextLook}
+
+\def\LookAgain{\GetInput
+   \let\NextLook\SeeIfEof}
+
+\newif\ifNonBlank \NonBlankfalse
+\def\AllowBlank{\global\NonBlankfalse}
+\def\DontAllowBlank{\global\NonBlanktrue}
+
+\newif\ifLF@
+\def\mark{\relax}
+\newtoks\InPutField
+\newtoks\Del
+\newtoks\StripT@k
+\newtoks\NextFieldT@k
+\StripT@k={%
+{%
+\aftergroup\gdef%
+\aftergroup\StripMark%
+\aftergroup#\aftergroup1%
+\expandafter\aftergroup\the\Del%
+\aftergroup\mark%
+}{\gdef\InputBuffer{#1}}}
+
+\NextFieldT@k={%
+{%begin of aftergroup group
+\aftergroup\gdef%
+\aftergroup\GetNextInputField%
+\aftergroup#\aftergroup1%
+\expandafter\aftergroup\the\Del%
+\aftergroup#\aftergroup2%
+\aftergroup\lineend}%end of aftergroup group
+{%
+ \if\mark #2%
+    \global\LF@true%
+     \glet\InputBuffer=\empty%
+  \else%
+     \global\LF@false%
+     \StripMark#2%
+  \fi%
+  \InPutField={#1}%
+  \if!#1!% check if Field is empty (Ref: D.Carlise in comp.text.tex)
+      \ifNonBlank%
+         \MissingField%
+         \InPutField={???}%
+      \else%
+         \InPutField={#1}%
+      \fi%
+      \else
+      \relax
+  \fi%
+}}
+\def\SetDel#1{\global\Del={#1}%
+\the\StripT@k%
+\the\NextFieldT@k%
+}
+\SetDel|
+
+
+\def\ReadIn#1{%
+     \expandafter\expandafter\expandafter%
+     \GetNextInputField%
+     \expandafter\InputBuffer\the\Del%
+     \mark\lineend%
+      \global\edef#1{\the\InPutField}%
+}
+\def\MissingField{%
+  \message{Missing field in file}}
+
+\newtoks\GlobalFields
+\def\Fields#1{\GlobalFields{#1}}
+\def\ParseFields#1{%
+  \ifx#1\EndParseFields%
+  \let\NextParse\relax%
+      \ifLF@%
+        \message{ Line was OK}%
+      \else%
+        {\message{ There were more items than fields on line
+        \the\Iteratecounter.  They will be skipped.}
+        \glet\InputBuffer=\empty}%
+      \fi%
+  \else%
+      \let\NextParse\ParseFields%
+      \ifx#1+\DontAllowBlank%
+      \else%
+         \ifx#1-\AllowBlank%
+         \else\ReadIn#1%
+         \fi%
+      \fi%
+  \fi\NextParse}%
+
+\let\EndParseFields\ParseFields%
+\def\ReadFields#1{
+\ifeof\DelimFile%
+  \else%
+\expandafter\ParseFields%
+  \the#1\EndParseFields%
+\fi}%
+\long\def\DelimRead#1#2{\begingroup%
+   \InputFile{#1}%
+   \def\Fields##1{%
+      \ParseFields##1\EndParseFields}%
+   \MakeTemplate{#2}\Iterate}%
+\long\def\MakeTemplate#1{\def\Template{#1}}
+\countdef\Iteratecounter=1%
+
+\Iteratecounter=0
+\def\Iterate{%
+   \global\advance\Iteratecounter by1%
+   \ReadFields\GlobalFields%
+   \Template%
+   \SeeIfEof%
+   \ifeof\DelimFile%
+      \def\NextIteration{%
+         \endgroup\closein\DelimFile}%
+   \else%
+      \let\NextIteration\Iterate%
+   \fi%
+   \NextIteration}
+\endinput
+%%
+%% End of file `delimtxt.sty'.