Changeset 134b86a for translator/examples/iostream.c

Timestamp:

Nov 3, 2014, 4:38:08 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, with_gc

Children:

8c17ab0

Parents:

93885663

Message:

add compiler flag to driver, update examples, fix unnamed bit fields

File:

• translator/examples/iostream.c (modified) (1 diff)

translator/examples/iostream.c

@@ -6 +6 @@
 
 #include "iostream.h"
-#undef __cplusplus
 extern "C" {
-#include <string.h>
-#include <ctype.h>
 #include <stdio.h>
+//#include <string.h>
+//#include <ctype.h>
+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 );
+ostype * ?<<?( ostype *os, char c ) {
+    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 ) );
+ostype * ?<<?( ostype *os, int i ) {
+    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, const char *cp )
-{
-  return write( os, cp, strlen( cp ) );
+ostype * ?<<?( ostype *os, double d ) {
+    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 ) );
 }
 
 forall( dtype istype | istream( istype ) )
-istype *
-?>>?( istype *is, char *cp )
-{
-  return read( is, cp, 1 );
+istype * ?>>?( istype *is, char *cp ) {
+    return read( is, cp, 1 );
 }
 
 forall( dtype istype | istream( istype ) )
-istype *
-?>>?( istype *is, int *ip )
-{
-  char cur;
+istype * ?>>?( istype *is, int *ip ) {
+    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;
 }