369 lines
8.5 KiB
C
369 lines
8.5 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include <extend.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <itemapi.h>
|
|
|
|
#if defined(__GNUC__) || defined(__DJGPP__)
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
#include <dirent.h>
|
|
#include <io.h>
|
|
#include <time.h>
|
|
|
|
#include <unistd.h>
|
|
|
|
#if !defined(HAVE_POSIX_IO)
|
|
#define HAVE_POSIX_IO
|
|
#endif
|
|
|
|
#if !defined(FA_RDONLY)
|
|
#define FA_RDONLY 1
|
|
#define FA_HIDDEN 2
|
|
#define FA_SYSTEM 4
|
|
#define FA_LABEL 8
|
|
#define FA_DIREC 16
|
|
#define FA_ARCH 32
|
|
#endif
|
|
|
|
#define PATH_SEPARATOR '/'
|
|
#endif
|
|
|
|
#if defined(__WATCOMC__)
|
|
#include <sys/stat.h>
|
|
#include <share.h>
|
|
#include <fcntl.h>
|
|
#include <io.h>
|
|
#include <errno.h>
|
|
#include <direct.h>
|
|
|
|
#if !defined(HAVE_POSIX_IO)
|
|
#define HAVE_POSIX_IO
|
|
#endif
|
|
|
|
#define PATH_SEPARATOR '\\'
|
|
#endif
|
|
|
|
#if defined(__BORLANDC__)
|
|
#include <sys\stat.h>
|
|
#include <io.h>
|
|
#include <fcntl.h>
|
|
#include <share.h>
|
|
#include <dirent.h>
|
|
#include <dir.h>
|
|
#include <dos.h>
|
|
#include <time.h>
|
|
|
|
#if !defined(HAVE_POSIX_IO)
|
|
#define HAVE_POSIX_IO
|
|
#ifndef S_IEXEC
|
|
#define S_IEXEC 0x0040 /* owner may execute <directory search> */
|
|
#endif
|
|
#ifndef S_IRWXU
|
|
#define S_IRWXU 0x01c0 /* RWE permissions mask for owner */
|
|
#endif
|
|
#ifndef S_IRUSR
|
|
#define S_IRUSR 0x0100 /* owner may read */
|
|
#endif
|
|
#ifndef S_IWUSR
|
|
#define S_IWUSR 0x0080 /* owner may write */
|
|
#endif
|
|
#ifndef S_IXUSR
|
|
#define S_IXUSR 0x0040 /* owner may execute <directory search> */
|
|
#endif
|
|
#endif
|
|
|
|
#define PATH_SEPARATOR '\\'
|
|
#endif
|
|
|
|
HARBOUR HB_DIRECTORY(void);
|
|
|
|
static SYMBOL symbols[] = {
|
|
{ "DIRECTORY", FS_PUBLIC, HB_DIRECTORY, 0 }
|
|
};
|
|
|
|
void Dir__InitSymbols( void )
|
|
{
|
|
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
|
|
}
|
|
|
|
static BOOL hb_strMatchDOS (char *pszString, char *pszMask);
|
|
|
|
|
|
HARBOUR HB_DIRECTORY( void )
|
|
{
|
|
#if defined(HAVE_POSIX_IO)
|
|
PHB_ITEM arg1_it = _param(1,IT_STRING);
|
|
PHB_ITEM arg2_it = _param(2,IT_STRING);
|
|
|
|
extern STACK stack;
|
|
|
|
struct stat statbuf;
|
|
struct dirent *entry;
|
|
struct tm *ft;
|
|
|
|
char fullfile[_POSIX_PATH_MAX+1];
|
|
char pattern[_POSIX_PATH_MAX+1];
|
|
char dirname[_POSIX_PATH_MAX+1];
|
|
char filename[_POSIX_PATH_MAX+1];
|
|
char pfname[_POSIX_PATH_MAX+1];
|
|
char pfext[_POSIX_PATH_MAX+1];
|
|
char fname[_POSIX_PATH_MAX+1];
|
|
char fext[_POSIX_PATH_MAX+1];
|
|
char filesize[10];
|
|
char ddate[9];
|
|
char ttime[9];
|
|
int attrib;
|
|
char aatrib[7];
|
|
char string[_POSIX_PATH_MAX+1];
|
|
char * pos;
|
|
long fsize;
|
|
DIR * dir;
|
|
time_t ftime;
|
|
|
|
PHB_ITEM pdir;
|
|
PHB_ITEM psubarray;
|
|
PHB_ITEM pfilename;
|
|
PHB_ITEM psize;
|
|
PHB_ITEM pdate;
|
|
PHB_ITEM ptime;
|
|
PHB_ITEM pattr;
|
|
|
|
dirname[0] = '\0';
|
|
pattern[0] = '\0';
|
|
|
|
|
|
if( arg1_it )
|
|
{
|
|
strcpy(string, _parc(1));
|
|
pos = strrchr(string,PATH_SEPARATOR);
|
|
if( pos )
|
|
{
|
|
strcpy(pattern,(pos+1));
|
|
*(pos+1) = '\0';
|
|
strcpy(dirname,string);
|
|
}
|
|
else
|
|
{
|
|
strcpy(pattern,string);
|
|
strcpy(dirname,".X");
|
|
dirname[1] = PATH_SEPARATOR;
|
|
}
|
|
}
|
|
if (strlen(pattern) < 1)
|
|
strcpy(pattern,"*.*");
|
|
if (strlen(dirname) < 1)
|
|
{
|
|
strcpy(dirname,".X");
|
|
dirname[1] = PATH_SEPARATOR;
|
|
}
|
|
|
|
if (strlen(pattern) > 0)
|
|
{
|
|
strcpy(string,pattern);
|
|
pos = strrchr(string,'.');
|
|
if( pos )
|
|
{
|
|
strcpy(pfext,(pos+1));
|
|
*pos = '\0';
|
|
strcpy(pfname,string);
|
|
}
|
|
else
|
|
{
|
|
strcpy(pfname,string);
|
|
pfext[0] = '\0';
|
|
}
|
|
}
|
|
if (strlen(pfext) < 1)
|
|
pfext[0] = '\0';
|
|
if (strlen(pfname) < 1)
|
|
strcpy(pfname,"*");
|
|
|
|
/* debug code
|
|
printf("\n dirname pattern %s %s ",dirname,pattern);
|
|
printf("\n pfname pfext %s %s ",pfname,pfext);
|
|
while(0==getchar());
|
|
*/
|
|
/* should have drive,directory in dirname and filespec in pattern */
|
|
|
|
tzset();
|
|
pdir = hb_itemArrayNew(0);
|
|
dir = opendir( dirname );
|
|
if (NULL == dir)
|
|
{
|
|
printf("\n invalid dirname %s ",dirname);
|
|
while(0==getchar());
|
|
}
|
|
|
|
/* now put everything into an array */
|
|
while ((entry = readdir( dir )) != NULL)
|
|
{
|
|
|
|
strcpy(string,entry->d_name);
|
|
pos = strrchr(string,'.');
|
|
if( pos )
|
|
{
|
|
strcpy(fext,(pos+1));
|
|
*pos = '\0';
|
|
strcpy(fname,string);
|
|
}
|
|
else
|
|
{
|
|
strcpy(fname,string);
|
|
fext[0] = '\0';
|
|
}
|
|
if (strlen(fext) < 1)
|
|
fext[0] = '\0';
|
|
if (strlen(fname) < 1)
|
|
strcpy(fname,"*");
|
|
|
|
/* debug code
|
|
printf("\n fname fext %s %s ",fname,fext);
|
|
while(0==getchar());
|
|
*/
|
|
if (hb_strMatchDOS( fname,pfname) && hb_strMatchDOS( fext,pfext))
|
|
{
|
|
|
|
aatrib[0] = '\0';
|
|
filesize[0] = '\0';
|
|
filename[0] = '\0';
|
|
attrib = 0;
|
|
fullfile[0] = '\0';
|
|
strcat(filename,entry->d_name);
|
|
strcat(fullfile,dirname);
|
|
strcat(fullfile,entry->d_name);
|
|
|
|
if (-1 == stat(fullfile,&statbuf))
|
|
{
|
|
printf("\n invalid file %s ",fullfile);
|
|
while(0==getchar());
|
|
}
|
|
|
|
fsize = statbuf.st_size;
|
|
sprintf(filesize, "%ld", fsize);
|
|
ftime = statbuf.st_mtime;
|
|
ft = localtime(&ftime);
|
|
|
|
sprintf(ddate, "%04d%02d%02d",
|
|
ft->tm_year+1900, ft->tm_mon + 1, ft->tm_mday);
|
|
sprintf(ttime, "%02d:%02d:%02d",
|
|
ft->tm_hour, ft->tm_min, ft->tm_sec);
|
|
|
|
/* debug code
|
|
printf("\n name date time %s %s %s ",entry,ddate,ttime);
|
|
while(0==getchar());
|
|
*/
|
|
|
|
#if defined(__GNUC__) || defined(__DJGPP__)
|
|
aatrib[0] = '\0';
|
|
#else
|
|
/* TODO: seems to not clear on root entries ? */
|
|
attrib = _chmod(fullfile,0);
|
|
if (attrib & FA_ARCH)
|
|
strcat(aatrib,"A");
|
|
if (attrib & FA_DIREC)
|
|
strcat(aatrib,"D");
|
|
if (attrib & FA_HIDDEN)
|
|
strcat(aatrib,"H");
|
|
if (attrib & FA_LABEL)
|
|
strcat(aatrib,"V");
|
|
if (attrib & FA_RDONLY)
|
|
strcat(aatrib,"R");
|
|
if (attrib & FA_SYSTEM)
|
|
strcat(aatrib,"S");
|
|
#endif
|
|
|
|
/* TODO: attribute match rtn */
|
|
pos = string;
|
|
if( arg2_it && _parclen(2) >= 1)
|
|
{
|
|
strcpy(string, _parc(2));
|
|
while (*pos != '\0') *pos = toupper(*pos);
|
|
pos = strchr(string,*aatrib);
|
|
}
|
|
else
|
|
pos = string;
|
|
|
|
if ( pos )
|
|
{
|
|
/* array cname, csize, ddate, ctime, cattributes */
|
|
pfilename = hb_itemPutC(NULL,filename);
|
|
psize = hb_itemPutC(NULL,filesize);
|
|
pdate = hb_itemPutDS(NULL,ddate);
|
|
ptime = hb_itemPutC(NULL,ttime);
|
|
pattr = hb_itemPutC(NULL,aatrib);
|
|
psubarray = hb_itemArrayNew(5);
|
|
hb_itemArrayPut(psubarray,1,pfilename);
|
|
hb_itemArrayPut(psubarray,2,psize);
|
|
hb_itemArrayPut(psubarray,3,pdate);
|
|
hb_itemArrayPut(psubarray,4,ptime);
|
|
hb_itemArrayPut(psubarray,5,pattr);
|
|
|
|
hb_arrayAdd(pdir,psubarray);
|
|
|
|
hb_itemRelease(pfilename);
|
|
hb_itemRelease(psize);
|
|
hb_itemRelease(pdate);
|
|
hb_itemRelease(ptime);
|
|
hb_itemRelease(pattr);
|
|
hb_itemRelease(psubarray);
|
|
}
|
|
}
|
|
}
|
|
closedir( dir );
|
|
|
|
ItemCopy( &stack.Return, pdir ); /* DIRECTORY() returns an array */
|
|
|
|
hb_itemRelease(pdir);
|
|
|
|
#endif /* HAVE_POSIX_IO */
|
|
return;
|
|
}
|
|
|
|
static BOOL hb_strMatchDOS (char *pszString, char *pszMask)
|
|
{
|
|
while (*pszMask && *pszString)
|
|
{
|
|
if (*pszMask == '*')
|
|
{
|
|
while (*pszMask == '*')
|
|
pszMask++;
|
|
if (!(*pszMask))
|
|
return (TRUE);
|
|
else
|
|
if (*pszMask == '?')
|
|
pszString++;
|
|
else
|
|
{
|
|
while (toupper(*pszString) != toupper(*pszMask))
|
|
{
|
|
if (!(*(++pszString)))
|
|
return (FALSE);
|
|
}
|
|
while (toupper(*pszString) == toupper(*pszMask))
|
|
{
|
|
if (!(*(++pszString)))
|
|
break;
|
|
}
|
|
pszMask++;
|
|
}
|
|
}
|
|
else
|
|
if (toupper(*pszMask) != toupper(*pszString) && *pszMask != '?')
|
|
return (FALSE);
|
|
else
|
|
{
|
|
pszMask++;
|
|
pszString++;
|
|
}
|
|
}
|
|
return !((!(*pszString) && *pszMask && *pszMask != '*') ||
|
|
(!(*pszMask) && *pszString));
|
|
}
|
|
|