GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-20 02:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Multithreaded gf.fcgi.

Browse Source
This commit is contained in:
bjorn
2008-10-16 13:00:44 +00:00
parent 11ba8a6a17
commit f211fc10ca
3 changed files with 28 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/server/MainFastCGI.hs
View File

@@ -5,28 +5,29 @@ import qualified PGF
import FastCGIUtils
import URLEncoding
import Network.CGI
import Network.FastCGI
import Text.JSON
import qualified Codec.Binary.UTF8.String as UTF8 (encodeString, decodeString)
import Control.Concurrent
import Control.Monad
import Data.Char
import qualified Data.Map as Map
import Data.Maybe
import System.Environment
grammarFile :: FilePath
grammarFile = "grammar.pgf"
grammarFile :: IO FilePath
grammarFile = do env <- getEnvironment
return $ fromMaybe "grammar.pgf" $ lookup "PGF_FILE" env
main :: IO ()
main = do initFastCGI
r <- newDataRef
loopFastCGI (handleErrors (handleCGIErrors (fcgiMain r)))
ref <- grammarFile >>= newDataRef PGF.readPGF
runFastCGIConcurrent' forkIO 100 (handleErrors (handleCGIErrors (fcgiMain ref)))
fcgiMain :: DataRef PGF -> CGI CGIResult
fcgiMain ref = getData (liftIO . PGF.readPGF) ref grammarFile >>= cgiMain
fcgiMain ref = liftIO (getData ref) >>= cgiMain
cgiMain :: PGF -> CGI CGIResult
cgiMain pgf =