global-functions: introduce $Unix2Dos

1 files changed, 11 insertions, 0 deletions

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