1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
module Data.GI.GIR.Property
( Property(..)
, PropertyFlag(..)
, parseProperty
) where
import Data.Text (Text)
#if !MIN_VERSION_base(4,11,0)
import Data.Monoid ((<>))
#endif
import Data.GI.GIR.Arg (parseTransferString)
import Data.GI.GIR.BasicTypes (Transfer(..), Type)
import Data.GI.GIR.Parser
import Data.GI.GIR.Type (parseType)
data PropertyFlag = PropertyReadable
| PropertyWritable
| PropertyConstruct
| PropertyConstructOnly
deriving (Show,Eq)
data Property = Property {
propName :: Text,
propType :: Type,
propFlags :: [PropertyFlag],
propReadNullable :: Maybe Bool,
propWriteNullable :: Maybe Bool,
propTransfer :: Transfer,
propDoc :: Documentation,
propDeprecated :: Maybe DeprecationInfo
} deriving (Show, Eq)
parseProperty :: Parser Property
parseProperty = do
name <- getAttr "name"
t <- parseType
transfer <- optionalAttr "transfer-ownership" TransferNothing parseTransferString
deprecated <- parseDeprecation
readable <- optionalAttr "readable" True parseBool
writable <- optionalAttr "writable" False parseBool
construct <- optionalAttr "construct" False parseBool
constructOnly <- optionalAttr "construct-only" False parseBool
maybeNullable <- optionalAttr "nullable" Nothing (\t -> Just <$> parseBool t)
let flags = (if readable then [PropertyReadable] else [])
<> (if writable then [PropertyWritable] else [])
<> (if construct then [PropertyConstruct] else [])
<> (if constructOnly then [PropertyConstructOnly] else [])
doc <- parseDocumentation
return $ Property {
propName = name
, propType = t
, propFlags = flags
, propTransfer = transfer
, propDeprecated = deprecated
, propDoc = doc
, propReadNullable = maybeNullable
, propWriteNullable = maybeNullable
}
|
