Changeset 527 for CMT/HEAD/source/cmt_system.cxx

Timestamp:

Nov 20, 2009, 10:45:54 AM (15 years ago)

Author:

rybkin

Message:

See C.L. 414

File:

• CMT/HEAD/source/cmt_system.cxx (modified) (2 diffs)

CMT/HEAD/source/cmt_system.cxx

@@ -528 +528 @@
     {
       s1.write (f);
-      fclose (f);
+      if (ferror (f))
+        return (false);
+      if (fclose (f))
+        return (false);
 
       unlink (name1);
@@ -2419 +2422 @@
 }
 
-
-
-
+//----------------------------------------------------------
+void CmtSystem::close_ostream (FILE *stream, const cmt_string& name)
+{
+  cmt_string msg ("Cannot write");
+  cmt_string n = (name != "") ? " " + name : "";
+  if (stream == NULL)
+    {
+      CmtMessage::error (msg + n);
+      exit (EXIT_FAILURE);
+    }
+
+  bool prev_fail = ferror (stream);
+  bool fclose_fail = fclose (stream);
+
+  if (prev_fail || fclose_fail)
+    {
+      int err = fclose_fail ? errno : 0;
+      cmt_string e = err ? ": " + cmt_string (strerror (err)) : "";
+      CmtMessage::error (msg + n + e);
+      exit (EXIT_FAILURE);
+    }
+}
+
+//----------------------------------------------------------
+void CmtSystem::close_stdout (void)
+{
+  /* 
+   * The idea and, to some extent, implementation of this function
+   * was borrowed from the GNU core utilities of the Free Software Foundation
+   * http://www.gnu.org/software/coreutils/
+   */
+  close_ostream (stdout, "stdout");
+}
 
 //----------------------------------------------------------