Changeset 937e51d for src/examples/simple.c
- Timestamp:
- Jun 26, 2015, 4:00:26 PM (10 years ago)
- Branches:
- ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, ctor, deferred_resn, demangler, enum, forall-pointer-decay, gc_noraii, jacob/cs343-translation, jenkins-sandbox, master, memory, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, string, with_gc
- Children:
- 0df292b, e0ff3e6
- Parents:
- eb50842 (diff), 1869adf (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the(diff)links above to see all the changes relative to each parent. - File:
-
- 1 edited
-
src/examples/simple.c (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/examples/simple.c
reb50842 r937e51d 1 // './cfa square.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 // simple.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:30:27 2015 13 // Update Count : 3 14 // 2 15 3 16 extern "C" { 4 int printf( const char *fmt, ... );17 int printf( const char *fmt, ... ); 5 18 } 6 19 7 20 context has_star( type T ) { 8 T ?*?( T, T );21 T ?*?( T, T ); 9 22 }; 10 23 11 24 int ?*?( int, int ); 12 int ?=?( int *, int );25 int ?=?( int *, int ); 13 26 14 27 forall( type T | has_star( T ) ) 15 28 T square( T t ) { 16 return t * t;29 return t * t; 17 30 } 18 31 19 32 int main() { 20 printf( "result of square of 5 is %d\n", square( 5 ) );33 printf( "result of square of 5 is %d\n", square( 5 ) ); 21 34 } 35 36 // Local Variables: // 37 // tab-width: 4 // 38 // compile-command: "cfa simple.c" // 39 // End: //
Note:
See TracChangeset
for help on using the changeset viewer.