Add File::copy(), only replace current EOL sequence in Str::setEol()

Author: lkrms

src/Utility/File.php

@@ -125,6 +125,18 @@ public static function tell($stream, $uri = null): int
         return self::throwOnFailure($result, 'Error getting file position indicator for stream: %s', $uri, $stream);
     }
 
+    /**
+     * Copy a file
+     *
+     * @see copy()
+     * @throws FilesystemErrorException on failure.
+     */
+    public static function copy(string $from, string $to): void
+    {
+        $result = @copy($from, $to);
+        self::throwOnFailure($result, 'Error copying %s to %s', $from, null, false, $to);
+    }
+
     /**
      * Get the status of a file or stream
      *
@@ -738,17 +750,18 @@ public static function getStreamUri($stream): ?string
      * @param Stringable|string|null $uri
      * @param resource|null $stream
      * @param TFailure $failure
+     * @param string|int|float ...$args
      * @return ($result is TFailure ? never : TSuccess)
      */
-    private static function throwOnFailure($result, string $message, $uri, $stream = null, $failure = false)
+    private static function throwOnFailure($result, string $message, $uri, $stream = null, $failure = false, ...$args)
     {
         if ($result === $failure) {
             $error = error_get_last();
             if ($error) {
                 throw new FilesystemErrorException($error['message']);
             }
             throw new FilesystemErrorException(
-                sprintf($message, self::getFriendlyStreamUri($uri, $stream))
+                sprintf($message, self::getFriendlyStreamUri($uri, $stream), ...$args)
             );
         }
         return $result;

src/Utility/Str.php

@@ -60,21 +60,19 @@ public static function upperFirst(string $string): string
     /**
      * Apply an end-of-line sequence to a string
      */
-    public static function setEol(string $string, string $eol = "\n"): string
+    public static function setEol(string $string, string $eol = "\n", ?string $currentEol = null): string
     {
-        switch ($eol) {
-            case "\n":
-                return str_replace(["\r\n", "\r"], $eol, $string);
-
-            case "\r":
-                return str_replace(["\r\n", "\n"], $eol, $string);
-
-            case "\r\n":
-                return str_replace(["\r\n", "\r", "\n"], ["\n", "\n", $eol], $string);
-
-            default:
-                throw new InvalidArgumentException(sprintf('Invalid end-of-line sequence: %s', $eol));
+        if ($currentEol === null) {
+            $currentEol = Get::eol($string);
+            // No end-of-line sequence = no line breaks = nothing to do
+            if ($currentEol === null) {
+                return $string;
+            }
+        }
+        if ($eol === $currentEol) {
+            return $string;
         }
+        return str_replace($currentEol, $eol, $string);
     }
 
     /**