[Haskell-cafe] How to optimize a directory scanning?
magicloud.magiclouds at gmail.com
Fri May 10 02:13:54 UTC 2019
I could not tell, since those are some kind of "standard" functions of
On Fri, May 10, 2019 at 10:11 AM David Feuer <david.feuer at gmail.com> wrote:
> Pure speculation: are you paying for a lot of conversions between FilePath (string) and C strings?
> On Thu, May 9, 2019, 10:02 PM Magicloud Magiclouds <magicloud.magiclouds at gmail.com> wrote:
>> I have asked this in Stackoverflow without getting an answer.
>> Wondering if people here could have some thoughts.
>> I have a function reading the content of /proc every second.
>> Surprisingly, its CPU usage in top is around 5%, peak at 8%. But same
>> logic in C or Rust just takes like 1% or 2%. Wondering if this can be
>> improved. /proc is virtual filesystem, so this is not related to HDD
>> performance. And I noticed this difference because my CPU is too old
>> (Core Gen2). On modern CPU, as tested by others, the difference is
>> barely noticeable.
>> import Control.Exception
>> import Control.Concurrent
>> import Control.Monad
>> import Data.Char
>> import Data.Maybe
>> import System.Directory
>> import System.FilePath
>> import System.Posix.Files
>> import System.Posix.Signals
>> import System.Posix.Types
>> import System.Posix.User
>> import System.IO.Strict as Strict
>> watch u limit0s limit0h = do
>> listDirectory "/proc/" >>= mapM_ (\fp -> do
>> isMyPid' <- maybe False id <$> wrap2Maybe (isMyPid fp u)
>> wrap2Maybe (Strict.readFile ("/proc/" </> fp </> "stat")))
>> threadDelay 1000000
>> watch u limit0s limit0h
>> wrap2Maybe :: IO a -> IO (Maybe a)
>> wrap2Maybe f = catch ((<$>) Just $! f) (\(_ :: IOException) ->
>> return Nothing)
>> isMyPid :: FilePath -> UserID -> IO Bool
>> isMyPid fp me = do
>> let areDigit = fp >= "0" && fp <= "9"
>> isDir <- doesDirectoryExist $ "/proc/" </> fp
>> owner <- fileOwner <$> getFileStatus ("/proc" </> fp)
>> return $ areDigit && isDir && (owner == me)
>> Haskell-Cafe mailing list
>> To (un)subscribe, modify options or view archives go to:
>> Only members subscribed via the mailman list are allowed to post.
And for G+, please use magiclouds#gmail.com.
More information about the Haskell-Cafe