|
| 1 | +module main { |
| 2 | + |
| 3 | + var fork_taken : [bv2]boolean; |
| 4 | + var num_forks : [bv2]bv2; |
| 5 | + var eaten : [bv2]boolean; |
| 6 | + |
| 7 | + |
| 8 | + var got_forks_left : [bv2]boolean; |
| 9 | + var got_forks_right : [bv2]boolean; |
| 10 | + |
| 11 | + |
| 12 | + init { |
| 13 | + fork_taken = const(false, [bv2]boolean); |
| 14 | + num_forks = const(0bv2, [bv2]bv2); |
| 15 | + eaten = const(false, [bv2]boolean); |
| 16 | + got_forks_left = const(false, [bv2]boolean); |
| 17 | + got_forks_right = const(false, [bv2]boolean); |
| 18 | + } |
| 19 | + |
| 20 | + |
| 21 | + procedure acquire_left(i: bv2) |
| 22 | + returns (success: boolean) |
| 23 | + modifies fork_taken; |
| 24 | + { |
| 25 | + success = false; |
| 26 | + if (fork_taken[i - 1bv2] == false) { |
| 27 | + fork_taken[i - 1bv2] = true; |
| 28 | + success = true; |
| 29 | + } |
| 30 | + } |
| 31 | + |
| 32 | + |
| 33 | + procedure acquire_right(i: bv2) |
| 34 | + returns (success: boolean) |
| 35 | + modifies fork_taken; |
| 36 | + { |
| 37 | + success = false; |
| 38 | + if (fork_taken[i] == false) { |
| 39 | + fork_taken[i] = true; |
| 40 | + success = true; |
| 41 | + } |
| 42 | + } |
| 43 | + |
| 44 | + input i: bv2; |
| 45 | + input tryLeft : boolean; |
| 46 | + input tryRight: boolean; |
| 47 | + |
| 48 | + procedure get_forks(i: bv2) |
| 49 | + modifies fork_taken, num_forks, got_forks_left, got_forks_right; |
| 50 | + { |
| 51 | + var got_fork : boolean; |
| 52 | + |
| 53 | + // each philosopher tries to acquire left fork first and then right fork |
| 54 | + |
| 55 | + if (tryLeft && !got_forks_left[i]) { |
| 56 | + call (got_fork) = acquire_left(i); |
| 57 | + if (got_fork) { |
| 58 | + num_forks[i] = num_forks[i] + 1bv2; |
| 59 | + got_forks_left[i] = true; |
| 60 | + } |
| 61 | + } |
| 62 | + |
| 63 | + if (tryRight && got_forks_left[i] && !got_forks_right[i]) { |
| 64 | + call (got_fork) = acquire_right(i); |
| 65 | + if (got_fork) { |
| 66 | + num_forks[i] = num_forks[i] + 1bv2; |
| 67 | + got_forks_right[i] = true; |
| 68 | + } |
| 69 | + } |
| 70 | + } |
| 71 | + |
| 72 | + procedure release_forks(i: bv2) |
| 73 | + modifies num_forks, fork_taken, got_forks_left, got_forks_right; |
| 74 | + { |
| 75 | + // releases the forks after philosopher has eaten once |
| 76 | + // and again competes to acquire the forks |
| 77 | + num_forks[i] = 0bv2; |
| 78 | + fork_taken[i] = false; |
| 79 | + fork_taken[i - 1bv2] = false; |
| 80 | + got_forks_right[i] = false; |
| 81 | + got_forks_left[i] = false; |
| 82 | + } |
| 83 | + |
| 84 | + next { |
| 85 | + |
| 86 | + if (eaten[i] == false) { |
| 87 | + // try acquiring two forks |
| 88 | + call get_forks(i); |
| 89 | + if (num_forks[i] == 2bv2) { eaten' = eaten[i -> true]; } |
| 90 | + } |
| 91 | + else { |
| 92 | + call release_forks(i); |
| 93 | + eaten' = eaten[i -> false]; |
| 94 | + } |
| 95 | + } |
| 96 | + |
| 97 | + // Given all resource has been consumed and all users have tried, |
| 98 | + // then atleast one philosopher has succeed |
| 99 | + // (i.e. no deadlock, however starvation is possible) |
| 100 | + property[LTL] someone_eats: |
| 101 | + |
| 102 | + G ( F(i == 0bv2) && F ((i == 1bv2)) && F(i == 2bv2) && F(i == 3bv2) && |
| 103 | + F(fork_taken[0bv2] == true) && F(fork_taken[1bv2] == true) && |
| 104 | + F(fork_taken[2bv2] == true) && F(fork_taken[3bv2] == true)) |
| 105 | + ==> F(eaten[0bv2] || eaten[1bv2] || eaten[2bv2] || eaten[3bv2]); |
| 106 | + |
| 107 | + |
| 108 | + |
| 109 | + control { |
| 110 | + v = bmc(8); |
| 111 | + check; |
| 112 | + print_results; |
| 113 | + v.print_cex(i, tryLeft, tryRight, got_forks_left, got_forks_right, fork_taken, num_forks, eaten); |
| 114 | + } |
| 115 | +} |
0 commit comments