Changeset 523 for CMT/HEAD/source/cmt_parser.cxx

Timestamp:

Oct 15, 2009, 12:46:33 PM (15 years ago)

Author:

rybkin

Message:

See C.L. 410

File:

• CMT/HEAD/source/cmt_parser.cxx (modified) (5 diffs)

CMT/HEAD/source/cmt_parser.cxx

@@ -4302 +4302 @@
     }
 
+  if (current_use.get_strategy ("SetupScripts"))
+    {
+      cout << " scripts";
+    }
+  else
+    {
+      cout << " no_scripts";
+    }
+
   cout << endl;
   
@@ -4748 +4757 @@
   static const PrintMode  mode[2]     = {Csh, Sh};
 #endif
+
+  Use& current_use = Use::current ();
+
+  if (!current_use.get_strategy ("SetupScripts"))
+    {
+      for (int i = 0; i < modes; i++)
+        {
+          cmt_string old_file_name = "cleanup";
+          old_file_name += ".";
+          old_file_name += suffix[i];
+          if (CmtSystem::test_file (old_file_name))
+            {
+              if (CmtMessage::active (Error))
+                cerr << "Removing cleanup script " + old_file_name << endl;
+              CmtSystem::remove_file (old_file_name);
+            }
+        }
+      return;
+    }
 
   if (CmtMessage::active (Error))
@@ -4836 +4864 @@
 #endif
 
+  Use& current_use = Use::current ();
+
+  if (!current_use.get_strategy ("SetupScripts"))
+    {
+      for (int i = 0; i < modes; i++)
+        {
+          cmt_string old_file_name = "setup";
+          old_file_name += ".";
+          old_file_name += suffix[i];
+          if (CmtSystem::test_file (old_file_name))
+            {
+              if (CmtMessage::active (Error))
+                cerr << "Removing setup script " + old_file_name << endl;
+              CmtSystem::remove_file (old_file_name);
+            }
+        }
+      return;
+    }
+
   if (CmtMessage::active (Error))
     cerr << "Creating setup scripts." << endl;
-
-  Use& current_use = Use::current ();
   
   cmt_string no_cleanup_opt;
@@ -4950 +4995 @@
   static const PrintMode  mode[2]     = {Csh, Sh};
 #endif
+
+  Use& current_use = Use::current ();
+
+  if (!current_use.get_strategy ("SetupScripts"))
+    {
+      for (int i = 0; i < modes; i++)
+        {
+          cmt_string old_file_name = "cleanup";
+          old_file_name += ".";
+          old_file_name += suffix[i];
+          if (CmtSystem::test_file (old_file_name))
+            {
+              if (CmtMessage::active (Error))
+                cerr << "Removing cleanup script " + old_file_name << endl;
+              CmtSystem::remove_file (old_file_name);
+            }
+        }
+      return;
+    }
 
   if (CmtMessage::active (Error))
@@ -5060 +5124 @@
 #endif
 
+  Use& current_use = Use::current ();
+
+  if (!current_use.get_strategy ("SetupScripts"))
+    {
+      for (int i = 0; i < modes; i++)
+        {
+          cmt_string old_file_name = "setup";
+          old_file_name += ".";
+          old_file_name += suffix[i];
+          if (CmtSystem::test_file (old_file_name))
+            {
+              if (CmtMessage::active (Error))
+                cerr << "Removing setup script " + old_file_name << endl;
+              CmtSystem::remove_file (old_file_name);
+            }
+        }
+      return;
+    }
+
   if (CmtMessage::active (Error))
     cerr << "Creating setup scripts." << endl;
-
-  Use& current_use = Use::current ();
 
   cmt_string no_cleanup_opt;