global-functions: introduce $Dos2Unix

1 files changed, 10 insertions, 0 deletions

diff --git a/global-functions b/global-functions
index 84c7ece..d184650 100644
--- a/global-functions
+++ b/global-functions
@@ -25,6 +25,7 @@
 :global CharacterReplace;
 :global CleanFilePath;
 :global DeviceInfo;
+:global Dos2Unix;
 :global DownloadPackage;
 :global EitherOr;
 :global EscapeForRegEx;
@@ -226,6 +227,15 @@
        "\n    Version:    " . $ExpectedConfigVersion);
 }
 
+# convert line endings, DOS -> UNIX
+:set Dos2Unix do={
+  :local Input [ :tostr $1 ];
+
+  :global CharacterReplace;
+
+  :return [ $CharacterReplace $Input ("\r\n") ("\n") ];
+}
+
 # download package from upgrade server
 :set DownloadPackage do={
   :local PkgName [ :tostr $1 ];