Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
9.2.2023: Due to updates GitLab will be unavailable for some minutes between 9:00 and 11:00.
Open sidebar
i7
peregrine
Commits
a6f74eb6
Commit
a6f74eb6
authored
Jul 16, 2014
by
Philipp Meyer
Browse files
Made output compatible with sara
parent
1ec6cad1
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/Main.hs
View file @
a6f74eb6
...
...
@@ -222,7 +222,8 @@ transformNet (net, props) TerminationByReachability =
(
transitions
net
)
prop
=
Property
"termination by reachability"
Safety
$
foldl
(
:&:
)
(
Atom
(
LinIneq
(
Var
"'sigma"
)
Ge
(
Const
1
)))
(
map
(
\
p
->
Atom
(
LinIneq
(
Var
(
prime
p
))
Ge
(
Var
p
)))
(
map
(
\
p
->
Atom
(
LinIneq
(
Var
(
prime
p
)
:-:
Var
p
)
Ge
(
Const
0
)))
(
places
net
))
-- TODO: map existing liveness properties
in
(
makePetriNetWithTrans
(
name
net
)
ps
ts
is
,
prop
:
props
)
...
...
src/Printer/SARA.hs
View file @
a6f74eb6
...
...
@@ -41,7 +41,8 @@ printProperty :: String -> PetriNet -> Property -> String
printProperty
filename
net
(
Property
propname
Safety
f
)
=
"PROBLEM "
++
validateId
propname
++
":
\n
"
++
"GOAL REACHABILITY;
\n
"
++
"FILE "
++
filename
++
" TYPE LOLA;
\n
"
++
"FILE "
++
reverse
(
takeWhile
(
/=
'/'
)
(
reverse
filename
))
++
" TYPE LOLA;
\n
"
++
"INITIAL "
++
intercalate
","
(
map
(
\
(
p
,
i
)
->
p
++
":"
++
show
i
)
(
initials
net
))
++
";
\n
"
++
"FINAL COVER;
\n
"
++
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment