From 7df33fd1a4e61f23710ae0167ae14e4a01c1d483 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 25 Oct 2010 23:07:02 +0000 Subject: new latex package catchfilebetweentags (25oct10) git-svn-id: svn://tug.org/texlive/trunk@20204 c570f23f-e606-0410-a88d-b1316a301751 --- .../catchfilebetweentags/catchfilebetweentags.sty | 111 +++++++++++++++++++++ 1 file changed, 111 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/catchfilebetweentags/catchfilebetweentags.sty (limited to 'Master/texmf-dist/tex/latex/catchfilebetweentags') diff --git a/Master/texmf-dist/tex/latex/catchfilebetweentags/catchfilebetweentags.sty b/Master/texmf-dist/tex/latex/catchfilebetweentags/catchfilebetweentags.sty new file mode 100644 index 00000000000..e201739d3f7 --- /dev/null +++ b/Master/texmf-dist/tex/latex/catchfilebetweentags/catchfilebetweentags.sty @@ -0,0 +1,111 @@ +%% +%% This is file `catchfilebetweentags.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% catchfilebetweentags.dtx (with options: `package') +%% +%% This is a generated file. +%% +%% catchfilebetweentags : 2010/06/20 v1.0 - catchfilebetweentags : catch file between delimiters or tags +%% +%% 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 +%% +%% This work consists of the main source file catchfilebetweentags.dtx +%% and the derived files +%% catchfilebetweentags.sty, catchfilebetweentags.pdf, catchfilebetweentags.ins, +%% +%% catchfilebetweentags : catchfilebetweentags : a new dimen corresponding to the remainder of the line +%% Copyright (C) 2010 by Florent Chervet +%% +\NeedsTeXFormat{LaTeX2e}% LaTeX 2.09 can't be used (nor non-LaTeX) + [2005/12/01]% LaTeX must be 2005/12/01 or younger +\ProvidesPackage{catchfilebetweentags} + [2010/06/20 v1.0 - Catch file between tags (FOC)] +\RequirePackage{etex,etoolbox,ltxcmds} +\RequirePackage{catchfile} +\globtoks\CatchFBT@tok +\newrobustcmd*\CatchFileBetweenDelims[4]{% + \begingroup + \edef\CatchFileBetweenDelims{\endgroup + \noexpand\@testopt + {\CatchFBT@Work{\noexpand#1}{#2}{#3}{#4}} + {\noexpand\makeatletter}% + }\CatchFileBetweenDelims +}% \CatchFileBetweenDelims +\newcommand\CatchFileBetweenTags{} +\begingroup +\@makeother\<% +\@makeother\>% +\@makeother\*% +\catcode`\: 14% +\@makeother\%: +\gdef\CatchFileBetweenTags#1#2#3{: + \CatchFileBetweenDelims\CatchFBT@tok{#2}{%<*#3>}{%}[\CatchFBT@sanitize]: + \CatchFBT@Final{#1}: +}:% \CatchFileBetweenTags +\endgroup +\newrobustcmd*\ExecuteMetaData[2][\jobname]{% + \CatchFileBetweenTags\CatchFBT@tok{#1}{#2}% + \global\expandafter\CatchFBT@tok\expandafter{% + \expandafter}\the\CatchFBT@tok +}% \ExecuteMetaData +\long\protected\def\CatchFBT@Work#1#2#3#4[#5]{% + \def\CatchFBT@setup{#5% + \long\def\CatchFile@Do####1#3{\CatchFBT@catchthepart}% discard before start-delim + \long\edef\CatchFBT@catchthepart####1#4{% capture until end-delim + \CatchFBT@tok{\endgroup + \CatchFBT@IsAToken#1 + {\global\noexpand#1{####1}} + {\xdef\noexpand#1{\noexpand\unexpanded{####1}}}}% + \noexpand\CatchFBT@discardtherest}% + \long\expandafter\def + \expandafter\CatchFBT@discardtherest + \expandafter####\expandafter1\CatchFile@EOF{}% + \everyeof{#3#4}% + \everyeof\expandafter\expandafter\expandafter{% + \expandafter\the\expandafter\everyeof\CatchFile@EOF + \expandafter\the\expandafter\CatchFBT@tok\noexpand}}% + \CatchFileDef#1{#2}\CatchFBT@setup +}% \CatchFBT@Work +\def\CatchFBT@sanitize{% + \@sanitize + \@makeother\{% + \@makeother\}% + \endlinechar=`\^^J% +}% \CatchFBT@sanitize +\newrobustcmd*\CatchFBT@Final[1]{\@testopt + {\CatchFBT@Fin@l{#1}}{}% +}% \CatchFBT@Final +\def\CatchFBT@Fin@l#1[#2]{% + \begingroup + \endlinechar\m@ne \makeatletter #2% + \scantokens\expandafter{% + \expandafter\CatchFBT@tok\expandafter{\the\CatchFBT@tok}}% + \CatchFBT@IsAToken{#1} + {\global#1\expandafter{\the\CatchFBT@tok}} + {\xdef#1{\the\CatchFBT@tok}}% + \ifx\CatchFBT@tok#1\else\global\CatchFBT@tok{}\fi + \endgroup +}% \CatchFBT@Final +\def\CatchFBT@IsAToken#1{% + \expandafter\expandafter + \expandafter\CatchFBT@Is@Token + \expandafter\meaning\expandafter#1\string\toks + \\\\{first}{second}\\\\% +}% \CatchFBT@IsAToken +\expandafter\def\expandafter\CatchFBT@Is@Token + \expandafter#\expandafter1\string\toks#2#3\\#4#5#6\\\\{% + \csname ltx@% + \if\relax\detokenize{#1}\relax#5% + \else second\fi oftwo% + \endcsname +}% \CatchFBT@Is@Token +\endinput +%% +%% End of file `catchfilebetweentags.sty'. -- cgit v1.2.3