/*
 *  FINDIT()
 *
 *  FINDIT [-ddir] <programname> <programname> ...
 *
 *  Search specified directories (those specified in FINDITVOLS if none
 *  spcified on the command line) for the specified program names.  Wildcards
 *  are acceptable
 *
 *  Format for FINDITVOLS:	dir,dir,dir ...
 */

#include <local/typedefs.h>
#include <local/xmisc.h>
#include <stdio.h>

#define ENVVAR	"FINDITVOLS"

MLIST	DList;
MLIST	FList;
char *ErrorString = "unable to open dres.library";
char *EnvStr;
char Path[1024];

extern int Enable_Abort;

main(ac,av)
char *av[];
{
    NewList(&DList);
    NewList(&FList);

    Enable_Abort = 0;
    {
	register short i;
	for (i = 1; i < ac; ++i) {
	    register char *str = av[i];
	    if (*str != '-') {
		register NODE *node = malloc(sizeof(NODE));
		node->ln_Name = str;
		AddTail(&FList, node);
		continue;
	    }
	    for (++str; *str; ++str) {
		switch(*str) {
		case 'd':
		    {
			register NODE *node = malloc(sizeof(NODE));
			node->ln_Name = str + 1;
			AddTail(&DList, node);
		    }
		    str = "\0";
		    break;
		default:
		    printf("Unknown option: -%c\n", *str);
		    exit(1);
		}
	    }
	}
    }
    if (openlibs(DRES_LIB) == 0) {
	puts(ErrorString);
	exit(1);
    }
    mountrequest(0);
    if (!GetHead(&DList)) {         /*  scan enviroment variable for dirs */
	char *str;
	register char *ptr;
	register NODE *node;
	register char c;

	str = EnvStr = GetDEnv(ENVVAR);
	if (!str) {
	    printf("Env. Var %s not found, format:  dir,dir,dir...\n", ENVVAR);
	    goto fail;
	}
	for (c = 1; c; str = ptr + 1) {
	    for (ptr = str; *ptr && *ptr != ','; ++ptr);
	    c = *ptr;
	    *ptr = 0;
	    node = malloc(sizeof(NODE));
	    node->ln_Name = str;
	    AddTail(&DList, node);
	}
    }
    {
	register NODE *node;
	register FIB *fib = malloc(sizeof(FIB));
	while (node = RemHead(&DList)) {
	    long lock;

	    if (lock = Lock(node->ln_Name, SHARED_LOCK)) {
		strcpy(Path, node->ln_Name);
		if (Examine(lock, fib))
		    SearchTree(lock, fib, strlen(Path));
		UnLock(lock);
	    }
	    free(node);
	    if (checkbreak())
		break;
	}
	free(fib);
	puts("");
    }
fail:
    if (checkbreak())
	puts("^C");
    {
	register NODE *node;
	while (node = RemHead(&DList))
	    free(node);
	while (node = RemHead(&FList))
	    free(node);
    }
    if (EnvStr)
	free(EnvStr);
    mountrequest(1);
    closelibs(-1);
}

/*
 *  Search the specified directory for the wildcarded names in FList.
 */

SearchTree(dirlock, dirfib, idx)
long dirlock;
FIB *dirfib;
{
    long oldlock;
    long lock;
    register FIB *fib = malloc(sizeof(FIB));

    oldlock = CurrentDir(dirlock);
    while (ExNext(dirlock, dirfib)) {
	if (idx && Path[idx-1] != ':' && Path[idx-1] != '/') {
	    Path[idx] = '/';
	    strcpy(Path+idx+1, dirfib->fib_FileName);
	} else {
	    strcpy(Path+idx, dirfib->fib_FileName);
	}
	if (dirfib->fib_DirEntryType > 0) {
	    if (lock = Lock(dirfib->fib_FileName, SHARED_LOCK)) {
		if (Examine(lock, fib))
		    SearchTree(lock, fib, idx + strlen(Path+idx));
		UnLock(lock);
		if (checkbreak())
		    break;
	    }
	} else {
	    register NODE *node;
	    for (node = GetHead(&FList); node; node = GetSucc(node)) {
		if (WildCmp(node->ln_Name, dirfib->fib_FileName)) {
		    printf("%s ", Path);
		    fflush(stdout);
		}
	    }
	}
    }
    CurrentDir(oldlock);
    free(fib);
}