134f9b3eeSRoland Mainz /***********************************************************************
234f9b3eeSRoland Mainz * *
334f9b3eeSRoland Mainz * This software is part of the ast package *
4*3e14f97fSRoger A. Faulkner * Copyright (c) 1985-2010 AT&T Intellectual Property *
534f9b3eeSRoland Mainz * and is licensed under the *
634f9b3eeSRoland Mainz * Common Public License, Version 1.0 *
734f9b3eeSRoland Mainz * by AT&T Intellectual Property *
834f9b3eeSRoland Mainz * *
934f9b3eeSRoland Mainz * A copy of the License is available at *
1034f9b3eeSRoland Mainz * http://www.opensource.org/licenses/cpl1.0.txt *
1134f9b3eeSRoland Mainz * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
1234f9b3eeSRoland Mainz * *
1334f9b3eeSRoland Mainz * Information and Software Systems Research *
1434f9b3eeSRoland Mainz * AT&T Research *
1534f9b3eeSRoland Mainz * Florham Park NJ *
1634f9b3eeSRoland Mainz * *
1734f9b3eeSRoland Mainz * Glenn Fowler <gsf@research.att.com> *
1834f9b3eeSRoland Mainz * David Korn <dgk@research.att.com> *
1934f9b3eeSRoland Mainz * Phong Vo <kpv@research.att.com> *
2034f9b3eeSRoland Mainz * *
2134f9b3eeSRoland Mainz ***********************************************************************/
2234f9b3eeSRoland Mainz #pragma prototyped
2334f9b3eeSRoland Mainz /*
2434f9b3eeSRoland Mainz * Glenn Fowler
2534f9b3eeSRoland Mainz * AT&T Research
2634f9b3eeSRoland Mainz *
2734f9b3eeSRoland Mainz * return the full path of the current program in path
2834f9b3eeSRoland Mainz * command!=0 is used as a default
2934f9b3eeSRoland Mainz */
3034f9b3eeSRoland Mainz
3134f9b3eeSRoland Mainz #include <ast.h>
3234f9b3eeSRoland Mainz
3334f9b3eeSRoland Mainz #if _WINIX
3434f9b3eeSRoland Mainz #include <ast_windows.h>
3534f9b3eeSRoland Mainz #include <ctype.h>
3634f9b3eeSRoland Mainz #endif
3734f9b3eeSRoland Mainz
3834f9b3eeSRoland Mainz #include "FEATURE/prog"
3934f9b3eeSRoland Mainz
4034f9b3eeSRoland Mainz static size_t
prog(const char * command,char * path,size_t size)4134f9b3eeSRoland Mainz prog(const char* command, char* path, size_t size)
4234f9b3eeSRoland Mainz {
4334f9b3eeSRoland Mainz ssize_t n;
4434f9b3eeSRoland Mainz #if _WINIX || _lib_getexecname
4534f9b3eeSRoland Mainz char* s;
4634f9b3eeSRoland Mainz #endif
4734f9b3eeSRoland Mainz #if _WINIX
4834f9b3eeSRoland Mainz char* t;
4934f9b3eeSRoland Mainz char* e;
5034f9b3eeSRoland Mainz int c;
5134f9b3eeSRoland Mainz int q;
5234f9b3eeSRoland Mainz #endif
5334f9b3eeSRoland Mainz
5434f9b3eeSRoland Mainz #ifdef _PROC_PROG
5534f9b3eeSRoland Mainz if ((n = readlink(_PROC_PROG, path, size)) > 0)
5634f9b3eeSRoland Mainz {
5734f9b3eeSRoland Mainz if (n < size)
5834f9b3eeSRoland Mainz path[n] = 0;
5934f9b3eeSRoland Mainz return n;
6034f9b3eeSRoland Mainz }
6134f9b3eeSRoland Mainz #endif
6234f9b3eeSRoland Mainz #if _lib_getexecname
6334f9b3eeSRoland Mainz if (s = (char*)getexecname())
6434f9b3eeSRoland Mainz {
6534f9b3eeSRoland Mainz n = strlen(s);
6634f9b3eeSRoland Mainz if (n < size)
6734f9b3eeSRoland Mainz strcpy(path, s);
6834f9b3eeSRoland Mainz return n;
6934f9b3eeSRoland Mainz }
7034f9b3eeSRoland Mainz #endif
7134f9b3eeSRoland Mainz #if _WINIX
7234f9b3eeSRoland Mainz if (s = GetCommandLine())
7334f9b3eeSRoland Mainz {
7434f9b3eeSRoland Mainz n = 0;
7534f9b3eeSRoland Mainz q = 0;
7634f9b3eeSRoland Mainz t = path;
7734f9b3eeSRoland Mainz e = path + size - 1;
7834f9b3eeSRoland Mainz while (c = *s++)
7934f9b3eeSRoland Mainz {
8034f9b3eeSRoland Mainz if (c == q)
8134f9b3eeSRoland Mainz q = 0;
8234f9b3eeSRoland Mainz else if (!q && c == '"')
8334f9b3eeSRoland Mainz q = c;
8434f9b3eeSRoland Mainz else if (!q && isspace(c))
8534f9b3eeSRoland Mainz break;
8634f9b3eeSRoland Mainz else if (t < e)
8734f9b3eeSRoland Mainz *t++ = c == '\\' ? '/' : c;
8834f9b3eeSRoland Mainz else
8934f9b3eeSRoland Mainz n++;
9034f9b3eeSRoland Mainz }
9134f9b3eeSRoland Mainz if (t < e)
9234f9b3eeSRoland Mainz *t = 0;
9334f9b3eeSRoland Mainz return (t - path) + n;
9434f9b3eeSRoland Mainz }
9534f9b3eeSRoland Mainz #endif
9634f9b3eeSRoland Mainz if (command)
9734f9b3eeSRoland Mainz {
9834f9b3eeSRoland Mainz if ((n = strlen(command) + 1) <= size)
9934f9b3eeSRoland Mainz memcpy(path, command, n);
10034f9b3eeSRoland Mainz return n;
10134f9b3eeSRoland Mainz }
10234f9b3eeSRoland Mainz return 0;
10334f9b3eeSRoland Mainz }
10434f9b3eeSRoland Mainz
10534f9b3eeSRoland Mainz size_t
pathprog(const char * command,char * path,size_t size)10634f9b3eeSRoland Mainz pathprog(const char* command, char* path, size_t size)
10734f9b3eeSRoland Mainz {
10834f9b3eeSRoland Mainz ssize_t n;
10934f9b3eeSRoland Mainz char buf[PATH_MAX];
11034f9b3eeSRoland Mainz
11134f9b3eeSRoland Mainz if ((n = prog(command, path, size)) > 0 && n <= size && *path != '/')
11234f9b3eeSRoland Mainz {
11334f9b3eeSRoland Mainz if (!pathpath(buf, path, NiL, PATH_REGULAR|PATH_EXECUTE))
11434f9b3eeSRoland Mainz n = 0;
11534f9b3eeSRoland Mainz else if ((n = strlen(buf) + 1) <= size)
11634f9b3eeSRoland Mainz memcpy(path, buf, n);
11734f9b3eeSRoland Mainz }
11834f9b3eeSRoland Mainz return n;
11934f9b3eeSRoland Mainz }
120