82a592de34
* src/rtl/fslink.c
+ replaced HB_TCHAR_CONVTO() with HB_FSNAMECONV() on win
+ added hb_fsNameConv() support on *nix
!!! review me !!!
! HB_FLINKSYM()/hb_fsLinkSym() fixed to work with directories on win,
performance should be better also
! HB_FLINKREAD()/hb_fsLinkRead() fixed to return information for
directories on win.
+ HB_FLINKREAD()/hb_fsLinkRead() now returns value in core codepage.
TOFIX: It crashes now on *nix, after hours of trying I give up,
please review the hb_osDecodeCP() call and fix it.
; TODO: this leaves only one HB_TCHAR_COPYFROM() macro in this file.
* tests/flink.prg
! fixed typo in HB_FLINKSYM() directory test
* minor cleanup for directory link name
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
|