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};

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;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int docextra;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off_t kiaoff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define _SHLEX_PRIVATE \

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct lexdata lexd; \

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct lexstate lex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "shlex.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ((lp->lexd.lex_match[lp->lexd.level++]=lp->lexd.lastc),\

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.lastc=(((s)<<CHAR_BIT)|(c))))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#define oldmode(lp) (lp->lexd.lastc>>CHAR_BIT)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#define endchar(lp) (lp->lexd.lastc&0xff)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#define setchar(lp,c) (lp->lexd.lastc = ((lp->lexd.lastc&~0xff)|(c)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#define poplevel(lp) (lp->lexd.lastc=lp->lexd.lex_match[--lp->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*);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int comsub(Lex_t*,int);

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void refvar(Lex_t *lp, int type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Shell_t *shp = lp->sh;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin off_t off = (fcseek(0)-(type+1))-(lp->lexd.first?lp->lexd.first:fcfirst());

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long r;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.first)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin off = (fcseek(0)-(type+1)) - lp->lexd.first;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin r=kiaentity(lp,lp->lexd.first+lp->lexd.kiaoff+type,off-lp->lexd.kiaoff,'v',-1,-1,lp->current,'v',0,"");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *savptr,*begin;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.kiaoff < offset)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(off>offset)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,fcfirst()+type,off-offset);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = stktell(stkp)-lp->lexd.kiaoff;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin begin = stkptr(stkp,lp->lexd.kiaoff);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* variable in data buffer */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin begin = fcfirst()+(type+lp->lexd.kiaoff-offset);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = off-lp->lexd.kiaoff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin savptr = stkfreeze(stkp,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin r=kiaentity(lp,begin,n,'v',-1,-1,lp->current,'v',0,"");

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkset(stkp,savptr,offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfprintf(lp->kiatmp,"p;%..64d;v;%..64d;%d;%d;r;\n",lp->current,r,shp->inlineno,shp->inlineno);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void lex_advance(Sfio_t *iop, const char *buff, register int size, void *context)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Lex_t *lp = (Lex_t*)context;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Shell_t *shp = lp->sh;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Sfio_t *log= shp->funlog;

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

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.nocopy)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(lp->lexd.dolparen && lp->lexd.docword)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int n = size - (lp->lexd.docend-(char*)buff);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz sfwrite(shp->strbuf,lp->lexd.docend,n);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz lp->lexd.docextra += n;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.first)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin size -= (lp->lexd.first-(char*)buff);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin buff = lp->lexd.first;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lexd.noarg)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->arg = (struct argnod*)stkseek(stkp,ARGVAL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.kiaoff += ARGVAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(size>0 && (lp->arg||lp->lexd.noarg))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfwrite(stkp,buff,size);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.first = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int lexfill(Lex_t *lp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Lex_t savelex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct argnod *ap;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int aok,docextra;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin savelex = *lp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = lp->arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = fcfill();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ap)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->arg = ap;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz docextra = lp->lexd.docextra;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex = savelex.lex;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd = savelex.lexd;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(fcfile() || c)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.first = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin aok= lp->aliasok;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = lp->arg;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memcpy(lp, &savelex, offsetof(Lex_t,lexd));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->arg = ap;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->aliasok = aok;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(lp->lexd.docword && docextra)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz lp->lexd.docextra = docextra;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz lp->lexd.docend = fcseek(0)-1;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!lp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->sh = sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcnotify(lex_advance,lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.intest = lp->lex.incase = lp->lex.skipword = lp->lexd.warn = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->comp_assign = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok = 1;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.warn=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!mode)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.noarg = lp->lexd.level= lp->lexd.dolparen = lp->lexd.balance = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.nocopy = lp->lexd.docword = lp->lexd.nest = lp->lexd.paren = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner lp->lexd.lex_state = lp->lexd.lastc=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->comsub = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef DBUG

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinextern int lextoken(Lex_t*);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint sh_lex(Lex_t *lp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Shell_t *shp = lp->sh;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int flag;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char tokstr[3];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int tok = lextoken();

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(tok==0 && (flag=lp->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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint sh_lex(Lex_t* lp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Shell_t *shp = lp->sh;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *state;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register int n, c, mode=ST_BEGIN, wordflags=0;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int inlevel=lp->lexd.level, assignment=0, ingrave=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin LEN=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.paren)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.paren = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=LPAREN);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lex.incase)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->assignok = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->assignok |= lp->lex.reservok;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->comp_assign==2)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->comp_assign = lp->lex.reservok = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.arith = (lp->lexd.nest==1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.nest)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,lp->lexd.nest,ST_NONE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.nest = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = lp->lexd.lex_state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(lp->lexd.docword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.docword++;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->digits=(c=='#'?3:1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='<')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->digits=2;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.docword=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->arg = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_BEGIN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.first = fcseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.first = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lastline = lp->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();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((n=lexfill(lp)) > 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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->token = -1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_syntax(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* end-of-file */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_BEGIN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=EOFSYM);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mode >ST_NORM && lp->lexd.level>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin switch(c=endchar(lp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '$':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_LIT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\'';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

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 '\'':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.balance = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lasttok = c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->token = EOFSYM;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_syntax(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.balance = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto breakloop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_COM:

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok = !lp->lex.intest;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((n=lp->lexd.nocopy) && lp->lexd.dolparen)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.nocopy--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c<=0 || lp->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=='#');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.nocopy = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c<0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=EOFSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = S_NLTOK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->inlineno--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_NLTOK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for here-document */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->heredoc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lexd.dolparen)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.nocopy++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = shp->inlineno;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(here_copy(lp,lp->heredoc)<=0 && lp->lasttok)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lasttok = IODOCSYM;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->token = EOFSYM;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lastline = c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_syntax(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lexd.dolparen)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.nocopy--;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->heredoc = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok = !lp->lex.intest;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.skipword = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_NL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip over new-lines */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.last_quote = 0;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_NLTOK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->comp_assign = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token='\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_BLNK:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lex.incase<=TEST_RE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(inlevel+1==lp->lexd.level)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lex.intest)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin 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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lex.testop2)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.testop2 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->digits = (c=='>');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.skipword = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->aliasok = lp->lex.reservok;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok = !lp->lex.intest;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==RPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lexd.dolparen)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.incase = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.testop1 = lp->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=='<')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.docword=1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n==LPAREN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.nest=1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lastline = shp->inlineno;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.lex_state = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(sh_lex(lp));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMREP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='&')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(!sh_isoption(SH_POSIX) && n=='>' && (sh_isoption(SH_BASH) || sh_isstate(SH_PROFILE)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(!sh_isoption(SH_BASH) && !lp->nonstandard)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz lp->nonstandard = 1;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz errormsg(SH_DICT,ERROR_warn(0),e_lexnonstandard,shp->inlineno);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->digits = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '>';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

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;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.skipword = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n=='|')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMPIPE;

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

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz lp->digits = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = IORDWRSYM;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fcgetc(n);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(fcgetc(n)==';')

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz lp->token = c = IORDWRSYMT;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(lp->inexec)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz sh_syntax(lp);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else if(n>0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fcseek(-1);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz n= 0;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= SYMSHARP;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(n==';' && c=='>')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c |= SYMSEMI;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->inexec)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->token = c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_syntax(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.incase = (c==BREAKCASESYM || c==FALLTHRUSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(lp->lexd.warn && (n=fcpeek(0))!=RPAREN && n!=' ' && n!='\t')

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c==LPAREN && lp->comp_assign && !lp->lex.intest && !lp->lex.incase)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->comp_assign = 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->comp_assign = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->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();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = lp->arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcfopen(sp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcsopen((char*)state);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* remove \new-line */

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin stkseek(stkp,n);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->arg = ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n<=ARGVAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.first = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_QUOTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_DOL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef STR_MAXIMAL

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(mode==ST_NESTED && lp->lexd.warn &&

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin endchar(lp)==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:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lex.skipword)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok *= 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_TILDE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_RES:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lexd.dolparen)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.first = fcseek(0)-LEN;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(lp->lexd.docword)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->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)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c=='~' && n==LPAREN && lp->lex.incase)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.incase = TEST_RE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin do_reg:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip new-line joining */

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->inlineno++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->lexd.dolparen)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.first = fcseek(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(lp->lexd.docword)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.docend = fcseek(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c=='[' && lp->assignok>=SH_ASSIGN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NORM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LIT:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(oldmode(lp)==ST_NONE && !lp->lexd.noarg) /* 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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(endchar(lp)!='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(oldmode(lp)==ST_QUOTE) /* $' within "" or `` */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.warn && lp->lex.last_quote && shp->inlineno > lp->lastline)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin errormsg(SH_DICT,ERROR_warn(0),e_lexlongquote,lp->lastline,lp->lex.last_quote);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.last_quote = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lastline = shp->inlineno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_DOL)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,'\'',mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_LIT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(shp->inlineno > lp->lastline)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.last_quote = '\'';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ESC2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* \ inside '' */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(endchar(lp)=='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcgetc(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n=='\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->inlineno++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_GRAVE:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.warn && (mode!=ST_QUOTE || endchar(lp)!='`'))

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:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(oldmode(lp)==ST_NONE && lp->lexd.arith) /* in ((...)) */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(n!=S_GRAVE || fcpeek(0)=='\'')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin continue;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n==S_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |=ARG_QUOTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode!=ST_QUOTE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.warn && lp->lex.last_quote && shp->inlineno > lp->lastline)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin errormsg(SH_DICT,ERROR_warn(0),e_lexlongquote,lp->lastline,lp->lex.last_quote);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.last_quote=0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lastline = shp->inlineno;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,c,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ingrave ^= (c=='`');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_QUOTE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if((n=endchar(lp))==c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->inlineno > lp->lastline)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.last_quote = c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.first)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.kiaoff = fcseek(0)-lp->lexd.first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.kiaoff = stktell(stkp)+fcseek(0)-fcfirst();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,'$',mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_DOL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PAR:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin do_comsub:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MAC;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin wordflags |= comsub(lp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_RBRA:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((n=endchar(lp)) == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EDOL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* end $identifier */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_KIA

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->kiafile)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin refvar(lp,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_KIA */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.warn && c==LBRACT && !lp->lex.intest && !lp->lexd.arith && oldmode(lp)!= ST_NESTED)

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* make sure next character is alpha */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(n)>0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(n=='.')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcgetc(n);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(n>0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

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;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(endchar(lp)==RBRACE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin setchar(lp,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THRU */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_ALP:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(c=='.' && endchar(lp)=='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_SPC2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_DIG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MAC;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin switch(endchar(lp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '$':

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_DOLNAME;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin setchar(lp,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)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin setchar(lp,'0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin setchar(lp,'!');

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:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((n=endchar(lp)) == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((n = endchar(lp)) != '`')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto err;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,RBRACE,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin setchar(lp,RBRACE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_MOD1:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(oldmode(lp)==ST_QUOTE || oldmode(lp)==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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->kiafile)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin refvar(lp,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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->token = n;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_syntax(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(lp->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:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((c=endchar(lp)) == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcgetc(c)>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin setchar(lp,RBRACE);

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((n=sh_lexstates[ST_BEGIN][c])==0 || n==S_OP || n==S_NLTOK)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = LBRACE;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin goto do_comsub;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = endchar(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n!='$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->token = c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_syntax(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->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);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else if(c=='"' && mode!=ST_QUOTE && !ingrave)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_MESSAGE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_META:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.warn && endchar(lp)==RBRACE)

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_PUSH:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,RPAREN,mode);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_POP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do_pop:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.level <= inlevel)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.level==inlevel+1 && lp->lex.incase>=TEST_RE && !lp->lex.intest)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin goto breakloop;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = endchar(lp);

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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.warn)

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin mode = oldmode(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin poplevel(lp);

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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mode==ST_NONE && !lp->lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto breakloop;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.reservok = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.skipword = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=EXPRSYM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* backward compatibility */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.warn)

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!(state=lp->lexd.first))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = fcfirst();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(state-fcseek(0));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->arg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->arg = (struct argnod*)stkfreeze(stkp,1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin setupalias(lp,lp->arg->argval,NIL(Namval_t*));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.paren = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=LPAREN);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c!=n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->token = c;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_syntax(lp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto epat;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EQ:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin assignment = lp->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:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lex.reservok && !lp->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 */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((n=endchar(lp))==RBRACT || n==RPAREN ||

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (mode==ST_BRACE) ||

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (oldmode(lp)==ST_NONE) ||

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (mode==ST_NAME && (lp->assignok||lp->lexd.level)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(mode==ST_NAME)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fcgetc(n);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(n>0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(n==']')

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz errormsg(SH_DICT,ERROR_exit(SYNBAD),e_lexsyntax1, shp->inlineno, "[]", "empty subscript");

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fcseek(-1);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,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;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.dolparen)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mode==ST_BEGIN && (lp->lex.reservok||lp->comsub))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcgetc(n);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(n>0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = '\n';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(n==RBRACT || sh_lexstates[ST_NORM][n])

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(mode==ST_BEGIN)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->comsub && c==RBRACE)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin goto do_reg;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin isfirst = (lp->lexd.first&&fcseek(0)==lp->lexd.first+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcgetc(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for {} */

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

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcseek(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(lp->lex.reservok)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lex.reservok && state[n]==S_BREAK && isfirst)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin && !lp->lex.incase && !lp->lex.intest

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin && !lp->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 {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lex.incase==TEST_RE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lex.incase++;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,RPAREN,ST_NORM);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NESTED;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wordflags |= ARG_EXP;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pushlevel(lp,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 }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->comp_assign = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mode==ST_NAME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = ST_NORM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(mode==ST_NONE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinbreakloop:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.nocopy)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.balance = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.dolparen)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.balance = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(lp->lexd.docword)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nested_here(lp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->lexd.message = (wordflags&ARG_MESSAGE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(lp->token=0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!(state=lp->lexd.first))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = fcfirst();

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

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!lp->arg)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin lp->arg = (struct argnod*)stkseek(stkp,ARGVAL);