Changeset 784deab for src/examples/iostream.c

Timestamp:

Jan 8, 2016, 10:37:10 PM (8 years ago)

Author:

Peter A. Buhr <pabuhr@…>

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, string, with_gc

Children:

61f9356

Parents:

1cced28

Message:

fix recursive include bug in shadow includes, major clean of examples, add several long long routines to prelude

File:

• src/examples/iostream.c (modified) (3 diffs)

src/examples/iostream.c

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Dec  7 23:08:02 2015
-// Update Count     : 24
+// Last Modified On : Mon Jan  4 09:38:58 2016
+// Update Count     : 37
 //
 
@@ -27 +27 @@
 forall( dtype ostype | ostream( ostype ) )
 ostype * ?|?( ostype *os, int i ) {
-        char buffer[32];                                                                        // larger than the largest integer
-        sprintf( buffer, "%d", i );
-        return write( os, buffer, strlen( buffer ) );
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%d", i ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, unsigned int i ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%u", i ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, long int i ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%ld", i ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, long long int i ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%lld", i ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, unsigned long int i ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%lu", i ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, unsigned long long int i ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%llu", i ) );
 } // ?|?
 
 forall( dtype ostype | ostream( ostype ) )
 ostype * ?|?( ostype *os, double d ) {
-        char buffer[32];                                                                        // larger than the largest double
-        sprintf( buffer, "%g", d );
-        return write( os, buffer, strlen( buffer ) );
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%g", d ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, long double d ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%Lg", d ) );
+} // ?|?
+
+forall( dtype ostype | ostream( ostype ) )
+ostype * ?|?( ostype *os, const void *p ) {
+        char buffer[32];
+        return write( os, buffer, sprintf( buffer, "%p", p ) );
 } // ?|?
 
@@ -42 +82 @@
 ostype * ?|?( ostype *os, const char *cp ) {
         return write( os, cp, strlen( cp ) );
-} // ?|?
-
-forall( dtype ostype | ostream( ostype ) )
-ostype * ?|?( ostype *os, const void *p ) {
-        char buffer[32];                                                                        // larger than the largest pointer
-        sprintf( buffer, "%p", p );
-        return write( os, buffer, strlen( buffer ) );
 } // ?|?