Changeset e56cfdb0 for src/examples/iostream.c

Timestamp:

Nov 19, 2015, 6:06:12 PM (10 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, stuck-waitfor-destruct, with_gc

Children:

05587c2

Parents:

d2ded3e7

Message:

allow nested routines to use type variables in containing scope, fix missing adapters, generalized iostream write

File:

• src/examples/iostream.c (modified) (4 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 : Wed May 27 18:18:13 2015
-// Update Count     : 2
+// Last Modified On : Thu Nov 19 17:54:38 2015
+// Update Count     : 4
 //
 
@@ -30 +30 @@
 forall( dtype ostype | ostream( ostype ) )
 ostype * ?<<?( ostype *os, int i ) {
-        char buffer[20];      // larger than the largest integer
+        char buffer[32];                                                                        // larger than the largest integer
         sprintf( buffer, "%d", i );
         return write( os, buffer, strlen( buffer ) );
@@ -37 +37 @@
 forall( dtype ostype | ostream( ostype ) )
 ostype * ?<<?( ostype *os, double d ) {
-        char buffer[32];      // larger than the largest double
+        char buffer[32];                                                                        // larger than the largest double
         sprintf( buffer, "%g", d );
         return write( os, buffer, strlen( buffer ) );
@@ -46 +46 @@
         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 ) );
+}
+
+forall( type elt_type | writeable( elt_type ),
+                type iterator_type | iterator( iterator_type, elt_type ),
+                dtype os_type | ostream( os_type ) )
+void write( iterator_type begin, iterator_type end, os_type *os ) {
+        void print( elt_type i ) {
+                os << i << ' ';
+        }
+        for_each( begin, end, print );
+}
+
+forall( type elt_type | writeable( elt_type ),
+                type iterator_type | iterator( iterator_type, elt_type ),
+                dtype os_type | ostream( os_type ) )
+void write_reverse( iterator_type begin, iterator_type end, os_type *os ) {
+        void print( elt_type i ) {
+                os << i << ' ';
+        }
+        for_each_reverse( begin, end, print );
+}
+
 
 forall( dtype istype | istream( istype ) )