#package Aquinas;

#use Storable;
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw($indexfile %books);  # symbols to export on request
 
our $indexfile = "./aquinasindex.storable";

# Theese are the Books we're looking for. Each books have a list of alternative spellings
our %books = (
"1 Chronicles" => ["1. Paralip", "1 Paralip"],
"1 Corinthians" => ["I Cor"],
"1 Esdras" => ["1 Esdr", "1 Esdrae", "1 Esd", "Esdr"],
"2 Esdras" => ["2 Esdr", "2 Esdrae", "2 Esd"],
"3 Esdras" => ["3 Esdr", "3 Esdrae", "3 Esd"],
"1 John" => ["I Ioan", "1 Joan", "I Ioannis", "I Io"],
"1 Kings" => ["3. Reg",  "3. Regum", "3. Regi"],
"1 Maccabees" => ["1. Machab"],
"1 Peter" => ["I Pet", "1 Pet"],
"1 Samuel" => ["1. Reg", "1. Regum",],
"1 Thessalonians" => ["I Thess", "1 Thess", "I ad Thessal"],
"1 Timothy" => ["1 Timoth", "I ad Tim", "I Tim"],
"2 Chronicles" => ["2. Paralip", "Paralip", "2. Paral"],
"2 Corinthians" => ["2 Cor"],
"2 Esdras" => ["2 Esdr"],
"2 John" => ["II canonica Iohannis", "II Io"],
"2 Kings" => ["4. Reg", "4. Reg", "4. Regum", "4. Regi"],
"2 Maccabees" => ["2. Machab"],
"2 Peter" => ["II Pet", "2 Pet"],
"2 Samuel" => ["2. Reg",  "2. Regum",],
"2 Thessalonians" => ["2 Thess", "II ad Thess", "II ad Thessal"],
"2 Timothy" => ["2 Timoth", "II ad Tim", "II Tim"],
"3 Esdras" => ["3 Esdr"],
"3 John" => ["III Io"],
"Acts" => ["Act"],
"Amos" => ["Amos"],
"Apocalypse" => ["Apocalypse", "Apoc", "Apocal", "Apocalyp"],
"Baruch" => ["Baruch"],
"Canticle of Canticles" => ["Cant", "Cantic"],
"Colossians" => ["Col"],
"Daniel" => ["Dan"],
"Deuteronomy" => ["Deuter", "Deuteron", "Deut", "Deuteronomii"],
"Ecclesiastes" => ["Ecclesiast", "Eccl", "Eccles", "Eccle"],
"Ecclesiasticus" => ["Eccl", "Eccle", "Eccli"],
"Ephesians" => ["Ephes"],
"Esther" => ["Hester"],
"Exodus" => ["Exod", "Ex", "Exo", "Exodo", "Exodi"],
"Ezechiel" => ["Ezech"],
"Galatians" => ["Gal", "Galat"],
"Genesis" => ["Gen", "Genes"],
"Habakkuk" => ["Abacuc", "Habac", "Habacuc"],
"Hebrews" => ["Hebr", "Heb"],
"Hosea" => ["Oseae", "Osee"],
"Isaiah" => ["Isai", "Isa", "Is"],
"James" => ["Iac", "Jac"],
"Jeremiah" => ["Jerem", "Ierem", "Hier", "Ier", "Hierem", "Hieremiae"],
"Job" => ["Iob", "Job"],
"Joel" => ["Joelis", "Joel"],
"John" => ["Joan", "Ioan", "Io"],
"Jonah" => ["Jon", "Jonae"],
"Joshua" => ["Josue", "Jos", "Iosue", "Ios"],
"Jude" => ["Iud", "Iudas in sua canonica"],
"Judges" => ["Judic", "Judicum", "Iudic", "Iudicum"],
"Judith" => ["Judith", "Iudith"],
"Lamentations" => ["Thren"],
"Leviticus" => ["Levit", "Levitici", "Lev"],
"Luke" => ["Luc"],
"Malachi" => ["Malach"],
"Mark" => ["Marci", "Marcus", "Marc", "Mc"],
"Matthew" => ["Mat", "Matth", "Matthew"],
"Micah" => ["Mich", "Michaeae"],
"Nahum" => ["Nahum"],
"Nehemiah" => ["Neh"],
"Numbers" => ["Num", "Numer"],
"Philemon" => ["Philem"],
"Philippians" => ["Phil", "Philipp"],
"Proverbs" => ["Proverb", "Prover", "Prov"],
"Psalms" => ["Psal", "Ps", "Psalm"],

"Romans" => ["Rom", "Romans", "Roman"],
"Ruth" => ["Ruth"],
"Titus" => ["Tit"],
"Tobit" => ["Tobiae", "Tob", "Tobias"],
"Wisdom" => ["Sap", "Sapient", "Sapien", "Sapientiae"],
"Zechariah" => ["Zach", "Zachar", "Zachariae"],
"Zephaniah" => ["Sophon", "Sophonia"]
);

