[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 6657272a75607280c345a4bc9969efaed78fba8d
Author: John Goerzen <jgoerzen at complete.org>
Date:   Wed Sep 28 23:49:54 2005 +0100

    Added Daemon.hs with support for detaching

diff --git a/MissingH/Daemon.hs b/MissingH/Daemon.hs
new file mode 100644
index 0000000..2764b02
--- /dev/null
+++ b/MissingH/Daemon.hs
@@ -0,0 +1,95 @@
+{-# LANGUAGE CPP #-}
+{-
+Copyright (C) 2005 John Goerzen <jgoerzen at complete.org>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+-}
+
+{- |
+   Module     : MissingH.Daemon
+   Copyright  : Copyright (C) 2005 John Goerzen
+   License    : GNU GPL, version 2 or above
+
+   Maintainer : John Goerzen, 
+   Maintainer : jgoerzen at complete.org
+   Stability  : provisional
+   Portability: portable to platforms with POSIX process/signal tools
+
+Tools for writing daemons\/server processes
+
+Written by John Goerzen, jgoerzen\@complete.org
+
+Please note: Most of this module is not compatible with Hugs.
+
+Messages from this module are logged under @MissingH.Daemon at .  See
+'MissingH.Logging.Logger' for details.
+
+Based on background
+from <http://www.erlenstar.demon.co.uk/unix/faq_2.html#SEC16> and
+<http://www.haskell.org/hawiki/HaskellUnixDaemon>.
+
+This module is not available on Windows.
+-}
+
+module MissingH.Daemon (
+
+#ifndef mingw32_HOST_OS
+        detachDaemon
+#endif
+		   )
+where
+
+import System.Posix.Process
+import System.Posix.IO
+import System.Directory
+
+#ifndef mingw32_HOST_OS
+
+{- | Detach the process from a controlling terminal and run it in the
+background, handling it with standard Unix deamon semantics.
+
+After running this, please note the following side-effects:
+
+ * The PID of the running process will change
+
+ * stdin, stdout, and stderr will not work (they'll be set to 
+   \/dev\/null)
+
+ * CWD will be changed to \/
+
+I /highly/ suggest running this function before starting any threads.
+
+Note that this is not intended for a daemon invoked from inetd(1).
+-}
+
+detachDaemon :: IO ()
+detachDeamon = forkProcess child1 >> exitImmediately ExitSuccess
+
+child1 :: IO ()
+child1 =
+    do createSession
+       forkProcess child2
+       exitImmediately ExitSuccess
+
+child2 :: IO ()
+child2 =
+    do setCurrentDirectory "/"
+       mapM_ closeFd [stdInput, stdOutput, stdError]
+       nullFd <- openFd "/dev/null" ReadWrite Nothing defaultFileFlags
+       mapM_ (dupTo nullFd) [stdInput, stdOutput, stdError]
+       closeFd nullFd
+
+
+#endif
\ No newline at end of file

-- 
haskell-testpack