From cf2776fc2ce561cffc85bf9e6a11289372ea7fbb Mon Sep 17 00:00:00 2001 From: defanor Date: Fri, 23 Feb 2018 15:32:10 +0300 Subject: Support literal node types/languages --- Redland/LowLevel.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'Redland/LowLevel.hs') 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 -- cgit v1.2.3