[gobo-eiffel-commits] gobo/library/kernel/unicode uc_shared_string_comparator.e,NONE,1.1 uc_string_comparator.e,NONE,1.1

[Eric B. <er...@us...>]

Update of /cvsroot/gobo-eiffel/gobo/library/kernel/unicode
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11774/library/kernel/unicode

Added Files:
	uc_shared_string_comparator.e uc_string_comparator.e 
Log Message:
String comparator

--- NEW FILE: uc_string_comparator.e ---
indexing

	description:

		"Comparators of strings that can be polymorphically unicode strings"

	library: "Gobo Eiffel Kernel Library"
	copyright: "Copyright (c) 2006, Eric Bezault and others"
	license: "Eiffel Forum License v2 (see forum.txt)"
	date: "$Date: 2006/02/26 10:26:52 $"
	revision: "$Revision: 1.1 $"

class UC_STRING_COMPARATOR

inherit

	KL_COMPARATOR [STRING]

	KL_IMPORTED_STRING_ROUTINES

feature -- Status report

	less_than (u, v: STRING): BOOLEAN is
			-- Is `u' considered less than `v'?
		do
			Result := STRING_.three_way_comparison (u, v) = -1
		end

end

--- NEW FILE: uc_shared_string_comparator.e ---
indexing

	description:

		"Shared comparator between strings that can be polymorphically unicode strings"

	library: "Gobo Eiffel Kernel Library"
	copyright: "Copyright (c) 2006, Eric Bezault and others"
	license: "Eiffel Forum License v2 (see forum.txt)"
	date: "$Date: 2006/02/26 10:26:52 $"
	revision: "$Revision: 1.1 $"

class UC_SHARED_STRING_COMPARATOR

feature -- Access

	string_comparator: UC_STRING_COMPARATOR is
			-- String comparator
		once
			create Result
		ensure
			string_comparator_not_void: Result /= Void
		end

end