linguistics 1.0.9 → 2.0.0

data/examples/endocs.rb

@@ -0,0 +1,272 @@
+#!/usr/bin/env ruby
+
+$LOAD_PATH.unshift( 'lib' )
+$stdout.sync = $stderr.sync = true
+
+require 'loggability'
+require 'linguistics'
+require 'pry'
+
+lines = File.readlines( __FILE__ ).slice_before( /^__END__/ ).to_a
+header = lines.shift
+source = lines.shift
+source.shift
+
+header_lines = header.length + 1
+code = ''
+result = nil
+
+Loggability.level = $VERBOSE ? :debug : :warn
+Loggability.format_with( :color )
+
+source.each_with_index do |line, i|
+	case line
+
+	# Eval any accumulated code on a blank line
+	when /^\s*$/
+		puts
+		next if code.empty?
+		puts( code )
+		eval( code, binding(), __FILE__, header_lines + i )
+		code = ''
+
+	# Eval the code on a result marker, but also render the result after the marker
+	when /^#\s+=>/
+		puts( code )
+		$stdout.flush
+		result = eval( code, binding(), __FILE__, header_lines + i )
+		print '# => '
+		pp( result )
+		code = ''
+
+	# Output comment lines as-is
+	when /^#/
+		puts( line )
+
+	# Anything else gets appended to the code accumulator
+	else
+		code << line
+	end
+end
+
+__END__
+
+# This module is a container for various English-language linguistic
+# functions for the Linguistics library. It can be either loaded
+# directly, or by passing some variant of +:en+ or +:eng+ to the
+# Linguistics.use method.
+
+require 'linguistics'
+Linguistics.use( :en ) # extends Array, String, and Numeric
+
+# == Pluralization
+
+"box".en.plural
+# => "boxes"
+
+"mouse".en.plural
+# => "mice"
+
+"ruby".en.plural
+# => "rubies"
+
+
+# == Indefinite Articles
+
+"book".en.a
+# => "a book"
+
+"article".en.a
+# => "an article"
+
+
+# == Present Participles
+
+"runs".en.present_participle
+# => "running"
+
+"eats".en.present_participle
+# => "eating"
+
+"spies".en.present_participle
+# => "spying"
+
+
+# == Ordinal Numbers
+
+5.en.ordinal
+# => "5th"
+
+2004.en.ordinal
+# => "2004th"
+
+
+# == Numbers to Words
+
+5.en.numwords
+# => "five"
+
+2004.en.numwords
+# => "two thousand and four"
+
+2385762345876.en.numwords
+# => "two trillion, three hundred and eighty-five billion, seven hundred and sixty-two million, three hundred and forty-five thousand, eight hundred and seventy-six"
+
+
+# == Quantification
+
+"cow".en.quantify( 5 )
+# => "several cows"
+
+"cow".en.quantify( 1005 )
+# => "thousands of cows"
+
+"cow".en.quantify( 20_432_123_000_000 )
+# => "tens of trillions of cows"
+
+
+# == Conjunctions
+
+animals = %w{dog cow ox chicken goose goat cow dog rooster llama pig goat dog cat cat dog cow goat goose goose ox alpaca}
+"The farm has: " + animals.en.conjunction
+# => The farm has: four dogs, three cows, three geese, three goats, two oxen, two cats, a chicken, a rooster, a llama, a pig, and an alpaca
+
+# Note that 'goose' and 'ox' are both correctly pluralized, and the correct
+# indefinite article 'an' has been used for 'alpaca'.
+#
+# You can also use the generalization function of the #quantify method to give
+# general descriptions of object lists instead of literal counts:
+
+allobjs = []
+ObjectSpace::each_object {|obj| allobjs << obj.class.name }
+puts "The current Ruby objectspace contains: " + allobjs.en.conjunction( :generalize => true )
+# =>
+
+
+# == Infinitives
+
+"leaving".en.infinitive
+# => "leave"
+
+"left".en.infinitive
+# => "leave"
+
+"leaving".en.infinitive.suffix
+# => "ing"
+
+
+# == Conjugation
+
+#Conjugate a verb given an infinitive:
+
+"run".en.past_tense
+# => "ran"
+
+"run".en.past_participle
+# => "run"
+
+"run".en.present_tense
+# => "run"
+
+"run".en.present_participle
+# => "running"
+
+# Conjugate an infinitive with an explicit tense and grammatical person:
+
+"be".en.conjugate( :present, :third_person_singular )
+# => "is"
+
+"be".en.conjugate( :present, :first_person_singular )
+# => "am"
+
+"be".en.conjugate( :past, :first_person_singular )
+# => "was"
+
+# The functionality is a port of the verb conjugation portion of Morph
+# Adorner (http://morphadorner.northwestern.edu/).
+#
+# It includes a good number of irregular verbs, but it's not going to be
+# 100% correct everytime.
+
+
+# == WordNet® Integration
+
+# If you have the 'wordnet' gem installed, you can look up WordNet synsets using
+# the Linguistics interface:
+
+# Test to be sure the WordNet module loaded okay.
+Linguistics::EN.has_wordnet?
+# => true
+
+# Fetch the default synset for the word "balance"
+"balance".en.synset
+# => #<WordNet::Synset:0x40376844 balance (noun): "a state of equilibrium" (derivations: 3, antonyms: 1, hypernyms: 1, hyponyms: 3)>
+
+# Fetch the synset for the first verb sense of "balance"
+"balance".en.synset( :verb )
+# => #<WordNet::Synset:0x4033f448 balance, equilibrate, equilibrize, equilibrise (verb): "bring into balance or equilibrium; "She has to balance work and her domestic duties"; "balance the two weights"" (derivations: 7, antonyms: 1, verbGroups: 2, hypernyms: 1, hyponyms: 5)>
+
+# Fetch the second noun sense
+"balance".en.synset( 2, :noun )
+# => #<WordNet::Synset:0x404ebb24 balance (noun): "a scale for weighing; depends on pull of gravity" (hypernyms: 1, hyponyms: 5)>
+
+# Fetch the second noun sense's hypernyms (more-general words, like a superclass)
+"balance".en.synset( 2, :noun ).hypernyms
+# => [#<WordNet::Synset:0x404e5620 scale, weighing machine (noun): "a measuring instrument for weighing; shows amount of mass" (derivations: 2, hypernyms: 1, hyponyms: 2)>]
+
+# A simpler way of doing the same thing:
+"balance".en.hypernyms( 2, :noun )
+# => [#<WordNet::Synset:0x404e5620 scale, weighing machine (noun): "a measuring instrument for weighing; shows amount of mass" (derivations: 2, hypernyms: 1, hyponyms: 2)>]
+
+# Fetch the first hypernym's hypernyms
+"balance".en.synset( 2, :noun ).hypernyms.first.hypernyms
+# => [#<WordNet::Synset:0x404c60b8 measuring instrument, measuring system, measuring device (noun): "instrument that shows the extent or amount or quantity or degree of something" (hypernyms: 1, hyponyms: 83)>]
+
+# Find the synset to which both the second noun sense of "balance" and the
+# default sense of "shovel" belong.
+("balance".en.synset( 2, :noun ) | "shovel".en.synset)
+# => #<WordNet::Synset:0x40473da4 instrumentality, instrumentation (noun): "an artifact (or system of artifacts) that is instrumental in accomplishing some end" (derivations: 1, hypernyms: 1, hyponyms: 13)>
+
+# Fetch words for the specific kinds of (device-ish) "instruments"
+"instrument".en.hyponyms( "device" ).collect( &:words ).flatten.join(', ')
+# => ["analyzer", "analyser", "cautery", "cauterant", "drafting instrument", "extractor", "instrument of execution", "instrument of punishment", "measuring instrument", "measuring system", "measuring device", "medical instrument", "navigational instrument", "optical instrument", "plotter", "scientific instrument", "sonograph", "surveying instrument", "surveyor's instrument", "tracer", "weapon", "arm", "weapon system", "whip"]
+
+# ...or musical instruments
+"instrument".en.hyponyms( "musical" ).collect( &:words ).flatten.join(', ')
+# => ["analyzer", "analyser", "cautery", "cauterant", "drafting instrument", "extractor", "instrument of execution", "instrument of punishment", "measuring instrument", "measuring system", "measuring device", "medical instrument", "navigational instrument", "optical instrument", "plotter", "scientific instrument", "sonograph", "surveying instrument", "surveyor's instrument", "tracer", "weapon", "arm", "weapon system", "whip"]
+
+# There are many more WordNet methods supported--too many to list here. See the
+# documentation for the complete list.
+
+
+# == LinkParser Integration
+
+# If you have the 'linkparser' gem installed, you can create linkages
+# from English sentences that let you query for parts of speech:
+
+# Test to see whether or not the link parser is loaded.
+Linguistics::EN.has_linkparser?
+# => true
+
+# Diagram the first linkage for a test sentence
+puts "he is a big dog".en.sentence.linkages.first.diagram
+
+# Find the verb in the sentence
+"he is a big dog".en.sentence.verb
+# => "is"
+
+# Combined infinitive + LinkParser: Find the infinitive form of the verb of the
+# given sentence.
+"he is a big dog".en.sentence.verb.en.infinitive
+# => "be"
+
+# Find the direct object of the sentence
+"he is a big dog".en.sentence.object
+# => "dog"
+
+# Combine WordNet + LinkParser to find the definition of the direct object of
+# the sentence
+"he is a big dog".en.sentence.object.en.definition
+# =>
+
+

