indexing
	description: "Mixin class that provides portable character manipulation routines."
	project: "Project Goanna <http://sourceforge.net/projects/goanna>"
	library: "Utility"
	date: "$Date$"
	revision: "$Revision$"
	author: "Glenn Maughan <glennmaughan@optushome.com.au>"
	copyright: "Copyright (c) 2001 Glenn Maughan and others"
	license: "Eiffel Forum Freeware License v1 (see forum.txt)."

class
	CHARACTER_MANIPULATION

	obsolete "See 'obsolete' clause for individual routines"

feature -- Basic operations

	set_char_code (ch: CHARACTER_REF; code: INTEGER): CHARACTER is
			-- Set code of 'ch' to 'code'
		obsolete "Use int_to_char"
		require
			ch_exists: ch /= Void
		do
#ifdef ISE
			Result := '%U' + code
#else
#ifdef SE
			Result := code.to_character
#endif
#endif
		end
		
	int_to_char (code: INTEGER): CHARACTER is
			-- Convert int to character
		obsolete "Use Gobo's {KL_INTEGER_ROUTINES}.to_character"
		do
#ifdef ISE
			Result := '%U' + code
#else
#ifdef SE
			Result := code.to_character
#endif
#endif
		end

	char_to_lower (ch: CHARACTER): CHARACTER is
			-- Convert 'ch' to lower case.
		obsolete "Use Gobo's {KL_CHARACTER_ROUTINES}.as_lower"
		do
#ifdef ISE
			Result := ch.lower
#else
#ifdef SE
			Result := ch.to_lower
#endif
#endif
		end
	
end -- class CHARACTER_MANIPULATION