From 3115ee32ce3ae0acea4f5fe41bf0b32a2752f35f Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 16 Jun 2009 12:15:11 +0000
Subject: [PATCH] now rgl-pgf produces one .pgf per language and finally one
 combined .pgf

---
 Setup.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/Setup.hs b/Setup.hs
index 0f473f823..a89a7ea0a 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -54,9 +54,8 @@ rglCommands =
   , RGLCommand "pgf"     False $ \mode args pkg lbi -> do
        let dir = getRGLBuildDir lbi mode
        createDirectoryIfMissing True dir
-       run_gfc pkg lbi $ ["-s","--make","--name=langs","--parser=off",
-                          "--output-dir=" ++ dir]
-                         ++ [dir ++ "/Lang" ++ la ++ ".gfo" | (_,la) <- optl langsPGF args]
+       sequence_ [run_gfc pkg lbi ["-s","-make","-name=Lang"++la,"-erasing=on",dir ++ "/Lang" ++ la ++ ".gfo"] | (_,la) <- optl langsPGF args]
+       run_gfc pkg lbi (["-s","-make","-name=Lang","-erasing=on"]++["Lang" ++ la ++ ".pgf" | (_,la) <- optl langsPGF args])
   , RGLCommand "demo"    False $ \mode args pkg lbi -> do
        let ls = optl langsDemo args
        gf (demos "Demo" ls) ["demo/Demo" ++ la ++ ".gf" | (_,la) <- ls] pkg lbi
@@ -166,7 +165,7 @@ langsCoding = [
   (("french",   "Fre"),""),
   (("hindi",    "Hin"),"to_devanagari"),
   (("german",   "Ger"),""),
---  (("interlingua","Ina"),""),
+  (("interlingua","Ina"),""),
   (("italian",  "Ita"),""),
   (("latin",    "Lat"),""),
   (("norwegian","Nor"),""),
@@ -194,7 +193,7 @@ langsDemo = langsLang `except` ["Ara","Hin","Ina","Tha"]
 langsParse = langs `only` ["Eng"]
 
 -- languages for which langs.pgf is built
-langsPGF = langsLang `only` ["Eng","Swe","Bul","Ger"]
+langsPGF = langsLang `except` ["Ara","Hin","Tha"]
 
 -- languages for which Compatibility exists (to be extended)
 langsCompat = langsLang `only` ["Cat","Eng","Fin","Fre","Ita","Spa","Swe"]