# These are the books in english, mapping back to the canonical-name. 
our %englishbooks = (
	"1 Chronicles" => ["1 Chronicles", "1 Chron", "1 Chr", "1 Paral", "1 Paralipomenon", "1 Par"],
	"1 Corinthians" => ["1 Corinthians", "1 Cor"],
	"1 Esdras" => ["1 Esdras", "1 Esdr", "1 Esd", "1 Ezra", "Ezra"],
	"2 Esdras" => ["2 Esdras", "2 Esdr", "2 Esd", "2 Ezra"],
	"3 Esdras" => ["3 Esdras", "3 Esdr", "3 Esd", "3 Ezra"],
	"1 John" => ["1 John", "1 Jn", "1 Jo"],
	"1 Kings" => ["1 Kings", "3 Kings", "1 Kgs", "3 Kgs"],
	"1 Maccabees" => ["1 Maccabees", "1 Machab", "1 Macc", "1 Mach"],
	"1 Peter" => ["1 Peter", "1 S. Peter", "1 Pet", "1 S. Pet"],
	"1 Samuel" => ["1 Samuel", "1 Kings", "1 Sam", "1 Sm"],
	"1 Thessalonians" => ["1 Thessalonians", "1 Thess", "1 Thessal"],
	"1 Timothy" => ["1 Timothy", "1 Tim"],
	"2 Chronicles" => ["2 Chronicles", "2 Chron", "2 Chr", "2 Paral", "2 Paralipomenon", "2 Par"],
	"2 Corinthians" => ["2 Corinthians", "2 Cor"],
	"2 Esdras" => ["2 Esdras", "2 Esdr"],
	"2 John" => ["2 John", "2 Jn", "2 Jo"],
	"2 Kings" => ["2 Kings", "4 Kings", "2 Kgs", "4 Kgs"],
	"2 Maccabees" => ["2 Maccabees", "2 Machab", "2 Macc", "2 Mach"],
	"2 Peter" => ["2 Peter", "2 S. Peter", "2 Pet", "2 S. Pet"],
	"2 Samuel" => ["2 Samuel", "2 Kings", "2 Sam"],
	"2 Thessalonians" => ["2 Thessalonians", "2 Thess", "2 Thessal"],
	"2 Timothy" => ["2 Timothy", "2 Tim"],
	"3 Esdras" => ["3 Esdras", "3 Esdr"],
	"3 John" => ["3 John", "3 Jn", "3 Jo"],
	"Acts" => ["Acts", "Acts"],
	"Amos" => ["Amos", "Am"],

	"Baruch" => ["Baruch", "Baruck", "Bar", "Baruch"],
	"Canticle of Canticles" => ["Canticle of Canticles", "Song of Songs", "Cant", "Song of Sol", "Song", "Sg"],
	"Colossians" => ["Colossians", "Col", "Coloss", "Colos"],
	"Daniel" => ["Daniel", "Dan", "Daniel", "Dn"],
	"Deuteronomy" => ["Deuteronomy", "Deut", "Deuteronomy"],
	"Ecclesiastes" => ["Ecclesiastes", "Eccl", "Eccles", "Eccle"],
	"Ecclesiasticus" => ["Ecclesiasticus", "Ecclus", "Ecclesiasticus", "Sir", "Sirach"],
	"Ephesians" => ["Ephesians", "Eph", "Ephes"],
	"Esther" => ["Esther", "Esth", "Est", "Es"],
	"Exodus" => ["Exodus", "Exod", "Exod", "Exodus", "Ex"],
	"Ezechiel" => ["Ezechiel", "Ezech", "Ezechiel"],
	"Galatians" => ["Galatians", "Gal"],
	"Genesis" => ["Genesis", "Gen", "Gen", "Genes"],
	"Habakkuk" => ["Habakkuk", "Habac", "Hab", "Habak", "Habac"],
	"Hebrews" => ["Hebrews", "Heb", "Hebr"],
	"Hosea" => ["Hosea", "Hos", "Osee"],
	"Isaiah" => ["Isaiah", "Isa", "Is", "Isaiah", "Isai"],
	"James" => ["James", "S. James", "Jas"],
	"Jeremiah" => ["Jeremiah", "Jerem", "Jer", "Jeremias"],
	"Job" => ["Job", "Jb"],
	"Joel" => ["Joel", "Jl"],
	"John" => ["John", "S. John", "Jn", "Jo"],
	"Jonah" => ["Jonah", "Jon", "Jonas", "Jonah"],
	"Joshua" => ["Joshua", "Jos", "Josh", "Joshua", "Josue"],
	"Jude" => ["Jude", "S. Jude"],
	"Judges" => ["Judges", "Judg", "Jud"],
	"Judith" => ["Judith", "Jdt"],
	"Lamentations" => ["Lamentations", "Lam", "Lament", "Lamentations"],
	"Leviticus" => ["Leviticus", "Levit", "Levit", "Lev", "Leviticus"],
	"Luke" => ["Luke", "Lk", "S. Luke"],
	"Malachi" => ["Malachi", "Mal", "Malach"],
	"Mark" => ["Mark", "Mk"],
	"Matthew" => ["Matthew", "Matth", "S. Matt"],
	"Micah" => ["Micah", "Mich", "Micah", "Mic"],
	"Nahum" => ["Nahum", "Nah"],
	"Nehemiah" => ["Nehemiah", "Neh"],
	"Numbers" => ["Numbers", "Num", "Numb", "Nm"],
	"Philemon" => ["Philemon", "Phlm", "Philem", "Phil"],
	"Philipians" => ["Philipians", "Phil", "Philip"],
	"Proverbs" => ["Proverbs", "Proverb", "Prov", "Pr"],
	"Psalms" => ["Psalms", "Psal", "Ps", "Psalm", "Psa"],
	"Apocalypse" => ["Apocalypse", "Revelation", "Apoc", "Rv", "Rev"],
	"Romans" => ["Romans", "Rom"],
	"Ruth" => ["Ruth"],
	
	"Titus" => ["Titus", "Tit", "S. Tit", "Ti"],
	"Tobit" => ["Tobit", "Tob", "Tb", "Tobias"],
	"Wisdom" => ["Wisdom", "Wis", "Wisdom", "Wisd", "Wis"],
	"Zechariah" => ["Zechariah", "Zach", "Zech", "Zec"],
	"Zephaniah" => ["Zephaniah", "Zeph", "Sophon", "Soph", "Zep"]
	);