data/examples/generalize_sentence.rb

@@ -5,7 +5,8 @@ BEGIN {
 	
 	basedir = Pathname.new( __FILE__ ).dirname.parent.expand_path
 	libdir = basedir + "lib"
-	$LOAD_PATH.unshift( libdir ) unless $LOAD_PATH.include?( libdir )
+	$LOAD_PATH.unshift( basedir.to_s ) unless $LOAD_PATH.include?( basedir.to_s )
+	$LOAD_PATH.unshift( libdir.to_s ) unless $LOAD_PATH.include?( libdir.to_s )
 }
 
 require 'linguistics'

data/examples/klingon.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby -w
+
+require 'linguistics'
+
+# An example of how you'd start writing a language module that provides
+# Klingon-language inflecton.  It's obviously not really a useful
+# implementation.
+
+module Linguistics::TLH
+
+	# Register the module with the framework
+	Linguistics.register_language( :tlh, self )
+
+end
+
+
+if __FILE__ == $0
+	require 'pp'
+	Linguistics.use( :tlh, :classes => [Object] )
+	pp Object.new.tlh
+end
+

data/lib/linguistics.rb

@@ -1,244 +1,131 @@
 #!/usr/bin/ruby
+# coding: utf-8
 
-require 'linguistics/iso639'
-
-# A language-independent framework for adding linguistics functions to Ruby
-# classes.
-# 
-# == Synopsis
-# 
-#   require 'linguistics'
-#	Linguistics::use( :en )
-#	MyClass::extend( Linguistics )
-#
-# == Authors
-# 
-# * Michael Granger <ged@FaerieMUD.org>
-# 
-# :include: LICENSE
-#
-#--
-#
-# Please see the file LICENSE in the base directory for licensing details.
-#
+require 'loggability'
+
+# An interface for extending core Ruby classes with natural-language methods.
 module Linguistics
