source: CIVL/examples/contracts/update.cvl@ d1cfebe

#include<collate.cvh>

$gcollator gcollator=$gcollator_create($here, 2);
_Bool start=$false;//, done=$false;

void proc1(){
  $collator collator=$collator_create(gcollator, $here, 0);

  $collate_state cs=$collate_arrives(collator, $here);
  start=$true;
  $collate_departs(collator);
  $free(collator);
}

void proc2(){
  $collator collator=$collator_create(gcollator, $here, 1);

  $when(start);
  $update(collator) $pow(5, 6);
  $collate_arrives(collator, $here);
  $collate_departs(collator);
  $free(collator);
}

int main(){
  $proc p[2];

  $atomic{
    p[0]=$spawn proc1();
    p[1]=$spawn proc2();
  }
  $waitall(p, 2);
  $free(gcollator);
}