e4fff1fb61
* contrib/hbhpdf/3rd/libhpdf/hpdffdfj.c
! removed executable attribute
* src/vm/thread.c
! fixed typo reported by Viktor - thanks.
* include/hbapifs.h
* src/rtl/hbproces.c
* src/rtl/spfiles.c
* src/rtl/filesys.c
* src/rtl/file.c
* synced parameter file and dir names used in declarations and
implementations
* include/hbrddcdx.h
+ added few fields used in ADI files
* src/codepage/cp_utf8.c
* src/rtl/cdpapi.c
! always return -1, 0 and 1 from hb_cdpcmp() function.
Workaround for problem exploited by optimized memcmp() function.
* src/rdd/dbfntx/dbfntx1.c
! fixed possible sort problem when optimized memcmp() is used
* added feew missing const declarations
* src/rdd/dbfntx/dbfntx1.c
* src/rdd/dbfnsx/dbfnsx1.c
* src/rdd/dbfntx/dbfntx1.c
! fixed OrdWildSeek() to work with optimized memcmp()
* include/hbapifs.h
* src/rtl/disksphb.c
+ added new C function:
double hb_fsDiskSpace( const char * pszPath, HB_USHORT uiType );
* include/hbapifs.h
* src/rtl/direct.c
+ added new C function:
PHB_ITEM hb_fsDirectory( const char * pszDirSpec,
const char * pszAttributes );
* src/rtl/filesys.c
! report EOF in hb_fsEof() also when file position is out of file size
* updated comment
* include/hbapifs.h
* src/rtl/filebuf.c
+ extended Harbour FILE IO API and added support for read/write filepos,
directory and link operations.
Read/write filepos support in some systems (i.e. *nixes) needs additional
emulation code. If it's not necessary then this functionality can be
disabled by FXO_NOSEEKPOS attribute. Now this attribute is used by our
RDD code.
* src/rtl/Makefile
+ src/rtl/xfile.c
+ added PRG interface to Harbour FILE IO API
The following PRG functions are available for Harbour programmers:
HB_XEXISTS( <cFileName>, [ @<cDestFileName> ] ) -> <lOK>
HB_XERASE( <cFileName> ) -> <nResult>
HB_XRENAME( <cFileSrc>, <cFileDst> ) -> <nResult>
HB_XCOPYFILE( <cFileSrc>, <cFileDst> ) -> <nResult>
HB_XDIREXISTS( <cDirName> ) -> <lExists>
HB_XDIRMAKE( <cDirName> ) -> <nSuccess>
HB_XDIRREMOVE( <cDirName> ) -> <nSuccess>
HB_XDIRECTORY( [ <cDirSpec> ], [ <cAttr> ] ) -> <aDirectory>
HB_XDIRSPACE( <cDirName>, [ <nInfoType> ] ) -> <nFreeSpace>
HB_XGETATTR( <cFileName>, @<nAttr> ) -> <lOK>
HB_XSETATTR( <cFileName>, <nAttr> ) -> <lOK>
HB_XGETDATETIME( <cFileName>, @<tsDateTime> ) -> <lOK>
HB_XSETDATETIME( <cFileName>, <tsDateTime> ) -> <lOK>
HB_XLINK( <cExistingFileName>, <cNewFileName> ) -> <nSuccess>
HB_XLINKSYM( <cTargetFileName>, <cNewFileName> ) -> <nSuccess>
HB_XLINKREAD( <cFileName> ) -> <cDestFileName> | ""
HB_XOPEN( <cFileName>, [ <nMode> ], [ <nAttr> ] ) -> <pHandle> | NIL
HB_XCLOSE( <pHandle> ) -> <lOK>
HB_XLOCK( <pHandle>, <nStart>, <nLen>, [ <nType> ] ) -> <lOK>
HB_XUNLOCK( <pHandle>, <nStart>, <nLen> ) -> <lOK>
HB_XLOCKTEST( <pHandle>, <nStart>, <nLen>, [ <nType> ] ) ;
-> <nPID> | 0 (nolock) | -1 (err)
HB_XREAD( <pHandle>, @<cBuff>, [ <nToRead> ], [ <nTimeOut> ] ) ;
-> <nRead>
HB_XWRITE( <pHandle>, <cBuff>, [ <nToWrite> ], [ <nTimeOut> ] ) ;
-> <nWritten>
HB_XREADAT( <pHandle>, @<cBuff>, [ <nToRead> ], [ <nAtOffset> ] ) ;
-> <nRead>
HB_XWRITEAT( <pHandle>, <cBuff>, [ <nToWrite> ], [ <nAtOffset> ] ) ;
-> <nWritten>
HB_XSEEK( <pHandle>, <nOffset>, [ <nWhence> ] ) -> <nOffset>
HB_XTRUNC( <pHandle>, [ <nAtOffset> ] ) -> <lOK>
HB_XSIZE( <pHandle> ) -> <nSize>
HB_XEOF( <pHandle> ) -> <lEOF>
HB_XFLUSH( <pHandle>, [ <lDirtyOnly> ] ) -> NIL
HB_XCOMMIT( <pHandle> ) -> NIL
HB_XCONFIG( <pHandle>, <nSet>, [ <nParam> ] ) -> <nResult>
HB_XHANDLE( <pHandle> ) -> <nOsHandle>
HB_XTEMPFILE( @<cFileName>, [ <cDir> ], [ <cPrefix> ], [ <cExt> ], ;
[ <nAttr> ] ) -> <pHandle> | NIL
Please remember that not all redirectors have to support all of them.
I.e. MEMIO allows to use directory names in files but does not allow to
create or remove directories. It also does not support file attributes
and times in current implementation though it can be easy added.
HB_XCONFIG() is general function which can be used by redirector
authors to make some special operations which are specific to given
device.
HB_XTEMPFILE() always creates temporary files on local system without
switching to FILE IO redirector. It's intentional behavior.
* src/rtl/fscopy.c
* used Harbour FILE IO API in hb_fsCopy()/HB_FCOPY()
Please remember that HB_FCOPY() always makes operation using current
system when HB_XCOPY() may optimize it moving the operation to low
level subsystem or even other computer i.e. NETIO can do that when
both files are located on the same server.
* src/rdd/delim1.c
* src/rdd/sdf1.c
* src/rdd/dbf1.c
* src/rdd/dbfcdx/dbfcdx1.c
* src/rdd/dbffpt/dbffpt1.c
* src/rdd/dbfnsx/dbfnsx1.c
* src/rdd/dbfntx/dbfntx1.c
* src/rdd/hsx/hsx.c
* open files with FXO_NOSEEKPOS attribute to inform low level API that
read/write filepos is not used (disables unnecessary filepos emulation).
* contrib/hbnetio/netio.h
* contrib/hbnetio/netiocli.c
* contrib/hbnetio/netiosrv.c
+ added support for extended Harbour FILE IO API.
* contrib/hbnetio/utils/hbnetio/netiomgm.hb
! renamed "quit" command to "shutdown" as suggested by Rolf.
* contrib/hbnetio/utils/hbnetio/hbnetio.prg
* allow to interrupt server process using ESC when run in console window.
* contrib/hbmemio/memio.c
+ added support for extended Harbour FILE IO API.
I left two minor TODO notes - maybe someone will try to implement it.
184 lines
6.7 KiB
C
184 lines
6.7 KiB
C
/*
|
|
* Harbour Project source code:
|
|
* Directory() function
|
|
*
|
|
* Copyright 1999 Leslee Griffith <les.griffith@vantagesystems.ca>
|
|
* www - http://harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING.txt. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* Notes from the fringe... <ptucker@sympatico.ca>
|
|
*
|
|
* Clipper is a bit schizoid with the treatment of file attributes, but we've
|
|
* emulated that weirdness here for your viewing amusement.
|
|
*
|
|
* In Clippers' homeworld of DOS, there are 5 basic attributes: 'A'rchive,
|
|
* 'H'idden, 'S'ystem, 'R'eadonly and 'D'irectory. In addition, a file can
|
|
* have no attributes, and only 1 file per physical partition can have the
|
|
* 'V'olume label.
|
|
*
|
|
* For a given file request, it is implied that the attribute mask includes
|
|
* all attributes except 'H'idden, 'S'ystem, 'D'irectory and 'V'olume.
|
|
* The returned file list will always include (for instance) 'R'eadOnly files
|
|
* unless they also happen to be 'H'idden and that attribute was not requested.
|
|
*
|
|
* "V" is a special case - you will get back the entry that describes the
|
|
* volume label for the drive implied by the filemask.
|
|
*
|
|
* Differences from the 'standard' (where supported):
|
|
* - Filenames will be returned in the same case as they are stored in the
|
|
* directory. Clipper (and VO too) will convert the names to upper case
|
|
* - Filenames will be the full filename as supported by the OS in use.
|
|
* - There are a number of additional file attributes returned.
|
|
* They are:
|
|
* 'I' - DEVICE File is a device
|
|
* 'T' - TEMPORARY File is a Temporary file
|
|
* 'P' - SPARSE File is Sparse
|
|
* 'L' - REPARSE File/Dir is a reparse point
|
|
* 'C' - COMPRESSED File/Dir is compressed
|
|
* 'O' - OFFLINE File/Dir is not online
|
|
* 'X' - NOTINDEXED Exclude File/Dir from Indexing Service
|
|
* 'E' - ENCRYPTED File/Dir is Encrypted
|
|
* 'M' - VOLCOMP Volume Supports Compression
|
|
* - Clipper can sometimes drop the ReadOnly indication of directories.
|
|
* Harbour detects this correctly.
|
|
*
|
|
* TODO: - check that path support vis stat works on all platforms
|
|
* - UNC Support? ie: dir \\myserver\root
|
|
*
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
#include "hbapifs.h"
|
|
#include "hbapiitm.h"
|
|
|
|
#include "directry.ch"
|
|
|
|
/* NOTE: 8.3 support should be added in a separate way, like
|
|
as a function which converts full names to 8.3 names, since
|
|
this issue is very much platform specific, and this is
|
|
not the only place which may need the conversion [vszakats]. */
|
|
|
|
PHB_ITEM hb_fsDirectory( const char * pszDirSpec, const char * pszAttributes )
|
|
{
|
|
PHB_ITEM pDir = hb_itemArrayNew( 0 );
|
|
char * pszFree = NULL;
|
|
PHB_FFIND ffind;
|
|
HB_FATTR ulMask;
|
|
|
|
/* Get the passed attributes and convert them to Harbour Flags */
|
|
|
|
ulMask = HB_FA_ARCHIVE |
|
|
HB_FA_READONLY |
|
|
HB_FA_DEVICE |
|
|
HB_FA_TEMPORARY |
|
|
HB_FA_SPARSE |
|
|
HB_FA_REPARSE |
|
|
HB_FA_COMPRESSED |
|
|
HB_FA_OFFLINE |
|
|
HB_FA_NOTINDEXED |
|
|
HB_FA_ENCRYPTED |
|
|
HB_FA_VOLCOMP;
|
|
|
|
if( pszAttributes && *pszAttributes )
|
|
ulMask |= hb_fsAttrEncode( pszAttributes );
|
|
|
|
if( pszDirSpec && *pszDirSpec )
|
|
{
|
|
if( ulMask != HB_FA_LABEL )
|
|
{
|
|
/* CA-Cl*pper compatible behavior - add all file mask when
|
|
* last character is directory or drive separator
|
|
*/
|
|
HB_SIZE nLen = strlen( pszDirSpec ) - 1;
|
|
#ifdef HB_OS_HAS_DRIVE_LETTER
|
|
if( pszDirSpec[ nLen ] == HB_OS_PATH_DELIM_CHR ||
|
|
pszDirSpec[ nLen ] == HB_OS_DRIVE_DELIM_CHR )
|
|
#else
|
|
if( pszDirSpec[ nLen ] == HB_OS_PATH_DELIM_CHR )
|
|
#endif
|
|
pszDirSpec = pszFree =
|
|
hb_xstrcpy( NULL, pszDirSpec, HB_OS_ALLFILE_MASK, NULL );
|
|
}
|
|
}
|
|
else
|
|
pszDirSpec = HB_OS_ALLFILE_MASK;
|
|
|
|
/* Get the file list */
|
|
|
|
if( ( ffind = hb_fsFindFirst( pszDirSpec, ulMask ) ) != NULL )
|
|
{
|
|
PHB_ITEM pSubarray = hb_itemNew( NULL );
|
|
|
|
do
|
|
{
|
|
char buffer[ 32 ];
|
|
|
|
hb_arrayNew ( pSubarray, F_LEN );
|
|
hb_arraySetC ( pSubarray, F_NAME, ffind->szName );
|
|
hb_arraySetNInt( pSubarray, F_SIZE, ffind->size );
|
|
hb_arraySetDL ( pSubarray, F_DATE, ffind->lDate );
|
|
hb_arraySetC ( pSubarray, F_TIME, ffind->szTime );
|
|
hb_arraySetC ( pSubarray, F_ATTR, hb_fsAttrDecode( ffind->attr, buffer ) );
|
|
|
|
/* Don't exit when array limit is reached */
|
|
hb_arrayAddForward( pDir, pSubarray );
|
|
}
|
|
while( hb_fsFindNext( ffind ) );
|
|
|
|
hb_itemRelease( pSubarray );
|
|
|
|
hb_fsFindClose( ffind );
|
|
}
|
|
|
|
if( pszFree )
|
|
hb_xfree( pszFree );
|
|
|
|
return pDir;
|
|
}
|
|
|
|
HB_FUNC( DIRECTORY )
|
|
{
|
|
hb_itemReturnRelease( hb_fsDirectory( hb_parc( 1 ), hb_parc( 2 ) ) );
|
|
}
|