#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 = (
	"Romans" => ["Rom.", "Rom", "Romans", "Roman"],
	"Matthew" => ["Mat", "Matth", "Matthew"],
	"Genesis" => ["Gen", "Gen.", "Genes."],
	"Exodus" => ["Exod", "Exod."],
	"Leviticus" => ["Levit", "Levit."],
	"Numbers" => ["Num", "Num.", "Numer", "Numer."],
	"Deuteronomy" => ["Deuter", "Deuter.", "Deuteron", "Deuteron.", "Deut", "Deut.", "Deuteronomii"],
	"Joshua" => ["Josue", "Jos", "Jos.", "Iosue", "Ios", "Ios."],
	"Judges" => ["Judic", "Judic.", "Judicum", "Judicum.", "Iudic", "Iudic.", "Iudicum", "Iudicum."],
	"Ruth" => ["Ruth"],
	"1 Samuel" => ["1. Reg", "1. Reg.", "1. Regum",],
	"1 Samuel" => ["2. Reg", "2. Reg.", "2. Regum",],
	"1 Kings" => ["3. Reg", "3. Reg.", "3. Regum", "3. Regi"],
	"2 Kings" => ["4. Reg", "4. Reg.", "4. Regum", "4. Regi"],
	"1 Chronicles" => ["1. Paralip", "1 Paralip."],
	"2 Chronicles" => ["2. Paralip", "2 Paralip.", "Paralip.", "2. Paral."],
	"Ezra" => ["1. Esdr", "1 Esdr.", "Esdr. 1."],
	"Nehemiah" => ["Neh."],
	"Tobit" => ["Tobias"],
	"Judith" => ["Judith", "Iudith"],
	"Esther" => ["Hester"],
	"Job" => ["Iob", "Job"],
	"Psalms" => ["Psal", "Psal.", "Ps", "Ps.", "Psalm", "Psalm."],
	"Proverbs" => ["Proverb", "Proverb.", "Prover", "Prover.", "Prov", "Prov."],
	"Ecclesiastes" => ["Ecclesiast", "Ecclesiast.", "Eccl", "Eccl.", "Eccles", "Eccles.", "Eccle", "Eccle."],
	"Canticle of Canticles" => ["Cant", "Cant.", "Cantic", "Cantic."],
	"Wisdom" => ["Sap", "Sap.", "Sapient", "Sapient.", "Sapien", "Sapien."],
	"Ecclesiasticus" => ["Eccl", "Eccl.", "Eccle", "Eccle."],
	"Isaiah" => ["Isai", "Isai.", "Isa", "Isa.", "Is", "Is."],
	"Jeremiah" => ["Jerem", "Jerem.", "Ierem", "Ierem.", "Hier", "Hier.", "Ier", "Ier.", "Hierem", "Hierem.", "Hieremiae"],
	"Lamentations" => ["Thren", "Thren."],
	"Ezechiel" => ["Ezech", "Ezech."],
	"Daniel" => ["Dan", "Dan."],
	"Hosea" => ["Oseae", "Osee"],
	"Joel" => ["Joelis", "Joel.", "Joel"],
	"Amos" => ["Amos"],
	"Jonah" => ["Jon.", "Jonae"],
	"Micah" => ["Mich.", "Michaeae"],
	"Nahum" => ["Nahum"],
	"Habakkuk" => ["Abacuc", "Habac.", "Habac", "Habacuc"],
	"Zephaniah" => ["Sophon.", "Sophon", "Sophonia"],
	"Zechariah" => ["Zach.", "Zachar.", "Zachariae"],
	"Malachi" => ["Malach.", "Malach"],
	"Tobit" => ["Tobiae", "Tob."],
	"Judith" => ["Judith"],
	"Wisdom" => ["Sap.", "Sapient.", "Sapien.", "Sapientiae"],
	"Sirach" => ["Eccli.", "Eccli"],
	"Baruch" => ["Baruch"],
	"1 Maccabees" => ["1. Machab."],
	"2 Maccabees" => ["2. Machab."],
	"1 Esdras" => ["1 Esdr."],
	"Mark" => ["Marci", "Marcus", "Marc."],
	"Luke" => ["Luc.", "Luc"],
	"John" => ["Joan", "Ioan"],
	"1 John" => ["I Ioan.", "1 Joan", "I Ioan.", "1 Joan.", "I Ioannis", "I Io.", "I Jo."],
	"2 John" => ["II canonica Iohannis", "II Io."],
	"3 John" => ["III Io."],
	"Acts" => ["Act"],
	"1 Corinthians" => ["I Cor"],
	"2 Corinthians" => ["2 Cor"],
	"Galatians" => ["Gal.", "Galat"],
	"Ephesians" => ["Ephes"],
	"Philippians" => ["Phil.", "Philipp"],
	"Colossians" => ["Col."],
	"1 Thessalonians" => ["I Thess.", "1 Thess.", "I ad Thessal."],
	"2 Thessalonians" => ["2 Thess.", "II ad Thess.", "II ad Thessal"],
	"1 Timothy" => ["1 Timoth.", "I ad Tim.", "I Tim."],
	"2 Timothy" => ["2 Timoth.", "II ad Tim.", "II Tim."],
	"Titus" => ["Tit."],
	"Philemon" => ["Philem."],
	"Hebrews" => ["Hebr.", "Heb."],
	"James" => ["Iac.", "Jac."],
	"1 Peter" => ["I Pet.", "1 Pet."],
	"2 Peter" => ["II Pet.", "2 Pet."],
	"Jude" => ["Iud.", "Iudas in sua canonica"],
	"Apocalypse" => ["Apoc.", "Apocal.", "Apocalyp."]
	);


