+	extend Loggability
+
+	# Loggability API -- set up a logger for Linguistics objects
+	log_as :linguistics
 
-	### Class constants
 
 	# Release version
-	VERSION = '1.0.9'
+	VERSION = '2.0.0'
 
-	# Language module implementors should do something like:
-	#   Linguistics::DefaultLanguages.push( :ja ) # or whatever
-	# so that direct requiring of a language module sets the default.
-	DefaultLanguages = []
+	# VCS version
+	REVISION = %q$Revision: a7cda4b8747c $
 
 	# The list of Classes to add linguistic behaviours to.
-	DefaultExtClasses = [String, Numeric, Array]
+	DEFAULT_EXT_CLASSES = [ String, Numeric, Array ]
 
 
-	#################################################################
-	###	I N F L E C T O R   C L A S S   F A C T O R Y
-	#################################################################
+	vvec = lambda {|version| version.split('.').collect {|v| v.to_i }.pack('N*') }
+	abort "This version of Linguistics requires Ruby 1.9.2 or greater." unless
+		vvec[RUBY_VERSION] >= vvec['1.9.2']
 
-	### A class which is inherited from by proxies for classes being extended
-	### with one or more linguistic interfaces. It provides on-the-fly creation
-	### of linguistic methods when the <tt>:installProxy</tt> option is passed
-	### to the call to Linguistics#use.
-	class LanguageProxyClass
-
-		### Class instance variable + accessor. Contains the module which knows
-		### the specifics of the language the languageProxy class is providing
-		### methods for.
-		@langmod = nil
-		class << self
-			attr_accessor :langmod
-		end
 
