#!/usr/bin/perl
#Copyright 2005 Donald Cowart
#bible_process -- a perl script to translate the King James Version of the Holy Bible into 
#  modern language.  Usage in Linux:  bible_process.pl < <KJV Bible Text>

$VERSION=0.15;
#
#  This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
#

while (<>) {
	s/\s*ye\s/ you /gi;

	s/\s*thee\s/ you /gi;
	s/\s*thou\s/ you /gi;
	s/\s*thy\s/ your /gi;
	s/\s*thine\s/ your /gi;

	s/\s*sitteth\s/ sits /gi;
	s/\s*driveth\s/ drives /gi;
	s/\s*slippeth\s/ slips /gi;
	s/\s*doeth\s/ does /gi;
	s/\s*cleaveth\s/ cleaves /gi;
	s/eth\s/s /gi;

	s/\s*unto\s/ to /gi;
	#s/\s*upon\s/ on /gi;
	s/\s*why art\s/ why are /gi;
	s/\s*you art\s/ You are /gi;

	s/\s*upholdest\s/ uphold /gi;
	s/\s*settest\s/ set /gi;
	s/\s*sellest\s/ sell /gi;
	s/\s*makest\s/ make /gi;
	s/\s*forgettest\s/ forget /gi;
	s/\s*hidest\s/ hide /gi;
	s/\s*lovest\s/ love /gi;
	s/\s*hatest\s/ hate /gi;

	s/\s*doth\s/ does /gi;
	#s/\s*dost\s/ ??? /gi;
	s/\s*didst\s/ did /gi;

	s/\s*hath\s/ has /gi;
	s/\s*hast\s/ have /gi;
	s/\s*shew\s/ show /gi;
	s/\s*shalt\s/ shall /gi;
	s/\s*wilt\s/ will /gi;
	
	print $_;
}