diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/bibleref')
| -rw-r--r-- | Master/texmf-dist/source/latex/bibleref/bibleref.dtx | 1890 | ||||
| -rw-r--r-- | Master/texmf-dist/source/latex/bibleref/bibleref.ins | 7 | ||||
| -rw-r--r-- | Master/texmf-dist/source/latex/bibleref/bibleref.perl | 1738 |
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; |