Efficient copying uc/first & lc/first for ASCIIStrings.

Author: StefanKarpinski

j/ascii.j

@@ -15,6 +15,56 @@ prevind(s::ASCIIString, i::Int) = i-1
 strcat(a::ASCIIString, b::ASCIIString, c::ASCIIString...) = ASCIIString(memcat(a,b,c...))
 ref(s::ASCIIString, r::Range1{Index}) = ASCIIString(ref(s.data,r))
 
+function ucfirst(s::ASCIIString)
+    if 'a' <= s[1] <= 'z'
+        t = strcpy(s)
+        t.data[1] -= 32
+        return t
+    end
+    return s
+end
+function lcfirst(s::ASCIIString)
+    if 'A' <= s[1] <= 'Z'
+        t = strcpy(s)
+        t.data[1] += 32
+        return t
+    end
+    return s
+end
+
+function uc(s::ASCIIString)
+    for i = 1:length(s)
+        if 'a' <= s[i] <= 'z'
+            t = strcpy(s)
+            t.data[i] -= 32
+            while i <= length(t)
+                if 'a' <= t[i] <= 'z'
+                    t.data[i] -= 32
+                end
+                i += 1
+            end
+            return t
+        end
+    end
+    return s
+end
+function lc(s::ASCIIString)
+    for i = 1:length(s)
+        if 'A' <= s[i] <= 'Z'
+            t = strcpy(s)
+            t.data[i] += 32
+            while i <= length(t)
+                if 'A' <= t[i] <= 'Z'
+                    t.data[i] += 32
+                end
+                i += 1
+            end
+            return t
+        end
+    end
+    return s
+end
+
 ## outputing ASCII strings ##
 
 print(s::ASCIIString) = print(s.data)