From 9b362ff231efbd43ffb4f1c6285c41a34caf3777 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sun, 17 Jan 2010 21:35:36 +0000 Subject: PGF is now real synchronous PMCFG --- Setup.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'Setup.hs') diff --git a/Setup.hs b/Setup.hs index 170a5ae8e..9a19d9e11 100644 --- a/Setup.hs +++ b/Setup.hs @@ -213,7 +213,7 @@ langsDemo = langsLang `except` ["Ara","Hin","Ina","Tha"] langsParse = langs `only` ["Eng"] -- languages for which langs.pgf is built -langsPGF = langsLang `except` ["Ara","Bul","Hin","Ron","Tha"] +langsPGF = langsLang `except` ["Ara","Hin","Ron","Tha"] -- languages for which Compatibility exists (to be extended) langsCompat = langsLang `only` ["Cat","Eng","Fin","Fre","Ita","Spa","Swe"] @@ -297,15 +297,14 @@ unlexer abstr ls = -- | Runs the gf executable in compile mode with the given arguments. run_gfc :: PackageDescription -> LocalBuildInfo -> [String] -> IO () run_gfc pkg lbi args = - do let args' = ["-batch","-gf-lib-path="++rgl_src_dir] ++ filter (not . null) args ++ ["+RTS"] ++ rts_flags ++ ["-RTS"] + do let args' = ["-batch","-gf-lib-path="++rgl_src_dir] ++ filter (not . null) args gf = default_gf pkg lbi putStrLn $ "Running: " ++ gf ++ " " ++ unwords (map showArg args') e <- rawSystem gf args' case e of ExitSuccess -> return () ExitFailure i -> die $ "gf exited with exit code: " ++ show i - where rts_flags = ["-K64M"] - showArg arg = "'" ++ arg ++ "'" + where showArg arg = "'" ++ arg ++ "'" default_gf pkg lbi = buildDir lbi exeName' exeNameReal where -- cgit v1.2.3