[gimp/soc-2010-cage] Added SIOD compatability routines string-downcase and string-upcase.



commit 6c59d575c0ad65540b6d56d5e80cd4979269def4
Author: Kevin Cozens <kcozens cvs gnome org>
Date:   Mon Jun 21 22:54:46 2010 -0400

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

 plug-ins/script-fu/scripts/script-fu-compat.init |   12 ++++++++++--
 1 files changed, 10 insertions(+), 2 deletions(-)
---
diff --git a/plug-ins/script-fu/scripts/script-fu-compat.init b/plug-ins/script-fu/scripts/script-fu-compat.init
index 708ba8c..33750e6 100644
--- a/plug-ins/script-fu/scripts/script-fu-compat.init
+++ b/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)))
 



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]