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

File:

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

src/examples/square.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:43:34 2015
-// Update Count     : 2
+// Last Modified On : Tue Mar  8 22:05:48 2016
+// Update Count     : 27
 //
 
-extern "C" {
-#include <stdio.h>
-}
+#include <fstream>
 
-forall( type T | { T ?*?( T, T ); } )
+forall( otype T | { T ?*?( T, T ); } )
 T square( T t ) {
         return t * t;
-}
-
-//char ?*?( char a1, char a2 ) {
-//      return (char)( (int)a1 * (int)a2 );
-//}
+} // square
 
 int main() {
-        char c = 5;
-        short int s = 5;
-        int i = 5;
-        float f = 5.0;
-        double d = 5.0;
-//      printf( "result of square of 5 is %d\n", (char)square( c ) );
-        printf( "result of square of 5 is %d\n", square( s ) );
-        printf( "result of square of 5 is %d\n", square( i ) );
-        printf( "result of square of 5 is %f\n", square( f ) );
-        printf( "result of square of 5 is %f\n", square( d ) );
-}
+#if 0
+        sout | "result of squaring 9 is " | endl;
+
+        // char does not have multiplication.
+        char ?*?( char a1, char a2 ) {
+                return (char)((int)a1 * (int)a2);
+        } // ?*?
+        char c = 9;
+        sout | "char\t\t\t" | square( c ) | endl;
+
+        sout | square( s ) | endl;
+#endif
+        short s = 9;
+        square( s );
+#if 0
+        signed int i = 9;
+        sout | "signed int\t\t" | square( i ) | endl;
+
+        unsigned int ui = 9;
+        sout | "unsigned int\t\t" | square( ui ) | endl;
+
+        long int li = 9;
+        sout | "signed long int\t\t" | square( li ) | endl;
+
+        unsigned long int uli = 9;
+        sout | "unsigned long int\t" | square( uli ) | endl;
+
+        signed long long int lli = 9;
+        sout | "signed long long int\t" | square( lli ) | endl;
+
+        unsigned long long int ulli = 9;
+        sout | "unsigned long long int\t" | square( ulli ) | endl;
+
+        float f = 9.0;
+        sout | "float\t\t\t" | square( f ) | endl;
+
+        double d = 9.0;
+        sout | "double\t\t\t" | square( d ) | endl;
+
+        long double ld = 9.0;
+        sout | "long double\t\t" | square( ld ) | endl;
+#endif
+} // main
 
 // Local Variables: //