X-Git-Url: http://nitlanguage.org

diff --git a/lib/string_experimentations/utf8.nit b/lib/string_experimentations/utf8.nit
index f65a359..14f8550 100644
--- a/lib/string_experimentations/utf8.nit
+++ b/lib/string_experimentations/utf8.nit
@@ -16,6 +16,7 @@
 module utf8
 
 intrude import standard::string
+intrude import standard::file
 
 in "C Header" `{
 
@@ -144,6 +145,23 @@ extern class UnicodeChar `{ UTF8Char* `}
 		return false
 	end
 
+	redef fun output import UnicodeChar.code_point `{
+		switch(UnicodeChar_len(recv)){
+			case 1:
+				printf("%c", recv->ns[recv->pos]);
+				break;
+			case 2:
+				printf("%c%c", recv->ns[recv->pos], recv->ns[recv->pos + 1]);
+				break;
+			case 3:
+				printf("%c%c%c", recv->ns[recv->pos], recv->ns[recv->pos + 1], recv->ns[recv->pos + 2]);
+				break;
+			case 4:
+				printf("%c%c%c%c", recv->ns[recv->pos], recv->ns[recv->pos + 1], recv->ns[recv->pos + 2], recv->ns[recv->pos + 3]);
+				break;
+		}
+	`}
+
 	redef fun to_s import NativeString.to_s_with_length `{
 		int len = utf8___UnicodeChar_len___impl(recv);
 		char* r = malloc(len + 1);
@@ -324,6 +342,16 @@ redef class FlatString
 		return outstr.to_s_with_length(self.bytelen)
 	end
 
+	redef fun output
+	do
+		var i = self.index_from
+		var imax = self.index_to
+		while i <= imax do
+			index[i].output
+			i += 1
+		end
+	end
+
 end
 
 redef class NativeString
@@ -369,3 +397,17 @@ redef class NativeString
 		return new FlatString.with_infos_index(new_self, real_len.item, 0, real_len.item - 1, x, length)
 	end
 end
+
+redef class OFStream
+	redef fun write(s)
+	do
+		assert is_writable
+		if s isa FlatText then
+			if s isa FlatString then
+				write_native(s.to_cstring, s.bytelen)
+			else
+				write_native(s.to_cstring, s.length)
+			end
+		else for i in s.substrings do write_native(i.to_cstring, i.length)
+	end
+end