diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/bibleref/bibleref.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/bibleref/bibleref.perl | 1738 |
1 files changed, 1738 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/bibleref/bibleref.perl b/Master/texmf-dist/doc/latex/bibleref/bibleref.perl new file mode 100644 index 00000000000..7ef2f19d27e --- /dev/null +++ b/Master/texmf-dist/doc/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{'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; |