From 9619856eb2ef82ce64ea935233a8a8c64791c616 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 22 May 2007 17:37:34 +0000 Subject: install exptl delimtxt git-svn-id: svn://tug.org/texlive/trunk@4333 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/delimtxt/delimtxt.sty | 182 ++++++++++++++++++++++ 1 file changed, 182 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/delimtxt/delimtxt.sty (limited to 'Master/texmf-dist/tex/latex/delimtxt') 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'. -- cgit v1.2.3