GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Setup.hs: build both alltenses and present by default

Browse Source 
Now you can specify more than one mode when building and installing the RGL.
For example to build all modes, run

        runhaskell Setup.hs build alltenses present minimal

The default is to build alltenses and present, which means that a single
command,

        cabal install

is enough to obtain a normal installation of GF. Without this change, additional
build and install commands would be required before you can compile example
grammars, like Foods and Phrasebook.

The build-binary-dist.sh script has been simplified accordingly.
This commit is contained in:
hallgren
2010-12-22 21:18:47 +00:00
parent e93fdce56f
commit d47da82d00
2 changed files with 37 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
Setup.hs
View File

@@ -32,17 +32,15 @@ main = defaultMainWithHooks simpleUserHooks{ preBuild =checkRGLArgs
-- Commands for building the Resource Grammar Library -- Commands for building the Resource Grammar Library
-------------------------------------------------------- --------------------------------------------------------
data Mode data Mode = AllTenses | Present | Minimal deriving Show
= AllTenses all_modes = ["minimal","present","alltenses"]
| Present default_modes = [Present,AllTenses]
| Minimal
deriving Show
data RGLCommand data RGLCommand
= RGLCommand = RGLCommand
{ cmdName :: String { cmdName :: String
, cmdIsDef :: Bool , cmdIsDef :: Bool
, cmdAction :: Mode -> [String] -> PackageDescription -> LocalBuildInfo -> IO () , cmdAction :: [Mode] -> [String] -> PackageDescription -> LocalBuildInfo -> IO ()
} }
rglCommands = rglCommands =
@@ -61,11 +59,16 @@ rglCommands =
, RGLCommand "api" True $ \mode args pkg lbi -> do , RGLCommand "api" True $ \mode args pkg lbi -> do
mapM_ (gfc mode pkg lbi . try) (optl langsAPI args) mapM_ (gfc mode pkg lbi . try) (optl langsAPI args)
mapM_ (gfc mode pkg lbi . symbolic) (optl langsSymbolic args) mapM_ (gfc mode pkg lbi . symbolic) (optl langsSymbolic args)
, RGLCommand "pgf" False $ \mode args pkg lbi -> do , RGLCommand "pgf" False $ \modes args pkg lbi ->
let dir = getRGLBuildDir lbi mode sequence_ [
do let dir = getRGLBuildDir lbi mode
createDirectoryIfMissing True dir createDirectoryIfMissing True dir
sequence_ [run_gfc pkg lbi ["-s","-make","-name=Lang"++la,dir ++ "/Lang" ++ la ++ ".gfo"] | (_,la) <- optl langsPGF args] sequence_ [run_gfc pkg lbi ["-s","-make","-name=Lang"++la,
run_gfc pkg lbi (["-s","-make","-name=Lang"]++["Lang" ++ la ++ ".pgf" | (_,la) <- optl langsPGF args]) dir ++ "/Lang" ++ la ++ ".gfo"]
| (_,la) <- optl langsPGF args]
run_gfc pkg lbi (["-s","-make","-name=Lang"]++
["Lang" ++ la ++ ".pgf"|(_,la)<-optl langsPGF args])
| mode <- modes]
, RGLCommand "demo" False $ \mode args pkg lbi -> do , RGLCommand "demo" False $ \mode args pkg lbi -> do
let ls = optl langsDemo args let ls = optl langsDemo args
gf (demos "Demo" ls) ["demo/Demo" ++ la ++ ".gf" | (_,la) <- ls] pkg lbi gf (demos "Demo" ls) ["demo/Demo" ++ la ++ ".gf" | (_,la) <- ls] pkg lbi
@@ -81,8 +84,7 @@ rglCommands =
-------------------------------------------------------- --------------------------------------------------------
checkRGLArgs args flags = do checkRGLArgs args flags = do
let args' = filter (\arg -> not (arg == "present" || let args' = filter (\arg -> not (arg `elem` all_modes ||
arg == "minimal" ||
rgl_prefix `isPrefixOf` arg || rgl_prefix `isPrefixOf` arg ||
langs_prefix `isPrefixOf` arg)) args langs_prefix `isPrefixOf` arg)) args
if null args' if null args'
@@ -91,23 +93,23 @@ checkRGLArgs args flags = do
buildRGL args flags pkg lbi = do buildRGL args flags pkg lbi = do
let cmds = getRGLCommands args let cmds = getRGLCommands args
let mode = getOptMode args let modes = getOptMode args
mapM_ (\cmd -> cmdAction cmd mode args pkg lbi) cmds mapM_ (\cmd -> cmdAction cmd modes args pkg lbi) cmds
installRGL args flags pkg lbi = do installRGL args flags pkg lbi = do
let mode = getOptMode args let modes = getOptMode args
let inst_gf_lib_dir = datadir (absoluteInstallDirs pkg lbi NoCopyDest) </> "lib" let inst_gf_lib_dir = datadir (absoluteInstallDirs pkg lbi NoCopyDest) </> "lib"
copyAll "prelude" (rgl_dst_dir lbi </> "prelude") (inst_gf_lib_dir </> "prelude") copyAll "prelude" (rgl_dst_dir lbi </> "prelude") (inst_gf_lib_dir </> "prelude")
copyAll (show mode) (getRGLBuildDir lbi mode) (inst_gf_lib_dir </> getRGLBuildSubDir lbi mode) sequence_ [copyAll (show mode) (getRGLBuildDir lbi mode) (inst_gf_lib_dir </> getRGLBuildSubDir lbi mode)|mode<-modes]
copyRGL args flags pkg lbi = do copyRGL args flags pkg lbi = do
let mode = getOptMode args let modes = getOptMode args
dest = case copyDest flags of dest = case copyDest flags of
NoFlag -> NoCopyDest NoFlag -> NoCopyDest
Flag d -> d Flag d -> d
let inst_gf_lib_dir = datadir (absoluteInstallDirs pkg lbi dest) </> "lib" let inst_gf_lib_dir = datadir (absoluteInstallDirs pkg lbi dest) </> "lib"
copyAll "prelude" (rgl_dst_dir lbi </> "prelude") (inst_gf_lib_dir </> "prelude") copyAll "prelude" (rgl_dst_dir lbi </> "prelude") (inst_gf_lib_dir </> "prelude")
copyAll (show mode) (getRGLBuildDir lbi mode) (inst_gf_lib_dir </> getRGLBuildSubDir lbi mode) sequence_ [copyAll (show mode) (getRGLBuildDir lbi mode) (inst_gf_lib_dir </> getRGLBuildSubDir lbi mode)|mode<-modes]
copyAll s from to = do copyAll s from to = do
putStrLn $ "Installing [" ++ s ++ "] " ++ to putStrLn $ "Installing [" ++ s ++ "] " ++ to
@@ -204,6 +206,9 @@ langsCoding = [
langs = map fst langsCoding langs = map fst langsCoding
-- default set of languages to compile
-- defaultLangs = langs `only` words "Eng Fre Ger Ita Spa Swe"
-- languagues for which to compile Lang -- languagues for which to compile Lang
langsLang = langs `except` ["Amh","Ara","Lat","Hin","Tha","Tur","Urd"] langsLang = langs `except` ["Amh","Ara","Lat","Hin","Tha","Tur","Urd"]
--langsLang = langs `only` ["Fin"] --test --langsLang = langs `only` ["Fin"] --test
@@ -226,7 +231,8 @@ langsPGF = langsLang `except` ["Ara","Hin","Ron","Tha"]
-- languages for which Compatibility exists (to be extended) -- languages for which Compatibility exists (to be extended)
langsCompat = langsLang `only` ["Cat","Eng","Fin","Fre","Ita","Spa","Swe"] langsCompat = langsLang `only` ["Cat","Eng","Fin","Fre","Ita","Spa","Swe"]
gfc mode pkg lbi file = do gfc modes pkg lbi file = sequence_ [gfc1 mode pkg lbi file | mode<-modes]
gfc1 mode pkg lbi file = do
let dir = getRGLBuildDir lbi mode let dir = getRGLBuildDir lbi mode
preproc = case mode of preproc = case mode of
AllTenses -> "" AllTenses -> ""
@@ -260,10 +266,17 @@ parse (lla,la) = rgl_src_dir </> "parse" </> ("Parse" ++ la ++ ".gf")
except ls es = filter (flip notElem es . snd) ls except ls es = filter (flip notElem es . snd) ls
only ls es = filter (flip elem es . snd) ls only ls es = filter (flip elem es . snd) ls
getOptMode args getOptMode args =
| elem "present" args = Present if null explicit_modes
| elem "minimal" args = Minimal then default_modes
| otherwise = AllTenses else explicit_modes
where
explicit_modes =
[Minimal|have "minimal"]++
[Present|have "present"]++
[AllTenses|have "alltenses"]
have mode = mode `elem` args
-- list of languages overriding the definitions above -- list of languages overriding the definitions above
getOptLangs defaultLangs args = getOptLangs defaultLangs args =

5
build-binary-dist.sh
View File

@@ -18,11 +18,6 @@ runhaskell Setup.hs configure --user --prefix /usr/local
runhaskell Setup.hs build $langs runhaskell Setup.hs build $langs
runhaskell Setup.hs copy --destdir=$destdir $langs runhaskell Setup.hs copy --destdir=$destdir $langs
## These steps can be skipped when Setup.hs has been updated to build both
## alltenses and present by default
runhaskell Setup.hs build $langs present
runhaskell Setup.hs copy --destdir=$destdir $langs present
( (
cd src/server cd src/server