From b6c87e2dcdf4faa05d19f77556f198d10324bc67 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 6 Feb 2010 23:33:57 +0000 Subject: bibleref 1.08 (6feb10) git-svn-id: svn://tug.org/texlive/trunk@16925 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/bibleref/README | 4 +- .../doc/latex/bibleref/bibleref-manual.html | 28 +- Master/texmf-dist/doc/latex/bibleref/bibleref.pdf | Bin 109982 -> 107336 bytes Master/texmf-dist/doc/latex/bibleref/bibleref.perl | 1738 -------------------- Master/texmf-dist/doc/latex/bibleref/sample.pdf | Bin 64068 -> 61794 bytes Master/texmf-dist/doc/latex/bibleref/sample.tex | 2 +- .../texmf-dist/source/latex/bibleref/bibleref.dtx | 17 +- .../texmf-dist/source/latex/bibleref/bibleref.ins | 4 +- .../texmf-dist/source/latex/bibleref/bibleref.perl | 1738 ++++++++++++++++++++ Master/texmf-dist/tex/latex/bibleref/bibleref.sty | 6 +- 10 files changed, 1769 insertions(+), 1768 deletions(-) delete mode 100644 Master/texmf-dist/doc/latex/bibleref/bibleref.perl create mode 100644 Master/texmf-dist/source/latex/bibleref/bibleref.perl (limited to 'Master') diff --git a/Master/texmf-dist/doc/latex/bibleref/README b/Master/texmf-dist/doc/latex/bibleref/README index 724ebc2f068..7af2ae7633d 100644 --- a/Master/texmf-dist/doc/latex/bibleref/README +++ b/Master/texmf-dist/doc/latex/bibleref/README @@ -1,6 +1,6 @@ -LaTeX Class File : bibleref v 1.07 +LaTeX Class File : bibleref v 1.08 -Last Modified : 19 Aug 2007 +Last Modified : 6 Feb 2010 Author : Nicola Talbot diff --git a/Master/texmf-dist/doc/latex/bibleref/bibleref-manual.html b/Master/texmf-dist/doc/latex/bibleref/bibleref-manual.html index 1d1faa3a794..3f51b8a0759 100644 --- a/Master/texmf-dist/doc/latex/bibleref/bibleref-manual.html +++ b/Master/texmf-dist/doc/latex/bibleref/bibleref-manual.html @@ -7,9 +7,9 @@ original version by: Nikos Drakos, CBLU, University of Leeds Jens Lippmann, Marek Rouchal, Martin Wilck and others --> -bibleref.sty v1.07: a LATEX2e package for typesetting bible references - - +bibleref.sty v1.08: a LATEX2e package for typesetting bible references + + @@ -22,7 +22,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds -

bibleref.sty v1.07: a LATEX2e package for +

bibleref.sty v1.08: a LATEX2e package for typesetting bible references

Nicola Talbot
@@ -36,7 +36,7 @@ Norwich. Norfolk. NR4 7TJ. United Kingdom
http://theoval.cmp.uea.ac.uk/~nlct/

-

20 Aug 2007

+

6 Feb 2010


@@ -46,13 +46,13 @@ Contents

@@ -137,7 +137,7 @@ package option or as the argument to the command

\biblerefstyle{style}

-Styles are listed in Table 1. +Styles are listed in Table 1.


@@ -263,10 +263,10 @@ especially from Jesse Billett, Brooks Moses and Ulrich M. Sc



