/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
* National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
* Operator of Los Alamos National Laboratory.
* This file is distributed subject to a Software License Agreement found
* in the file LICENSE that is included with this distribution. 
\*************************************************************************/

/* file: wild_list.c
 * contents: wild_list()
 *
 * Michael Borland, 1991-3
 $Log: wild_list.c,v $
 Revision 1.5  2007/07/13 15:02:45  soliday
 Renamed strcpy_s to strcpy_ss because Microsoft is already using this name.

 Revision 1.4  2007/02/02 18:45:28  borland
 Added str_copy.c, with strcpy_s() routine for safe string copies.
 Converted routines from strcpy() to strcpy_s().

 Revision 1.3  2002/08/14 16:06:17  soliday
 Added Open License

 Revision 1.2  1995/09/05 21:18:44  saunders
 First test release of the SDDS1.5 package.
 
 */
#include "mdb.h"
#include "sort.h"
#if defined(SUNOS4)

#include <dirent.h>

char **wild_list(
    int *n_names_ret,     /* number of names returned in array of pointers */
    int **origin_ret,     /* index of the item that gave rise to a name */
    char **item_list,     /* list of items to match with */
    int n_items           /* number of items to match with */
    );

typedef struct {
    char *name;
    int origin;
    } NAME_ORIGIN;

int NO_compare(const void *s1, const void *s2);
void NO_copy(void *s1, void *s2);

char **wild_list(
    int *n_names_ret,     /* number of names returned in array of pointers */
    int **origin_ret,     /* index of the item that gave rise to a name */
    char **item,          /* list of items to match with */
    int n_items           /* number of items to match with */
    )
{
    char template[1024];
    DIR *fdp;
    struct dirent *entry;
    NAME_ORIGIN *list;
    char **slist;
    long n_list;

    if (!(fdp=opendir(".")))
        bomb("unable to open current directory (wild_list)", NULL);

    n_list = 0;
    list = NULL;
    while (n_items--) {
        strcpy_ss(template, item[n_items]);
        while (entry=readdir(fdp)) {
            if (wild_match(entry->d_name, template)) {
                list = trealloc(list, sizeof(*list)*(n_list+1));
                cp_str(&list[n_list].name, entry->d_name);
                list[n_list].origin = n_items;
                n_list++;
                }
            }
        rewinddir(fdp);
        }
    qsort((void*)list, n_list, sizeof(*list), NO_compare);
    n_list = unique((void*)list, n_list, sizeof(*list), NO_compare, NO_copy);
    *n_names_ret = n_list;
    slist = tmalloc(sizeof(*slist)*n_list);
    *origin_ret = tmalloc(sizeof(**origin_ret)*n_list);
    while (n_list--) {
        slist[n_list]  = list[n_list].name;
        (*origin_ret)[n_list] = list[n_list].origin;
        }
    tfree(list);
    closedir(fdp);
    return(slist);
    }

int NO_compare(const void *s1, const void *s2)
{
    return(strcmp(((NAME_ORIGIN *)s1)->name, ((NAME_ORIGIN *)s2)->name));
    }

void NO_copy(void *s1v, void *s2v)
{
    char *name;
    long origin;
    NAME_ORIGIN *s1, *s2;
    s1 = (NAME_ORIGIN*)s1v;
    s2 = (NAME_ORIGIN*)s2v;
    origin     = s1->origin; name     = s1->name;
    s1->origin = s2->origin; s1->name = s2->name;
    s2->origin = origin    ; s2->name = name;
    }

#endif /* SUNOS4 */