module Records where

data Template = Template {
	modul :: String,
	slots :: [Slot],
	signalTypes :: [SignalType],
	signals :: [Signal]
} deriving (Show)

data Slot = Slot {
	name :: String,
	monadic :: String,
	args :: [SlotArg],
	hasArgs :: Bool,
	crtype :: String,
	crwrap :: String
} deriving (Show)

data SlotArg = SlotArg {
	firstarg :: Bool,
	aname :: String,
	ctype :: String,
	lowctype :: String,
	qttype :: String,
	cwrap :: String,
	qtunwrap :: String
} deriving (Show)

data SignalType = SignalType {
	csigtype :: String,
	qtsigtype :: String,
	qtwrapsig :: String,
	lowcsigtype :: String,
	sigtypename :: String
} deriving (Show)

data Signal = Signal {
	signame :: String,
	sigargs :: [SignalArg],
	sigevent :: Integer,
	sigcwrap :: String
} deriving (Show)

data SignalArg = SignalArg {
	sigargfirst :: Bool,
	siganame :: String,
	qtsigargtype :: String,
	sigargsigtypename :: String
} deriving (Show)