source: CIVL/examples/contracts/with.cvl

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100644
File size: 425 bytes
RevLine 
[13b3e46]1#include<collate.cvh>
2
[15a2fae]3$input int N=2;
[13b3e46]4
[15a2fae]5$gcollator gcollator=$gcollator_create($here, N);
6
7void process(int id){
[d5615cd]8 $scope here = $here;
9 $collator collator=$collator_create(gcollator, here, id);
10 $collate_state cs=$collate_arrives(collator, here);
[15a2fae]11
[a55a02c]12 $with (cs) {
[13b3e46]13 $assert($true);
14 }
[762b93c]15 $collate_departs(collator, cs);
[13b3e46]16 $free(collator);
[15a2fae]17}
18
19
20int main(){
21 $parfor(int i: 0 .. N-1)
22 process(i);
[13b3e46]23 $free(gcollator);
24}
Note: See TracBrowser for help on using the repository browser.