summaryrefslogtreecommitdiff
path: root/texmf-dist/tex/latex/fetchbibpes/bibpes.sty
blob: 39f01e4e150f97e57f59446aa2aa6b79fcf7dd9a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
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'.