Module: Linguistics::EN::Infinitives

Defined in:

lib/linguistics/en/infinitives.rb

Overview

Methods for deriving the infinitive forms of conjugated words for the English-language Linguistics module.

Defined Under Namespace

Classes: Infinitive

Constant Summary

IRREGULAR_INFINITIVES =

Irregular words => infinitive forms

{
	'abided'			=> 'abide',
	'abode'				=> 'abide',
	'am'				=> 'be',
	'are'				=> 'be',
	'arisen'			=> 'arise',
	'arose'				=> 'arise',
	'ate'				=> 'eat',
	'awaked'			=> 'awake',
	'awoke'				=> 'awake',
	'bade'				=> 'bid',
	'beaten'			=> 'beat',
	'became'			=> 'become',
	'been'				=> 'be',
	'befallen'			=> 'befall',
	'befell'			=> 'befall',
	'began'				=> 'begin',
	'begat'				=> 'beget',
	'begot'				=> 'beget',
	'begotten'			=> 'beget',
	'begun'				=> 'begin',
	'beheld'			=> 'behold',
	'bent'				=> 'bend',
	'bereaved'			=> 'bereave',
	'bereft'			=> 'bereave',
	'beseeched'			=> 'beseech',
	'besought'			=> 'beseech',
	'bespoke'			=> 'bespeak',
	'bespoken'			=> 'bespeak',
	'bestrewed'			=> 'bestrew',
	'bestrewn'			=> 'bestrew',
	'bestrid'			=> 'bestride',
	'bestridden'		=> 'bestride',
	'bestrode'			=> 'bestride',
	'betaken'			=> 'betake',
	'bethought'			=> 'bethink',
	'betook'			=> 'betake',
	'betted'			=> 'bet',
	'bidden'			=> 'bid',
	'bided'				=> 'bide',
	'bit'				=> 'bite',
	'bitten'			=> 'bite',
	'bled'				=> 'bleed',
	'blended'			=> 'blend',
	'blent'				=> 'blend',
	'blessed'			=> 'bless',
	'blest'				=> 'bless',
	'blew'				=> 'blow',
	'blown'				=> 'blow',
	'bode'				=> 'bide',
	'bore'				=> 'bear',
	'born'				=> 'bear',
	'borne'				=> 'bear',
	'bought'			=> 'buy',
	'bound'				=> 'bind',
	'bred'				=> 'breed',
	'broadcasted'		=> 'broadcast',
	'broke'				=> 'break',
	'broken'			=> 'break',
	'brought'			=> 'bring',
	'browbeaten'		=> 'browbeat',
	'built'				=> 'build',
	'burned'			=> 'burn',
	'burnt'				=> 'burn',
	'came'				=> 'come',
	'caught'			=> 'catch',
	'chid'				=> 'chide',
	'chidden'			=> 'chide',
	'chided'			=> 'chide',
	'chose'				=> 'choose',
	'chosen'			=> 'choose',
	'clad'				=> 'clothe',
	'clave'				=> 'cleave',
	'cleaved'			=> 'cleave',
	'cleft'				=> 'cleave',
	'clothed'			=> 'clothe',
	'clove'				=> 'cleave',
	'cloven'			=> 'cleave',
	'clung'				=> 'cling',
	'costed'			=> 'cost',
	'could'				=> 'can',
	'crept'				=> 'creep',
	'crew'				=> 'crow',
	'crowed'			=> 'crow',
	'dealt'				=> 'deal',
	'did'				=> 'do',
	'done'				=> 'do',
	'dove'				=> 'dive',
	'drank'				=> 'drink',
	'drawn'				=> 'draw',
	'dreamed'			=> 'dream',
	'dreamt'			=> 'dream',
	'drew'				=> 'draw',
	'driven'			=> 'drive',
	'drove'				=> 'drive',
	'drunk'				=> 'drink',
	'dug'				=> 'dig',
	'dwelled'			=> 'dwell',
	'dwelt'				=> 'dwell',
	'eaten'				=> 'eat',
	'fallen'			=> 'fall',
	'fed'				=> 'feed',
	'fell'				=> 'fall',
	'felt'				=> 'feel',
	'fled'				=> 'flee',
	'flew'				=> 'fly',
	'flown'				=> 'fly',
	'flung'				=> 'fling',
	'forbad'			=> 'forbid',
	'forbade'			=> 'forbid',
	'forbidden'			=> 'forbid',
	'forbore'			=> 'forbear',
	'forborne'			=> 'forbear',
	'fordid'			=> 'fordo',
	'fordone'			=> 'fordo',
	'forecasted'		=> 'forecast',
	'foregone'			=> 'forego',
	'foreknew'			=> 'foreknow',
	'foreknown'			=> 'foreknow',
	'foreran'			=> 'forerun',
	'foresaw'			=> 'foresee',
	'foreshowed'		=> 'foreshow',
	'foreshown'			=> 'foreshow',
	'foretold'			=> 'foretell',
	'forewent'			=> 'forego',
	'forgave'			=> 'forgive',
	'forgiven'			=> 'forgive',
	'forgot'			=> 'forget',
	'forgotten'			=> 'forget',
	'forsaken'			=> 'forsake',
	'forseen'			=> 'foresee',
	'forsook'			=> 'forsake',
	'forswore'			=> 'forswear',
	'forsworn'			=> 'forswear',
	'fought'			=> 'fight',
	'found'				=> 'find',
	'froze'				=> 'freeze',
	'frozen'			=> 'freeze',
	'gainsaid'			=> 'gainsay',
	'gave'				=> 'give',
	'gilded'			=> 'gild',
	'gilt'				=> 'gild',
	'girded'			=> 'gird',
	'girt'				=> 'gird',
	'given'				=> 'give',
	'gone'				=> 'go',
	'got'				=> 'get',
	'gotten'			=> 'get',
	'graved'			=> 'grave',
	'graven'			=> 'grave',
	'grew'				=> 'grow',
	'ground'			=> 'grind',
	'grown'				=> 'grow',
	'had'				=> 'have',
	'hamstringed'		=> 'hamstring',
	'hamstrung'			=> 'hamstring',
	'hanged'			=> 'hang',
	'heard'				=> 'hear',
	'heaved'			=> 'heave',
	'held'				=> 'hold',
	'hewed'				=> 'hew',
	'hewn'				=> 'hew',
	'hid'				=> 'hide',
	'hidden'			=> 'hide',
	'hove'				=> 'heave',
	'hung'				=> 'hang',
	'inlaid'			=> 'inlay',
	'is'				=> 'be',
	'kept'				=> 'keep',
	'kneeled'			=> 'kneel',
	'knelt'				=> 'kneel',
	'knew'				=> 'know',
	'knitted'			=> 'knit',
	'known'				=> 'know',
	'laded'				=> 'lade',
	'laden'				=> 'lade',
	'laid'				=> 'lay',
	'lain'				=> 'lie',
	'lay'				=> 'lie',
	'leaned'			=> 'lean',
	'leant'				=> 'lean',
	'leaped'			=> 'leap',
	'leapt'				=> 'leap',
	'learned'			=> 'learn',
	'learnt'			=> 'learn',
	'led'				=> 'lead',
	'left'				=> 'leave',
	'lent'				=> 'lend',
	'lighted'			=> 'light',
	'lit'				=> 'light',
	'lost'				=> 'lose',
	'made'				=> 'make',
	'meant'				=> 'mean',
	'melted'			=> 'melt',
	'met'				=> 'meet',
	'might'				=> 'may',
	'misdealt'			=> 'misdeal',
	'misgave'			=> 'misgive',
	'misgiven'			=> 'misgive',
	'mislaid'			=> 'mislay',
	'misled'			=> 'mislead',
	'mistaken'			=> 'mistake',
	'mistook'			=> 'mistake',
	'misunderstood'		=> 'misunderstand',
	'molten'			=> 'melt',
	'mowed'				=> 'mow',
	'mown'				=> 'mow',
	'outate'			=> 'outeat',
	'outbade'			=> 'outbid',
	'outbidden'			=> 'outbid',
	'outbred'			=> 'outbreed',
	'outdid'			=> 'outdo',
	'outdone'			=> 'outdo',
	'outeaten'			=> 'outeat',
	'outfought'			=> 'outfight',
	'outgone'			=> 'outgo',
	'outgrew'			=> 'outgrow',
	'outgrown'			=> 'outgrow',
	'outlaid'			=> 'outlay',
	'outran'			=> 'outrun',
	'outridden'			=> 'outride',
	'outrode'			=> 'outride',
	'outsat'			=> 'outsit',
	'outshone'			=> 'outshine',
	'outshot'			=> 'outshoot',
	'outsold'			=> 'outsell',
	'outspent'			=> 'outspend',
	'outthrew'			=> 'outthrow',
	'outthrown'			=> 'outthrow',
	'outwent'			=> 'outgo',
	'outwore'			=> 'outwear',
	'outworn'			=> 'outwear',
	'overate'			=> 'overeat',
	'overbade'			=> 'overbid',
	'overbidden'		=> 'overbid',
	'overblew'			=> 'overblow',
	'overblown'			=> 'overblow',
	'overbore'			=> 'overbear',
	'overborn'			=> 'overbear',
	'overborne'			=> 'overbear',
	'overbought'		=> 'overbuy',
	'overbuilt'			=> 'overbuild',
	'overcame'			=> 'overcome',
	'overdid'			=> 'overdo',
	'overdone'			=> 'overdo',
	'overdrawn'			=> 'overdraw',
	'overdrew'			=> 'overdraw',
	'overdriven'		=> 'overdrive',
	'overdrove'			=> 'overdrive',
	'overeaten'			=> 'overeat',
	'overfed'			=> 'overfeed',
	'overflew'			=> 'overfly',
	'overflown'			=> 'overfly',
	'overgrew'			=> 'overgrow',
	'overgrown'			=> 'overgrow',
	'overhanged'		=> 'overhang',
	'overheard'			=> 'overhear',
	'overhung'			=> 'overhang',
	'overladed'			=> 'overlade',
	'overladen'			=> 'overlade',
	'overlaid'			=> 'overlay',
	'overlain'			=> 'overlie',
	'overlay'			=> 'overlie',
	'overleaped'		=> 'overleap',
	'overleapt'			=> 'overleap',
	'overpaid'			=> 'overpay',
	'overran'			=> 'overrun',
	'overridden'		=> 'override',
	'overrode'			=> 'override',
	'oversaw'			=> 'oversee',
	'overseen'			=> 'oversee',
	'oversewed'			=> 'oversew',
	'oversewn'			=> 'oversew',
	'overshot'			=> 'overshoot',
	'overslept'			=> 'oversleep',
	'overspent'			=> 'overspend',
	'overtaken'			=> 'overtake',
	'overthrew'			=> 'overthrow',
	'overthrown'		=> 'overthrow',
	'overtook'			=> 'overtake',
	'overwinded'		=> 'overwind',
	'overwound'			=> 'overwind',
	'overwritten'		=> 'overwrite',
	'overwrote'			=> 'overwrite',
	'paid'				=> 'pay',
	'partaken'			=> 'partake',
	'partook'			=> 'partake',
	'prechose'			=> 'prechoose',
	'prechosen'			=> 'prechoose',
	'proved'			=> 'prove',
	'proven'			=> 'prove',
	'quitted'			=> 'quit',
	'ran'				=> 'run',
	'rang'				=> 'ring',
	'reaved'			=> 'reave',
	'rebuilt'			=> 'rebuild',
	'reeved'			=> 'reeve',
	'reft'				=> 'reave',
	'relaid'			=> 'relay',
	'rent'				=> 'rend',
	'repaid'			=> 'repay',
	'retold'			=> 'retell',
	'ridded'			=> 'rid',
	'ridden'			=> 'ride',
	'risen'				=> 'rise',
	'rived'				=> 'rive',
	'riven'				=> 'rive',
	'rode'				=> 'ride',
	'rose'				=> 'rise',
	'rove'				=> 'reeve',
	'rung'				=> 'ring',
	'said'				=> 'say',
	'sang'				=> 'sing',
	'sank'				=> 'sink',
	'sat'				=> 'sit',
	'saw'				=> 'see',
	'sawed'				=> 'saw',
	'sawn'				=> 'saw',
	'seen'				=> 'see',
	'sent'				=> 'send',
	'sewed'				=> 'sew',
	'sewn'				=> 'sew',
	'shaken'			=> 'shake',
	'shaved'			=> 'shave',
	'shaven'			=> 'shave',
	'sheared'			=> 'shear',
	'shined'			=> 'shine',
	'shod'				=> 'shoe',
	'shoed'				=> 'shoe',
	'shone'				=> 'shine',
	'shook'				=> 'shake',
	'shorn'				=> 'shear',
	'shot'				=> 'shoot',
	'showed'			=> 'show',
	'shown'				=> 'show',
	'shrank'			=> 'shrink',
	'shredded'			=> 'shred',
	'shrived'			=> 'shrive',
	'shriven'			=> 'shrive',
	'shrove'			=> 'shrive',
	'shrunk'			=> 'shrink',
	'shrunken'			=> 'shrink',
	'slain'				=> 'slay',
	'slept'				=> 'sleep',
	'slew'				=> 'slay',
	'slid'				=> 'slide',
	'slidden'			=> 'slide',
	'slung'				=> 'sling',
	'slunk'				=> 'slink',
	'smelled'			=> 'smell',
	'smelt'				=> 'smell',
	'smitten'			=> 'smite',
	'smote'				=> 'smite',
	'snuck'				=> 'sneak',
	'sold'				=> 'sell',
	'sought'			=> 'seek',
	'sowed'				=> 'sow',
	'sown'				=> 'sow',
	'span'				=> 'spin',
	'spat'				=> 'spit',
	'sped'				=> 'speed',
	'speeded'			=> 'speed',
	'spelled'			=> 'spell',
	'spelt'				=> 'spell',
	'spent'				=> 'spend',
	'spilled'			=> 'spill',
	'spilt'				=> 'spill',
	'spoiled'			=> 'spoil',
	'spoilt'			=> 'spoil',
	'spoke'				=> 'speak',
	'spoken'			=> 'speak',
	'sprang'			=> 'spring',
	'sprung'			=> 'spring',
	'spun'				=> 'spin',
	'stank'				=> 'stink',
	'staved'			=> 'stave',
	'stole'				=> 'steal',
	'stolen'			=> 'steal',
	'stood'				=> 'stand',
	'stove'				=> 'stave',
	'strewed'			=> 'strew',
	'strewn'			=> 'strew',
	'stricken'			=> 'strike',
	'strid'				=> 'stride',
	'stridden'			=> 'stride',
	'strived'			=> 'strive',
	'striven'			=> 'strive',
	'strode'			=> 'stride',
	'strove'			=> 'strive',
	'struck'			=> 'strike',
	'strung'			=> 'string',
	'stuck'				=> 'stick',
	'stung'				=> 'sting',
	'stunk'				=> 'stink',
	'sung'				=> 'sing',
	'sunk'				=> 'sink',
	'sunken'			=> 'sink',
	'swam'				=> 'swim',
	'sweated'			=> 'sweat',
	'swelled'			=> 'swell',
	'swept'				=> 'sweep',
	'swollen'			=> 'swell',
	'swore'				=> 'swear',
	'sworn'				=> 'swear',
	'swum'				=> 'swim',
	'swung'				=> 'swing',
	'taken'				=> 'take',
	'taught'			=> 'teach',
	'thought'			=> 'think',
	'threw'				=> 'throw',
	'thrived'			=> 'thrive',
	'thriven'			=> 'thrive',
	'throve'			=> 'thrive',
	'thrown'			=> 'throw',
	'told'				=> 'tell',
	'took'				=> 'take',
	'tore'				=> 'tear',
	'torn'				=> 'tear',
	'trod'				=> 'tread',
	'trodden'			=> 'tread',
	'unbent'			=> 'unbend',
	'unbound'			=> 'unbind',
	'unbuilt'			=> 'unbuild',
	'underbought'		=> 'underbuy',
	'underfed'			=> 'underfeed',
	'undergone'			=> 'undergo',
	'underlaid'			=> 'underlay',
	'underlain'			=> 'underlie',
	'underlay'			=> 'underlie',
	'underpaid'			=> 'underpay',
	'underran'			=> 'underrun',
	'undershot'			=> 'undershoot',
	'undersold'			=> 'undersell',
	'understood'		=> 'understand',
	'undertaken'		=> 'undertake',
	'undertook'			=> 'undertake',
	'underwent'			=> 'undergo',
	'underwritten'		=> 'underwrite',
	'underwrote'		=> 'underwrite',
	'undid'				=> 'undo',
	'undone'			=> 'undo',
	'undrawn'			=> 'undraw',
	'undrew'			=> 'undraw',
	'unfroze'			=> 'unfreeze',
	'unfrozen'			=> 'unfreeze',
	'ungirded'			=> 'ungird',
	'ungirt'			=> 'ungird',
	'unhanged'			=> 'unhang',
	'unhung'			=> 'unhang',
	'unknitted'			=> 'unknit',
	'unladed'			=> 'unlade',
	'unladen'			=> 'unlade',
	'unlaid'			=> 'unlay',
	'unlearned'			=> 'unlearn',
	'unlearnt'			=> 'unlearn',
	'unmade'			=> 'unmake',
	'unreeved'			=> 'unreeve',
	'unrove'			=> 'unreeve',
	'unsaid'			=> 'unsay',
	'unslung'			=> 'unsling',
	'unspoke'			=> 'unspeak',
	'unspoken'			=> 'unspeak',
	'unstrung'			=> 'unstring',
	'unstuck'			=> 'unstick',
	'unswore'			=> 'unswear',
	'unsworn'			=> 'unswear',
	'untaught'			=> 'unteach',
	'unthought'			=> 'unthink',
	'untrod'			=> 'untread',
	'untrodden'			=> 'untread',
	'unwinded'			=> 'unwind',
	'unwound'			=> 'unwind',
	'unwove'			=> 'unweave',
	'unwoven'			=> 'unweave',
	'upbuilt'			=> 'upbuild',
	'upheld'			=> 'uphold',
	'uprisen'			=> 'uprise',
	'uprose'			=> 'uprise',
	'upswept'			=> 'upsweep',
	'upswung'			=> 'upswing',
	'waked'				=> 'wake',
	'was'				=> 'be',
	'waylaid'			=> 'waylay',
	'wedded'			=> 'wed',
	'went'				=> 'go',
	'wept'				=> 'weep',
	'were'				=> 'be',
	'wetted'			=> 'wet',
	'winded'			=> 'wind',
	'wist'				=> 'wit',
	'wot'				=> 'wit',
	'withdrawn'			=> 'withdraw',
	'withdrew'			=> 'withdraw',
	'withheld'			=> 'withhold',
	'withstood'			=> 'withstand',
	'woke'				=> 'wake',
	'woken'				=> 'wake',
	'won'				=> 'win',
	'wore'				=> 'wear',
	'worked'			=> 'work',
	'worn'				=> 'wear',
	'wound'				=> 'wind',
	'wove'				=> 'weave',
	'woven'				=> 'weave',
	'written'			=> 'write',
	'wrote'				=> 'write',
	'wrought'			=> 'work',
	'wrung'				=> 'wring',
}

