da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "defs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <fcin.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "variables.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "path.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "name.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "io.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "shnodes.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "jobs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "test.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "builtins.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "FEATURE/time"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "FEATURE/externs"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "FEATURE/locale"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "streval.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_std_malloc

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# include <vmalloc.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if _lib_vfork

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# include <ast_vfork.h>

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# define vfork() fork()

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SH_NTFORK SH_TIMING

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _lib_nice

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin extern int nice(int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* _lib_nice */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_lib_spawnveg

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define spawnveg(a,b,c,d) spawnve(a,b,c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* !_lib_spawnveg */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_SPAWN

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin static pid_t sh_ntfork(Shell_t*,const Shnode_t*,char*[],int*,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_SPAWN */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void sh_funct(Shell_t *,Namval_t*, int, char*[], struct argnod*,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int trim_eq(const char*, const char*);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void coproc_init(Shell_t*, int pipes[]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void *timeout;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char pipejob;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct funenv

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *node;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct argnod *env;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void l_time(Sfio_t *outfile,register clock_t t,int p)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int min, sec, frac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int hr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(p)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin frac = t%sh.lim.clk_tck;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin frac = (frac*100)/sh.lim.clk_tck;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t /= sh.lim.clk_tck;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sec = t%60;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t /= 60;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin min = t%60;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(hr=t/60)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(outfile,"%dh",hr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(p)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(outfile,"%dm%d%c%0*ds",min,sec,GETDECIMAL(0),p,frac);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(outfile,"%dm%ds",min,sec);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int p_time(Shell_t *shp, Sfio_t *out, const char *format, clock_t *tm)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int c,p,l,n,offset = staktell();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin const char *first;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin double d;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Stk_t *stkp = shp->stk;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(first=format ; c= *format; format++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c!='%')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp, first, format-first);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = l = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = 3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c= *++format) == '%')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c>='0' && c <='9')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = (c>'3')?3:(c-'0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = *++format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='P')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(d=tm[0])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = 100.*(((double)(tm[1]+tm[2]))/d);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto skip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='l')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin l = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = *++format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='U')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='S')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c!='R')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(0),e_badtformat,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = (double)tm[n]/sh.lim.clk_tck;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin skip:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(l)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin l_time(stkp, tm[n], p);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfprintf(stkp,"%.*f",p, d);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = format+1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(format>first)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first, format-first);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,'\n');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = stktell(stkp)-offset;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(out,stkptr(stkp,offset),n);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_OPTIMIZE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int p_arg(struct argnod*,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int p_switch(struct regnod*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int p_comarg(register struct comnod *com)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np=com->comnamp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n = p_arg(com->comset,ARG_ASSIGN);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(com->comarg && (com->comtyp&COMSCAN))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+= p_arg(com->comarg,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(com->comstate && np)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* call builtin to cleanup state */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Shbltin_t *bp = &sh.bltindata;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin void *save_ptr = bp->ptr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin void *save_data = bp->data;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->bnode = np;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->vnode = com->comnamq;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->ptr = nv_context(np);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->data = com->comstate;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->flags = SH_END_OPTIM;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (*funptr(np))(0,(char**)0, bp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->ptr = save_ptr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->data = save_data;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com->comstate = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(com->comarg && !np)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinextern void sh_optclear(Shell_t*, void*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int sh_tclear(register Shnode_t *t)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!t)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(t->tre.tretyp&COMMSK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TTIME:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TPAR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sh_tclear(t->par.partre));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TCOM:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(p_comarg((struct comnod*)t));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TSETIO:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFORK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sh_tclear(t->fork.forktre));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TIF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=sh_tclear(t->if_.iftre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+=sh_tclear(t->if_.thtre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+=sh_tclear(t->if_.eltre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TWH:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(t->wh.whinc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=sh_tclear((Shnode_t*)(t->wh.whinc));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+=sh_tclear(t->wh.whtre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+=sh_tclear(t->wh.dotre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TLST:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TAND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TORF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFIL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=sh_tclear(t->lst.lstlef);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n+sh_tclear(t->lst.lstrit));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TARITH:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(p_arg(t->ar.arexpr,ARG_ARITH));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFOR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=sh_tclear(t->for_.fortre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n+sh_tclear((Shnode_t*)t->for_.forlst));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TSW:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=p_arg(t->sw.swarg,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n+p_switch(t->sw.swlst));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFUN:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=sh_tclear(t->funct.functtre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n+sh_tclear((Shnode_t*)t->funct.functargs));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TTST:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((t->tre.tretyp&TPAREN)==TPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sh_tclear(t->lst.lstlef));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=p_arg(&(t->lst.lstlef->arg),0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(t->tre.tretyp&TBINARY)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+=p_arg(&(t->lst.lstrit->arg),0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int p_arg(register struct argnod *arg,int flag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(arg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(strlen(arg->argval) || (arg->argflag==ARG_RAW))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg->argchn.ap = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flag==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_tclear((Shnode_t*)arg->argchn.ap);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_tclear(((struct fornod*)arg->argchn.ap)->fortre);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg = arg->argnxt.ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int p_switch(register struct regnod *reg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(reg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+=p_arg(reg->regptr,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n+=sh_tclear(reg->regcom);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg = reg->regnxt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define OPTIMIZE_FLAG (ARG_OPTIMIZE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define OPTIMIZE (flags&OPTIMIZE_FLAG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define OPTIMIZE_FLAG (0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define OPTIMIZE (0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define sh_tclear(x)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_OPTIMIZE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void out_pattern(Sfio_t *iop, register const char *cp, int n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(c= *cp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(iop,"$'\\n",'\'');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\\':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(c = *++cp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ' ':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '<': case '>': case ';':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '$': case '`': case '\t':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(iop,'\\');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(iop,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(*cp++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void out_string(Sfio_t *iop, register const char *cp, int c, int quoted)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(quoted)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int n = stktell(stkstd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = sh_fmtq(cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iop==stkstd && cp==stkptr(stkstd,n))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *stkptr(stkstd,stktell(stkstd)-1) = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(iop,cp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct Level

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namfun_t hdr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short maxlevel;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void put_level(Namval_t* np,const char *val,int flags,Namfun_t *fp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shscope_t *sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct Level *lp = (struct Level*)fp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int16_t level, oldlevel = (int16_t)nv_getnum(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_putv(np,val,flags,fp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!val)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin level = nv_getnum(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(level<0 || level > lp->maxlevel)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putv(np, (char*)&oldlevel, NV_INT16, fp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* perhaps this should be an error */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(level==oldlevel)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp = sh_getscope(level,SEEK_SET))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_setscope(sp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin error_info.id = sp->cmdname;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic const Namdisc_t level_disc = { sizeof(struct Level), put_level };

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct Level *init_level(int level)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct Level *lp = newof(NiL,struct Level,1,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->maxlevel = level;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin _nv_unset(SH_LEVELNOD,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_onattr(SH_LEVELNOD,NV_INT16|NV_NOFREE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putval(SH_LEVELNOD,(char*)&lp->maxlevel,NV_INT16);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->hdr.disc = &level_disc;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_disc(SH_LEVELNOD,&lp->hdr,NV_FIRST);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint sh_debug(Shell_t *shp, const char *trap, const char *name, const char *subscript, char *const argv[], int flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Stk_t *stkp=shp->stk;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct sh_scoped savst;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np = SH_COMMANDNOD;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *sav = stkptr(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int n=4, offset=stktell(stkp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char *cp = "+=( ";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *iop = stkstd;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin short level;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->indebug)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->indebug = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(name)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(iop,name,-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(subscript)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(iop,'[');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin out_string(iop,subscript,']',1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flags&ARG_APPEND))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp+=1, n-=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flags&ARG_ASSIGN))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n -= 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(iop,cp,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flags&ARG_RAW))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin out_string(iop, *argv++,' ', 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = (flags&ARG_ARITH);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(cp = *argv++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((flags&ARG_EXP) && argv[1]==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin out_pattern(iop, cp,' ');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin out_string(iop, cp,' ',n?0: (flags&(ARG_RAW|ARG_NOGLOB))||*argv);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&ARG_ASSIGN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(iop,')');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(iop==stkstd)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin *stkptr(stkp,stktell(stkp)-1) = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np->nvalue.cp = stkfreeze(stkp,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* now setup .sh.level variable */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->st.lineno = error_info.line;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin level = shp->fn_depth+shp->dot_depth;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!SH_LEVELNOD->nvfun || !SH_LEVELNOD->nvfun->disc || nv_isattr(SH_LEVELNOD,NV_INT16|NV_NOFREE)!=(NV_INT16|NV_NOFREE))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin init_level(level);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putval(SH_LEVELNOD,(char*)&level,NV_INT16);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin savst = shp->st;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->st.trap[SH_DEBUGTRAP] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = sh_trap(trap,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np->nvalue.cp = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->indebug = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->st.cmdname)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin error_info.id = shp->st.cmdname;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putval(SH_PATHNAMENOD,shp->st.filename,NV_NOFREE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putval(SH_FUNNAMENOD,shp->st.funname,NV_NOFREE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->st = savst;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(sav != stkptr(stkp,0))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkset(stkp,sav,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_eval(register Sfio_t *iop, int mode)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shnode_t *t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t *shp = sh_getinterp();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct slnod *saveslp = shp->st.staklist;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int jmpval;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct checkpt *pp = (struct checkpt*)shp->jmplist;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct checkpt buff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static Sfio_t *io_save;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin volatile int traceon=0, lineno=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_save = iop; /* preserve correct value across longjmp */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#define SH_TOPFUN 0x8000 /* this is a temporary tksh hack */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (mode & SH_TOPFUN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode ^= SH_TOPFUN;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fn_reset = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_pushcontext(&buff,SH_JMPEVAL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin buff.olist = pp->olist;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin jmpval = sigsetjmp(buff.buff,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mode&SH_READEVAL)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lineno = shp->inlineno;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(traceon=sh_isoption(SH_XTRACE))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_offoption(SH_XTRACE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = (Shnode_t*)sh_parse(shp,iop,(mode&SH_READEVAL)?0:SH_NL);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mode&SH_READEVAL)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode &= SH_READEVAL;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfclose(iop);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_save = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sh_isoption(SH_VERBOSE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_VERBOSE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode && shp->hist_ptr)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hist_flush(shp->hist_ptr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = sh_state(SH_INTERACTIVE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_exec(t,sh_isstate(SH_ERREXIT)|mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_popcontext(&buff);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(traceon)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_onoption(SH_XTRACE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lineno)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->inlineno = lineno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(io_save)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(io_save);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_freeup(shp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->st.staklist = saveslp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fn_reset = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval>SH_JMPEVAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin siglongjmp(*shp->jmplist,jmpval);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(shp->exitval);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_FASTPIPE

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int pipe_exec(Shell_t* shp,int pv[], Shnode_t *t, int errorflg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct checkpt buff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shnode_t *tchild = t->fork.forktre;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int jmpval;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin volatile Sfio_t *iop;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin volatile int r;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((tchild->tre.tretyp&COMMSK)!=TCOM || !(np=(Namval_t*)(tchild->com.comnamp)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_pipe(pv);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sh_exec(t,errorflg));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pv[0] = shp->lim.open_max;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[pv[0]] = IOREAD|IODUP|IOSEEK;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pv[1] = shp->lim.open_max+1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[pv[1]] = IOWRITE|IOSEEK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop = sftmp(IOBSIZE+1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[shp->lim.open_max+1] = iop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_pushcontext(&buff,SH_JMPIO);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(t->tre.tretyp&FPIN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iosave(shp,0,shp->topfd,(char*)0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iosave(shp,1,shp->topfd,(char*)0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin jmpval = sigsetjmp(buff.buff,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(t->tre.tretyp&FPIN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iorenumber(shp,shp->inpipe[0],0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iorenumber(shp,shp->lim.open_max+1,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r = sh_exec(tchild,errorflg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sffileno(sfstdout)>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pv[0] = sfsetfd(sfstdout,10);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop = sfswap(sfstdout,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_popcontext(&buff);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[pv[0]] = iop;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[pv[0]] = IOREAD|IODUP|IOSEEK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(iop,SF_WRITE,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfseek(iop,0L,SEEK_SET);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iorestore(shp,buff.topfd,jmpval);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval>SH_JMPIO)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin siglongjmp(*shp->jmplist,jmpval);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(r);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_FASTPIPE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int checkopt(char *argv[], int c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(cp = *++argv)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*cp=='+')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*cp!='-' || cp[1]=='-')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(strchr(++cp,c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(*cp=='h' && cp[1]==0 && *++argv==0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void free_list(struct openlist *olist)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct openlist *item,*next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(item=olist;item;item=next)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin next = item->next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free((void*)item);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int set_instance(Namval_t *nq, Namval_t *node, struct Namref *nr)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *cp = nv_name(nq);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Namarr_t *ap;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memset(nr,0,sizeof(*nr));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nr->np = nq;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nr->root = sh.var_tree;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nr->table = sh.last_table;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(sh.var_tree!=sh.var_base && !nv_open(cp,nr->root,NV_VARNAME|NV_NOREF|NV_NOSCOPE|NV_NOADD|NV_NOFAIL))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nr->root = sh.var_base;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putval(SH_NAMENOD, cp, NV_NOFREE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memcpy(node,L_ARGNOD,sizeof(*node));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin L_ARGNOD->nvalue.nrp = nr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin L_ARGNOD->nvflag = NV_REF|NV_NOFREE;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin L_ARGNOD->nvfun = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin L_ARGNOD->nvenv = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((ap=nv_arrayptr(nq)) && (cp = nv_getsub(nq)) && (cp = strdup(cp)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putval(SH_SUBSCRNOD,nr->sub=cp,NV_NOFREE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(ap->nelem&ARRAY_SCAN);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void unset_instance(Namval_t *nq, Namval_t *node, struct Namref *nr,long mode)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin L_ARGNOD->nvalue.nrp = node->nvalue.nrp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin L_ARGNOD->nvflag = node->nvflag;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin L_ARGNOD->nvfun = node->nvfun;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(nr->sub)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_putsub(nq, nr->sub, mode);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin free((void*)nr->sub);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_unset(SH_NAMENOD);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_unset(SH_SUBSCRNOD);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_exec(register const Shnode_t *t, int flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Shell_t *shp = &sh;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Stk_t *stkp = shp->stk;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_sigcheck();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(t && !shp->st.execbrk && !sh_isoption(SH_NOEXEC))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int type = flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *com0 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int errorflg = (type&sh_state(SH_ERREXIT))|OPTIMIZE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int execflg = (type&sh_state(SH_NOFORK));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int mainloop = (type&sh_state(SH_INTERACTIVE));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if SHOPT_AMP || SHOPT_SPAWN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ntflag = (type&sh_state(SH_NTFORK));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int topfd = shp->topfd;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *sav=stkptr(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *cp=0, **com=0, *comn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int argn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int skipexitset = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int was_interactive = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int was_errexit = sh_isstate(SH_ERREXIT);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int was_monitor = sh_isstate(SH_MONITOR);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int echeck = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&sh_state(SH_INTERACTIVE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pipejob = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin job.curpgid = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~sh_state(SH_INTERACTIVE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_ERREXIT);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_DEFPATH);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(was_errexit&flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onstate(SH_ERREXIT);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(was_monitor&flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onstate(SH_MONITOR);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = t->tre.tretyp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!shp->intrap)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->oldexit=shp->exitval;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->exitval=0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->lastsig = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->lastpath = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(type&COMMSK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TCOM:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct argnod *argp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *trap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np, *nq, *last_table;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct ionod *io;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int command=0, flgs=NV_ASSIGN;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->bltindata.invariant = type>>(COMBITS+2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin type &= (COMMSK|COMSCAN);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_stats(STAT_SCMDS);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin error_info.line = t->com.comline-shp->st.firstline;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com = sh_argbuild(shp,&argn,&(t->com),OPTIMIZE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin echeck = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(t->tre.tretyp&COMSCAN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argp = t->com.comarg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(argp && *com && !(argp->argflag&ARG_RAW))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_sigcheck();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = (Namval_t*)(t->com.comnamp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nq = (Namval_t*)(t->com.comnamq);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com0 = com[0];

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->xargexit = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(np==SYSCOMMAND)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register int n = b_command(0,com,&shp->bltindata);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin command += n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(com0= *(com+=n)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = nv_bfsearch(com0, shp->bltin_tree, &nq, &cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->xargexit)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->xargmin -= command;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->xargmax -= command;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->xargmin = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argn -= command;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!command && np && is_abuiltin(np))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = dtsearch(shp->fun_tree,np);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(com0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!np && !strchr(com0,'/'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Dt_t *root = command?shp->bltin_tree:shp->fun_tree;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = nv_bfsearch(com0, root, &nq, &cp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if SHOPT_NAMESPACE

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->namespace && !nq && !cp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int offset = stktell(stkp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputr(stkp,nv_name(shp->namespace),-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,'.');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputr(stkp,com0,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,offset);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = nv_bfsearch(stkptr(stkp,offset), root, &nq, &cp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_NAMESPACE */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin comn = com[argn-1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io = t->tre.treio;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->envlist = argp = t->com.comset)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(argn==0 || (np && nv_isattr(np,BLT_SPC)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(argn)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(checkopt(com,'A'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flgs |= NV_ARRAY;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(checkopt(com,'a'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flgs |= NV_IARRAY;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_BASH

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(np==SYSLOCAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!nv_getval(SH_FUNNAMENOD))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),"%s: can only be used in a function",com0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!shp->st.var_local)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_scope(shp,(struct argnod*)0,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->st.var_local = shp->var_tree;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(np==SYSTYPESET || np==SYSLOCAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(np==SYSTYPESET || (np && np->nvalue.bfp==SYSTYPESET->nvalue.bfp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(np!=SYSTYPESET)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->typeinit = np;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(checkopt(com,'C'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flgs |= NV_COMVAR;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(checkopt(com,'S'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flgs |= NV_STATIC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(checkopt(com,'n'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flgs |= NV_NOREF;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_TYPEDEF

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(argn>=3 && checkopt(com,'T'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->prefix = NV_CLASS;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flgs |= NV_TYPE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_TYPEDEF */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((shp->fn_depth && !shp->prefix) || np==SYSLOCAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flgs |= NV_NOSCOPE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(np==SYSEXPORT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flgs |= NV_EXPORT;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(flgs&(NV_EXPORT|NV_NOREF))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flgs |= NV_IDENT;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flgs |= NV_VARNAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if 0

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(OPTIMIZE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flgs |= NV_TAGGED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_setlist(argp,flgs);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(np==shp->typeinit)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->typeinit = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->envlist = argp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argp = NULL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin last_table = shp->last_table;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->last_table = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((io||argn))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Shbltin_t *bp=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char *argv[1];

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int tflags = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(np && nv_isattr(np,BLT_DCL))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tflags |= 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(argn==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* fake 'true' built-in */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = SYSTRUE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *argv = nv_name(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com = argv;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* set +x doesn't echo */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if((np!=SYSSET) && sh_isoption(SH_XTRACE))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_trace(com-command,tflags);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if((t->tre.tretyp&FSHOWME) && sh_isoption(SH_SHOWME))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ison = sh_isoption(SH_XTRACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!ison)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onoption(SH_XTRACE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_trace(com-command,tflags);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(io)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_redirect(shp,io,SH_SHOWME);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!ison)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offoption(SH_XTRACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(trap=shp->st.trap[SH_DEBUGTRAP])

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int n = sh_debug(shp,trap,(char*)0,(char*)0, com, ARG_RAW);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(n==255 && shp->fn_depth+shp->dot_depth)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = SYSRETURN;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin argn = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com[0] = np->nvname;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com[1] = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin io = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin argp = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(n==2)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(io)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfsync(shp->outpool);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->lastpath = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!np && !strchr(com0,'/'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(path_search(com0,NIL(Pathcomp_t**),1))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin error_info.line = t->com.comline-shp->st.firstline;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((np=nv_search(com0,shp->fun_tree,0)) && !np->nvalue.ip)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Namval_t *mp=nv_search(com0,shp->bltin_tree,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = mp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((np=nv_search(com0,shp->track_tree,0)) && !nv_isattr(np,NV_NOALIAS) && np->nvalue.cp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np=nv_search(nv_getval(np),shp->bltin_tree,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for builtins */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(np && is_abuiltin(np))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin volatile int scope=0, share=0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin volatile void *save_ptr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin volatile void *save_data;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int jmpval, save_prompt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct checkpt buff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long was_vi=0, was_emacs=0, was_gmacs=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct stat statb;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp = &shp->bltindata;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin save_ptr = bp->ptr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin save_data = bp->data;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memset(&statb, 0, sizeof(struct stat));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(strchr(nv_name(np),'/'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin was_vi = sh_isoption(SH_VI);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin was_emacs = sh_isoption(SH_EMACS);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin was_gmacs = sh_isoption(SH_GMACS);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offoption(SH_VI);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offoption(SH_EMACS);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offoption(SH_GMACS);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_pushcontext(&buff,SH_JMPCMD);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin jmpval = sigsetjmp(buff.buff,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(nv_isattr(np,BLT_ENV)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.flags |= ERROR_SILENT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errorpush(&buff.err,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(io)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct openlist *item;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(np==SYSLOGIN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(np==SYSEXEC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type=1+!com[1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin type = (execflg && !shp->subshell && !shp->st.trapcom[0]);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_redirect(shp,io,type);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(item=buff.olist;item;item=item->next)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin item->strm=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(nv_isattr(np,BLT_ENV)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(bp->nosfio)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!shp->pwd)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin path_pwd(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->pwd)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stat(".",&statb);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfsync(NULL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin share = sfset(sfstdin,SF_SHARE,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onstate(SH_STOPOK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfpool(sfstderr,NIL(Sfio_t*),SF_WRITE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(sfstderr,SF_LINE,1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin save_prompt = shp->nextprompt;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->nextprompt = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(argp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin scope++;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_scope(shp,argp,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin opt_info.index = opt_info.offset = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin opt_info.disc = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.id = *com;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(argn)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->exitval = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->bltinfun = funptr(np);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->bnode = np;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->vnode = nq;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->ptr = nv_context(np);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->data = t->com.comstate;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->sigset = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->notify = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->flags = (OPTIMIZE!=0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->subshell && nv_isattr(np,BLT_NOSFIO))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_subtmpfile(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(execflg && !shp->subshell &&

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin !shp->st.trapcom[0] && !shp->st.trap[SH_ERRTRAP] && shp->fn_depth==0 && !nv_isattr(np,BLT_ENV))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* do close-on-exec */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin for(fd=0; fd < shp->lim.open_max; fd++)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((shp->fdstatus[fd]&IOCLEX)&&fd!=shp->infd)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(argn)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->exitval = (*shp->bltinfun)(argn,com,(void*)bp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.flags&ERROR_INTERACTIVE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tty_check(ERRIO);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ((Shnode_t*)t)->com.comstate = shp->bltindata.data;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->data = (void*)save_data;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!nv_isattr(np,BLT_EXIT) && shp->exitval!=SH_RUNPROG)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->exitval &= SH_EXITMASK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct openlist *item;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(item=buff.olist;item;item=item->next)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(item->strm)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclrlock(item->strm);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->hist_ptr && item->strm == shp->hist_ptr->histfp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin hist_close(shp->hist_ptr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(item->strm);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->bltinfun && (error_info.flags&ERROR_NOTIFY))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (*shp->bltinfun)(-2,com,(void*)bp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* failure on special built-ins fatal */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval<=SH_JMPCMD && (!nv_isattr(np,BLT_SPC) || command))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin jmpval=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(bp && bp->ptr!= nv_context(np))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np->nvfun = (Namfun_t*)bp->ptr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(nv_isattr(np,BLT_ENV)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(bp->nosfio && shp->pwd)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct stat stata;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stat(".",&stata);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* restore directory changed */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(statb.st_ino!=stata.st_ino || statb.st_dev!=stata.st_dev)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin chdir(shp->pwd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_STOPOK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(share&SF_SHARE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(sfstdin,SF_PUBLIC|SF_SHARE,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(sfstderr,SF_LINE,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfpool(sfstderr,shp->outpool,SF_WRITE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfpool(sfstdin,NIL(Sfio_t*),SF_WRITE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->nextprompt = save_prompt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_popcontext(&buff);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errorpop(&buff.err);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.flags &= ~ERROR_SILENT;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->bltinfun = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(buff.olist)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free_list(buff.olist);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(was_vi)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onoption(SH_VI);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(was_emacs)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onoption(SH_EMACS);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(was_gmacs)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onoption(SH_GMACS);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(scope)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_unscope(shp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->ptr = (void*)save_ptr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp->data = (void*)save_data;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* don't restore for subshell exec */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((shp->topfd>topfd) && !(shp->subshell && np==SYSEXEC))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iorestore(shp,topfd,jmpval);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin siglongjmp(*shp->jmplist,jmpval);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if 0

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(flgs&NV_STATIC)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ((Shnode_t*)t)->com.comset = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->exitval >=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto setexit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for functions */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!command && np && nv_isattr(np,NV_FUNCTION))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin volatile int indx;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int jmpval=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct checkpt buff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t node;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct Namref nr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin long mode;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct slnod *slp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!np->nvalue.ip)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin indx = path_search(com0,NIL(Pathcomp_t**),0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(indx==1)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = nv_search(com0,shp->fun_tree,HASH_NOSCOPE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!np->nvalue.ip)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(indx==1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(0),e_defined,com0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->exitval = ERROR_NOEXEC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(0),e_found,"function");

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->exitval = ERROR_NOENT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto setexit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* increase refcnt for unset */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin slp = (struct slnod*)np->nvenv;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_funstaks(slp->slchild,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin staklink(slp->slptr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nq)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->last_table = last_table;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = set_instance(nq,&node,&nr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(io)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin indx = shp->topfd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_pushcontext(&buff,SH_JMPCMD);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin jmpval = sigsetjmp(buff.buff,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(io)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin indx = sh_redirect(shp,io,execflg);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_funct(shp,np,argn,com,t->com.comset,(flags&~OPTIMIZE_FLAG));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(io)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(buff.olist)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free_list(buff.olist);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_popcontext(&buff);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iorestore(shp,indx,jmpval);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nq)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin unset_instance(nq,&node,&nr,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_funstaks(slp->slchild,-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakdelete(slp->slptr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmpval > SH_JMPFUN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin siglongjmp(*shp->jmplist,jmpval);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto setexit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!io)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setexit:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin exitset();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFORK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register pid_t parent;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int no_fork,jobid;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int pipes[2];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin no_fork = (execflg && !(type&(FAMP|FPOU)) &&

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if SHOPT_AMP || SHOPT_SPAWN

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin !ntflag &&

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin !shp->subshell && !shp->st.trapcom[0] &&

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin !shp->st.trap[SH_ERRTRAP] && shp->fn_depth==0 &&

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin !(pipejob && sh_isoption(SH_PIPEFAIL)));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->subshell)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_subtmpfile(1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(sh_isstate(SH_PROFILE) || shp->dot_depth)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* disable foreground job monitor */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(type&FAMP))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_MONITOR);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_DEVFD

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(type&FINT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_MONITOR);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_DEVFD */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(no_fork)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin job.parent=parent=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&FCOOP)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin coproc_init(shp,pipes);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_getval(RANDNOD);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_AMP

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((type&(FAMP|FINT)) == (FAMP|FINT))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin parent = sh_ntfork(shp,t,com,&jobid,ntflag);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin parent = sh_fork(type,&jobid);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(parent<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_SPAWN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# ifdef _lib_fork

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(com)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin parent = sh_ntfork(shp,t,com,&jobid,ntflag);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin parent = sh_fork(type,&jobid);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((parent = sh_ntfork(shp,t,com,&jobid,ntflag))<=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif /* _lib_fork */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(parent<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin parent = sh_fork(type,&jobid);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_SPAWN */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(job.parent=parent)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* This is the parent branch of fork

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&FPCL)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_close(shp->inpipe[0]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&(FCOOP|FAMP))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->bckpid = parent;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(!(type&(FAMP|FPOU)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->topfd > topfd)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iorestore(shp,topfd,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!sh_isoption(SH_MONITOR))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!(shp->sigflag[SIGINT]&(SH_SIGFAULT|SH_SIGOFF)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_sigtrap(SIGINT);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->trapnote |= SH_SIGIGNORE;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(execflg && shp->subshell)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->spid = parent;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin job.pwlist->p_env--;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin job_wait(parent);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!sh_isoption(SH_MONITOR))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->trapnote &= ~SH_SIGIGNORE;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->exitval == (SH_EXITSIG|SIGINT))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_fault(SIGINT);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&FAMP)