03ac58b17b
* bin/commit.hb
* config/detect.mk
* config/detfun.mk
* config/detplat.mk
* config/dir.mk
* config/dirsh.mk
* config/global.mk
* config/globsh.mk
* config/instsh.mk
* config/lang.hb
* config/lang2po.hb
* config/po2lang.hb
* config/postinst.hb
* contrib/hbexpat/tests/tohash.prg
* contrib/hbformat/utils/hbformat.ini
* contrib/hbmisc/hbedit.prg
* contrib/hbmxml/tests/testmxml.prg
* contrib/hbnetio/utils/hbnetio/_console.prg
* contrib/hbnetio/utils/hbnetio/_winsvc.prg
* contrib/hbnetio/utils/hbnetio/hbnetio.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.hb
* contrib/hbwin/tests/ole.prg
* contrib/hbwin/tests/oletst2.js
* contrib/hbwin/tests/oletst2.vbs
* contrib/hbxpp/doc/en/binnumx.txt
* contrib/hbxpp/doc/en/dbcmdx.txt
* contrib/xhb/htmutil.prg
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/thtm.prg
* ChangeLog.txt
* debian/copyright
* doc/class_tp.txt
* doc/hdr_tpl.txt
* doc/xhb-diff.txt
* LICENSE.txt
* package/harbour-wce.spec.in
* package/harbour-win.spec.in
* package/harbour.spec
* package/mpkg_rpm_wce.sh
* package/mpkg_rpm_win.sh
* package/mpkg_rpm.sh
* package/mpkg_src.sh
* package/mpkg_ver.sh
* src/rtl/achoice.prg
* src/rtl/getsys53.prg
* src/rtl/tgetlist.prg
* src/rtl/tlabel.prg
* src/rtl/tmenusys.prg
* tests/hbdoc.prg
* tests/langmsg.prg
* tests/rto_get.prg
* tests/rto_tb.prg
+ doc/en/ati.txt
+ doc/en/dirdrive.txt
+ doc/en/hashfunc.txt
+ doc/en/hbtoken.txt
+ doc/en/left.txt
+ doc/en/proc.txt
+ doc/en/strtran.txt
+ doc/en/transfrm.txt
+ doc/en/typefile.txt
* doc/en/*
* more partial sync with 3.4 fork
715 lines
18 KiB
Plaintext
715 lines
18 KiB
Plaintext
/*
|
|
* Test program for Mini-XML, a small XML-like file parsing library.
|
|
*
|
|
* Copyright 2003-2011 by Michael R Sweet.
|
|
*
|
|
* These coded instructions, statements, and computer programs are the
|
|
* property of Michael R Sweet and are protected by Federal copyright
|
|
* law. Distribution and use rights are outlined in the file "LICENSE.txt"
|
|
* which should have been included with this file. If this file is
|
|
* missing or damaged, see the license at:
|
|
*
|
|
* https://www.msweet.org/projects.php?Z3
|
|
*
|
|
* Harbour port Copyright (c) 2011 Tamas TEVESZ <ice@extreme.hu>
|
|
*
|
|
*/
|
|
|
|
#require "hbmxml"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
REQUEST HB_GT_CGI_DEFAULT
|
|
|
|
STATIC s_aTypes := { ;
|
|
"MXML_ELEMENT", ;
|
|
"MXML_INTEGER", ;
|
|
"MXML_OPAQUE", ;
|
|
"MXML_REAL", ;
|
|
"MXML_TEXT" }
|
|
|
|
STATIC s_aSAXEventCounts := { 0, 0, 0, 0, 0, 0 }
|
|
|
|
/* Main entry for test program. */
|
|
PROCEDURE Main( cFileArg )
|
|
|
|
LOCAL hTree /* XML tree */
|
|
LOCAL hNode /* Node which should be in test.xml */
|
|
LOCAL hInd /* XML index */
|
|
LOCAL nNum, cStr
|
|
LOCAL i
|
|
|
|
/*
|
|
* Check arguments...
|
|
*/
|
|
|
|
IF Empty( cFileArg )
|
|
OutErr( hb_StrFormat( "Usage: %1$s filename.xml", hb_ProgName() ) + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
/* Test the basic functionality */
|
|
|
|
hTree := mxmlNewElement( MXML_NO_PARENT, "element" )
|
|
IF Empty( hTree )
|
|
OutErr( "ERROR: No parent node in basic test!" + hb_eol() )
|
|
QUIT
|
|
ENDIF
|
|
|
|
nNum := mxmlGetType( hTree )
|
|
IF nNum != MXML_ELEMENT
|
|
IF nNum < MXML_ELEMENT .OR. nNum > MXML_TEXT
|
|
OutErr( hb_StrFormat( "ERROR: Parent has type %s (%d), expected MXML_ELEMENT!", ;
|
|
"UNKNOWN", nNum ) + hb_eol() )
|
|
ELSE
|
|
OutErr( hb_StrFormat( "ERROR: Parent has type %s (%d), expected MXML_ELEMENT!", ;
|
|
s_aTypes[ nNum + 1 ], nNum ) + hb_eol() )
|
|
ENDIF
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
cStr := mxmlGetElement( hTree )
|
|
IF !( cStr == "element" )
|
|
OutErr( hb_StrFormat( "ERROR: Parent value is '%s', expected 'element'", cStr ) + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlNewInteger( hTree, 123 )
|
|
mxmlNewOpaque( hTree, "opaque" )
|
|
mxmlNewReal( hTree, 123.4 )
|
|
mxmlNewText( hTree, 1, "text" )
|
|
|
|
mxmlLoadString( hTree, "<group type='string'>string string string</group>", MXML_NO_CALLBACK )
|
|
mxmlLoadString( hTree, "<group type='integer'>1 2 3</group>", MXML_INTEGER_CALLBACK )
|
|
mxmlLoadString( hTree, "<group type='real'>1.0 2.0 3.0</group>", MXML_REAL_CALLBACK )
|
|
mxmlLoadString( hTree, "<group>opaque opaque opaque</group>", MXML_OPAQUE_CALLBACK )
|
|
mxmlLoadString( hTree, "<foo><bar><one><two>value<two>value2</two></two></one></bar></foo>", MXML_OPAQUE_CALLBACK )
|
|
|
|
IF Empty( hNode := mxmlGetFirstChild( hTree ) )
|
|
OutErr( "ERROR: No first child in basic test!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
nNum := mxmlGetType( hNode )
|
|
IF nNum != MXML_INTEGER
|
|
IF nNum < MXML_ELEMENT .OR. nNum > MXML_TEXT
|
|
OutErr( hb_StrFormat( "ERROR: First child has type %s (%d), expected MXML_TEXT!", ;
|
|
"UNKNOWN", nNum ) + hb_eol() )
|
|
ELSE
|
|
OutErr( hb_StrFormat( "ERROR: First child has type %s (%d), expected MXML_TEXT!", ;
|
|
s_aTypes[ nNum + 1 ], nNum ) + hb_eol() )
|
|
ENDIF
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
nNum := mxmlGetInteger( hNode )
|
|
IF nNum != 123
|
|
OutErr( hb_StrFormat( "ERROR: First child value is %d, expected 123!", nNum ) + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
hNode := mxmlGetNextSibling( hNode )
|
|
IF Empty( hNode )
|
|
OutErr( "ERROR: No second child node in basic test!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
nNum := mxmlGetType( hNode )
|
|
IF nNum != MXML_OPAQUE
|
|
IF nNum < MXML_ELEMENT .OR. nNum > MXML_TEXT
|
|
OutErr( hb_StrFormat( "ERROR: Second child has type %s (%d), expected MXML_OPAQUE!", ;
|
|
"UNKNOWN", nNum ) + hb_eol() )
|
|
ELSE
|
|
OutErr( hb_StrFormat( "ERROR: Second child has type %s (%d), expected MXML_OPAQUE!", ;
|
|
s_aTypes[ nNum + 1 ], nNum ) + hb_eol() )
|
|
ENDIF
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
hNode := mxmlGetNextSibling( hNode )
|
|
IF Empty( hNode )
|
|
OutErr( "ERROR: No third child node in basic test!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
nNum := mxmlGetType( hNode )
|
|
IF nNum != MXML_REAL
|
|
IF nNum < MXML_ELEMENT .OR. nNum > MXML_TEXT
|
|
OutErr( hb_StrFormat( "ERROR: Third child has type %s (%d), expected MXML_REAL!", ;
|
|
"UNKNOWN", nNum ) + hb_eol() )
|
|
ELSE
|
|
OutErr( hb_StrFormat( "ERROR: Third child has type %s (%d), expected MXML_REAL!", ;
|
|
s_aTypes[ nNum + 1 ], nNum ) + hb_eol() )
|
|
ENDIF
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
nNum := mxmlGetReal( hNode )
|
|
IF nNum != 123.4
|
|
OutErr( hb_StrFormat( "ERROR: Third child value is %f, expected 123.4!", nNum ) + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
hNode := mxmlGetNextSibling( hNode )
|
|
IF Empty( hNode )
|
|
OutErr( "ERROR: No fourth child node in basic test!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
nNum := mxmlGetType( hNode )
|
|
IF nNum != MXML_TEXT
|
|
IF nNum < MXML_ELEMENT .OR. nNum > MXML_TEXT
|
|
OutErr( hb_StrFormat( "ERROR: Fourth child has type %s (%d), expected MXML_TEXT!", ;
|
|
"UNKNOWN", nNum ) + hb_eol() )
|
|
ELSE
|
|
OutErr( hb_StrFormat( "ERROR: Fourth child has type %s (%d), expected MXML_TEXT!", ;
|
|
s_aTypes[ nNum + 1 ], nNum ) + hb_eol() )
|
|
ENDIF
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
cStr := mxmlGetText( hNode, @nNum )
|
|
IF nNum != 1 .OR. Empty( cStr ) .OR. !( cStr == "text" )
|
|
OutErr( hb_StrFormat( "ERROR: Fourth child value is %d, '%s', expected 1, 'text'!", ;
|
|
nNum, cStr ) + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
FOR i := 0 TO 3
|
|
IF Empty( hNode := mxmlGetNextSibling( hNode ) )
|
|
OutErr( hb_StrFormat( "ERROR: No group #%d child node in basic test!", i ) + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF ( ( nNum := mxmlGetType( hNode ) ) != MXML_ELEMENT )
|
|
IF nNum < MXML_ELEMENT .OR. nNum > MXML_TEXT
|
|
OutErr( hb_StrFormat( "ERROR: Group child #%d has type %s (%d), expected MXML_ELEMENT!", ;
|
|
i + 1, "UNKNOWN", nNum ) + hb_eol() )
|
|
ELSE
|
|
OutErr( hb_StrFormat( "ERROR: Group child #%d has type %s (%d), expected MXML_ELEMENT!", ;
|
|
s_aTypes[ nNum + 1 ], nNum ) + hb_eol() )
|
|
ENDIF
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
NEXT
|
|
|
|
/*
|
|
* Test mxmlFindPath...
|
|
*/
|
|
|
|
hNode := mxmlFindPath( hTree, "*/two" )
|
|
IF Empty( hNode )
|
|
OutErr( "ERROR: Unable to find value for '*/two'." + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ELSEIF mxmlGetType( hNode ) != MXML_OPAQUE .OR. !( mxmlGetOpaque( hNode ) == "value" )
|
|
OutErr( "ERROR: Bad value for '*/two'." + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
hNode := mxmlFindPath( hTree, "foo/*/two" )
|
|
IF Empty( hNode )
|
|
OutErr( "ERROR: Unable to find value for 'foo/*/two'." + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ELSEIF mxmlGetType( hNode ) != MXML_OPAQUE .OR. !( mxmlGetOpaque( hNode ) == "value" )
|
|
OutErr( "ERROR: Bad value for 'foo/*/two'." + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
hNode := mxmlFindPath( hTree, "foo/bar/one/two" )
|
|
IF Empty( hNode )
|
|
OutErr( "ERROR: Unable to find value for 'foo/bar/one/two'." + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ELSEIF mxmlGetType( hNode ) != MXML_OPAQUE .OR. !( mxmlGetOpaque( hNode ) == "value" )
|
|
OutErr( "ERROR: Bad value for 'foo/bar/one/two'." + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
/*
|
|
* Test indices...
|
|
*/
|
|
|
|
hInd := mxmlIndexNew( hTree )
|
|
IF Empty( hInd )
|
|
OutErr( "ERROR: Unable to create index of all nodes!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF ( nNum := mxmlIndexGetCount( hInd ) ) != 10
|
|
OutErr( hb_StrFormat( "ERROR: Index of all nodes contains %d nodes; expected 10!", nNum ) + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexReset( hInd )
|
|
IF Empty( mxmlIndexFind( hInd, "group" ) )
|
|
OutErr( "ERROR: mxmlIndexFind for 'group' failed!" + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexDelete( hInd )
|
|
|
|
hInd := mxmlIndexNew( hTree, "group" )
|
|
IF Empty( hInd )
|
|
OutErr( "ERROR: Unable to create index of groups!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF ( nNum := mxmlIndexGetCount( hInd ) ) != 4
|
|
OutErr( hb_StrFormat( "ERROR: Index of groups contains %d nodes; expected 4!", nNum ) + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexReset( hInd )
|
|
|
|
IF Empty( mxmlIndexEnum( hInd ) )
|
|
OutErr( "ERROR: mxmlIndexEnum failed!" + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexDelete( hInd )
|
|
|
|
hInd := mxmlIndexNew( hTree,, "type" )
|
|
IF Empty( hInd )
|
|
OutErr( "ERROR: Unable to create index of type attributes!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF ( nNum := mxmlIndexGetCount( hInd ) ) != 3
|
|
OutErr( hb_StrFormat( "ERROR: Index of type attributes contains %d nodes; expected 3!", nNum ) + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexReset( hInd )
|
|
IF Empty( mxmlIndexFind( hInd,, "string" ) )
|
|
OutErr( "ERROR: mxmlIndexFind for 'string' failed!" + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexDelete( hInd )
|
|
|
|
hInd := mxmlIndexNew( hTree, "group", "type" )
|
|
IF Empty( hInd )
|
|
OutErr( "ERROR: Unable to create index of elements and attributes!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF ( nNum := mxmlIndexGetCount( hInd ) ) != 3
|
|
OutErr( hb_StrFormat( "ERROR: Index of type attributes contains %d nodes; expected 3!", nNum ) + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexReset( hInd )
|
|
IF Empty( mxmlIndexFind( hInd, "group", "string" ) )
|
|
OutErr( "ERROR: mxmlIndexFind for 'string' failed!" + hb_eol() )
|
|
|
|
mxmlIndexDelete( hInd )
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
mxmlIndexDelete( hInd )
|
|
|
|
/*
|
|
* Check the mxmlDelete() works properly...
|
|
*/
|
|
|
|
FOR i := 0 TO 8
|
|
IF ! Empty( mxmlGetFirstChild( hTree ) )
|
|
mxmlDelete( mxmlGetFirstChild( hTree ) )
|
|
ELSE
|
|
OutErr( hb_StrFormat( "ERROR: Child pointer prematurely NULL on child #%d", i ) + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
NEXT
|
|
|
|
IF ! Empty( mxmlGetFirstChild( hTree ) )
|
|
OutErr( "ERROR: Child pointer not NULL after deleting all children!" + hb_eol() )
|
|
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF ! Empty( mxmlGetLastChild( hTree ) )
|
|
OutErr( "ERROR: Last child pointer not NULL after deleting all children!" + hb_eol() )
|
|
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
/*
|
|
* Open the file...
|
|
*/
|
|
|
|
IF Left( cFileArg, 1 ) == "<"
|
|
hTree := mxmlLoadString( NIL, cFileArg, @type_cb() )
|
|
ELSE
|
|
|
|
/*
|
|
* Read the file...
|
|
*/
|
|
|
|
hTree := mxmlLoadFile( NIL, cFileArg, @type_cb() )
|
|
ENDIF
|
|
|
|
IF Empty( hTree )
|
|
OutErr( "Unable to read XML file!" + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF cFileArg == "test.xml"
|
|
|
|
/*
|
|
* Verify that mxmlFindElement() and indirectly mxmlWalkNext() work
|
|
* properly... XXX: this doesn't test for the mxmlWalkNext() _binding_
|
|
*/
|
|
|
|
IF Empty( hNode := mxmlFindElement( hTree, hTree, "choice",,, MXML_DESCEND ) )
|
|
OutErr( "Unable to find first <choice> element in XML tree!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF Empty( mxmlFindElement( hNode, hTree, "choice",,, MXML_NO_DESCEND ) )
|
|
OutErr( "Unable to find second <choice> element in XML tree!" + hb_eol() )
|
|
|
|
mxmlDelete( hTree )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
ENDIF
|
|
|
|
/*
|
|
* Print the XML tree...
|
|
*/
|
|
|
|
FErase( "out.xml" )
|
|
mxmlSaveFile( hTree, "out.xml", @whitespace_cb() )
|
|
|
|
/* XXX: */
|
|
/*
|
|
* Save the XML tree to a string and print it...
|
|
*/
|
|
|
|
cStr := Space( 16384 )
|
|
IF ( nNum := mxmlSaveString( hTree, @cStr, @whitespace_cb() ) ) > 0
|
|
OutStd( cStr + hb_eol() )
|
|
ENDIF
|
|
|
|
/*
|
|
* Delete the tree...
|
|
*/
|
|
|
|
mxmlDelete( hTree )
|
|
|
|
/*
|
|
* Test SAX methods...
|
|
*/
|
|
|
|
IF Left( cFileArg, 1 ) == "<"
|
|
mxmlSAXLoadString( NIL, cFileArg, @type_cb(), @sax_cb(), NIL )
|
|
ELSE
|
|
|
|
/*
|
|
* Read the file...
|
|
*/
|
|
|
|
mxmlSAXLoadFile( NIL, cFileArg, @type_cb(), @sax_cb(), NIL )
|
|
ENDIF
|
|
|
|
IF cFileArg == "test.xml"
|
|
|
|
IF s_aSAXEventCounts[ MXML_SAX_CDATA ] != 1
|
|
OutErr( hb_StrFormat( "MXML_SAX_CDATA seen %d times, expected 1 times!", ;
|
|
s_aSAXEventCounts[ MXML_SAX_CDATA ] ) + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF s_aSAXEventCounts[ MXML_SAX_COMMENT ] != 1
|
|
OutErr( hb_StrFormat( "MXML_SAX_COMMENT seen %d times, expected 1 times!", ;
|
|
s_aSAXEventCounts[ MXML_SAX_COMMENT ] ) + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF s_aSAXEventCounts[ MXML_SAX_DATA ] != 60
|
|
OutErr( hb_StrFormat( "MXML_SAX_DATA seen %d times, expected 60 times!", ;
|
|
s_aSAXEventCounts[ MXML_SAX_DATA ] ) + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF s_aSAXEventCounts[ MXML_SAX_DIRECTIVE ] != 1
|
|
OutErr( hb_StrFormat( "MXML_SAX_DIRECTIVE seen %d times, expected 1 times!", ;
|
|
s_aSAXEventCounts[ MXML_SAX_DIRECTIVE ] ) + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF s_aSAXEventCounts[ MXML_SAX_ELEMENT_CLOSE ] != 20
|
|
OutErr( hb_StrFormat( "MXML_SAX_ELEMENT_CLOSE seen %d times, expected 20 times!", ;
|
|
s_aSAXEventCounts[ MXML_SAX_ELEMENT_CLOSE ] ) + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
IF s_aSAXEventCounts[ MXML_SAX_ELEMENT_OPEN ] != 20
|
|
OutErr( hb_StrFormat( "MXML_SAX_ELEMENT_OPEN seen %d times, expected 20 times!", ;
|
|
s_aSAXEventCounts[ MXML_SAX_ELEMENT_OPEN ] ) + hb_eol() )
|
|
ErrorLevel( 1 )
|
|
QUIT
|
|
ENDIF
|
|
|
|
ENDIF
|
|
|
|
ErrorLevel( 0 )
|
|
|
|
RETURN
|
|
|
|
/*
|
|
* 'sax_cb()' - Process nodes via SAX.
|
|
*/
|
|
|
|
/* I - Current node */
|
|
/* I - SAX event */
|
|
/* I - SAX user data */
|
|
|
|
PROCEDURE sax_cb( hNode, hEvent, hData )
|
|
|
|
/*
|
|
* This SAX callback just counts the different events.
|
|
*/
|
|
|
|
HB_SYMBOL_UNUSED( hNode )
|
|
HB_SYMBOL_UNUSED( hData )
|
|
|
|
s_aSAXEventCounts[ hEvent ]++
|
|
|
|
RETURN
|
|
|
|
/*
|
|
* 'type_cb()' - XML data type callback for mxmlLoadFile()...
|
|
*/
|
|
|
|
/* O - Data type */
|
|
/* I - Element node */
|
|
|
|
FUNCTION type_cb( hNode )
|
|
|
|
LOCAL cType /* Type string */
|
|
|
|
/*
|
|
* You can lookup attributes and/or use the element name, hierarchy, etc...
|
|
*/
|
|
|
|
IF Empty( cType := mxmlElementGetAttr( hNode, "type" ) )
|
|
cType := mxmlGetElement( hNode )
|
|
ENDIF
|
|
|
|
SWITCH Lower( cType )
|
|
CASE "integer" ; RETURN MXML_INTEGER
|
|
CASE "opaque" ; RETURN MXML_OPAQUE
|
|
CASE "real" ; RETURN MXML_REAL
|
|
ENDSWITCH
|
|
|
|
RETURN MXML_TEXT
|
|
|
|
/*
|
|
* 'whitespace_cb()' - Let the mxmlSaveFile() function know when to insert
|
|
* newlines and tabs...
|
|
*/
|
|
|
|
/* O - Whitespace string or NIL */
|
|
/* I - Element node */
|
|
/* I - Open or close tag? */
|
|
|
|
FUNCTION whitespace_cb( hNode, nWhere )
|
|
|
|
LOCAL hParent /* Parent node */
|
|
LOCAL nLevel /* Indentation level */
|
|
LOCAL cName /* Name of element */
|
|
|
|
/*
|
|
* We can conditionally break to a new line before or after any element.
|
|
* These are just common HTML elements...
|
|
*/
|
|
|
|
cName := Lower( mxmlGetElement( hNode ) )
|
|
|
|
IF cName == "html" .OR. cName == "head" .OR. cName == "body" .OR. ;
|
|
cName == "pre" .OR. cName == "p" .OR. ;
|
|
cName == "h1" .OR. cName == "h2" .OR. cName == "h3" .OR. ;
|
|
cName == "h4" .OR. cName == "h5" .OR. cName == "h6"
|
|
|
|
/*
|
|
* Newlines before open and after close...
|
|
*/
|
|
|
|
IF nWhere == MXML_WS_BEFORE_OPEN .OR. nWhere == MXML_WS_AFTER_CLOSE
|
|
RETURN hb_eol()
|
|
ENDIF
|
|
ELSEIF cName == "dl" .OR. cName == "ol" .OR. cName == "ul"
|
|
|
|
/*
|
|
* Put a newline before and after list elements...
|
|
*/
|
|
|
|
RETURN hb_eol()
|
|
ELSEIF cName == "dd" .OR. cName == "dd" .OR. cName == "li"
|
|
|
|
/*
|
|
* Put a tab before <li>s, <dd>s and <dt>s and a newline after them...
|
|
*/
|
|
|
|
IF nWhere == MXML_WS_BEFORE_OPEN
|
|
RETURN Space( 8 )
|
|
ELSEIF nWhere == MXML_WS_AFTER_CLOSE
|
|
RETURN hb_eol()
|
|
ENDIF
|
|
ELSEIF Left( cName, 4 ) == "?xml"
|
|
IF nWhere == MXML_WS_AFTER_OPEN
|
|
RETURN hb_eol()
|
|
ELSE
|
|
RETURN NIL
|
|
ENDIF
|
|
ELSEIF nWhere == MXML_WS_BEFORE_OPEN .OR. ;
|
|
( ( cName == "choice" .OR. cName == "option" ) .AND. nWhere == MXML_WS_BEFORE_CLOSE )
|
|
nLevel := -1
|
|
hParent := mxmlGetParent( hNode )
|
|
DO WHILE ! Empty( hParent )
|
|
nLevel++
|
|
hParent := mxmlGetParent( hParent )
|
|
ENDDO
|
|
|
|
IF nLevel > 8
|
|
nLevel := 8
|
|
ELSEIF nLevel < 0
|
|
nLevel := 0
|
|
ENDIF
|
|
|
|
RETURN Replicate( Chr( 9 ), nLevel )
|
|
ELSEIF nWhere == MXML_WS_AFTER_CLOSE .OR. ;
|
|
( ( cName == "group" .OR. cName == "option" .OR. cName == "choice" ) .AND. ;
|
|
nWhere == MXML_WS_AFTER_OPEN )
|
|
|
|
RETURN hb_eol()
|
|
ELSEIF nWhere == MXML_WS_AFTER_OPEN .AND. Empty( mxmlGetFirstChild( hNode ) )
|
|
RETURN hb_eol()
|
|
ENDIF
|
|
|
|
/*
|
|
* Return NULL for no added whitespace...
|
|
*/
|
|
|
|
RETURN NIL
|