INF_SUFFIX_RULES =

Mapping of word suffixes to infinitive rules.

{
	# '<suffix>' => {
	#	:order => <sort order>,
	#	:rule  => <rule number>,

	# :word1 == 0 => Use 0, the index of the longest prefix
	#	within @{$prefix{$self->{'suffix'} } }, below.

	# :word1 == 1 => Use 1, the index of the 2nd longest prefix
	#	within @{$prefix{$self->{'suffix'} } }, below.

	# :word1 == -1 => Use the index of the shortest prefix
	#	within @{$prefix{$self->{'suffix'} } }, below + a letter.

	# :word1 == -2 => Use the index of the shortest prefix
	#	within @{$prefix{$self->{'suffix'} } }, below + a letter,
	#	and use the shortest prefix as well.

	# :word1 == -3 => Use the index of the shortest prefix
	#	within @{$prefix{$self->{'suffix'} } }, below + meter,
	#	and use the shortest prefix + metre as well.

	# :word1 == -4 => Use the original string.
	'hes' => {
		:order		=> 1011,
		:rule		=> '1',
		:word1		=> 0,	# Longest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ses' => {
		:order		=> 1021,
		:rule		=> '2',
		:word1		=> 0,	# Longest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'xes' => {
		:order		=> 1031,
		:rule		=> '3',
		:word1		=> 0,	# Longest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'zes' => {
		:order		=> 1041,
		:rule		=> '4',
		:word1		=> 0,	# Longest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'iless' => {
		:order		=> 1051,
		:rule		=> '43a',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'less' => {
		:order		=> 1052,
		:rule		=> '43b',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'iness' => {
		:order		=> 1053,
		:rule		=> '44a',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'ness' => {
		:order		=> 1054,
		:rule		=> '44b',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	"'s" => {
		:order		=> 1055,
		:rule		=> '7',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ies' => {
		:order		=> 1056,
		:rule		=> '13a',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'es' => {
		:order		=> 1057,
		:rule		=> '13b',
		:word1		=> 0,	# Longest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ss' => {
		:order		=> 1061,
		:rule		=> '6a',
		:word1		=> -4,	# Original string.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	's'	 => {
		:order		=> 1062,
		:rule		=> '6b',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ater' => {
		:order		=> 1081,
		:rule		=> '8',
		:word1		=> -4,	# Original string.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'cter' => {
		:order		=> 1091,
		:rule		=> '9',
		:word1		=> -4,	# Original string.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ier' => {
		:order		=> 1101,
		:rule		=> '10',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'er' => {
		:order		=> 1111,
		:rule		=> '11',
		:word1		=> 0,	# Longest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ied' => {
		:order		=> 1121,
		:rule		=> '12a',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'ed' => {
		:order		=> 1122,
		:rule		=> '12b',	# There is extra code for 12b below.
		:word1		=> 0,	# Longest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'iest' => {
		:order		=> 1141,
		:rule		=> '14a',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'est' => {
		:order		=> 1142,
		:rule		=> '14b',
		:word1		=> -2,	# Shortest prefix + a letter, and shortest prefix.
		:suffix1	=> 'e',
		:suffix2	=> '',
	},
	'blity' => {
		:order		=> 1143,
		:rule		=> '21',
		:word1		=> -4,	# Original string.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'bility' => {
		:order		=> 1144,
		:rule		=> '22',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ble',
		:suffix2	=> '',
	},
	'fiable' => {
		:order		=> 1145,
		:rule		=> '23',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'fy',
		:suffix2	=> '',
	},
	'logist' => {
		:order		=> 1146,
		:rule		=> '24',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'logy',
		:suffix2	=> '',
	},
	'ing' => {
		:order		=> 1151,
		:rule		=> '15',	# There is extra code for 15 below.
		:word1		=> -2,	# Shortest prefix + a letter, and shortest prefix.
		:suffix1	=> 'e',
		:suffix2	=> '',
	},
	'ist' => {
		:order		=> 1161,
		:rule		=> '16',
		:word1		=> -2,	# Shortest prefix + a letter, and shortest prefix.
		:suffix1	=> 'e',
		:suffix2	=> '',
	},
	'ism' => {
		:order		=> 1171,
		:rule		=> '17',
		:word1		=> -2,	# Shortest prefix + a letter, and shortest prefix.
		:suffix1	=> 'e',
		:suffix2	=> '',
	},
	'ity' => {
		:order		=> 1181,
		:rule		=> '18',
		:word1		=> -2,	# Shortest prefix + a letter, and shortest prefix.
		:suffix1	=> 'e',
		:suffix2	=> '',
	},
	'ize' => {
		:order		=> 1191,
		:rule		=> '19',
		:word1		=> -2,	# Shortest prefix + a letter, and shortest prefix.
		:suffix1	=> 'e',
		:suffix2	=> '',
	},
	'cable' => {
		:order		=> 1201,
		:rule		=> '20a',
		:word1		=> -4,	# Original string.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'gable' => {
		:order		=> 1202,
		:rule		=> '20b',
		:word1		=> -4,	# Original string.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'able' => {
		:order		=> 1203,
		:rule		=> '20c',
		:word1		=> -2,	# Shortest prefix + a letter, and shortest prefix.
		:suffix1	=> 'e',
		:suffix2	=> '',
	},
	'graphic' => {
		:order		=> 1251,
		:rule		=> '25',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'graphy',
		:suffix2	=> '',
	},
	'istic' => {
		:order		=> 1261,
		:rule		=> '26',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ist',
		:suffix2	=> '',
	},
	'itic' => {
		:order		=> 1271,
		:rule		=> '27',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ite',
		:suffix2	=> '',
	},
	'like' => {
		:order		=> 1281,
		:rule		=> '28',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'logic' => {
		:order		=> 1291,
		:rule		=> '29',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'logy',
		:suffix2	=> '',
	},
	'ment' => {
		:order		=> 1301,
		:rule		=> '30',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'mental' => {
		:order		=> 1311,
		:rule		=> '31',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ment',
		:suffix2	=> '',
	},
	'metry' => {
		:order		=> 1321,
		:rule		=> '32',
		:word1		=> -3,	# Shortest prefix + meter, and shortest perfix + metre.
		:suffix1	=> 'meter',
		:suffix2	=> 'metre',
	},
	'nce' => {
		:order		=> 1331,
		:rule		=> '33',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'nt',
		:suffix2	=> '',
	},
	'ncy' => {
		:order		=> 1341,
		:rule		=> '34',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'nt',
		:suffix2	=> '',
	},
	'ship' => {
		:order		=> 1351,
		:rule		=> '35',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ical' => {
		:order		=> 1361,
		:rule		=> '36',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ic',
		:suffix2	=> '',
	},
	'ional' => {
		:order		=> 1371,
		:rule		=> '37',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ion',
		:suffix2	=> '',
	},
	'bly' => {
		:order		=> 1381,
		:rule		=> '38',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ble',
		:suffix2	=> '',
	},
	'ily' => {
		:order		=> 1391,
		:rule		=> '39',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'ly' => {
		:order		=> 1401,
		:rule		=> '40',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'iful' => {
		:order		=> 1411,
		:rule		=> '41a',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'ful' => {
		:order		=> 1412,
		:rule		=> '41b',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ihood' => {
		:order		=> 1421,
		:rule		=> '42a',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'y',
		:suffix2	=> '',
	},
	'hood' => {
		:order		=> 1422,
		:rule		=> '42b',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> '',
		:suffix2	=> '',
	},
	'ification' => {
		:order		=> 1451,
		:rule		=> '45',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ify',
		:suffix2	=> '',
	},
	'ization' => {
		:order		=> 1461,
		:rule		=> '46',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ize',
		:suffix2	=> '',
	},
	'ction' => {
		:order		=> 1471,
		:rule		=> '47',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ct',
		:suffix2	=> '',
	},
	'rtion' => {
		:order		=> 1481,
		:rule		=> '48',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'rt',
		:suffix2	=> '',
	},
	'ation' => {
		:order		=> 1491,
		:rule		=> '49',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ate',
		:suffix2	=> '',
	},
	'ator' => {
		:order		=> 1501,
		:rule		=> '50',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ate',
		:suffix2	=> '',
	},
	'ctor' => {
		:order		=> 1511,
		:rule		=> '51',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ct',
		:suffix2	=> '',
	},
	'ive' => {
		:order		=> 1521,
		:rule		=> '52',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'ion',
		:suffix2	=> '',
	},
	'onian' => {
		:order		=> 1530,
		:rule		=> '54',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'on',
		:suffix2	=> '',
	},
	'an' => {
		:order		=> 1531,
		:rule		=> '53',
		:word1		=> -1,	# Shortest prefix.
		:suffix1	=> 'a',
		:suffix2	=> '',
	},
}

INF_SUFFIX_RULE_ORDER =

INF_SUFFIX_RULES.keys.sort_by {|rule| INF_SUFFIX_RULES[rule][:order]}

Instance Method Summary

• #infinitive ⇒ Object

  Return the infinitive form of the given word.

Instance Method Details

#infinitive ⇒ Object

Return the infinitive form of the given word

# File 'lib/linguistics/en/infinitives.rb', line 1034

def infinitive
	word = self.to_s
	word1 = word2 = suffix = rule = newword = ''

	if IRREGULAR_INFINITIVES.key?( word )
		word1	= IRREGULAR_INFINITIVES[ word ]
		rule	= 'irregular'
	else
		# Build up $prefix{$suffix} as an array of prefixes, from longest to shortest.
		prefix, suffix = nil
		prefixes = Hash::new {|hsh,key| hsh[key] = []}

		# Build the hash of prefixes for the word
		1.upto( word.length ) {|i|
			prefix = word[0, i]
			suffix = word[i..-1]

			(suffix.length - 1).downto( 0 ) {|j|
				newword = prefix + suffix[0, j]
				prefixes[ suffix ].push( newword )
			}
		}

		self.log.debug "prefixes: %p" % [ prefixes ]

		# Now check for rules covering the prefixes for this word, picking
		# the first one if one was found.
		if (( suffix = ((INF_SUFFIX_RULE_ORDER & prefixes.keys).first) ))
			rule = INF_SUFFIX_RULES[ suffix ][:rule]
			shortestPrefix = INF_SUFFIX_RULES[ suffix ][:word1]
			self.log.debug "Using rule %p (%p) for suffix %p" % 
				[ rule, shortestPrefix, suffix ] if $DEBUG

			case shortestPrefix
			when 0
				word1 = prefixes[ suffix ][ 0 ]
				word2 = prefixes[ suffix ][ 1 ]
				self.log.debug "For sp = 0: word1: %p, word2: %p" %
					[ word1, word2 ] if $DEBUG

			when -1
				word1 = prefixes[ suffix ].last +
					INF_SUFFIX_RULES[ suffix ][:suffix1]
				word2 = ''
				self.log.debug "For sp = -1: word1: %p, word2: %p" %
					[ word1, word2 ] if $DEBUG

			when -2
				word1 = prefixes[ suffix ].last +
					INF_SUFFIX_RULES[ suffix ][:suffix1]
				word2 = prefixes[ suffix ].last
				self.log.debug "For sp = -2: word1: %p, word2: %p" %
					[ word1, word2 ] if $DEBUG

			when -3
				word1 = prefixes[ suffix ].last +
					INF_SUFFIX_RULES[ suffix ][:suffix1]
				word2 = prefixes[ suffix ].last +
					INF_SUFFIX_RULES[ suffix ][:suffix2]
				self.log.debug "For sp = -3: word1: %p, word2: %p" %
					[ word1, word2 ] if $DEBUG

			when -4
				word1 = word
				word2 = ''
				self.log.debug "For sp = -4: word1: %p, word2: %p" %
					[ word1, word2 ] if $DEBUG

			else
				raise IndexError,
					"Couldn't find rule for shortest prefix %p" %
					shortestPrefix
			end

			# Rules 12b and 15: Strip off 'ed' or 'ing'.
			if rule == '12b' or rule == '15'
				# Do we have a monosyllable of this form:
				# o 0+ Consonants
				# o 1+ Vowel
				# o	2 Non-wx
				# Eg: tipped => tipp?
				# Then return tip and tipp.
				# Eg: swimming => swimm?
				# Then return swim and swimm.

				if /^([^aeiou]*[aeiou]+)([^wx])\2$/ =~ word2
					word1 = $1 + $2
					word2 = $1 + $2 + $2
				end
			end
		end
	end

	return Infinitive.new( word1, word2, suffix, rule )
end