global-functions: introduce $Unix2Dos

This commit is contained in:
Christian Hesse 2023-02-13 10:12:16 +01:00
parent 62707dc549
commit 7d3c4738d0

View file

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