#######################################
# Fischer's mutual exclusion protocol #
#######################################
#                                     #
# przy setv1, setv2 - duza delta      #
# przy enter1, enter2 - mala delta    #
#                                     #
# wzajemne wykluczanie przy:          #
#                                     #
#   mala delta >= duza delta          #
#                                     #
#######################################

net {
	actions {
		start1;
		setv1;
		enter1;
		setv01;
		
		start2;
		setv2;
		enter2;
		setv02;
		
		start3;
		setv3;
		enter3;
		setv03;
	};

	automaton proc1 {
		clocks {
			x1;
		};
		locations {
			idle1 { init; };
			try1;
			wait1;
			crit1;
		};
		trans {
			idle1 -> try1, start1, , { x1; };
			try1 -> wait1, setv1, x1 < 1, { x1; };
			wait1 -> crit1, enter1, x1 > 2, { };
			crit1 -> idle1, setv01, , { };
		};
	};

	automaton proc2 {
		clocks {
			x2;
		};
		locations {
			idle2 { init; };
			try2;
			wait2;
			crit2;
		};
		trans {
			idle2 -> try2, start2, , { x2; };
			try2 -> wait2, setv2, x2 < 1, { x2; };
			wait2 -> crit2, enter2, x2 > 2, { };
			crit2 -> idle2, setv02, , { };
		};
	};
	
	automaton proc3 {
		clocks {
			x3;
		};
		locations {
			idle3 { init; };
			try3;
			wait3;
			crit3;
		};
		trans {
			idle3 -> try3, start3, , { x3; };
			try3 -> wait3, setv3, x3 < 1, { x3; };
			wait3 -> crit3, enter3, x3 > 2, { };
			crit3 -> idle3, setv03, , { };
		};
	};
		
	automaton varV {
		locations {
			v0 { init; };
			v1;
			v2;
			v3;
		};
		trans {
			v0 -> v0, start1, , { };
			v0 -> v0, start2, , { };
			v0 -> v0, start3, , { };
			v0 -> v1, setv1, , { };
			v0 -> v2, setv2, , { };
			v0 -> v3, setv3, , { };
			
			v1 -> v0, setv01, , { };
			v1 -> v1, enter1, , { };
			v1 -> v1, setv1, , { };
			v1 -> v2, setv2, , { };
			v1 -> v3, setv3, , { };
			
			v2 -> v0, setv02, , { };
			v2 -> v2, enter2, , { };
			v2 -> v1, setv1, , { };
			v2 -> v2, setv2, , { };
			v2 -> v3, setv3, , { };			
		};
	};

};

reach {
 	mutualexclusion_p1p2 { crit1@proc1 crit2@proc2 };
	mutualexclusion_p1p3 { crit1@proc1 crit3@proc3 };
	mutualexclusion_p2p3 { crit2@proc2 crit3@proc3 };
};