+	require 'linguistics/monkeypatches'
+	require 'linguistics/iso639'
+	require 'linguistics/inflector'
 
-		### Create a new LanguageProxy for the given +receiver+.
-		def initialize( receiver )
-			@receiver = receiver
-		end
+	include Linguistics::ISO639
 
 
-		######
-		public
-		######
+	### Language modules and the inflector classes that act as their interfaces
+	@languages        = {}
+	@inflector_mixins = {}
 
-		### Overloaded to take into account the proxy method.
-		def respond_to?( sym )
-			self.class.langmod.respond_to?( sym ) || super
-		end
+	class << self
+		# The Hash of loaded languages keyed by 3-letter bibliographic ISO639-2 code
+		attr_reader :languages
 
+		# The Hash of anonymous inflector modules that act as the mixin interface to
+		# a language module's inflector, keyed by the language module they belong to
+		attr_reader :inflector_mixins
+	end
 
-		### Autoload linguistic methods defined in the module this object's
-		### class uses for inflection.
-		def method_missing( sym, *args, &block )
-			return super unless self.class.langmod.respond_to?( sym )
 
-			self.class.module_eval %{
-				def #{sym}( *args, &block )
-					self.class.langmod.#{sym}( @receiver, *args, &block )
-				end
-			}, "{Autoloaded: " + __FILE__ + "}", __LINE__
+	### Return the library's version string
+	def self::version_string( include_buildnum=false )
+		vstring = "%s %s" % [ self.name, VERSION ]
+		vstring << " (build %s)" % [ REVISION[/: ([[:xdigit:]]+)/, 1] || '0' ] if include_buildnum
+		return vstring
+	end
 
-			self.method( sym ).call( *args, &block )
-		end
 
+	### Register a module as providing linguistic functions for the specified +language+ (a two- 
+	### or three-letter ISO639-2 language codes as a Symbol)
+	def self::register_language( language, mod )
+		language_entry = LANGUAGE_CODES[ language.to_sym ] or
+			raise "Unknown ISO639-2 language code '#{language}'"
+		self.log.info "Registering %s for language %p" % [ mod, language_entry ]
 
-		### Returns a human-readable representation of the languageProxy for
-		### debugging, logging, etc.
-		def inspect
-			"<%s languageProxy for %s object %s>" % [
-				self.class.langmod.language,
-				@receiver.class.name,
-				@receiver.inspect,
-			]
+		language_entry[:codes].each do |lang|
+			self.languages[ lang.to_sym ] = mod
 		end
 
-	end
-
-
-	### Extend the specified target object with one or more language proxy
-	### methods, each of which provides access to one or more linguistic methods
-	### for that language.
-	def self::extend_object( obj )
-		case obj
-		when Class
-			# $stderr.puts "Extending %p" % obj if $DEBUG
-			self::install_language_proxy( obj )
-		else
-			sclass = (class << obj; self; end)
-			# $stderr.puts "Extending a object's metaclass: %p" % obj if $DEBUG
-			self::install_language_proxy( sclass )
+		# Load in plugins for the language
+		Gem.find_files( "linguistics/#{language}/*.rb" ).each do |extension|
+			next if extension.include?( '/spec/' ) # Skip specs
+			extension.sub!( %r{.*/linguistics/}, 'linguistics/' )
+			self.log.debug "  trying to load #{language_entry[:eng_name]} extension %p" % [ extension ]
+			begin
+				require extension
+			rescue LoadError => err
+				self.log.debug "    failed (%s): %s %s" %
+					[ err.class.name, err.message, err.backtrace.first ]
+			else
+				self.log.debug "    success."
+			end
 		end
 
