From f12dbc32b463f4c54737bbd56bdccb30115a7658 Mon Sep 17 00:00:00 2001
From: Brad Richardson <brichardson@structint.com>
Date: Sat, 28 Mar 2020 13:28:29 -0500
Subject: Switch to building one program at a time per definitions from
 fpm.toml

---
 app/Main.hs  | 16 +++++++------
 src/Build.hs | 76 +++++++++++++++++++++++++++++++++++++++++-------------------
 2 files changed, 61 insertions(+), 31 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index eceb260..3ad22d1 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -3,7 +3,7 @@
 module Main where
 
 import           Build                          ( buildLibrary
-                                                , buildPrograms
+                                                , buildProgram
                                                 )
 import           Data.Text                      ( Text
                                                 , unpack
@@ -61,12 +61,14 @@ build settings = do
                ["-g", "-Wall", "-Wextra", "-Werror", "-pedantic"]
                "library"
                []
-  buildPrograms "app"
-                ["build" </> "library"]
-                [".f90", ".f", ".F", ".F90", ".f95", ".f03"]
-                ("build" </> "app")
-                (unpack $ compiler settings)
-                ["-g", "-Wall", "-Wextra", "-Werror", "-pedantic"]
+  buildProgram "app"
+               ["build" </> "library"]
+               [".f90", ".f", ".F", ".F90", ".f95", ".f03"]
+               ("build" </> "app")
+               (unpack $ compiler settings)
+               ["-g", "-Wall", "-Wextra", "-Werror", "-pedantic"]
+               "example_project"
+               "main.f90"
 
 getArguments :: IO Arguments
 getArguments = execParser
diff --git a/src/Build.hs b/src/Build.hs
index e7a43f6..0c692cb 100644
--- a/src/Build.hs
+++ b/src/Build.hs
@@ -1,6 +1,6 @@
 module Build
   ( buildLibrary
-  , buildPrograms
+  , buildProgram
   )
 where
 
@@ -58,26 +58,35 @@ type ModuleName = String
 
 data LineContents = ModuleUsed ModuleName | Other
 
-buildPrograms
+buildProgram
   :: FilePath
   -> [FilePath]
   -> [FilePattern]
   -> FilePath
   -> FilePath
   -> [String]
+  -> String
+  -> FilePath
   -> IO ()
-buildPrograms programDirectory libraryDirectories sourceExtensions buildDirectory compiler flags
+buildProgram programDirectory libraryDirectories sourceExtensions buildDirectory compiler flags programName programSource
   = do
     sourceFiles <- getDirectoriesFiles [programDirectory] sourceExtensions
-    let sourceFileLookupMap =
-          createSourceFileLookupMap buildDirectory programDirectory sourceFiles
-    libraryModuleMaps <- mapM getLibraryModuleMap libraryDirectories
-    let libraryModuleMap = foldl Map.union Map.empty libraryModuleMaps
-    let includeFlags     = map ("-I" ++) libraryDirectories
+    let moduleSourceFiles =
+          filter (/= programDirectory </> programSource) sourceFiles
+    let moduleObjectFiles = map
+          (sourceFileToObjectFile buildDirectory programDirectory)
+          moduleSourceFiles
+    let sourceFileLookupMap = createSourceFileLookupMap buildDirectory
+                                                        programDirectory
+                                                        moduleSourceFiles
+    let moduleLookupMap = createModuleLookupMap buildDirectory
+                                                programDirectory
+                                                moduleSourceFiles
+    otherModuleMaps <- mapM getLibraryModuleMap libraryDirectories
+    let allModuleMaps =
+          moduleLookupMap `Map.union` foldl Map.union Map.empty otherModuleMaps
+    let includeFlags = map ("-I" ++) libraryDirectories
     archives <- getDirectoriesFiles libraryDirectories [".a"]
-    let executables = map
-          (sourceFileToExecutable buildDirectory programDirectory)
-          sourceFiles
     shake shakeOptions { shakeFiles    = buildDirectory
                        , shakeChange   = ChangeModtimeAndDigest
                        , shakeColor    = True
@@ -85,28 +94,47 @@ buildPrograms programDirectory libraryDirectories sourceExtensions buildDirector
                        , shakeProgress = progressSimple
                        }
       $ do
-          buildDirectory </> "*" <.> "o" %> \objectFile -> do
+          want [buildDirectory </> programName <.> exe]
+          buildDirectory </> programName <.> exe %> \executable -> do
+            let objectFile = sourceFileToObjectFile buildDirectory
+                                                    programDirectory
+                                                    programSource
+            let allObjectFiles = objectFile : moduleObjectFiles
+            need allObjectFiles
+            need archives
+            cmd compiler allObjectFiles archives ["-o", executable] flags
+          buildDirectory </> programSource -<.> "o" %> \objectFile -> do
             let realObjectFile = foldl (</>) "" $ splitDirectories objectFile
-            let sourceFile = fromMaybe
-                  undefined
-                  (Map.lookup realObjectFile sourceFileLookupMap)
+            let sourceFile     = programDirectory </> programSource
             need [sourceFile]
             modulesUsed <- liftIO $ getModulesUsed sourceFile
             let moduleFilesNeeded =
-                  mapMaybe (`Map.lookup` libraryModuleMap) modulesUsed
+                  mapMaybe (`Map.lookup` allModuleMaps) modulesUsed
+            let includeFlags = map ("-I" ++) libraryDirectories
             need moduleFilesNeeded
             cmd compiler
-                ["-c"]
+                ["-c", "-J" ++ buildDirectory]
                 includeFlags
                 flags
                 ["-o", objectFile, sourceFile]
-          (\file -> foldl (</>) "" (splitDirectories file) `elem` executables)
-            ?> \exe -> do
-                 let objectFile = map toLower exe -<.> "o"
-                 need [objectFile]
-                 need archives
-                 cmd compiler objectFile archives ["-o", exe] flags
-          want executables
+          map (\ext -> buildDirectory </> "*" <.> ext) ["o", "mod"]
+            &%> \[objectFile, moduleFile] -> do
+                  let realObjectFile =
+                        foldl (</>) "" $ splitDirectories objectFile
+                  let sourceFile = fromMaybe
+                        undefined
+                        (Map.lookup realObjectFile sourceFileLookupMap)
+                  need [sourceFile]
+                  modulesUsed <- liftIO $ getModulesUsed sourceFile
+                  let moduleFilesNeeded =
+                        mapMaybe (`Map.lookup` allModuleMaps) modulesUsed
+                  let includeFlags = map ("-I" ++) libraryDirectories
+                  need moduleFilesNeeded
+                  cmd compiler
+                      ["-c", "-J" ++ buildDirectory]
+                      includeFlags
+                      flags
+                      ["-o", objectFile, sourceFile]
 
 buildLibrary
   :: FilePath
-- 
cgit v1.2.3