libxml2
Стандартная библиотека для доступа к XML-файлам.
Вебсайт: http://xmlsoft.org/
Поддерживаемые платформы: Win32, Linux
Заголовки: libxml/*.bi
Версия заголовков: 2.6.17
Примеры: в examples/xml/
Вебсайт: http://xmlsoft.org/
Поддерживаемые платформы: Win32, Linux
Заголовки: libxml/*.bi
Версия заголовков: 2.6.17
Примеры: в examples/xml/
Пример
#include once "libxml/xmlreader.bi"
#define NULL 0
Dim As String filename = Command(1)
If( Len( filename ) = 0 ) Then
Print "Usage: libxml filename"
End 1
End If
Dim As xmlTextReaderPtr reader = xmlReaderForFile( filename, NULL, 0 )
If (reader = NULL) Then
Print "Unable to open "; filename
End 1
End If
Dim As Integer ret = xmlTextReaderRead( reader )
Do While( ret = 1 )
Dim As ZString Ptr constname = xmlTextReaderConstName( reader )
Dim As ZString Ptr value = xmlTextReaderConstValue( reader )
Print xmlTextReaderDepth( reader ); _
xmlTextReaderNodeType( reader ); _
" "; *constname; _
xmlTextReaderIsEmptyElement(reader); _
xmlTextReaderHasValue( reader ); _
*value
ret = xmlTextReaderRead( reader )
Loop
xmlFreeTextReader( reader )
If( ret <> 0 ) Then
Print "failed to parse: "; filename
End If
xmlCleanupParser( )
xmlMemoryDump()
#define NULL 0
Dim As String filename = Command(1)
If( Len( filename ) = 0 ) Then
Print "Usage: libxml filename"
End 1
End If
Dim As xmlTextReaderPtr reader = xmlReaderForFile( filename, NULL, 0 )
If (reader = NULL) Then
Print "Unable to open "; filename
End 1
End If
Dim As Integer ret = xmlTextReaderRead( reader )
Do While( ret = 1 )
Dim As ZString Ptr constname = xmlTextReaderConstName( reader )
Dim As ZString Ptr value = xmlTextReaderConstValue( reader )
Print xmlTextReaderDepth( reader ); _
xmlTextReaderNodeType( reader ); _
" "; *constname; _
xmlTextReaderIsEmptyElement(reader); _
xmlTextReaderHasValue( reader ); _
*value
ret = xmlTextReaderRead( reader )
Loop
xmlFreeTextReader( reader )
If( ret <> 0 ) Then
Print "failed to parse: "; filename
End If
xmlCleanupParser( )
xmlMemoryDump()