da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1982-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * David Korn
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Labs
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * shell intermediate code reader
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "defs.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "shnodes.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "path.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "io.h"
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner#include <ccode.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct dolnod *r_comlist(Shell_t*);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct argnod *r_arg(Shell_t*);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct ionod *r_redirect(Shell_t*);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct regnod *r_switch(Shell_t*);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic Shnode_t *r_tree(Shell_t*);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic char *r_string(Stk_t*);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void r_comarg(Shell_t*,struct comnod*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Sfio_t *infile;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#define getnode(s,type) ((Shnode_t*)stkalloc((s),sizeof(struct type)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April ChinShnode_t *sh_trestore(Shell_t *shp,Sfio_t *in)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shnode_t *t;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin infile = in;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(t);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * read in a shell tree
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic Shnode_t *r_tree(Shell_t *shp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long l = sfgetl(infile);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int type;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shnode_t *t=0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(l<0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(t);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin type = l;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(type&COMMSK)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TTIME:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TPAR:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,parnod);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->par.partre = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TCOM:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,comnod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->tre.tretyp = type;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin r_comarg(shp,(struct comnod*)t);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TSETIO:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFORK:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,forknod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->fork.forkline = sfgetu(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->fork.forktre = r_tree(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->fork.forkio = r_redirect(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TIF:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,ifnod);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->if_.iftre = r_tree(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->if_.thtre = r_tree(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->if_.eltre = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TWH:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,whnod);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->wh.whinc = (struct arithnod*)r_tree(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->wh.whtre = r_tree(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->wh.dotre = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TLST:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TAND:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TORF:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFIL:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,lstnod);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->lst.lstlef = r_tree(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->lst.lstrit = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TARITH:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,arithnod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->ar.arline = sfgetu(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->ar.arexpr = r_arg(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->ar.arcomp = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((t->ar.arexpr)->argflag&ARG_RAW)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->ar.arcomp = sh_arithcomp((t->ar.arexpr)->argval);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFOR:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,fornod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->for_.forline = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&FLINENO)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->for_.forline = sfgetu(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->for_.fortre = r_tree(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->for_.fornam = r_string(shp->stk);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->for_.forlst = (struct comnod*)r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TSW:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,swnod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->sw.swline = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&FLINENO)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->sw.swline = sfgetu(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->sw.swarg = r_arg(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&COMSCAN)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->sw.swio = r_redirect(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->sw.swio = 0;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->sw.swlst = r_switch(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TFUN:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Stak_t *savstak;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct slnod *slp;
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz struct functnod *fp;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,functnod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->funct.functloc = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->funct.functline = sfgetu(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->funct.functnam = r_string(shp->stk);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savstak = stakcreate(STAK_SMALL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin savstak = stakinstall(savstak, 0);
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz slp = (struct slnod*)stkalloc(shp->stk,sizeof(struct slnod)+sizeof(struct functnod));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin slp->slchild = 0;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin slp->slnext = shp->st.staklist;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->st.staklist = 0;
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fp = (struct functnod*)(slp+1);
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz memset(fp, 0, sizeof(*fp));
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fp->functtyp = TFUN|FAMP;
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(shp->st.filename)
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fp->functnam = stkcopy(shp->stk,shp->st.filename);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->funct.functtre = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->funct.functstak = slp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin slp->slptr = stakinstall(savstak,0);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin slp->slchild = shp->st.staklist;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->funct.functargs = (struct comnod*)r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case TTST:
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t = getnode(shp->stk,tstnod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->tst.tstline = sfgetu(infile);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((type&TPAREN)==TPAREN)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->lst.lstlef = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->lst.lstlef = (Shnode_t*)r_arg(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((type&TBINARY))
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin t->lst.lstrit = (Shnode_t*)r_arg(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(t)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->tre.tretyp = type;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(t);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct argnod *r_arg(Shell_t *shp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct argnod *ap=0, *apold, *aptop=0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register long l;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Stk_t *stkp=shp->stk;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((l=sfgetu(infile))>0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = (struct argnod*)stkseek(stkp,(unsigned)l+ARGVAL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!aptop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aptop = ap;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin apold->argnxt.ap = ap;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(--l > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfread(infile,ap->argval,(size_t)l);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ccmaps(ap->argval, l, CC_ASCII, CC_NATIVE);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argval[l] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argchn.cp = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argflag = sfgetc(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((ap->argflag&ARG_MESSAGE) && *ap->argval)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* replace international messages */
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = sh_endword(shp,1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argflag &= ~ARG_MESSAGE;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(ap->argflag&(ARG_MAC|ARG_EXP)))
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = sh_endword(shp,0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = (struct argnod*)stkfreeze(stkp,0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ap->argflag==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argflag = ARG_RAW;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ap = (struct argnod*)stkfreeze(stkp,0);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(*ap->argval==0 && (ap->argflag&~(ARG_APPEND|ARG_MESSAGE|ARG_QUOTED))==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct fornod *fp = (struct fornod*)getnode(shp->stk,fornod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fp->fortyp = sfgetu(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fp->fortre = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fp->fornam = ap->argval+1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argchn.ap = (struct argnod*)fp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin apold = ap;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ap)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argnxt.ap = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(aptop);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct ionod *r_redirect(Shell_t* shp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register long l;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct ionod *iop=0, *iopold, *ioptop=0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((l=sfgetl(infile))>=0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin iop = (struct ionod*)getnode(shp->stk,ionod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!ioptop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ioptop = iop;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iopold->ionxt = iop;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop->iofile = l;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin iop->ioname = r_string(shp->stk);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(iop->iodelim = r_string(shp->stk))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop->iosize = sfgetl(infile);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->heredocs)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin iop->iooffset = sfseek(shp->heredocs,(off_t)0,SEEK_END);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->heredocs = sftmp(512);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop->iooffset = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfmove(infile,shp->heredocs, iop->iosize, -1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iopold = iop;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iop->iofile&IOVNM)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin iop->iovname = r_string(shp->stk);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop->iovname = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop->iofile &= ~IOVNM;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iop->ionxt = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(ioptop);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void r_comarg(Shell_t *shp,struct comnod *com)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cmdname=0;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com->comio = r_redirect(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com->comset = r_arg(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com->comstate = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(com->comtyp&COMSCAN)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com->comarg = r_arg(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(com->comarg->argflag==ARG_RAW)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cmdname = com->comarg->argval;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(com->comarg = (struct argnod*)r_comlist(shp))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cmdname = ((struct dolnod*)(com->comarg))->dolval[ARG_SPARE];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com->comline = sfgetu(infile);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com->comnamq = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cmdname)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cp;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com->comnamp = (void*)nv_search(cmdname,shp->fun_tree,0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(com->comnamp && (cp =strrchr(cmdname+1,'.')))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *cp = 0;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin com->comnamp = (void*)nv_open(cmdname,shp->var_tree,NV_VARNAME|NV_NOADD|NV_NOARRAY);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *cp = '.';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com->comnamp = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct dolnod *r_comlist(Shell_t *shp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct dolnod *dol=0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register long l;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char **argv;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((l=sfgetl(infile))>0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dol = (struct dolnod*)stkalloc(shp->stk,sizeof(struct dolnod) + sizeof(char*)*(l+ARG_SPARE));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dol->dolnum = l;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dol->dolbot = ARG_SPARE;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv = dol->dolval+ARG_SPARE;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin while(*argv++ = r_string(shp->stk));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(dol);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic struct regnod *r_switch(Shell_t *shp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register long l;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct regnod *reg=0,*regold,*regtop=0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((l=sfgetl(infile))>=0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin reg = (struct regnod*)getnode(shp->stk,regnod);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!regtop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regtop = reg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regold->regnxt = reg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg->regflag = l;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin reg->regptr = r_arg(shp);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin reg->regcom = r_tree(shp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regold = reg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(reg)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg->regnxt = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(regtop);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic char *r_string(Stk_t *stkp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Sfio_t *in = infile;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned long l = sfgetu(in);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *ptr;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(l == 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(NIL(char*));
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ptr = stkalloc(stkp,(unsigned)l);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(--l > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sfread(in,ptr,(size_t)l)!=(size_t)l)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(NIL(char*));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ccmaps(ptr, l, CC_ASCII, CC_NATIVE);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ptr[l] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(ptr);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}