[gobo-eiffel-commits] gobo/library/xml/general xm_string_mode.e,1.8,1.9

[Franck A. <fa...@us...>]

Update of /cvsroot/gobo-eiffel/gobo/library/xml/general
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13046/general

Modified Files:
	xm_string_mode.e 
Log Message:
latin1 string mode

Index: xm_string_mode.e
===================================================================
RCS file: /cvsroot/gobo-eiffel/gobo/library/xml/general/xm_string_mode.e,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** xm_string_mode.e	14 May 2004 05:03:59 -0000	1.8
--- xm_string_mode.e	30 Jun 2004 22:54:30 -0000	1.9
***************
*** 30,33 ****
--- 30,41 ----
  		end
  
+ 	is_string_mode_latin1: BOOLEAN is
+ 			-- Is string mode set to latin-1 only?
+ 			-- This means that all strings issued by this source
+ 			-- will be of dynamic type STRING.
+ 		do
+ 			Result := string_mode = String_mode_latin1
+ 		end
+ 
  	is_string_mode_mixed: BOOLEAN is
  			-- Is string mode set to polymorphic strings?
***************
*** 52,56 ****
  	set_string_mode_ascii is
  			-- Set all strings issued by this source to be ascii
! 			-- (all characters <127) to be of dynamic type STRING.
  			-- The source will be in an error state if it has
  			-- characters that do not fit in a STRING.
--- 60,64 ----
  	set_string_mode_ascii is
  			-- Set all strings issued by this source to be ascii
! 			-- (all characters <= 127) and be of dynamic type STRING.
  			-- The source will be in an error state if it has
  			-- characters that do not fit in a STRING.
***************
*** 61,64 ****
--- 69,83 ----
  		end
  
+ 	set_string_mode_latin1 is
+ 			-- Set all strings issued by this source to be latin-1
+ 			-- (all characters <= 255) and be of dynamic type STRING.
+ 			-- The source will be in an error state if it has
+ 			-- characters that do not fit in a STRING.
+ 		do
+ 			string_mode := String_mode_latin1
+ 		ensure
+ 			string_mode_set: is_string_mode_latin1
+ 		end
+ 			 
  	set_string_mode_mixed is
  			-- Set all strings issued by this source to be either of
***************
*** 112,123 ****
  feature {NONE} -- Implementation
  
! 	String_mode_ascii: INTEGER is 0
  	String_mode_unicode: INTEGER is 1
  	String_mode_mixed: INTEGER is 2
  			-- Values
  
  invariant
  
! 	mode_set: BOOLEAN_.nxor (<<is_string_mode_ascii, is_string_mode_mixed, is_string_mode_unicode>>)
  
  end
--- 131,143 ----
  feature {NONE} -- Implementation
  
! 	String_mode_latin1: INTEGER is 0
  	String_mode_unicode: INTEGER is 1
  	String_mode_mixed: INTEGER is 2
+ 	String_mode_ascii: INTEGER is 3
  			-- Values
  
  invariant
  
! 	mode_set: BOOLEAN_.nxor (<<is_string_mode_ascii, is_string_mode_mixed, is_string_mode_unicode, is_string_mode_latin1>>)
  
  end