From 8f24b4c490ddb4404521feed8a579a34351568f5 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 4 Dec 2023 10:56:48 +0100
Subject: global-functions: introduce $CharacterMultiply

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

(limited to 'global-functions.rsc')

diff --git a/global-functions.rsc b/global-functions.rsc
index 6167348..bb4f098 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -24,6 +24,7 @@
 :global CertificateAvailable;
 :global CertificateDownload;
 :global CertificateNameByCN;
+:global CharacterMultiply;
 :global CharacterReplace;
 :global CleanFilePath;
 :global DeviceInfo;
@@ -172,6 +173,15 @@
     name=[ $CharacterReplace [ $CharacterReplace [ $CharacterReplace $CommonName "'" "-" ] " " "-" ] "---" "-" ];
 }
 
+# multiply given character(s)
+:set CharacterMultiply do={
+  :local Return "";
+  :for I from=1 to=$2 do={
+    :set Return ($Return . $1);
+  }
+  :return $Return;
+}
+
 # character replace
 :set CharacterReplace do={
   :local String [ :tostr $1 ];
-- 
cgit v1.2.3-54-g00ecf