From 95cdaaf4c4a5ec0bdfe95013faa039ff2e5ffd92 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 15 Aug 2008 21:10:54 +0000
Subject: [PATCH] gfc can now combine PGF files.

---
 src/GFC.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/GFC.hs b/src/GFC.hs
index 17c95eb30..4e06641f9 100644
--- a/src/GFC.hs
+++ b/src/GFC.hs
@@ -18,6 +18,15 @@ import System.FilePath
 
 mainGFC :: Options -> [FilePath] -> IOE ()
 mainGFC opts fs = 
+    case () of
+      _ | null fs -> fail $ "No input files."
+      _ | all (extensionIs ".gf")  fs -> compileSourceFiles opts fs
+      _ | all (extensionIs ".pgf") fs -> unionPGFFiles opts fs
+      _ -> fail $ "Don't know what to do with these input files: " ++ show fs
+ where extensionIs ext = (== ext) .  takeExtension
+
+compileSourceFiles :: Options -> [FilePath] -> IOE ()
+compileSourceFiles opts fs = 
     do gr <- batchCompile opts fs
        let cnc = justModuleName (last fs)
        if flag optStopAfterPhase opts == Compile 
@@ -25,6 +34,12 @@ mainGFC opts fs =
          else do pgf <- link opts cnc gr
                  writeOutputs opts pgf
 
+unionPGFFiles :: Options -> [FilePath] -> IOE ()
+unionPGFFiles opts fs = 
+    do pgfs <- ioeIO $ mapM readPGF fs
+       let pgf = foldl1 unionPGF pgfs
+       writeOutputs opts pgf
+
 writeOutputs :: Options -> PGF -> IOE ()
 writeOutputs opts pgf =
     sequence_ [writeOutput opts name str