Changes in src/examples/prolog.c [b63e376:4040425]

File:

• src/examples/prolog.c (modified) (2 diffs)

src/examples/prolog.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:09:39 2016
-// Update Count     : 5
+// Last Modified On : Wed Mar  2 18:11:18 2016
+// Update Count     : 2
 //
 
-#include <fstream>
+extern "C" { extern int printf( const char *fmt, ... ); }
 
-void printResult( int x ) { sout | "int" | endl; }
-void printResult( double x ) { sout | "double" | endl; }
-void printResult( char * x ) { sout | "char*" | endl; }
+void printResult( int x ) { printf( "int\n" ); }
+void printResult( double x ) { printf( "double\n" ); }
+void printResult( char * x ) { printf( "char*\n" ); }
 
 void is_arithmetic( int x ) {}
@@ -25 +25 @@
 void is_integer( int x ) {}
 
-trait ArithmeticType( otype T ) {
+trait ArithmeticType( type T ) {
         void is_arithmetic( T );
 };
 
-trait IntegralType( otype T | ArithmeticType( T ) ) {
+trait IntegralType( type T | ArithmeticType( T ) ) {
         void is_integer( T );
 };
 
-forall( otype T | IntegralType( T ) | { void printResult( T ); } )
+forall( type T | IntegralType( T ) | { void printResult( T ); } )
 void hornclause( T param ) {
         printResult( param );