Assignment2/src/DTMC.dcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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
	}

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