global-functions: introduce $CharacterMultiply

1 files changed, 10 insertions, 0 deletions

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 ];