teaching/muMLE
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add petrinet language

Browse source
This commit is contained in:
Joeri Exelmans 2024-11-21 12:10:28 +01:00
parent dd7a0536c9
commit 5240c7e21a
12 changed files with 137 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
examples/petrinet/operational_semantics/r_fire_transition_rhs.od Normal file
View file

@ -0,0 +1,19 @@
t:RAM_Transition {
condition = ```
# remove 1 token from every place connected with incoming arc
for incoming in get_incoming(this, "arc"):
in_place = get_source(incoming)
in_place_state = get_source(get_incoming(in_place, "of")[0])
in_num_tokens = get_slot_value(in_place_state, "numTokens")
set_slot_value(in_place_state, "numTokens", in_num_tokens - 1)
print("place", get_name(in_place_state), "now has", in_num_tokens-1, "tokens")
# add 1 token to every place connected with outgoing arc
for outgoing in get_outgoing(this, "arc"):
out_place = get_target(outgoing)
out_place_state = get_source(get_incoming(out_place, "of")[0])
out_num_tokens = get_slot_value(out_place_state, "numTokens")
set_slot_value(out_place_state, "numTokens", out_num_tokens + 1)
print("place", get_name(out_place_state), "now has", out_num_tokens+1, "tokens")
```;
}