#pragma prototyped

#include "defs.h"

#include <fcin.h>

#include <ls.h>

#include <nval.h>

#include "variables.h"

#include "path.h"

#include "io.h"

#include "jobs.h"

#include "history.h"

#include "test.h"

#include "FEATURE/dynamic"

#include "FEATURE/externs"

#if SHOPT_PFSH

# ifdef _hdr_exec_attr

# include <exec_attr.h>

# endif

# if _lib_vfork

# include <ast_vfork.h>

# else

# define vfork() fork()

# endif

#endif

#define RW_ALL (S_IRUSR|S_IRGRP|S_IROTH|S_IWUSR|S_IWGRP|S_IWOTH)

#define LIBCMD "cmd"

static int canexecute(char*,int);

static void funload(Shell_t*,int,const char*);

static void exscript(Shell_t*,char*, char*[], char**);

static int path_chkpaths(Pathcomp_t*,Pathcomp_t*,Pathcomp_t*,int);

static void path_checkdup(register Pathcomp_t*);

static const char *std_path;

static int onstdpath(const char *name)

{

register const char *cp = std_path, *sp;

if(cp)

while(*cp)

{

for(sp=name; *sp && (*cp == *sp); sp++,cp++);

if(*sp==0 && (*cp==0 || *cp==':'))

return(1);

while(*cp && *cp++!=':');

}

return(0);

}

static pid_t path_pfexecve(const char *path, char *argv[],char *const envp[],int spawn)

{

#if SHOPT_PFSH

pid_t pid;

char resolvedpath[PATH_MAX + 1];

if(spawn)

{

while((pid = vfork()) < 0)

_sh_fork(pid, 0, (int*)0);

if(pid)

return(pid);

}

if(!sh_isoption(SH_PFSH))

return(execve(path, argv, envp));

/* Solaris implements realpath(3C) using the resolvepath(2) */

/* system call so we can save us to call access(2) first */

if (!realpath(path, resolvedpath))

return -1;

/* we can exec the command directly instead of via pfexec(1) if */

/* there is a matching entry without attributes in exec_attr(4) */

if (sh.user && *sh.user)

{

execattr_t *pf;

if(pf=getexecuser(sh.user, KV_COMMAND, resolvedpath, GET_ONE))

{

if (!pf->attr || pf->attr->length == 0)

{

int r = execve(path, argv, envp);

free_execattr(pf);

return r;

}

free_execattr(pf);

}

else

{

errno = ENOENT;

return -1;

}

}

--argv;

argv[0] = argv[1];

argv[1] = resolvedpath;

return(execve("/usr/bin/pfexec", argv, envp));

#else

return(execve(path, argv, envp));

#endif

}

static pid_t _spawnveg(const char *path, char* const argv[], char* const envp[], pid_t pgid)

{

int waitsafe = job.waitsafe;

pid_t pid;

job_lock();

while(1)

{

sh_stats(STAT_SPAWN);

pid = spawnveg(path,argv,envp,pgid);

if(pid>=0 || errno!=EAGAIN)

break;

_sh_fork(pid, 0, (int*)0);

}

job.waitsafe = waitsafe;

if(pid>0)

job_fork(pid);

else

job_unlock();

return(pid);

}

static pid_t path_xargs(const char *path, char *argv[],char *const envp[], int spawn)

{

register char *cp, **av, **xv;

char **avlast= &argv[sh.xargmax], **saveargs=0;

char *const *ev;

long size, left;

int nlast=1,n,exitval=0;

pid_t pid;

if(sh.xargmin < 0)

return((pid_t)-1);

size = sh.lim.arg_max-1024;

for(ev=envp; cp= *ev; ev++)

size -= strlen(cp)-1;

for(av=argv; (cp= *av) && av< &argv[sh.xargmin]; av++)

size -= strlen(cp)-1;

for(av=avlast; cp= *av; av++,nlast++)

size -= strlen(cp)-1;

av = &argv[sh.xargmin];

if(!spawn)

job_clear();

sh.exitval = 0;

while(av<avlast)

{

for(xv=av,left=size; left>0 && av<avlast;)

left -= strlen(*av++)+1;

/* leave at least two for last */

if(left<0 && (avlast-av)<2)

av--;

if(xv==&argv[sh.xargmin])

{

n = nlast*sizeof(char*);

saveargs = (char**)malloc(n);

memcpy((void*)saveargs, (void*)av, n);

memcpy((void*)av,(void*)avlast,n);

}

else

{

for(n=sh.xargmin; xv < av; xv++)

argv[n++] = *xv;

for(xv=avlast; cp= *xv; xv++)

argv[n++] = cp;

argv[n] = 0;

}

if(saveargs || av<avlast || (exitval && !spawn))

{

if((pid=_spawnveg(path,argv,envp,0)) < 0)

return(-1);

job_post(pid,0);

job_wait(pid);

if(sh.exitval>exitval)

exitval = sh.exitval;

if(saveargs)

{

memcpy((void*)av,saveargs,n);

free((void*)saveargs);

saveargs = 0;

}

}

else if(spawn && !sh_isoption(SH_PFSH))

{

sh.xargexit = exitval;

return(_spawnveg(path,argv,envp,spawn>>1));

}

else

return(path_pfexecve(path,argv,envp,spawn));

}

if(!spawn)

exit(exitval);

return((pid_t)-1);

}

char *path_pwd(int flag)

