Changes in src/examples/prolog.c [843054c2:86bd7c1f]
- File:
-
- 1 edited
-
src/examples/prolog.c (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/examples/prolog.c
r843054c2 r86bd7c1f 1 // "./cfa prolog.c" 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 // 2 15 3 16 extern "C" { extern int printf( const char *fmt, ... ); } … … 13 26 14 27 context ArithmeticType( type T ) { 15 void is_arithmetic( T );28 void is_arithmetic( T ); 16 29 }; 17 30 18 31 context IntegralType( type T | ArithmeticType( T ) ) { 19 void is_integer( T );32 void is_integer( T ); 20 33 }; 21 34 22 35 forall( type T | IntegralType( T ) | { void printResult( T ); } ) 23 36 void hornclause( T param ) { 24 printResult( param );37 printResult( param ); 25 38 } 26 39 27 40 int main() { 28 int x;29 double x;30 char * x;31 hornclause( x );41 int x; 42 double x; 43 char * x; 44 hornclause( x ); 32 45 } 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.