Changeset d3b7937 for src/examples/sum.c

Timestamp:

Jan 29, 2016, 4:36:39 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:

ae8b942

Parents:

f3fc8cbe

Message:

building runtime library (first attempt)

File:

• src/examples/sum.c (modified) (5 diffs)

src/examples/sum.c

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Jan  4 07:40:24 2016
-// Update Count     : 126
+// Last Modified On : Thu Jan 28 17:05:53 2016
+// Update Count     : 130
 //
 
-#include "fstream.h"
+#include <fstream>
 
 context sumable( type T ) {
@@ -22 +22 @@
         T ++?( T * );
         T ?++( T * );
-};
+}; // sumable
 
 forall( type T | sumable( T ) )
@@ -30 +30 @@
                 total += a[i];                                                                  // select +
         return total;
-}
+} // sum
 
 // Required to satisfy sumable as char does not have addition.
@@ -61 +61 @@
                  | sum( size, (int *)a ) | ", check " | (int)s | endl;
 
+        float s = 0.0, a[size];
+        float v = low / 10.0;
+        for ( int i = 0; i < size; i += 1, v += 0.1f ) {
+                s += (float)v;
+                a[i] = (float)v;
+        }
+        sout | "sum from " | low / 10.0 | " to " | High / 10.0 | " is "
+                 | sum( size, (float *)a ) | ", check " | (float)s | endl;
+
         double s = 0.0, a[size];
         double v = low / 10.0;
@@ -69 +78 @@
         sout | "sum from " | low / 10.0 | " to " | High / 10.0 | " is "
                  | sum( size, (double *)a ) | ", check " | (double)s | endl;
-
-        float s = 0.0, a[size];
-        float v = low / 10.0;
-        for ( int i = 0; i < size; i += 1, v += 0.1f ) {
-                s += (float)v;
-                a[i] = (float)v;
-        }
-        sout | "sum from " | low / 10.0 | " to " | High / 10.0 | " is "
-                 | sum( size, (float *)a ) | ", check " | (float)s | endl;
-}
+} // main
 
 // Local Variables: //
 // tab-width: 4 //
-// compile-command: "cfa sum.c fstream.o iostream.o iterator.o" //
+// compile-command: "cfa sum.c" //
 // End: //