Changes in libcfa/src/fstream.cfa [5cb2b8c:a87d40b]

File:

• libcfa/src/fstream.cfa (modified) (18 diffs)

libcfa/src/fstream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu May 16 08:33:28 2019
-// Update Count     : 328
+// Last Modified On : Mon Jul 15 18:11:26 2019
+// Update Count     : 349
 //
 
@@ -24 +24 @@
 #include <assert.h>
 #include <errno.h>                                                                              // errno
+
+
+//*********************************** ofstream ***********************************
+
 
 #define IO_MSG "I/O error: "
@@ -37 +41 @@
         sepSetCur( os, sepGet( os ) );
         sepSetTuple( os, ", " );
-}
+} // ?{}
 
 // private
@@ -56 +60 @@
 void ?{}( ofstream & os, const char * name, const char * mode ) {
         open( os, name, mode );
-}
+} // ?{}
+
 void ?{}( ofstream & os, const char * name ) {
         open( os, name, "w" );
-}
+} // ?{}
 
 void sepOn( ofstream & os ) { os.sepOnOff = ! getNL( os ); }
@@ -95 +100 @@
 } // sepSet
 
+void ends( ofstream & os ) {
+        if ( getANL( os ) ) nl( os );
+        else setPrt( os, false );                                                       // turn off
+        if ( &os == &exit ) exit( EXIT_FAILURE );
+        if ( &os == &abort ) abort();
+} // ends
+
 int fail( ofstream & os ) {
         return os.file == 0 || ferror( (FILE *)(os.file) );
@@ -107 +119 @@
         #ifdef __CFA_DEBUG__
         if ( file == 0 ) {
-                abort( IO_MSG "open output file \"%s\", %s", name, strerror( errno ) );
+                abort | IO_MSG "open output file \"" | name | "\"" | nl | strerror( errno );
         } // if
         #endif // __CFA_DEBUG__
@@ -121 +133 @@
 
         if ( fclose( (FILE *)(os.file) ) == EOF ) {
-                abort( IO_MSG "close output %s", strerror( errno ) );
+                abort | IO_MSG "close output" | nl | strerror( errno );
         } // if
 } // close
@@ -127 +139 @@
 ofstream & write( ofstream & os, const char * data, size_t size ) {
         if ( fail( os ) ) {
-                abort( "attempt write I/O on failed stream\n" );
+                abort | IO_MSG "attempt write I/O on failed stream";
         } // if
 
         if ( fwrite( data, 1, size, (FILE *)(os.file) ) != size ) {
-                abort( IO_MSG "write %s", strerror( errno ) );
+                abort | IO_MSG "write" | nl | strerror( errno );
         } // if
         return os;
@@ -142 +154 @@
         if ( len == EOF ) {
                 if ( ferror( (FILE *)(os.file) ) ) {
-                        abort( "invalid write\n" );
+                        abort | IO_MSG "invalid write";
                 } // if
         } // if
@@ -153 +165 @@
 
 static ofstream soutFile = { (FILE *)(&_IO_2_1_stdout_) };
-ofstream & sout = soutFile;
+ofstream & sout = soutFile, & stdout = soutFile;
 static ofstream serrFile = { (FILE *)(&_IO_2_1_stderr_) };
-ofstream & serr = serrFile;
-
-// static ofstream sexitFile = { (FILE *)(&_IO_2_1_stdout_) };
-// ofstream & sexit = sexitFile;
-// static ofstream sabortFile = { (FILE *)(&_IO_2_1_stderr_) };
-// ofstream & sabort = sabortFile;
-
-void nl( ofstream & os ) {
-        if ( getANL( os ) ) (ofstream &)(nl( os ));                     // implementation only
-        else setPrt( os, false );                                                       // turn off
-}
-
-//---------------------------------------
+ofstream & serr = serrFile, & stderr = serrFile;
+
+static ofstream exitFile = { (FILE *)(&_IO_2_1_stdout_) };
+ofstream & exit = exitFile;
+static ofstream abortFile = { (FILE *)(&_IO_2_1_stderr_) };
+ofstream & abort = abortFile;
+
+
+//*********************************** ifstream ***********************************
+
 
 // private
@@ -173 +182 @@
         is.file = file;
         is.nlOnOff = false;
-}
+} // ?{}
 
 // public
@@ -180 +189 @@
 void ?{}( ifstream & is, const char * name, const char * mode ) {
         open( is, name, mode );
-}
+} // ?{}
+
 void ?{}( ifstream & is, const char * name ) {
         open( is, name, "r" );
-}
+} // ?{}
 
 void nlOn( ifstream & os ) { os.nlOnOff = true; }
@@ -201 +211 @@
         #ifdef __CFA_DEBUG__
         if ( file == 0 ) {
-                abort( IO_MSG "open input file \"%s\", %s\n", name, strerror( errno ) );
+                abort | IO_MSG "open input file \"" | name | "\"" | nl | strerror( errno );
         } // if
         #endif // __CFA_DEBUG__
@@ -215 +225 @@
 
         if ( fclose( (FILE *)(is.file) ) == EOF ) {
-                abort( IO_MSG "close input %s", strerror( errno ) );
+                abort | IO_MSG "close input" | nl | strerror( errno );
         } // if
 } // close
@@ -221 +231 @@
 ifstream & read( ifstream & is, char * data, size_t size ) {
         if ( fail( is ) ) {
-                abort( "attempt read I/O on failed stream\n" );
+                abort | IO_MSG "attempt read I/O on failed stream";
         } // if
 
         if ( fread( data, size, 1, (FILE *)(is.file) ) == 0 ) {
-                abort( IO_MSG "read %s", strerror( errno ) );
+                abort | IO_MSG "read" | nl | strerror( errno );
         } // if
         return is;
@@ -232 +242 @@
 ifstream &ungetc( ifstream & is, char c ) {
         if ( fail( is ) ) {
-                abort( "attempt ungetc I/O on failed stream\n" );
+                abort | IO_MSG "attempt ungetc I/O on failed stream";
         } // if
 
         if ( ungetc( c, (FILE *)(is.file) ) == EOF ) {
-                abort( IO_MSG "ungetc %s", strerror( errno ) );
+                abort | IO_MSG "ungetc" | nl | strerror( errno );
         } // if
         return is;
@@ -248 +258 @@
         if ( len == EOF ) {
                 if ( ferror( (FILE *)(is.file) ) ) {
-                        abort( "invalid read\n" );
+                        abort | IO_MSG "invalid read";
                 } // if
         } // if
@@ -257 +267 @@
 
 static ifstream sinFile = { (FILE *)(&_IO_2_1_stdin_) };
-ifstream & sin = sinFile;
+ifstream & sin = sinFile, & stdin = sinFile;
 
 // Local Variables: //