new latex package varsfromjobname

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

1 files changed, 103 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty b/Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty
new file mode 100644
index 00000000000..a6694674b0a
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty
@@ -0,0 +1,103 @@
+%% LaTeX2e file `varsfromjobname.sty'
+%% generated by the `filecontents' environment
+%% from source `one-two-three-four-five-six-seven' on 2008/04/10.
+%%
+%begin of varsfromjobname.sty
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{varsfromjobname}[2008/04/14 v. 0.3 extracts tokens from jobname (UZ)]
+
+%Author: Uwe Ziegenhagen
+% based on code supplied by Friedrich Vosberg and Markus Kohm
+% help by Rolf Niepraschk and Sven Naumann, Ulrich Schwarz 
+% and Andreas Mathias was greatly appreciated
+% see posting <3983639.NRU96H2Y1Y@ID-107054.user.dfncis.de>
+% requires the filename to be of the following form
+% itemone-itemtwo-itemthree- ... -itemnine.tex
+
+\makeatletter
+
+\newcommand*{\getonefromjobname}{%
+  \expandafter\@getonefromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\gettwofromjobname}{%
+  \expandafter\@gettwofromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\getthreefromjobname}{%
+  \expandafter\@getthreefromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\getfourfromjobname}{%
+  \expandafter\@getfourfromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\getfivefromjobname}{%
+  \expandafter\@getfivefromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\getsixfromjobname}{%
+  \expandafter\@getsixfromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\getsevenfromjobname}{%
+  \expandafter\@getsevenfromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\geteightfromjobname}{%
+  \expandafter\@geteightfromfilename\jobname--------\@nil%
+}
+
+\newcommand*{\getninefromjobname}{%
+  \expandafter\@getninefromfilename\jobname\@nil%
+}
+
+\newcommand*\@getonefromfilename{}
+\def\@getonefromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#1%
+}
+
+\newcommand*\@gettwofromfilename{}
+\def\@gettwofromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#2%
+}
+
+\newcommand*\@getthreefromfilename{}
+\def\@getthreefromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#3%
+}
+
+\newcommand*\@getfourfromfilename{}
+\def\@getfourfromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#4%
+}
+
+\newcommand*\@getfivefromfilename{}
+\def\@getfivefromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#5%
+}
+
+
+\newcommand*\@getsixfromfilename{}
+\def\@getsixfromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#6%
+}
+
+
+\newcommand*\@getsevenfromfilename{}
+\def\@getsevenfromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#7%
+}
+
+\newcommand*\@geteightfromfilename{}
+\def\@geteightfromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#8%
+}
+
+\newcommand*\@getninefromfilename{}
+\def\@getninefromfilename#1-#2-#3-#4-#5-#6-#7-#8-#9\@nil{%
+#9%
+}
+
+\makeatother
+% end of jobdate.sty