Changes in src/examples/prolog.c [86bd7c1f:843054c2]
- File:
-
- 1 edited
-
src/examples/prolog.c (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/examples/prolog.c
r86bd7c1f r843054c2 1 // 2 // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo 3 // 4 // The contents of this file are covered under the licence agreement in the 5 // file "LICENCE" distributed with Cforall. 6 // 7 // prolog.c -- 8 // 9 // Author : Richard C. Bilson 10 // Created On : Wed May 27 17:56:53 2015 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed May 27 18:25:52 2015 13 // Update Count : 1 14 // 1 // "./cfa prolog.c" 15 2 16 3 extern "C" { extern int printf( const char *fmt, ... ); } … … 26 13 27 14 context ArithmeticType( type T ) { 28 void is_arithmetic( T );15 void is_arithmetic( T ); 29 16 }; 30 17 31 18 context IntegralType( type T | ArithmeticType( T ) ) { 32 void is_integer( T );19 void is_integer( T ); 33 20 }; 34 21 35 22 forall( type T | IntegralType( T ) | { void printResult( T ); } ) 36 23 void hornclause( T param ) { 37 printResult( param );24 printResult( param ); 38 25 } 39 26 40 27 int main() { 41 int x;42 double x;43 char * x;44 hornclause( x );28 int x; 29 double x; 30 char * x; 31 hornclause( x ); 45 32 } 46 47 // Local Variables: //48 // tab-width: 4 //49 // compile-command: "cfa prolog.c" //50 // End: //
Note:
See TracChangeset
for help on using the changeset viewer.