{

register char *cp;

register char *dfault = (char*)e_dot;

register int count = 0;

Shell_t *shp = &sh;

if(shp->pwd)

return((char*)shp->pwd);

while(1)

{

/* try from lowest to highest */

switch(count++)

{

case 0:

cp = nv_getval(PWDNOD);

break;

case 1:

cp = nv_getval(HOME);

break;

case 2:

cp = "/";

break;

case 3:

cp = (char*)e_crondir;

if(flag) /* skip next case when non-zero flag */

++count;

break;

case 4:

{

if(cp=getcwd(NIL(char*),0))

{

nv_offattr(PWDNOD,NV_NOFREE);

nv_unset(PWDNOD);

PWDNOD->nvalue.cp = cp;

goto skip;

}

break;

}

case 5:

return(dfault);

}

if(cp && *cp=='/' && test_inode(cp,e_dot))

break;

}

if(count>1)

{

nv_offattr(PWDNOD,NV_NOFREE);

nv_putval(PWDNOD,cp,NV_RDONLY);

}

skip:

nv_onattr(PWDNOD,NV_NOFREE|NV_EXPORT);

shp->pwd = (char*)(PWDNOD->nvalue.cp);

return(cp);

}

static void free_bltin(Namval_t *np,void *data)

{

register Pathcomp_t *pp= (Pathcomp_t*)data;

if(pp->flags&PATH_STD_DIR)

{

int offset=staktell();;

if(strcmp(pp->name,"/bin")==0 || memcmp(pp->name,np->nvname,pp->len) || np->nvname[pp->len]!='/')

return;

stakputs("/bin");

stakputs(np->nvname+pp->len+1);

stakputc(0);

sh_addbuiltin(stakptr(offset),np->nvalue.bfp,NiL);

stakseek(offset);

return;

}

if((void*)np->nvenv==pp->bltin_lib)

nv_delete(np,sh_bltin_tree(),NV_NOFREE);

}

void path_delete(Pathcomp_t *first)

{

register Pathcomp_t *pp=first, *old=0, *ppnext;

while(pp)

{

ppnext = pp->next;

if(--pp->refcount<=0)

{

if(pp->lib)

free((void*)pp->lib);

if(pp->blib)

free((void*)pp->blib);

if(pp->bltin_lib || (pp->flags&PATH_STD_DIR))

{

nv_scan(sh_bltin_tree(),free_bltin,pp,0,0);

#if SHOPT_DYNAMIC

if(pp->bltin_lib)

dlclose(pp->bltin_lib);

#endif /* SHOPT_DYNAMIC */

}

free((void*)pp);

if(old)

old->next = ppnext;

}

else

old = pp;

pp = ppnext;

}

}

static char *path_lib(Pathcomp_t *pp, char *path)

{

register char *last = strrchr(path,'/');

register int r;

struct stat statb;

if(last)

*last = 0;

else

path = ".";

r = stat(path,&statb);

if(last)

*last = '/';

if(r>=0)

{

Pathcomp_t pcomp;

char save[8];

for( ;pp; pp=pp->next)

{

path_checkdup(pp);

if(pp->ino==statb.st_ino && pp->dev==statb.st_dev && pp->mtime==statb.st_mtime)

return(pp->lib);

}

pcomp.len = 0;

if(last)

pcomp.len = last-path;

memcpy((void*)save, (void*)stakptr(PATH_OFFSET+pcomp.len),sizeof(save));

if(path_chkpaths((Pathcomp_t*)0,(Pathcomp_t*)0,&pcomp,PATH_OFFSET))

return(stakfreeze(1));

memcpy((void*)stakptr(PATH_OFFSET+pcomp.len),(void*)save,sizeof(save));

}

return(0);

}

#if 0

void path_dump(register Pathcomp_t *pp)

{

sfprintf(sfstderr,"dump\n");

while(pp)

{

sfprintf(sfstderr,"pp=%x dev=%d ino=%d len=%d flags=%o name=%.*s\n",

pp,pp->dev,pp->ino,pp->len,pp->flags,pp->len,pp->name);

pp = pp->next;

}

}

#endif

static void path_checkdup(register Pathcomp_t *pp)

{

register char *name = pp->name;

register Pathcomp_t *oldpp,*first;

register int flag=0;

struct stat statb;

if(stat(name,&statb)<0 || !S_ISDIR(statb.st_mode))

{

pp->flags |= PATH_SKIP;

pp->dev = *name=='/';

return;

}

pp->mtime = statb.st_mtime;

pp->ino = statb.st_ino;

pp->dev = statb.st_dev;

if(*name=='/' && onstdpath(name))

flag = PATH_STD_DIR;

first = (pp->flags&PATH_CDPATH)?pp->shp->cdpathlist:path_get("");

for(oldpp=first; oldpp && oldpp!=pp; oldpp=oldpp->next)

{

if(pp->ino==oldpp->ino && pp->dev==oldpp->dev && pp->mtime==oldpp->mtime)

{

flag |= PATH_SKIP;

break;

}

}

pp->flags |= flag;

if(((pp->flags&(PATH_PATH|PATH_SKIP))==PATH_PATH))

{

int offset = staktell();

stakputs(name);

path_chkpaths(first,0,pp,offset);

stakseek(offset);

}

}

Pathcomp_t *path_nextcomp(register Pathcomp_t *pp, const char *name, Pathcomp_t *last)

{

Pathcomp_t *ppnext;

stakseek(PATH_OFFSET);

if(*name=='/')

pp = 0;

else

{

for(;pp && pp!=last;pp=ppnext)

{

if(ppnext=pp->next)

ppnext->shp = pp->shp;

if(!pp->dev && !pp->ino)

path_checkdup(pp);

if(pp->flags&PATH_SKIP)

continue;

if(!last || *pp->name!='/')

break;

}

if(!pp) /* this should not happen */

pp = last;

}

if(pp && (pp->name[0]!='.' || pp->name[1]))

{

if(*pp->name!='/')

{

stakputs(path_pwd(1));

if(*stakptr(staktell()-1)!='/')

stakputc('/');

}

stakwrite(pp->name,pp->len);

if(pp->name[pp->len-1]!='/')

stakputc('/');

}

stakputs(name);

stakputc(0);

while(pp && pp!=last && (pp=pp->next))

{

if(!(pp->flags&PATH_SKIP))

return(pp);

}

return((Pathcomp_t*)0);

}

static Pathcomp_t* defpath_init(Shell_t *shp)

