Added SIOD compatability routines string-downcase and string-upcase.

plug-ins/script-fu/scripts/script-fu-compat.init

@@ -182,8 +182,8 @@
   )
 )
 
-(define (substring-equal? str str2 start end)
-  (string=? str (substring str2 start end))
+(define (string-downcase str)
+  (list->string (map char-downcase (string->list str)))
 )
 
 (define (string-trim str)
@@ -219,6 +219,14 @@
   )
 )
 
+(define (string-upcase str)
+  (list->string (map char-upcase (string->list str)))
+)
+
+(define (substring-equal? str str2 start end)
+  (string=? str (substring str2 start end))
+)
+
 (define (unbreakupstr stringlist sep)
   (let ((str (car stringlist)))