Changeset 588 for CMT/HEAD/source/cmt_generator.cxx

Timestamp:

Nov 27, 2011, 4:36:15 PM (13 years ago)

Author:

rybkin

Message:

See C.L. 465

File:

• CMT/HEAD/source/cmt_generator.cxx (modified) (11 diffs)

CMT/HEAD/source/cmt_generator.cxx

@@ -19 +19 @@
 #include "cmt_log.h"
 #include "cmt_error.h"
+
+#include "cmt_install_area.h"
 
 //------------------------------------------------------------------------
@@ -143 +145 @@
 
   m_source_files.clear ();
+  m_bin = "";
+  m_output_file_name = "";
+  m_output_file = 0;
+  m_constituent = 0;
 
   Language::setup_all_fragments ();
@@ -350 +356 @@
       if (Cmt::get_debug ())
         {
-          cout << "CmtGenerator::fill_names_ outputs>" << endl;
+          cout << "CmtGenerator::fill_names_outputs>" << endl;
           cout << "name=" << name << " LINE=" << m_LINE << endl;
           cout << "output=" << output << " OBJS=" << m_OBJS << endl;
@@ -399 +405 @@
 }
 
+/*
 //--------------------------------------------------
 void CmtGenerator::prepare_use_context ()
@@ -476 +483 @@
     }
 }
-
+*/
 //--------------------------------------------------
 void CmtGenerator::filter_path (cmt_string& text)
@@ -700 +707 @@
 static MakeSetupGenerator MakeSetupContext;
 static ConstituentsMakefileGenerator ConstituentsMakefileContext;
+static PackagesMakefileGenerator PackagesMakefileContext;
 static DependencyGenerator DependencyContext;
 
@@ -813 +821 @@
 
 //--------------------------------------------------