-Nicola L. C. Talbot. -School of Computing Sciences. -University of East Anglia. -Last Modified: 2007-08-20 +Nicola L. C. Talbot. +School of Computing Sciences. +University of East Anglia. +Last Modified: 2010-02-06
diff --git a/Master/texmf-dist/doc/latex/bibleref/bibleref.pdf b/Master/texmf-dist/doc/latex/bibleref/bibleref.pdf index 87a29fb922b..888b1fb7b35 100644 Binary files a/Master/texmf-dist/doc/latex/bibleref/bibleref.pdf and b/Master/texmf-dist/doc/latex/bibleref/bibleref.pdf differ diff --git a/Master/texmf-dist/doc/latex/bibleref/bibleref.perl b/Master/texmf-dist/doc/latex/bibleref/bibleref.perl deleted file mode 100644 index 7ef2f19d27e..00000000000 --- a/Master/texmf-dist/doc/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{'Jeramiah'}='\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; diff --git a/Master/texmf-dist/doc/latex/bibleref/sample.pdf b/Master/texmf-dist/doc/latex/bibleref/sample.pdf index e547872fc2e..0ebf28cafb7 100644 Binary files a/Master/texmf-dist/doc/latex/bibleref/sample.pdf and b/Master/texmf-dist/doc/latex/bibleref/sample.pdf differ diff --git a/Master/texmf-dist/doc/latex/bibleref/sample.tex b/Master/texmf-dist/doc/latex/bibleref/sample.tex index 9d6f4e28cd2..df3925508c1 100644 --- a/Master/texmf-dist/doc/latex/bibleref/sample.tex +++ b/Master/texmf-dist/doc/latex/bibleref/sample.tex @@ -7,7 +7,7 @@ %% bibleref.dtx (with options: `sample.tex,package') %% %% bibleref.dtx -%% Copyright 2007 Nicola Talbot +%% Copyright 2010 Nicola Talbot %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either version 1.3 diff --git a/Master/texmf-dist/source/latex/bibleref/bibleref.dtx b/Master/texmf-dist/source/latex/bibleref/bibleref.dtx index 2c701c28b2b..8dc3359c8c9 100644 --- a/Master/texmf-dist/source/latex/bibleref/bibleref.dtx +++ b/Master/texmf-dist/source/latex/bibleref/bibleref.dtx @@ -8,11 +8,11 @@ % -src "(.+)\.(sty)=>\1.\2" % -src "(.+)\.(tex)=>\1.\2" % -src "bibleref.perl=>bibleref.perl" -% -doc "manual.tex" +% -doc "bibleref-manual.tex" % -author "Nicola Talbot" % -dir "source" % bibleref -% Created on 2007/8/20 13:29 +% Created on 2010/2/6 14:11 %\fi %\iffalse %<*package> @@ -35,7 +35,7 @@ %\fi % \iffalse % Doc-Source file to use with LaTeX2e -% Copyright (C) 2007 Nicola Talbot, all rights reserved. +% Copyright (C) 2010 Nicola Talbot, all rights reserved. % \fi % \iffalse %<*driver> @@ -88,7 +88,7 @@ \end{document} % %\fi -%\title{bibleref.sty v1.07: a \LaTeXe\ package for +%\title{bibleref.sty v1.08: a \LaTeXe\ package for %typesetting bible references} %\author{Nicola Talbot\\[10pt] %School of Computing Sciences\\ @@ -96,7 +96,7 @@ %Norwich. Norfolk. NR4 7TJ.\\ %United Kingdom\\ %\url{http://theoval.cmp.uea.ac.uk/~nlct/}} -%\date{20 Aug 2007} +%\date{6 Feb 2010} %\maketitle %\tableofcontents % @@ -251,7 +251,7 @@ % Declare package % \begin{macrocode} \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{bibleref}[2007/08/20 1.07 (NLCT)] +\ProvidesPackage{bibleref}[2010/02/06 1.08 (NLCT)] % \end{macrocode} % Need to do some conditional stuff % \begin{macrocode} @@ -378,6 +378,7 @@ % %\begin{macro}{\brfullname} % This will switch to using the full book title. +%\changes{1.08}{2008/05/12}{fixed error in spelling of \cs{br@Jeremiah}} % \begin{macrocode} \newcommand*{\brfullname}{% \def\br@Genesis{\BRbookof Genesis}% @@ -409,7 +410,7 @@ \def\br@Wisdom{\BRbookof Wisdom}% \def\br@Ecclesiasticus{\BRbookof Ecclesiasticus}% \def\br@Isaiah{\BRbookof Isaiah}% -\def\br@Jeramiah{\BRbookof Jeremiah}% +\def\br@Jeremiah{\BRbookof Jeremiah}% \def\br@Lamentations{\BRbookof Lamentations}% \def\br@Baruch{\BRbookof Baruch}% \def\br@Ezekiel{\BRbookof Ezekiel}% @@ -1799,7 +1800,7 @@ $bookname{'SongofSongs'}='\BRbookof Song of Songs'; $bookname{'Wisdom'}='\BRbookof Wisdom'; $bookname{'Ecclesiasticus'}='\BRbookof Ecclesiasticus'; $bookname{'Isaiah'}='\BRbookof Isaiah'; -$bookname{'Jeramiah'}='\BRbookof Jeremiah'; +$bookname{'Jeremiah'}='\BRbookof Jeremiah'; $bookname{'Lamentations'}='\BRbookof Lamentations'; $bookname{'Baruch'}='\BRbookof Baruch'; $bookname{'Ezekiel'}='\BRbookof Ezekiel'; diff --git a/Master/texmf-dist/source/latex/bibleref/bibleref.ins b/Master/texmf-dist/source/latex/bibleref/bibleref.ins index cbc20ed7895..82224879641 100644 --- a/Master/texmf-dist/source/latex/bibleref/bibleref.ins +++ b/Master/texmf-dist/source/latex/bibleref/bibleref.ins @@ -1,10 +1,10 @@ -% bibleref.ins generated using makedtx version 0.94b 2007/8/20 13:29 +% bibleref.ins generated using makedtx version 0.94b 2010/2/6 14:11 \input docstrip \preamble bibleref.dtx - Copyright 2007 Nicola Talbot + Copyright 2010 Nicola Talbot This work may be distributed and/or modified under the conditions of the LaTeX Project Public License, either version 1.3 diff --git a/Master/texmf-dist/source/latex/bibleref/bibleref.perl b/Master/texmf-dist/source/latex/bibleref/bibleref.perl new file mode 100644 index 00000000000..8a7733f4750 --- /dev/null +++ b/Master/texmf-dist/source/latex/bibleref/bibleref.perl @@ -0,0 +1,1738 @@ +#!/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; diff --git a/Master/texmf-dist/tex/latex/bibleref/bibleref.sty b/Master/texmf-dist/tex/latex/bibleref/bibleref.sty index b76371282e3..47e0a6960a8 100644 --- a/Master/texmf-dist/tex/latex/bibleref/bibleref.sty +++ b/Master/texmf-dist/tex/latex/bibleref/bibleref.sty @@ -7,7 +7,7 @@ %% bibleref.dtx (with options: `bibleref.sty,package') %% %% bibleref.dtx -%% Copyright 2007 Nicola Talbot +%% Copyright 2010 Nicola Talbot %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either version 1.3 @@ -39,7 +39,7 @@ %% Grave accent \` Left brace \{ Vertical bar \| %% Right brace \} Tilde \~} \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{bibleref}[2007/08/20 1.07 (NLCT)] +\ProvidesPackage{bibleref}[2010/02/06 1.08 (NLCT)] \RequirePackage{ifthen} \RequirePackage{fmtcount} \newcommand*{\BRbooknumberstyle}[1]{#1 } @@ -88,7 +88,7 @@ \def\br@Wisdom{\BRbookof Wisdom}% \def\br@Ecclesiasticus{\BRbookof Ecclesiasticus}% \def\br@Isaiah{\BRbookof Isaiah}% -\def\br@Jeramiah{\BRbookof Jeremiah}% +\def\br@Jeremiah{\BRbookof Jeremiah}% \def\br@Lamentations{\BRbookof Lamentations}% \def\br@Baruch{\BRbookof Baruch}% \def\br@Ezekiel{\BRbookof Ezekiel}% -- cgit v1.2.3