Untitled

/* DTU Course 02158 Concurrent Programming
 *   Lab 2
 *   spin5.pml
 *     Skeleton PROMELA model of mutual exlusion by coordinator
 */

#define N 10

bool enter[N];  /* Request to enter flags */
bool ok[N];     /* Entry granted flags    */

int incrit = 0; /* For easy statement of mutual exlusion */

/*
 * Below it is utilised that the first N process instances will get 
 * pids from 0 to (N-1).  Therefore, the pid can be directly used as 
 * an index in the flag arrays.
 */

active [N] proctype P()
{
	do
	::	/* First statement is a dummy to allow a label at start */
		skip; 

entry:	
		enter[_pid] = true;
		/*await*/ ok[_pid] ->

crit:	/* Critical section */
		incrit++;
		assert(incrit == 1);
		incrit--;
  	
exit: 
		/* Your code here */
		enter[_pid] = false;
		/* Transfer back the access control to the coordi*/
		ok[_pid] = false;

		/* Non-critical setion (may or may not terminate) */
		do :: true -> skip :: break od

	od;
}

active proctype Coordinator()
{
	int i = 0;
	do :: true -> 
			/* Wait 4 it to be ready to enter */
			do :: enter[i] -> break :: !enter[i] -> skip od; 
			/* It can now enter */
			ok[i] = true;
			/* Wait for it to be done */
			do :: !enter[i] -> break :: enter[i] -> skip od; 
			/* Revoke access */
			i = i + 1;
			if :: i == N ->  i = 0 :: else -> skip fi;
	od
 }

ltl fair1 { [] true }