summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/varsfromjobname
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-05-02 21:41:13 +0000
committerKarl Berry <karl@freefriends.org>2017-05-02 21:41:13 +0000
commit6e4c9895b91d909b7d6f65553dbb41186f54b8da (patch)
treede50c0bacab3cd575964c0a4a4a847e4bd75a4f0 /Master/texmf-dist/tex/latex/varsfromjobname
parent81f07c7a915e291b32a374633d29f64be74c1c88 (diff)
varsfromjobname (2may17)
git-svn-id: svn://tug.org/texlive/trunk@44154 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/varsfromjobname')
-rw-r--r--Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty83
1 files changed, 69 insertions, 14 deletions
diff --git a/Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty b/Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty
index bb65d9ef998..57893a1f394 100644
--- a/Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty
+++ b/Master/texmf-dist/tex/latex/varsfromjobname/varsfromjobname.sty
@@ -1,7 +1,8 @@
%begin of varsfromjobname.sty
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{varsfromjobname}[2009/01/11 v. 0.5 extracts tokens from jobname (UZ)]
-\RequirePackage{ifthen}
+\ProvidesPackage{varsfromjobname}[2017/05/07 v. 1.0 extracts tokens from jobname]
+\RequirePackage{ifthen}
+\RequirePackage{currfile}
% Author: Uwe Ziegenhagen
% based on code supplied by Friedrich Vosberg and Markus Kohm
@@ -74,13 +75,11 @@
#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%
@@ -96,17 +95,73 @@
#9%
}
+% as proposed by egreg,
+% https://tex.stackexchange.com/questions/212169/qr-code-from-jobname
\newcommand{\getfromjobname}[1]{%
-\ifthenelse{\equal{#1}{1}}{\getonefromjobname}{}%
-\ifthenelse{\equal{#1}{2}}{\gettwofromjobname}{}%
-\ifthenelse{\equal{#1}{3}}{\getthreefromjobname}{}%
-\ifthenelse{\equal{#1}{4}}{\getfourfromjobname}{}%
-\ifthenelse{\equal{#1}{5}}{\getfivefromjobname}{}%
-\ifthenelse{\equal{#1}{6}}{\getsixfromjobname}{}%
-\ifthenelse{\equal{#1}{7}}{\getsevenfromjobname}{}%
-\ifthenelse{\equal{#1}{8}}{\geteightfromjobname}{}%
-\ifthenelse{\equal{#1}{9}}{\getninefromjobname}{}%
+ \ifcase#1 \or%
+ \getonefromjobname\or%
+ \gettwofromjobname\or%
+ \getthreefromjobname\or%
+ \getfourfromjobname\or%
+ \getfivefromjobname\or%
+ \getsixfromjobname\or%
+ \getsevenfromjobname\or%
+ \geteightfromjobname\or%
+ \getninefromjobname%
+ \fi%
+}
+
+% for the currfilebase version
+
+\newcommand*{\getonefromcurrfilename}{%
+ \expandafter\@getonefromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\gettwofromcurrfilename}{%
+ \expandafter\@gettwofromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\getthreefromcurrfilename}{%
+ \expandafter\@getthreefromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\getfourfromcurrfilename}{%
+ \expandafter\@getfourfromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\getfivefromcurrfilename}{%
+ \expandafter\@getfivefromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\getsixfromcurrfilename}{%
+ \expandafter\@getsixfromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\getsevenfromcurrfilename}{%
+ \expandafter\@getsevenfromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\geteightfromcurrfilename}{%
+ \expandafter\@geteightfromfilename\currfilebase--------\@nil%
+}
+
+\newcommand*{\getninefromcurrfilename}{%
+ \expandafter\@getninefromfilename\currfilebase\@nil%
+}
+
+\newcommand{\getfromcurrfilename}[1]{%
+ \ifcase#1 \or%
+ \getonefromcurrfilename\or%
+ \gettwofromcurrfilename\or%
+ \getthreefromcurrfilename\or%
+ \getfourfromcurrfilename\or%
+ \getfivefromcurrfilename\or%
+ \getsixfromcurrfilename\or%
+ \getsevenfromcurrfilename\or%
+ \geteightfromcurrfilename\or%
+ \getninefromcurrfilename%
+ \fi%
}
\makeatother
-% end of jobdate.sty
+% end of jobdate.sty \ No newline at end of file