From 9ba1dc8347f7abdf18b34c96a42a80b2d19ea99e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=81ukasz=20Witkowski?= <witul@skyhost.pl>
Date: Tue, 5 May 2026 21:56:33 +0200
Subject: [PATCH] global-functions: add ToLower function

---
 global-functions.rsc | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/global-functions.rsc b/global-functions.rsc
index 10a9b5ac..9dcb4648 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -81,6 +81,7 @@
 :global SendNotification2;
 :global SymbolByUnicodeName;
 :global SymbolForNotification;
+:global ToLower;
 :global Unix2Dos;
 :global UrlEncode;
 :global ValidateSyntax;
@@ -302,6 +303,24 @@
   :return $Path;
 }
 
+# convert string to lower case
+:set ToLower do={
+  :local Input [ :tostr $1 ];
+  :local Upper "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+  :local Lower "abcdefghijklmnopqrstuvwxyz";
+  :local Return "";
+
+  :for I from=0 to=([ :len $Input ] - 1) do={
+    :local Char [ :pick $Input $I ];
+    :local Pos [ :find $Upper $Char ];
+    :if ([ :typeof $Pos ] != "nil") do={
+      :set Char [ :pick $Lower $Pos ($Pos + 1) ];
+    }
+    :set Return ($Return . $Char);
+  }
+  :return $Return;
+}
+
 # clean name for DNS, file and more
 :set CleanName do={
   :local Input [ :tostr $1 ];