summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/bibleref/bibleref.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/bibleref/bibleref.perl')
-rw-r--r--Master/texmf-dist/source/latex/bibleref/bibleref.perl1738
1 files changed, 0 insertions, 1738 deletions
diff --git a/Master/texmf-dist/source/latex/bibleref/bibleref.perl b/Master/texmf-dist/source/latex/bibleref/bibleref.perl
deleted file mode 100644
index 8a7733f4750..00000000000
--- a/Master/texmf-dist/source/latex/bibleref/bibleref.perl
+++ /dev/null
@@ -1,1738 +0,0 @@
-#!/usr/bin/perl
-# File : bibleref.perl
-# Author : Nicola L.C. Talbot
-# http://theoval.cmp.uea.ac.uk/~nlct/
-# This is a LaTeX2HTML style implementing the bibleref package, and
-# is distributed as part of that package.
-# Copyright 2007 Nicola L.C. Talbot
-# This work may be distributed and/or modified under the
-# conditions of the LaTeX Project Public License, either version 1.3
-# of this license of (at your option) any later version.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-# and version 1.3 or later is part of all distributions of LaTeX
-# version 2005/12/01 or later.
-#
-# This work has the LPPL maintenance status `maintained'.
-#
-# The Current Maintainer of this work is Nicola Talbot.
-#
-# This work consists of the files bibleref.dtx and bibleref.ins
-# and the derived files bibleref.sty, sample.tex, bibleref.perl.
-
- %bookfullname=();
-
-$synonym{'Gn'}='Gensis';
-$synonym{'Ex'}='Exodus';
-$synonym{'Lv'}='Leviticus';
-$synonym{'Nb'}='Numbers';
-$synonym{'Dt'}='Deuteronomy';
-$synonym{'Jos'}='Joshua';
-$synonym{'Jg'}='Judges';
-$synonym{'Rt'}='Ruth';
-$synonym{'IS'}='ISamuel';
-$synonym{'IIS'}='IISamuel';
-$synonym{'IK'}='IKings';
-$synonym{'IIK'}='IIKings';
-$synonym{'ICh'}='IChronicles';
-$synonym{'IICh'}='IIChronicles';
-$synonym{'Ezr'}='Ezra';
-$synonym{'Ne'}='Nehemiah';
-$synonym{'Tb'}='Tobit';
-$synonym{'Jdt'}='Judith';
-$synonym{'Est'}='Esther';
-$synonym{'IM'}='IMaccabees';
-$synonym{'IIM'}='IIMaccabees';
-$synonym{'Jb'}='Job';
-$synonym{'Ps'}='Psalms';
-$synonym{'Pr'}='Proverbs';
-$synonym{'Qo'}='Ecclesiastes';
-$synonym{'Sg'}='SongofSongs';
-$synonym{'Ws'}='Wisdom';
-$synonym{'Si'}='Ecclesiasticus';
-$synonym{'Is'}='Isaiah';
-$synonym{'Jr'}='Jeremiah';
-$synonym{'Lm'}='Lamentations';
-$synonym{'Ba'}='Baruch';
-$synonym{'Ezk'}='Ezekiel';
-$synonym{'Dn'}='Daniel';
-$synonym{'Ho'}='Hosea';
-$synonym{'Jl'}='Joel';
-$synonym{'Am'}='Amos';
-$synonym{'Ob'}='Obadiah';
-$synonym{'Jon'}='Jonah';
-$synonym{'Mi'}='Micah';
-$synonym{'Na'}='Nahum';
-$synonym{'Hab'}='Habakkuk';
-$synonym{'Zp'}='Zephaniah';
-$synonym{'Hg'}='Haggai';
-$synonym{'Zc'}='Zechariah';
-$synonym{'Ml'}='Malachi';
-$synonym{'Mt'}='Matthew';
-$synonym{'Mk'}='Mark';
-$synonym{'Lk'}='Luke';
-$synonym{'Jn'}='John';
-$synonym{'Ac'}='Acts';
-$synonym{'Rm'}='Romans';
-$synonym{'ICo'}='ICorinthians';
-$synonym{'IICo'}='IICorinthians';
-$synonym{'Ga'}='Galatians';
-$synonym{'Ep'}='Ephesians';
-$synonym{'Ph'}='Philippians';
-$synonym{'Col'}='Colossians';
-$synonym{'ITh'}='IThessalonians';
-$synonym{'IITh'}='IIThessalonians';
-$synonym{'ITm'}='ITimothy';
-$synonym{'IITm'}='IITimothy';
-$synonym{'Tt'}='Titus';
-$synonym{'Phm'}='Philemon';
-$synonym{'Heb'}='Hebrews';
-$synonym{'Jm'}='James';
-$synonym{'IP'}='IPeter';
-$synonym{'IIP'}='IIPeter';
-$synonym{'IJn'}='IJohn';
-$synonym{'IIJn'}='IIJohn';
-$synonym{'IIIJn'}='IIIJohn';
-$synonym{'Rv'}='Revelation';
-$synonym{'Gen'}='Gensis';
-$synonym{'Exod'}='Exodus';
-$synonym{'Lev'}='Leviticus';
-$synonym{'Num'}='Numbers';
-$synonym{'Deut'}='Deuteronomy';
-$synonym{'Josh'}='Joshua';
-$synonym{'Judg'}='Judges';
-$synonym{'ISam'}='ISamuel';
-$synonym{'IISam'}='IISamuel';
-$synonym{'IKgs'}='IKings';
-$synonym{'IIKgs'}='IIKings';
-$synonym{'IChr'}='IChronicles';
-$synonym{'IIChr'}='IIChronicles';
-$synonym{'Neh'}='Nehemiah';
-$synonym{'IM'}='IMaccabees';
-$synonym{'IIM'}='IIMaccabees';
-$synonym{'Ps'}='Psalms';
-$synonym{'Prov'}='Proverbs';
-$synonym{'Eccles'}='Ecclesiastes';
-$synonym{'SofS'}='SongofSongs';
-$synonym{'Wisd'}='Wisdom';
-$synonym{'Ecclus'}='Ecclesiasticus';
-$synonym{'Isa'}='Isaiah';
-$synonym{'Jer'}='Jeremiah';
-$synonym{'Lam'}='Lamentations';
-$synonym{'Ezek'}='Ezekiel';
-$synonym{'Dan'}='Daniel';
-$synonym{'Hos'}='Hosea';
-$synonym{'Obad'}='Obadiah';
-$synonym{'Mic'}='Micah';
-$synonym{'Nah'}='Nahum';
-$synonym{'Hab'}='Habakkuk';
-$synonym{'Zeph'}='Zephaniah';
-$synonym{'Hag'}='Haggai';
-$synonym{'Zech'}='Zechariah';
-$synonym{'Mal'}='Malachi';
-$synonym{'Matt'}='Matthew';
-$synonym{'Rom'}='Romans';
-$synonym{'ICor'}='ICorinthians';
-$synonym{'IICor'}='IICorinthians';
-$synonym{'Gal'}='Galatians';
-$synonym{'Eph'}='Ephesians';
-$synonym{'Phil'}='Philippians';
-$synonym{'Col'}='Colossians';
-$synonym{'IThess'}='IThessalonians';
-$synonym{'IIThess'}='IIThessalonians';
-$synonym{'ITim'}='ITimothy';
-$synonym{'IITim'}='IITimothy';
-$synonym{'Tit'}='Titus';
-$synonym{'Philem'}='Philemon';
-$synonym{'Heb'}='Hebrews';
-$synonym{'Jas'}='James';
-$synonym{'IPet'}='IPeter';
-$synonym{'IIPet'}='IIPeter';
-$synonym{'IJohn'}='IJohn';
-$synonym{'IIJohn'}='IIJohn';
-$synonym{'IIIJohn'}='IIIJohn';
-$synonym{'Rev'}='Revelation';
-
-&do_cmd_brfullname;
-
-sub do_cmd_BRbooknumberstyle{
- local($_) = @_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- "$num " . $_;
-}
-
-sub do_cmd_BRepistlenumberstyle{
- local($_) = @_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- "$num " . $_;
-}
-
-sub do_cmd_BRbooknumberstyleI{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRbooknumberstyle$OP$id${CP}1$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRbooknumberstyleII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRbooknumberstyle$OP$id${CP}2$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleI{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}1$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}2$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRepistlenumberstyleIII{
- local($_)=@_;
- local($id)=++$global{'max_id'};
-
- join('',
- &translate_commands("\\BRepistlenumberstyle$OP$id${CP}3$OP$id$CP"),$_);
-}
-
-sub do_cmd_BRbookof{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRgospel{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistleto{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistletothe{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRepistleof{
- local($_)=@_;
-
- $_;
-}
-
-sub do_cmd_BRbooktitlestyle{
- local($_)=@_;
- local($title);
-
- $title = &missing_braces unless
- s/$next_pair_pr_rx/$title=$2;''/eo;
-
- $title . $_;
-}
-
-sub do_cmd_BRchapterstyle{
- local($_)=@_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- $num . $_;
-}
-
-sub do_cmd_BRversestyle{
- local($_)=@_;
- local($num);
-
- $num = &missing_braces unless
- s/$next_pair_pr_rx/$num=$2;''/eo;
-
- $num . $_;
-}
-
-sub do_cmd_BRbkchsep{
- local($_)=@_;
-
- " " . $_;
-}
-
-sub do_cmd_BRchvsep{
- local($_)=@_;
-
- ":" . $_;
-}
-
-sub do_cmd_BRchsep{
- local($_)=@_;
-
- ';' . $_;
-}
-
-sub do_cmd_BRvrsep{
- local($_)=@_;
-
- &translate_commands("--") . $_;
-}
-
-sub do_cmd_BRvsep{
- local($_)=@_;
-
- "," . $_;
-}
-
-sub do_cmd_BRperiod{
- local($_)=@_;
- $_;
-}
-
-sub do_cmd_brfullname{
-local($_) = @_;
-$bookname{'Genesis'}='\BRbookof Genesis';
-$bookname{'Exodus'}='\BRbookof Exodus';
-$bookname{'Leviticus'}='\BRbookof Leviticus';
-$bookname{'Numbers'}='\BRbookof Numbers';
-$bookname{'Deuteronomy'}='\BRbookof Deuteronomy';
-$bookname{'Joshua'}='\BRbookof Joshua';
-$bookname{'Judges'}='\BRbookof Judges';
-$bookname{'Ruth'}='\BRbookof Ruth';
-$bookname{'ISamuel'}='\BRbooknumberstyleI \BRbookof Samuel';
-$bookname{'IISamuel'}='\BRbooknumberstyleII \BRbookof Samuel';
-$bookname{'IKings'}='\BRbooknumberstyleI \BRbookof Kings';
-$bookname{'IIKings'}='\BRbooknumberstyleII \BRbookof Kings';
-$bookname{'IChronicles'}='\BRbooknumberstyleI \BRbookof Chronicles';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII \BRbookof Chronicles';
-$bookname{'Ezra'}='\BRbookof Ezra';
-$bookname{'Nehemiah'}='\BRbookof Nehemiah';
-$bookname{'Tobit'}='\BRbookof Tobit';
-$bookname{'Judith'}='\BRbookof Judith';
-$bookname{'Esther'}='\BRbookof Esther';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI \BRbookof Maccabees';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII \BRbookof Maccabees';
-$bookname{'Job'}='\BRbookof Job';
-$bookname{'Psalms'}='\BRbookof Psalms';
-$bookname{'Proverbs'}='\BRbookof Proverbs';
-$bookname{'Ecclesiastes'}='\BRbookof Ecclesiastes';
-$bookname{'SongofSongs'}='\BRbookof Song of Songs';
-$bookname{'Wisdom'}='\BRbookof Wisdom';
-$bookname{'Ecclesiasticus'}='\BRbookof Ecclesiasticus';
-$bookname{'Isaiah'}='\BRbookof Isaiah';
-$bookname{'Jeremiah'}='\BRbookof Jeremiah';
-$bookname{'Lamentations'}='\BRbookof Lamentations';
-$bookname{'Baruch'}='\BRbookof Baruch';
-$bookname{'Ezekiel'}='\BRbookof Ezekiel';
-$bookname{'Daniel'}='\BRbookof Daniel';
-$bookname{'Hosea'}='\BRbookof Hosea';
-$bookname{'Joel'}='\BRbookof Joel';
-$bookname{'Amos'}='\BRbookof Amos';
-$bookname{'Obadiah'}='\BRbookof Obadiah';
-$bookname{'Jonah'}='\BRbookof Jonah';
-$bookname{'Micah'}='\BRbookof Micah';
-$bookname{'Nahum'}='\BRbookof Nahum';
-$bookname{'Habakkuk'}='\BRbookof Habakkuk';
-$bookname{'Zephaniah'}='\BRbookof Zephaniah';
-$bookname{'Haggai'}='\BRbookof Haggai';
-$bookname{'Zechariah'}='\BRbookof Zechariah';
-$bookname{'Malachi'}='\BRbookof Malachi';
-$bookname{'Matthew'}='\BRgospel Matthew';
-$bookname{'Mark'}='\BRgospel Mark';
-$bookname{'Luke'}='\BRgospel Luke';
-$bookname{'John'}='\BRgospel John';
-$bookname{'Acts'}='Acts';
-$bookname{'Romans'}='\BRepistletothe Romans';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI \BRepistletothe Corinthians';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII \BRepistletothe Corinthians';
-$bookname{'Galatians'}='\BRepistletothe Galatians';
-$bookname{'Ephesians'}='\BRepistletothe Ephesians';
-$bookname{'Philippians'}='\BRepistletothe Philippians';
-$bookname{'Colossians'}='\BRepistletothe Colossians';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI \BRepistletothe Thessalonians';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII \BRepistletothe Thessalonians';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI \BRepistleto Timothy';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII \BRepistletoTimothy';
-$bookname{'Titus'}='\BRepistleto Titus';
-$bookname{'Philemon'}='\BRepistleto Philemon';
-$bookname{'Hebrews'}='\BRepistletothe Hebrews';
-$bookname{'James'}='\BRepistleof James';
-$bookname{'IPeter'}='\BRepistlenumberstyleI \BRepistleof Peter';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII \BRepistleof Peter';
-$bookname{'IJohn'}='\BRepistlenumberstyleI \BRepistleof John';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII \BRepistleof John';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII \BRepistleof John';
-$bookname{'Jude'}='\BRepistleof Jude';
-$bookname{'Revelation'}='\BRbookof Revelation';
-$_;
-}
-
-sub do_cmd_brabbrvname{
-local($_)=@_;
-$bookname{'Gensis'}='Gn\BRperiod ';
-$bookname{'Exodus'}='Ex\BRperiod ';
-$bookname{'Leviticus'}='Lv\BRperiod ';
-$bookname{'Numbers'}='Nb\BRperiod ';
-$bookname{'Deuteronomy'}='Dt\BRperiod ';
-$bookname{'Joshua'}='Jos\BRperiod ';
-$bookname{'Judges'}='Jg\BRperiod ';
-$bookname{'Ruth'}='Rt\BRperiod ';
-$bookname{'ISamuel'}='\BRbooknumberstyleI S\BRperiod ';
-$bookname{'IISamuel'}='\BRbooknumberstyleII S\BRperiod ';
-$bookname{'IKings'}='\BRbooknumberstyleI K\BRperiod ';
-$bookname{'IIKings'}='\BRbooknumberstyleII K\BRperiod ';
-$bookname{'IChronicles'}='\BRbooknumberstyleI Ch\BRperiod ';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII Ch\BRperiod ';
-$bookname{'Ezra'}='Ezr\BRperiod ';
-$bookname{'Nehemiah'}='Ne\BRperiod ';
-$bookname{'Tobit'}='Tb\BRperiod ';
-$bookname{'Judith'}='Jdt\BRperiod ';
-$bookname{'Esther'}='Est\BRperiod ';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI M\BRperiod ';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII M\BRperiod ';
-$bookname{'Job'}='Jb\BRperiod ';
-$bookname{'Psalms'}='Ps\BRperiod ';
-$bookname{'Proverbs'}='Pr\BRperiod ';
-$bookname{'Ecclesiastes'}='Qo\BRperiod ';
-$bookname{'SongofSongs'}='Sg\BRperiod ';
-$bookname{'Wisdom'}='Ws\BRperiod ';
-$bookname{'Ecclesiasticus'}='Si\BRperiod ';
-$bookname{'Isaiah'}='Is\BRperiod ';
-$bookname{'Jeremiah'}='Jr\BRperiod ';
-$bookname{'Lamentations'}='Lm\BRperiod ';
-$bookname{'Baruch'}='Ba\BRperiod ';
-$bookname{'Ezekiel'}='Ezk\BRperiod ';
-$bookname{'Daniel'}='Dn\BRperiod ';
-$bookname{'Hosea'}='Ho\BRperiod ';
-$bookname{'Joel'}='Jl\BRperiod ';
-$bookname{'Amos'}='Am\BRperiod ';
-$bookname{'Obadiah'}='Ob\BRperiod ';
-$bookname{'Jonah'}='Jon\BRperiod ';
-$bookname{'Micah'}='Mi\BRperiod ';
-$bookname{'Nahum'}='Na\BRperiod ';
-$bookname{'Habakkuk'}='Hab\BRperiod ';
-$bookname{'Zephaniah'}='Zp\BRperiod ';
-$bookname{'Haggai'}='Hg\BRperiod ';
-$bookname{'Zechariah'}='Zc\BRperiod ';
-$bookname{'Malachi'}='Ml\BRperiod ';
-$bookname{'Matthew'}='Mt\BRperiod ';
-$bookname{'Mark'}='Mk\BRperiod ';
-$bookname{'Luke'}='Lk\BRperiod ';
-$bookname{'John'}='Jn\BRperiod ';
-$bookname{'Acts'}='Ac\BRperiod ';
-$bookname{'Romans'}='Rm\BRperiod ';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI Co\BRperiod ';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII Co\BRperiod ';
-$bookname{'Galatians'}='Ga\BRperiod ';
-$bookname{'Ephesians'}='Ep\BRperiod ';
-$bookname{'Philippians'}='Ph\BRperiod ';
-$bookname{'Colossians'}='Col\BRperiod ';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI Th\BRperiod ';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII Th\BRperiod ';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI Tm\BRperiod ';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII Tm\BRperiod ';
-$bookname{'Titus'}='Tt\BRperiod ';
-$bookname{'Philemon'}='Phm\BRperiod ';
-$bookname{'Hebrews'}='Heb\BRperiod ';
-$bookname{'James'}='Jm\BRperiod ';
-$bookname{'IPeter'}='\BRepistlenumberstyleI P\BRperiod ';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII P\BRperiod ';
-$bookname{'IJohn'}='\BRepistlenumberstyleI Jn\BRperiod ';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII Jn\BRperiod ';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII Jn\BRperiod ';
-$bookname{'Jude'}='Jude';
-$bookname{'Revelation'}='Rv\BRperiod ';
-$_;
-}
-
-sub do_cmd_braltabbrvname{
-local($_)=@_;
-$bookname{'Gensis'}='Gen\BRperiod ';
-$bookname{'Exodus'}='Exod\BRperiod ';
-$bookname{'Leviticus'}='Lev\BRperiod ';
-$bookname{'Numbers'}='Num\BRperiod ';
-$bookname{'Deuteronomy'}='Deut\BRperiod ';
-$bookname{'Joshua'}='Josh\BRperiod ';
-$bookname{'Judges'}='Judg\BRperiod ';
-$bookname{'Ruth'}='Ruth';
-$bookname{'ISamuel'}='\BRbooknumberstyleI Sam\BRperiod ';
-$bookname{'IISamuel'}='\BRbooknumberstyleII Sam\BRperiod ';
-$bookname{'IKings'}='\BRbooknumberstyleI Kgs\BRperiod ';
-$bookname{'IIKings'}='\BRbooknumberstyleII Kgs\BRperiod ';
-$bookname{'IChronicles'}='\BRbooknumberstyleI Chr\BRperiod ';
-$bookname{'IIChronicles'}='\BRbooknumberstyleII Chr\BRperiod ';
-$bookname{'Ezra'}='Ezra';
-$bookname{'Nehemiah'}='Neh\BRperiod ';
-$bookname{'Tobit'}='Tobit';
-$bookname{'Judith'}='Judith';
-$bookname{'Esther'}='Esther';
-$bookname{'IMaccabees'}='\BRbooknumberstyleI M\BRperiod ';
-$bookname{'IIMaccabees'}='\BRbooknumberstyleII M\BRperiod ';
-$bookname{'Job'}='Job';
-$bookname{'Psalms'}='Ps\BRperiod ';
-$bookname{'Proverbs'}='Prov\BRperiod ';
-$bookname{'Ecclesiastes'}='Eccles\BRperiod ';
-$bookname{'SongofSongs'}='S\BRperiod \ of S\BRperiod ';
-$bookname{'Wisdom'}='Wisd\BRperiod ';
-$bookname{'Ecclesiasticus'}='Ecclus\BRperiod ';
-$bookname{'Isaiah'}='Isa\BRperiod ';
-$bookname{'Jeremiah'}='Jer\BRperiod ';
-$bookname{'Lamentations'}='Lam\BRperiod ';
-$bookname{'Baruch'}='Baruch';
-$bookname{'Ezekiel'}='Ezek\BRperiod ';
-$bookname{'Daniel'}='Dan\BRperiod ';
-$bookname{'Hosea'}='Hos\BRperiod ';
-$bookname{'Joel'}='Joel';
-$bookname{'Amos'}='Amos';
-$bookname{'Obadiah'}='Obad';
-$bookname{'Jonah'}='Jonah';
-$bookname{'Micah'}='Mic\BRperiod ';
-$bookname{'Nahum'}='Nah\BRperiod ';
-$bookname{'Habakkuk'}='Hab\BRperiod ';
-$bookname{'Zephaniah'}='Zeph\BRperiod ';
-$bookname{'Haggai'}='Hag\BRperiod ';
-$bookname{'Zechariah'}='Zech\BRperiod ';
-$bookname{'Malachi'}='Mal\BRperiod ';
-$bookname{'Matthew'}='Matt\BRperiod ';
-$bookname{'Mark'}='Mark';
-$bookname{'Luke'}='Luke';
-$bookname{'John'}='John';
-$bookname{'Acts'}='Acts';
-$bookname{'Romans'}='Rom\BRperiod ';
-$bookname{'ICorinthians'}='\BRepistlenumberstyleI Cor\BRperiod ';
-$bookname{'IICorinthians'}='\BRepistlenumberstyleII Cor\BRperiod ';
-$bookname{'Galatians'}='Gal\BRperiod ';
-$bookname{'Ephesians'}='Eph\BRperiod ';
-$bookname{'Philippians'}='Phil\BRperiod ';
-$bookname{'Colossians'}='Col\BRperiod ';
-$bookname{'IThessalonians'}='\BRepistlenumberstyleI Thess\BRperiod ';
-$bookname{'IIThessalonians'}='\BRepistlenumberstyleII Thess\BRperiod ';
-$bookname{'ITimothy'}='\BRepistlenumberstyleI Tim\BRperiod ';
-$bookname{'IITimothy'}='\BRepistlenumberstyleII Tim\BRperiod ';
-$bookname{'Titus'}='Tit\BRperiod ';
-$bookname{'Philemon'}='Philem\BRperiod ';
-$bookname{'Hebrews'}='Heb\BRperiod ';
-$bookname{'James'}='Jas\BRperiod ';
-$bookname{'IPeter'}='\BRepistlenumberstyleI Pet\BRperiod ';
-$bookname{'IIPeter'}='\BRepistlenumberstyleII Pet\BRperiod ';
-$bookname{'IJohn'}='\BRepistlenumberstyleI John';
-$bookname{'IIJohn'}='\BRepistlenumberstyleII John';
-$bookname{'IIIJohn'}='\BRepistlenumberstyleIII John';
-$bookname{'Jude'}='Jude';
-$bookname{'Revelation'}='Rev\BRperiod ';
-$_;
-}
-
-sub brs_default{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ":" . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \';\' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_jerusalem{
- local($tmp)='';
- &do_cmd_brabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' "$num " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ":" . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_anglosaxon{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", &fRoman($num), $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", &fRoman($num), $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "." . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_JEH{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \'; \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_MHRA{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' $num = &froman($num);';
- $tmp .= ' $num = &translate_commands("\\\\textsc${OP}$id${CP}$num${OP}$id${CP}");';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' $num = &froman($num);';
- $tmp .= ' $num = &translate_commands("\\\\textsc${OP}$id${CP}$num${OP}$id${CP}");';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_NTG{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ",", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub brs_MLA{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ".", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_chicago{
- local($tmp)='';
- &do_cmd_braltabbrvname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' join(" ", $num, $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' &froman($num) . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;\'\'/eo;';
- $tmp .= ' $num . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join("", ":", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "; " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' &translate_commands("--") . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' "," . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ".$_";';
- $tmp .= '}';
-}
-
-sub brs_long{
- local($tmp)='';
- &do_cmd_brfullname;
-
- $tmp .= 'sub do_cmd_BRbooknumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' "\\Ordinalstringnum$OP$id$CP$num$OP$id$CP " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistlenumberstyle{';
- $tmp .= ' local($_) = @_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' "\\Ordinalstringnum$OP$id$CP$num$OP$id$CP " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbookof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Book of",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRgospel{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Gospel according to St",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleto{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle to",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistletothe{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle to the", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRepistleof{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' join(" ", "Epistle of",$_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbooktitlestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($title);';
- $tmp .= ' $title = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$title=$2;\'\'/eo;';
- $tmp .= ' $title . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchapterstyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' join(" ", "chapter \\numberstring$OP$id$CP$num$OP$id$CP", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRversestyle{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' local($num,$id);';
- $tmp .= ' $num = &missing_braces unless';
- $tmp .= ' s/$next_pair_pr_rx/$num=$2;$id=$1;\'\'/eo;';
- $tmp .= ' join(" ", "chapter \\numberstring$OP$id$CP$num$OP$id$CP", $_);';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRbkchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ", " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " verse " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRchsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' \', \' . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvrsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' " to " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRvsep{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' ", " . $_;';
- $tmp .= '}';
- eval($tmp);
- $tmp='';
- $tmp .= 'sub do_cmd_BRperiod{';
- $tmp .= ' local($_)=@_;';
- $tmp .= ' $_;';
- $tmp .= '}';
-}
-
-sub do_bibleref_default{
- &brs_default;
-}
-
-sub do_bibleref_jerusalem{
- &brs_jerusalem;
-}
-
-sub do_bibleref_anglosaxon{
- &brs_anglosaxon;
-}
-
-sub do_bibleref_JEH{
- &brs_JEH;
-}
-
-sub do_bibleref_MHRA{
- &brs_MHRA;
-}
-
-sub do_bibleref_NTG{
- &brs_NTG;
-}
-
-sub do_bibleref_MLA{
- &brs_MLA;
-}
-
-sub do_bibleref_chicago{
- &brs_chicago;
-}
-
-sub do_bibleref_text{
- &brs_chicago;
-}
-
-sub do_cmd_newbiblerefstyle{
- local($_)=@_;
- local($style,$cmds);
- $style = &missing_braces unless
- s/$next_pair_pr_rx/$style=$2;''/eo;
-
- &write_warnings("\n\\newbiblerefstyle not implemented");
-
- $_;
-}
-
-sub do_cmd_setbooktitle{
- local($_)=@_;
- local($name,$title);
-
- $name = &missing_braces unless
- s/$next_pair_pr_rx/$name=$2;''/eo;
- $title = &missing_braces unless
- s/$next_pair_pr_rx/$title=$2;''/eo;
-
- if (defined $bookname{$name})
- {
- $bookname{$name}=$title;
- }
- else
- {
- &write_warnings("\nUnknown book '$name'");
- }
-
- $_;
-}
-
-sub do_cmd_biblerefstyle{
- local($_)=@_;
- local($style);
- $style = &missing_braces unless
- s/$next_pair_pr_rx/$style=$2;''/eo;
-
- if (defined "&brs_$style")
- {
- eval("&brs_$style");
- }
- else
- {
- &write_warnings("\nUnknown biblerefstyle '$style'");
- }
- $_;
-}
-
-sub do_cmd_bibleverse{
- local($_)=@_;
- local($book,$id);
- local($bibleverse)='';
- $book = &missing_braces unless
- s/$next_pair_pr_rx/$book=$2;$id=$1;''/eo;
-
- if (defined $bookname{$book} or defined $synonym{$book})
- {
- $book = $synonym{$book} unless defined $bookname{$book};
-
- $book = $bookname{$book};
- $book = "\\BRbooktitlestyle$OP$id$CP$book$OP$id$CP";
- $bibleverse .= $book;
- $first=1;
-
- while (s/^(-?)\(([^:]*):([^\)]*)\)//)
- {
- if ($1 eq '-')
- {
- $bibleverse .= "\\BRvrsep ";
- }
- else
- {
- $bibleverse .= ($first ? "\\BRbkchsep " : "\\BRchsep ");
- }
- $first=0;
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRchapterstyle$OP$id$CP$2$OP$id$CP" if ($2);
- $verses = $3;
- if ($verses)
- {
- $bibleverse .= "\\BRchvsep ";
- @verses = split /,/, $verses;
-
- for (my $i = 0; $i <=$#verses; $i++)
- {
- $verse = $verses[$i];
-
- $bibleverse .= "\\BRvsep " if ($i > 0);
-
- if ($verse=~m/(\d+)-(\d+)/)
- {
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$1$OP$id$CP";
- $bibleverse .= "\\BRvrsep ";
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$2$OP$id$CP";
- }
- else
- {
- $id = ++$global{'max_id'};
- $bibleverse .= "\\BRversestyle$OP$id$CP$verse$OP$id$CP";
- }
- }
- }
- }
-
- $bibleverse = &translate_commands($bibleverse);
- }
- else
- {
- &write_warnings("\nUnknown book '$book'");
- }
- join('', $bibleverse, $_);
-}
-
-1;
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-07 20:47:03 +0000