summaryrefslogtreecommitdiff
path: root/texmf-dist/tex/latex/fetchbibpes/selfetch.def
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/tex/latex/fetchbibpes/selfetch.def')
-rw-r--r--texmf-dist/tex/latex/fetchbibpes/selfetch.def84
1 files changed, 84 insertions, 0 deletions
diff --git a/texmf-dist/tex/latex/fetchbibpes/selfetch.def b/texmf-dist/tex/latex/fetchbibpes/selfetch.def
new file mode 100644
index 00000000..388479e5
--- /dev/null
+++ b/texmf-dist/tex/latex/fetchbibpes/selfetch.def
@@ -0,0 +1,84 @@
+%%
+%% This is file `selfetch.def',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% fetchbibpes.dtx (with options: `copyright,sf')
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% fetchbibpes.sty package, %%
+%% Copyright (C) 2016--2018 %%
+%% dpstory@uakron.edu %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1.2 of the %%
+%% License, or (at your option) any later version. %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\fb@gobbletonull#1\null{}
+\define@key{sel@verses}{onlyverses}{\def\sel@verses@onlyverses{#1}%
+ \parsefetchargfalse\fb@getBookAPassage#1 \@nil\parsefetchargtrue
+ \ifx\bib@passage\@empty
+ \else
+ \expandafter\fb@StrpSpcAftrBk\bib@passage \@nil
+ \fi
+}
+\let\sel@verses@onlyverses\@empty
+\def\fb@StrpSpcAftrBk#1 \@nil{\edef\bib@passage{#1}}
+\newif\iffb@fromused \fb@fromusedfalse
+\define@key{sel@verses}{from}{\fb@fromusedtrue
+ \def\@argi{#1}\ifx\@argi\@empty
+ \edef\sel@verses@from{ \fb@defaultBible}\else
+ \def\sel@verses@from{ #1}\fi}
+\edef\sel@verses@from{ \fb@defaultBible}%
+\define@key{sel@verses}{alt}{\def\sel@verses@alt{ #1}}
+\let\sel@verses@alt\@empty
+\def\selectedVersesFrom#1{%
+ \@tfor\@rg:=#1\do{%
+ \let\sel@verses@alt\@empty
+ \edef\sel@verses@from{ \fb@defaultBible}%
+ \edef\setkeysExp{\noexpand\setkeys{sel@verses}{\@rg}}\setkeysExp
+ \expandafter\fb@doInvLUAsNeeded\bib@book\@nil
+ \ifx\bib@passage\@empty\else
+ \expandafter\fb@getverses\expandafter{\bib@passage}\fi
+ \csarg\def{selb@\bib@book\sel@verses@from\sel@verses@alt}{}%
+ \ifx\sel@verses@alt\@empty\else
+ \csarg\def{selb@\bib@book\sel@verses@from}{}\fi
+ }%
+}
+\let\fb@BV\BV
+\def\BV(#1){\parsefetchargfalse\fb@getBookAPassage#1\@nil
+ \parsefetchargtrue\edef\bib@passage@exp{\bib@passage\space}%
+ \expandafter\fb@gettransl\bib@passage@exp\@nil
+ \@ifundefined{selb@\bib@book\bib@transl}
+ {\def\fb@next{\fb@BV(#1)}} % not a selected book
+ {%
+ \@ifundefined{sel@#1}
+ {\let\fb@next\fb@gobbletonull}
+ {\def\fb@next{\fb@BV(#1)}}%
+ }\fb@next
+}
+\def\fb@getPassageFrom#1 #2\@nil{\def\bib@passage{#1}\def\bib@from{#2}}
+\def\bib@transl@trimtrailspce#1 \@nil{\def\bib@transl{ #1}}
+\def\fb@gettransl#1 #2\@nil{% 1:1 ISV vs just 1:1
+ \def\bib@transl{#2}\ifx\bib@transl\@empty
+ \let\bib@transl\@empty\else
+ \bib@transl@trimtrailspce#2\@nil\fi}
+\def\fb@getverses#1{% 1:1-5,3:3-8
+ \@for\fb@versesvar:=#1\do{\fb@rmvspcsp{\fb@versesvar}\expandafter
+ \fb@markeach\expandafter{\fb@versesvar}}}
+\def\fb@markeach#1{%
+ \parsefetchargfalse\fb@get@chptverse{iftrue}#1\@nil\parsefetchargtrue
+ \@tempcnta\fb@verseEnd\relax
+ \advance\@tempcnta\@ne
+ \edef\fb@verseEndpi{\the\@tempcnta}%
+ \@tempcnta\fb@verseStart\relax
+ \@whilenum{\@tempcnta<\fb@verseEndpi\relax}\do
+ {\csarg\edef{sel@\bib@book\space
+ \bib@chpt:\the\@tempcnta\sel@verses@from\sel@verses@alt}{}
+ \advance\@tempcnta\@ne}}
+\endinput
+%%
+%% End of file `selfetch.def'.