232f180695
* tests/arrayidx.prg
* tests/brwpos.prg
* tests/clasinit.prg
* tests/clsicast.prg
* tests/clsscast.prg
* tests/clsscope.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/cpinfo.prg
* tests/db_brows.prg
* tests/destruct.prg
* tests/dynobj.prg
* tests/flink.prg
* tests/fortest.prg
* tests/fsplit.prg
* tests/inherit.prg
* tests/keywords.prg
* tests/multiarg.prg
* tests/newrdd.prg
* tests/onidle.prg
* tests/overload.prg
* tests/rto_get.prg
* tests/setkeys.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/tb1.prg
* tests/testbrw.prg
* tests/testdbf.prg
* tests/testhtml.prg
* tests/testwarn.prg
* tests/tstblock.prg
* tests/tstmacro.prg
* tests/wvtext.prg
* more cleanups
54 lines
838 B
Plaintext
54 lines
838 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
*
|
|
* Copyright 2010 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
hb_MemoWrit( "_hb_h.tmp", ">h.tmp<" )
|
|
|
|
? hb_FLink()
|
|
? FError()
|
|
|
|
? hb_FLinkRead()
|
|
? FError()
|
|
|
|
? hb_FLinkRead( "_hb_h.tmp" )
|
|
? FError()
|
|
|
|
? hb_FLink( "_hb_h.tmp", "_hb_hlnk.tmp" )
|
|
? FError()
|
|
|
|
hb_MemoWrit( "_hb_s.tmp", ">s.tmp<" )
|
|
|
|
/* Requires special rights on Windows system,
|
|
by default Administrators are allowed. */
|
|
|
|
? hb_FLinkSym()
|
|
? FError()
|
|
|
|
? hb_FLinkSym( "_hb_s.tmp", "_hb_slnk.tmp" )
|
|
? FError()
|
|
|
|
? hb_FLinkRead( "_hb_slnk.tmp" )
|
|
? FError()
|
|
|
|
hb_DirCreate( "_hb_d" )
|
|
|
|
? hb_FLinkSym( "_hb_d", "_hb_dlnk" )
|
|
? FError()
|
|
|
|
? hb_FLinkRead( "_hb_dlnk" )
|
|
? FError()
|
|
|
|
RETURN
|