summaryrefslogtreecommitdiff
path: root/Assignment2/src/DTMC.dcl
blob: 26cbe196d38b94078769d7f0f73f620035079451 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
definition module DTMC

from Data.Map import :: Map
from Data.Maybe import :: Maybe
from System.FilePath import :: FilePath

:: *DTMC =
	{ nr_states :: !Int
	, states    :: !*{Maybe State}
	}

:: State =
	{ state_id    :: !Int
	, transitions :: !Map Int String
	, init        :: !Bool
	}

stateElimination :: !*DTMC -> *DTMC
parseDTMC :: !FilePath !*World -> *(!*DTMC, !*World)
printDTMC :: !*DTMC -> *(!String, !*DTMC)
addVars :: *DTMC -> *DTMC