From 7d3c4738d07e040cbe3c293ef0b2be04631290eb Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 13 Feb 2023 10:12:16 +0100
Subject: global-functions: introduce $Unix2Dos

---
 global-functions | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/global-functions b/global-functions
index 89d2612..84c7ece 100644
--- a/global-functions
+++ b/global-functions
@@ -55,6 +55,7 @@
 :global SendNotification2;
 :global SymbolByUnicodeName;
 :global SymbolForNotification;
+:global Unix2Dos;
 :global UrlEncode;
 :global ValidateSyntax;
 :global VersionToNum;
@@ -1125,6 +1126,16 @@
   :return ($Return . " ");
 }
 
+# convert line endings, UNIX -> DOS
+:set Unix2Dos do={
+  :local Input [ :tostr $1 ];
+
+  :global CharacterReplace;
+
+  :return [ $CharacterReplace [ $CharacterReplace $Input \
+    ("\n") ("\r\n") ] ("\r\r\n") ("\r\n") ];
+}
+
 # url encoding
 :set UrlEncode do={
   :local Input [ :tostr $1 ];
-- 
cgit v1.2.3-70-g09d2