mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

work around a wrinkle in how lsof handles hard links to files that are open elsewhere

Browse source 
+d is probably more expensive, but I need it
This commit is contained in:
Joey Hess 2012-06-15 22:34:42 -04:00
parent 3dac81d345
commit bb6074dfea
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Utility/Lsof.hs
View file

@ -21,9 +21,14 @@ type CmdLine = String
data ProcessInfo = ProcessInfo ProcessID CmdLine data ProcessInfo = ProcessInfo ProcessID CmdLine
deriving (Show) deriving (Show)
query :: FilePath -> IO [(FilePath, LsofOpenMode, ProcessInfo)] {- Checks each of the files in a directory to find open files.
query p = do - Note that this will find hard links to files elsewhere that are open. -}
(pid, s) <- pipeFrom "lsof" ["-F0can", "--", p] queryDir :: FilePath -> IO [(FilePath, LsofOpenMode, ProcessInfo)]
queryDir path = query ["+d", path]
query :: [String] -> IO [(FilePath, LsofOpenMode, ProcessInfo)]
query opts = do
(pid, s) <- pipeFrom "lsof" ("-F0can" : opts)
let !r = parse s let !r = parse s
-- ignore nonzero exit code; lsof returns that when no files are open -- ignore nonzero exit code; lsof returns that when no files are open
void $ getProcessStatus True False $ processID pid void $ getProcessStatus True False $ processID pid