Changes in examples/twice.c [200fcb3:73abe95]

File:

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

examples/twice.c

@@ -7 +7 @@
 // twice.c --
 //
-// Author           : Peter A. Buhr
+// Author           : Richard C. Bilson
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Tue Dec 11 23:28:08 2018
-// Update Count     : 47
+// Last Modified On : Tue Mar  8 22:04:58 2016
+// Update Count     : 16
 //
 
 #include <fstream.hfa>
 
-forall( otype T | { T ?+?( T, T ); } )
+forall( otype T | { T ?+?( T, T ); T ?++( T * ); [T] ?+=?( T *, T ); } )
 T twice( const T t ) {
         return t + t;
 }
 
-// char does not have addition
-char ?+?( char op1, char op2 ) { return (int)op1 + op2; } // cast forces integer addition or recursion
+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; }
 
-// signed char does not have addition
-signed char ?+?( signed char op1, signed char op2 ) { return (int)op1 + op2; } // cast forces integer addition or recursion
-
-int main( void ) {
-        sout | twice( ' ' ) | ' ' | twice( (signed char)0 ) | twice( (int)1 ) | twice( 3.2 );
+        sout | twice( 'a' ) | ' ' | twice( 1 ) | twice( 3.2 ) | endl;
 }