static char rcsver[] = "$Id: dir.c,v 1.3 2000/07/07 17:15:22 saadat Exp $";
 
/**
 ** $Source: /tes/cvs/vanilla/dir.c,v $
 **
 ** $Log: dir.c,v $
 ** Revision 1.3  2000/07/07 17:15:22  saadat
 ** Added support for Windows MS Visual C++ memory-mapped file support.
 ** Removed some unused variables from various files.
 **
 ** Revision 1.2  1999/11/19 21:19:43  gorelick
 ** Version 3.1, post PDS delivery of 3.0
 **
 ** Revision 1.1.1.1  1999/10/15 19:30:35  gorelick
 ** Version 3.0
 **
 ** Revision 2.1  1999/02/10 04:00:50  gorelick
 ** *** empty log message ***
 **
 ** Revision 2.0  1998/12/22 22:47:04  gorelick
 ** release version
 **
 ** Revision 2.0  1998/12/18 01:26:03  gorelick
 ** release version
 **
 ** Revision 1.3  1998/12/18 01:04:48  gorelick
 ** *** empty log message ***
 **
 ** Revision 1.2  1998/11/12 22:58:55  gorelick
 ** first release version
 **
 **/

#ifdef _WINDOWS
#include "dos.h"
#include <io.h>
#else
#include <dirent.h>
#include <libgen.h>
#endif /* _WINDOWS */

#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include "tools.h"
#include "system.h"


#define qsortptr int (*)(const void *, const void *)

int mystrcmp(const char **a, const char **b);
void SortFiles(LIST *list);
int IsDataFile(char *test, char *type);
int IsAPhantomLink(const char *fpath);

/**
 ** Given a directory and table prefix, load the name of all the files
 **/

#ifdef _WINDOWS

LIST *
LoadFilenames(char *path, char *prefix)
{
    LIST *list;
    char buf[2048];
	const char *phantom_link_msg = "Ignoring phantom link named %s.\n";
	long fhand;
	struct _finddata_t finfo;
	long rc;
	
	sprintf(buf, "%s/%s*", path, prefix);

	fhand = _findfirst(buf, &finfo);
	if (fhand == -1 && errno == EINVAL){ return NULL; }
	rc = fhand;
	list = new_list();
	while(rc != -1){
		if (IsDataFile(finfo.name, prefix)){
			sprintf(buf, "%s/%s", path, finfo.name);
			if (!IsAPhantomLink(buf)){
				/**
				** Store the file name
				**/
				list_add(list, strdup(buf));
			}
			else {
				fprintf(stderr, phantom_link_msg, buf);
			}
		}
		rc = _findnext(fhand, &finfo);
	}
	
	if (fhand != -1) { _findclose(fhand); }
    SortFiles(list);
    return(list);
}

#else

LIST *
LoadFilenames(char *path, char *prefix)
{
    LIST *list;
    char buf[2048];
	const char *phantom_link_msg = "Ignoring phantom link named %s.\n";
    DIR *d;
    struct dirent *d_ent;

    if ((d = opendir(path)) == NULL)
        return (NULL);

    list = new_list();
    while ((d_ent = readdir(d)) != NULL) {
        if (IsDataFile(d_ent->d_name, prefix)){
            sprintf(buf, "%s/%s", path, d_ent->d_name);

				if(!IsAPhantomLink(buf)) {
					/**
					** Store the filename
					**/
					list_add(list, strdup(buf));
				}
				else {
					fprintf(stderr, phantom_link_msg, buf);
				}
        }
    }
    closedir(d);
    SortFiles(list);
    return(list);
}

#endif /* _WINDOWS */

int
IsAPhantomLink(const char *fpath)
{
	struct stat sbuf;

	if (stat(fpath, &sbuf) < 0){
		if (errno == ENOENT){
			return 1; /* Phantom link */
		}
	}

	/* Not a phantom link or not accessable */
	return 0;
}

int
IsDataFile(char *test, char *type)
{
    char *p;
    if (!strncasecmp(test, type, strlen(type))) {
        p = strrchr(test, '.');
        if (p && (!strcasecmp(p, ".DAT") || !strcasecmp(p, ".TAB")))
            return (1);
    }
    return (0);
}


#ifdef _WINDOWS

static const char *
my_basename(const char *path)
{
	const char *name, *p1, *p2;

	if (path == NULL){ return NULL; }

	p1 = strrchr(path, '/');
	p2 = strrchr(path, '\\');

	/* name follows the last "/" or "\" - if any! */
	if (p1 && p2){ name = (p1 > p2)? p1: p2; name ++; }
	else if (p1) { name = p1 + 1; }
	else if (p2) { name = p2 + 1; }
	else         {
		/* name follows the drive letter - if any! */
		p1 = strchr(path, ':');
		if ((p1 - path) == 2){ name = p1 + 1; }
		else                 { name = path; }
	}

	return name;	
}

#else /* UNIX */

static const char *
my_basename(const char *path)
{
	const char *name;

	if (path == NULL){ return NULL; }

	name = strrchr(path, '/');
	if (name){ name++; }
	else { name = path; }

	return name;
}

#endif /* _WINDOWS */
static int
my_filename_cmp(const char **a, const char **b)
{
	return strcmp(my_basename(*a), my_basename(*b));
}

void
SortFiles(LIST *list)
{
    if (list->number > 1)
        qsort(list->ptr, list->number, sizeof(char *), (qsortptr)my_filename_cmp);
}