{

Pathcomp_t *pp = (void*)path_addpath((Pathcomp_t*)0,(std_path),PATH_PATH);

if(shp->defpathlist = (void*)pp)

pp->shp = shp;

return(pp);

}

static void path_init(Shell_t *shp)

{

const char *val;

Pathcomp_t *pp;

if(!std_path && !(std_path=astconf("PATH",NIL(char*),NIL(char*))))

std_path = e_defpath;

if(val=sh_scoped(shp,(PATHNOD))->nvalue.cp)

{

pp = (void*)path_addpath((Pathcomp_t*)shp->pathlist,val,PATH_PATH);

if(shp->pathlist = (void*)pp)

pp->shp = shp;

}

else

{

if(!(pp=(Pathcomp_t*)shp->defpathlist))

pp = defpath_init(shp);

shp->pathlist = (void*)path_dup(pp);

}

if(val=sh_scoped(shp,(FPATHNOD))->nvalue.cp)

{

pp = (void*)path_addpath((Pathcomp_t*)shp->pathlist,val,PATH_FPATH);

if(shp->pathlist = (void*)pp)

pp->shp = shp;

}

}

Pathcomp_t *path_get(register const char *name)

{

register Shell_t *shp = &sh;

register Pathcomp_t *pp=0;

if(*name && strchr(name,'/'))

return(0);

if(!sh_isstate(SH_DEFPATH))

{

if(!shp->pathlist)

path_init(shp);

pp = (Pathcomp_t*)shp->pathlist;

}

if(!pp && (!(PATHNOD)->nvalue.cp) || sh_isstate(SH_DEFPATH))

{

if(!(pp=(Pathcomp_t*)shp->defpathlist))

pp = defpath_init(shp);

}

return(pp);

}

static int path_opentype(const char *name, register Pathcomp_t *pp, int fun)

{

register int fd= -1;

struct stat statb;

Pathcomp_t *oldpp;

Shell_t *shp;

if(pp)

shp = pp->shp;

else

{

shp = sh_getinterp();

if(!shp->pathlist)

path_init(shp);

}

if(!fun && strchr(name,'/'))

{

if(sh_isoption(SH_RESTRICTED))

errormsg(SH_DICT,ERROR_exit(1),e_restricted,name);

}

do

{

pp = path_nextcomp(oldpp=pp,name,0);

while(oldpp && (oldpp->flags&PATH_SKIP))

oldpp = oldpp->next;

if(fun && (!oldpp || !(oldpp->flags&PATH_FPATH)))

continue;

if((fd = sh_open(path_relative(stakptr(PATH_OFFSET)),O_RDONLY,0)) >= 0)

{

if(fstat(fd,&statb)<0 || S_ISDIR(statb.st_mode))

{

errno = EISDIR;

sh_close(fd);

fd = -1;

}

}

}

while( fd<0 && pp);

if(fd>=0 && (fd = sh_iomovefd(fd)) > 0)

{

fcntl(fd,F_SETFD,FD_CLOEXEC);

if(!shp)

{

shp = sh_getinterp();

#if _UWIN

close(0x10001); /* this results in a /var/log/uwin message with "0x10001" for debugging */

#endif

}

shp->fdstatus[fd] |= IOCLEX;

}

return(fd);

}

int path_open(const char *name, register Pathcomp_t *pp)

{

return(path_opentype(name,pp,0));

}

char *path_basename(register const char *name)

{

register const char *start = name;

while (*name)

if ((*name++ == '/') && *name) /* don't trim trailing / */

start = name;

return ((char*)start);

}

char *path_fullname(const char *name)

{

int len=strlen(name)+1,dirlen=0;

char *path,*pwd;

if(*name!='/')

{

pwd = path_pwd(1);

dirlen = strlen(pwd)+1;

}

path = (char*)malloc(len+dirlen);

if(dirlen)

{

memcpy((void*)path,(void*)pwd,dirlen);

path[dirlen-1] = '/';

}

memcpy((void*)&path[dirlen],(void*)name,len);

pathcanon(path,0);

return(path);

}

static void funload(Shell_t *shp,int fno, const char *name)

{

char *pname,*oldname=shp->st.filename, buff[IOBSIZE+1];

Namval_t *np;

struct Ufunction *rp;

int savestates = sh_getstate(), oldload=shp->funload;

pname = path_fullname(stakptr(PATH_OFFSET));

if(shp->fpathdict && (rp = dtmatch(shp->fpathdict,(void*)pname)))

{

Dt_t *funtree = sh_subfuntree(1);

do

{

if((np = dtsearch(funtree,rp->np)) && is_afunction(np))

{

if(np->nvalue.rp)

np->nvalue.rp->fdict = 0;

nv_delete(np,funtree,NV_NOFREE);

}

dtinsert(funtree,rp->np);

rp->fdict = funtree;

}

while((rp=dtnext(shp->fpathdict,rp)) && strcmp(pname,rp->fname)==0);

return;

}

sh_onstate(SH_NOLOG);

sh_onstate(SH_NOALIAS);

shp->readscript = (char*)name;

shp->st.filename = pname;

shp->funload = 1;

error_info.line = 0;

sh_eval(sfnew(NIL(Sfio_t*),buff,IOBSIZE,fno,SF_READ),SH_FUNEVAL);

shp->readscript = 0;

free((void*)shp->st.filename);

shp->funload = oldload;

shp->st.filename = oldname;

sh_setstate(savestates);

}

int path_search(register const char *name,Pathcomp_t **oldpp, int flag)