-		super
 	end
 
 
-	### Extend the including class with linguistics proxy methods.
-	def self::included( mod )
-		# $stderr.puts "Including Linguistics in %p" % mod if $DEBUG
-		mod.extend( self ) unless mod == Linguistics
-	end
+	### Try to load the module that implements the given language, returning
+	### the Module object if successful.
+	def self::load_language( lang )
+		unless mod = self.languages[ lang.to_sym ]
 
+			self.log.debug "Trying to load language %p" % [ lang ]
+			language = LANGUAGE_CODES[ lang.to_sym ] or
+				raise "Unknown ISO639-2 language code '#{lang}'"
+			self.log.debug "  got language code %p" % [ language ]
 
-	### Make an languageProxy class that encapsulates all of the inflect operations
-	### using the given language module.
-	def self::make_language_proxy( mod )
-		# $stderr.puts "Making language proxy for mod %p" % [mod]
-		Class::new( LanguageProxyClass ) {
-			@langmod = mod
-		}
-	end
+			# Sort all the codes for the specified language, trying the 2-letter
+			# versions first in alphabetical order, then the 3-letter ones
+			msgs = []
+			mod = nil
 
+			language[:codes].sort.each do |code|
+				next if code == ''
 
-	### Install the language proxy
-	def self::install_language_proxy( klass, languages=DefaultLanguages )
-		languages.replace( DefaultLanguages ) if languages.empty?
-
-		# Create an languageProxy class for each language specified
-		languages.each do |lang|
-			# $stderr.puts "Extending the %p class with %p" %
-			#	[ klass, lang ] if $DEBUG
-
-			# Load the language module (skipping to the next if it's already
-			# loaded), make a languageProxy class that delegates to it, and
-			# figure out what the languageProxy method will be called.
-			mod = load_language( lang.to_s.downcase )
-			ifaceMeth = mod.name.downcase.sub( /.*:/, '' )
-			languageProxyClass = make_language_proxy( mod )
-
-			# Install a hash for languageProxy classes and an accessor for the
-			# hash if it's not already present.
-			if !klass.class_variables.include?( "@@__languageProxy_class" )
-				klass.module_eval %{
-					@@__languageProxy_class = {}
-					def self::__languageProxy_class; @@__languageProxy_class; end
-				}, __FILE__, __LINE__
+				begin
+					require "linguistics/#{code}"
+					self.log.debug "  loaded linguistics/#{code}!"
+					mod = self.languages[ lang.to_sym ]
+					self.log.debug "  set mod to %p" % [ mod ]
+					break
+				rescue LoadError => err
+					self.log.error "  require of linguistics/#{code} failed: #{err.message}"
+					msgs << "Tried 'linguistics/#{code}': #{err.message}\n"
+				end
 			end
 
-			# Merge the current languageProxy into the hash
-			klass.__languageProxy_class.merge!( ifaceMeth => languageProxyClass )
-
-			# Set the language-code proxy method for the class unless it has one
-			# already
-			unless klass.instance_methods(true).include?( ifaceMeth )
-				klass.module_eval %{
-					def #{ifaceMeth}
-						@__#{ifaceMeth}_languageProxy ||=
-							self.class.__languageProxy_class["#{ifaceMeth}"].
-							new( self )
-					end
-				}, __FILE__, __LINE__
+			if mod.is_a?( Array )
+				raise LoadError,
+					"Failed to load language extension %s:\n%s" %
+					[ lang, msgs.join ]
 			end
-		end
-	end
-
-
 
