da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "defs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <fcin.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <pwd.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "name.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "variables.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "shlex.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "io.h"

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#include "jobs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "shnodes.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "path.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "national.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "streval.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef STR_GROUP

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef STR_GROUP

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define STR_GROUP 0

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define mbchar(p) (*(unsigned char*)p++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int _c_;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef struct _mac_

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t *shp; /* pointer to shell interpreter */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *sp; /* stream pointer for here-document */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct argnod **arghead; /* address of head of argument list */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *ifsp; /* pointer to IFS value */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fields; /* number of fields */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short quoted; /* set when word has quotes */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char ifs; /* first char of IFS */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char quote; /* set within double quoted contexts */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char lit; /* set within single quotes */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char split; /* set when word splittin is possible */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char pattern; /* set when file expansion follows */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char patfound; /* set if pattern character found */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char assign; /* set for assignments */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char arith; /* set for ((...)) */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char let; /* set when expanding let arguments */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char zeros; /* strip leading zeros when set */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char arrayok; /* $x[] ok for arrays */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char subcopy; /* set when copying subscript */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int dotdot; /* set for .. in subscript */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin void *nvwalk; /* for name space walking*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin} Mac_t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef ESCAPE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define ESCAPE '\\'

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define isescchar(s) ((s)>S_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define isqescchar(s) ((s)>=S_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define isbracechar(c) ((c)==RBRACE || (_c_=sh_lexstates[ST_BRACE][c])==S_MOD1 ||_c_==S_MOD2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define ltos(x) fmtbase((long)(x),0,0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_BRACE 1 /* ${var} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_TREE 2 /* ${var.} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_SIZE 3 /* ${#var} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_VNAME 4 /* ${!var} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_SUBNAME 5 /* ${!var[sub]} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_NAMESCAN 6 /* ${!var*} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_NAMECOUNT 7 /* ${#var*} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define M_TYPE 8 /* ${@var} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int substring(const char*, const char*, int[], int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void copyto(Mac_t*, int, int);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void comsubst(Mac_t*, Shnode_t*, int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int varsub(Mac_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void mac_copy(Mac_t*,const char*, int);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void tilde_expand2(Shell_t*,int);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic char *sh_tilde(Shell_t*,const char*);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic char *special(Shell_t *,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void endfield(Mac_t*,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void mac_error(Namval_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char *mac_getstring(char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int charlen(const char*,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char *lastchar(const char*,const char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvoid *sh_macopen(Shell_t *shp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin void *addr = newof(0,Mac_t,1,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Mac_t *mp = (Mac_t*)addr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->shp = shp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(addr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinchar *sh_mactry(Shell_t *shp,register char *string)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(string)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int jmp_val;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int savexit = shp->savexit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct checkpt buff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_pushcontext(&buff,SH_JMPSUB);

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(jmp_val == 0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin string = sh_mactrim(shp,string,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_popcontext(&buff);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->savexit = savexit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(string);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return("");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinchar *sh_mactrim(Shell_t *shp, char *str, register int mode)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Mac_t *mp = (Mac_t*)shp->mac_context;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Mac_t savemac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savemac = *mp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->arith = (mode==3);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->let = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->argaddr = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = (mode==1||mode==2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->patfound = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->assign = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mode<0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->assign = -mode;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->quoted = mp->lit = mp->split = mp->quote = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->sp = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mp->ifsp=nv_getval(sh_scoped(shp,IFSNOD)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->ifs = *mp->ifsp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->ifs = ' ';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsopen(str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin copyto(mp,0,mp->arith);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin str = stkfreeze(stkp,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* expand only if unique */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct argnod *arglist=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((mode=path_expand(str,&arglist))==1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin str = arglist->argval;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(mode>1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_ambiguous,str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_trim(str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *mp = savemac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint sh_macexpand(Shell_t* shp, register struct argnod *argp, struct argnod **arghead,int flag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register int flags = argp->argflag;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register char *str = argp->argval;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Mac_t *mp = (Mac_t*)shp->mac_context;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char **saveargaddr = shp->argaddr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Mac_t savemac;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savemac = *mp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->sp = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mp->ifsp=nv_getval(sh_scoped(shp,IFSNOD)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->ifs = *mp->ifsp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->ifs = ' ';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((flag&ARG_OPTIMIZE) && !shp->indebug)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->argaddr = (char**)&argp->argchn.ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->argaddr = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->arghead = arghead;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->quoted = mp->lit = mp->quote = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->arith = ((flag&ARG_ARITH)!=0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->let = ((flag&ARG_LET)!=0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->split = !(flag&ARG_ASSIGN);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->assign = !mp->split;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = mp->split && !(flag&ARG_NOGLOB) && !sh_isoption(SH_NOGLOB);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->arrayok = mp->arith || (flag&ARG_ARRAYOK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin str = argp->argval;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsopen(str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->fields = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!arghead)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->split = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = ((flag&ARG_EXP)!=0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,ARGVAL);

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->patfound = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mp->pattern)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->arrayok = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin copyto(mp,0,mp->arith);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!arghead)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin argp->argchn.cp = stkfreeze(stkp,1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->argaddr)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argp->argflag |= ARG_MAKE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endfield(mp,mp->quoted);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = mp->fields;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(flags==1 && shp->argaddr)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argp->argchn.ap = *arghead;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->argaddr = saveargaddr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *mp = savemac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(flags);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinvoid sh_machere(Shell_t *shp,Sfio_t *infile, Sfio_t *outfile, char *string)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c,n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *state = sh_lexstates[ST_QUOTE];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *cp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Mac_t *mp = (Mac_t*)shp->mac_context;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Lex_t *lp = (Lex_t*)mp->shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Fcin_t save;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Mac_t savemac;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savemac = *mp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->argaddr = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->sp = outfile;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->split = mp->assign = mp->pattern = mp->patfound = mp->lit = mp->arith = mp->let = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->quote = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->ifsp = nv_getval(sh_scoped(shp,IFSNOD));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->ifs = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsave(&save);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(infile)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcfopen(infile);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsopen(string);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcnotify(0,lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mbwide())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssize_t len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(len = mbsize(cp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case -1: /* illegal multi-byte char */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=state[*(unsigned char*)cp++];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin /* use state of alpha character */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=state['a'];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(n == 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((n=state[*(unsigned char*)cp++])==0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_NL || n==S_QUOTE || n==S_RBRA)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=(cp-1)-fcseek(0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(outfile,fcseek(0),c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = fcseek(c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EOF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=fcfill()) <=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* ignore 0 byte when reading from file */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==0 && fcfile())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcrestore(&save);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *mp = savemac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ESC:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcgetc(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp=fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!isescchar(state[c]))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(outfile,ESCAPE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_GRAVE:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin comsubst(mp,(Shnode_t*)0,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DOL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = fcget();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='.')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto regular;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin again:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(n=sh_lexstates[ST_DOL][c])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ALP: case S_SPC1: case S_SPC2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DIG: case S_LBRA:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Fcin_t save2;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int offset = stktell(stkp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int offset2;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_LBRA)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = fcget();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(sh_lexstates[ST_NORM][c]==S_BREAK)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin comsubst(mp,(Shnode_t*)0,2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_lexskip(lp,RBRACE,1,ST_BRACE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==S_ALP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(fcgetc(c),isaname(c))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin offset2 = stktell(stkp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsave(&save2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcsopen(stkptr(stkp,offset));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin varsub(mp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c=stktell(stkp)-offset2)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(outfile,(char*)stkptr(stkp,offset2),c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcrestore(&save2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PAR:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin comsubst(mp,(Shnode_t*)0,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EOF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c=fcfill()) > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto again;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regular:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(outfile,'$');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinchar *sh_macpat(Shell_t *shp,register struct argnod *arg, int flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *sp = arg->argval;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((arg->argflag&ARG_RAW))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_stats(STAT_ARGEXPAND);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&ARG_OPTIMIZE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg->argchn.ap=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(sp=arg->argchn.cp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_macexpand(shp,arg,NIL(struct argnod**),flags|ARG_ARRAYOK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = arg->argchn.cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flags&ARG_OPTIMIZE) || !(arg->argflag&ARG_MAKE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg->argchn.cp = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg->argflag &= ~ARG_MAKE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_stats(STAT_ARGHITS);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void copyto(register Mac_t *mp,int endch, int newquote)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c,n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *state = sh_lexstates[ST_MACRO];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *cp,*first;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Lex_t *lp = (Lex_t*)mp->shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int tilde = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int oldquote = mp->quote;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ansi_c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int paren = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ere = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int brace = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *sp = mp->sp;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->sp = NIL(Sfio_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->quote = newquote;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = cp = fcseek(0);

9a6f360e750e0b14fc9b9bf8347e0ebad3959e3fCasper H.S. Dik if(!mp->quote && *cp=='~' && cp[1]!=LPAREN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tilde = stktell(stkp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* handle // operator specially */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->pattern==2 && *cp=='/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mbwide())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssize_t len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(len = mbsize(cp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case -1: /* illegal multi-byte char */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin len = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = state[*(unsigned char*)cp++];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* treat as if alpha */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n=state['a'];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(n == 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (cp-len) - first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((n=state[*(unsigned char*)cp++])==0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (cp-1) - first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ESC:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ansi_c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* process ANSI-C escape character */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *addr= --cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = chresc(cp,&addr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = addr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(cp-first);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c > UCHAR_MAX && mbwide())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char mb[8];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = wctomb((char*)mb, c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(i=0;i<n;i++)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,mb[i]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==ESCAPE && mp->pattern)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,ESCAPE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(sh_isoption(SH_BRACEEXPAND) && mp->pattern==4 && (*cp==',' || *cp==LBRACE || *cp==RBRACE || *cp=='.'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(mp->split && endch && !mp->quote && !mp->lit)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac_copy(mp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = fcseek(c+2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c= cp[-1])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==ESCAPE)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,ESCAPE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = state[*(unsigned char*)cp];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_ENDCH && *cp!=endch)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = S_PAT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->pattern)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* preserve \digit for pattern matching */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* also \alpha for extended patterns */

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(!mp->lit && !mp->quote)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if((n==S_DIG || ((paren+ere) && sh_lexstates[ST_DOL][*(unsigned char*)cp]==S_ALP)))

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz break;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(ere && mp->pattern==1 && strchr(".[()*+?{|^$&!",*cp))

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz break;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* followed by file expansion */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!mp->lit && (n==S_ESC || (!mp->quote &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (n==S_PAT||n==S_ENDCH||n==S_SLASH||n==S_BRACT||*cp=='-'))))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += (n!=S_EOF);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(ere && n==S_ESC && *cp =='\\' && cp[1]=='$')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin /* convert \\\$ into \$' */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c+1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cp = first = fcseek(c+3);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!(ere && *cp=='$') && (mp->lit || (mp->quote && !isqescchar(n) && n!=S_ENDCH)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* add \ for file expansion */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->lit)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!mp->quote || isqescchar(n) || n==S_ENDCH)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* eliminate \ */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check new-line joining */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += (n!=S_EOF);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_GRAVE: case S_DOL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->lit)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->split && !mp->quote && endch)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac_copy(mp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = mp->pattern;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_GRAVE)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin comsubst(mp,(Shnode_t*)0,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if((n= *cp)==0 || !varsub(mp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='\'' && !mp->quote)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ansi_c = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(mp->quote || n!='"')

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = first = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*cp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ENDCH:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((mp->lit || cp[-1]!=endch || mp->quote!=newquote))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pattern;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(endch==RBRACE && *cp==LPAREN && mp->pattern && brace)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pattern;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EOF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->split && !mp->quote && !mp->lit && endch)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac_copy(mp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c += (n!=S_EOF);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(tilde>=0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tilde_expand2(mp->shp,tilde);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_QUOTE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->lit || mp->arith)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LIT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->arith)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((*cp=='`' || *cp=='[') && cp[1]=='\'')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp +=2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_LIT && mp->quote)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->split && endch && !mp->quote && !mp->lit)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac_copy(mp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_LIT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->quote)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->lit)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->lit = ansi_c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->lit = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->quote = !mp->quote;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->quoted++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_BRACT:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mp->arith || (((mp->assign&1) || endch==RBRACT) &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin !(mp->quote || mp->lit)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int offset=0,oldpat = mp->pattern;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int oldarith = mp->arith, oldsub=mp->subcopy;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,++c);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(mp->assign&1)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(first[c-2]=='.')

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz offset = stktell(stkp);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(isastchar(*cp) && cp[1]==']')

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz errormsg(SH_DICT,ERROR_exit(1),

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainze_badsubscript,*cp);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->arith = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->subcopy = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin copyto(mp,RBRACT,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->subcopy = oldsub;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->arith = oldarith;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = oldpat;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,RBRACT);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(offset)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cp = stkptr(stkp,stktell(stkp));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(sh_checkid(stkptr(stkp,offset),cp)!=cp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,stktell(stkp)-2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = first = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PAT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->pattern && !(mp->quote || mp->lit))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->patfound = mp->pattern;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=cp[-1])==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin paren++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((cp-first)>1 && cp[-2]=='~')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *p = cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((c=mbchar(p)) && c!=RPAREN && c!='E');

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ere = (c=='E'||c=='A');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==RPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin --paren;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pattern;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case S_COM:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mp->pattern==4 && (mp->quote || mp->lit))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin first = fcseek(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,ESCAPE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_BRACE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(mp->quote || mp->lit))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->patfound = mp->split && sh_isoption(SH_BRACEEXPAND);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin brace = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pattern:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!mp->pattern || !(mp->quote || mp->lit))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* mark beginning of {a,b} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_BRACE && endch==0 && mp->pattern)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern=4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_SLASH && mp->pattern==2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern=3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->pattern==3)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,ESCAPE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EQ:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->assign==1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*cp=='~' && !endch && !mp->quote && !mp->lit)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tilde = stktell(stkp)+(c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->assign = 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_SLASH:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_COLON:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(tilde >=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tilde_expand2(mp->shp,tilde);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tilde = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_COLON && mp->assign==2 && *cp=='~' && endch==0 && !mp->quote &&!mp->lit)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tilde = stktell(stkp)+(c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==S_SLASH && mp->pattern==2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if 0

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pattern;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp->quote || mp->lit)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pattern;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = fcseek(c+1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = stktell(stkp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_lexskip(lp,RBRACE,0,ST_NESTED);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = fcseek(-1);

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first=cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case S_DOT:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(*cp=='.' && mp->subcopy==1)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,first,c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->dotdot = stktell(stkp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cp = first = fcseek(c+2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindone:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->sp = sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->quote = oldquote;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void mac_substitute(Mac_t *mp, register char *cp,char *str,register int subexp[],int subsize)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register int c,n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *first=fcseek(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *ptr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Mac_t savemac;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = stktell(stkp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savemac = *mp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = 3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->split = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsopen(cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin copyto(mp,0,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ptr = cp = strdup(stkptr(stkp,n));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *mp = savemac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsopen(first);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((c= *cp++) && c!=ESCAPE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n= *cp++)=='\\' || n==RBRACE || (n>='0' && n<='9' && (n-='0')<subsize))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = cp-first-2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac_copy(mp,first,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first=cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='\\' || n==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c=subexp[2*n])>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=subexp[2*n+1]-c)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac_copy(mp,str+c,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=cp-first-1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac_copy(mp,first,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(ptr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_FILESCAN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAX_OFFSETS (sizeof(shp->offsets)/sizeof(shp->offsets[0]))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAX_ARGN (32*1024)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char *getdolarg(Shell_t *shp, int n, int *size)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c=S_DELIM, d=shp->ifstable['\\'];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned char *first,*last,*cp = (unsigned char*)shp->cur_line;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int m=shp->offsets[0],delim=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(m==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(m<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n<=m)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = n-1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(m >= MAX_OFFSETS-1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = MAX_OFFSETS-2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += shp->offsets[m+1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n -= m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->ifstable['\\'] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->ifstable[0] = S_EOF;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==S_DELIM)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(shp->ifstable[*cp++]==S_SPACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = --cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(++m < MAX_OFFSETS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->offsets[m] = (first-(unsigned char*)shp->cur_line);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((c=shp->ifstable[*cp++])==0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin last = cp-1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==S_SPACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((c=shp->ifstable[*cp++])==S_SPACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(--n==0 || c==S_EOF)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(last==first && c==S_EOF && (!delim || (m>1)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin delim = (c==S_DELIM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->ifstable['\\'] = d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(m > shp->offsets[0])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->offsets[0] = m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first = last = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *size = last-first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((char*)first);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_FILESCAN */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic char *prefix(Shell_t *shp, char *id)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz register char *sub=0, *cp = strchr(id,'.');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *cp = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = nv_search(id, shp->var_tree,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *cp = '.';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isastchar(cp[1]))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp[1] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(np && nv_isref(np))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *sp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->argaddr = 0;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz while(nv_isref(np) && np->nvalue.cp)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz sub = nv_refsub(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = nv_refnode(np);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(sub)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz nv_putsub(np,sub,0L);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz id = (char*)malloc(strlen(cp)+1+(n=strlen(sp=nv_name(np)))+ (sub?strlen(sub)+3:1));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memcpy(id,sp,n);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(sub)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz id[n++] = '[';

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz strcpy(&id[n],sub);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz n+= strlen(sub)+1;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz id[n-1] = ']';

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz strcpy(&id[n],cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(id);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(strdup(id));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int subcopy(Mac_t *mp, int flag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int split = mp->split;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int xpattern = mp->pattern;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int loc = stktell(mp->shp->stk);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int xarith = mp->arith;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int arrayok = mp->arrayok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->split = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->arith = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = flag?4:0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->arrayok=1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->subcopy++;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->dotdot = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin copyto(mp,RBRACT,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->subcopy = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->pattern = xpattern;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->split = split;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->arith = xarith;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->arrayok = arrayok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(loc);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint sh_macfun(Shell_t *shp, const char *name, int offset)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Namval_t *np, *nq;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = nv_bfsearch(name,shp->fun_tree,&nq,(char**)0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(np)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin /* treat ${x.foo} as ${x.foo;} */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Shnode_t *tp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char buff[sizeof(struct dolnod)+sizeof(char*)];

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct comnod node;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct dolnod *dp = (struct dolnod*)buff;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memset(&node,0,sizeof(node));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memset(&buff,0,sizeof(buff));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tp = (Shnode_t*)&node;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tp->com.comarg = (struct argnod*)dp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tp->com.comline = shp->inlineno;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz dp->dolnum = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->dolval[0] = strdup(name);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(shp->stk,offset);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin comsubst((Mac_t*)shp->mac_context,tp,2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin free(dp->dolval[0]);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int namecount(Mac_t *mp,const char *prefix)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int count = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->nvwalk = nv_diropen((Namval_t*)0,prefix);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(nv_dirnext(mp->nvwalk))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin count++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_dirclose(mp->nvwalk);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(count);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char *nextname(Mac_t *mp,const char *prefix, int len)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(len==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->nvwalk = nv_diropen((Namval_t*)0,prefix);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((char*)mp->nvwalk);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(cp=nv_dirnext(mp->nvwalk)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_dirclose(mp->nvwalk);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int varsub(Mac_t *mp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int type=0; /* M_xxx */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *v,*argp=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Namval_t *np = NIL(Namval_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int dolg=0, mode=0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Lex_t *lp = (Lex_t*)mp->shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namarr_t *ap=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int dolmax=0, vsize= -1, offset= -1, nulflg, replen=0, bysub=0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char idbuff[3], *id = idbuff, *pattern=0, *repstr, *arrmax=0;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int var=1,addsub=0,oldpat=mp->pattern,idnum=0,flag=0,d;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinretry1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->zeros = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin idbuff[0] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin idbuff[1] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = fcget();

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz switch(isascii(c)?sh_lexstates[ST_DOL][c]:S_ALP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_RBRA:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type<M_SIZE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto nosub;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* This code handles ${#} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = mode;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_SPC1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type==M_BRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isaletter(mode=fcpeek(0)) || mode=='.')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='#')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_SIZE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef SHOPT_TYPEDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='@')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_TYPE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto retry1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_TYPEDEF */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_VNAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto retry1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='#' && (isadigit(mode)||fcpeek(1)==RBRACE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_SIZE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto retry1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_SPC2:

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz var = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *id = c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin v = special(mp->shp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isastchar(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_FILESCAN

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mp->shp->cur_line)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = getdolarg(&sh,1,(int*)0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dolmax = MAX_ARGN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_FILESCAN */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dolmax = mp->shp->st.dolc+1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dolg = (v!=0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LBRA:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto nosub;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_BRACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto retry1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PAR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto nosub;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin comsubst(mp,(Shnode_t*)0,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DIG:

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz var = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c -= '0';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->shp->argaddr = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((d=fcget()),isadigit(d))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 10*c + (d-'0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin idnum = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin v = special(mp->shp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_FILESCAN

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(mp->shp->cur_line)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->shp->used_pos = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = getdolarg(&sh,c,&vsize);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_FILESCAN */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(c <= mp->shp->st.dolc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->shp->used_pos = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin v = mp->shp->st.dolv[c];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ALP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='.' && type==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto nosub;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin offset = stktell(stkp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,c);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz while(((c=fcget()),(!isascii(c)||isaname(c)))||type && c=='.');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin while(c==LBRACT && (type||mp->arrayok))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mp->shp->argaddr=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c=fcget(),isastchar(c)) && fcpeek(0)==RBRACT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type==M_VNAME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_SUBNAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin idbuff[0] = mode = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcget();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = fcget();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='.' || c==LBRACT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,LBRACT);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,mode);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,RBRACT);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = NV_ARRAY;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = stktell(stkp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,LBRACT);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin v = stkptr(stkp,subcopy(mp,1));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(type && mp->dotdot)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = '@';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin v[-1] = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(type==M_VNAME)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin type = M_SUBNAME;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(type==M_SIZE)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin goto nosub;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,RBRACT);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = fcget();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c==0 && type==M_VNAME)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin type = M_SUBNAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(type && c=='.');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==RBRACE && type && fcpeek(-2)=='.')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin /* ${x.} or ${x..} */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(fcpeek(-3) == '.')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,stktell(stkp)-2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_local = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,stktell(stkp)-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin type = M_TREE;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin id=stkptr(stkp,offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isastchar(c) && type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type==M_VNAME || type==M_SIZE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin idbuff[0] = mode = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((d=fcpeek(0))==c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin idbuff[1] = fcget();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type==M_VNAME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_NAMESCAN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = M_NAMECOUNT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto nosub;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag |= NV_NOASSIGN|NV_VARNAME|NV_NOADD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='=' || c=='?' || (c==':' && ((d=fcpeek(0))=='=' || d=='?')))