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
|
-- | Parsing of constants in GIR files.
module Data.GI.GIR.Constant
( Constant(..)
, parseConstant
) where
import Data.Text (Text)
import Data.GI.GIR.BasicTypes (Type)
import Data.GI.GIR.Type (parseType)
import Data.GI.GIR.Parser
-- | Info about a constant.
data Constant = Constant {
constantType :: Type,
constantValue :: Text,
constantCType :: Text,
constantDocumentation :: Documentation,
constantDeprecated :: Maybe DeprecationInfo
} deriving (Show)
-- | Parse a "constant" element from the GIR file.
parseConstant :: Parser (Name, Constant)
parseConstant = do
name <- parseName
deprecated <- parseDeprecation
value <- getAttr "value"
t <- parseType
-- This contains the C name for the constant. The C gir generator
-- call this "c:type", while the vala gir generator calls it
-- "c:identifier", so try both.
ctype <- queryAttrWithNamespace CGIRNS "type" >>= \case
Just i -> return i
Nothing -> getAttrWithNamespace CGIRNS "identifier"
doc <- parseDocumentation
return (name, Constant { constantType = t
, constantValue = value
, constantCType = ctype
, constantDocumentation = doc
, constantDeprecated = deprecated
})
|
