Changes in src/examples/twice.c [b63e376:86bd7c1f]

File:

• src/examples/twice.c (modified) (1 diff)

src/examples/twice.c

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Tue Mar  8 22:04:58 2016
-// Update Count     : 16
+// Last Modified On : Wed May 27 18:37:23 2015
+// Update Count     : 1
 //
 
-#include <fstream>
+#include "fstream.h"
 
-forall( otype T | { T ?+?( T, T ); T ?++( T * ); [T] ?+=?( T *, T ); } )
+forall( type T | { T ?+?( T, T ); T ?++( T * ); [T] ?+=?( T *, T ); } )
 T twice( const T t ) {
         return t + t;
 }
 
-int main( void ) {
-        // char does not have addition
-        char ?+?( char op1, char op2 ) { return (int)op1 + op2; } // cast forces integer addition or recursion
-        char ++?( char *op ) { *op += 1; return *op; }
-        char ?++( char *op ) { char temp = *op; *op += 1; return temp; }
-
-        sout | twice( 'a' ) | ' ' | twice( 1 ) | twice( 3.2 ) | endl;
+int main() {
+        ofstream *sout = ofstream_stdout();
+        sout << twice( 1 ) << ' ' << twice( 3.2 ) << '\n';
 }
 
 // Local Variables: //
 // tab-width: 4 //
-// compile-command: "cfa twice.c" //
+// compile-command: "cfa twice.c fstream.o iostream.o" //
 // End: //