summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/bibleref
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-09-12 22:05:59 +0000
committerKarl Berry <karl@freefriends.org>2016-09-12 22:05:59 +0000
commitbf0276244b309394ef514101adfee31ba31d09b1 (patch)
tree9d3aedf29f434d01742abf0cd50b6c34b0a663f5 /Master/texmf-dist/source/latex/bibleref
parentd3e311a66f04c196f3d327b98ffbd6de7fd251ca (diff)
bibleref (11sep16)
git-svn-id: svn://tug.org/texlive/trunk@42049 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/bibleref')
-rw-r--r--Master/texmf-dist/source/latex/bibleref/bibleref.dtx1890
-rw-r--r--Master/texmf-dist/source/latex/bibleref/bibleref.ins7
-rw-r--r--Master/texmf-dist/source/latex/bibleref/bibleref.perl1738
3 files changed, 85 insertions, 3550 deletions
diff --git a/Master/texmf-dist/source/latex/bibleref/bibleref.dtx b/Master/texmf-dist/source/latex/bibleref/bibleref.dtx
index f6b6d2d1a79..7981b709968 100644
--- a/Master/texmf-dist/source/latex/bibleref/bibleref.dtx
+++ b/Master/texmf-dist/source/latex/bibleref/bibleref.dtx
@@ -1,22 +1,4 @@
%\iffalse
-% bibleref.dtx generated using makedtx version 0.94b (c) Nicola Talbot
-% Command line args:
-% -macrocode "bibleref.perl"
-% -macrocode ".+\.ist"
-% -setambles ".*\.perl=>\nopreamble\nopostamble"
-% -comment "bibleref.perl"
-% -comment ".+\.tex"
-% -comment ".+\.ist"
-% -src "(.+)\.(sty)=>\1.\2"
-% -src "(sample.*)\.(tex)=>\1.\2"
-% -src "(.+)\.(ist)=>\1.\2"
-% -src "bibleref.perl\Z=>bibleref.perl"
-% -doc "bibleref-manual.tex"
-% -author "Nicola Talbot"
-% bibleref
-% Created on 2011/1/19 22:37
-%\fi
-%\iffalse
%<*package>
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
@@ -38,19 +20,19 @@
% \iffalse
% Doc-Source file to use with LaTeX2e
% Copyright (C) 2011 Nicola Talbot, all rights reserved.
+% Copyright (C) 2016… Maïeul Rouquette
+% LPPL 1.3 https://www.ctan.org/license/lppl1.3
% \fi
% \iffalse
%<*driver>
\documentclass{nlctdoc}
\usepackage{bibleref}
-\usepackage[colorlinks,bookmarks,pdfauthor={Nicola L.C. Talbot},
+\usepackage[colorlinks,bookmarks,pdfauthor={Nicola L.C. Talbot and Ma\"{i}eul Rouquette},
hyperindex=false,
pdftitle={bibleref.sty: a LaTeX package for
typesetting bible references}]{hyperref}
-
-
\CheckSum{2503}
\OnlyDescription
@@ -59,21 +41,18 @@
\end{document}
%</driver>
%\fi
-%\title{bibleref.sty v1.14:
+% \GetFileInfo{bibleref.sty}
+%\title{bibleref.sty (\fileversion):
%a \LaTeXe\ package for typesetting bible references}
-%\author{Nicola Talbot\\[10pt]
-%School of Computing Sciences\\
-%University of East Anglia\\
-%Norwich. Norfolk. NR4 7TJ.\\
-%United Kingdom\\
-%\url{http://theoval.cmp.uea.ac.uk/~nlct/}}
-%\date{2011-01-19}
+%\author{Nicola Talbot (inactive)\\[10pt]
+% Ma\"{i}eul Rouquette (active)}
+%\date{\filedate}
%
%\maketitle
%\tableofcontents
%
-%\section{Introduction}
-%
+%\section{General use}
+%\subsection{Basic}
%The \sty{bibleref} package was designed to provide consistent formatting for referencing
%parts of the bible.
%
@@ -91,6 +70,7 @@
%how to make the colon non-active.
%\end{important}
%
+% \subsection{Choosing the book}
%The book title, \meta{book title}, may be given either as the
%full title (e.g.\ \texttt{Matthew}) or as an abbreviation (e.g.\
%\texttt{Mt} or \texttt{Matt}), most standard abbreviations are
@@ -98,6 +78,7 @@
%book number in uppercase Roman numerals. For example, the second
%book of Kings should be entered as \verb|\bibleverse{IIKings}|
%
+%\subsection{Choosing the chapters and verses}
%You may have any number, or zero, sets of parenthesis
%\verb|(|\meta{chapter}\texttt{:}\meta{verse(s)}\verb|)|,
%indicating the chapter and verse or verses. Verses can be
@@ -116,28 +97,43 @@
%be entered as \texttt(\meta{ch}\texttt:\meta{v}\texttt{)-(}\meta
%{ch}\texttt:\meta{v}\texttt)
%
-%If there is no verse, but there are multiple chapters or chapter
+%If there is no verse, but there are multiple chapters
%ranges, these may be specified in the \meta{chapter} part, using a
%comma to separate individual chapters and a hyphen to separate
%ranges. Note that you still need a colon at the end of the list.
-%
-%Examples:
+% \begin{important}
+% You \textbf{must not} use this syntax:\\
+% \texttt{(}\meta{ch}\texttt{:)-(}\meta{ch}\texttt{:)}
+%
+% Despite this syntax make a good typesetting, it make a problematic index: the chapter are typeset after the verse contained inside.
+% \end{important}
+%
+% For the book without chapter (\bibleverse{Ob}; \bibleverse{IJn}; \bibleverse{IIJn}; \bibleverse{Phm}; \bibleverse{Jude}), you must add an empty chapter:
+% \texttt{(:}\meta{v}\texttt{-}\meta{v}\texttt{)}
+%
+% \begin{important}
+% You \textbf{must not} use this syntax:\\
+% \texttt{(}\meta{v}\texttt{-}\meta{v}\texttt{:)}
+% With this syntax, the verses would be formatted as if they were chapters.
+% \end{important}
+%\subsection{Examples}
%\begin{center}
%\begin{tabular}{ll}
%\verb|\bibleverse{Ex}| & \bibleverse{Ex}\\
%\verb|\bibleverse{Exodus}(20:)| & \bibleverse{Exodus}(20:)\\
%\verb|\bibleverse{Exod}(20:17)| & \bibleverse{Exod}(20:17)\\
+%\verb|\bibleverse{Exod}(20-21:)| & \bibleverse{Exod}(20-21:)\\
%\verb|\bibleverse{IICo}(12:21)| & \bibleverse{IICo}(12:21)\\
-%\verb|\bibleverse{IICor}(12:21-32)| & \bibleverse{IICor}(12:21-32)\\
%\verb|\bibleverse{Ex}(20:17)(21:3)| & \bibleverse{Ex}(20:17)(21:3)\\
%\verb|\bibleverse{Ex}(15:)(17:)(20:)| & \bibleverse{Ex}(15:)(17:)(20:)\\
%\verb|\bibleverse{Rev}(1:2,5,7-9,11)| & \bibleverse{Rev}(1:2,5,7-9,11)\\
%\verb|\bibleverse{IChronicles}(1:3)-(2:7)| &
%\bibleverse{IChronicles}(1:3)-(2:7)\\
-%\verb|\bibleverse{Luke}(1,4-5,8:)| &\bibleverse{Luke}(1,4-5,8:)
+%\verb|\bibleverse{Luke}(1,4-5,8:)| &\bibleverse{Luke}(1,4-5,8:)\\
+%\verb|\bibleverse{Phm}(1-3:)| &\bibleverse{Phm}(1-3:)\\
%\end{tabular}
%\end{center}
-%
+% \subsection{Style}
%The style of the reference can be specified either by
%package option or as the argument to the command
%\begin{definition}[\DescribeMacro{\biblerefstyle}]
@@ -341,25 +337,24 @@
%\end{definition}
%This command defaults to \cs{index}, but can be changed to
%the appropriate indexing command. For example, suppose you
-%are using the \sty{multind} package and you want a general
+%are using the \sty{indextools} package and you want a general
%index and a scripture index, you can do something like:
%\begin{verbatim}
%\documentclass{article}
%\usepackage{bibleref}
-%\usepackage{multind}
+%\usepackage{indextools}
%
-%\makeindex{scripture}
-%\makeindex{general}
+%\makeindex[title=Scripture,name=scr]}
+%\makeindex[title=General]
%
-%\renewcommand{\biblerefindex}{\index{scripture}}
+%\renewcommand{\biblerefindex}{\index[scr]}
%\end{verbatim}
%In the document, you can use \cs{ibibleverse} as before, and
%the scripture index is displayed using
%\begin{verbatim}
-%\printindex{scripture}{Scripture Index}
+%\printindex[scr]
%\end{verbatim}
-%You will then need to run \app{makeindex} on the file
-%\texttt{scripture.idx}. See the \sty{multind} documentation
+%You will find the index. See the \sty{indextools} documentation
%for further details.
%
%\subsection{Changing the Sort Order}
@@ -470,12 +465,18 @@
%Many thanks to all the useful comments from comp.text.tex,
%especially from Jesse~Billett, Brooks~Moses and Ulrich~M.~Schwarz.
%
+% Many thanks also to Rapha\"{e}l Pinson, which have debbuged indexing for books without chapter.
+%
+%\section{Bug and feature request}
+% For all bug and feature requests, please open an ``issue'' on
+% \begin{important}
+% \url{https://git.framasoft.org/maieul/bibleref/issues}
+% \end{important}
+%
%\StopEventually{\clearpage\phantomsection
-%\addcontentsline{toc}{section}{Index}
%\PrintIndex
-%}
-%
%
+%}
%
%\section{The Code}
%\iffalse
@@ -941,7 +942,7 @@
% Declare package
% \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{bibleref}[2011/01/19 1.14 (NLCT)]
+\ProvidesPackage{bibleref}[2016/09/10 1.15 (NLCT and MR)]
% \end{macrocode}
% Need to do some conditional stuff
% \begin{macrocode}
@@ -2104,8 +2105,14 @@ defined}{}}}
% This gets the chapter number.
% \begin{macrocode}
\def\@bibleverse(#1:{%
- \@br@chsty{#1}%
- \@@bibleverse
+ \def\@bv@tmp{#1}%
+ \ifx\@bv@tmp\@empty
+ \def\@bv@bvmacro{\@@bibleversenosep}%
+ \else
+ \@br@chsty{#1}%
+ \def\@bv@bvmacro{\@@bibleverse}%
+ \fi
+ \@bv@bvmacro
}
% \end{macrocode}
%\end{macro}
@@ -2155,6 +2162,20 @@ defined}{}}}
{\@end@@bibleverse}%
}%
}
+% \changes{1.15}{2016/09/10}{fix bug with book without chapter}
+\def\@@bibleversenosep#1){%
+ \def\@bv@tmp{#1}%
+ \ifx\@bv@tmp\@empty
+ \else
+ \@br@vrsty{#1}%
+ \fi
+ \new@ifnextchar(%
+ {\@bv@do{\protect\BRchsep}\@bibleverse}%
+ {\new@ifnextchar-%
+ {\@bv@do{\protect\BRvrsep}\@bibleverser}%
+ {\@end@@bibleverse}%
+ }%
+}
% \end{macrocode}
%\end{macro}
%
@@ -2419,7 +2440,7 @@ defined}{}}}
%\fi
%\iffalse
% \begin{macrocode}
-%<*sample-multind.tex>
+%<*sample-indextools.tex>
% \end{macrocode}
%\fi
%\iffalse
@@ -2428,12 +2449,12 @@ defined}{}}}
\documentclass{article}
\usepackage{bibleref}
-\usepackage{multind}
+\usepackage{indextools}
-\makeindex{scripture}
-\makeindex{general}
+\makeindex[name=scr,title=Scripture]
+\makeindex[title=General]
-\renewcommand{\biblerefindex}{\index{scripture}}
+\renewcommand{\biblerefindex}{\index[scr]}
\biblerefmap{Genesis}{1@Old Testament!1}
\biblerefmap{Exodus}{1@Old Testament!2}
@@ -2452,26 +2473,26 @@ defined}{}}}
\biblerefmap{Corinthians1}{3@New Testament!7}
\begin{document}
-Something for the general index\index{general}{something}.
+Something for the general index\index{something}.
An old testament reference \ibibleverse{Genesis}(1:1-10).
A new testament reference \ibibleverse{ICor}.
-Something else for the general index\index{general}{another}.
+Something else for the general index\index{another}.
Another old testament reference \ibibleverse{Ex}.
Another new testament reference \ibibleverse{Matt}.
\ibibleverse{Tobit}
-\printindex{scripture}{Scripture Index}
-\printindex{general}{General Index}
+\printindex[scr]
+\printindex
\end{document}
% \end{macrocode}
%\fi
%\iffalse
% \begin{macrocode}
-%</sample-multind.tex>
+%</sample-indextools.tex>
% \end{macrocode}
%\fi
%\iffalse
@@ -2811,1752 +2832,5 @@ delim_2 "\\dotfill "
%<*bibleref.perl>
% \end{macrocode}
%\fi
-%\iffalse
-% \begin{macrocode}
-#!/usr/bin/perl
-# File : bibleref.perl
-# Author : Nicola L.C. Talbot
-# http://theoval.cmp.uea.ac.uk/~nlct/
-# This is a LaTeX2HTML style implementing the bibleref package, and
-# is distributed as part of that package.
-# Copyright 2007 Nicola L.C. Talbot
-# This work may be distributed and/or modified under the
-# conditions of the LaTeX Project Public License, either version 1.3
-# of this license of (at your option) any later version.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-# and version 1.3 or later is part of all distributions of LaTeX
-# version 2005/12/01 or later.
-#
-# This work has the LPPL maintenance status `maintained'.
-#
-# The Current Maintainer of this work is Nicola Talbot.
-#
-# This work consists of the files bibleref.dtx and bibleref.ins
-# and the derived files bibleref.sty, sample.tex, bibleref.perl.
-
- %bookfullname=();
-
-$synonym{'Gn'}='Gensis';
-$synonym{'Ex'}='Exodus';
-$synonym{'Lv'}='Leviticus';
-$synonym{'Nb'}='Numbers';
-$synonym{'Dt'}='Deuteronomy';
-$synonym{'Jos'}='Joshua';
-$synonym{'Jg'}='Judges';
-$synonym{'Rt'}='Ruth';
-$synonym{'IS'}='ISamuel';
-$synonym{'IIS'}='IISamuel';
-$synonym{'IK'}='IKings';
-$synonym{'IIK'}='IIKings';
-$synonym{'ICh'}='IChronicles';
-$synonym{'IICh'}='IIChronicles';
-$synonym{'Ezr'}='Ezra';
-$synonym{'Ne'}='Nehemiah';
-$synonym{'Tb'}='Tobit';
-$synonym{'Jdt'}='Judith';
-$synonym{'Est'}='Esther';
-$synonym{'IM'}='IMaccabees';
-$synonym{'IIM'}='IIMaccabees';
-$synonym{'Jb'}='Job';
-$synonym{'Ps'}='Psalms';
-$synonym{'Pr'}='Proverbs';
-$synonym{'Qo'}='Ecclesiastes';
-$synonym{'Sg'}='SongofSongs';
-$synonym{'Ws'}='Wisdom';
-$synonym{'Si'}='Ecclesiasticus';
-$synonym{'Is'}='Isaiah';
-$synonym{'Jr'}='Jeremiah';
-$synonym{'Lm'}='Lamentations';
-$synonym{'Ba'}='Baruch';
-$synonym{'Ezk'}='Ezekiel';
-$synonym{'Dn'}='Daniel';
-$synonym{'Ho'}='Hosea';
-$synonym{'Jl'}='Joel';
-$synonym{'Am'}='Amos';
-$synonym{'Ob'}='Obadiah';
-$synonym{'Jon'}='Jonah';
-$synonym{'Mi'}='Micah';
-$synonym{'Na'}='Nahum';
-$synonym{'Hab'}='Habakkuk';
-$synonym{'Zp'}='Zephaniah';
-$synonym{'Hg'}='Haggai';
-$synonym{'Zc'}='Zechariah';
-$synonym{'Ml'}='Malachi';
-$synonym{'Mt'}='Matthew';
-$synonym{'Mk'}='Mark';
-$synonym{'Lk'}='Luke';
-$synonym{'Jn'}='John';
-$synonym{'Ac'}='Acts';
-$synonym{'Rm'}='Romans';
-$synonym{'ICo'}='ICorinthians';
-$synonym{'IICo'}='IICorinthians';
-$synonym{'Ga'}='Galatians';
-$synonym{'Ep'}='Ephesians';
-$synonym{'Ph'}='Philippians';
-$synonym{'Col'}='Colossians';
-$synonym{'ITh'}='IThessalonians';
-$synonym{'IITh'}='IIThessalonians';
-$synonym{'ITm'}='ITimothy';
-$synonym{'IITm'}='IITimothy';
-$synonym{'Tt'}='Titus';
-$synonym{'Phm'}='Philemon';
-$synonym{'Heb'}='Hebrews';
-$synonym{'Jm'}='James';
-$synonym{'IP'}='IPeter';
-$synonym{'IIP'}='IIPeter';
-$synonym{'IJn'}='IJohn';
-$synonym{'IIJn'}='IIJohn';
-$synonym{'IIIJn'}='IIIJohn';
-$synonym{'Rv'}='Revelation';
-$synonym{'Gen'}='Gensis';
-$synonym{'Exod'}='Exodus';
-$synonym{'Lev'}='Leviticus';
-$synonym{'Num'}='Numbers';
-$synonym{'Deut'}='Deuteronomy';
-$synonym{'Josh'}='Joshua';
-$synonym{'Judg'}='Judges';
-$synonym{'ISam'}='ISamuel';
-$synonym{'IISam'}='IISamuel';
-$synonym{'IKgs'}='IKings';
-$synonym{'IIKgs'}='IIKings';
-$synonym{'IChr'}='IChronicles';
-$synonym{'IIChr'}='IIChronicles';
-$synonym{'Neh'}='Nehemiah';
-$synonym{'IM'}='IMaccabees';
-$synonym{'IIM'}='IIMaccabees';
-$synonym{'Ps'}='Psalms';
-$synonym{'Prov'}='Proverbs';
-$synonym{'Eccles'}='Ecclesiastes';
-$synonym{'SofS'}='SongofSongs';
-$synonym{'Wisd'}='Wisdom';
-$synonym{'Ecclus'}='Ecclesiasticus';
-$synonym{'Isa'}='Isaiah';
-$synonym{'Jer'}='Jeremiah';
-$synonym{'Lam'}='Lamentations';
-$synonym{'Ezek'}='Ezekiel';
-$synonym{'Dan'}='Daniel';
-$synonym{'Hos'}='Hosea';
-$synonym{'Obad'}='Obadiah';
-$synonym{'Mic'}='Micah';
-$synonym{'Nah'}='Nahum';
-$synonym{'Hab'}='Habakkuk';
-$synonym{'Zeph'}='Zephaniah';
-$synonym{'Hag'}='Haggai';
-$synonym{'Zech'}='Zechariah';
-$synonym{'Mal'}='Malachi';
-$synonym{'Matt'}='Matthew';
-$synonym{'Rom'}='Romans';
-$synonym{'ICor'}='ICorinthians';
-$synonym{'IICor'}='IICorinthians';
-$synonym{'Gal'}='Galatians';
-$synonym{'Eph'}='Ephesians';
-$synonym{'Phil'}='Philippians';
-$synonym{'Col'}='Colossians';
-$synonym{'IThess'}='IThessalonians';
-$synonym{'IIThess'}='IIThessalonians';
-$synonym{'ITim'}='ITimothy';
-$synonym{'IITim'}='IITimothy';
-$synonym{'Tit'}='Titus';
-$synonym{'Philem'}='Philemon';
-$synonym{'Heb'}='Hebrews';
-$synonym{'Jas'}='James';
-$synonym{'IPet'}='IPeter';
-$synonym{'IIPet'}='IIPeter';
-$synonym{'IJohn'}='IJohn';
-$synonym{'IIJohn'}='IIJohn';
-$synonym{'IIIJohn'}='IIIJohn';
-$synonym{'Rev'}='Revelation';
-
-&do_cmd_brfullname;
-
-sub do_cmd_BRbooknumberstyle{
- local($_) = @_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- "$num " . $_;
-}
-
-sub do_cmd_BRepistlenumberstyle{
- local($_) = @_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- "$num " . $_;
-}
-
-sub do_cmd_BRbooknumberstyleI{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRbooknumberstyle$OP$id${CP}1$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRbooknumberstyleII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRbooknumberstyle$OP$id${CP}2$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleI{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}1$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}2$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleIII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}3$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRbookof{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRgospel{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistleto{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistletothe{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistleof{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRbooktitlestyle{
- local($_)=@_;
- local($title);
-
- $title = &missing_braces unless
- s/$next_pair_pr_rx/$title=$2;''/eo;
-
- $title . $_;
-}
-
-sub do_cmd_BRchapterstyle{
- local($_)=@_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- $num . $_;
-}
-
-sub do_cmd_BRversestyle{
- local($_)=@_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- $num . $_;
-}
-
-sub do_cmd_BRbkchsep{
- local($_)=@_;
-
- " " . $_;
-}
-
-sub do_cmd_BRchvsep{
- local($_)=@_;
-
- ":" . $_;
-}
-
-sub do_cmd_BRchsep{
- local($_)=@_;
-
- ';' . $_;
-}
-
-sub do_cmd_BRvrsep{
- local($_)=@_;
-
- &translate_commands("--") . $_;
-}
-
-sub do_cmd_BRvsep{
- local($_)=@_;
-
- "," . $_;
-}
-
-sub do_cmd_BRperiod{
- local($_)=@_;
- $_;
-}
-
-sub do_cmd_brfullname{
-local($_) = @_;
-$bookname{'Genesis'}='\BRbookof Genesis';
-$bookname{'Exodus'}='\BRbookof Exodus';
-$bookname{'Leviticus'}='\BRbookof Leviticus';
-$bookname{'Numbers'}='\BRbookof Numbers';
-$bookname{'Deuteronomy'}='\BRbookof Deuteronomy';
-$bookname{'Joshua'}='\BRbookof Joshua';
-$bookname{'Judges'}='\BRbookof Judges';
-$bookname{'Ruth'}='\BRbookof Ruth';
-$bookname{'ISamuel'}='\BRbooknumberstyleI \BRbookof Samuel';
-$bookname{'IISamuel'}='\BRbooknumberstyleII \BRbookof Samuel';
-$bookname{'IKings'}='\BRbooknumberstyleI \BRbookof Kings';
-$bookname{'IIKings'}='\BRbooknumberstyleII \BRbookof Kings';
-$bookname{'IChronicles'}='\BRbooknumberstyleI \BRbookof Chronicles';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII \BRbookof Chronicles';
-$bookname{'Ezra'}='\BRbookof Ezra';
-$bookname{'Nehemiah'}='\BRbookof Nehemiah';
-$bookname{'Tobit'}='\BRbookof Tobit';
-$bookname{'Judith'}='\BRbookof Judith';
-$bookname{'Esther'}='\BRbookof Esther';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI \BRbookof Maccabees';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII \BRbookof Maccabees';
-$bookname{'Job'}='\BRbookof Job';
-$bookname{'Psalms'}='\BRbookof Psalms';
-$bookname{'Proverbs'}='\BRbookof Proverbs';
-$bookname{'Ecclesiastes'}='\BRbookof Ecclesiastes';
-$bookname{'SongofSongs'}='\BRbookof Song of Songs';
-$bookname{'Wisdom'}='\BRbookof Wisdom';
-$bookname{'Ecclesiasticus'}='\BRbookof Ecclesiasticus';
-$bookname{'Isaiah'}='\BRbookof Isaiah';
-$bookname{'Jeremiah'}='\BRbookof Jeremiah';
-$bookname{'Lamentations'}='\BRbookof Lamentations';
-$bookname{'Baruch'}='\BRbookof Baruch';
-$bookname{'Ezekiel'}='\BRbookof Ezekiel';
-$bookname{'Daniel'}='\BRbookof Daniel';
-$bookname{'Hosea'}='\BRbookof Hosea';
-$bookname{'Joel'}='\BRbookof Joel';
-$bookname{'Amos'}='\BRbookof Amos';
-$bookname{'Obadiah'}='\BRbookof Obadiah';
-$bookname{'Jonah'}='\BRbookof Jonah';
-$bookname{'Micah'}='\BRbookof Micah';
-$bookname{'Nahum'}='\BRbookof Nahum';
-$bookname{'Habakkuk'}='\BRbookof Habakkuk';
-$bookname{'Zephaniah'}='\BRbookof Zephaniah';
-$bookname{'Haggai'}='\BRbookof Haggai';
-$bookname{'Zechariah'}='\BRbookof Zechariah';
-$bookname{'Malachi'}='\BRbookof Malachi';
-$bookname{'Matthew'}='\BRgospel Matthew';
-$bookname{'Mark'}='\BRgospel Mark';
-$bookname{'Luke'}='\BRgospel Luke';
-$bookname{'John'}='\BRgospel John';
-$bookname{'Acts'}='Acts';
-$bookname{'Romans'}='\BRepistletothe Romans';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI \BRepistletothe Corinthians';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII \BRepistletothe Corinthians';
-$bookname{'Galatians'}='\BRepistletothe Galatians';
-$bookname{'Ephesians'}='\BRepistletothe Ephesians';
-$bookname{'Philippians'}='\BRepistletothe Philippians';
-$bookname{'Colossians'}='\BRepistletothe Colossians';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI \BRepistletothe Thessalonians';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII \BRepistletothe Thessalonians';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI \BRepistleto Timothy';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII \BRepistletoTimothy';
-$bookname{'Titus'}='\BRepistleto Titus';
-$bookname{'Philemon'}='\BRepistleto Philemon';
-$bookname{'Hebrews'}='\BRepistletothe Hebrews';
-$bookname{'James'}='\BRepistleof James';
-$bookname{'IPeter'}='\BRepistlenumberstyleI \BRepistleof Peter';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII \BRepistleof Peter';
-$bookname{'IJohn'}='\BRepistlenumberstyleI \BRepistleof John';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII \BRepistleof John';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII \BRepistleof John';
-$bookname{'Jude'}='\BRepistleof Jude';
-$bookname{'Revelation'}='\BRbookof Revelation';
-$_;
-}
-
-sub do_cmd_brabbrvname{
-local($_)=@_;
-$bookname{'Gensis'}='Gn\BRperiod ';
-$bookname{'Exodus'}='Ex\BRperiod ';
-$bookname{'Leviticus'}='Lv\BRperiod ';
-$bookname{'Numbers'}='Nb\BRperiod ';
-$bookname{'Deuteronomy'}='Dt\BRperiod ';
-$bookname{'Joshua'}='Jos\BRperiod ';
-$bookname{'Judges'}='Jg\BRperiod ';
-$bookname{'Ruth'}='Rt\BRperiod ';
-$bookname{'ISamuel'}='\BRbooknumberstyleI S\BRperiod ';
-$bookname{'IISamuel'}='\BRbooknumberstyleII S\BRperiod ';
-$bookname{'IKings'}='\BRbooknumberstyleI K\BRperiod ';
-$bookname{'IIKings'}='\BRbooknumberstyleII K\BRperiod ';
-$bookname{'IChronicles'}='\BRbooknumberstyleI Ch\BRperiod ';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII Ch\BRperiod ';
-$bookname{'Ezra'}='Ezr\BRperiod ';
-$bookname{'Nehemiah'}='Ne\BRperiod ';
-$bookname{'Tobit'}='Tb\BRperiod ';
-$bookname{'Judith'}='Jdt\BRperiod ';
-$bookname{'Esther'}='Est\BRperiod ';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI M\BRperiod ';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII M\BRperiod ';
-$bookname{'Job'}='Jb\BRperiod ';
-$bookname{'Psalms'}='Ps\BRperiod ';
-$bookname{'Proverbs'}='Pr\BRperiod ';
-$bookname{'Ecclesiastes'}='Qo\BRperiod ';
-$bookname{'SongofSongs'}='Sg\BRperiod ';
-$bookname{'Wisdom'}='Ws\BRperiod ';
-$bookname{'Ecclesiasticus'}='Si\BRperiod ';
-$bookname{'Isaiah'}='Is\BRperiod ';
-$bookname{'Jeremiah'}='Jr\BRperiod ';
-$bookname{'Lamentations'}='Lm\BRperiod ';
-$bookname{'Baruch'}='Ba\BRperiod ';
-$bookname{'Ezekiel'}='Ezk\BRperiod ';
-$bookname{'Daniel'}='Dn\BRperiod ';
-$bookname{'Hosea'}='Ho\BRperiod ';
-$bookname{'Joel'}='Jl\BRperiod ';
-$bookname{'Amos'}='Am\BRperiod ';
-$bookname{'Obadiah'}='Ob\BRperiod ';
-$bookname{'Jonah'}='Jon\BRperiod ';
-$bookname{'Micah'}='Mi\BRperiod ';
-$bookname{'Nahum'}='Na\BRperiod ';
-$bookname{'Habakkuk'}='Hab\BRperiod ';
-$bookname{'Zephaniah'}='Zp\BRperiod ';
-$bookname{'Haggai'}='Hg\BRperiod ';
-$bookname{'Zechariah'}='Zc\BRperiod ';
-$bookname{'Malachi'}='Ml\BRperiod ';
-$bookname{'Matthew'}='Mt\BRperiod ';
-$bookname{'Mark'}='Mk\BRperiod ';
-$bookname{'Luke'}='Lk\BRperiod ';
-$bookname{'John'}='Jn\BRperiod ';
-$bookname{'Acts'}='Ac\BRperiod ';
-$bookname{'Romans'}='Rm\BRperiod ';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI Co\BRperiod ';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII Co\BRperiod ';
-$bookname{'Galatians'}='Ga\BRperiod ';
-$bookname{'Ephesians'}='Ep\BRperiod ';
-$bookname{'Philippians'}='Ph\BRperiod ';
-$bookname{'Colossians'}='Col\BRperiod ';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI Th\BRperiod ';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII Th\BRperiod ';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI Tm\BRperiod ';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII Tm\BRperiod ';
-$bookname{'Titus'}='Tt\BRperiod ';
-$bookname{'Philemon'}='Phm\BRperiod ';
-$bookname{'Hebrews'}='Heb\BRperiod ';
-$bookname{'James'}='Jm\BRperiod ';
-$bookname{'IPeter'}='\BRepistlenumberstyleI P\BRperiod ';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII P\BRperiod ';
-$bookname{'IJohn'}='\BRepistlenumberstyleI Jn\BRperiod ';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII Jn\BRperiod ';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII Jn\BRperiod ';
-$bookname{'Jude'}='Jude';
-$bookname{'Revelation'}='Rv\BRperiod ';
-$_;
-}
-
-sub do_cmd_braltabbrvname{
-local($_)=@_;
-$bookname{'Gensis'}='Gen\BRperiod ';
-$bookname{'Exodus'}='Exod\BRperiod ';
-$bookname{'Leviticus'}='Lev\BRperiod ';
-$bookname{'Numbers'}='Num\BRperiod ';
-$bookname{'Deuteronomy'}='Deut\BRperiod ';
-$bookname{'Joshua'}='Josh\BRperiod ';
-$bookname{'Judges'}='Judg\BRperiod ';
-$bookname{'Ruth'}='Ruth';
-$bookname{'ISamuel'}='\BRbooknumberstyleI Sam\BRperiod ';
-$bookname{'IISamuel'}='\BRbooknumberstyleII Sam\BRperiod ';
-$bookname{'IKings'}='\BRbooknumberstyleI Kgs\BRperiod ';
-$bookname{'IIKings'}='\BRbooknumberstyleII Kgs\BRperiod ';
-$bookname{'IChronicles'}='\BRbooknumberstyleI Chr\BRperiod ';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII Chr\BRperiod ';
-$bookname{'Ezra'}='Ezra';
-$bookname{'Nehemiah'}='Neh\BRperiod ';
-$bookname{'Tobit'}='Tobit';
-$bookname{'Judith'}='Judith';
-$bookname{'Esther'}='Esther';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI M\BRperiod ';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII M\BRperiod ';
-$bookname{'Job'}='Job';
-$bookname{'Psalms'}='Ps\BRperiod ';
-$bookname{'Proverbs'}='Prov\BRperiod ';
-$bookname{'Ecclesiastes'}='Eccles\BRperiod ';
-$bookname{'SongofSongs'}='S\BRperiod \ of S\BRperiod ';
-$bookname{'Wisdom'}='Wisd\BRperiod ';
-$bookname{'Ecclesiasticus'}='Ecclus\BRperiod ';
-$bookname{'Isaiah'}='Isa\BRperiod ';
-$bookname{'Jeremiah'}='Jer\BRperiod ';
-$bookname{'Lamentations'}='Lam\BRperiod ';
-$bookname{'Baruch'}='Baruch';
-$bookname{'Ezekiel'}='Ezek\BRperiod ';
-$bookname{'Daniel'}='Dan\BRperiod ';
-$bookname{'Hosea'}='Hos\BRperiod ';
-$bookname{'Joel'}='Joel';
-$bookname{'Amos'}='Amos';
-$bookname{'Obadiah'}='Obad';
-$bookname{'Jonah'}='Jonah';
-$bookname{'Micah'}='Mic\BRperiod ';
-$bookname{'Nahum'}='Nah\BRperiod ';
-$bookname{'Habakkuk'}='Hab\BRperiod ';
-$bookname{'Zephaniah'}='Zeph\BRperiod ';
-$bookname{'Haggai'}='Hag\BRperiod ';
-$bookname{'Zechariah'}='Zech\BRperiod ';
-$bookname{'Malachi'}='Mal\BRperiod ';
-$bookname{'Matthew'}='Matt\BRperiod ';
-$bookname{'Mark'}='Mark';
-$bookname{'Luke'}='Luke';
-$bookname{'John'}='John';
-$bookname{'Acts'}='Acts';
-$bookname{'Romans'}='Rom\BRperiod ';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI Cor\BRperiod ';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII Cor\BRperiod ';
-$bookname{'Galatians'}='Gal\BRperiod ';
-$bookname{'Ephesians'}='Eph\BRperiod ';
-$bookname{'Philippians'}='Phil\BRperiod ';
-$bookname{'Colossians'}='Col\BRperiod ';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI Thess\BRperiod ';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII Thess\BRperiod ';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI Tim\BRperiod ';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII Tim\BRperiod ';
-$bookname{'Titus'}='Tit\BRperiod ';
-$bookname{'Philemon'}='Philem\BRperiod ';
-$bookname{'Hebrews'}='Heb\BRperiod ';
-$bookname{'James'}='Jas\BRperiod ';
-$bookname{'IPeter'}='\BRepistlenumberstyleI Pet\BRperiod ';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII Pet\BRperiod ';
-$bookname{'IJohn'}='\BRepistlenumberstyleI John';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII John';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII John';
-$bookname{'Jude'}='Jude';
-$bookname{'Revelation'}='Rev\BRperiod ';
-$_;
-}
-
-sub brs_default{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ":" . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \';\' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_jerusalem{
- local($tmp)='';
- &do_cmd_brabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ":" . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_anglosaxon{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", &fRoman($num), $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", &fRoman($num), $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "." . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_JEH{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_MHRA{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' $num = &froman($num);';
- $tmp .= ' $num = &translate_commands("\\\\textsc${OP}$id${CP}$num${OP}$id${CP}");';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' $num = &froman($num);';
- $tmp .= ' $num = &translate_commands("\\\\textsc${OP}$id${CP}$num${OP}$id${CP}");';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_NTG{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ",", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_MLA{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_chicago{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ":", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_long{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' "\\Ordinalstringnum$OP$id$CP$num$OP$id$CP " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' "\\Ordinalstringnum$OP$id$CP$num$OP$id$CP " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Book of",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Gospel according to St",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle to",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle to the", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle of",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' join(" ", "chapter \\numberstring$OP$id$CP$num$OP$id$CP", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' join(" ", "chapter \\numberstring$OP$id$CP$num$OP$id$CP", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ", " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " verse " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \', \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " to " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ", " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub do_bibleref_default{
- &brs_default;
-}
-
-sub do_bibleref_jerusalem{
- &brs_jerusalem;
-}
-
-sub do_bibleref_anglosaxon{
- &brs_anglosaxon;
-}
-
-sub do_bibleref_JEH{
- &brs_JEH;
-}
-
-sub do_bibleref_MHRA{
- &brs_MHRA;
-}
-
-sub do_bibleref_NTG{
- &brs_NTG;
-}
-
-sub do_bibleref_MLA{
- &brs_MLA;
-}
-
-sub do_bibleref_chicago{
- &brs_chicago;
-}
-
-sub do_bibleref_text{
- &brs_chicago;
-}
-
-sub do_cmd_newbiblerefstyle{
- local($_)=@_;
- local($style,$cmds);
- $style = &missing_braces unless
- s/$next_pair_pr_rx/$style=$2;''/eo;
-
- &write_warnings("\n\\newbiblerefstyle not implemented");
-
- $_;
-}
-
-sub do_cmd_setbooktitle{
- local($_)=@_;
- local($name,$title);
-
- $name = &missing_braces unless
- s/$next_pair_pr_rx/$name=$2;''/eo;
- $title = &missing_braces unless
- s/$next_pair_pr_rx/$title=$2;''/eo;
-
- if (defined $bookname{$name})
- {
- $bookname{$name}=$title;
- }
- else
- {
- &write_warnings("\nUnknown book '$name'");
- }
-
- $_;
-}
-
-sub do_cmd_biblerefstyle{
- local($_)=@_;
- local($style);
- $style = &missing_braces unless
- s/$next_pair_pr_rx/$style=$2;''/eo;
-
- if (defined "&brs_$style")
- {
- eval("&brs_$style");
- }
- else
- {
- &write_warnings("\nUnknown biblerefstyle '$style'");
- }
- $_;
-}
-
-sub do_cmd_bibleverse{
- local($_)=@_;
- local($book,$id);
- local($bibleverse)='';
- $book = &missing_braces unless
- s/$next_pair_pr_rx/$book=$2;$id=$1;''/eo;
-
- if (defined $bookname{$book} or defined $synonym{$book})
- {
- $book = $synonym{$book} unless defined $bookname{$book};
-
- $book = $bookname{$book};
- $book = "\\BRbooktitlestyle$OP$id$CP$book$OP$id$CP";
- $bibleverse .= $book;
- $first=1;
-
- while (s/^(-?)\(([^:]*):([^\)]*)\)//)
- {
- if ($1 eq '-')
- {
- $bibleverse .= "\\BRvrsep ";
- }
- else
- {
- $bibleverse .= ($first ? "\\BRbkchsep " : "\\BRchsep ");
- }
- $first=0;
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRchapterstyle$OP$id$CP$2$OP$id$CP" if ($2);
- $verses = $3;
- if ($verses)
- {
- $bibleverse .= "\\BRchvsep ";
- @verses = split /,/, $verses;
-
- for (my $i = 0; $i <=$#verses; $i++)
- {
- $verse = $verses[$i];
-
- $bibleverse .= "\\BRvsep " if ($i > 0);
-
- if ($verse=~m/(\d+)-(\d+)/)
- {
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$1$OP$id$CP";
- $bibleverse .= "\\BRvrsep ";
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$2$OP$id$CP";
- }
- else
- {
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$verse$OP$id$CP";
- }
- }
- }
- }
-
- $bibleverse = &translate_commands($bibleverse);
- }
- else
- {
- &write_warnings("\nUnknown book '$book'");
- }
- join('', $bibleverse, $_);
-}
-
-1;
-% \end{macrocode}
-%\fi
-%\iffalse
-% \begin{macrocode}
-%</bibleref.perl>
-% \end{macrocode}
-%\fi
%\Finale
\endinput
diff --git a/Master/texmf-dist/source/latex/bibleref/bibleref.ins b/Master/texmf-dist/source/latex/bibleref/bibleref.ins
index 1c4778bf014..0208bc5708a 100644
--- a/Master/texmf-dist/source/latex/bibleref/bibleref.ins
+++ b/Master/texmf-dist/source/latex/bibleref/bibleref.ins
@@ -18,7 +18,7 @@
The Current Maintainer of this work is Nicola Talbot.
- This work consists of the files bibleref.dtx and bibleref.ins and the derived files bibleref-xidx.sty, bibleref.sty, sample-categories.tex, sample-multind.tex, sample-xidx.tex, sample.tex, sample.ist, bibleref.perl.
+ This work consists of the files bibleref.dtx and bibleref.ins and the derived files bibleref-xidx.sty, bibleref.sty, sample-categories.tex, sample-indextools.tex, sample-xidx.tex, sample.tex, sample.ist.
\endpreamble
@@ -30,15 +30,14 @@
\usepostamble\defaultpostamble\from{bibleref.dtx}{bibleref.sty,package}}
\file{sample-categories.tex}{\usepreamble\defaultpreamble
\usepostamble\defaultpostamble\from{bibleref.dtx}{sample-categories.tex,package}}
-\file{sample-multind.tex}{\usepreamble\defaultpreamble
-\usepostamble\defaultpostamble\from{bibleref.dtx}{sample-multind.tex,package}}
+\file{sample-indextools.tex}{\usepreamble\defaultpreamble
+\usepostamble\defaultpostamble\from{bibleref.dtx}{sample-indextools.tex,package}}
\file{sample-xidx.tex}{\usepreamble\defaultpreamble
\usepostamble\defaultpostamble\from{bibleref.dtx}{sample-xidx.tex,package}}
\file{sample.tex}{\usepreamble\defaultpreamble
\usepostamble\defaultpostamble\from{bibleref.dtx}{sample.tex,package}}
\file{sample.ist}{\usepreamble\defaultpreamble
\usepostamble\defaultpostamble\from{bibleref.dtx}{sample.ist,package}}
-\file{bibleref.perl}{\nopreamble\nopostamble\from{bibleref.dtx}{bibleref.perl}}
}
\endbatchfile
diff --git a/Master/texmf-dist/source/latex/bibleref/bibleref.perl b/Master/texmf-dist/source/latex/bibleref/bibleref.perl
deleted file mode 100644
index 8a7733f4750..00000000000
--- a/Master/texmf-dist/source/latex/bibleref/bibleref.perl
+++ /dev/null
@@ -1,1738 +0,0 @@
-#!/usr/bin/perl
-# File : bibleref.perl
-# Author : Nicola L.C. Talbot
-# http://theoval.cmp.uea.ac.uk/~nlct/
-# This is a LaTeX2HTML style implementing the bibleref package, and
-# is distributed as part of that package.
-# Copyright 2007 Nicola L.C. Talbot
-# This work may be distributed and/or modified under the
-# conditions of the LaTeX Project Public License, either version 1.3
-# of this license of (at your option) any later version.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-# and version 1.3 or later is part of all distributions of LaTeX
-# version 2005/12/01 or later.
-#
-# This work has the LPPL maintenance status `maintained'.
-#
-# The Current Maintainer of this work is Nicola Talbot.
-#
-# This work consists of the files bibleref.dtx and bibleref.ins
-# and the derived files bibleref.sty, sample.tex, bibleref.perl.
-
- %bookfullname=();
-
-$synonym{'Gn'}='Gensis';
-$synonym{'Ex'}='Exodus';
-$synonym{'Lv'}='Leviticus';
-$synonym{'Nb'}='Numbers';
-$synonym{'Dt'}='Deuteronomy';
-$synonym{'Jos'}='Joshua';
-$synonym{'Jg'}='Judges';
-$synonym{'Rt'}='Ruth';
-$synonym{'IS'}='ISamuel';
-$synonym{'IIS'}='IISamuel';
-$synonym{'IK'}='IKings';
-$synonym{'IIK'}='IIKings';
-$synonym{'ICh'}='IChronicles';
-$synonym{'IICh'}='IIChronicles';
-$synonym{'Ezr'}='Ezra';
-$synonym{'Ne'}='Nehemiah';
-$synonym{'Tb'}='Tobit';
-$synonym{'Jdt'}='Judith';
-$synonym{'Est'}='Esther';
-$synonym{'IM'}='IMaccabees';
-$synonym{'IIM'}='IIMaccabees';
-$synonym{'Jb'}='Job';
-$synonym{'Ps'}='Psalms';
-$synonym{'Pr'}='Proverbs';
-$synonym{'Qo'}='Ecclesiastes';
-$synonym{'Sg'}='SongofSongs';
-$synonym{'Ws'}='Wisdom';
-$synonym{'Si'}='Ecclesiasticus';
-$synonym{'Is'}='Isaiah';
-$synonym{'Jr'}='Jeremiah';
-$synonym{'Lm'}='Lamentations';
-$synonym{'Ba'}='Baruch';
-$synonym{'Ezk'}='Ezekiel';
-$synonym{'Dn'}='Daniel';
-$synonym{'Ho'}='Hosea';
-$synonym{'Jl'}='Joel';
-$synonym{'Am'}='Amos';
-$synonym{'Ob'}='Obadiah';
-$synonym{'Jon'}='Jonah';
-$synonym{'Mi'}='Micah';
-$synonym{'Na'}='Nahum';
-$synonym{'Hab'}='Habakkuk';
-$synonym{'Zp'}='Zephaniah';
-$synonym{'Hg'}='Haggai';
-$synonym{'Zc'}='Zechariah';
-$synonym{'Ml'}='Malachi';
-$synonym{'Mt'}='Matthew';
-$synonym{'Mk'}='Mark';
-$synonym{'Lk'}='Luke';
-$synonym{'Jn'}='John';
-$synonym{'Ac'}='Acts';
-$synonym{'Rm'}='Romans';
-$synonym{'ICo'}='ICorinthians';
-$synonym{'IICo'}='IICorinthians';
-$synonym{'Ga'}='Galatians';
-$synonym{'Ep'}='Ephesians';
-$synonym{'Ph'}='Philippians';
-$synonym{'Col'}='Colossians';
-$synonym{'ITh'}='IThessalonians';
-$synonym{'IITh'}='IIThessalonians';
-$synonym{'ITm'}='ITimothy';
-$synonym{'IITm'}='IITimothy';
-$synonym{'Tt'}='Titus';
-$synonym{'Phm'}='Philemon';
-$synonym{'Heb'}='Hebrews';
-$synonym{'Jm'}='James';
-$synonym{'IP'}='IPeter';
-$synonym{'IIP'}='IIPeter';
-$synonym{'IJn'}='IJohn';
-$synonym{'IIJn'}='IIJohn';
-$synonym{'IIIJn'}='IIIJohn';
-$synonym{'Rv'}='Revelation';
-$synonym{'Gen'}='Gensis';
-$synonym{'Exod'}='Exodus';
-$synonym{'Lev'}='Leviticus';
-$synonym{'Num'}='Numbers';
-$synonym{'Deut'}='Deuteronomy';
-$synonym{'Josh'}='Joshua';
-$synonym{'Judg'}='Judges';
-$synonym{'ISam'}='ISamuel';
-$synonym{'IISam'}='IISamuel';
-$synonym{'IKgs'}='IKings';
-$synonym{'IIKgs'}='IIKings';
-$synonym{'IChr'}='IChronicles';
-$synonym{'IIChr'}='IIChronicles';
-$synonym{'Neh'}='Nehemiah';
-$synonym{'IM'}='IMaccabees';
-$synonym{'IIM'}='IIMaccabees';
-$synonym{'Ps'}='Psalms';
-$synonym{'Prov'}='Proverbs';
-$synonym{'Eccles'}='Ecclesiastes';
-$synonym{'SofS'}='SongofSongs';
-$synonym{'Wisd'}='Wisdom';
-$synonym{'Ecclus'}='Ecclesiasticus';
-$synonym{'Isa'}='Isaiah';
-$synonym{'Jer'}='Jeremiah';
-$synonym{'Lam'}='Lamentations';
-$synonym{'Ezek'}='Ezekiel';
-$synonym{'Dan'}='Daniel';
-$synonym{'Hos'}='Hosea';
-$synonym{'Obad'}='Obadiah';
-$synonym{'Mic'}='Micah';
-$synonym{'Nah'}='Nahum';
-$synonym{'Hab'}='Habakkuk';
-$synonym{'Zeph'}='Zephaniah';
-$synonym{'Hag'}='Haggai';
-$synonym{'Zech'}='Zechariah';
-$synonym{'Mal'}='Malachi';
-$synonym{'Matt'}='Matthew';
-$synonym{'Rom'}='Romans';
-$synonym{'ICor'}='ICorinthians';
-$synonym{'IICor'}='IICorinthians';
-$synonym{'Gal'}='Galatians';
-$synonym{'Eph'}='Ephesians';
-$synonym{'Phil'}='Philippians';
-$synonym{'Col'}='Colossians';
-$synonym{'IThess'}='IThessalonians';
-$synonym{'IIThess'}='IIThessalonians';
-$synonym{'ITim'}='ITimothy';
-$synonym{'IITim'}='IITimothy';
-$synonym{'Tit'}='Titus';
-$synonym{'Philem'}='Philemon';
-$synonym{'Heb'}='Hebrews';
-$synonym{'Jas'}='James';
-$synonym{'IPet'}='IPeter';
-$synonym{'IIPet'}='IIPeter';
-$synonym{'IJohn'}='IJohn';
-$synonym{'IIJohn'}='IIJohn';
-$synonym{'IIIJohn'}='IIIJohn';
-$synonym{'Rev'}='Revelation';
-
-&do_cmd_brfullname;
-
-sub do_cmd_BRbooknumberstyle{
- local($_) = @_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- "$num " . $_;
-}
-
-sub do_cmd_BRepistlenumberstyle{
- local($_) = @_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- "$num " . $_;
-}
-
-sub do_cmd_BRbooknumberstyleI{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRbooknumberstyle$OP$id${CP}1$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRbooknumberstyleII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRbooknumberstyle$OP$id${CP}2$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleI{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}1$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}2$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleIII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}3$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRbookof{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRgospel{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistleto{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistletothe{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistleof{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRbooktitlestyle{
- local($_)=@_;
- local($title);
-
- $title = &missing_braces unless
- s/$next_pair_pr_rx/$title=$2;''/eo;
-
- $title . $_;
-}
-
-sub do_cmd_BRchapterstyle{
- local($_)=@_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- $num . $_;
-}
-
-sub do_cmd_BRversestyle{
- local($_)=@_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- $num . $_;
-}
-
-sub do_cmd_BRbkchsep{
- local($_)=@_;
-
- " " . $_;
-}
-
-sub do_cmd_BRchvsep{
- local($_)=@_;
-
- ":" . $_;
-}
-
-sub do_cmd_BRchsep{
- local($_)=@_;
-
- ';' . $_;
-}
-
-sub do_cmd_BRvrsep{
- local($_)=@_;
-
- &translate_commands("--") . $_;
-}
-
-sub do_cmd_BRvsep{
- local($_)=@_;
-
- "," . $_;
-}
-
-sub do_cmd_BRperiod{
- local($_)=@_;
- $_;
-}
-
-sub do_cmd_brfullname{
-local($_) = @_;
-$bookname{'Genesis'}='\BRbookof Genesis';
-$bookname{'Exodus'}='\BRbookof Exodus';
-$bookname{'Leviticus'}='\BRbookof Leviticus';
-$bookname{'Numbers'}='\BRbookof Numbers';
-$bookname{'Deuteronomy'}='\BRbookof Deuteronomy';
-$bookname{'Joshua'}='\BRbookof Joshua';
-$bookname{'Judges'}='\BRbookof Judges';
-$bookname{'Ruth'}='\BRbookof Ruth';
-$bookname{'ISamuel'}='\BRbooknumberstyleI \BRbookof Samuel';
-$bookname{'IISamuel'}='\BRbooknumberstyleII \BRbookof Samuel';
-$bookname{'IKings'}='\BRbooknumberstyleI \BRbookof Kings';
-$bookname{'IIKings'}='\BRbooknumberstyleII \BRbookof Kings';
-$bookname{'IChronicles'}='\BRbooknumberstyleI \BRbookof Chronicles';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII \BRbookof Chronicles';
-$bookname{'Ezra'}='\BRbookof Ezra';
-$bookname{'Nehemiah'}='\BRbookof Nehemiah';
-$bookname{'Tobit'}='\BRbookof Tobit';
-$bookname{'Judith'}='\BRbookof Judith';
-$bookname{'Esther'}='\BRbookof Esther';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI \BRbookof Maccabees';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII \BRbookof Maccabees';
-$bookname{'Job'}='\BRbookof Job';
-$bookname{'Psalms'}='\BRbookof Psalms';
-$bookname{'Proverbs'}='\BRbookof Proverbs';
-$bookname{'Ecclesiastes'}='\BRbookof Ecclesiastes';
-$bookname{'SongofSongs'}='\BRbookof Song of Songs';
-$bookname{'Wisdom'}='\BRbookof Wisdom';
-$bookname{'Ecclesiasticus'}='\BRbookof Ecclesiasticus';
-$bookname{'Isaiah'}='\BRbookof Isaiah';
-$bookname{'Jeremiah'}='\BRbookof Jeremiah';
-$bookname{'Lamentations'}='\BRbookof Lamentations';
-$bookname{'Baruch'}='\BRbookof Baruch';
-$bookname{'Ezekiel'}='\BRbookof Ezekiel';
-$bookname{'Daniel'}='\BRbookof Daniel';
-$bookname{'Hosea'}='\BRbookof Hosea';
-$bookname{'Joel'}='\BRbookof Joel';
-$bookname{'Amos'}='\BRbookof Amos';
-$bookname{'Obadiah'}='\BRbookof Obadiah';
-$bookname{'Jonah'}='\BRbookof Jonah';
-$bookname{'Micah'}='\BRbookof Micah';
-$bookname{'Nahum'}='\BRbookof Nahum';
-$bookname{'Habakkuk'}='\BRbookof Habakkuk';
-$bookname{'Zephaniah'}='\BRbookof Zephaniah';
-$bookname{'Haggai'}='\BRbookof Haggai';
-$bookname{'Zechariah'}='\BRbookof Zechariah';
-$bookname{'Malachi'}='\BRbookof Malachi';
-$bookname{'Matthew'}='\BRgospel Matthew';
-$bookname{'Mark'}='\BRgospel Mark';
-$bookname{'Luke'}='\BRgospel Luke';
-$bookname{'John'}='\BRgospel John';
-$bookname{'Acts'}='Acts';
-$bookname{'Romans'}='\BRepistletothe Romans';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI \BRepistletothe Corinthians';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII \BRepistletothe Corinthians';
-$bookname{'Galatians'}='\BRepistletothe Galatians';
-$bookname{'Ephesians'}='\BRepistletothe Ephesians';
-$bookname{'Philippians'}='\BRepistletothe Philippians';
-$bookname{'Colossians'}='\BRepistletothe Colossians';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI \BRepistletothe Thessalonians';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII \BRepistletothe Thessalonians';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI \BRepistleto Timothy';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII \BRepistletoTimothy';
-$bookname{'Titus'}='\BRepistleto Titus';
-$bookname{'Philemon'}='\BRepistleto Philemon';
-$bookname{'Hebrews'}='\BRepistletothe Hebrews';
-$bookname{'James'}='\BRepistleof James';
-$bookname{'IPeter'}='\BRepistlenumberstyleI \BRepistleof Peter';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII \BRepistleof Peter';
-$bookname{'IJohn'}='\BRepistlenumberstyleI \BRepistleof John';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII \BRepistleof John';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII \BRepistleof John';
-$bookname{'Jude'}='\BRepistleof Jude';
-$bookname{'Revelation'}='\BRbookof Revelation';
-$_;
-}
-
-sub do_cmd_brabbrvname{
-local($_)=@_;
-$bookname{'Gensis'}='Gn\BRperiod ';
-$bookname{'Exodus'}='Ex\BRperiod ';
-$bookname{'Leviticus'}='Lv\BRperiod ';
-$bookname{'Numbers'}='Nb\BRperiod ';
-$bookname{'Deuteronomy'}='Dt\BRperiod ';
-$bookname{'Joshua'}='Jos\BRperiod ';
-$bookname{'Judges'}='Jg\BRperiod ';
-$bookname{'Ruth'}='Rt\BRperiod ';
-$bookname{'ISamuel'}='\BRbooknumberstyleI S\BRperiod ';
-$bookname{'IISamuel'}='\BRbooknumberstyleII S\BRperiod ';
-$bookname{'IKings'}='\BRbooknumberstyleI K\BRperiod ';
-$bookname{'IIKings'}='\BRbooknumberstyleII K\BRperiod ';
-$bookname{'IChronicles'}='\BRbooknumberstyleI Ch\BRperiod ';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII Ch\BRperiod ';
-$bookname{'Ezra'}='Ezr\BRperiod ';
-$bookname{'Nehemiah'}='Ne\BRperiod ';
-$bookname{'Tobit'}='Tb\BRperiod ';
-$bookname{'Judith'}='Jdt\BRperiod ';
-$bookname{'Esther'}='Est\BRperiod ';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI M\BRperiod ';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII M\BRperiod ';
-$bookname{'Job'}='Jb\BRperiod ';
-$bookname{'Psalms'}='Ps\BRperiod ';
-$bookname{'Proverbs'}='Pr\BRperiod ';
-$bookname{'Ecclesiastes'}='Qo\BRperiod ';
-$bookname{'SongofSongs'}='Sg\BRperiod ';
-$bookname{'Wisdom'}='Ws\BRperiod ';
-$bookname{'Ecclesiasticus'}='Si\BRperiod ';
-$bookname{'Isaiah'}='Is\BRperiod ';
-$bookname{'Jeremiah'}='Jr\BRperiod ';
-$bookname{'Lamentations'}='Lm\BRperiod ';
-$bookname{'Baruch'}='Ba\BRperiod ';
-$bookname{'Ezekiel'}='Ezk\BRperiod ';
-$bookname{'Daniel'}='Dn\BRperiod ';
-$bookname{'Hosea'}='Ho\BRperiod ';
-$bookname{'Joel'}='Jl\BRperiod ';
-$bookname{'Amos'}='Am\BRperiod ';
-$bookname{'Obadiah'}='Ob\BRperiod ';
-$bookname{'Jonah'}='Jon\BRperiod ';
-$bookname{'Micah'}='Mi\BRperiod ';
-$bookname{'Nahum'}='Na\BRperiod ';
-$bookname{'Habakkuk'}='Hab\BRperiod ';
-$bookname{'Zephaniah'}='Zp\BRperiod ';
-$bookname{'Haggai'}='Hg\BRperiod ';
-$bookname{'Zechariah'}='Zc\BRperiod ';
-$bookname{'Malachi'}='Ml\BRperiod ';
-$bookname{'Matthew'}='Mt\BRperiod ';
-$bookname{'Mark'}='Mk\BRperiod ';
-$bookname{'Luke'}='Lk\BRperiod ';
-$bookname{'John'}='Jn\BRperiod ';
-$bookname{'Acts'}='Ac\BRperiod ';
-$bookname{'Romans'}='Rm\BRperiod ';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI Co\BRperiod ';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII Co\BRperiod ';
-$bookname{'Galatians'}='Ga\BRperiod ';
-$bookname{'Ephesians'}='Ep\BRperiod ';
-$bookname{'Philippians'}='Ph\BRperiod ';
-$bookname{'Colossians'}='Col\BRperiod ';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI Th\BRperiod ';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII Th\BRperiod ';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI Tm\BRperiod ';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII Tm\BRperiod ';
-$bookname{'Titus'}='Tt\BRperiod ';
-$bookname{'Philemon'}='Phm\BRperiod ';
-$bookname{'Hebrews'}='Heb\BRperiod ';
-$bookname{'James'}='Jm\BRperiod ';
-$bookname{'IPeter'}='\BRepistlenumberstyleI P\BRperiod ';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII P\BRperiod ';
-$bookname{'IJohn'}='\BRepistlenumberstyleI Jn\BRperiod ';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII Jn\BRperiod ';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII Jn\BRperiod ';
-$bookname{'Jude'}='Jude';
-$bookname{'Revelation'}='Rv\BRperiod ';
-$_;
-}
-
-sub do_cmd_braltabbrvname{
-local($_)=@_;
-$bookname{'Gensis'}='Gen\BRperiod ';
-$bookname{'Exodus'}='Exod\BRperiod ';
-$bookname{'Leviticus'}='Lev\BRperiod ';
-$bookname{'Numbers'}='Num\BRperiod ';
-$bookname{'Deuteronomy'}='Deut\BRperiod ';
-$bookname{'Joshua'}='Josh\BRperiod ';
-$bookname{'Judges'}='Judg\BRperiod ';
-$bookname{'Ruth'}='Ruth';
-$bookname{'ISamuel'}='\BRbooknumberstyleI Sam\BRperiod ';
-$bookname{'IISamuel'}='\BRbooknumberstyleII Sam\BRperiod ';
-$bookname{'IKings'}='\BRbooknumberstyleI Kgs\BRperiod ';
-$bookname{'IIKings'}='\BRbooknumberstyleII Kgs\BRperiod ';
-$bookname{'IChronicles'}='\BRbooknumberstyleI Chr\BRperiod ';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII Chr\BRperiod ';
-$bookname{'Ezra'}='Ezra';
-$bookname{'Nehemiah'}='Neh\BRperiod ';
-$bookname{'Tobit'}='Tobit';
-$bookname{'Judith'}='Judith';
-$bookname{'Esther'}='Esther';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI M\BRperiod ';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII M\BRperiod ';
-$bookname{'Job'}='Job';
-$bookname{'Psalms'}='Ps\BRperiod ';
-$bookname{'Proverbs'}='Prov\BRperiod ';
-$bookname{'Ecclesiastes'}='Eccles\BRperiod ';
-$bookname{'SongofSongs'}='S\BRperiod \ of S\BRperiod ';
-$bookname{'Wisdom'}='Wisd\BRperiod ';
-$bookname{'Ecclesiasticus'}='Ecclus\BRperiod ';
-$bookname{'Isaiah'}='Isa\BRperiod ';
-$bookname{'Jeremiah'}='Jer\BRperiod ';
-$bookname{'Lamentations'}='Lam\BRperiod ';
-$bookname{'Baruch'}='Baruch';
-$bookname{'Ezekiel'}='Ezek\BRperiod ';
-$bookname{'Daniel'}='Dan\BRperiod ';
-$bookname{'Hosea'}='Hos\BRperiod ';
-$bookname{'Joel'}='Joel';
-$bookname{'Amos'}='Amos';
-$bookname{'Obadiah'}='Obad';
-$bookname{'Jonah'}='Jonah';
-$bookname{'Micah'}='Mic\BRperiod ';
-$bookname{'Nahum'}='Nah\BRperiod ';
-$bookname{'Habakkuk'}='Hab\BRperiod ';
-$bookname{'Zephaniah'}='Zeph\BRperiod ';
-$bookname{'Haggai'}='Hag\BRperiod ';
-$bookname{'Zechariah'}='Zech\BRperiod ';
-$bookname{'Malachi'}='Mal\BRperiod ';
-$bookname{'Matthew'}='Matt\BRperiod ';
-$bookname{'Mark'}='Mark';
-$bookname{'Luke'}='Luke';
-$bookname{'John'}='John';
-$bookname{'Acts'}='Acts';
-$bookname{'Romans'}='Rom\BRperiod ';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI Cor\BRperiod ';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII Cor\BRperiod ';
-$bookname{'Galatians'}='Gal\BRperiod ';
-$bookname{'Ephesians'}='Eph\BRperiod ';
-$bookname{'Philippians'}='Phil\BRperiod ';
-$bookname{'Colossians'}='Col\BRperiod ';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI Thess\BRperiod ';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII Thess\BRperiod ';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI Tim\BRperiod ';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII Tim\BRperiod ';
-$bookname{'Titus'}='Tit\BRperiod ';
-$bookname{'Philemon'}='Philem\BRperiod ';
-$bookname{'Hebrews'}='Heb\BRperiod ';
-$bookname{'James'}='Jas\BRperiod ';
-$bookname{'IPeter'}='\BRepistlenumberstyleI Pet\BRperiod ';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII Pet\BRperiod ';
-$bookname{'IJohn'}='\BRepistlenumberstyleI John';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII John';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII John';
-$bookname{'Jude'}='Jude';
-$bookname{'Revelation'}='Rev\BRperiod ';
-$_;
-}
-
-sub brs_default{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ":" . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \';\' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_jerusalem{
- local($tmp)='';
- &do_cmd_brabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ":" . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_anglosaxon{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", &fRoman($num), $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", &fRoman($num), $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "." . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_JEH{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_MHRA{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' $num = &froman($num);';
- $tmp .= ' $num = &translate_commands("\\\\textsc${OP}$id${CP}$num${OP}$id${CP}");';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' $num = &froman($num);';
- $tmp .= ' $num = &translate_commands("\\\\textsc${OP}$id${CP}$num${OP}$id${CP}");';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_NTG{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ",", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_MLA{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_chicago{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ":", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_long{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' "\\Ordinalstringnum$OP$id$CP$num$OP$id$CP " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' "\\Ordinalstringnum$OP$id$CP$num$OP$id$CP " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Book of",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Gospel according to St",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle to",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle to the", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle of",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' join(" ", "chapter \\numberstring$OP$id$CP$num$OP$id$CP", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' join(" ", "chapter \\numberstring$OP$id$CP$num$OP$id$CP", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ", " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " verse " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \', \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " to " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ", " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub do_bibleref_default{
- &brs_default;
-}
-
-sub do_bibleref_jerusalem{
- &brs_jerusalem;
-}
-
-sub do_bibleref_anglosaxon{
- &brs_anglosaxon;
-}
-
-sub do_bibleref_JEH{
- &brs_JEH;
-}
-
-sub do_bibleref_MHRA{
- &brs_MHRA;
-}
-
-sub do_bibleref_NTG{
- &brs_NTG;
-}
-
-sub do_bibleref_MLA{
- &brs_MLA;
-}
-
-sub do_bibleref_chicago{
- &brs_chicago;
-}
-
-sub do_bibleref_text{
- &brs_chicago;
-}
-
-sub do_cmd_newbiblerefstyle{
- local($_)=@_;
- local($style,$cmds);
- $style = &missing_braces unless
- s/$next_pair_pr_rx/$style=$2;''/eo;
-
- &write_warnings("\n\\newbiblerefstyle not implemented");
-
- $_;
-}
-
-sub do_cmd_setbooktitle{
- local($_)=@_;
- local($name,$title);
-
- $name = &missing_braces unless
- s/$next_pair_pr_rx/$name=$2;''/eo;
- $title = &missing_braces unless
- s/$next_pair_pr_rx/$title=$2;''/eo;
-
- if (defined $bookname{$name})
- {
- $bookname{$name}=$title;
- }
- else
- {
- &write_warnings("\nUnknown book '$name'");
- }
-
- $_;
-}
-
-sub do_cmd_biblerefstyle{
- local($_)=@_;
- local($style);
- $style = &missing_braces unless
- s/$next_pair_pr_rx/$style=$2;''/eo;
-
- if (defined "&brs_$style")
- {
- eval("&brs_$style");
- }
- else
- {
- &write_warnings("\nUnknown biblerefstyle '$style'");
- }
- $_;
-}
-
-sub do_cmd_bibleverse{
- local($_)=@_;
- local($book,$id);
- local($bibleverse)='';
- $book = &missing_braces unless
- s/$next_pair_pr_rx/$book=$2;$id=$1;''/eo;
-
- if (defined $bookname{$book} or defined $synonym{$book})
- {
- $book = $synonym{$book} unless defined $bookname{$book};
-
- $book = $bookname{$book};
- $book = "\\BRbooktitlestyle$OP$id$CP$book$OP$id$CP";
- $bibleverse .= $book;
- $first=1;
-
- while (s/^(-?)\(([^:]*):([^\)]*)\)//)
- {
- if ($1 eq '-')
- {
- $bibleverse .= "\\BRvrsep ";
- }
- else
- {
- $bibleverse .= ($first ? "\\BRbkchsep " : "\\BRchsep ");
- }
- $first=0;
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRchapterstyle$OP$id$CP$2$OP$id$CP" if ($2);
- $verses = $3;
- if ($verses)
- {
- $bibleverse .= "\\BRchvsep ";
- @verses = split /,/, $verses;
-
- for (my $i = 0; $i <=$#verses; $i++)
- {
- $verse = $verses[$i];
-
- $bibleverse .= "\\BRvsep " if ($i > 0);
-
- if ($verse=~m/(\d+)-(\d+)/)
- {
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$1$OP$id$CP";
- $bibleverse .= "\\BRvrsep ";
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$2$OP$id$CP";
- }
- else
- {
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$verse$OP$id$CP";
- }
- }
- }
- }
-
- $bibleverse = &translate_commands($bibleverse);
- }
- else
- {
- &write_warnings("\nUnknown book '$book'");
- }
- join('', $bibleverse, $_);
-}
-
-1;