diff options
author | defanor <defanor@uberspace.net> | 2018-02-23 15:32:10 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2018-02-23 15:50:35 +0300 |
commit | cf2776fc2ce561cffc85bf9e6a11289372ea7fbb (patch) | |
tree | 0260823a9486c2a1d2fa46c11f25ad0349839ffe /Redland/LowLevel.hs | |
parent | 64ede85539277d676f4b9bed88599ce0b9150f23 (diff) |
Support literal node types/languages
Diffstat (limited to 'Redland/LowLevel.hs')
-rw-r--r-- | Redland/LowLevel.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Redland/LowLevel.hs b/Redland/LowLevel.hs index 07f20af..7be277a 100644 --- a/Redland/LowLevel.hs +++ b/Redland/LowLevel.hs @@ -187,6 +187,21 @@ foreign import ccall "librdf_node_get_literal_value" :: Ptr RedlandNode -> IO CString -- ^ Literal value, must be copied +foreign import ccall "librdf_node_get_literal_value_language" + librdf_node_get_literal_value_language + :: Ptr RedlandNode + -> IO CString + -- ^ Literal language value, must be copied +foreign import ccall "librdf_node_get_literal_value_datatype_uri" + librdf_node_get_literal_value_datatype_uri + :: Ptr RedlandNode + -> IO CString + -- ^ Literal datatype URI, must be copied +foreign import ccall "librdf_node_get_literal_value_is_wf_xml" + librdf_node_get_literal_value_is_wf_xml + :: Ptr RedlandNode + -> IO CInt + -- ^ 0 if it's not well formed XML foreign import ccall "librdf_node_get_uri" librdf_node_get_uri :: Ptr RedlandNode |