Changeset d41280e for src/libcfa/iostream.c

Timestamp:

Feb 8, 2016, 10:07:42 AM (10 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, ctor, deferred_resn, demangler, enum, forall-pointer-decay, gc_noraii, jacob/cs343-translation, jenkins-sandbox, master, memory, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc

Children:

c44e622

Parents:

00ede9e (diff), bd85400 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' into gc_noraii

File:

• src/libcfa/iostream.c (moved) (moved from src/examples/iostream.c ) (3 diffs)

src/libcfa/iostream.c

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Jan  4 09:38:58 2016
-// Update Count     : 37
+// Last Modified On : Mon Feb  1 14:20:30 2016
+// Update Count     : 60
 //
 
-#include "iostream.h"
+#include "iostream"
+
 extern "C" {
 #include <stdio.h>
 #include <string.h>                                                                             // strlen
+#include <complex.h>                                                                    // creal, cimag
 }
 
@@ -62 +64 @@
 
 forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, float f ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%g", f ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
 ostype * ?|?( ostype *os, double d ) {
         char buffer[32];
@@ -71 +79 @@
         char buffer[32];
         return write( os, buffer, sprintf( buffer, "%Lg", d ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, float _Complex c ) {
+        return os | crealf( c ) | (cimagf( c ) < 0 ? "" : "+") | cimagf( c ) | 'i';
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, double _Complex c ) {
+        return os | creal( c ) | (cimag( c ) < 0 ? "" : "+") | cimag( c ) | 'i';
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, long double _Complex c ) {
+        return os | creall( c ) | (cimagl( c ) < 0 ? "" : "+") | cimagl( c ) | 'i';
 } // ?|?