forked from GitHub/gf-core
0e87a88f4b
* Introducing the module CGI, re-exporting a subset of the cgi package. It might complete replace the cgi package in the future. * Introducing the module CGIUtils, containing functions from FastCGIUtils that have nothing to do with fastcgi. Some low level hackery with unsafePerformIO and global variables was left in FastCGIUtils, but it is actually not used, neither for gf -server nor exec/pgf-fcgi.hs.
92 lines
3.2 KiB
Haskell
92 lines
3.2 KiB
Haskell
{-# OPTIONS_GHC -fwarn-unused-imports #-}
|
|
|
|
import Control.Monad(when)
|
|
import System.Directory(createDirectoryIfMissing,doesFileExist,
|
|
getDirectoryContents,copyFile,removeFile)
|
|
import System.FilePath((</>))
|
|
import System.Process(system)
|
|
import System.Exit(ExitCode(..))
|
|
|
|
import Distribution.Simple
|
|
import Distribution.Simple.Setup
|
|
import Distribution.Simple.LocalBuildInfo(datadir,buildDir,absoluteInstallDirs)
|
|
|
|
main :: IO ()
|
|
main = defaultMainWithHooks simpleUserHooks{ postInst = instWWW
|
|
, postCopy = copyWWW
|
|
}
|
|
--------------------------------------------------------------------------------
|
|
-- To test the GF web service and minibar, use "cabal install" (or
|
|
-- "runhaskell Setup.hs install") to install the program pgf-http, the
|
|
-- example grammars listed below, and the minibar. Then start the server with
|
|
-- the command "pgf-http" and open http://localhost:41296/minibar/minibar.html
|
|
-- in your web browser (Firefox, Safari, Opera or Chrome).
|
|
|
|
example_grammars =
|
|
-- (pgf, tmp, src)
|
|
[("Foods.pgf","foods",
|
|
".."</>".."</>"contrib"</>"summerschool"</>"foods"</>"Foods???.gf"),
|
|
("Letter.pgf","letter",
|
|
".."</>".."</>"examples"</>"letter"</>"Letter???.gf")]
|
|
|
|
minibar_src = ".."</>"www"</>"minibar"
|
|
|
|
--------------------------------------------------------------------------------
|
|
instWWW args flags pki lbi = setupWWW args dest pki lbi
|
|
where
|
|
dest = NoCopyDest
|
|
|
|
copyWWW args flags pki lbi = setupWWW args dest pki lbi
|
|
where
|
|
dest = case copyDest flags of
|
|
NoFlag -> NoCopyDest
|
|
Flag d -> d
|
|
|
|
setupWWW args dest pkg lbi =
|
|
do mapM_ (createDirectoryIfMissing True) [grammars_dir,minibar_dir]
|
|
mapM_ build_pgf example_grammars
|
|
copy_minibar
|
|
create_root_index
|
|
where
|
|
grammars_dir = www_dir </> "grammars"
|
|
minibar_dir = www_dir </> "minibar"
|
|
www_dir = datadir (absoluteInstallDirs pkg lbi dest) </> "www"
|
|
gfo_dir = buildDir lbi </> "gfo"
|
|
|
|
build_pgf (pgf,tmp,src) =
|
|
do createDirectoryIfMissing True tmp_dir
|
|
execute cmd
|
|
copyFile pgf (grammars_dir</>pgf)
|
|
removeFile pgf
|
|
where
|
|
tmp_dir = gfo_dir</>tmp
|
|
cmd = "gf -make -s -optimize-pgf --gfo-dir="++tmp_dir++
|
|
-- " --output-dir="++grammars_dir++ -- has no effect?!
|
|
" "++src
|
|
|
|
copy_minibar =
|
|
do files <- getDirectoryContents minibar_src
|
|
mapM_ copy files
|
|
where
|
|
copy file =
|
|
do isFile <- doesFileExist src
|
|
when isFile $ copyFile src (minibar_dir</>file)
|
|
where
|
|
src = minibar_src</>file
|
|
|
|
create_root_index = writeFile (www_dir</>"index.html") index_html
|
|
|
|
index_html = "<h1>PGF service</h1>\n<h2>Available demos</h2>\n"
|
|
++"<ul><li><a href=\"minibar/minibar.html\">Minibar</a></ul>"
|
|
++"Additional grammars can be installed in"
|
|
++"<blockquote><code>"++grammars_dir++"</code></blockquote>"
|
|
++"<a href=\"http://www.grammaticalframework.org/\">"
|
|
++"Grammatical Framework</a>"
|
|
execute command =
|
|
do putStrLn command
|
|
e <- system command
|
|
case e of
|
|
ExitSuccess -> return ()
|
|
_ -> fail "Command failed"
|
|
return ()
|