84f5afb216
* contrib/hbtpathy/telepath.prg
* using hb_default() instead of rolling it manually
* contrib/gtwvg/tests/wvgactivex.prg
* contrib/gtwvg/tests/wvgmodal.prg
* contrib/hbhttpd/core.prg
* contrib/hbhttpd/log.prg
* contrib/hbide/hbqreportsmanager.prg
* contrib/hbide/hbqtoolbar.prg
* contrib/hbide/idebrowse.prg
* contrib/hbide/ideconsole.prg
* contrib/hbide/idedict.prg
* contrib/hbide/idedocks.prg
* contrib/hbide/ideedit.prg
* contrib/hbide/ideeditor.prg
* contrib/hbide/idefindreplace.prg
* contrib/hbide/ideharbourhelp.prg
* contrib/hbide/idemisc.prg
* contrib/hbide/ideprojmanager.prg
* contrib/hbide/ideshortcuts.prg
* contrib/hbide/idesources.prg
* contrib/hbide/idestylesheets.prg
* contrib/hbide/idethemes.prg
* contrib/hbide/idetools.prg
* contrib/hbide/ideuisrcmanager.prg
* contrib/hbmagic/hbmagis.prg
* contrib/hbmxml/tests/custom.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.prg
* contrib/hbnetio/utils/hbnetio/netiosrv.prg
* contrib/hbnf/menutonf.prg
* contrib/hbnf/ontick.prg
* contrib/hboslib/core.prg
* contrib/hbqt/tests/cls_dbstruct.prg
* contrib/hbqt/tests/demoqt.prg
* contrib/hbxbp/tests/xbpqtc.prg
* contrib/xhb/stream.prg
* contrib/xhb/xhbole.prg
* examples/hbxlsxml/xlsxml_s.prg
* examples/hbxlsxml/xlsxml_y.prg
* examples/hbxlsxml/xlsxml.prg
* tests/parseini.prg
* formatting HB_IS*() calls
! using HB_ISSTRING() instead of HB_ISCHAR() on .prg level
* utils/hbmk2/hbmk2.prg
! minor typo on help screen
153 lines
3.4 KiB
Plaintext
153 lines
3.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#xtranslate _ENCODE( <xData> ) => ( hb_base64encode( hb_serialize( mxmlGetCustom( <xData> ) ) ) )
|
|
|
|
#include "hbmxml.ch"
|
|
#include "hbinkey.ch"
|
|
|
|
PROCEDURE main()
|
|
|
|
LOCAL tree, node
|
|
LOCAL xData
|
|
|
|
mxmlSetErrorCallback( @my_mxmlError() )
|
|
mxmlSetCustomHandlers( @load_c(), @save_c() )
|
|
|
|
IF ! hb_FileExists( "cust.xml" )
|
|
create_cust()
|
|
ENDIF
|
|
|
|
tree := mxmlLoadFile( tree, "cust.xml", @type_cb() )
|
|
|
|
node := mxmlFindElement( tree, tree, "hash", NIL, NIL, MXML_DESCEND )
|
|
IF Empty( node )
|
|
OutErr( "Unable to find <hash> element in XML tree!" )
|
|
mxmlDelete( tree )
|
|
|
|
ErrorLevel( -1 )
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF hb_md5( _ENCODE( node ) ) != mxmlElementGetAttr( node, "checksum" )
|
|
OutErr( "Custom data of element <hash> is corrupted!" )
|
|
mxmlDelete( tree )
|
|
|
|
ErrorLevel( -1 )
|
|
RETURN
|
|
ENDIF
|
|
|
|
xData := mxmlGetCustom( node )
|
|
IF HB_ISHASH( xData ) .AND. hb_hHasKey( xData, "Today" )
|
|
OutStd( xData[ "Today" ], hb_eol() )
|
|
ENDIF
|
|
|
|
mxmlSetErrorCallback( NIL )
|
|
mxmlSetCustomHandlers( NIL, NIL )
|
|
|
|
ErrorLevel( 0 )
|
|
RETURN
|
|
|
|
STATIC PROCEDURE create_cust()
|
|
|
|
LOCAL tree, group, element, node
|
|
LOCAL hData := {=>}
|
|
|
|
hData[ "Today" ] := hb_tsToStr( hb_dateTime() )
|
|
/* etc. */
|
|
|
|
tree := mxmlNewXML()
|
|
group := mxmlNewElement( tree, "group" )
|
|
element := mxmlNewElement( group, "hash" )
|
|
node := mxmlNewCustom( element, hData )
|
|
|
|
mxmlElementSetAttr( element, "type", "custom" )
|
|
mxmlElementSetAttr( element, "checksum", hb_md5( _ENCODE( node ) ) )
|
|
|
|
mxmlSaveFile( tree, "cust.xml", @whitespace_cb() )
|
|
|
|
RETURN
|
|
|
|
PROCEDURE my_mxmlError( cErrorMsg )
|
|
|
|
OutErr( cErrorMsg, hb_eol() )
|
|
|
|
RETURN
|
|
|
|
FUNCTION load_c( node, cString )
|
|
|
|
mxmlSetCustom( node, hb_deserialize( hb_base64decode( cString ) ) )
|
|
|
|
RETURN 0 /* 0 on success or non-zero on error */
|
|
|
|
FUNCTION save_c( node )
|
|
|
|
RETURN _ENCODE( node ) /* string on success or NIL on error */
|
|
|
|
FUNCTION whitespace_cb( node, where )
|
|
|
|
LOCAL parent /* Parent node */
|
|
LOCAL nLevel := -1 /* Indentation level */
|
|
LOCAL name /* Name of element */
|
|
|
|
name := mxmlGetElement( node )
|
|
|
|
IF Left( name, 4 ) == "?xml"
|
|
IF where == MXML_WS_AFTER_OPEN
|
|
RETURN hb_eol()
|
|
ELSE
|
|
RETURN NIL
|
|
ENDIF
|
|
|
|
ELSEIF where == MXML_WS_BEFORE_OPEN .OR. ;
|
|
( ( name == "choice" .OR. name == "option" ) .AND. ;
|
|
where == MXML_WS_BEFORE_CLOSE )
|
|
|
|
parent := mxmlGetParent( node )
|
|
DO WHILE ! Empty( parent )
|
|
nLevel++
|
|
parent := mxmlGetParent( parent )
|
|
ENDDO
|
|
|
|
IF nLevel > 8
|
|
nLevel := 8
|
|
ELSEIF nLevel < 0
|
|
nLevel := 0
|
|
ENDIF
|
|
|
|
RETURN Replicate( Chr( HB_K_TAB ), nLevel )
|
|
|
|
ELSEIF where == MXML_WS_AFTER_CLOSE .OR. ;
|
|
( ( name == "group".OR. name == "option" .OR. name == "choice" ) .AND. ;
|
|
where == MXML_WS_AFTER_OPEN )
|
|
RETURN hb_eol()
|
|
|
|
ELSEIF where == MXML_WS_AFTER_OPEN .AND. Empty( mxmlGetFirstChild( node ) )
|
|
RETURN hb_eol()
|
|
ENDIF
|
|
|
|
RETURN NIL /* Return NIL for no added whitespace... */
|
|
|
|
FUNCTION type_cb( node )
|
|
|
|
LOCAL nResult
|
|
LOCAL cType
|
|
|
|
IF Empty( cType := mxmlElementGetAttr( node, "type" ) )
|
|
cType := mxmlGetElement( node )
|
|
ENDIF
|
|
|
|
SWITCH Lower( cType )
|
|
CASE "custom" /* don't forget */
|
|
CASE "hash"
|
|
nResult := MXML_CUSTOM
|
|
EXIT
|
|
|
|
OTHERWISE
|
|
nResult := MXML_TEXT
|
|
EXIT
|
|
ENDSWITCH
|
|
|
|
RETURN nResult
|