Changeset 76934fb for src/examples/iostream.c

Timestamp:

Jun 1, 2015, 12:55:33 PM (10 years ago)

Author:

Rob Schluntz <rschlunt@…>

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:

6db50d5

Parents:

46cbfe1 (diff), db82596 (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 labels

File:

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

src/examples/iostream.c

@@ -1 @@
-// "cfa -c -o iostream.o iostream.c"
-// "cfa -v -E iostream.c > iostream_out.c"
-// "cfa -CFA iostream.c > iostream_out.c"
-// "cfa iostream_out.c"
-// "gcc32 iostream_out.c LibCfa/libcfa.a"
+//
+// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
+//
+// The contents of this file are covered under the licence agreement in the
+// file "LICENCE" distributed with Cforall.
+//
+// iostream.c -- 
+//
+// Author           : Richard C. Bilson
+// 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
+//
 
 #include "iostream.h"
@@ -10 +19 @@
 //#include <string.h>
 //#include <ctype.h>
-typedef long unsigned int size_t;
-size_t strlen(const char *s);
+        typedef long unsigned int size_t;
+        size_t strlen(const char *s);
 }
 
 forall( dtype ostype | ostream( ostype ) )
 ostype * ?<<?( ostype *os, char c ) {
-    return write( os, &c, 1 );
+        return write( os, &c, 1 );
 }
 
 forall( dtype ostype | ostream( ostype ) )
 ostype * ?<<?( ostype *os, int i ) {
-    char buffer[20];      // larger than the largest integer
-    sprintf( buffer, "%d", i );
-    return write( os, buffer, strlen( buffer ) );
+        char buffer[20];      // larger than the largest integer
+        sprintf( buffer, "%d", i );
+        return write( os, buffer, strlen( buffer ) );
 }
 
 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];      // larger than the largest double
+        sprintf( buffer, "%g", d );
+        return write( os, buffer, strlen( buffer ) );
 }
 
 forall( dtype ostype | ostream( ostype ) )
 ostype * ?<<?( ostype *os, const char *cp ) {
-    return write( os, cp, strlen( cp ) );
+        return write( os, cp, strlen( cp ) );
 }
 
 forall( dtype istype | istream( istype ) )
 istype * ?>>?( istype *is, char *cp ) {
-    return read( is, cp, 1 );
+        return read( is, cp, 1 );
 }
 
 forall( dtype istype | istream( istype ) )
 istype * ?>>?( istype *is, int *ip ) {
-    char cur;
+        char cur;
   
-    // skip some whitespace
-    do {
-        is >> &cur;
-        if ( fail( is ) || eof( is ) ) return is;
-    } while ( !( cur >= '0' && cur <= '9' ) );
+        // skip some whitespace
+        do {
+                is >> &cur;
+                if ( fail( is ) || eof( is ) ) return is;
+        } while ( !( cur >= '0' && cur <= '9' ) );
   
-    // accumulate digits
-    *ip = 0;
-    while ( cur >= '0' && cur <= '9' ) {
-        *ip = *ip * 10 + ( cur - '0' );
-        is >> &cur;
-        if ( fail( is ) || eof( is ) ) return is;
-    }
+        // accumulate digits
+        *ip = 0;
+        while ( cur >= '0' && cur <= '9' ) {
+                *ip = *ip * 10 + ( cur - '0' );
+                is >> &cur;
+                if ( fail( is ) || eof( is ) ) return is;
+        }
   
-    unread( is, cur );
-    return is;
+        unread( is, cur );
+        return is;
 }
+
+// Local Variables: //
+// tab-width: 4 //
+// compile-command: "cfa iostream.c" //
+// End: //