{

register Namval_t *np;

register int fno;

Pathcomp_t *pp=0;

Shell_t *shp = &sh;

if(name && strchr(name,'/'))

{

stakseek(PATH_OFFSET);

stakputs(name);

if(canexecute(stakptr(PATH_OFFSET),0)<0)

{

*stakptr(PATH_OFFSET) = 0;

return(0);

}

if(*name=='/')

return(1);

stakseek(PATH_OFFSET);

stakputs(path_pwd(1));

stakputc('/');

stakputs(name);

stakputc(0);

return(0);

}

if(sh_isstate(SH_DEFPATH))

{

if(!shp->defpathlist)

defpath_init(shp);

}

else if(!shp->pathlist)

path_init(shp);

if(flag)

{

if((np=nv_search(name,shp->track_tree,0)) && !nv_isattr(np,NV_NOALIAS) && (pp=(Pathcomp_t*)np->nvalue.cp))

{

stakseek(PATH_OFFSET);

path_nextcomp(pp,name,pp);

stakputc(0);

return(0);

}

pp = path_absolute(name,oldpp?*oldpp:NIL(Pathcomp_t*));

if(oldpp)

*oldpp = pp;

if(!pp && (np=nv_search(name,shp->fun_tree,HASH_NOSCOPE))&&np->nvalue.ip)

return(1);

if(!pp)

*stakptr(PATH_OFFSET) = 0;

}

if(flag==0 || !pp || (pp->flags&PATH_FPATH))

{

if(!pp)

pp=sh_isstate(SH_DEFPATH)?shp->defpathlist:shp->pathlist;

if(pp && strmatch(name,e_alphanum) && (fno=path_opentype(name,pp,1))>=0)

{

if(flag==2)

{

sh_close(fno);

return(1);

}

funload(shp,fno,name);

return(1);

}

*stakptr(PATH_OFFSET) = 0;

return(0);

}

else if(pp && !sh_isstate(SH_DEFPATH) && *name!='/' && flag<3)

{

if(np=nv_search(name,shp->track_tree,NV_ADD))

path_alias(np,pp);

}

return(0);

}

Pathcomp_t *path_absolute(register const char *name, Pathcomp_t *pp)

