maggicl/soft-an04
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ProMeLa implementation tweaks

Browse source
This commit is contained in:
Claudio Maggioni 2023-05-08 14:46:00 +02:00
parent 4f00be95f5
commit 46c19ef89f
1 changed files with 25 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
ReversalModel/reversal.pml
View file

@ -5,15 +5,26 @@
int to_reverse[LENGTH]; // array to reverse
int reversed[LENGTH]; // array where the reverse is stored
mtype = { END };
// ThreadedReverser implementation
proctype ThreadedReverser(int from; int to) {
proctype ThreadedReverser(int from; int to; chan out) {
printf("proc[%d]: started\n", _pid);
int k;
for (k: from .. to) {
reversed[LENGTH - k - 1] = to_reverse[k];
}
}
printf("proc[%d]: ended\n", _pid);
end:
out!_pid;
}
init {
chan in = [N] of { mtype };
// array initialization
{
int i;
@ -27,6 +38,10 @@ init {
// ParallelReverser implementation
int n;
int s = LENGTH / N;
pid pids[N];
// fork section
for (n: 0 .. N) {
int from = n * s;
int to;
@ -34,7 +49,14 @@ init {
:: (n == N - 1) -> to = LENGTH;
:: else -> to = n * s + s;
fi
run ThreadedReverser(from, to);
pids[n] = run ThreadedReverser(from, to, in);
}
// join section
for (n: 0 .. N) {
in??eval(pids[n]);
printf("init: joined process %d\n", pids[n]);
}
}