summaryrefslogtreecommitdiff
path: root/texmf-dist/tex/latex/fetchbibpes/bibpes.sty
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/tex/latex/fetchbibpes/bibpes.sty')
-rw-r--r--texmf-dist/tex/latex/fetchbibpes/bibpes.sty105
1 files changed, 105 insertions, 0 deletions
diff --git a/texmf-dist/tex/latex/fetchbibpes/bibpes.sty b/texmf-dist/tex/latex/fetchbibpes/bibpes.sty
new file mode 100644
index 00000000..39f01e4e
--- /dev/null
+++ b/texmf-dist/tex/latex/fetchbibpes/bibpes.sty
@@ -0,0 +1,105 @@
+%%
+%% This is file `bibpes.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% bibpes.dtx (with options: `copyright,package')
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% bibpes.sty package, %%
+%% Copyright (C) 2016 D. P. Story %%
+%% 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. %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\NeedsTeXFormat{LaTeX2e}[1997/12/01]
+\ProvidesPackage{bibpes}
+ [2016/04/19 v1.3 Import e-sword passages: TXT to DEF (dps)]
+\def\bibpesBody{\@ifnextchar\fi{\expandafter\bibpes@Body}
+ {\expandafter\endinput\bibpes@Body}}
+\def\bibpes@Body{\begin{document}
+\reportOnBibPes\readbackDefFile
+\end{document}}
+\RequirePackage{xkeyval}
+\define@key{bibpes.sty}{txtfilein}[]{\def\bpes@txtfilein{#1}}
+\define@key{bibpes.sty}{deffileout}[]{\def\bpes@deffileout{#1}}
+\define@key{bibpes.sty}{infolder}[]{\def\bpes@infolder{#1/}}
+\define@key{bibpes.sty}{outfolder}[]{\def\bpes@outfolder{#1/}}
+\let\bpes@txtfilein\@empty \let\bpes@deffileout\@empty
+\let\bpes@infolder\@empty \let\bpes@outfolder\@empty
+\newif\ifbibpes@dobuild \bibpes@dobuildtrue
+\DeclareOptionX{build}{\bibpes@dobuildtrue}
+\DeclareOptionX{!build}{\bibpes@dobuildfalse}
+\ProcessOptionsX
+\ifx\bpes@txtfilein\@empty
+ \PackageWarning{bibpes}{The txtfilein option is required}\fi
+\ifx\bpes@deffileout\@empty\edef\bpes@deffileout{\bpes@txtfilein}
+ \PackageInfo{bibpes}{The output file is named
+ \bpes@txtfilein.def}\fi
+\edef\bpes@txtfileinEXT{\ifx\bpes@txtfilein\@empty
+ <unspecified>\else\bpes@txtfilein\fi.txt}
+\edef\bpes@deffileoutEXT{\ifx\bpes@txtfilein\@empty
+ <unspecified>\else\bpes@deffileout\fi.def}
+\@ifundefined{CommentStream}{\newwrite\CommentStream}{}
+\immediate\openout\CommentStream report.cut
+\immediate\write\CommentStream{Input file:
+ \string\texttt{\bpes@infolder\bpes@txtfileinEXT}}
+\immediate\write\CommentStream{Output file:
+ \string\texttt{\bpes@outfolder\bpes@deffileoutEXT}}
+\immediate\closeout\CommentStream
+\def\reportOnBibPes{\begin{flushleft}\catcode`\_=12\relax\obeylines
+ \parskip3pt
+ \InputIfFileExists{report.cut}{}{}
+ \end{flushleft}
+}
+\def\readbackDefFile{\begingroup\parindent0pt\parskip3pt
+ \def\BV(##1){\makebox[0pt][r]{##1\quad}\ignorespaces}%
+ \def\null{\par}%
+ \InputIfFileExists{\bpes@outfolder\bpes@deffileoutEXT}{}
+ {There is a problem locating the file
+ \texttt{\bpes@deffileoutEXT}\ifx\bpes@txtfilein\@empty.
+ (A value for the \texttt{txtfilein} package option key is
+ \emph{required}, but it was not given a value; hence its
+ value is considered \texttt{<unspecified>},
+ please correct.)\else. (Check the path to the specified file;
+ in particular, the value of \texttt{infolder} and/or
+ \texttt{outfolder} may be incorrect.)\fi}\endgroup
+}
+\ifbibpes@dobuild\else\endinput\fi
+\ifx\bpes@txtfilein\@empty\expandafter\endinput\fi
+\begingroup
+\newread \inbiblepassage
+\newwrite \outbiblepassage
+\newif\ifreadOK\readOKtrue
+\edef\bpes@in{\bpes@infolder\bpes@txtfileinEXT}
+\edef\bpes@out{\bpes@outfolder\bpes@deffileoutEXT}
+\immediate\openin\inbiblepassage=\bpes@in
+\immediate\openout\outbiblepassage=\bpes@out
+\endlinechar=-1
+\def\iwo{\immediate\write\outbiblepassage}
+\def\FN{Filename: }\def\CO{Created on }\def\CF{From file: }
+{\uccode`c=`\%\uppercase{%
+ \iwo{cc}%
+ \iwo{cc\space \FN\bpes@deffileoutEXT}%
+ \iwo{cc\space \CO\today}%
+ \iwo{cc\space \CF\bpes@txtfileinEXT}%
+ \iwo{cc}%
+}}
+\loop
+ \read\inbiblepassage to \biblepassage
+ \ifeof\inbiblepassage\readOKfalse
+ \else\ifx\biblepassage\@empty\else
+ \iwo{\string\BV\biblepassage\string\null}
+ \fi\fi
+\ifreadOK\repeat
+\immediate\closeout\outbiblepassage
+\immediate\closein\inbiblepassage
+\endgroup
+\endinput
+%%
+%% End of file `bibpes.sty'.