-	### Install a regular proxy method in the given klass that will delegate
-	### calls to missing method to the languageProxy for the given +language+.
-	def self::install_delegator_proxy( klass, langcode )
-		raise ArgumentError, "Missing langcode" if langcode.nil?
-
-		# Alias any currently-extant
-		if klass.instance_methods( false ).include?( "method_missing" )
-			klass.module_eval %{
-				alias_method :__orig_method_missing, :method_missing
-			}
 		end
 
-		# Add the #method_missing method that auto-installs delegator methods
-		# for methods supported by the linguistic proxy objects.
-		klass.module_eval %{
-			def method_missing( sym, *args, &block )
-
-				# If the linguistic delegator answers the message, install a
-				# delegator method and call it.
-				if self.send( :#{langcode} ).respond_to?( sym )
-
-					# $stderr.puts "Installing linguistic delegator method \#{sym} " \
-					#	"for the '#{langcode}' proxy"
-					self.class.module_eval %{
-						def \#{sym}( *args, &block )
-							self.#{langcode}.\#{sym}( *args, &block )
-						end
-					}
-					self.method( sym ).call( *args, &block )
-
-				# Otherwise either call the overridden proxy method if there is
-				# one, or just let our parent deal with it.
-				else
-					if self.respond_to?( :__orig_method_missing )
-						return self.__orig_method_missing( sym, *args, &block )
-					else
-						super( sym, *args, &block )
-					end
-				end
-			end
-		}
-	end
-
-
-
-	#################################################################
-	###	L A N G U A G E - I N D E P E N D E N T   F U N C T I O N S
-	#################################################################
-
-
-	### Handle auto-magic usage
-	def self::const_missing( sym )
-		load_language( sym.to_s.downcase )
+		return mod
 	end
 
 
-	###############
-	module_function
-	###############
-
 	### Add linguistics functions for the specified languages to Ruby's core
 	### classes. The interface to all linguistic functions for a given language
 	### is through a method which is the same the language's international 2- or
@@ -247,120 +134,71 @@ module Linguistics
 	###
 	### [<b>:classes</b>]
 	###   Specify the classes which are to be extended. If this is not specified,
-	###   the Class objects in Linguistics::DefaultExtClasses (an Array) are
+	###   the Class objects in Linguistics::DEFAULT_EXT_CLASSES (an Array) are
 	###   extended.
-	### [<b>:installProxy</b>]
-	###   Install a proxy method in each of the classes which are to be extended
-	###   which will search for missing methods in the languageProxy for the
-	###   language code specified as the value. This allows linguistics methods
-	###   to be called directly on extended objects directly (e.g.,
-	###   12.en.ordinal becomes 12.ordinal). Obviously, methods which would
-	###   collide with the object's builtin methods will need to be invoked
-	###   through the languageProxy. Any existing proxy methods in the extended
-	###   classes will be preserved.
-	def use( *languages )
-		config = {}
+	### [<b>:monkeypatch</b>]
+	###   Monkeypatch directly (albeit responsibly, via a mixin) the specified
+	###   +classes+ instead of adding a single language-code method.
+	def self::use( *languages )
 		config = languages.pop if languages.last.is_a?( Hash )
+		config ||= {}
 
-		classes = config.key?( :classes ) ? config[:classes] : DefaultExtClasses
-		classes = [ classes ] unless classes.is_a?( Array )
+		classes = Array(config[:classes]) if config[:classes] 
+		classes ||= DEFAULT_EXT_CLASSES
 
-		# Install the languageProxy in each class.
-		classes.each {|klass|
+		self.log.debug "Extending %d classes with %d language modules." %
+			[ classes.length, languages.length ]
 
-			# Create an languageProxy class for each installed language
-			install_language_proxy( klass, languages )
+		# Mix the language module for each requested language into each
+		# specified class
+		classes.each do |klass|
+			self.log.debug "  extending %p" % [ klass ]
+			languages.each do |lang|
+				mod = load_language( lang ) or
+					raise LoadError, "failed to load a language extension for %p" % [ lang ]
+				self.log.debug "    using %s language module: %p" % [ lang, mod ]
 
-			# Install the delegator proxy if configured
-			if config[:installProxy]
-				case config[:installProxy]
-				when Symbol
-					langcode = config[:installProxy]
-				when String
-					langcode = config[:installProxy].intern
-				when TrueClass
-					langcode = languages[0] || DefaultLanguages[0] || :en
+				if config[:monkeypatch]
+					klass.send( :include, mod )
 				else
-					raise ArgumentError,
-						"Unexpected value %p for :installProxy" %
-						config[:installProxy]
+					inflector = make_inflector_mixin( lang, mod )
+					self.log.debug "    made an inflector mixin: %p" % [ inflector ]
+					klass.send( :include, inflector )
 				end
-
-				install_delegator_proxy( klass, langcode )
 			end
-		}
-	end
-
-
-
-	### Support Lingua::EN::Inflect-style globals in a threadsafe way by using
-	### Thread-local variables.
-
-	### Set the default count for all unspecified plurals to +val+. Setting is
-	### local to calling thread.
-	def num=( val )
-		Thread.current[:persistent_count] = val
-	end
-	alias_method :NUM=, :num=
+		end
 
-	### Get the default count for all unspecified plurals. Setting is local to
-	### calling thread.
-	def num
-		Thread.current[:persistent_count]
+		return classes
 	end
-	alias_method :NUM, :num
 
-	
-	### Set the 'classical pluralizations' flag to +val+. Setting is local to
-	### calling thread.
-	def classical=( val )
-		Thread.current[:classical_plurals] = val
-	end
 
-	### Return the value of the 'classical pluralizations' flag. Setting is
-	### local to calling thread.
-	def classical?
-		Thread.current[:classical_plurals] ? true : false
-	end
+	### Create a mixin module/class pair that act as the per-object interface to
+	### the given language +mod+'s inflector.
+	def self::make_inflector_mixin( lang, mod )
+		language = LANGUAGE_CODES[ lang.to_sym ] or
+			raise "Unknown ISO639-2 language code '#{lang}'"
 
+		unless mixin = self.inflector_mixins[ mod ]
+			self.log.debug "Making an inflector mixin for %p" % [ mod ]
 
-	#######
-	private
-	#######
+			bibcode, alpha2code, termcode = *language[:codes]
+			inflector = Class.new( Linguistics::Inflector ) { include(mod) }
+			self.log.debug "  created inflector class %p for [%p, %p, %p]" %
+				[ inflector, bibcode, termcode, alpha2code ]
 
-	### Try to load the module that implements the given language, returning
-	### the Module object if successful.
-	def self::load_language( lang )
-		raise "Unknown language code '#{lang}'" unless
-			LanguageCodes.key?( lang )
-
-		# Sort all the codes for the specified language, trying the 2-letter
-		# versions first in alphabetical order, then the 3-letter ones
-		msgs = []
-		mod = LanguageCodes[ lang ][:codes].sort {|a,b|
-			(a.length <=> b.length).nonzero? ||
-			(a <=> b)
-		}.each do |code|
-			unless Linguistics::const_defined?( code.upcase )
-				begin
-					require "linguistics/#{code}"
-				rescue LoadError => err
-					msgs << "Tried 'linguistics/#{code}': #{err.message}\n"
-					next
+			mixin = Module.new do
+				define_method( bibcode ) do
+					@__inflector ||= inflector.new( bibcode, self )
 				end
+				alias_method termcode, bibcode unless termcode.nil? || termcode.empty?
+				alias_method alpha2code, bibcode unless alpha2code.nil? || alpha2code.empty?
 			end
-
-			break Linguistics::const_get( code.upcase ) if
-				Linguistics::const_defined?( code.upcase )
+			self.inflector_mixins[ mod ] = mixin
 		end
 
-		if mod.is_a?( Array )
-			raise LoadError,
-				"Failed to load language extension %s:\n%s" %
-				[ lang, msgs.join ]
-		end
-		return mod
+		return mixin
 	end
 
-end # class linguistics
+
+end # module Linguistics