source:
CIVL/examples/contracts/with.cvl
| Last change on this file was ea777aa, checked in by , 3 years ago | |
|---|---|
|
|
| File size: 425 bytes | |
| Rev | Line | |
|---|---|---|
| [13b3e46] | 1 | #include<collate.cvh> |
| 2 | ||
| [15a2fae] | 3 | $input int N=2; |
| [13b3e46] | 4 | |
| [15a2fae] | 5 | $gcollator gcollator=$gcollator_create($here, N); |
| 6 | ||
| 7 | void 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 | ||
| 20 | int 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.
