Reimplement module sidebuilding using an ad hoc subproject

1 files changed, 150 insertions, 0 deletions

diff --git a/build2/config/utility.cxx b/build2/config/utility.cxx
index c195e0b..1c80d13 100644
--- a/build2/config/utility.cxx
+++ b/build2/config/utility.cxx
@@ -4,7 +4,10 @@
 
 #include <build2/config/utility.hxx>
 
+#include <build2/file.hxx>
 #include <build2/context.hxx>
+#include <build2/filesystem.hxx>
+#include <build2/diagnostics.hxx>
 
 #include <build2/config/module.hxx>
 
@@ -151,5 +154,152 @@ namespace build2
       if (module* m = r.modules.lookup<module> (module::name))
         m->save_module (name, prio);
     }
+
+    void
+    create_project (const dir_path& d,
+                    const build2::optional<dir_path>& amal,
+                    const strings& bmod,
+                    const string&  rpre,
+                    const strings& rmod,
+                    const string&  rpos,
+                    bool config,
+                    bool buildfile,
+                    const char* who,
+                    uint16_t verbosity)
+    {
+      string hdr ("# Generated by " + string (who) + ". Edit if you know"
+                  " what you are doing.\n"
+                  "#");
+
+      // If the directory exists, verify it's empty. Otherwise, create it.
+      //
+      if (exists (d))
+      {
+        if (!empty (d))
+          fail << "directory " << d << " exists and is not empty";
+      }
+      else
+        mkdir_p (d, verbosity);
+
+      // Create the build/ subdirectory.
+      //
+      mkdir (d / build_dir, verbosity);
+
+      // Write build/bootstrap.build.
+      //
+      {
+        path f (d / bootstrap_file);
+
+        if (verb >= verbosity)
+          text << (verb >= 2 ? "cat >" : "save ") << f;
+
+        try
+        {
+          ofdstream ofs (f);
+
+          ofs << hdr << endl
+              << "project =" << endl;
+
+          if (amal)
+          {
+            ofs << "amalgamation =";
+
+            if (!amal->empty ())
+              ofs << ' ' << amal->representation ();
+
+            ofs << endl;
+          }
+
+          ofs << endl;
+
+          if (config)
+            ofs << "using config" << endl;
+
+          for (const string& m: bmod)
+          {
+            if (!config || m != "config")
+              ofs << "using " << m << endl;
+          }
+
+          ofs.close ();
+        }
+        catch (const io_error& e)
+        {
+          fail << "unable to write " << f << ": " << e;
+        }
+      }
+
+      // Write build/root.build.
+      //
+      {
+        path f (d / root_file);
+
+        if (verb >= verbosity)
+          text << (verb >= 2 ? "cat >" : "save ") << f;
+
+        try
+        {
+          ofdstream ofs (f);
+
+          ofs << hdr << endl;
+
+          if (!rpre.empty ())
+            ofs << rpre << endl
+                << endl;
+
+          for (const string& cm: rmod)
+          {
+            // If the module name start with '?', then use optional load.
+            //
+            bool opt (cm.front () == '?');
+            string m (cm, opt ? 1 : 0);
+
+            // Append .config unless the module name ends with '.', in which
+            // case strip it.
+            //
+            if (m.back () == '.')
+              m.pop_back ();
+            else
+              m += ".config";
+
+            ofs << "using" << (opt ? "?" : "") << " " << m << endl;
+          }
+
+          if (!rpos.empty ())
+            ofs << endl
+                << rpre << endl;
+
+          ofs.close ();
+        }
+        catch (const io_error& e)
+        {
+          fail << "unable to write " << f << ": " << e;
+        }
+      }
+
+      // Write root buildfile.
+      //
+      if (buildfile)
+      {
+        path f (d / "buildfile");
+
+        if (verb >= verbosity)
+          text << (verb >= 2 ? "cat >" : "save ") << f;
+
+        try
+        {
+          ofdstream ofs (f);
+
+          ofs << hdr << endl
+              << "./: {*/ -build/}" << endl;
+
+          ofs.close ();
+        }
+        catch (const io_error& e)
+        {
+          fail << "unable to write " << f << ": " << e;
+        }
+      }
+    }
   }
 }