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
50f66913
Commit
50f66913
authored
Nov 28, 2017
by
Stefan Jaax
Browse files
Fix parser
parent
2e4a81db
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Parser/PP.hs
View file @
50f66913
...
...
@@ -174,8 +174,9 @@ recordPP2PopulationProtocol :: RecordPP -> PopulationProtocol
recordPP2PopulationProtocol
r
=
makePopulationProtocolFromStrings
(
title
r
)
(
states
r
)
(
map
name
(
transitions
r
))
(
initialStates
r
)
(
trueStates
r
)
falseStates
p
arcs
where
falseStates
=
[
q
|
q
<-
states
r
,
not
(
S
.
member
q
(
S
.
fromList
(
trueStates
r
)))]
count
=
\
x
->
length
.
(
filter
(
==
x
))
arcs
=
[(
name
t
,
q
,
toInteger
m
)
|
t
<-
transitions
r
,
q
<-
(
pre
t
++
post
t
),
let
m
=
(
count
q
)
(
post
t
)
-
(
count
q
)
(
pre
t
)]
count
=
\
x
->
fromIntegral
.
length
.
(
filter
(
==
x
))
arcs
=
[(
q
,
name
t
,
(
count
q
)
(
pre
t
))
|
t
<-
transitions
r
,
q
<-
pre
t
]
++
[(
name
t
,
q
,
(
count
q
)
(
post
t
))
|
t
<-
transitions
r
,
q
<-
post
t
]
p
=
case
predicate
r
of
Nothing
->
ExQuantFormula
[]
FTrue
(
Just
p'
)
->
p'
...
...
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