TSCBasic: repair the Windows build after swiftlang#277

This fixes multiple issues with the file locking implementation on
Windows.  `AbsolutePath.root` is meaningless on Windows - there is
no concept of a singular root on Windows, instead you have have 26
individual roots - A-Z.  Stripping the count of characters for the
root path leaves us with an invalid path string as the root drives
have been stripped.  The next character is an invalid character on
most file systems, and so we must replace `:`.  Instead of using a
`MAX_NAME` to compute a length of the ARC, enforce a limit for the
complete path (though an ARC would be limited to 255 codepoints on
NTFS).  This incidentally also corrects the emitted path, previous
path computation left us with the file in PWD.

Author: compnerd

Sources/TSCBasic/Lock.swift

@@ -178,7 +178,23 @@ public final class FileLock {
             throw FileSystemError(.notDirectory, lockFilesDirectory)
         }
         // use the parent path to generate unique filename in temp
-        var lockFileName = (resolveSymlinks(fileToLock.parentDirectory).appending(component: fileToLock.basename)).components.joined(separator: "_") + ".lock"
+        var lockFileName = (resolveSymlinks(fileToLock.parentDirectory)
+                                .appending(component: fileToLock.basename))
+                                .components.joined(separator: "_")
+                                .replacingOccurrences(of: ":", with: "_") + ".lock"
+#if os(Windows)
+        // NTFS has an ARC limit of 255 codepoints
+        var lockFileUTF16 = lockFileName.utf16.suffix(255)
+        while String(lockFileUTF16) == nil {
+            lockFileUTF16 = lockFileUTF16.dropFirst()
+        }
+        lockFileName = String(lockFileUTF16) ?? lockFileName
+
+        let path = lockFilesDirectory.appending(component: lockFileName)
+        if path.pathString.utf8.count > Int(MAX_PATH) {
+            lockFileName = String(lockFileName.dropFirst(path.pathString.utf8.count - Int(MAX_PATH)))
+        }
+#else
         if lockFileName.hasPrefix(AbsolutePath.root.pathString) {
             lockFileName = String(lockFileName.dropFirst(AbsolutePath.root.pathString.count))
         }
@@ -191,6 +207,7 @@ public final class FileLock {
         }
         // we will never end up with nil since we have ASCII characters at the end
         lockFileName = String(lockFileUTF8) ?? lockFileName
+#endif
         let lockFilePath = lockFilesDirectory.appending(component: lockFileName)
 
         let lock = FileLock(at: lockFilePath)