58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
48 lines
758 B
Plaintext
48 lines
758 B
Plaintext
/*
|
|
*
|
|
* Copyright 2010 Viktor Szakats (vszakats.net/harbour)
|
|
*
|
|
*/
|
|
|
|
#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 platform,
|
|
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
|