From: Frédéric Vachon <fredvac@gmail.com>
Date: Fri, 11 Jul 2014 04:16:34 +0000 (-0400)
Subject: lib/standard: Added is_upper and is_lower to string.nit
X-Git-Tag: v0.6.7~68^2~1
X-Git-Url: http://nitlanguage.org

lib/standard: Added is_upper and is_lower to string.nit

Signed-off-by: Frédéric Vachon <fredvac@gmail.com>
---

diff --git a/lib/standard/string.nit b/lib/standard/string.nit
index 7e42fb6..eea52be 100644
--- a/lib/standard/string.nit
+++ b/lib/standard/string.nit
@@ -293,6 +293,33 @@ abstract class Text
 		return true
 	end
 
+	# Are all letters in `self` upper-case ?
+	#
+	#     assert "HELLO WORLD".is_upper == true
+	#     assert "%$&%!".is_upper       == true
+	#     assert "hello world".is_upper == false
+	#     assert "Hello World".is_upper == false
+	fun is_upper: Bool
+	do
+		for char in self.chars do 
+			if char.is_lower then return false
+		end
+		return true
+	end
+
+	# Are all letters in `self` lower-case ?
+	#
+	#     assert "hello world".is_lower == true
+	#     assert "%$&%!".is_lower       == true
+	#     assert "Hello World".is_lower == false
+	fun is_lower: Bool
+	do
+		for char in self.chars do 
+			if char.is_upper then return false
+		end
+		return true
+	end
+			
 	# Removes the whitespaces at the beginning of self
 	#
 	#     assert " \n\thello \n\t".l_trim == "hello \n\t"