Ignore:
File:
1 edited

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"
    152
    163extern "C" { extern int printf( const char *fmt, ... ); }
     
    2613
    2714context ArithmeticType( type T ) {
    28         void is_arithmetic( T );
     15    void is_arithmetic( T );
    2916};
    3017
    3118context IntegralType( type T | ArithmeticType( T ) ) {
    32         void is_integer( T );
     19    void is_integer( T );
    3320};
    3421
    3522forall( type T | IntegralType( T ) | { void printResult( T ); } )
    3623void hornclause( T param ) {
    37         printResult( param );
     24    printResult( param );
    3825}
    3926
    4027int 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 );
    4532}
    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.