/*
* For more details about this example, see
* "Automatic Verification of Real-Time Communicating Systems by Constraint Solving",
* by Wang Yi, Paul Pettersson and Mats Daniels. In Proceedings of the 7th International
* Conference on Formal Description Techniques, pages 223-238, North-Holland. 1994.
*/
const int N = 6; // # trains
chan appr, stop, go, leave;
typedef int[0,N-1] id_t;Trainconst id_t id, id_t &eclock x;SafeStopCrossApprStartGateid_t &eid_t list[N+1];
int[0,N] len;
void enqueue(id_t element)
{
list[len++] = element;
}
void dequeue()
{
int i = 0;
len -= 1;
while (i < len)
{
list[i] = list[i + 1];
i++;
}
list[i] = 0;
i = 0;
}
OccFreeid_t el;
trains(const id_t id) = Train(id, el);
gate = Gate(el);
system trains, gate;