da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ast.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <stak.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <fcin.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <nval.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "FEATURE/options"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if KSHELL

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# include "defs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# include <shell.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define nv_getval(np) ((np)->nvalue)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t sh = {1};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* KSHELL */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "argnod.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "test.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "lexstates.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "io.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define TEST_RE 3

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SYNBAD 3 /* exit value for syntax errors */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define STACK_ARRAY 3 /* size of depth match stack growth */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _lib_iswblank < 0 /* set in lexstates.h to enable this code */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinlocal_iswblank(wchar_t wc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int initialized;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static wctype_t wt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!initialized)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin initialized = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wt = wctype("blank");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(iswctype(wc, wt));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct lexstate

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char incase; /* 1 for case pattern, 2 after case */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char intest; /* 1 inside [[...]] */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char testop1; /* 1 when unary test op legal */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char testop2; /* 1 when binary test op legal */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char reservok; /* >0 for reserved word legal */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char skipword; /* next word can't be reserved */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char last_quote; /* last multi-line quote character */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char comp_assign; /* inside compound assignment */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct lexdata

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char nocopy;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char paren;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char dolparen;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char nest;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char docword;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *docend;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char noarg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char balance;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char warn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char message;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char arith;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int level;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int lastc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int lex_max;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int *lex_match;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int lex_state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off_t kiaoff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define _SHLEX_PRIVATE \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct lexdata _lexd; \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct lexstate _lex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "shlex.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define lexd lp->_lexd

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define lex lp->_lex

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef shlex

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define shlex lp->_shlex

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define pushlevel(c,s) ((lexd.level>=lexd.lex_max?stack_grow(lp):1) &&\

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ((lexd.lex_match[lexd.level++]=lexd.lastc),\

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.lastc=(((s)<<CHAR_BIT)|(c))))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define oldmode() (lexd.lastc>>CHAR_BIT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define endchar() (lexd.lastc&0xff)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define setchar(c) (lexd.lastc = ((lexd.lastc&~0xff)|(c)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define poplevel() (lexd.lastc=lexd.lex_match[--lexd.level])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char *fmttoken(Lex_t*, int, char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef SF_BUFCONST

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int alias_exceptf(Sfio_t*, int, void*, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int alias_exceptf(Sfio_t*, int, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void setupalias(Lex_t*,const char*, Namval_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int comsub(Lex_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void nested_here(Lex_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int here_copy(Lex_t*, struct ionod*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int stack_grow(Lex_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const Sfdisc_t alias_disc = { NULL, NULL, NULL, alias_exceptf, NULL };

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void refvar(int type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shell_t *shp = sh_getinterp();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Lex_t *lp = (Lex_t*)shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off_t off = (fcseek(0)-(type+1))-(lexd.first?lexd.first:fcfirst());

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long r;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.first)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off = (fcseek(0)-(type+1)) - lexd.first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r=kiaentity(lexd.first+lexd.kiaoff+type,off-lexd.kiaoff,'v',-1,-1,shlex.current,'v',0,"");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n,offset = staktell();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *savptr,*begin;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off = offset + (fcseek(0)-(type+1)) - fcfirst();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.kiaoff < offset)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* variable starts on stak, copy remainder */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(off>offset)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakwrite(fcfirst()+type,off-offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = staktell()-lexd.kiaoff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin begin = stakptr(lexd.kiaoff);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* variable in data buffer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin begin = fcfirst()+(type+lexd.kiaoff-offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = off-lexd.kiaoff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savptr = stakfreeze(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r=kiaentity(begin,n,'v',-1,-1,shlex.current,'v',0,"");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakset(savptr,offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(shlex.kiatmp,"p;%..64d;v;%..64d;%d;%d;r;\n",shlex.current,r,shp->inlineno,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void lex_advance(Sfio_t *iop, const char *buff, register int size)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shell_t *shp = sh_getinterp();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Lex_t *lp = (Lex_t*)shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Sfio_t *log= shp->funlog;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if KSHELL

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* write to history file and to stderr if necessary */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iop && !sfstacked(iop))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sh_isstate(SH_HISTORY) && shp->hist_ptr)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin log = shp->hist_ptr->histfp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(log, (void*)buff, size);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sh_isstate(SH_VERBOSE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(sfstderr, buff, size);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.nocopy)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.first)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size -= (lexd.first-(char*)buff);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin buff = lexd.first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lexd.noarg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = (struct argnod*)stakseek(ARGVAL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.kiaoff += ARGVAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size>0 && (shlex.arg||lexd.noarg))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakwrite(buff,size);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int lexfill(void)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t *shp = sh_getinterp();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Lex_t *lp = (Lex_t*)shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct shlex_t savelex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct lexdata savedata;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct lexstate savestate;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct argnod *ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int aok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savelex = shlex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savedata = lexd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savestate = lex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap = shlex.arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = fcfill();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ap)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex = savestate;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd = savedata;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aok= shlex.aliasok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap = shlex.arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex = savelex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.aliasok = aok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinLex_t *sh_lexopen(Lex_t *lp, Shell_t *sp, int mode)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcnotify(lex_advance);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lp = (Lex_t*)newof(0,Lex_t,1,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lp->_shlex.sh = sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.intest = lex.incase = lex.skipword = lexd.warn = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.comp_assign = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sh_isoption(SH_DICTIONARY) && sh_isoption(SH_NOEXEC))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.warn=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!mode)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.noarg = lexd.level= lexd.dolparen = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.nocopy = lexd.docword = lexd.nest = lexd.paren = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.comsub = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef DBUG

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinextern int lextoken(void);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_lex(void)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t *shp = sh_getinterp();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Lex_t *lp = (Lex_t*)shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int flag;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *quoted, *macro, *split, *expand;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char tokstr[3];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int tok = lextoken();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin quoted = macro = split = expand = "";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(tok==0 && (flag=shlex.arg->argflag))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag&ARG_MAC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin macro = "macro:";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag&ARG_EXP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin expand = "expand:";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag&ARG_QUOTED)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin quoted = "quoted:";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr,"line %d: %o:%s%s%s%s %s\n",shp->inlineno,tok,quoted,

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin macro, split, expand, fmttoken(lp,tok,tokstr));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(tok);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define sh_lex lextoken

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_lex(void)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shell_t *shp = sh_getinterp();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n, c, mode=ST_BEGIN, wordflags=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Lex_t *lp = (Lex_t*)shp->lex_context;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int inlevel=lexd.level, assignment=0, ingrave=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin LEN=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.paren)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.paren = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=LPAREN);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.incase)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.assignok = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.assignok |= lex.reservok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.comp_assign==2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.comp_assign = lex.reservok = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.arith = (lexd.nest==1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.nest)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel(lexd.nest,ST_NONE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.nest = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = lexd.lex_state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(lexd.docword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(c)=='-' || c=='#')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.docword++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.digits=(c=='#'?3:1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='<')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.digits=2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.docword=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_BEGIN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.lastline = sh.inlineno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip over characters in the current state */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = sh_lexstates[mode];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((n=STATE(state,c))==0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_BREAK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto breakloop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EOF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = fcfile();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=lexfill()) > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for zero byte in file */

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shp->readscript)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cp = error_info.id;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = ENOEXEC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.id = shp->readscript;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(ERROR_NOEXEC),e_exec,cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_syntax();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* end-of-file */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_BEGIN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=EOFSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode >ST_NORM && lexd.level>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(c=endchar())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '$':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_LIT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\'';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RBRACT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = LBRACT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 1: /* for ((...)) */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RPAREN:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = LPAREN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = LBRACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '"': case '`': case '\'':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.balance = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp && !(sfset(sp,0,0)&SF_STRING))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.lasttok = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = EOFSYM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_syntax();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.balance = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto breakloop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_COM:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip one or more comment line(s) */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = !lex.intest;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=lexd.nocopy) && lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.nocopy--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(fcgetc(c)>0 && c!='\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c<=0 || shlex.heredoc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(shp->inlineno++,fcpeek(0)=='\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(state[c=fcpeek(0)]==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(c=='#');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.nocopy = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=EOFSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = S_NLTOK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->inlineno--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_NLTOK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for here-document */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shlex.heredoc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.nocopy++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = shp->inlineno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(here_copy(lp,shlex.heredoc)<=0 && shlex.lasttok)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.lasttok = IODOCSYM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = EOFSYM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.lastline = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_syntax();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.nocopy--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.heredoc = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = !lex.intest;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.skipword = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_NL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip over new-lines */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.last_quote = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(shp->inlineno++,fcget()=='\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_NLTOK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.comp_assign = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token='\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_BLNK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.incase<=TEST_RE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* implicit RPAREN for =~ test operator */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(inlevel+1==lexd.level)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = RPAREN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto do_pop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_OP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* return operator token */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='<' || c=='>')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.testop2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.testop2 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.digits = (c=='>');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.skipword = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.aliasok = lex.reservok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = !lex.intest;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==RPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.incase = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.testop1 = lex.intest;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(n)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(state[n]==S_OP || n=='#')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='<')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.docword=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.nest=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.lastline = shp->inlineno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.lex_state = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sh_lex());

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMREP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='(' || c==')')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='&')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_BASH

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sh_isoption(SH_POSIX) && n=='>')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.digits = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '>';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n=='&')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMAMP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c!='<' && c!='>')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMLPAR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.skipword = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n=='|')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMPIPE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='<' && n=='>')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = IORDWRSYM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n=='#' && (c=='<'||c=='>'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMSHARP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.incase = (c==BREAKCASESYM || c==FALLTHRUSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=fcpeek(0))!=RPAREN && n!=LPAREN && lexd.warn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexspace,shp->inlineno,c,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==LPAREN && lex.comp_assign && !lex.intest && !lex.incase)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.comp_assign = 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.comp_assign = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ESC:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for \<new-line> */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcgetc(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c=2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_CRNL

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='\r')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(n)=='\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c=3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n='\r';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_CRNL */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct argnod *ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->inlineno++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* synchronize */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(sp=fcfile()))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state=fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcclose();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap = shlex.arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcfopen(sp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsopen((char*)state);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* remove \new-line */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = staktell()-c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n<=ARGVAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_QUOTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_DOL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef STR_MAXIMAL

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(mode==ST_NESTED && lexd.warn &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endchar()==RBRACE &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_lexstates[ST_DOL][n]==S_DIG

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexfuture,shp->inlineno,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* STR_MAXIMAL */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_NAME:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lex.skipword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok *= 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_TILDE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_RES:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first = fcseek(0)-LEN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(lexd.docword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.docend = fcseek(0)-LEN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='.')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n!=S_TILDE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcgetc(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto epat;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags = ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NORM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_REG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_BEGIN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip new-line joining */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='\\' && fcpeek(0)=='\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->inlineno++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(lexd.docword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.docend = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='[' && shlex.assignok>=SH_ASSIGN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NORM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LIT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(oldmode()==ST_NONE) /* in ((...)) */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c=fcpeek(0))==LPAREN || c==RPAREN || c=='$' || c==LBRACE || c==RBRACE || c=='[' || c==']')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcpeek(1)=='\'')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_QUOTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_DOL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(endchar()!='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(oldmode()==ST_QUOTE) /* $' within "" or `` */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexslash,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_LIT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_LIT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && lex.last_quote && shp->inlineno > shlex.lastline)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexlongquote,shlex.lastline,lex.last_quote);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.last_quote = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.lastline = shp->inlineno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_DOL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel('\'',mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_LIT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for multi-line single-quoted string */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(shp->inlineno > shlex.lastline)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.last_quote = '\'';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ESC2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* \ inside '' */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(endchar()=='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcgetc(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->inlineno++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_GRAVE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && (mode!=ST_QUOTE || endchar()!='`'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexobsolete1,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |=(ARG_MAC|ARG_EXP);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ingrave = !ingrave;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_QUOTE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(oldmode()==ST_NONE && lexd.arith) /* in ((...)) */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |=ARG_QUOTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c!='"' || mode!=ST_QNEST)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && lex.last_quote && shp->inlineno > shlex.lastline)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexlongquote,shlex.lastline,lex.last_quote);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.last_quote=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.lastline = shp->inlineno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel(c,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ingrave = (c=='`');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_QUOTE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if((n=endchar())==c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shp->inlineno > shlex.lastline)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.last_quote = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='"' && n==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_QNEST;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DOL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* don't check syntax inside `` */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_QUOTE && ingrave)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.first)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.kiaoff = fcseek(0)-lexd.first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.kiaoff = staktell()+fcseek(0)-fcfirst();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel('$',mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_DOL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PAR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= comsub(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_RBRA:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=endchar()) == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_QUOTE || n==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EDOL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* end $identifier */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shlex.kiafile)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin refvar(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && c==LBRACT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexusebrace,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* make sure next character is alpha */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(n)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isaletter(n) || n==LBRACT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NAME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='=')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isastchar(n))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_SPC1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(endchar()==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setchar(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ALP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='.' && endchar()=='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_SPC2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DIG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(endchar())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '$':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_ALP) /* $identifier */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_DOLNAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_TYPEDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '@':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_TYPEDEF */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '!':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n!=S_ALP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto dolerr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '#':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RBRACE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_ALP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setchar(RBRACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='.')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_BRACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(c)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(state[c]==S_ALP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_DIG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setchar('0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setchar('!');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '0':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_DIG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto dolerr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dolerr:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ERR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=endchar()) == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='*' || (n=sh_lexstates[ST_BRACE][c])!=S_MOD1 && n!=S_MOD2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* see whether inside `...` */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n = endchar()) != '`')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel(RBRACE,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setchar(RBRACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_MOD1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(oldmode()==ST_QUOTE || oldmode()==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* allow ' inside "${...}" */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==':' && fcgetc(n)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = state[n];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_MOD1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_QUOTE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_MOD2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shlex.kiafile)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin refvar(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c!=':' && fcgetc(n)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n!=c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!c || (fcgetc(n)>0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c!='%')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_syntax();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(lexd.warn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexquote,shp->inlineno,'%');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LBRA:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c=endchar()) == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setchar(RBRACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(c)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(state[c]!=S_ERR && c!=RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = endchar();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n!='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_syntax();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && c!='/' && sh_lexstates[ST_NORM][c]!=S_BREAK && (c!='"' || mode==ST_QUOTE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexslash,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='"' && mode!=ST_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MESSAGE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_META:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && endchar()==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexusequote,shp->inlineno,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PUSH:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel(RPAREN,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_POP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do_pop:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.level <= inlevel)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = endchar();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==RBRACT && !(n==RBRACT || n==RPAREN))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c==RBRACE||c==RPAREN) && n==RPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(n)==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c!=RPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = RPAREN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==';' && n!=';')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && n==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexusequote,shp->inlineno,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_QNEST)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexescape,shp->inlineno,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = oldmode();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin poplevel();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* quotes in subscript need expansion */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NAME && (wordflags&ARG_QUOTED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for ((...)) */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==1 && c==RPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(n)==RPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NONE && !lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto breakloop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.skipword = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=EXPRSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* backward compatibility */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexnested,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(state=lexd.first))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = fcfirst();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(state-fcseek(0));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shlex.arg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = (struct argnod*)stakfreeze(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setupalias(lp,shlex.arg->argval,NIL(Namval_t*));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.paren = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=LPAREN);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c!=n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_syntax();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==RBRACE && (mode==ST_NAME||mode==ST_NORM))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto epat;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EQ:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin assignment = shlex.assignok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_COLON:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(assignment)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c=fcget())=='~')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c!=LPAREN && assignment==SH_COMPASSIGN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin assignment = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LABEL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.reservok && !lex.incase)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = fcget();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(state[c]==S_BREAK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin assignment = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto breakloop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_BRACT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for possible subscript */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=endchar())==RBRACT || n==RPAREN ||

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (mode==ST_BRACE) ||

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (oldmode()==ST_NONE) ||

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (mode==ST_NAME && (shlex.assignok||lexd.level)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel(RBRACT,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_QUOTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_EXP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_BRACE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int isfirst;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin isfirst = (lexd.first&&fcseek(0)==lexd.first+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcgetc(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for {} */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==LBRACE && n==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(lex.reservok)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for reserved word { or } */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.reservok && state[n]==S_BREAK && isfirst)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sh_isoption(SH_BRACEEXPAND) && c==LBRACE && !assignment && state[n]!=S_BREAK

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin && !lex.incase && !lex.intest

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin && !lex.skipword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_EXP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==RBRACE && n==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto epat;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PAT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_EXP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EPAT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin epat:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(n)==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.incase==TEST_RE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.incase++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel(RPAREN,ST_NORM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_EXP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushlevel(RPAREN,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='=' && c=='+' && mode==ST_NAME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.comp_assign = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NAME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NORM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinbreakloop:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.balance = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.docword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nested_here(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.message = (wordflags&ARG_MESSAGE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(state=lexd.first))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = fcfirst();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = fcseek(0)-(char*)state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!shlex.arg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = (struct argnod*)stakseek(ARGVAL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakwrite(state,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* add balancing character if necessary */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.balance)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputc(lexd.balance);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.balance = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputc(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(staktell()-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = stakptr(ARGVAL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = staktell()-ARGVAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lexd.first=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for numbered redirection */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = state[0];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c=='<' || c=='>') && isadigit(n))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = sh_lex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.digits = (n-'0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==LBRACT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n=='~')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (wordflags&ARG_EXP);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n>2 && state[0]=='{' && state[n-1]=='}' && !lex.intest && !lex.incase && (c=='<' || c== '>') && sh_isoption(SH_BRACEEXPAND))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!strchr(state,','))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(staktell()-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = (struct argnod*)stakfreeze(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=IOVNAME);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = wordflags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = wordflags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(assignment<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(staktell()-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = (struct argnod*)stakfreeze(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=LABLSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(assignment || (lex.intest&&!lex.incase) || mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c &= ~ARG_EXP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((c&ARG_EXP) && (c&ARG_QUOTED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* eliminate trailing )) */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(staktell()-2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c&ARG_MESSAGE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sh_isoption(SH_DICTIONARY))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = sh_endword(2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sh_isoption(SH_NOEXEC))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = sh_endword(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c &= ~ARG_MESSAGE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==0 || (c&(ARG_MAC|ARG_EXP)) || (lexd.warn && !lexd.docword))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = (struct argnod*)stakfreeze(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg->argflag = (c?c:ARG_RAW);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = sh_endword(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg = sh_endword(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = shlex.arg->argval;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.comp_assign = assignment;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(assignment)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg->argflag |= ARG_ASSIGN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!lex.skipword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.assignok = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg->argchn.cp = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.arg->argnxt.ap = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token=EXPRSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.intest)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.testop1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.testop1 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==2 && state[0]=='-' && state[2]==0 &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin strchr(test_opchars,state[1]))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && state[1]=='a')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexobsolete2,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.digits = state[1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = TESTUNOP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==1 && state[0]=='!' && state[1]==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.testop1 = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = '!';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.testop2 = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.incase = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = sh_lookup(state,shtab_testops);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TEST_END:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.testop2 = lex.intest = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.reservok = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shlex.token = ETESTSYM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shlex.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TEST_SEQ:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && state[1]==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexobsolete3,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lex.testop2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lexd.warn && (c&TEST_ARITH))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_lexobsolete4,shp->inlineno,state);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c&TEST_PATTERN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.incase = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c==TEST_REP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.incase = TEST_RE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex.testop2 = 0;