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

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 : Wed May 27 18:37:23 2015
-// Update Count     : 1
+// Last Modified On : Tue Mar  8 22:04:58 2016
+// Update Count     : 16
 //
 
-#include "fstream.h"
+#include <fstream>
 
-forall( type T | { T ?+?( T, T ); T ?++( T * ); [T] ?+=?( T *, T ); } )
+forall( otype T | { T ?+?( T, T ); T ?++( T * ); [T] ?+=?( T *, T ); } )
 T twice( const T t ) {
         return t + t;
 }
 
-int main() {
-        ofstream *sout = ofstream_stdout();
-        sout << twice( 1 ) << ' ' << twice( 3.2 ) << '\n';
+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;
 }
 
 // Local Variables: //
 // tab-width: 4 //
-// compile-command: "cfa twice.c fstream.o iostream.o" //
+// compile-command: "cfa twice.c" //
 // End: //