Как получить идентификатор процесса созданного процесса в Haskell?

Question

Возможно, мне просто не хватает чего-то очевидного в API System.Process (http://hackage.haskell.org/package/process), но, похоже, он не поддерживает получение исходного PID созданного процесса. API обычно возвращает ProcessHandle, который можно использовать достаточно легко, но это, похоже, не соответствует потребностям развертывания, которые у меня есть.

У меня есть случай, когда я хочу запустить длительный процесс, зарегистрировать PID, который он использует, и иметь возможность автоматически возвращаться в более позднее время (дни, недели, месяцы) и убивать старый процесс и повторно -START с новым процессом. Я уверен, что есть несколько способов сделать это автоматически развернуть и перезапустить, но PID выглядели как самый простой способ сделать это без слишком большого кода, зависящего от платформы.

Я открыт для других предложений по моей основной проблеме, но мне кажется странным, что я не могу найти прямых ссылок PID (или способ их преобразования в API процесса). Это похоже на контроль API.

Answer 1

Вот несколько примеров кода:

import System.Process 
import System.Process.Internals 

-- | returns Just pid or Nothing if process has already exited 
getPid ph = withProcessHandle ph go 
    where 
    go ph_ = case ph_ of 
       OpenHandle x -> return $ Just x 
       ClosedHandle _ -> return Nothing 

main = do 
    (_,_,_,ph) <- createProcess $ shell "echo $$" 
    getPid ph >>= print 

Примечание: I убежище 't тестировал это под Windows, но он работает на OSX и, предположительно, на Linux.

для Windows, то Win32 package имеет getProcessId функцию в модуле System.Win32.Process, и в соответствии с кодом, я прочитал, что это должно работать:

import System.Win32.Process (getProcessId) 

main = do 
    (_,_,_,ph) <- createProcess $ shell "echo $$" 
    pid <- withProcessHandle ph go 
    print pid 

    where go (OpenHandle x) = fmap Just $ getProcessId x 
     go (ClosedHandle _) = return Nothing 

код я обосновывая это код для interruptProcessGroupOf(link)

Answer 2

Если все остальное терпит неудачу,

import System.Process.Internals 

, а затем выкопать внутри ProcessHandle абстракции. Вероятно, вы хотите извлечь PHANDLE из MVar.

Обратите внимание, что это разрушает уровень абстракции, который предназначен для переноса кода через ОС. Используйте его с особой осторожностью и будьте готовы к тому, чтобы он разбился на новые версии библиотеки.

Answer 3

Похоже interruptProcessGroupOf в System.Process вызовов либо System.Posix.Process.getProcessGroupIDOf (POSIX/не Windows) или System.Win32.Process.getProcessId (Windows), чтобы получить PID: http://git.haskell.org/packages/process.git/blob/HEAD:/System/Process.hs