{

register int f,isfun;

int noexec=0;

Pathcomp_t *oldpp;

Shell_t *shp = &sh;

Namval_t *np;

shp->path_err = ENOENT;

if(!pp && !(pp=path_get("")))

return(0);

shp->path_err = 0;

while(1)

{

sh_sigcheck();

isfun = (pp->flags&PATH_FPATH);

if(oldpp=pp)

{

pp = path_nextcomp(pp,name,0);

while(oldpp->flags&PATH_SKIP)

{

if(!(oldpp=oldpp->next))

{

shp->path_err = ENOENT;

return(0);

}

}

}

if(!isfun && !sh_isoption(SH_RESTRICTED))

{

if(*stakptr(PATH_OFFSET)=='/' && nv_search(stakptr(PATH_OFFSET),sh.bltin_tree,0))

return(oldpp);

#if SHOPT_DYNAMIC

if(oldpp->blib)

{

typedef int (*Fptr_t)(int, char*[], void*);

Fptr_t addr;

int n = staktell();

int libcmd;

char *cp;

stakputs("b_");

stakputs(name);

stakputc(0);

if(!oldpp->bltin_lib)

{

if(cp = strrchr(oldpp->blib,'/'))

cp++;

else

cp = oldpp->blib;

if((libcmd = !strcmp(cp,LIBCMD)) && (addr=(Fptr_t)dlllook((void*)0,stakptr(n))))

{

if((np = sh_addbuiltin(stakptr(PATH_OFFSET),addr,NiL)) && nv_isattr(np,NV_BLTINOPT))

return(oldpp);

}

#if (_AST_VERSION>=20040404)

if (oldpp->bltin_lib = dllplug(SH_ID, oldpp->blib, NiL, RTLD_LAZY, NiL, 0))

#else

if (oldpp->bltin_lib = dllfind(oldpp->blib, NiL, RTLD_LAZY, NiL, 0))

#endif

{

/*

if (libcmd && !dlllook(oldpp->bltin_lib, "b_pids"))

{

dlclose(oldpp->bltin_lib);

oldpp->bltin_lib = 0;

oldpp->blib = 0;

}

else

sh_addlib(oldpp->bltin_lib);

}

}

if((addr=(Fptr_t)dlllook(oldpp->bltin_lib,stakptr(n))) &&

(!(np = sh_addbuiltin(stakptr(PATH_OFFSET),NiL,NiL)) || np->nvalue.bfp!=addr) &&

(np = sh_addbuiltin(stakptr(PATH_OFFSET),addr,NiL)))

{

np->nvenv = oldpp->bltin_lib;

return(oldpp);

}

}

#endif /* SHOPT_DYNAMIC */

}

sh_stats(STAT_PATHS);

f = canexecute(stakptr(PATH_OFFSET),isfun);

if(isfun && f>=0)

{

nv_onattr(nv_open(name,sh_subfuntree(1),NV_NOARRAY|NV_IDENT|NV_NOSCOPE),NV_LTOU|NV_FUNCTION);

funload(shp,f,name);

close(f);

f = -1;

return(0);

}

else if(f>=0 && (oldpp->flags & PATH_STD_DIR))

{

int n = staktell();

stakputs("/bin/");

stakputs(name);

stakputc(0);

np = nv_search(stakptr(n),sh.bltin_tree,0);

stakseek(n);

if(np)

{

n = np->nvflag;

np = sh_addbuiltin(stakptr(PATH_OFFSET),np->nvalue.bfp,nv_context(np));

np->nvflag = n;

}

}

if(!pp || f>=0)

break;

if(errno!=ENOENT)

noexec = errno;

}

if(f<0)

{

shp->path_err = (noexec?noexec:ENOENT);

return(0);

}

stakputc(0);

return(oldpp);

}

#undef S_IXALL

#ifdef S_IXUSR

# define S_IXALL (S_IXUSR|S_IXGRP|S_IXOTH)

#else

# ifdef S_IEXEC

# define S_IXALL (S_IEXEC|(S_IEXEC>>3)|(S_IEXEC>>6))

# else

# define S_IXALL 0111

# endif /*S_EXEC */

#endif /* S_IXUSR */

static int canexecute(register char *path, int isfun)

{

struct stat statb;

register int fd=0;

path = path_relative(path);

if(isfun)

{

if((fd=open(path,O_RDONLY,0))<0 || fstat(fd,&statb)<0)

goto err;

}

else if(stat(path,&statb) < 0)

{

#if _WINIX

/* check for .exe or .bat suffix */

char *cp;

if(errno==ENOENT && (!(cp=strrchr(path,'.')) || strlen(cp)>4 || strchr(cp,'/')))

{

int offset = staktell()-1;

stakseek(offset);

stakputs(".bat");

path = stakptr(PATH_OFFSET);

if(stat(path,&statb) < 0)

{

if(errno!=ENOENT)

goto err;

memcpy(stakptr(offset),".sh",4);

if(stat(path,&statb) < 0)

goto err;

}

}

else

#endif /* _WINIX */

goto err;

}

errno = EPERM;

if(S_ISDIR(statb.st_mode))

errno = EISDIR;

else if((statb.st_mode&S_IXALL)==S_IXALL || sh_access(path,X_OK)>=0)

return(fd);

if(isfun && fd>=0)

sh_close(fd);

err:

return(-1);

}

char *path_relative(register const char* file)

{

register const char *pwd;

register const char *fp = file;

/* can't relpath when sh.pwd not set */

if(!(pwd=sh.pwd))

return((char*)fp);

while(*pwd==*fp)

{

if(*pwd++==0)

return((char*)e_dot);

fp++;

}

if(*pwd==0 && *fp == '/')

{

while(*++fp=='/');

if(*fp)

return((char*)fp);

return((char*)e_dot);

}

return((char*)file);

}

void path_exec(register const char *arg0,register char *argv[],struct argnod *local)

{

char **envp;

const char *opath;

Pathcomp_t *libpath, *pp=0;

Shell_t *shp = &sh;

int slash=0;

nv_setlist(local,NV_EXPORT|NV_IDENT|NV_ASSIGN,0);

envp = sh_envgen();

if(strchr(arg0,'/'))

{

slash=1;

/* name containing / not allowed for restricted shell */

if(sh_isoption(SH_RESTRICTED))

errormsg(SH_DICT,ERROR_exit(1),e_restricted,arg0);

}

else

pp=path_get(arg0);

shp->path_err= ENOENT;

sfsync(NIL(Sfio_t*));

timerdel(NIL(void*));

/* find first path that has a library component */

while(pp && (pp->flags&PATH_SKIP))

pp = pp->next;

if(pp || slash) do

{

sh_sigcheck();

if(libpath=pp)

{

pp = path_nextcomp(pp,arg0,0);

opath = stakfreeze(1)+PATH_OFFSET;

}

else

opath = arg0;

path_spawn(opath,argv,envp,libpath,0);

while(pp && (pp->flags&PATH_FPATH))

pp = path_nextcomp(pp,arg0,0);

}

while(pp);

/* force an exit */

((struct checkpt*)shp->jmplist)->mode = SH_JMPEXIT;

if((errno=shp->path_err)==ENOENT)

errormsg(SH_DICT,ERROR_exit(ERROR_NOENT),e_found,arg0);

else

errormsg(SH_DICT,ERROR_system(ERROR_NOEXEC),e_exec,arg0);

}

pid_t path_spawn(const char *opath,register char **argv, char **envp, Pathcomp_t *libpath, int spawn)

{

Shell_t *shp = sh_getinterp();

register char *path;

char **xp=0, *xval, *libenv = (libpath?libpath->lib:0);

Namval_t* np;

char *s, *v;

int r, n, pidsize;

pid_t pid= -1;

/* leave room for inserting _= pathname in environment */

envp--;

#if _lib_readlink

/* save original pathname */

stakseek(PATH_OFFSET);

pidsize = sfprintf(stkstd,"*%d*",spawn?getpid():getppid());

stakputs(opath);

opath = stakfreeze(1)+PATH_OFFSET+pidsize;

np=nv_search(argv[0],shp->track_tree,0);

while(libpath && !libpath->lib)

libpath=libpath->next;

if(libpath && (!np || nv_size(np)>0))

{

/* check for symlink and use symlink name */

char buff[PATH_MAX+1];

char save[PATH_MAX+1];

stakseek(PATH_OFFSET);

stakputs(opath);

path = stakptr(PATH_OFFSET);

while((n=readlink(path,buff,PATH_MAX))>0)

{

buff[n] = 0;

n = PATH_OFFSET;

r = 0;

if((v=strrchr(path,'/')) && *buff!='/')

{

if(buff[0]=='.' && buff[1]=='.' && (r = strlen(path) + 1) <= PATH_MAX)

memcpy(save, path, r);

else

r = 0;

n += (v+1-path);

}

stakseek(n);

stakputs(buff);

stakputc(0);

path = stakptr(PATH_OFFSET);

if(v && buff[0]=='.' && buff[1]=='.')

{

pathcanon(path, 0);

if(r && access(path,X_OK))

{

memcpy(path, save, r);

break;

}

}

if(libenv = path_lib(libpath,path))

break;

}

stakseek(0);

}

#endif

if(libenv && (v = strchr(libenv,'=')))

{

n = v - libenv;

*v = 0;

np = nv_open(libenv,shp->var_tree,0);

*v = '=';

s = nv_getval(np);

stakputs(libenv);

if(s)

{

stakputc(':');

stakputs(s);

}

v = stakfreeze(1);

r = 1;

xp = envp + 1;

while (s = *xp++)

{

if (strneq(s, v, n) && s[n] == '=')

{

xval = *--xp;

*xp = v;

r = 0;

break;

}

}

if (r)

{

*envp-- = v;

xp = 0;

}

}

if(!opath)

opath = stakptr(PATH_OFFSET);

envp[0] = (char*)opath-(PATH_OFFSET+pidsize);

envp[0][0] = '_';

envp[0][1] = '=';

sfsync(sfstderr);

sh_sigcheck();

path = path_relative(opath);

#ifdef SHELLMAGIC

if(*path!='/' && path!=opath)

{

/*

char *sp = (char*)malloc(strlen(path)+3);

sp[0] = '.';

sp[1] = '/';

strcpy(sp+2,path);

path = sp;

}

#endif /* SHELLMAGIC */

if(spawn && !sh_isoption(SH_PFSH))

pid = _spawnveg(opath, &argv[0],envp, spawn>>1);

else

pid = path_pfexecve(opath, &argv[0] ,envp,spawn);

if(xp)

*xp = xval;

#ifdef SHELLMAGIC

if(*path=='.' && path!=opath)

{

free(path);

path = path_relative(opath);

}

#endif /* SHELLMAGIC */

if(pid>0)

return(pid);

retry:

switch(sh.path_err = errno)

{

#ifdef apollo

/*

case EACCES:

#endif /* apollo */

case ENOEXEC:

#if SHOPT_SUID_EXEC

case EPERM:

/* some systems return EPERM if setuid bit is on */

#endif

errno = ENOEXEC;

if(spawn)

{

#ifdef _lib_fork

if(sh.subshell)

return(-1);

do

{

if((pid=fork())>0)

return(pid);

}

while(_sh_fork(pid,0,(int*)0) < 0);

((struct checkpt*)shp->jmplist)->mode = SH_JMPEXIT;

#else

return(-1);

#endif

}

exscript(shp,path,argv,envp);

#ifndef apollo

case EACCES:

{

struct stat statb;

if(stat(path,&statb)>=0)

{

if(S_ISDIR(statb.st_mode))

errno = EISDIR;

#ifdef S_ISSOCK

if(S_ISSOCK(statb.st_mode))

exscript(shp,path,argv,envp);

#endif

}

}

/* FALL THROUGH */

#endif /* !apollo */

#ifdef ENAMETOOLONG

case ENAMETOOLONG:

#endif /* ENAMETOOLONG */

#if !SHOPT_SUID_EXEC

case EPERM:

#endif

shp->path_err = errno;

return(-1);

case ENOTDIR:

case ENOENT:

case EINTR:

#ifdef EMLINK

case EMLINK:

#endif /* EMLINK */

return(-1);

case E2BIG:

if(sh.xargmin)

{

pid = path_xargs(opath, &argv[0] ,envp,spawn);

if(pid<0)

goto retry;

return(pid);

}

default:

errormsg(SH_DICT,ERROR_system(ERROR_NOEXEC),e_exec,path);

}

return 0;

}

static void exscript(Shell_t *shp,register char *path,register char *argv[],char **envp)

{

register Sfio_t *sp;

path = path_relative(path);

shp->comdiv=0;

shp->bckpid = 0;

shp->st.ioset=0;

/* clean up any cooperating processes */

if(shp->cpipe[0]>0)

sh_pclose(shp->cpipe);

if(shp->cpid && shp->outpipe)

sh_close(*shp->outpipe);

shp->cpid = 0;

if(sp=fcfile())

while(sfstack(sp,SF_POPSTACK));

job_clear();

if(shp->infd>0 && (shp->fdstatus[shp->infd]&IOCLEX))

sh_close(shp->infd);

sh_setstate(sh_state(SH_FORKED));

sfsync(sfstderr);

#if SHOPT_SUID_EXEC && !SHOPT_PFSH

/* check if file cannot open for read or script is setuid/setgid */

{

static char name[] = "/tmp/euidXXXXXXXXXX";

register int n;

register uid_t euserid;

char *savet=0;

struct stat statb;

if((n=sh_open(path,O_RDONLY,0)) >= 0)

{

/* move <n> if n=0,1,2 */

n = sh_iomovefd(n);

if(fstat(n,&statb)>=0 && !(statb.st_mode&(S_ISUID|S_ISGID)))

goto openok;

sh_close(n);

}

if((euserid=geteuid()) != shp->userid)

{

strncpy(name+9,fmtbase((long)getpid(),10,0),sizeof(name)-10);

/* create a suid open file with owner equal effective uid */

if((n=open(name,O_CREAT|O_TRUNC|O_WRONLY,S_ISUID|S_IXUSR)) < 0)

goto fail;

unlink(name);

/* make sure that file has right owner */

if(fstat(n,&statb)<0 || statb.st_uid != euserid)

goto fail;

if(n!=10)

{

sh_close(10);

fcntl(n, F_DUPFD, 10);

sh_close(n);

n=10;

}

}

savet = *--argv;

*argv = path;

path_pfexecve(e_suidexec,argv,envp,0);

fail:

/*

if((n=open(path,O_RDONLY,0)) < 0)

errormsg(SH_DICT,ERROR_system(ERROR_NOEXEC),e_exec,path);

if(savet)

*argv++ = savet;

openok:

shp->infd = n;

}

#else

if((shp->infd = sh_open(path,O_RDONLY,0)) < 0)

errormsg(SH_DICT,ERROR_system(ERROR_NOEXEC),e_exec,path);

#endif

shp->infd = sh_iomovefd(shp->infd);

#if SHOPT_ACCT

sh_accbegin(path) ; /* reset accounting */

#endif /* SHOPT_ACCT */

shp->arglist = sh_argcreate(argv);

shp->lastarg = strdup(path);

/* save name of calling command */

shp->readscript = error_info.id;

/* close history file if name has changed */

if(shp->hist_ptr && (path=nv_getval(HISTFILE)) && strcmp(path,shp->hist_ptr->histname))

{

hist_close(shp->hist_ptr);

(HISTCUR)->nvalue.lp = 0;

}

sh_offstate(SH_FORKED);

if(shp->sigflag[SIGCHLD]==SH_SIGOFF)

shp->sigflag[SIGCHLD] = SH_SIGFAULT;

siglongjmp(*shp->jmplist,SH_JMPSCRIPT);

}

#if SHOPT_ACCT

# include <sys/acct.h>

# include "FEATURE/time"

static struct acct sabuf;

static struct tms buffer;

static clock_t before;

static char *SHACCT; /* set to value of SHACCT environment variable */

static shaccton; /* non-zero causes accounting record to be written */

static int compress(time_t);

/*

void sh_accinit(void)

{

SHACCT = getenv("SHACCT");

}

/*

void sh_accsusp(void)

{

shaccton=0;

#ifdef AEXPAND

sabuf.ac_flag |= AEXPND;

#endif /* AEXPAND */

}

/*

void sh_accbegin(const char *cmdname)

{

if(SHACCT)

{

sabuf.ac_btime = time(NIL(time_t *));

before = times(&buffer);

sabuf.ac_uid = getuid();

sabuf.ac_gid = getgid();

strncpy(sabuf.ac_comm, (char*)path_basename(cmdname),

sizeof(sabuf.ac_comm));

shaccton = 1;

}

}

/*

void sh_accend(void)

{

int fd;

clock_t after;

if(shaccton)

{

after = times(&buffer);

sabuf.ac_utime = compress(buffer.tms_utime + buffer.tms_cutime);

sabuf.ac_stime = compress(buffer.tms_stime + buffer.tms_cstime);

sabuf.ac_etime = compress( (time_t)(after-before));

fd = open( SHACCT , O_WRONLY | O_APPEND | O_CREAT,RW_ALL);

write(fd, (const char*)&sabuf, sizeof( sabuf ));

close( fd);

}

}

/*

static int compress(register time_t t)

{

register int exp = 0, rund = 0;

while (t >= 8192)

{

exp++;

rund = t&04;

t >>= 3;

}

if (rund)

{

t++;

if (t >= 8192)

{

t >>= 3;

exp++;

}

}

return((exp<<13) + t);

}

#endif /* SHOPT_ACCT */

static Pathcomp_t *path_addcomp(Pathcomp_t *first, Pathcomp_t *old,const char *name, int flag)

{

register Pathcomp_t *pp, *oldpp;

int len, offset=staktell();

if(!(flag&PATH_BFPATH))

{

register const char *cp = name;

while(*cp && *cp!=':')

stakputc(*cp++);

len = staktell()-offset;

stakputc(0);

stakseek(offset);

name = (const char*)stakptr(offset);

}

else

len = strlen(name);

for(pp=first; pp; pp=pp->next)

{

if(memcmp(name,pp->name,len)==0 && (pp->name[len]==':' || pp->name[len]==0))

{

pp->flags |= flag;

return(first);

}

}

for(pp=first, oldpp=0; pp; oldpp=pp, pp=pp->next);

pp = newof((Pathcomp_t*)0,Pathcomp_t,1,len+1);

pp->refcount = 1;

memcpy((char*)(pp+1),name,len+1);

pp->name = (char*)(pp+1);

pp->len = len;

if(oldpp)

oldpp->next = pp;

else

first = pp;

pp->flags = flag;

if(strcmp(name,SH_CMDLIB_DIR)==0)

{

pp->dev = 1;

pp->flags |= PATH_BUILTIN_LIB;

pp->blib = malloc(4);

strcpy(pp->blib,LIBCMD);

return(first);

}

if(old && ((flag&(PATH_PATH|PATH_SKIP))==PATH_PATH))

path_chkpaths(first,old,pp,offset);

return(first);

}

static int path_chkpaths(Pathcomp_t *first, Pathcomp_t* old,Pathcomp_t *pp, int offset)

{

struct stat statb;

int k,m,n,fd;

char *sp,*cp,*ep;

stakseek(offset+pp->len);

if(pp->len==1 && *stakptr(offset)=='/')

stakseek(offset);

stakputs("/.paths");

if((fd=open(stakptr(offset),O_RDONLY))>=0)

{

fstat(fd,&statb);

n = statb.st_size;

stakseek(offset+pp->len+n+2);

sp = stakptr(offset+pp->len);

*sp++ = '/';

n=read(fd,cp=sp,n);

sp[n] = 0;

close(fd);

for(ep=0; n--; cp++)

{

if(*cp=='=')

{

ep = cp+1;

continue;

}

else if(*cp!='\r' && *cp!='\n')

continue;

if(*sp=='#' || sp==cp)

{

sp = cp+1;

continue;

}

*cp = 0;

m = ep ? (ep-sp) : 0;

if(m==0 || m==6 && memcmp((void*)sp,(void*)"FPATH=",6)==0)

{

if(first)

{

char *ptr = stakptr(offset+pp->len+1);

if(ep)

strcpy(ptr,ep);

path_addcomp(first,old,stakptr(offset),PATH_FPATH|PATH_BFPATH);

}

}

else if(m==12 && memcmp((void*)sp,(void*)"BUILTIN_LIB=",12)==0)

{

if(!(pp->flags & PATH_BUILTIN_LIB) || strchr(ep,'-'))

{

if ((pp->flags & (PATH_BUILTIN_LIB|PATH_STD_DIR)) == PATH_BUILTIN_LIB)

{

free(pp->blib);

pp->blib = 0;

}

pp->flags |= PATH_BUILTIN_LIB;

if (*ep == '.' && !*(ep + 1))

pp->flags |= PATH_STD_DIR;

else

{

k = strlen(ep)+1;

if (*ep != '/')

k += pp->len+1;

pp->blib = sp = malloc(k);

if (*ep != '/')

{

strcpy(pp->blib,pp->name);

sp += pp->len;

*sp++ = '/';

}

strcpy(sp,ep);

}

}

}

else if(m)

{

pp->lib = (char*)malloc(cp-sp+pp->len+2);

memcpy((void*)pp->lib,(void*)sp,m);

memcpy((void*)&pp->lib[m],stakptr(offset),pp->len);

pp->lib[k=m+pp->len] = '/';

strcpy((void*)&pp->lib[k+1],ep);

pathcanon(&pp->lib[m],0);

if(!first)

{

stakseek(0);

stakputs(pp->lib);

free((void*)pp->lib);

return(1);

}

}

sp = cp+1;

ep = 0;

}

}

return(0);

}

Pathcomp_t *path_addpath(Pathcomp_t *first, register const char *path,int type)

{

register const char *cp;

Pathcomp_t *old=0;

int offset = staktell();

char *savptr;

if(!path && type!=PATH_PATH)

return(first);

if(type!=PATH_FPATH)

{

old = first;

first = 0;

}

if(offset)

savptr = stakfreeze(0);

if(path) while(*(cp=path))

{

if(*cp==':')

{

if(type!=PATH_FPATH)

first = path_addcomp(first,old,".",type);

while(*++path == ':');

}

else

{

int c;

while(*path && *path!=':')

path++;

c = *path++;

first = path_addcomp(first,old,cp,type);

if(c==0)

break;

if(*path==0)

path--;

}

}

if(old)

{

if(!first && !path)

{

Pathcomp_t *pp = (Pathcomp_t*)old->shp->defpathlist;

if(!pp)

pp = defpath_init(old->shp);

first = path_dup(pp);

}

if(cp=(FPATHNOD)->nvalue.cp)

first = (void*)path_addpath((Pathcomp_t*)first,cp,PATH_FPATH);

path_delete(old);

}

if(offset)

stakset(savptr,offset);

else

stakseek(0);

return(first);

}

Pathcomp_t *path_dup(Pathcomp_t *first)

{

register Pathcomp_t *pp=first;

while(pp)

{

pp->refcount++;

pp = pp->next;

}

return(first);

}

void path_newdir(Pathcomp_t *first)

{

register Pathcomp_t *pp=first, *next, *pq;

struct stat statb;

for(pp=first; pp; pp=pp->next)

{

pp->flags &= ~PATH_SKIP;

if(*pp->name=='/')

continue;

/* delete .paths component */

if((next=pp->next) && (next->flags&PATH_BFPATH))

{

pp->next = next->next;

if(--next->refcount<=0)

free((void*)next);

}

if(stat(pp->name,&statb)<0 || !S_ISDIR(statb.st_mode))

{

pp->dev = 0;

pp->ino = 0;

continue;

}

pp->dev = statb.st_dev;

pp->ino = statb.st_ino;

pp->mtime = statb.st_mtime;

for(pq=first;pq!=pp;pq=pq->next)

{

if(pp->ino==pq->ino && pp->dev==pq->dev)

pp->flags |= PATH_SKIP;

}

for(pq=pp;pq=pq->next;)

{

if(pp->ino==pq->ino && pp->dev==pq->dev)

pq->flags |= PATH_SKIP;

}

if((pp->flags&(PATH_PATH|PATH_SKIP))==PATH_PATH)

{

/* try to insert .paths component */

int offset = staktell();

stakputs(pp->name);

stakseek(offset);

next = pp->next;

pp->next = 0;

path_chkpaths(first,(Pathcomp_t*)0,pp,offset);

if(pp->next)

pp = pp->next;

pp->next = next;

}

}

#if 0

path_dump(first);

#endif

}

Pathcomp_t *path_unsetfpath(Pathcomp_t *first)

{

register Pathcomp_t *pp=first, *old=0;

Shell_t *shp = &sh;

if(shp->fpathdict)

{

struct Ufunction *rp, *rpnext;

for(rp=(struct Ufunction*)dtfirst(shp->fpathdict);rp;rp=rpnext)

{

rpnext = (struct Ufunction*)dtnext(shp->fpathdict,rp);

if(rp->fdict)

nv_delete(rp->np,rp->fdict,NV_NOFREE);

rp->fdict = 0;

}

}

while(pp)

{

if((pp->flags&PATH_FPATH) && !(pp->flags&PATH_BFPATH))

{

if(pp->flags&PATH_PATH)

pp->flags &= ~PATH_FPATH;

else

{

Pathcomp_t *ppsave=pp;

if(old)

old->next = pp->next;

else

first = pp->next;

pp = pp->next;

if(--ppsave->refcount<=0)

{

if(ppsave->lib)

free((void*)ppsave->lib);

free((void*)ppsave);

}

continue;

}

}

old = pp;

pp = pp->next;

}

return(first);

}

Pathcomp_t *path_dirfind(Pathcomp_t *first,const char *name,int c)

{

register Pathcomp_t *pp=first;

while(pp)

{

if(memcmp(name,pp->name,pp->len)==0 && name[pp->len]==c)

return(pp);

pp = pp->next;

}

return(0);

}

static char *talias_get(Namval_t *np, Namfun_t *nvp)

{

Pathcomp_t *pp = (Pathcomp_t*)np->nvalue.cp;

char *ptr;

if(!pp)

return(NULL);

path_nextcomp(pp,nv_name(np),pp);

ptr = stakfreeze(0);

return(ptr+PATH_OFFSET);

}

static void talias_put(register Namval_t* np,const char *val,int flags,Namfun_t *fp)

{

if(!val && np->nvalue.cp)

{

Pathcomp_t *pp = (Pathcomp_t*)np->nvalue.cp;

if(--pp->refcount<=0)

free((void*)pp);

}

nv_putv(np,val,flags,fp);

}

static const Namdisc_t talias_disc = { 0, talias_put, talias_get };

static Namfun_t talias_init = { &talias_disc, 1 };

void path_alias(register Namval_t *np,register Pathcomp_t *pp)

{

if(pp)

{

struct stat statb;

char *sp;

nv_offattr(np,NV_NOPRINT);

nv_stack(np,&talias_init);

np->nvalue.cp = (char*)pp;

pp->refcount++;

nv_setattr(np,NV_TAGGED|NV_NOFREE);

path_nextcomp(pp,nv_name(np),pp);

sp = stakptr(PATH_OFFSET);

if(sp && lstat(sp,&statb)>=0 && S_ISLNK(statb.st_mode))

nv_setsize(np,statb.st_size+1);

else

nv_setsize(np,0);

}

else

nv_unset(np);

}