import HEAD into svn+ssh://svn.samba.org/home/svn/samba/trunk
[metze/old/v3-2-winbind-ndr.git] / source / popt / findme.c
1 /* (C) 1998 Red Hat Software, Inc. -- Licensing details are in the COPYING
2    file accompanying popt source distributions, available from 
3    ftp://ftp.redhat.com/pub/code/popt */
4
5 #include "system.h"
6 #include "findme.h"
7
8 const char * findProgramPath(const char * argv0) {
9     char * path = getenv("PATH");
10     char * pathbuf;
11     char * start, * chptr;
12     char * buf, *local = NULL;
13
14     /* If there is a / in the argv[0], it has to be an absolute
15        path */
16     if (strchr(argv0, '/'))
17         return xstrdup(argv0);
18
19     if (!path) return NULL;
20
21     local = start = pathbuf = malloc(strlen(path) + 1);
22     buf = malloc(strlen(path) + strlen(argv0) + 2);
23     strcpy(pathbuf, path);
24
25     chptr = NULL;
26     do {
27         if ((chptr = strchr(start, ':')))
28             *chptr = '\0';
29         sprintf(buf, "%s/%s", start, argv0);
30
31         if (!access(buf, X_OK)) {
32                 if (local) free(local);
33                 return buf;
34         }
35
36         if (chptr) 
37             start = chptr + 1;
38         else
39             start = NULL;
40     } while (start && *start);
41
42     free(buf);
43     if (local) free(local);
44
45     return NULL;
46 }