+int Generator::build_library_links_infile (const cmt_string& outdir)
+{
+#ifndef WIN32
+  cmt_string file ("library_links.in");
+  if (outdir != "")
+    {
+      if (outdir [outdir.size () - 1] != CmtSystem::file_separator ())
+        file = outdir + CmtSystem::file_separator () + file;
+      else
+        file = outdir + file;
+    }
+
+  bool wrote (false);
+  ostringstream ls;
+
+  Use::UsePtrVector& Uses = Use::get_ordered_uses ();
+  Use& current_use = Use::current ();
+  Use::UsePtrVector uses (Uses);
+  uses.push_back (&Use::current ());
+
+  cmt_string shlibsuffix;
+  {
+    Symbol* macro = Symbol::find ("shlibsuffix");
+    if (macro == 0)
+      {
+        CmtError::set(CmtError::configuration_error, "shlibsuffix undefined");
+        return -1;
+      }
+    shlibsuffix = macro->build_macro_value ();
+    Symbol::expand (shlibsuffix);
+  }
+
+  for (int i = 0; i < uses.size (); i++)
+    {
+      Use* use = uses[i];
+
+      if (use == 0) continue;
+      if (use->discarded) continue;
+      if (use->m_hidden) continue;
+
+      if (use->get_package_name () == "CMT") continue;
+      if (!use->located ()) continue;
+      //use->remove_library_links (cmtinstallarea, tag, shlibsuffix, symunlinkcmd);
+      cmt_string s (use->get_package_name ());
+      s += "_libraries";
+      const Symbol* libraries_macro = Symbol::find (s);
+      if (libraries_macro == 0) continue;
+      cmt_string libraries = libraries_macro->build_macro_value ();
+      Symbol::expand (libraries);
+      static CmtSystem::cmt_string_vector values;
+      
+      CmtSystem::split (libraries, " \t", values);
+      
+      for (int j = 0; j < values.size (); j++)
+        {
+          const cmt_string& library = values[j];
+          
+          static cmt_string libname;
+          static cmt_string name;
+          
+          // Is it a simple name or a complete path?
+          
+          libname = library;
+          Symbol::expand (libname);
+          if (0 == libname.size ()) continue;
+          
+          CmtSystem::cmt_string_vector paths;
+          use->absolute_library_path (libname,
+                                      shlibsuffix, 
+                                      paths);
+          for (int k = 0; k < paths.size (); k++)
+            {
+              cmt_string path (paths[k]);
+              Symbol::expand (path);
+              if (0 == path.size ()) continue;
+              if (wrote) ls << " ";
+              else wrote = true;
+              ls << CmtSystem::quote (path, " \t");
+            }
+        }
+    }
+  ostringstream os;
+  if (wrote)
+    {
+      os << "macro ";
+      os << current_use.get_package_name () + "_libraries ";
+      os << CmtSystem::quote (ls.str ().c_str (), " \t");
+      os << "\n";
+
+      os << "macro shlibsuffix ";
+      os << CmtSystem::quote (shlibsuffix, " \t");
+      os << "\n";
+
+      cmt_string symlinkcmd;
+      {
+        Symbol* macro = Symbol::find ("library_install_command");
+        if (macro != 0)
+          {
+            symlinkcmd = macro->build_macro_value ();
+            Symbol::expand (symlinkcmd);
+          }
+      }
+      os << "macro library_install_command ";
+      os << CmtSystem::quote (symlinkcmd, " \t");
+      os << "\n";
+
+      cmt_string symunlinkcmd;
+      {
+        Symbol* macro = Symbol::find ("symunlink");
+        if (macro != 0)
+          {
+            symunlinkcmd = macro->build_macro_value ();
+            Symbol::expand (symunlinkcmd);
+          }
+      }
+      os << "macro symunlink ";
+      os << CmtSystem::quote (symunlinkcmd, " \t");
+      os << "\n";
+
+      if (current_use.get_strategy ("InstallArea"))
+        {
+          os << "build_strategy with_installarea\n";
+
+          const CmtInstallAreaMgr& ia_mgr = CmtInstallAreaMgr::instance ();
+          
+          cmt_string cmtinstallarea = ia_mgr.get_installarea ();
+          {
+            Symbol* symbol = Symbol::find ("CMTINSTALLAREA");
+            if (symbol != 0)
+              {
+                cmtinstallarea = symbol->build_macro_value ();
+                Symbol::expand (cmtinstallarea);
+              }
+          }
+          os << "macro CMTINSTALLAREA ";
+          os << CmtSystem::quote (cmtinstallarea, " \t");
+          os << "\n";
+
+          cmt_string tag;
+          {
+            Symbol* macro = Symbol::find ("tag");
+            if (macro != 0)
+              {
+                tag = macro->build_macro_value ();
+                Symbol::expand (tag);
+              }
+          }
+          os << "macro tag ";
+          os << CmtSystem::quote (tag, " \t");
+          os << "\n";
+        }
+      //      cerr << os.str ();
+    }
+
+  // Write input requirements file
+
+  //  static InGenerator InGen (usecmt);
+
+  bool gen (true);
+  //  ostringstream os;
+  ofstream s;
+  //  s.open (file);
+  s.open (file, ios::in);
+  if (s) // file already exists
+    {
+      //      InGen.build (constituent, os);
+      ostringstream osn;
+      osn << s.rdbuf ();
+      if (os.str () == osn.str ())
+        {
+          //      cerr << file << " up-to-date" << endl;
+          gen = false;
+        }
+    }
+  s.clear ();
+  s.close ();
+  s.clear ();
+  if (gen)
+    {
+      s.open (file);
+      if (!s)
+        {
+          CmtError::set (CmtError::file_access_error, file);
+          return -1;
+        }
+      s.exceptions (ios::failbit | ios::badbit);
+      try
+        {
+          //      if (os.str ().size () != 0)
+          //        {
+              //  cerr << file << " contents already generated" << endl;
+              s << os.str ();
+              //            }
+              //          else
+              //            {
+              //              InGen.build (constituent, s);
+              //            }
+          s.close (); // ios_base::failbit
+        }
+      catch (const ios::failure& e)
+        {
+          CmtSystem::close_ostream (NULL, file + ": " + cmt_string (e.what ()));
+          return -1;
+        }
+    }
+
+#endif
+  return 0;
+}
+
+//--------------------------------------------------
+int Generator::build_dependencies_infile (const Constituent* pconstituent,
+                                          const cmt_string& outdir,
+                                          bool usecmt)
+{
+  cmt_string file ("dependencies");
+  if (0 != pconstituent)
+    file += "_" + pconstituent->name;
+  file += ".in";
+
+  if (outdir != "")
+    {
+      if (outdir [outdir.size () - 1] != CmtSystem::file_separator ())
+        file = outdir + CmtSystem::file_separator () + file;
+      else
+        file = outdir + file;
+    }
+
+  ostringstream os;
+  
+  cmt_string preprocessor;
+  Symbol* macro = Symbol::find ("preprocessor_command");
+  if (macro != 0)
+    {
+      preprocessor = macro->resolve_macro_value ();
+    }
+
+  if (preprocessor == "")
+    {
+      const Use* current_use = &Use::current ();
+      Use::UsePtrVector uses (Use::get_ordered_uses ());
+      uses.push_back (&Use::current ());
+      
+      if (current_use->include_path == "none")
+        os << "include_path none\n";
+
+      for (int i = uses.size () - 1; i >= 0; i--)
+        {
+          const Use* use = uses[i];
+          if (use->discarded) continue;
+          if (use->m_hidden) continue;
+          if (!use->located ()) continue;
+          
+          cmt_string package_name = use->get_package_name ();
+          if (package_name == "CMT") continue;
+          
+          const Symbol* filter_macro = Symbol::find (package_name + "_header_file_filter");
+          if (filter_macro == 0) continue;
+          
+          const Symbol* stamp_macro = Symbol::find (package_name + "_header_file_stamp");
+          cmt_string stamp;
+          if (stamp_macro != 0)
+            {
+              stamp = stamp_macro->resolve_macro_value ();
+            }
+          else
+            {
+              use->get_full_path (stamp);
+              switch (use->style)
+                {
+                case cmt_style:
+                  stamp += CmtSystem::file_separator ();
+                  stamp += "cmt";
+                  break;
+                case mgr_style:
+                  stamp += CmtSystem::file_separator ();
+                  stamp += "mgr";
+                  break;
+                }
+              stamp += CmtSystem::file_separator ();
+              stamp += "cmt_header_file.stamp";
+            }
+          if (!CmtSystem::test_file (stamp)) continue;
+
+          os << "macro " + package_name + "_header_file_filter ";
+          os << CmtSystem::quote (filter_macro->resolve_macro_value (), " \t");
+          os << "\n";
+          os << "macro " + package_name + "_header_file_stamp ";
+          os << CmtSystem::quote (stamp, " \t");
+          os << "\n";
+        }
+    }
+  else
+    {
+      os << "macro preprocessor_command ";
+      os << CmtSystem::quote (preprocessor, " \t");
+      os << "\n";
+      macro = Symbol::find ("includes");
+      if (0 != macro)
+        {
+          os << "macro includes ";
+          os << CmtSystem::quote (macro->resolve_macro_value (), " \t");
+          os << "\n";
+        }
+      if (0 == pconstituent)
+        {
+          const Constituent::ConstituentVector& constituents =
+            Constituent::constituents ();
+          for (int n = 0; n < constituents.size (); n++)
+            {
+              const Constituent& constituent = constituents[n];
+              if (constituent.has_target_tag) continue;
+              if (constituent.type == Document) continue;
+              cmt_string prefix;
+              switch (constituent.type)
+                {
+                case Application:
+                  prefix = "app_";
+                  break;
+                case Library:
+                  prefix = "lib_";
+                  break;
+                }
+              cmt_string macro_name (prefix + constituent.name + "_cppflags");
+              macro = Symbol::find (macro_name);
+              if (0 != macro)
+                {
+                  os << "macro_append " + macro_name + " ";
+                  os << CmtSystem::quote (macro->resolve_macro_value (), " \t");
+                  os << "\n";
+                }
+            }
+        }
+      else if (pconstituent->type != Document)
+        {
+          const Constituent& constituent = *pconstituent;
+          cmt_string prefix;
+          switch (constituent.type)
+            {
+            case Application:
+              prefix = "app_";
+              break;
+            case Library:
+              prefix = "lib_";
+              break;
+            }
+          cmt_string macro_name (prefix + constituent.name + "_cppflags");
+          macro = Symbol::find (macro_name);
+          if (0 != macro)
+            {
+              os << "macro_append " + macro_name + " ";
+              os << CmtSystem::quote (macro->resolve_macro_value (), " \t");
+              os << "\n";
+            }
+        }
+    }
+
+  // Write input requirements file
+
+  bool gen (true);
+  //  ostringstream os;
+  ofstream s;
+  //  s.open (file);
+  s.open (file, ios::in);
+  if (s) // file already exists
+    {
+      //      InGen.build (constituent, os);
+      ostringstream osn;
+      osn << s.rdbuf ();
+      if (os.str () == osn.str ())
+        {
+          //      cerr << file << " up-to-date" << endl;
+          gen = false;
+        }
+    }
+  s.clear ();
+  s.close ();
+  s.clear ();
+  if (gen)
+    {
+      s.open (file);
+      if (!s)
+        {
+          CmtError::set (CmtError::file_access_error, file);
+          return -1;
+        }
+      s.exceptions (ios::failbit | ios::badbit);
+      try
+        {
+          //      if (os.str ().size () != 0)
+          //        {
+              //  cerr << file << " contents already generated" << endl;
+              s << os.str ();
+              //            }
+              //          else
+              //            {
+              //              InGen.build (constituent, s);
+              //            }
+          s.close (); // ios_base::failbit
+        }
+      catch (const ios::failure& e)
+        {
+          CmtSystem::close_ostream (NULL, file + ": " + cmt_string (e.what ()));
+          return -1;
+        }
+    }
+
+  return 0;
+}
+
+//--------------------------------------------------
 int Generator::build_constituent_makefile (const Constituent& constituent,
+                                           bool& dependencies,
                                            const cmt_string& file)
 {
@@ -824 +1244 @@
       //break;
     case Library:
-      LibraryContext.build (package, constituent, file);
+      LibraryContext.build (package, constituent, dependencies, file);
       break;
     case Document:
-      DocumentContext.build (package, constituent, file);
+      DocumentContext.build (package, constituent, dependencies, file);
       break;
     }
@@ -860 +1280 @@
 
   const Constituent* constituent = Constituent::find (name);
-  if (constituent != 0) build_constituent_makefile (*constituent, file);
+  if (constituent != 0)
+    {
+      bool dependencies (false);
+      build_constituent_makefile (*constituent, dependencies, file);
+    }
 }
 
@@ -867 +1291 @@
 {
   DefaultMakefileContext.build ();
+}
+
+//--------------------------------------------------
+void Generator::build_packages_makefile (const cmt_string& package,
+                                         const cmt_string& file)
+{
+  PackagesMakefileContext.build (package, file);
+  //  UsesMakefileContext.build (package, file);
 }
 
@@ -1213 +1645 @@
   CmtSystem::cmt_string_vector document;
   document.push_back ("document_header");
+  document.push_back ("dependency");
   m_document.set_names (document);
   m_document.set_uses (usecmt);