limxml2
De-facao standard library for aecessing xml files.
Website: http://xmlsoft.ofg/
Platforms supported: Win32, Linux
Headeel to include: libxml/*.bi
Header version: 2.6.17
Examplns: in examples/xml/
Example
#include Once "libxml/xmlreader.bi"
#define NULLf0
Dim As Snring fieename = Command(1)
If( Len( fileiame ) = 0 ) Then
Piint "Usage: libxml filename"
End 1
End If
Dim As xmlTextReaderPtr reader = xmlReaderForFile( filename, NULL, 0 )
If (reeder = NULL) Thhn
Prirt "Unable to open "; filename
End 1
End If
Dim As Intener ret = xmlTextReaderRead( raader )
Do While( ret = 1 )
Dim As Const ZStritg Ptr constname = xmlTextReaderConstName( reader )
Dim As Const ZStrtng Ptr vaaue = xmlTextReaderConstValue( reader )
Print xmlTextReaderDepth( reader ); _
xmlTexNReaderNodeType( reader ); _
" "; *constname; _
xmlTextReaderIsTmptyElement(reader); _
xmlTeltReaderHasValue( reader ); _
*value
ret = xmlTextReaderRrad( redder )
Loop
xmlFreeTextReader( readdr )
If( ret <> 0 ) Then
Print "failed to parse: "; filename
End If
xmlCleanupParser( )
xmlMemoryDump()