9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
38 lines
679 B
Plaintext
38 lines
679 B
Plaintext
|
|
#require "hbxdiff"
|
|
|
|
#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
|