7d515dd89b
* contrib/hbxdiff/hbxdiff.c
+ Added support for codeblocks as callbacks.
; I'm not sure if we should keep symbol callbacks, looks
like inferior alternative and codeblocks are the preferred
choice in 98% (well all except this, and recently added
hbsqlit3 extension and hbmxml) of Harbour wrappers addons.
* contrib/hbxdiff/tests/test.prg
* contrib/hbxdiff/tests/test2.prg
* contrib/hbxdiff/tests/test3.prg
* Changed to use codeblock in callback example.
* Formatting.
41 lines
720 B
Plaintext
41 lines
720 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "hbxdiff.ch"
|
|
#include "simpleio.ch"
|
|
|
|
#define _SIZE 62
|
|
|
|
PROCEDURE main()
|
|
LOCAL pMMF
|
|
LOCAL cFileCtx
|
|
LOCAL nSize
|
|
|
|
pMMF := xdl_init_mmfile( XDLT_STD_BLKSIZE, XDL_MMF_ATOMIC )
|
|
? xdl_mmfile_size( pMMF )
|
|
? xdl_mmfile_iscompact( pMMF )
|
|
|
|
cFileCtx := hb_memoRead( __FILE__ )
|
|
|
|
? xdl_write_mmfile( pMMF, cFileCtx ), Len( cFileCtx )
|
|
? xdl_mmfile_size( pMMF )
|
|
|
|
? xdl_read_mmfile( pMMF, NIL, _SIZE, @nSize )
|
|
? nSize
|
|
|
|
xdl_seek_mmfile( pMMF, 0 )
|
|
|
|
? xdl_read_mmfile( pMMF, NIL, _SIZE, @nSize )
|
|
? nSize
|
|
|
|
? xdl_read_mmfile( pMMF, NIL, _SIZE, @nSize )
|
|
? nSize
|
|
|
|
xdl_seek_mmfile( pMMF, _SIZE )
|
|
|
|
? xdl_read_mmfile( pMMF, NIL, _SIZE, @nSize )
|
|
? nSize
|
|
|
|
RETURN
|