From bca1991d05de8f3cf652fda1177a2ed3d95697de Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sun, 25 Jan 2009 15:07:29 +0000
Subject: [PATCH] hack for pgf-server for Windows

---
 src/server/FastCGIUtils.hs  | 42 +++++++++++++++++++++++++++----------
 src/server/pgf-server.cabal |  5 ++++-
 2 files changed, 35 insertions(+), 12 deletions(-)

diff --git a/src/server/FastCGIUtils.hs b/src/server/FastCGIUtils.hs
index 737bcd274..417b98518 100644
--- a/src/server/FastCGIUtils.hs
+++ b/src/server/FastCGIUtils.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveDataTypeable, CPP #-}
 module FastCGIUtils (initFastCGI, loopFastCGI,
                      throwCGIError, handleCGIErrors,
                      stderrToFile,
@@ -16,7 +16,9 @@ import System.Environment
 import System.Exit
 import System.IO
 import System.IO.Unsafe
+#ifndef mingw32_HOST_OS
 import System.Posix
+#endif
 import System.Time
 
 import Network.FastCGI
@@ -40,6 +42,7 @@ loopFastCGI f =
 -- Signal handling for FastCGI programs.
 
 
+#ifndef mingw32_HOST_OS
 installSignalHandlers :: IO ()
 installSignalHandlers =
     do t <- myThreadId
@@ -48,15 +51,6 @@ installSignalHandlers =
        installHandler sigPIPE (Catch (requestAborted t)) Nothing
        return ()
 
-{-# NOINLINE shouldExit #-}
-shouldExit :: IORef Bool
-shouldExit = unsafePerformIO $ newIORef False
-
-catchAborted ::  IO a -> IO a -> IO a
-catchAborted x y = x `catch` \e -> case e of
-                                     ErrorCall "**aborted**" -> y
-                                     _ -> throw e
-
 requestAborted :: ThreadId -> IO ()
 requestAborted t = throwTo t (ErrorCall "**aborted**")
   
@@ -68,6 +62,10 @@ gracefulExit :: IO ()
 gracefulExit = 
     do logError "Graceful exit"
        writeIORef shouldExit True
+#else
+installSignalHandlers :: IO ()
+installSignalHandlers = return ()
+#endif
 
 exitIfToldTo :: IO ()
 exitIfToldTo = 
@@ -75,9 +73,18 @@ exitIfToldTo =
        when b $ do logError "Exiting..."
                    exitWith ExitSuccess
 
+{-# NOINLINE shouldExit #-}
+shouldExit :: IORef Bool
+shouldExit = unsafePerformIO $ newIORef False
+
+catchAborted ::  IO a -> IO a -> IO a
+catchAborted x y = x `catch` \e -> case e of
+                                     ErrorCall "**aborted**" -> y
+                                     _ -> throw e
 
 -- Restart handling for FastCGI programs.
 
+#ifndef mingw32_HOST_OS
 {-# NOINLINE myModTimeRef #-}
 myModTimeRef :: IORef EpochTime
 myModTimeRef = unsafePerformIO (getProgModTime >>= newIORef)
@@ -106,8 +113,14 @@ restartIfModified =
                          -- FIXME: setCurrentDirectory?
                          executeFile prog False args Nothing
 
+#else
+restartIfModified :: IO ()
+restartIfModified = return ()
+#endif
+
 -- Logging
 
+#ifndef mingw32_HOST_OS
 logError :: String -> IO ()
 logError s = hPutStrLn stderr s
 
@@ -117,6 +130,13 @@ stderrToFile file =
        fileFd <- openFd file WriteOnly (Just mode) (defaultFileFlags { append = True })
        dupTo fileFd stdError
        return ()
+#else
+logError :: String -> IO ()
+logError s = return ()
+
+stderrToFile :: FilePath -> IO ()
+stderrToFile s = return ()
+#endif
 
 -- * General CGI Error exception mechanism
 
@@ -154,4 +174,4 @@ splitBy :: (a -> Bool) -> [a] -> [[a]]
 splitBy _ [] = [[]]
 splitBy f list = case break f list of
                    (first,[]) -> [first]
-                   (first,_:rest) -> first : splitBy f rest
\ No newline at end of file
+                   (first,_:rest) -> first : splitBy f rest
diff --git a/src/server/pgf-server.cabal b/src/server/pgf-server.cabal
index f20d61a47..5e6301338 100644
--- a/src/server/pgf-server.cabal
+++ b/src/server/pgf-server.cabal
@@ -9,7 +9,6 @@ synopsis: FastCGI Server for Grammatical Framework
 executable pgf.fcgi
   build-depends: base,
                  old-time,
-                 unix,
                  directory,
                  filepath,
                  containers,
@@ -18,9 +17,13 @@ executable pgf.fcgi
                  fastcgi >= 3001.0.2.1,
                  json >= 0.3.3,
                  utf8-string >= 0.3.1.1
+  if !os(windows)
+    build-depends: unix
   main-is: PGFService.hs
   other-modules:
     FastCGIUtils
     Cache
     URLEncoding
   ghc-options: -threaded
+  if os(windows)
+    ghc-options: -optl-mwindows